sig
  module E : Encoding_T
  val transcoder : (char Cf_seq.t option, char) Cf_flow.t
  val transcode : char Cf_seq.t -> char Cf_seq.t
  val atomic : string -> string
end