struct

  let string_to_item ?(more_columns=`strings) () =
    Biocaml_transform.on_output
      (Biocaml_lines.Transform.string_to_item ())
      ~f:(fun line -> item_of_line more_columns line)

  let item_to_string () =
    Biocaml_transform.on_input
      (Biocaml_lines.Transform.item_to_string ())
      ~f:(fun item -> item_to_line item)

end