(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/parser/rlang#rlang::t
    (make-struct-type 'std/parser/rlang#rlang::t '#f '0 'rlang '() '#f '()))
  (define std/parser/rlang#rlang?
    (make-struct-predicate std/parser/rlang#rlang::t))
  (define std/parser/rlang#make-rlang
    (lambda _$args98258_
      (apply make-struct-instance std/parser/rlang#rlang::t _$args98258_)))
  (define std/parser/rlang#nul::t
    (make-struct-type
     'std/parser/rlang#nul::t
     std/parser/rlang#rlang::t
     '0
     'nul
     '((final: . #t))
     '#f
     '()))
  (define std/parser/rlang#nul?
    (make-struct-predicate std/parser/rlang#nul::t))
  (define std/parser/rlang#make-nul
    (lambda _$args98255_
      (apply make-struct-instance std/parser/rlang#nul::t _$args98255_)))
  (define std/parser/rlang#eps::t
    (make-struct-type
     'std/parser/rlang#eps::t
     std/parser/rlang#rlang::t
     '0
     'eps
     '((final: . #t))
     '#f
     '()))
  (define std/parser/rlang#eps?
    (make-struct-predicate std/parser/rlang#eps::t))
  (define std/parser/rlang#make-eps
    (lambda _$args98252_
      (apply make-struct-instance std/parser/rlang#eps::t _$args98252_)))
  (define std/parser/rlang#char::t
    (make-struct-type
     'std/parser/rlang#char::t
     std/parser/rlang#rlang::t
     '1
     'char
     '((final: . #t))
     '#f
     '(c)))
  (define std/parser/rlang#char?
    (make-struct-predicate std/parser/rlang#char::t))
  (define std/parser/rlang#make-char
    (lambda _$args98249_
      (apply make-struct-instance std/parser/rlang#char::t _$args98249_)))
  (define std/parser/rlang#char-c
    (make-struct-field-accessor std/parser/rlang#char::t '0))
  (define std/parser/rlang#char-c-set!
    (make-struct-field-mutator std/parser/rlang#char::t '0))
  (define std/parser/rlang#charset::t
    (make-struct-type
     'std/parser/rlang#charset::t
     std/parser/rlang#rlang::t
     '1
     'charset
     '((final: . #t))
     '#f
     '(chars)))
  (define std/parser/rlang#charset?
    (make-struct-predicate std/parser/rlang#charset::t))
  (define std/parser/rlang#make-charset
    (lambda _$args98246_
      (apply make-struct-instance std/parser/rlang#charset::t _$args98246_)))
  (define std/parser/rlang#charset-chars
    (make-struct-field-accessor std/parser/rlang#charset::t '0))
  (define std/parser/rlang#charset-chars-set!
    (make-struct-field-mutator std/parser/rlang#charset::t '0))
  (define std/parser/rlang#negset::t
    (make-struct-type
     'std/parser/rlang#negset::t
     std/parser/rlang#rlang::t
     '1
     'negset
     '((final: . #t))
     '#f
     '(chars)))
  (define std/parser/rlang#negset?
    (make-struct-predicate std/parser/rlang#negset::t))
  (define std/parser/rlang#make-negset
    (lambda _$args98243_
      (apply make-struct-instance std/parser/rlang#negset::t _$args98243_)))
  (define std/parser/rlang#negset-chars
    (make-struct-field-accessor std/parser/rlang#negset::t '0))
  (define std/parser/rlang#negset-chars-set!
    (make-struct-field-mutator std/parser/rlang#negset::t '0))
  (define std/parser/rlang#alt::t
    (make-struct-type
     'std/parser/rlang#alt::t
     std/parser/rlang#rlang::t
     '2
     'alt
     '((final: . #t))
     '#f
     '(L1 L2)))
  (define std/parser/rlang#alt?
    (make-struct-predicate std/parser/rlang#alt::t))
  (define std/parser/rlang#make-alt
    (lambda _$args98240_
      (apply make-struct-instance std/parser/rlang#alt::t _$args98240_)))
  (define std/parser/rlang#alt-L1
    (make-struct-field-accessor std/parser/rlang#alt::t '0))
  (define std/parser/rlang#alt-L2
    (make-struct-field-accessor std/parser/rlang#alt::t '1))
  (define std/parser/rlang#alt-L1-set!
    (make-struct-field-mutator std/parser/rlang#alt::t '0))
  (define std/parser/rlang#alt-L2-set!
    (make-struct-field-mutator std/parser/rlang#alt::t '1))
  (define std/parser/rlang#cat::t
    (make-struct-type
     'std/parser/rlang#cat::t
     std/parser/rlang#rlang::t
     '2
     'cat
     '((final: . #t))
     '#f
     '(L1 L2)))
  (define std/parser/rlang#cat?
    (make-struct-predicate std/parser/rlang#cat::t))
  (define std/parser/rlang#make-cat
    (lambda _$args98237_
      (apply make-struct-instance std/parser/rlang#cat::t _$args98237_)))
  (define std/parser/rlang#cat-L1
    (make-struct-field-accessor std/parser/rlang#cat::t '0))
  (define std/parser/rlang#cat-L2
    (make-struct-field-accessor std/parser/rlang#cat::t '1))
  (define std/parser/rlang#cat-L1-set!
    (make-struct-field-mutator std/parser/rlang#cat::t '0))
  (define std/parser/rlang#cat-L2-set!
    (make-struct-field-mutator std/parser/rlang#cat::t '1))
  (define std/parser/rlang#rep::t
    (make-struct-type
     'std/parser/rlang#rep::t
     std/parser/rlang#rlang::t
     '1
     'rep
     '((final: . #t))
     '#f
     '(L)))
  (define std/parser/rlang#rep?
    (make-struct-predicate std/parser/rlang#rep::t))
  (define std/parser/rlang#make-rep
    (lambda _$args98234_
      (apply make-struct-instance std/parser/rlang#rep::t _$args98234_)))
  (define std/parser/rlang#rep-L
    (make-struct-field-accessor std/parser/rlang#rep::t '0))
  (define std/parser/rlang#rep-L-set!
    (make-struct-field-mutator std/parser/rlang#rep::t '0))
  (define std/parser/rlang#@nul (##structure std/parser/rlang#nul::t))
  (define std/parser/rlang#@eps (##structure std/parser/rlang#eps::t))
  (define std/parser/rlang#@nul?
    (lambda (_L98232_) (eq? std/parser/rlang#@nul _L98232_)))
  (define std/parser/rlang#@eps?
    (lambda (_L98230_) (eq? std/parser/rlang#@eps _L98230_)))
  (define std/parser/rlang#@char
    (lambda (_c98228_) (##structure std/parser/rlang#char::t _c98228_)))
  (define std/parser/rlang#@charset
    (lambda (_chars98222_)
      (if (null? _chars98222_)
          std/parser/rlang#@nul
          (##structure
           std/parser/rlang#charset::t
           (list->table
            (map (lambda (_g9822398225_) (cons _g9822398225_ '#t))
                 _chars98222_)
            'test:
            eq?)))))
  (define std/parser/rlang#@negset
    (lambda (_chars98216_)
      (##structure
       std/parser/rlang#negset::t
       (list->table
        (map (lambda (_g9821798219_) (cons _g9821798219_ '#t)) _chars98216_)
        'test:
        eq?))))
  (define std/parser/rlang#@dot (std/parser/rlang#@negset '()))
  (define std/parser/rlang#@alt__0 (lambda (_L98207_) _L98207_))
  (define std/parser/rlang#@alt__1
    (lambda (_L198209_ _L298210_)
      (if (std/parser/rlang#@nul? _L198209_)
          _L298210_
          (if (std/parser/rlang#@nul? _L298210_)
              _L198209_
              (##structure std/parser/rlang#alt::t _L198209_ _L298210_)))))
  (define std/parser/rlang#@alt__2
    (lambda (_L198212_ _L298213_ . _rest98214_)
      (std/parser/rlang#@alt__1
       _L198212_
       (apply std/parser/rlang#@alt _L298213_ _rest98214_))))
  (define std/parser/rlang#@alt
    (lambda _g98321_
      (let ((_g98320_ (length _g98321_)))
        (cond ((##fx= _g98320_ 1) (apply std/parser/rlang#@alt__0 _g98321_))
              ((##fx= _g98320_ 2) (apply std/parser/rlang#@alt__1 _g98321_))
              ((##fx>= _g98320_ 2) (apply std/parser/rlang#@alt__2 _g98321_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/parser/rlang#@alt
                _g98321_))))))
  (define std/parser/rlang#@cat__0 (lambda (_L98195_) _L98195_))
  (define std/parser/rlang#@cat__1
    (lambda (_L198197_ _L298198_)
      (if (or (std/parser/rlang#@nul? _L198197_)
              (std/parser/rlang#@nul? _L298198_))
          std/parser/rlang#@nul
          (##structure std/parser/rlang#cat::t _L198197_ _L298198_))))
  (define std/parser/rlang#@cat__2
    (lambda (_L198203_ _L298204_ . _rest98205_)
      (std/parser/rlang#@cat__1
       _L198203_
       (apply std/parser/rlang#@cat _L298204_ _rest98205_))))
  (define std/parser/rlang#@cat
    (lambda _g98323_
      (let ((_g98322_ (length _g98323_)))
        (cond ((##fx= _g98322_ 1) (apply std/parser/rlang#@cat__0 _g98323_))
              ((##fx= _g98322_ 2) (apply std/parser/rlang#@cat__1 _g98323_))
              ((##fx>= _g98322_ 2) (apply std/parser/rlang#@cat__2 _g98323_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/parser/rlang#@cat
                _g98323_))))))
  (define std/parser/rlang#@rep*
    (lambda (_L98193_)
      (if (std/parser/rlang#@nul? _L98193_)
          std/parser/rlang#@eps
          (##structure std/parser/rlang#rep::t _L98193_))))
  (define std/parser/rlang#@rep+
    (lambda (_L98191_)
      (std/parser/rlang#@cat__1 _L98191_ (std/parser/rlang#@rep* _L98191_))))
  (define std/parser/rlang#@maybe
    (lambda (_L98189_)
      (std/parser/rlang#@alt__1 _L98189_ std/parser/rlang#@eps)))
  (define std/parser/rlang#deriv
    (lambda (_L98045_ _c98046_)
      (let* ((_L9804798074_ _L98045_)
             (_E9805698078_
              (lambda () (error '"No clause matching" _L9804798074_))))
        (let ((_K9807298186_ (lambda () std/parser/rlang#@nul))
              (_K9807198179_ (lambda () std/parser/rlang#@nul))
              (_K9806998166_
               (lambda (_a98164_)
                 (if (eq? _c98046_ _a98164_)
                     std/parser/rlang#@eps
                     std/parser/rlang#@nul)))
              (_K9806798152_
               (lambda (_chars98150_)
                 (if (table-ref _chars98150_ _c98046_ '#f)
                     std/parser/rlang#@eps
                     std/parser/rlang#@nul)))
              (_K9806598138_
               (lambda (_chars98136_)
                 (if (table-ref _chars98136_ _c98046_ '#f)
                     std/parser/rlang#@nul
                     std/parser/rlang#@eps)))
              (_K9806298119_
               (lambda (_L298116_ _L198117_)
                 (std/parser/rlang#@alt__1
                  (std/parser/rlang#deriv _L198117_ _c98046_)
                  (std/parser/rlang#deriv _L298116_ _c98046_))))
              (_K9805998099_
               (lambda (_L298096_ _L198097_)
                 (if (std/parser/rlang#delta _L198097_)
                     (std/parser/rlang#@alt__1
                      (std/parser/rlang#deriv _L298096_ _c98046_)
                      (std/parser/rlang#@cat__1
                       (std/parser/rlang#deriv _L198097_ _c98046_)
                       _L298096_))
                     (std/parser/rlang#@cat__1
                      (std/parser/rlang#deriv _L198097_ _c98046_)
                      _L298096_))))
              (_K9805798084_
               (lambda (_Lc98082_)
                 (std/parser/rlang#@cat__1
                  (std/parser/rlang#deriv _Lc98082_ _c98046_)
                  _L98045_))))
          (let* ((_try-match9805598092_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#rep::t)
                        (let* ((_e9805898087_ (##vector-ref _L9804798074_ '1))
                               (_Lc98090_ _e9805898087_))
                          (_K9805798084_ _Lc98090_))
                        (_E9805698078_))))
                 (_try-match9805498112_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#cat::t)
                        (let* ((_e9806098102_ (##vector-ref _L9804798074_ '1))
                               (_e9806198107_ (##vector-ref _L9804798074_ '2)))
                          (let ((_L198105_ _e9806098102_)
                                (_L298110_ _e9806198107_))
                            (_K9805998099_ _L298110_ _L198105_)))
                        (_try-match9805598092_))))
                 (_try-match9805398132_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#alt::t)
                        (let* ((_e9806398122_ (##vector-ref _L9804798074_ '1))
                               (_e9806498127_ (##vector-ref _L9804798074_ '2)))
                          (let ((_L198125_ _e9806398122_)
                                (_L298130_ _e9806498127_))
                            (_K9806298119_ _L298130_ _L198125_)))
                        (_try-match9805498112_))))
                 (_try-match9805298146_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#negset::t)
                        (let* ((_e9806698141_ (##vector-ref _L9804798074_ '1))
                               (_chars98144_ _e9806698141_))
                          (_K9806598138_ _chars98144_))
                        (_try-match9805398132_))))
                 (_try-match9805198160_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#charset::t)
                        (let* ((_e9806898155_ (##vector-ref _L9804798074_ '1))
                               (_chars98158_ _e9806898155_))
                          (_K9806798152_ _chars98158_))
                        (_try-match9805298146_))))
                 (_try-match9805098174_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9804798074_
                         'std/parser/rlang#char::t)
                        (let* ((_e9807098169_ (##vector-ref _L9804798074_ '1))
                               (_a98172_ _e9807098169_))
                          (_K9806998166_ _a98172_))
                        (_try-match9805198160_))))
                 (_try-match9804998182_
                  (lambda ()
                    (if (std/parser/rlang#@eps? _L9804798074_)
                        (_K9807198179_)
                        (_try-match9805098174_)))))
            (if (std/parser/rlang#@nul? _L9804798074_)
                (_K9807298186_)
                (_try-match9804998182_)))))))
  (define std/parser/rlang#delta
    (lambda (_L97920_)
      (let* ((_L9792197945_ _L97920_)
             (_E9793097949_
              (lambda () (error '"No clause matching" _L9792197945_))))
        (let ((_K9794398042_ (lambda () '#f))
              (_K9794298035_ (lambda () '#t))
              (_K9794198027_ (lambda () '#f))
              (_K9794098019_ (lambda () '#f))
              (_K9793998011_ (lambda () '#f))
              (_K9793697993_
               (lambda (_L297987_ _L197988_)
                 (let ((_$e97990_ (std/parser/rlang#delta _L197988_)))
                   (if _$e97990_
                       _$e97990_
                       (std/parser/rlang#delta _L297987_)))))
              (_K9793397970_
               (lambda (_L297967_ _L197968_)
                 (if (std/parser/rlang#delta _L197968_)
                     (std/parser/rlang#delta _L297967_)
                     '#f)))
              (_K9793197955_ (lambda (_L97953_) '#t)))
          (let* ((_try-match9792997963_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#rep::t)
                        (let* ((_e9793297958_ (##vector-ref _L9792197945_ '1))
                               (_L97961_ _e9793297958_))
                          (_K9793197955_ _L97961_))
                        (_E9793097949_))))
                 (_try-match9792897983_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#cat::t)
                        (let* ((_e9793497973_ (##vector-ref _L9792197945_ '1))
                               (_e9793597978_ (##vector-ref _L9792197945_ '2)))
                          (let ((_L197976_ _e9793497973_)
                                (_L297981_ _e9793597978_))
                            (_K9793397970_ _L297981_ _L197976_)))
                        (_try-match9792997963_))))
                 (_try-match9792798006_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#alt::t)
                        (let* ((_e9793797996_ (##vector-ref _L9792197945_ '1))
                               (_e9793898001_ (##vector-ref _L9792197945_ '2)))
                          (let ((_L197999_ _e9793797996_)
                                (_L298004_ _e9793898001_))
                            (_K9793697993_ _L298004_ _L197999_)))
                        (_try-match9792897983_))))
                 (_try-match9792698014_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#negset::t)
                        (_K9793998011_)
                        (_try-match9792798006_))))
                 (_try-match9792598022_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#charset::t)
                        (_K9794098019_)
                        (_try-match9792698014_))))
                 (_try-match9792498030_
                  (lambda ()
                    (if (##structure-direct-instance-of?
                         _L9792197945_
                         'std/parser/rlang#char::t)
                        (_K9794198027_)
                        (_try-match9792598022_))))
                 (_try-match9792398038_
                  (lambda ()
                    (if (std/parser/rlang#@eps? _L9792197945_)
                        (_K9794298035_)
                        (_try-match9792498030_)))))
            (if (std/parser/rlang#@nul? _L9792197945_)
                (_K9794398042_)
                (_try-match9792398038_)))))))
  (define std/parser/rlang#recognizes?
    (lambda (_L97884_ _chars97885_)
      (let* ((_chars9788697894_ _chars97885_)
             (_else9788897902_ (lambda () (std/parser/rlang#delta _L97884_)))
             (_K9789097908_
              (lambda (_rest97905_ _char97906_)
                (std/parser/rlang#recognizes?
                 (std/parser/rlang#deriv _L97884_ _char97906_)
                 _rest97905_))))
        (if (##pair? _chars9788697894_)
            (let ((_hd9789197911_ (##car _chars9788697894_))
                  (_tl9789297913_ (##cdr _chars9788697894_)))
              (let* ((_char97916_ _hd9789197911_) (_rest97918_ _tl9789297913_))
                (_K9789097908_ _rest97918_ _char97916_)))
            (_else9788897902_))))))
