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