Biocaml 0.4-dev : Biocaml_sam.print_header_line

let print_header_line ({version; sort_order} : header_line) =

 sprintf "@HD\tVN:%s%s"

  version

  (match sort_order with

  | None -> ""

  | Some x -> sprintf "\t%s" (print_sort_order x)

  )