object
  method peek_char : (Utf8_char.t -> unit) -> unit
  method read_char : (Utf8_char.t -> unit) -> unit
  method read_while : (Utf8_char.t -> bool) -> (string -> unit) -> unit
end