Biocaml 0.4-dev : Biocaml_sam.print_other

let print_other ((tag,l) : string * tag_value list) =

 sprintf "@%s%s"

  tag

  (

   List.map l ~f:(fun (x,y) -> sprintf "\t%s:%s" x y)

   |> String.concat ~sep:""

  )