sig
val
to_ucs4 : (char
Cf_seq
.t option, int)
Cf_flow
.t
val
of_ucs4 : (int, char)
Cf_flow
.t
end