let string_to_t ?filename ?(tags=default_tags) () =
    let pedantic = List.mem tags `pedantic in
    let sharp_comments = List.mem tags `sharp_comments in
    let name = sprintf "wig_parser:%s" Option.(value ~default:"<>" filename) in
    let next = next ~pedantic ~sharp_comments in
    Biocaml_transform.Line_oriented.make_merge_error
      ~name ?filename ~next ()