int -> object ('a) val position_ : int method advance : char -> 'a method error : int -> (char * 'a) Cf_seq.t -> unit method position : int end