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