sig
  type 'a t
  val make :
    ?buffer:[ `clear of int | `reset of int ] ->
    to_string:('a -> string) -> unit -> 'a Biocaml_transform.Printer_queue.t
  val feed : 'a Biocaml_transform.Printer_queue.t -> 'a -> unit
  val flush : 'a Biocaml_transform.Printer_queue.t -> string
  val is_empty : 'a Biocaml_transform.Printer_queue.t -> bool
end