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