type t = xstring
val length : xstring -> int
val clear : xstring -> unit
val reset : xstring -> unit
val add_text : xstring -> 'a UText.text -> unit
val shrink : xstring -> int -> unit
val ustring_of : xstring -> UText.ustring
module Buf : sig ... end