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