let print_header_item_tag = function | `HD -> "@HD" | `SQ -> "@SQ" | `RG -> "@RG" | `PG -> "@PG" | `CO -> "@CO" | `Other x -> sprintf "@%s" x