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