sig
  type string
  type t
  exception Full
  val create : int -> Xmlm.Buffer.t
  val add_uchar : Xmlm.Buffer.t -> int -> unit
  val clear : Xmlm.Buffer.t -> unit
  val contents : Xmlm.Buffer.t -> Xmlm.Buffer.string
  val length : Xmlm.Buffer.t -> int
end