Biocaml 0.4-dev : Biocaml_sam.print_qual

let print_qual = function

 | [] -> "*"

 | quals ->

  List.map quals ~f:(fun x ->

   ok_exn (Phred_score.to_char ~offset:`Offset33 x)

  )

  |> String.of_char_list