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