sig
  type 'a t
  val create : int -> 'a -> 'a Buffers.Buffers.t
  val add : 'a -> 'a Buffers.Buffers.t -> 'a Buffers.Buffers.t
  val iter : ('a -> unit) -> 'a Buffers.Buffers.t -> unit
  val clean : 'a Buffers.Buffers.t -> 'a Buffers.Buffers.t
end