let print_qual = function | [] -> "*" | quals -> List.map quals ~f:(fun x -> ok_exn (Phred_score.to_char ~offset:`Offset33 x) ) |> String.of_char_list