sig
  exception No_match
  class virtual ['a] scanner :
    'Cf_seq.t ->
    object
      val mutable next_ : 'Cf_seq.t
      method fini : 'Cf_seq.t
      method private virtual get : char
      method init : Scanf.Scanning.scanbuf
    end
  val cscanf :
    ('Cf_seq.t -> ('#Cf_scan_parser.scanner as 'b)) ->
    ('-> exn -> 'c) ->
    ('d, Scanf.Scanning.scanbuf, 'e, '-> 'c, '-> 'c, 'c) format6 ->
    '-> ('a, 'c) Cf_parser.t
  val scanf :
    ('a, Scanf.Scanning.scanbuf, 'b, '-> 'c, '-> 'c, 'c) format6 ->
    '-> (char, 'c) Cf_parser.t
  val scanfx :
    ('a, Scanf.Scanning.scanbuf, 'b, '-> 'c, '-> 'c, 'c) format6 ->
    '-> (char #Cf_parser.cursor, char, 'c) Cf_parser.X.t
end