let parse_header text =
  read_header (Biocaml_lines.of_string text)