sig
  val bprintf :
    Bigbuffer.t -> ('a, unit, string, unit) Pervasives.format4 -> 'a
end