sig
val encoding_guess : string -> [ `UTF_16BE | `UTF_16LE | `UTF_8 ] * bool
type 'a folder =
'a -> int -> [ `Malformed of string | `Uchar of Uutf.uchar ] -> 'a
val fold_utf_8 : 'a Uutf.String.folder -> 'a -> string -> 'a
val fold_utf_16be : 'a Uutf.String.folder -> 'a -> string -> 'a
val fold_utf_16le : 'a Uutf.String.folder -> 'a -> string -> 'a
end