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