let item_to_string () =
    let module PQ = Biocaml_transform.Printer_queue in
    let printer =
      Biocaml_transform.Printer_queue.make ~to_string:(fun r ->
        sprintf "@%s\n%s\n+%s\n%s\n" r.name r.sequence r.comment r.qualities
      ) () in
    Biocaml_transform.make ~name:"fastq_printer" ()
      ~feed:(fun r -> PQ.feed printer r)
      ~next:(fun stopped ->
        match (PQ.flush printer) with
        | "" -> if stopped then `end_of_stream else `not_ready
        | s -> `output s)