sig
  val formatter_of_buffer : Bigbuffer.t -> Format.formatter
  val bprintf :
    Bigbuffer.t -> ('a, Format.formatter, unit) Pervasives.format -> 'a
end