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