sig val add_utf_8 : Buffer.t -> Uchar.t -> unit end