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