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)
    )