sig
  type buffer
  val create : ?truncate:bool -> int -> Sanitizer.buffer
  val clear : Sanitizer.buffer -> unit
  val add_sep : Sanitizer.buffer -> unit
  val add_char : Sanitizer.buffer -> char -> unit
  val add_string : Sanitizer.buffer -> string -> unit
  val add_list : Sanitizer.buffer -> string list -> unit
  val contents : Sanitizer.buffer -> string
end