sig
  type buf = Buffer.t
  val create : int -> Main.Type.UTF8.Buf.buf
  val contents : Main.Type.UTF8.Buf.buf -> Main.Type.UTF8.t
  val clear : Main.Type.UTF8.Buf.buf -> unit
  val reset : Main.Type.UTF8.Buf.buf -> unit
  val add_char : Main.Type.UTF8.Buf.buf -> Main.Type.UChar.t -> unit
  val add_string : Main.Type.UTF8.Buf.buf -> Main.Type.UTF8.t -> unit
  val add_buffer : Main.Type.UTF8.Buf.buf -> Main.Type.UTF8.Buf.buf -> unit
end