Biocaml 0.4-dev : Biocaml_sam.print_cigar

let print_cigar = function

 | [] -> "*"

 | cigar_ops ->

  List.map cigar_ops ~f:print_cigar_op

  |> String.concat ~sep:""