let string_to_bed ?filename  ?more_columns  () =
    let bed = Bed.Transform.string_to_item ?more_columns () in
    embed_parser  ?filename bed
      ~reconstruct:(function
      | `Filtered (Ok f) -> Ok (f :> bed_t)
      | `Filtered (Error f) -> Error (f :> bed_parse_error)
      | `Done (Ok o) -> Ok (`content o :> bed_t)
      | `Done (Error e) -> Error (e :> bed_parse_error))