'a Cf_seq.t -> object val mutable next_ : 'a Cf_seq.t method fini : 'a Cf_seq.t method private virtual get : char method init : Scanf.Scanning.scanbuf end