let qual al =
    Sam.parse_qual al.qual