int ->
object ('a)
  val position_ : int
  method advance : 'i -> ('i #Cf_parser.cursor as 'a)
  method position : int
end