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