(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define gerbil/compiler/optimize-ann::timestamp 1713631271)
  (begin
    (declare (inlining-limit 200))
    (define gxc#::optimize-annotated::t
      (let ((__tmp192243 (list gxc#::basic-xform::t))
            (__tmp192242 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::optimize-annotated::t
         '::optimize-annotated
         __tmp192243
         '()
         __tmp192242
         '#f)))
    (define gxc#::optimize-annotated?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::optimize-annotated::t)))
    (define gxc#make-::optimize-annotated
      (lambda _%$args189128%_
        (apply make-instance gxc#::optimize-annotated::t _%$args189128%_)))
    (define gxc#::optimize-annotated-bind-methods!
      (let ((__tmp192244
             (lambda ()
               (force gxc#::basic-xform-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::optimize-annotated::t
                  '%#begin-annotation
                  gxc#optimize-annotation%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::optimize-annotated::t)))))
        (declare (not safe))
        (__make-promise __tmp192244)))
    (define gxc#apply-optimize-annotated
      (lambda (_%stx189120%_)
        (force gxc#::optimize-annotated-bind-methods!)
        (let* ((_%self189123%_
                (let ((__obj192234
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::optimize-annotated::t))))
                  __obj192234))
               (__tmp192245
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self189123%_ _%stx189120%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp192245
           gxc#current-compile-method
           _%self189123%_))))
    (define gxc#::generate-runtime-repr::t
      (let ((__tmp192247 (list gxc#::generate-runtime::t))
            (__tmp192246 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::generate-runtime-repr::t
         '::generate-runtime-repr
         __tmp192247
         '()
         __tmp192246
         '#f)))
    (define gxc#::generate-runtime-repr?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::generate-runtime-repr::t)))
    (define gxc#make-::generate-runtime-repr
      (lambda _%$args189117%_
        (apply make-instance gxc#::generate-runtime-repr::t _%$args189117%_)))
    (define gxc#::generate-runtime-repr-bind-methods!
      (let ((__tmp192248
             (lambda ()
               (force gxc#::generate-runtime-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::generate-runtime-repr::t
                  '%#quote-syntax
                  gxc#identity-method))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::generate-runtime-repr::t)))))
        (declare (not safe))
        (__make-promise __tmp192248)))
    (define gxc#apply-generate-runtime-repr
      (lambda (_%stx189109%_)
        (force gxc#::generate-runtime-repr-bind-methods!)
        (let* ((_%self189112%_
                (let ((__obj192236
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::generate-runtime-repr::t))))
                  __obj192236))
               (__tmp192249
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self189112%_ _%stx189109%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp192249
           gxc#current-compile-method
           _%self189112%_))))
    (define gxc#::push-match-vars::t
      (let ((__tmp192251 (list)) (__tmp192250 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::push-match-vars::t
         '::push-match-vars
         __tmp192251
         '(vars K)
         __tmp192250
         '#f)))
    (define gxc#::push-match-vars?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::push-match-vars::t)))
    (define gxc#make-::push-match-vars
      (lambda _%$args189106%_
        (apply make-instance gxc#::push-match-vars::t _%$args189106%_)))
    (define gxc#::push-match-vars-vars
      (let ()
        (declare (not safe))
        (__make-class-slot-accessor gxc#::push-match-vars::t 'vars)))
    (define gxc#::push-match-vars-K
      (let ()
        (declare (not safe))
        (__make-class-slot-accessor gxc#::push-match-vars::t 'K)))
    (define gxc#::push-match-vars-vars-set!
      (let ()
        (declare (not safe))
        (__make-class-slot-mutator gxc#::push-match-vars::t 'vars)))
    (define gxc#::push-match-vars-K-set!
      (let ()
        (declare (not safe))
        (__make-class-slot-mutator gxc#::push-match-vars::t 'K)))
    (define gxc#&::push-match-vars-vars
      (let ()
        (declare (not safe))
        (__make-class-slot-unchecked-accessor gxc#::push-match-vars::t 'vars)))
    (define gxc#&::push-match-vars-K
      (let ()
        (declare (not safe))
        (__make-class-slot-unchecked-accessor gxc#::push-match-vars::t 'K)))
    (define gxc#&::push-match-vars-vars-set!
      (let ()
        (declare (not safe))
        (__make-class-slot-unchecked-mutator gxc#::push-match-vars::t 'vars)))
    (define gxc#&::push-match-vars-K-set!
      (let ()
        (declare (not safe))
        (__make-class-slot-unchecked-mutator gxc#::push-match-vars::t 'K)))
    (define gxc#::push-match-vars-bind-methods!
      (let ((__tmp192252
             (lambda ()
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#lambda
                  gxc#xform-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#let-values
                  gxc#push-match-vars-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#letrec-values
                  gxc#push-match-vars-stop))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#if
                  gxc#push-match-vars-if%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#call
                  gxc#push-match-vars-call%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::push-match-vars::t
                  '%#begin-annotation
                  gxc#push-match-vars-stop))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::push-match-vars::t)))))
        (declare (not safe))
        (__make-promise __tmp192252)))
    (define gxc#apply-push-match-vars__%
      (lambda (_%@@keywords189076%_
               _%vars189072189077%_
               _%K189073189079%_
               _%stx189081%_)
        (let* ((_%vars189084%_
                (if (eq? _%vars189072189077%_ absent-value)
                    (let ()
                      (declare (not safe))
                      (error '"Missing required keyword argument" 'vars:))
                    _%vars189072189077%_))
               (_%K189086%_
                (if (eq? _%K189073189079%_ absent-value)
                    (let ()
                      (declare (not safe))
                      (error '"Missing required keyword argument" 'K:))
                    _%K189073189079%_)))
          (force gxc#::push-match-vars-bind-methods!)
          (let* ((_%self189088%_
                  (let ((__obj192238
                         (let ()
                           (declare (not safe))
                           (##structure gxc#::push-match-vars::t '#f '#f))))
                    (let ()
                      (declare (not safe))
                      (##unchecked-structure-set!
                       __obj192238
                       _%vars189084%_
                       '1
                       '#f
                       '#f))
                    (let ()
                      (declare (not safe))
                      (##unchecked-structure-set!
                       __obj192238
                       _%K189086%_
                       '2
                       '#f
                       '#f))
                    __obj192238))
                 (__tmp192253
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gxc#compile-e__1 _%self189088%_ _%stx189081%_)))))
            (declare (not safe))
            (__call-with-parameters
             __tmp192253
             gxc#current-compile-method
             _%self189088%_)))))
    (define gxc#apply-push-match-vars__@
      (lambda (_%@@keywords189095%_ . _%args189096%_)
        (apply gxc#apply-push-match-vars__%
               _%@@keywords189095%_
               (let ()
                 (declare (not safe))
                 (symbolic-table-ref _%@@keywords189095%_ 'vars: absent-value))
               (let ()
                 (declare (not safe))
                 (symbolic-table-ref _%@@keywords189095%_ 'K: absent-value))
               _%args189096%_)))
    (define gxc#apply-push-match-vars
      (lambda _%args189074189102%_
        (apply keyword-dispatch
               '#(K: vars:)
               gxc#apply-push-match-vars__@
               _%args189074189102%_)))
    (define gxc#current-annotation-optimizer (make-parameter '()))
    (define gxc#optimize-annotation%
      (lambda (_%self188988%_ _%stx188989%_)
        (let* ((_%__stx189144189145%_ _%stx188989%_)
               (_%g188992189009%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx189144189145%_)))))
          (let ((_%__kont189146189147%_
                 (lambda (_%L189045%_ _%L189046%_)
                   (let ((_%ann189062%_
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%L189046%_))))
                     (let ((__tmp192255
                            (lambda ()
                              (let ((_%$e189065%_ _%ann189062%_))
                                (if (eq? '@match _%$e189065%_)
                                    (begin
                                      (let ()
                                        (declare (not safe))
                                        (gxc#verbose
                                         '"Optimizing match expansion"))
                                      (gxc#optimize-match _%L189045%_))
                                    (if (eq? '@syntax-case _%$e189065%_)
                                        (begin
                                          (let ()
                                            (declare (not safe))
                                            (gxc#verbose
                                             '"Optimizing syntax-case expansion"))
                                          (gxc#optimize-syntax-case
                                           _%L189045%_))
                                        (let ()
                                          (declare (not safe))
                                          (gxc#compile-e__0 _%L189045%_)))))))
                           (__tmp192254
                            (cons _%ann189062%_
                                  (let ()
                                    (declare (not safe))
                                    (gxc#current-annotation-optimizer)))))
                       (declare (not safe))
                       (__call-with-parameters
                        __tmp192255
                        gxc#current-annotation-optimizer
                        __tmp192254)))))
                (_%__kont189148189149%_
                 (lambda ()
                   (let ()
                     (declare (not safe))
                     (gxc#xform-begin-annotation%
                      _%self188988%_
                      _%stx188989%_)))))
            (let ((_%__match189169189170%_
                   (lambda (_%e188996189021%_
                            _%hd188997189024%_
                            _%tl188998189026%_
                            _%e188999189029%_
                            _%hd189000189032%_
                            _%tl189001189034%_
                            _%e189002189037%_
                            _%hd189003189040%_
                            _%tl189004189042%_)
                     (let ((_%L189045%_ _%hd189003189040%_)
                           (_%L189046%_ _%hd189000189032%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%L189046%_))
                           (_%__kont189146189147%_ _%L189045%_ _%L189046%_)
                           (_%__kont189148189149%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx189144189145%_))
                  (let ((_%e188996189021%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx189144189145%_))))
                    (let ((_%tl188998189026%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e188996189021%_)))
                          (_%hd188997189024%_
                           (let ()
                             (declare (not safe))
                             (##car _%e188996189021%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl188998189026%_))
                          (let ((_%e188999189029%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl188998189026%_))))
                            (let ((_%tl189001189034%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e188999189029%_)))
                                  (_%hd189000189032%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e188999189029%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl189001189034%_))
                                  (let ((_%e189002189037%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl189001189034%_))))
                                    (let ((_%tl189004189042%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e189002189037%_)))
                                          (_%hd189003189040%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e189002189037%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl189004189042%_))
                                          (_%__match189169189170%_
                                           _%e188996189021%_
                                           _%hd188997189024%_
                                           _%tl188998189026%_
                                           _%e188999189029%_
                                           _%hd189000189032%_
                                           _%tl189001189034%_
                                           _%e189002189037%_
                                           _%hd189003189040%_
                                           _%tl189004189042%_)
                                          (_%__kont189148189149%_))))
                                  (_%__kont189148189149%_))))
                          (_%__kont189148189149%_))))
                  (_%__kont189148189149%_)))))))
    (define gxc#optimize-match
      (lambda (_%stx188287%_)
        (let* ((_%g188289188319%_
                (lambda (_%g188290188316%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g188290188316%_))))
               (_%g188288188985%_
                (lambda (_%g188290188322%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g188290188322%_))
                      (let ((_%e188294188324%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g188290188322%_))))
                        (let ((_%hd188295188327%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e188294188324%_)))
                              (_%tl188296188329%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e188294188324%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd188295188327%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq?
                                     '%#let-values
                                     _%hd188295188327%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl188296188329%_))
                                      (let ((_%e188297188332%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl188296188329%_))))
                                        (let ((_%hd188298188335%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e188297188332%_)))
                                              (_%tl188299188337%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e188297188332%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd188298188335%_))
                                              (let ((_%e188300188340%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd188298188335%_))))
                                                (let ((_%hd188301188343%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e188300188340%_)))
                                                      (_%tl188302188345%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e188300188340%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd188301188343%_))
                                                      (let ((_%e188303188348%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd188301188343%_))))
                (let ((_%hd188304188351%_
                       (let () (declare (not safe)) (##car _%e188303188348%_)))
                      (_%tl188305188353%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e188303188348%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd188304188351%_))
                      (let ((_%e188306188356%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd188304188351%_))))
                        (let ((_%hd188307188359%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e188306188356%_)))
                              (_%tl188308188361%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e188306188356%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl188308188361%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl188305188353%_))
                                  (let ((_%e188309188364%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl188305188353%_))))
                                    (let ((_%hd188310188367%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e188309188364%_)))
                                          (_%tl188311188369%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e188309188364%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl188311188369%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl188302188345%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl188299188337%_))
                                                  (let ((_%e188312188372%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl188299188337%_))))
                                                    (let ((_%hd188313188375%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e188312188372%_)))
                                                          (_%tl188314188377%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e188312188372%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl188314188377%_))
                                                          ((lambda (_%L188380%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            _%L188381%_
                            _%L188382%_)
                     (let _%lp188406%_ ((_%body188408%_ _%L188380%_)
                                        (_%negation188409%_
                                         (cons _%L188382%_ _%L188381%_))
                                        (_%clauses188410%_ '())
                                        (_%konts188411%_ '()))
                       (let* ((_%__stx189352189353%_ _%body188408%_)
                              (_%g188414188454%_
                               (lambda ()
                                 (let ()
                                   (declare (not safe))
                                   (gx#raise-syntax-error
                                    '#f
                                    '"Bad syntax; invalid match target"
                                    _%__stx189352189353%_)))))
                         (let ((_%__kont189354189355%_
                                (lambda (_%L188784%_)
                                  (let* ((_%__stx189288189289%_ _%L188784%_)
                                         (_%g188798188828%_
                                          (lambda ()
                                            (let ()
                                              (declare (not safe))
                                              (gx#raise-syntax-error
                                               '#f
                                               '"Bad syntax; invalid match target"
                                               _%__stx189288189289%_)))))
                                    (let ((_%__kont189290189291%_
                                           (lambda (_%L188924%_
                                                    _%L188925%_
                                                    _%L188926%_)
                                             (if (null? _%clauses188410%_)
                                                 (let* ((_%negation188950188957%_
                                                         _%negation188409%_)
                                                        (_%E188952188961%_
                                                         (lambda ()
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (error '"No clause matching"
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            _%negation188950188957%_
                            '([E . negate])))
                   '#!void))
                (_%K188953188967%_
                 (lambda (_%negate188964%_ _%E188965%_)
                   (let ((__tmp192256
                          (cons '%#let-values
                                (cons (cons (cons (cons _%E188965%_ '())
                                                  (cons _%negate188964%_ '()))
                                            '())
                                      (cons (cons '%#let-values
                                                  (cons (cons (cons (cons _%L188926%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                  '())
                            (cons (let ()
                                    (declare (not safe))
                                    (gxc#compile-e__0 _%L188925%_))
                                  '()))
                      '())
                (cons _%L188924%_ '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            '())))))
                     (declare (not safe))
                     (gxc#xform-wrap-source __tmp192256 _%stx188287%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (pair? _%negation188950188957%_)
                                                       (let ((_%hd188954188970%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##car _%negation188950188957%_)))
                     (_%tl188955188972%_
                      (let ()
                        (declare (not safe))
                        (##cdr _%negation188950188957%_))))
                 (let* ((_%E188975%_ _%hd188954188970%_)
                        (_%negate188977%_ _%tl188955188972%_))
                   (_%K188953188967%_ _%negate188977%_ _%E188975%_)))
               (_%E188952188961%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (gxc#optimize-match-body
                                                  _%stx188287%_
                                                  _%negation188409%_
                                                  (cons (cons '#f
                                                              (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (declare (not safe))
                              (gx#datum->syntax__0 '#f '%#lambda))
                            (cons '() (cons _%L188924%_ '()))))
                _%clauses188410%_)
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (cons (cons _%L188926%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gxc#compile-e__0 _%L188925%_)))
                _%konts188411%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_%__kont189292189293%_
                                           (lambda ()
                                             (let* ((_%negation188834188841%_
                                                     _%negation188409%_)
                                                    (_%E188836188845%_
                                                     (lambda ()
                                                       (let ()
                                                         (declare (not safe))
                                                         (error '"No clause matching"
                                                                _%negation188834188841%_
                                                                '([E
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           .
                           negate])))
               '#!void))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%K188837188851%_
                                                     (lambda (_%negate188848%_
                                                              _%E188849%_)
                                                       (let ((__tmp192257
                                                              (cons '%#let-values
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons (cons (cons (cons _%E188849%_ '())
                                              (cons _%negate188848%_ '()))
                                        '())
                                  (cons _%L188784%_ '())))))
                 (declare (not safe))
                 (gxc#xform-wrap-source __tmp192257 _%stx188287%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (if (pair? _%negation188834188841%_)
                                                   (let ((_%hd188838188854%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%negation188834188841%_)))
                                                         (_%tl188839188856%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%negation188834188841%_))))
                                                     (let* ((_%E188859%_
                                                             _%hd188838188854%_)
                                                            (_%negate188861%_
                                                             _%tl188839188856%_))
                                                       (_%K188837188851%_
                                                        _%negate188861%_
                                                        _%E188859%_)))
                                                   (_%E188836188845%_))))))
                                      (let ((_%g188797188863%_
                                             (lambda ()
                                               (if (null? _%clauses188410%_)
                                                   (_%__kont189292189293%_)
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g188798188828%_))))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%__stx189288189289%_))
                                            (let ((_%e188803188868%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%__stx189288189289%_))))
                                              (let ((_%tl188805188873%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e188803188868%_)))
                                                    (_%hd188804188871%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e188803188868%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#identifier?
                                                       _%hd188804188871%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-eq?
                                                           '%#let-values
                                                           _%hd188804188871%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair?
                                                               _%tl188805188873%_))
                                                            (let ((_%e188806188876%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl188805188873%_))))
                      (let ((_%tl188808188881%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e188806188876%_)))
                            (_%hd188807188879%_
                             (let ()
                               (declare (not safe))
                               (##car _%e188806188876%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%hd188807188879%_))
                            (let ((_%e188809188884%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%hd188807188879%_))))
                              (let ((_%tl188811188889%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e188809188884%_)))
                                    (_%hd188810188887%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e188809188884%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd188810188887%_))
                                    (let ((_%e188812188892%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd188810188887%_))))
                                      (let ((_%tl188814188897%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e188812188892%_)))
                                            (_%hd188813188895%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e188812188892%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%hd188813188895%_))
                                            (let ((_%e188815188900%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%hd188813188895%_))))
                                              (let ((_%tl188817188905%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e188815188900%_)))
                                                    (_%hd188816188903%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e188815188900%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl188817188905%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl188814188897%_))
                                                        (let ((_%e188818188908%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl188814188897%_))))
                  (let ((_%tl188820188913%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e188818188908%_)))
                        (_%hd188819188911%_
                         (let ()
                           (declare (not safe))
                           (##car _%e188818188908%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl188820188913%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl188811188889%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl188808188881%_))
                                (let ((_%e188821188916%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl188808188881%_))))
                                  (let ((_%tl188823188921%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e188821188916%_)))
                                        (_%hd188822188919%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e188821188916%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl188823188921%_))
                                        (_%__kont189290189291%_
                                         _%hd188822188919%_
                                         _%hd188819188911%_
                                         _%hd188816188903%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g188797188863%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g188797188863%_)))
                            (let () (declare (not safe)) (_%g188797188863%_)))
                        (let () (declare (not safe)) (_%g188797188863%_)))))
                (let () (declare (not safe)) (_%g188797188863%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g188797188863%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g188797188863%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g188797188863%_)))))
                            (let ()
                              (declare (not safe))
                              (_%g188797188863%_)))))
                    (let () (declare (not safe)) (_%g188797188863%_)))
                (let () (declare (not safe)) (_%g188797188863%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g188797188863%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g188797188863%_))))))))
                               (_%__kont189356189357%_
                                (lambda (_%L188515%_ _%L188516%_ _%L188517%_)
                                  (let* ((_%__stx189172189173%_ _%L188516%_)
                                         (_%g188544188593%_
                                          (lambda ()
                                            (let ()
                                              (declare (not safe))
                                              (gx#raise-syntax-error
                                               '#f
                                               '"Bad syntax; invalid match target"
                                               _%__stx189172189173%_)))))
                                    (let ((_%__kont189174189175%_
                                           (lambda (_%L188721%_
                                                    _%L188722%_
                                                    _%L188723%_)
                                             (_%lp188406%_
                                              _%L188515%_
                                              _%negation188409%_
                                              (cons (cons _%L188517%_
                                                          (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#datum->syntax__0 '#f '%#lambda))
                        (cons '() (cons _%L188721%_ '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    _%clauses188410%_)
                                              (cons (cons _%L188723%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gxc#compile-e__0
                                                             _%L188722%_)))
                                                    _%konts188411%_))))
                                          (_%__kont189176189177%_
                                           (lambda (_%L188622%_)
                                             (_%lp188406%_
                                              _%L188515%_
                                              (cons _%L188517%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__0
                                                       _%L188622%_)))
                                              _%clauses188410%_
                                              _%konts188411%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair?
                                             _%__stx189172189173%_))
                                          (let ((_%e188549188641%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%__stx189172189173%_))))
                                            (let ((_%tl188551188646%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e188549188641%_)))
                                                  (_%hd188550188644%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e188549188641%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#identifier?
                                                     _%hd188550188644%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#lambda
                                                         _%hd188550188644%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl188551188646%_))
                                                          (let ((_%e188552188649%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl188551188646%_))))
                    (let ((_%tl188554188654%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e188552188649%_)))
                          (_%hd188553188652%_
                           (let ()
                             (declare (not safe))
                             (##car _%e188552188649%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%hd188553188652%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl188554188654%_))
                              (let ((_%e188555188657%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl188554188654%_))))
                                (let ((_%tl188557188662%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e188555188657%_)))
                                      (_%hd188556188660%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e188555188657%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd188556188660%_))
                                      (let ((_%e188558188665%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd188556188660%_))))
                                        (let ((_%tl188560188670%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e188558188665%_)))
                                              (_%hd188559188668%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e188558188665%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#identifier?
                                                 _%hd188559188668%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#let-values
                                                     _%hd188559188668%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl188560188670%_))
                                                      (let ((_%e188561188673%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl188560188670%_))))
                (let ((_%tl188563188678%_
                       (let () (declare (not safe)) (##cdr _%e188561188673%_)))
                      (_%hd188562188676%_
                       (let ()
                         (declare (not safe))
                         (##car _%e188561188673%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd188562188676%_))
                      (let ((_%e188564188681%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd188562188676%_))))
                        (let ((_%tl188566188686%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e188564188681%_)))
                              (_%hd188565188684%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e188564188681%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd188565188684%_))
                              (let ((_%e188567188689%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd188565188684%_))))
                                (let ((_%tl188569188694%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e188567188689%_)))
                                      (_%hd188568188692%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e188567188689%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd188568188692%_))
                                      (let ((_%e188570188697%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd188568188692%_))))
                                        (let ((_%tl188572188702%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e188570188697%_)))
                                              (_%hd188571188700%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e188570188697%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl188572188702%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl188569188694%_))
                                                  (let ((_%e188573188705%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl188569188694%_))))
                                                    (let ((_%tl188575188710%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e188573188705%_)))
                                                          (_%hd188574188708%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e188573188705%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl188575188710%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl188566188686%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl188563188678%_))
                          (let ((_%e188576188713%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl188563188678%_))))
                            (let ((_%tl188578188718%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e188576188713%_)))
                                  (_%hd188577188716%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e188576188713%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl188578188718%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl188557188662%_))
                                      (_%__kont189174189175%_
                                       _%hd188577188716%_
                                       _%hd188574188708%_
                                       _%hd188571188700%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g188544188593%_)))
                                  (let ()
                                    (declare (not safe))
                                    (_%g188544188593%_)))))
                          (let () (declare (not safe)) (_%g188544188593%_)))
                      (let () (declare (not safe)) (_%g188544188593%_)))
                  (let () (declare (not safe)) (_%g188544188593%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g188544188593%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g188544188593%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g188544188593%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g188544188593%_)))))
                      (let () (declare (not safe)) (_%g188544188593%_)))))
              (let () (declare (not safe)) (_%g188544188593%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g188544188593%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g188544188593%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g188544188593%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g188544188593%_)))
                          (let () (declare (not safe)) (_%g188544188593%_)))))
                  (let () (declare (not safe)) (_%g188544188593%_)))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-eq? '%#begin-annotation _%hd188550188644%_))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl188551188646%_))
                      (let ((_%e188583188606%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl188551188646%_))))
                        (let ((_%tl188585188611%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e188583188606%_)))
                              (_%hd188584188609%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e188583188606%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd188584188609%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq?
                                     '@match-else
                                     _%hd188584188609%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl188585188611%_))
                                      (let ((_%e188586188614%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl188585188611%_))))
                                        (let ((_%tl188588188619%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e188586188614%_)))
                                              (_%hd188587188617%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e188586188614%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl188588188619%_))
                                              (_%__kont189176189177%_
                                               _%hd188587188617%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g188544188593%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g188544188593%_)))
                                  (let ()
                                    (declare (not safe))
                                    (_%g188544188593%_)))
                              (let ()
                                (declare (not safe))
                                (_%g188544188593%_)))))
                      (let () (declare (not safe)) (_%g188544188593%_)))
                  (let () (declare (not safe)) (_%g188544188593%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g188544188593%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g188544188593%_))))))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%__stx189352189353%_))
                               (let ((_%e188417188760%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%__stx189352189353%_))))
                                 (let ((_%tl188419188765%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e188417188760%_)))
                                       (_%hd188418188763%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e188417188760%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%hd188418188763%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-eq?
                                              '%#begin-annotation
                                              _%hd188418188763%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl188419188765%_))
                                               (let ((_%e188420188768%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl188419188765%_))))
                                                 (let ((_%tl188422188773%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e188420188768%_)))
                                                       (_%hd188421188771%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e188420188768%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#identifier?
                                                          _%hd188421188771%_))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-eq?
                                                              '@match-body
                                                              _%hd188421188771%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl188422188773%_))
                       (let ((_%e188423188776%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl188422188773%_))))
                         (let ((_%tl188425188781%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e188423188776%_)))
                               (_%hd188424188779%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e188423188776%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl188425188781%_))
                               (_%__kont189354189355%_ _%hd188424188779%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g188414188454%_)))))
                       (let () (declare (not safe)) (_%g188414188454%_)))
                   (let () (declare (not safe)) (_%g188414188454%_)))
               (let () (declare (not safe)) (_%g188414188454%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g188414188454%_)))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-eq?
                                                  '%#let-values
                                                  _%hd188418188763%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl188419188765%_))
                                                   (let ((_%e188432188467%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl188419188765%_))))
                                                     (let ((_%tl188434188472%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e188432188467%_)))
                                                           (_%hd188433188470%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e188432188467%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd188433188470%_))
                                                           (let ((_%e188435188475%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd188433188470%_))))
                     (let ((_%tl188437188480%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e188435188475%_)))
                           (_%hd188436188478%_
                            (let ()
                              (declare (not safe))
                              (##car _%e188435188475%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd188436188478%_))
                           (let ((_%e188438188483%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd188436188478%_))))
                             (let ((_%tl188440188488%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e188438188483%_)))
                                   (_%hd188439188486%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e188438188483%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%hd188439188486%_))
                                   (let ((_%e188441188491%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%hd188439188486%_))))
                                     (let ((_%tl188443188496%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e188441188491%_)))
                                           (_%hd188442188494%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e188441188491%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl188443188496%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl188440188488%_))
                                               (let ((_%e188444188499%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl188440188488%_))))
                                                 (let ((_%tl188446188504%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e188444188499%_)))
                                                       (_%hd188445188502%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e188444188499%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl188446188504%_))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl188437188480%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl188434188472%_))
                       (let ((_%e188447188507%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl188434188472%_))))
                         (let ((_%tl188449188512%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e188447188507%_)))
                               (_%hd188448188510%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e188447188507%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl188449188512%_))
                               (_%__kont189356189357%_
                                _%hd188448188510%_
                                _%hd188445188502%_
                                _%hd188442188494%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g188414188454%_)))))
                       (let () (declare (not safe)) (_%g188414188454%_)))
                   (let () (declare (not safe)) (_%g188414188454%_)))
               (let () (declare (not safe)) (_%g188414188454%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g188414188454%_)))
                                           (let ()
                                             (declare (not safe))
                                             (_%g188414188454%_)))))
                                   (let ()
                                     (declare (not safe))
                                     (_%g188414188454%_)))))
                           (let () (declare (not safe)) (_%g188414188454%_)))))
                   (let () (declare (not safe)) (_%g188414188454%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g188414188454%_)))
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g188414188454%_))))
                                       (let ()
                                         (declare (not safe))
                                         (_%g188414188454%_)))))
                               (let ()
                                 (declare (not safe))
                                 (_%g188414188454%_)))))))
                   _%hd188313188375%_
                   _%hd188310188367%_
                   _%hd188307188359%_)
                  (_%g188289188319%_ _%g188290188322%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g188289188319%_
                                                   _%g188290188322%_))
                                              (_%g188289188319%_
                                               _%g188290188322%_))
                                          (_%g188289188319%_
                                           _%g188290188322%_))))
                                  (_%g188289188319%_ _%g188290188322%_))
                              (_%g188289188319%_ _%g188290188322%_))))
                      (_%g188289188319%_ _%g188290188322%_))))
              (_%g188289188319%_ _%g188290188322%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g188289188319%_
                                               _%g188290188322%_))))
                                      (_%g188289188319%_ _%g188290188322%_))
                                  (_%g188289188319%_ _%g188290188322%_))
                              (_%g188289188319%_ _%g188290188322%_))))
                      (_%g188289188319%_ _%g188290188322%_)))))
          (_%g188288188985%_ _%stx188287%_))))
    (define gxc#optimize-match-body
      (lambda (_%stx187993%_
               _%negation187994%_
               _%clauses187995%_
               _%konts187996%_)
        (letrec ((_%push-variables187998%_
                  (lambda (_%clause188245%_ _%kont188246%_)
                    (let ((_%clause188247188257%_ _%clause188245%_)
                          (_%kont188248188259%_ _%kont188246%_))
                      (let* ((_%E188250188263%_
                              (lambda ()
                                (let ()
                                  (declare (not safe))
                                  (error '"No clause matching"
                                         _%clause188247188257%_
                                         _%kont188248188259%_
                                         '([clause-name . clause-lambda]
                                           [K . _])))
                                '#!void))
                             (_%K188251188270%_
                              (lambda (_%clause-lambda188266%_
                                       _%clause-name188267%_
                                       _%K188268%_)
                                (cons _%clause-name188267%_
                                      (gxc#apply-push-match-vars__%
                                       '#f
                                       '()
                                       _%K188268%_
                                       _%clause-lambda188266%_)))))
                        (if (pair? _%clause188247188257%_)
                            (let ((_%hd188254188273%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%clause188247188257%_)))
                                  (_%tl188255188275%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%clause188247188257%_))))
                              (let* ((_%clause-name188278%_ _%hd188254188273%_)
                                     (_%clause-lambda188280%_
                                      _%tl188255188275%_))
                                (if (pair? _%kont188248188259%_)
                                    (let* ((_%hd188252188282%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%kont188248188259%_)))
                                           (_%K188285%_ _%hd188252188282%_))
                                      (_%K188251188270%_
                                       _%clause-lambda188280%_
                                       _%clause-name188278%_
                                       _%K188285%_))
                                    (_%E188250188263%_))))
                            (_%E188250188263%_))))))
                 (_%start-match187999%_
                  (lambda (_%kont188179%_)
                    (let* ((_%g188181188197%_
                            (lambda (_%g188182188194%_)
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%g188182188194%_))))
                           (_%g188180188242%_
                            (lambda (_%g188182188200%_)
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%g188182188200%_))
                                  (let ((_%e188184188202%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%g188182188200%_))))
                                    (let ((_%hd188185188205%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e188184188202%_)))
                                          (_%tl188186188207%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e188184188202%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd188185188205%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#lambda
                                                 _%hd188185188205%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl188186188207%_))
                                                  (let ((_%e188187188210%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl188186188207%_))))
                                                    (let ((_%hd188188188213%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e188187188210%_)))
                                                          (_%tl188189188215%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e188187188210%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%hd188188188213%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl188189188215%_))
                      (let ((_%e188190188218%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl188189188215%_))))
                        (let ((_%hd188191188221%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e188190188218%_)))
                              (_%tl188192188223%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e188190188218%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl188192188223%_))
                              ((lambda (_%L188226%_) _%L188226%_)
                               _%hd188191188221%_)
                              (_%g188181188197%_ _%g188182188200%_))))
                      (_%g188181188197%_ _%g188182188200%_))
                  (_%g188181188197%_ _%g188182188200%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g188181188197%_
                                                   _%g188182188200%_))
                                              (_%g188181188197%_
                                               _%g188182188200%_))
                                          (_%g188181188197%_
                                           _%g188182188200%_))))
                                  (_%g188181188197%_ _%g188182188200%_)))))
                      (_%g188180188242%_ _%kont188179%_))))
                 (_%match-body188000%_
                  (lambda (_%blocks188076%_)
                    (let* ((_%blocks188077188086%_ _%blocks188076%_)
                           (_%E188079188090%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (error '"No clause matching"
                                       _%blocks188077188086%_
                                       '([[#f . start] . rest])))
                              '#!void))
                           (_%K188080188162%_
                            (lambda (_%rest188093%_ _%start188094%_)
                              (let _%lp188096%_ ((_%rest188098%_
                                                  _%rest188093%_)
                                                 (_%body188099%_
                                                  (_%start-match187999%_
                                                   _%start188094%_)))
                                (let* ((_%rest188100188108%_ _%rest188098%_)
                                       (_%else188102188116%_
                                        (lambda () _%body188099%_))
                                       (_%K188104188150%_
                                        (lambda (_%rest188119%_
                                                 _%block188120%_)
                                          (let* ((_%block188121188128%_
                                                  _%block188120%_)
                                                 (_%E188123188132%_
                                                  (lambda ()
                                                    (let ()
                                                      (declare (not safe))
                                                      (error '"No clause matching"
                                                             _%block188121188128%_
                                                             '([K . kont])))
                                                    '#!void))
                                                 (_%K188124188138%_
                                                  (lambda (_%kont188135%_
                                                           _%K188136%_)
                                                    (_%lp188096%_
                                                     _%rest188119%_
                                                     (cons '%#let-values
                                                           (cons (cons (cons (cons _%K188136%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                           '())
                                     (cons _%kont188135%_ '()))
                               '())
                         (cons _%body188099%_ '())))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (if (pair? _%block188121188128%_)
                                                (let ((_%hd188125188141%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%block188121188128%_)))
                                                      (_%tl188126188143%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%block188121188128%_))))
                                                  (let* ((_%K188146%_
                                                          _%hd188125188141%_)
                                                         (_%kont188148%_
                                                          _%tl188126188143%_))
                                                    (_%K188124188138%_
                                                     _%kont188148%_
                                                     _%K188146%_)))
                                                (_%E188123188132%_))))))
                                  (if (pair? _%rest188100188108%_)
                                      (let ((_%hd188105188153%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%rest188100188108%_)))
                                            (_%tl188106188155%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%rest188100188108%_))))
                                        (let* ((_%block188158%_
                                                _%hd188105188153%_)
                                               (_%rest188160%_
                                                _%tl188106188155%_))
                                          (_%K188104188150%_
                                           _%rest188160%_
                                           _%block188158%_)))
                                      (_%else188102188116%_)))))))
                      (if (pair? _%blocks188077188086%_)
                          (let ((_%hd188081188165%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%blocks188077188086%_)))
                                (_%tl188082188167%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%blocks188077188086%_))))
                            (if (pair? _%hd188081188165%_)
                                (let ((_%hd188083188170%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%hd188081188165%_)))
                                      (_%tl188084188172%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%hd188081188165%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (##eq? _%hd188083188170%_ '#f))
                                      (let* ((_%start188175%_
                                              _%tl188084188172%_)
                                             (_%rest188177%_
                                              _%tl188082188167%_))
                                        (_%K188080188162%_
                                         _%rest188177%_
                                         _%start188175%_))
                                      (_%E188079188090%_)))
                                (_%E188079188090%_)))
                          (_%E188079188090%_))))))
          (let ((__tmp192259
                 (lambda ()
                   (let* ((_%clauses188003%_
                           (map _%push-variables187998%_
                                _%clauses187995%_
                                _%konts187996%_))
                          (_%blocks188005%_
                           (gxc#optimize-match-basic-blocks _%clauses188003%_))
                          (_%blocks188007%_
                           (gxc#optimize-match-fold-basic-blocks
                            _%blocks188005%_))
                          (_%body188009%_
                           (_%match-body188000%_ _%blocks188007%_))
                          (_%bind188043%_
                           (map (lambda (_%e188010188012%_)
                                  (let* ((_%g188014188021%_ _%e188010188012%_)
                                         (_%E188016188025%_
                                          (lambda ()
                                            (let ()
                                              (declare (not safe))
                                              (error '"No clause matching"
                                                     _%g188014188021%_
                                                     '([K . kont])))
                                            '#!void))
                                         (_%K188017188031%_
                                          (lambda (_%kont188028%_ _%K188029%_)
                                            (cons (cons _%K188029%_ '())
                                                  (cons _%kont188028%_ '())))))
                                    (if (pair? _%g188014188021%_)
                                        (let ((_%hd188018188034%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%g188014188021%_)))
                                              (_%tl188019188036%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%g188014188021%_))))
                                          (let* ((_%K188039%_
                                                  _%hd188018188034%_)
                                                 (_%kont188041%_
                                                  _%tl188019188036%_))
                                            (_%K188017188031%_
                                             _%kont188041%_
                                             _%K188039%_)))
                                        (_%E188016188025%_))))
                                _%konts187996%_))
                          (_%negate188073%_
                           (let* ((_%negation188044188051%_ _%negation187994%_)
                                  (_%E188046188055%_
                                   (lambda ()
                                     (let ()
                                       (declare (not safe))
                                       (error '"No clause matching"
                                              _%negation188044188051%_
                                              '([K . kont])))
                                     '#!void))
                                  (_%K188047188061%_
                                   (lambda (_%kont188058%_ _%K188059%_)
                                     (cons (cons _%K188059%_ '())
                                           (cons _%kont188058%_ '())))))
                             (if (pair? _%negation188044188051%_)
                                 (let ((_%hd188048188064%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%negation188044188051%_)))
                                       (_%tl188049188066%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%negation188044188051%_))))
                                   (let* ((_%K188069%_ _%hd188048188064%_)
                                          (_%kont188071%_ _%tl188049188066%_))
                                     (_%K188047188061%_
                                      _%kont188071%_
                                      _%K188069%_)))
                                 (_%E188046188055%_))))
                          (__tmp192260
                           (cons '%#let-values
                                 (cons (cons _%negate188073%_ '())
                                       (cons (cons '%#let-values
                                                   (cons _%bind188043%_
                                                         (cons _%body188009%_
                                                               '())))
                                             '())))))
                     (declare (not safe))
                     (gxc#xform-wrap-source __tmp192260 _%stx187993%_))))
                (__tmp192258
                 (let ((__obj192239
                        (let ()
                          (declare (not safe))
                          (##structure
                           gx#local-context::t
                           '#f
                           '#f
                           '#f
                           '#f
                           '#f))))
                   (let ()
                     (declare (not safe))
                     (gx#local-context:::init!__0 __obj192239))
                   __obj192239)))
            (declare (not safe))
            (__call-with-parameters
             __tmp192259
             gx#current-expander-context
             __tmp192258)))))
    (define gxc#optimize-match-basic-blocks
      (lambda (_%clauses187953%_)
        (let _%lp187955%_ ((_%rest187957%_ _%clauses187953%_)
                           (_%blocks187958%_ '()))
          (let* ((_%rest187959187967%_ _%rest187957%_)
                 (_%else187961187975%_ (lambda () (reverse _%blocks187958%_)))
                 (_%K187963187981%_
                  (lambda (_%rest187978%_ _%clause187979%_)
                    (_%lp187955%_
                     _%rest187978%_
                     (gxc#optimize-match-lift-basic-blocks
                      _%clause187979%_
                      _%blocks187958%_)))))
            (if (pair? _%rest187959187967%_)
                (let ((_%hd187964187984%_
                       (let ()
                         (declare (not safe))
                         (##car _%rest187959187967%_)))
                      (_%tl187965187986%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%rest187959187967%_))))
                  (let* ((_%clause187989%_ _%hd187964187984%_)
                         (_%rest187991%_ _%tl187965187986%_))
                    (_%K187963187981%_ _%rest187991%_ _%clause187989%_)))
                (_%else187961187975%_))))))
    (define gxc#optimize-match-lift-basic-blocks
      (lambda (_%clause187296%_ _%blocks187297%_)
        (letrec ((_%bind->args187299%_
                  (lambda (_%bind187948%_)
                    (let ((__tmp192261
                           (lambda (_%b187950%_ _%r187951%_)
                             (cons (cons '%#ref (cons (car _%b187950%_) '()))
                                   _%r187951%_))))
                      (declare (not safe))
                      (__foldl1 __tmp192261 '() _%bind187948%_))))
                 (_%create-block187300%_
                  (lambda (_%body187896%_
                           _%let-bind187897%_
                           _%bind187898%_
                           _%assert187899%_)
                    (let* ((_%id187901%_
                            (let ((__tmp192262
                                   (let ()
                                     (declare (not safe))
                                     (##gensym '__match))))
                              (declare (not safe))
                              (make-symbol__0 __tmp192262)))
                           (_%id187903%_
                            (let ()
                              (declare (not safe))
                              (gx#core-quote-syntax__0 _%id187901%_)))
                           (_%_187905%_
                            (let ()
                              (declare (not safe))
                              (gx#core-bind-runtime!__0 _%id187903%_)))
                           (_%block187907%_
                            (cons _%id187903%_
                                  (cons _%body187896%_
                                        (cons _%bind187898%_
                                              (cons _%assert187899%_ '())))))
                           (_%continue187909%_
                            (cons '%#call
                                  (cons (cons '%#ref (cons _%id187903%_ '()))
                                        (_%bind->args187299%_
                                         _%bind187898%_))))
                           (_%continue187945%_
                            (if (null? _%let-bind187897%_)
                                _%continue187909%_
                                (let ((_%locals187943%_
                                       (map (lambda (_%e187910187912%_)
                                              (let* ((_%g187914187921%_
                                                      _%e187910187912%_)
                                                     (_%E187916187925%_
                                                      (lambda ()
                                                        (let ()
                                                          (declare (not safe))
                                                          (error '"No clause matching"
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%g187914187921%_
                         '([id . expr])))
                '#!void))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%K187917187931%_
                                                      (lambda (_%expr187928%_
                                                               _%id187929%_)
                                                        (cons (cons _%id187929%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '())
                      (cons _%expr187928%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (if (pair? _%g187914187921%_)
                                                    (let ((_%hd187918187934%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%g187914187921%_)))
                                                          (_%tl187919187936%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%g187914187921%_))))
                                                      (let* ((_%id187939%_
                                                              _%hd187918187934%_)
                                                             (_%expr187941%_
                                                              _%tl187919187936%_))
                                                        (_%K187917187931%_
                                                         _%expr187941%_
                                                         _%id187939%_)))
                                                    (_%E187916187925%_))))
                                            _%let-bind187897%_)))
                                  (cons '%#let-values
                                        (cons _%locals187943%_
                                              (cons _%continue187909%_
                                                    '())))))))
                      (values _%continue187945%_ _%block187907%_))))
                 (_%basic-block187301%_
                  (lambda (_%body187482%_ _%bind187483%_ _%assert187484%_)
                    (let* ((_%__stx189460189461%_ _%body187482%_)
                           (_%g187489187573%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx189460189461%_)))))
                      (let ((_%__kont189462189463%_
                             (lambda (_%L187832%_ _%L187833%_ _%L187834%_)
                               (let ((_g192263_
                                      (_%create-block187300%_
                                       _%L187833%_
                                       '()
                                       _%bind187483%_
                                       (cons (cons _%L187834%_ '#t)
                                             _%assert187484%_))))
                                 (begin
                                   (let ((_g192264_
                                          (let ()
                                            (declare (not safe))
                                            (if (##values? _g192263_)
                                                (##vector-length _g192263_)
                                                1))))
                                     (if (not (let ()
                                                (declare (not safe))
                                                (##fx= _g192264_ 2)))
                                         (error "Context expects 2 values"
                                                _g192264_)))
                                   (let ((_%k-continue187852%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192263_ 0)))
                                         (_%k-block187853%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192263_ 1))))
                                     (let* ((_%__stx189442189443%_ _%L187832%_)
                                            (_%g187856187865%_
                                             (lambda ()
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#raise-syntax-error
                                                  '#f
                                                  '"Bad syntax; invalid match target"
                                                  _%__stx189442189443%_)))))
                                       (let ((_%__kont189444189445%_
                                              (lambda ()
                                                (values (cons '%#if
                                                              (cons _%L187834%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons _%k-continue187852%_
                                  (cons _%L187832%_ '()))))
                (cons _%k-block187853%_ '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (_%__kont189446189447%_
                                              (lambda ()
                                                (let ((_g192265_
                                                       (_%create-block187300%_
                                                        _%L187832%_
                                                        '()
                                                        _%bind187483%_
                                                        (cons (cons _%L187834%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#f)
                      _%assert187484%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (begin
                                                    (let ((_g192266_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (if (##values?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _g192265_)
                         (##vector-length _g192265_)
                         1))))
              (if (not (let () (declare (not safe)) (##fx= _g192266_ 2)))
                  (error "Context expects 2 values" _g192266_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ((_%e-continue187872%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _g192265_
                                                              0)))
                                                          (_%e-block187873%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _g192265_
                                                              1))))
                                                      (values (cons '%#if
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons _%L187834%_
                                  (cons _%k-continue187852%_
                                        (cons _%e-continue187872%_ '()))))
                      (cons _%k-block187853%_
                            (cons _%e-block187873%_ '())))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%__stx189442189443%_))
                                             (let ((_%e187858187880%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%__stx189442189443%_))))
                                               (let ((_%tl187860187885%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e187858187880%_)))
                                                     (_%hd187859187883%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e187858187880%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#identifier?
                                                        _%hd187859187883%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#call
                                                            _%hd187859187883%_))
                                                         (_%__kont189444189445%_)
                                                         (_%__kont189446189447%_))
                                                     (_%__kont189446189447%_))))
                                             (_%__kont189446189447%_)))))))))
                            (_%__kont189464189465%_
                             (lambda () (values _%body187482%_ '())))
                            (_%__kont189468189469%_
                             (lambda (_%L187661%_ _%L187662%_ _%L187663%_)
                               (let* ((_%let-bind187698%_
                                       (map cons
                                            (let ((__tmp192267
                                                   (lambda (_%g187683187686%_
                                                            _%g187684187688%_)
                                                     (cons _%g187683187686%_
                                                           _%g187684187688%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp192267
                                               '()
                                               _%L187663%_))
                                            (let ((__tmp192268
                                                   (lambda (_%g187690187693%_
                                                            _%g187691187695%_)
                                                     (cons _%g187690187693%_
                                                           _%g187691187695%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp192268
                                               '()
                                               _%L187662%_))))
                                      (_g192269_
                                       (_%create-block187300%_
                                        _%L187661%_
                                        _%let-bind187698%_
                                        (let ()
                                          (declare (not safe))
                                          (__foldl1
                                           cons
                                           _%bind187483%_
                                           _%let-bind187698%_))
                                        _%assert187484%_)))
                                 (begin
                                   (let ((_g192270_
                                          (let ()
                                            (declare (not safe))
                                            (if (##values? _g192269_)
                                                (##vector-length _g192269_)
                                                1))))
                                     (if (not (let ()
                                                (declare (not safe))
                                                (##fx= _g192270_ 2)))
                                         (error "Context expects 2 values"
                                                _g192270_)))
                                   (let ((_%continue187700%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192269_ 0)))
                                         (_%block187701%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192269_ 1))))
                                     (values _%continue187700%_
                                             (cons _%block187701%_ '())))))))
                            (_%__kont189472189473%_
                             (lambda () (values _%body187482%_ '()))))
                        (let* ((_%__match189551189552%_
                                (lambda (_%e187540187585%_
                                         _%hd187541187588%_
                                         _%tl187542187590%_
                                         _%e187543187593%_
                                         _%hd187544187596%_
                                         _%tl187545187598%_
                                         _%__splice189470189471%_
                                         _%target187546187601%_
                                         _%tl187548187603%_)
                                  (letrec ((_%loop187549187606%_
                                            (lambda (_%hd187547187609%_
                                                     _%expr187553187611%_
                                                     _%id187554187613%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd187547187609%_))
                                                  (let ((_%e187550187616%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd187547187609%_))))
                                                    (let ((_%lp-tl187552187621%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e187550187616%_)))
                                                          (_%lp-hd187551187619%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e187550187616%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%lp-hd187551187619%_))
                                                          (let ((_%e187560187624%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%lp-hd187551187619%_))))
                    (let ((_%tl187562187629%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e187560187624%_)))
                          (_%hd187561187627%_
                           (let ()
                             (declare (not safe))
                             (##car _%e187560187624%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd187561187627%_))
                          (let ((_%e187563187632%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd187561187627%_))))
                            (let ((_%tl187565187637%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e187563187632%_)))
                                  (_%hd187564187635%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e187563187632%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl187565187637%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl187562187629%_))
                                      (let ((_%e187566187640%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl187562187629%_))))
                                        (let ((_%tl187568187645%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e187566187640%_)))
                                              (_%hd187567187643%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e187566187640%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl187568187645%_))
                                              (_%loop187549187606%_
                                               _%lp-tl187552187621%_
                                               (cons _%hd187567187643%_
                                                     _%expr187553187611%_)
                                               (cons _%hd187564187635%_
                                                     _%id187554187613%_))
                                              (_%__kont189472189473%_))))
                                      (_%__kont189472189473%_))
                                  (_%__kont189472189473%_))))
                          (_%__kont189472189473%_))))
                  (_%__kont189472189473%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ((_%id187556187650%_
                                                         (reverse _%id187554187613%_))
                                                        (_%expr187555187648%_
                                                         (reverse _%expr187553187611%_)))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl187545187598%_))
                                                        (let ((_%e187557187653%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl187545187598%_))))
                  (let ((_%tl187559187658%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e187557187653%_)))
                        (_%hd187558187656%_
                         (let ()
                           (declare (not safe))
                           (##car _%e187557187653%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl187559187658%_))
                        (_%__kont189468189469%_
                         _%hd187558187656%_
                         _%expr187555187648%_
                         _%id187556187650%_)
                        (_%__kont189472189473%_))))
                (_%__kont189472189473%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                    (_%loop187549187606%_
                                     _%target187546187601%_
                                     '()
                                     '()))))
                               (_%__match189527189528%_
                                (lambda (_%e187506187709%_
                                         _%hd187507187712%_
                                         _%tl187508187714%_
                                         _%e187509187717%_
                                         _%hd187510187720%_
                                         _%tl187511187722%_
                                         _%__splice189466189467%_
                                         _%target187512187725%_
                                         _%tl187514187727%_)
                                  (letrec ((_%loop187515187730%_
                                            (lambda (_%hd187513187733%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd187513187733%_))
                                                  (let ((_%e187516187736%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd187513187733%_))))
                                                    (let ((_%lp-tl187518187741%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e187516187736%_)))
                                                          (_%lp-hd187517187739%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e187516187736%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%lp-hd187517187739%_))
                                                          (let ((_%e187522187744%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%lp-hd187517187739%_))))
                    (let ((_%tl187524187749%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e187522187744%_)))
                          (_%hd187523187747%_
                           (let ()
                             (declare (not safe))
                             (##car _%e187522187744%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd187523187747%_))
                          (let ((_%e187525187752%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd187523187747%_))))
                            (let ((_%tl187527187757%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e187525187752%_)))
                                  (_%hd187526187755%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e187525187752%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl187527187757%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl187524187749%_))
                                      (let ((_%e187528187760%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl187524187749%_))))
                                        (let ((_%tl187530187765%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e187528187760%_)))
                                              (_%hd187529187763%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e187528187760%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd187529187763%_))
                                              (let ((_%e187531187768%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd187529187763%_))))
                                                (let ((_%tl187533187773%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e187531187768%_)))
                                                      (_%hd187532187771%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e187531187768%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#identifier?
                                                         _%hd187532187771%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-eq?
                                                             '%#ref
                                                             _%hd187532187771%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl187533187773%_))
                      (let ((_%e187534187776%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl187533187773%_))))
                        (let ((_%tl187536187781%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e187534187776%_)))
                              (_%hd187535187779%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e187534187776%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl187536187781%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl187530187765%_))
                                  (_%loop187515187730%_ _%lp-tl187518187741%_)
                                  (_%__match189551189552%_
                                   _%e187506187709%_
                                   _%hd187507187712%_
                                   _%tl187508187714%_
                                   _%e187509187717%_
                                   _%hd187510187720%_
                                   _%tl187511187722%_
                                   _%__splice189466189467%_
                                   _%target187512187725%_
                                   _%tl187514187727%_))
                              (_%__match189551189552%_
                               _%e187506187709%_
                               _%hd187507187712%_
                               _%tl187508187714%_
                               _%e187509187717%_
                               _%hd187510187720%_
                               _%tl187511187722%_
                               _%__splice189466189467%_
                               _%target187512187725%_
                               _%tl187514187727%_))))
                      (_%__match189551189552%_
                       _%e187506187709%_
                       _%hd187507187712%_
                       _%tl187508187714%_
                       _%e187509187717%_
                       _%hd187510187720%_
                       _%tl187511187722%_
                       _%__splice189466189467%_
                       _%target187512187725%_
                       _%tl187514187727%_))
                  (_%__match189551189552%_
                   _%e187506187709%_
                   _%hd187507187712%_
                   _%tl187508187714%_
                   _%e187509187717%_
                   _%hd187510187720%_
                   _%tl187511187722%_
                   _%__splice189466189467%_
                   _%target187512187725%_
                   _%tl187514187727%_))
              (_%__match189551189552%_
               _%e187506187709%_
               _%hd187507187712%_
               _%tl187508187714%_
               _%e187509187717%_
               _%hd187510187720%_
               _%tl187511187722%_
               _%__splice189466189467%_
               _%target187512187725%_
               _%tl187514187727%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__match189551189552%_
                                               _%e187506187709%_
                                               _%hd187507187712%_
                                               _%tl187508187714%_
                                               _%e187509187717%_
                                               _%hd187510187720%_
                                               _%tl187511187722%_
                                               _%__splice189466189467%_
                                               _%target187512187725%_
                                               _%tl187514187727%_))))
                                      (_%__match189551189552%_
                                       _%e187506187709%_
                                       _%hd187507187712%_
                                       _%tl187508187714%_
                                       _%e187509187717%_
                                       _%hd187510187720%_
                                       _%tl187511187722%_
                                       _%__splice189466189467%_
                                       _%target187512187725%_
                                       _%tl187514187727%_))
                                  (_%__match189551189552%_
                                   _%e187506187709%_
                                   _%hd187507187712%_
                                   _%tl187508187714%_
                                   _%e187509187717%_
                                   _%hd187510187720%_
                                   _%tl187511187722%_
                                   _%__splice189466189467%_
                                   _%target187512187725%_
                                   _%tl187514187727%_))))
                          (_%__match189551189552%_
                           _%e187506187709%_
                           _%hd187507187712%_
                           _%tl187508187714%_
                           _%e187509187717%_
                           _%hd187510187720%_
                           _%tl187511187722%_
                           _%__splice189466189467%_
                           _%target187512187725%_
                           _%tl187514187727%_))))
                  (_%__match189551189552%_
                   _%e187506187709%_
                   _%hd187507187712%_
                   _%tl187508187714%_
                   _%e187509187717%_
                   _%hd187510187720%_
                   _%tl187511187722%_
                   _%__splice189466189467%_
                   _%target187512187725%_
                   _%tl187514187727%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl187511187722%_))
                                                      (let ((_%e187519187785%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl187511187722%_))))
                (let ((_%tl187521187790%_
                       (let () (declare (not safe)) (##cdr _%e187519187785%_)))
                      (_%hd187520187788%_
                       (let ()
                         (declare (not safe))
                         (##car _%e187519187785%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl187521187790%_))
                      (_%__kont189464189465%_)
                      (_%__match189551189552%_
                       _%e187506187709%_
                       _%hd187507187712%_
                       _%tl187508187714%_
                       _%e187509187717%_
                       _%hd187510187720%_
                       _%tl187511187722%_
                       _%__splice189466189467%_
                       _%target187512187725%_
                       _%tl187514187727%_))))
              (_%__match189551189552%_
               _%e187506187709%_
               _%hd187507187712%_
               _%tl187508187714%_
               _%e187509187717%_
               _%hd187510187720%_
               _%tl187511187722%_
               _%__splice189466189467%_
               _%target187512187725%_
               _%tl187514187727%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                    (_%loop187515187730%_
                                     _%target187512187725%_)))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx189460189461%_))
                              (let ((_%e187494187800%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx189460189461%_))))
                                (let ((_%tl187496187805%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e187494187800%_)))
                                      (_%hd187495187803%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e187494187800%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd187495187803%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#if
                                             _%hd187495187803%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl187496187805%_))
                                              (let ((_%e187497187808%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl187496187805%_))))
                                                (let ((_%tl187499187813%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e187497187808%_)))
                                                      (_%hd187498187811%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e187497187808%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl187499187813%_))
                                                      (let ((_%e187500187816%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl187499187813%_))))
                (let ((_%tl187502187821%_
                       (let () (declare (not safe)) (##cdr _%e187500187816%_)))
                      (_%hd187501187819%_
                       (let ()
                         (declare (not safe))
                         (##car _%e187500187816%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl187502187821%_))
                      (let ((_%e187503187824%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl187502187821%_))))
                        (let ((_%tl187505187829%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e187503187824%_)))
                              (_%hd187504187827%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e187503187824%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl187505187829%_))
                              (_%__kont189462189463%_
                               _%hd187504187827%_
                               _%hd187501187819%_
                               _%hd187498187811%_)
                              (_%__kont189472189473%_))))
                      (_%__kont189472189473%_))))
              (_%__kont189472189473%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont189472189473%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#let-values
                                                 _%hd187495187803%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl187496187805%_))
                                                  (let ((_%e187509187717%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl187496187805%_))))
                                                    (let ((_%tl187511187722%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e187509187717%_)))
                                                          (_%hd187510187720%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e187509187717%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair/null?
                                                             _%hd187510187720%_))
                                                          (let ((_%__splice189466189467%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%hd187510187720%_ '0))))
                    (let ((_%tl187514187727%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice189466189467%_ '1)))
                          (_%target187512187725%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice189466189467%_ '0))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl187514187727%_))
                          (_%__match189527189528%_
                           _%e187494187800%_
                           _%hd187495187803%_
                           _%tl187496187805%_
                           _%e187509187717%_
                           _%hd187510187720%_
                           _%tl187511187722%_
                           _%__splice189466189467%_
                           _%target187512187725%_
                           _%tl187514187727%_)
                          (_%__kont189472189473%_))))
                  (_%__kont189472189473%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont189472189473%_))
                                              (_%__kont189472189473%_)))
                                      (_%__kont189472189473%_))))
                              (_%__kont189472189473%_)))))))
                 (_%fold-blocks187302%_
                  (lambda (_%rest187401%_ _%blocks187402%_)
                    (let* ((_%rest187403187420%_ _%rest187401%_)
                           (_%E187406187424%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (error '"No clause matching"
                                       _%rest187403187420%_
                                       '([[name body bind assert] . rest])
                                       '([])))
                              '#!void)))
                      (let ((_%K187408187444%_
                             (lambda (_%rest187435%_
                                      _%assert187436%_
                                      _%bind187437%_
                                      _%body187438%_
                                      _%name187439%_)
                               (let ((_g192271_
                                      (_%basic-block187301%_
                                       _%body187438%_
                                       _%bind187437%_
                                       _%assert187436%_)))
                                 (begin
                                   (let ((_g192272_
                                          (let ()
                                            (declare (not safe))
                                            (if (##values? _g192271_)
                                                (##vector-length _g192271_)
                                                1))))
                                     (if (not (let ()
                                                (declare (not safe))
                                                (##fx= _g192272_ 2)))
                                         (error "Context expects 2 values"
                                                _g192272_)))
                                   (let ((_%body187441%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192271_ 0)))
                                         (_%body-blocks187442%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g192271_ 1))))
                                     (_%fold-blocks187302%_
                                      (let ()
                                        (declare (not safe))
                                        (__foldl1
                                         cons
                                         _%rest187435%_
                                         _%body-blocks187442%_))
                                      (cons (cons _%name187439%_
                                                  (cons 'continue:
                                                        (cons (cons '%#lambda
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons (let ((__tmp192273 (map car _%bind187437%_)))
                                    (declare (not safe))
                                    (##reverse __tmp192273))
                                  (cons _%body187441%_ '())))
                      (cons _%assert187436%_ (cons _%bind187437%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            _%blocks187402%_)))))))
                            (_%K187407187429%_ (lambda () _%blocks187402%_)))
                        (let ((_%try-match187405187432%_
                               (lambda ()
                                 (if (null? _%rest187403187420%_)
                                     (_%K187407187429%_)
                                     (_%E187406187424%_)))))
                          (if (pair? _%rest187403187420%_)
                              (let ((_%tl187410187449%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%rest187403187420%_)))
                                    (_%hd187409187447%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%rest187403187420%_))))
                                (if (pair? _%hd187409187447%_)
                                    (let ((_%tl187412187454%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%hd187409187447%_)))
                                          (_%hd187411187452%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%hd187409187447%_))))
                                      (if (pair? _%tl187412187454%_)
                                          (let ((_%tl187414187461%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%tl187412187454%_)))
                                                (_%hd187413187459%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%tl187412187454%_))))
                                            (if (pair? _%tl187414187461%_)
                                                (let ((_%tl187416187468%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%tl187414187461%_)))
                                                      (_%hd187415187466%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%tl187414187461%_))))
                                                  (if (pair? _%tl187416187468%_)
                                                      (let ((_%tl187418187475%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%tl187416187468%_)))
                    (_%hd187417187473%_
                     (let () (declare (not safe)) (##car _%tl187416187468%_))))
                (if (null? _%tl187418187475%_)
                    (let ((_%name187457%_ _%hd187411187452%_)
                          (_%body187464%_ _%hd187413187459%_)
                          (_%bind187471%_ _%hd187415187466%_)
                          (_%assert187478%_ _%hd187417187473%_)
                          (_%rest187480%_ _%tl187410187449%_))
                      (_%K187408187444%_
                       _%rest187480%_
                       _%assert187478%_
                       _%bind187471%_
                       _%body187464%_
                       _%name187457%_))
                    (_%E187406187424%_)))
              (_%E187406187424%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%E187406187424%_)))
                                          (_%E187406187424%_)))
                                    (_%E187406187424%_)))
                              (_%try-match187405187432%_))))))))
          (let* ((_%clause187303187310%_ _%clause187296%_)
                 (_%E187305187314%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (error '"No clause matching"
                             _%clause187303187310%_
                             '([name . body])))
                    '#!void))
                 (_%K187306187389%_
                  (lambda (_%body187317%_ _%name187318%_)
                    (let* ((_%g187320187336%_
                            (lambda (_%g187321187333%_)
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%g187321187333%_))))
                           (_%g187319187386%_
                            (lambda (_%g187321187339%_)
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%g187321187339%_))
                                  (let ((_%e187323187341%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%g187321187339%_))))
                                    (let ((_%hd187324187344%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e187323187341%_)))
                                          (_%tl187325187346%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e187323187341%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd187324187344%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#lambda
                                                 _%hd187324187344%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl187325187346%_))
                                                  (let ((_%e187326187349%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl187325187346%_))))
                                                    (let ((_%hd187327187352%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e187326187349%_)))
                                                          (_%tl187328187354%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e187326187349%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%hd187327187352%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl187328187354%_))
                      (let ((_%e187329187357%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl187328187354%_))))
                        (let ((_%hd187330187360%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e187329187357%_)))
                              (_%tl187331187362%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e187329187357%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl187331187362%_))
                              ((lambda (_%L187365%_)
                                 (let ((_g192274_
                                        (_%basic-block187301%_
                                         _%L187365%_
                                         '()
                                         '())))
                                   (begin
                                     (let ((_g192275_
                                            (let ()
                                              (declare (not safe))
                                              (if (##values? _g192274_)
                                                  (##vector-length _g192274_)
                                                  1))))
                                       (if (not (let ()
                                                  (declare (not safe))
                                                  (##fx= _g192275_ 2)))
                                           (error "Context expects 2 values"
                                                  _g192275_)))
                                     (let ((_%body187383%_
                                            (let ()
                                              (declare (not safe))
                                              (##vector-ref _g192274_ 0)))
                                           (_%body-blocks187384%_
                                            (let ()
                                              (declare (not safe))
                                              (##vector-ref _g192274_ 1))))
                                       (_%fold-blocks187302%_
                                        _%body-blocks187384%_
                                        (cons (cons _%name187318%_
                                                    (cons 'restart:
                                                          (cons (cons '%#lambda
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cons '() (cons _%body187383%_ '())))
                        (cons '() '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              _%blocks187297%_))))))
                               _%hd187330187360%_)
                              (_%g187320187336%_ _%g187321187339%_))))
                      (_%g187320187336%_ _%g187321187339%_))
                  (_%g187320187336%_ _%g187321187339%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g187320187336%_
                                                   _%g187321187339%_))
                                              (_%g187320187336%_
                                               _%g187321187339%_))
                                          (_%g187320187336%_
                                           _%g187321187339%_))))
                                  (_%g187320187336%_ _%g187321187339%_)))))
                      (_%g187319187386%_ _%body187317%_)))))
            (if (pair? _%clause187303187310%_)
                (let ((_%hd187307187392%_
                       (let ()
                         (declare (not safe))
                         (##car _%clause187303187310%_)))
                      (_%tl187308187394%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%clause187303187310%_))))
                  (let* ((_%name187397%_ _%hd187307187392%_)
                         (_%body187399%_ _%tl187308187394%_))
                    (_%K187306187389%_ _%body187399%_ _%name187397%_)))
                (_%E187305187314%_))))))
    (define gxc#optimize-match-fold-basic-blocks
      (lambda (_%blocks186902%_)
        (let _%lp186904%_ ((_%rest186906%_ _%blocks186902%_)
                           (_%blocks186907%_ '()))
          (let* ((_%rest186908186916%_ _%rest186906%_)
                 (_%else186910186965%_
                  (lambda ()
                    (let ((__tmp192276
                           (lambda (_%block186924%_ _%r186925%_)
                             (let* ((_%block186926186937%_ _%block186924%_)
                                    (_%E186928186941%_
                                     (lambda ()
                                       (let ()
                                         (declare (not safe))
                                         (error '"No clause matching"
                                                _%block186926186937%_
                                                '([name _ kont . _])))
                                       '#!void))
                                    (_%K186929186947%_
                                     (lambda (_%kont186944%_ _%name186945%_)
                                       (cons (cons _%name186945%_
                                                   _%kont186944%_)
                                             _%r186925%_))))
                               (if (pair? _%block186926186937%_)
                                   (let ((_%hd186930186950%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%block186926186937%_)))
                                         (_%tl186931186952%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%block186926186937%_))))
                                     (let ((_%name186955%_ _%hd186930186950%_))
                                       (if (pair? _%tl186931186952%_)
                                           (let ((_%tl186933186957%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%tl186931186952%_))))
                                             (if (pair? _%tl186933186957%_)
                                                 (let* ((_%hd186934186960%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%tl186933186957%_)))
                                                        (_%kont186963%_
                                                         _%hd186934186960%_))
                                                   (_%K186929186947%_
                                                    _%kont186963%_
                                                    _%name186955%_))
                                                 (_%E186928186941%_)))
                                           (_%E186928186941%_))))
                                   (_%E186928186941%_))))))
                      (declare (not safe))
                      (__foldl1 __tmp192276 '() _%blocks186907%_))))
                 (_%K186912187284%_
                  (lambda (_%rest186968%_ _%block186969%_)
                    (let* ((_%block186970186995%_ _%block186969%_)
                           (_%E186973186999%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (error '"No clause matching"
                                       _%block186970186995%_
                                       '([name restart: kont assert])
                                       '([name continue: kont assert bind])))
                              '#!void)))
                      (let ((_%K186985187255%_
                             (lambda (_%assert187177%_
                                      _%kont187178%_
                                      _%name187179%_)
                               (let* ((_%g187181187197%_
                                       (lambda (_%g187182187194%_)
                                         (let ()
                                           (declare (not safe))
                                           (gx#raise-syntax-error
                                            '#f
                                            '"Bad syntax; invalid match target"
                                            _%g187182187194%_))))
                                      (_%g187180187252%_
                                       (lambda (_%g187182187200%_)
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%g187182187200%_))
                                             (let ((_%e187184187202%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%g187182187200%_))))
                                               (let ((_%hd187185187205%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e187184187202%_)))
                                                     (_%tl187186187207%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e187184187202%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#identifier?
                                                        _%hd187185187205%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#lambda
                                                            _%hd187185187205%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl187186187207%_))
                     (let ((_%e187187187210%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl187186187207%_))))
                       (let ((_%hd187188187213%_
                              (let ()
                                (declare (not safe))
                                (##car _%e187187187210%_)))
                             (_%tl187189187215%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e187187187210%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%hd187188187213%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl187189187215%_))
                                 (let ((_%e187190187218%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl187189187215%_))))
                                   (let ((_%hd187191187221%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e187190187218%_)))
                                         (_%tl187192187223%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e187190187218%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl187192187223%_))
                                         ((lambda (_%L187226%_)
                                            (let* ((_%body187241%_
                                                    (gxc#optimize-match-block
                                                     _%L187226%_
                                                     _%assert187177%_
                                                     '()
                                                     _%rest186968%_))
                                                   (_%block187243%_
                                                    (cons _%name187179%_
                                                          (cons 'restart:
                                                                (cons (cons '%#lambda
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    (cons '() (cons _%body187241%_ '())))
                              (cons _%assert187177%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%blocks187245%_
                                                    (cons _%block187243%_
                                                          _%blocks186907%_))
                                                   (_%rest187247%_
                                                    (gxc#optimize-match-prune-blocks
                                                     _%rest186968%_
                                                     _%blocks187245%_))
                                                   (_%rest187249%_
                                                    (gxc#optimize-match-fuse-restart-blocks
                                                     _%rest187247%_
                                                     _%blocks187245%_)))
                                              (_%lp186904%_
                                               _%rest187249%_
                                               _%blocks187245%_)))
                                          _%hd187191187221%_)
                                         (_%g187181187197%_
                                          _%g187182187200%_))))
                                 (_%g187181187197%_ _%g187182187200%_))
                             (_%g187181187197%_ _%g187182187200%_))))
                     (_%g187181187197%_ _%g187182187200%_))
                 (_%g187181187197%_ _%g187182187200%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%g187181187197%_
                                                      _%g187182187200%_))))
                                             (_%g187181187197%_
                                              _%g187182187200%_)))))
                                 (_%g187180187252%_ _%kont187178%_))))
                            (_%K186974187138%_
                             (lambda (_%bind187003%_
                                      _%assert187004%_
                                      _%kont187005%_
                                      _%name187006%_)
                               (let* ((_%g187008187034%_
                                       (lambda (_%g187009187031%_)
                                         (let ()
                                           (declare (not safe))
                                           (gx#raise-syntax-error
                                            '#f
                                            '"Bad syntax; invalid match target"
                                            _%g187009187031%_))))
                                      (_%g187007187135%_
                                       (lambda (_%g187009187037%_)
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%g187009187037%_))
                                             (let ((_%e187012187039%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%g187009187037%_))))
                                               (let ((_%hd187013187042%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e187012187039%_)))
                                                     (_%tl187014187044%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e187012187039%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#identifier?
                                                        _%hd187013187042%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#lambda
                                                            _%hd187013187042%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl187014187044%_))
                     (let ((_%e187015187047%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl187014187044%_))))
                       (let ((_%hd187016187050%_
                              (let ()
                                (declare (not safe))
                                (##car _%e187015187047%_)))
                             (_%tl187017187052%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e187015187047%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair/null? _%hd187016187050%_))
                             (let ((_g192277_
                                    (let ()
                                      (declare (not safe))
                                      (gx#syntax-split-splice
                                       _%hd187016187050%_
                                       '0))))
                               (begin
                                 (let ((_g192278_
                                        (let ()
                                          (declare (not safe))
                                          (if (##values? _g192277_)
                                              (##vector-length _g192277_)
                                              1))))
                                   (if (not (let ()
                                              (declare (not safe))
                                              (##fx= _g192278_ 2)))
                                       (error "Context expects 2 values"
                                              _g192278_)))
                                 (let ((_%target187018187055%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref _g192277_ 0)))
                                       (_%tl187020187057%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref _g192277_ 1))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-null? _%tl187020187057%_))
                                       (letrec ((_%loop187021187060%_
                                                 (lambda (_%hd187019187063%_
                                                          _%id187025187065%_)
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%hd187019187063%_))
                                                       (let ((_%e187022187068%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%hd187019187063%_))))
                 (let ((_%lp-hd187023187071%_
                        (let ()
                          (declare (not safe))
                          (##car _%e187022187068%_)))
                       (_%lp-tl187024187073%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e187022187068%_))))
                   (_%loop187021187060%_
                    _%lp-tl187024187073%_
                    (cons _%lp-hd187023187071%_ _%id187025187065%_))))
               (let ((_%id187026187076%_ (reverse _%id187025187065%_)))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%tl187017187052%_))
                     (let ((_%e187027187079%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl187017187052%_))))
                       (let ((_%hd187028187082%_
                              (let ()
                                (declare (not safe))
                                (##car _%e187027187079%_)))
                             (_%tl187029187084%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e187027187079%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl187029187084%_))
                             ((lambda (_%L187087%_ _%L187088%_)
                                (let* ((_%body187117%_
                                        (gxc#optimize-match-block
                                         _%L187087%_
                                         _%assert187004%_
                                         _%bind187003%_
                                         _%rest186968%_))
                                       (_%block187126%_
                                        (cons _%name187006%_
                                              (cons 'continue:
                                                    (cons (cons '%#lambda
                                                                (cons (let ((__tmp192279
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                     (lambda (_%g187118187121%_
                                              _%g187119187123%_)
                                       (cons _%g187118187121%_
                                             _%g187119187123%_))))
                                (declare (not safe))
                                (__foldr1 __tmp192279 '() _%L187088%_))
                              (cons _%body187117%_ '())))
                  (cons _%assert187004%_ (cons _%bind187003%_ '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       (_%blocks187128%_
                                        (cons _%block187126%_
                                              _%blocks186907%_))
                                       (_%rest187130%_
                                        (gxc#optimize-match-prune-blocks
                                         _%rest186968%_
                                         _%blocks187128%_))
                                       (_%rest187132%_
                                        (gxc#optimize-match-fuse-restart-blocks
                                         _%rest187130%_
                                         _%blocks187128%_)))
                                  (_%lp186904%_
                                   _%rest187132%_
                                   _%blocks187128%_)))
                              _%hd187028187082%_
                              _%id187026187076%_)
                             (_%g187008187034%_ _%g187009187037%_))))
                     (_%g187008187034%_ _%g187009187037%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (_%loop187021187060%_
                                          _%target187018187055%_
                                          '()))
                                       (_%g187008187034%_
                                        _%g187009187037%_)))))
                             (_%g187008187034%_ _%g187009187037%_))))
                     (_%g187008187034%_ _%g187009187037%_))
                 (_%g187008187034%_ _%g187009187037%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%g187008187034%_
                                                      _%g187009187037%_))))
                                             (_%g187008187034%_
                                              _%g187009187037%_)))))
                                 (_%g187007187135%_ _%kont187005%_)))))
                        (let* ((_%__match189637189638%_
                                (lambda (_%hd186975187141%_
                                         _%tl186976187143%_
                                         _%hd186977187148%_
                                         _%tl186978187150%_
                                         _%hd186979187153%_
                                         _%tl186980187155%_
                                         _%hd186981187160%_
                                         _%tl186982187162%_
                                         _%hd186983187167%_
                                         _%tl186984187169%_)
                                  (let ((_%name187146%_ _%hd186975187141%_)
                                        (_%kont187158%_ _%hd186979187153%_)
                                        (_%assert187165%_ _%hd186981187160%_)
                                        (_%bind187172%_ _%hd186983187167%_))
                                    (_%E186973186999%_))))
                               (_%__match189631189632%_
                                (lambda (_%hd186975187141%_
                                         _%tl186976187143%_
                                         _%hd186977187148%_
                                         _%tl186978187150%_
                                         _%hd186979187153%_
                                         _%tl186980187155%_
                                         _%hd186981187160%_
                                         _%tl186982187162%_)
                                  (let ((_%name187146%_ _%hd186975187141%_)
                                        (_%kont187158%_ _%hd186979187153%_)
                                        (_%assert187165%_ _%hd186981187160%_))
                                    (_%E186973186999%_))))
                               (_%__match189625189626%_
                                (lambda (_%hd186975187141%_
                                         _%tl186976187143%_
                                         _%hd186977187148%_
                                         _%tl186978187150%_
                                         _%hd186979187153%_
                                         _%tl186980187155%_)
                                  (let ((_%name187146%_ _%hd186975187141%_)
                                        (_%kont187158%_ _%hd186979187153%_))
                                    (_%E186973186999%_))))
                               (_%__match189619189620%_
                                (lambda (_%hd186975187141%_
                                         _%tl186976187143%_
                                         _%hd186977187148%_
                                         _%tl186978187150%_)
                                  (let ((_%name187146%_ _%hd186975187141%_))
                                    (_%E186973186999%_))))
                               (_%__match189615189616%_
                                (lambda (_%hd186975187141%_
                                         _%tl186976187143%_
                                         _%hd186977187148%_
                                         _%tl186978187150%_)
                                  (let ((_%name187146%_ _%hd186975187141%_))
                                    (_%E186973186999%_))))
                               (_%__match189609189610%_
                                (lambda (_%hd186975187141%_ _%tl186976187143%_)
                                  (let ((_%name187146%_ _%hd186975187141%_))
                                    (_%E186973186999%_)))))
                          (if (pair? _%block186970186995%_)
                              (let ((_%tl186987187260%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%block186970186995%_)))
                                    (_%hd186986187258%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%block186970186995%_))))
                                (if (pair? _%tl186987187260%_)
                                    (let ((_%tl186989187267%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%tl186987187260%_)))
                                          (_%hd186988187265%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%tl186987187260%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (##eq? _%hd186988187265%_
                                                   'restart:))
                                          (if (pair? _%tl186989187267%_)
                                              (let ((_%tl186991187272%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%tl186989187267%_)))
                                                    (_%hd186990187270%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%tl186989187267%_))))
                                                (if (pair? _%tl186991187272%_)
                                                    (let ((_%tl186993187279%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%tl186991187272%_)))
                                                          (_%hd186992187277%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%tl186991187272%_))))
                                                      (if (null? _%tl186993187279%_)
                                                          (let ((_%name187263%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%hd186986187258%_)
                        (_%kont187275%_ _%hd186990187270%_)
                        (_%assert187282%_ _%hd186992187277%_))
                    (_%K186985187255%_
                     _%assert187282%_
                     _%kont187275%_
                     _%name187263%_))
                  (_%__match189615189616%_
                   _%hd186986187258%_
                   _%tl186987187260%_
                   _%hd186988187265%_
                   _%tl186989187267%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match189615189616%_
                                                     _%hd186986187258%_
                                                     _%tl186987187260%_
                                                     _%hd186988187265%_
                                                     _%tl186989187267%_)))
                                              (_%__match189615189616%_
                                               _%hd186986187258%_
                                               _%tl186987187260%_
                                               _%hd186988187265%_
                                               _%tl186989187267%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (##eq? _%hd186988187265%_
                                                       'continue:))
                                              (if (pair? _%tl186989187267%_)
                                                  (let ((_%tl186980187155%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%tl186989187267%_)))
                                                        (_%hd186979187153%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%tl186989187267%_))))
                                                    (if (pair? _%tl186980187155%_)
                                                        (let ((_%tl186982187162%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##cdr _%tl186980187155%_)))
                      (_%hd186981187160%_
                       (let ()
                         (declare (not safe))
                         (##car _%tl186980187155%_))))
                  (if (pair? _%tl186982187162%_)
                      (let ((_%tl186984187169%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%tl186982187162%_)))
                            (_%hd186983187167%_
                             (let ()
                               (declare (not safe))
                               (##car _%tl186982187162%_))))
                        (if (null? _%tl186984187169%_)
                            (let ((_%name187146%_ _%hd186986187258%_)
                                  (_%kont187158%_ _%hd186979187153%_)
                                  (_%assert187165%_ _%hd186981187160%_)
                                  (_%bind187172%_ _%hd186983187167%_))
                              (_%K186974187138%_
                               _%bind187172%_
                               _%assert187165%_
                               _%kont187158%_
                               _%name187146%_))
                            (_%__match189637189638%_
                             _%hd186986187258%_
                             _%tl186987187260%_
                             _%hd186988187265%_
                             _%tl186989187267%_
                             _%hd186979187153%_
                             _%tl186980187155%_
                             _%hd186981187160%_
                             _%tl186982187162%_
                             _%hd186983187167%_
                             _%tl186984187169%_)))
                      (_%__match189631189632%_
                       _%hd186986187258%_
                       _%tl186987187260%_
                       _%hd186988187265%_
                       _%tl186989187267%_
                       _%hd186979187153%_
                       _%tl186980187155%_
                       _%hd186981187160%_
                       _%tl186982187162%_)))
                (_%__match189625189626%_
                 _%hd186986187258%_
                 _%tl186987187260%_
                 _%hd186988187265%_
                 _%tl186989187267%_
                 _%hd186979187153%_
                 _%tl186980187155%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match189619189620%_
                                                   _%hd186986187258%_
                                                   _%tl186987187260%_
                                                   _%hd186988187265%_
                                                   _%tl186989187267%_))
                                              (_%__match189615189616%_
                                               _%hd186986187258%_
                                               _%tl186987187260%_
                                               _%hd186988187265%_
                                               _%tl186989187267%_))))
                                    (_%__match189609189610%_
                                     _%hd186986187258%_
                                     _%tl186987187260%_)))
                              (_%E186973186999%_))))))))
            (if (pair? _%rest186908186916%_)
                (let ((_%hd186913187287%_
                       (let ()
                         (declare (not safe))
                         (##car _%rest186908186916%_)))
                      (_%tl186914187289%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%rest186908186916%_))))
                  (let* ((_%block187292%_ _%hd186913187287%_)
                         (_%rest187294%_ _%tl186914187289%_))
                    (_%K186912187284%_ _%rest187294%_ _%block187292%_)))
                (_%else186910186965%_))))))
    (define gxc#optimize-match-block
      (lambda (_%body181525%_ _%assert181526%_ _%bind181527%_ _%blocks181528%_)
        (letrec* ((_%env-assert181763%_ '())
                  (_%env-type181764%_ '())
                  (_%env-bind181765%_ '())
                  (_%in-splice?181766%_ '#f)
                  (_%do-assert181767%_
                   (lambda (_%assert186825%_ _%K186826%_)
                     (if (pair? _%assert186825%_)
                         (let _%lp186828%_ ((_%rest186830%_ _%assert186825%_)
                                            (_%env-assert186831%_
                                             _%env-assert181763%_)
                                            (_%env-type186832%_
                                             _%env-type181764%_))
                           (let* ((_%rest186833186841%_ _%rest186830%_)
                                  (_%else186835186849%_
                                   (lambda ()
                                     (_%do-assert!181773%_
                                      _%env-assert186831%_
                                      _%env-type186832%_
                                      _%K186826%_)))
                                  (_%K186837186890%_
                                   (lambda (_%rest186852%_ _%assert186853%_)
                                     (let* ((_%assert186854186861%_
                                             _%assert186853%_)
                                            (_%E186856186865%_
                                             (lambda ()
                                               (let ()
                                                 (declare (not safe))
                                                 (error '"No clause matching"
                                                        _%assert186854186861%_
                                                        '([expr . val])))
                                               '#!void))
                                            (_%K186857186878%_
                                             (lambda (_%val186868%_
                                                      _%expr186869%_)
                                               (let* ((_%sexpr186871%_
                                                       (gxc#apply-generate-runtime-repr
                                                        _%expr186869%_))
                                                      (_%env-assert186873%_
                                                       (cons (cons _%sexpr186871%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _%val186868%_)
                     _%env-assert186831%_))
              (_%env-type186875%_
               (_%fold-assert-type181769%_
                _%expr186869%_
                _%val186868%_
                _%env-type186832%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%lp186828%_
                                                  _%rest186852%_
                                                  _%env-assert186873%_
                                                  _%env-type186875%_)))))
                                       (if (pair? _%assert186854186861%_)
                                           (let ((_%hd186858186881%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%assert186854186861%_)))
                                                 (_%tl186859186883%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%assert186854186861%_))))
                                             (let* ((_%expr186886%_
                                                     _%hd186858186881%_)
                                                    (_%val186888%_
                                                     _%tl186859186883%_))
                                               (_%K186857186878%_
                                                _%val186888%_
                                                _%expr186886%_)))
                                           (_%E186856186865%_))))))
                             (if (pair? _%rest186833186841%_)
                                 (let ((_%hd186838186893%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%rest186833186841%_)))
                                       (_%tl186839186895%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%rest186833186841%_))))
                                   (let* ((_%assert186898%_ _%hd186838186893%_)
                                          (_%rest186900%_ _%tl186839186895%_))
                                     (_%K186837186890%_
                                      _%rest186900%_
                                      _%assert186898%_)))
                                 (_%else186835186849%_))))
                         (_%K186826%_))))
                  (_%predicate-type181768%_
                   (lambda (_%id186770%_)
                     (let* ((_%sym186772%_
                             (let ()
                               (declare (not safe))
                               (gxc#identifier-symbol _%id186770%_)))
                            (_%$e186774%_ _%sym186772%_))
                       (let ((_%default186776186807%_
                              (lambda ()
                                (let* ((_%g186779186786%_
                                        (let ()
                                          (declare (not safe))
                                          (gxc#optimizer-resolve-type
                                           _%sym186772%_)))
                                       (_%else186781186794%_ (lambda () '#f))
                                       (_%K186783186799%_
                                        (lambda (_%t186797%_)
                                          (let ((__tmp192280
                                                 (cons 'predicate-type
                                                       (cons _%id186770%_
                                                             '()))))
                                            (declare (not safe))
                                            (gxc#optimizer-resolve-class
                                             __tmp192280
                                             _%t186797%_)))))
                                  (if (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _%g186779186786%_
                                         'gxc#!predicate::t))
                                      (let* ((_%e186784186802%_
                                              (let ()
                                                (declare (not safe))
                                                (##unchecked-structure-ref
                                                 _%g186779186786%_
                                                 '1
                                                 '#f
                                                 '#f)))
                                             (_%t186805%_ _%e186784186802%_))
                                        (_%K186783186799%_ _%t186805%_))
                                      (_%else186781186794%_)))))
                             (_%table186777186809%_
                              '#(#f
                                 (##box? . 3)
                                 #f
                                 (##pair? . 0)
                                 #f
                                 (gx#stx-vector? . 7)
                                 (gx#identifier? . 4)
                                 #f
                                 #f
                                 #f
                                 (vector? . 2)
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 (null? . 1)
                                 #f
                                 #f
                                 #f
                                 #f
                                 (gx#stx-pair? . 5)
                                 #f
                                 (gx#stx-null? . 6)
                                 #f
                                 #f
                                 #f
                                 (##vector? . 2)
                                 #f
                                 (pair? . 0)
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 (gx#stx-datum? . 9)
                                 (box? . 3)
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 (##null? . 1)
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 #f
                                 (gx#stx-box? . 8)
                                 #f
                                 #f
                                 #f)))
                         (if (symbol? _%$e186774%_)
                             (let* ((_%h186812%_
                                     (let ()
                                       (declare (not safe))
                                       (##symbol-hash _%$e186774%_)))
                                    (_%ix186815%_
                                     (let ()
                                       (declare (not safe))
                                       (##fxmodulo _%h186812%_ '63)))
                                    (_%q186818%_
                                     (let ()
                                       (declare (not safe))
                                       (##vector-ref
                                        _%table186777186809%_
                                        _%ix186815%_))))
                               (if _%q186818%_
                                   (if (eq? (let ()
                                              (declare (not safe))
                                              (##car _%q186818%_))
                                            _%$e186774%_)
                                       (let ((_%x186822%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%q186818%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (##fx< _%x186822%_ '5))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (##fx< _%x186822%_ '2))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (##fx= _%x186822%_ '0))
                                                     'pair
                                                     'null)
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (##fx= _%x186822%_ '2))
                                                     'vector
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (##fx= _%x186822%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '3))
                 'box
                 'identifier)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (if (let ()
                                                   (declare (not safe))
                                                   (##fx< _%x186822%_ '7))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (##fx= _%x186822%_ '5))
                                                     'stx-pair
                                                     'stx-null)
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (##fx= _%x186822%_ '7))
                                                     'stx-vector
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (##fx= _%x186822%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '8))
                 'stx-box
                 'stx-datum)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       (_%default186776186807%_))
                                   (_%default186776186807%_)))
                             (_%default186776186807%_))))))
                  (_%fold-assert-type181769%_
                   (lambda (_%expr185716%_ _%val185717%_ _%env185718%_)
                     (let* ((_%__stx189734189735%_ _%expr185716%_)
                            (_%g185726185905%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%__stx189734189735%_)))))
                       (let ((_%__kont189736189737%_
                              (lambda (_%L186738%_ _%L186739%_)
                                (let ((_%$e186761%_
                                       (_%predicate-type181768%_ _%L186739%_)))
                                  (if _%$e186761%_
                                      ((lambda (_%t186764%_)
                                         (cons (cons _%L186738%_
                                                     (cons _%t186764%_
                                                           (cons _%val185717%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               _%env185718%_))
                                       _%$e186761%_)
                                      _%env185718%_))))
                             (_%__kont189738189739%_
                              (lambda (_%L186427%_ _%L186428%_ _%L186429%_)
                                (let ((_%$e186454%_
                                       (let ()
                                         (declare (not safe))
                                         (gxc#identifier-symbol _%L186429%_))))
                                  (if (or (eq? '##fx= _%$e186454%_)
                                          (eq? 'fx= _%$e186454%_))
                                      (let* ((_%__stx189640189641%_
                                              _%L186428%_)
                                             (_%g186461186490%_
                                              (lambda ()
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#raise-syntax-error
                                                   '#f
                                                   '"Bad syntax; invalid match target"
                                                   _%__stx189640189641%_)))))
                                        (let ((_%__kont189642189643%_
                                               (lambda (_%L186558%_
                                                        _%L186559%_)
                                                 (let ((_%$e186584%_
                                                        (_%countf-symbol181770%_
                                                         _%L186559%_)))
                                                   (if _%$e186584%_
                                                       ((lambda (_%sym186587%_)
                                                          (cons (cons _%L186558%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cons _%sym186587%_
                                    (cons (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%L186427%_))
                                          (cons _%val185717%_ '()))))
                        _%env185718%_))
                _%$e186584%_)
               _%env185718%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont189644189645%_
                                               (lambda () _%env185718%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%__stx189640189641%_))
                                              (let ((_%e186465186502%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%__stx189640189641%_))))
                                                (let ((_%tl186467186507%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e186465186502%_)))
                                                      (_%hd186466186505%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e186465186502%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#identifier?
                                                         _%hd186466186505%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-eq?
                                                             '%#call
                                                             _%hd186466186505%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl186467186507%_))
                      (let ((_%e186468186510%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl186467186507%_))))
                        (let ((_%tl186470186515%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e186468186510%_)))
                              (_%hd186469186513%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e186468186510%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd186469186513%_))
                              (let ((_%e186471186518%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd186469186513%_))))
                                (let ((_%tl186473186523%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e186471186518%_)))
                                      (_%hd186472186521%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e186471186518%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd186472186521%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#ref
                                             _%hd186472186521%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl186473186523%_))
                                              (let ((_%e186474186526%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl186473186523%_))))
                                                (let ((_%tl186476186531%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e186474186526%_)))
                                                      (_%hd186475186529%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e186474186526%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl186476186531%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl186470186515%_))
                                                          (let ((_%e186477186534%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl186470186515%_))))
                    (let ((_%tl186479186539%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e186477186534%_)))
                          (_%hd186478186537%_
                           (let ()
                             (declare (not safe))
                             (##car _%e186477186534%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd186478186537%_))
                          (let ((_%e186480186542%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd186478186537%_))))
                            (let ((_%tl186482186547%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e186480186542%_)))
                                  (_%hd186481186545%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e186480186542%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd186481186545%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq? '%#ref _%hd186481186545%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl186482186547%_))
                                          (let ((_%e186483186550%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl186482186547%_))))
                                            (let ((_%tl186485186555%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e186483186550%_)))
                                                  (_%hd186484186553%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e186483186550%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl186485186555%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl186479186539%_))
                                                      (_%__kont189642189643%_
                                                       _%hd186484186553%_
                                                       _%hd186475186529%_)
                                                      (_%__kont189644189645%_))
                                                  (_%__kont189644189645%_))))
                                          (_%__kont189644189645%_))
                                      (_%__kont189644189645%_))
                                  (_%__kont189644189645%_))))
                          (_%__kont189644189645%_))))
                  (_%__kont189644189645%_))
              (_%__kont189644189645%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont189644189645%_))
                                          (_%__kont189644189645%_))
                                      (_%__kont189644189645%_))))
                              (_%__kont189644189645%_))))
                      (_%__kont189644189645%_))
                  (_%__kont189644189645%_))
              (_%__kont189644189645%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont189644189645%_))))
                                      (if (or (eq? '##eq? _%$e186454%_)
                                              (eq? 'eq? _%$e186454%_)
                                              (eq? '##eqv? _%$e186454%_)
                                              (eq? 'eqv? _%$e186454%_)
                                              (eq? '##equal? _%$e186454%_)
                                              (eq? 'equal? _%$e186454%_)
                                              (eq? 'gx#free-identifier=?
                                                   _%$e186454%_)
                                              (eq? 'gx#stx-eq? _%$e186454%_))
                                          ((lambda (_%sym186614%_)
                                             (let* ((_%sym186616%_
                                                     (_%eqf-symbol181771%_
                                                      _%sym186614%_))
                                                    (_%__stx189708189709%_
                                                     _%L186428%_)
                                                    (_%g186619186632%_
                                                     (lambda ()
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#raise-syntax-error
                                                          '#f
                                                          '"Bad syntax; invalid match target"
                                                          _%__stx189708189709%_)))))
                                               (let ((_%__kont189710189711%_
                                                      (lambda (_%L186660%_)
                                                        (cons (cons _%L186660%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons _%sym186616%_
                                  (cons (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%L186427%_))
                                        (cons _%val185717%_ '()))))
                      _%env185718%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189712189713%_
                                                      (lambda ()
                                                        _%env185718%_)))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%__stx189708189709%_))
                                                     (let ((_%e186622186644%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%__stx189708189709%_))))
                                                       (let ((_%tl186624186649%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e186622186644%_)))
                     (_%hd186623186647%_
                      (let () (declare (not safe)) (##car _%e186622186644%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#identifier? _%hd186623186647%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#ref _%hd186623186647%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl186624186649%_))
                             (let ((_%e186625186652%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl186624186649%_))))
                               (let ((_%tl186627186657%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e186625186652%_)))
                                     (_%hd186626186655%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e186625186652%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl186627186657%_))
                                     (_%__kont189710189711%_
                                      _%hd186626186655%_)
                                     (_%__kont189712189713%_))))
                             (_%__kont189712189713%_))
                         (_%__kont189712189713%_))
                     (_%__kont189712189713%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189712189713%_)))))
                                           _%$e186454%_)
                                          _%env185718%_)))))
                             (_%__kont189740189741%_
                              (lambda (_%L186331%_ _%L186332%_ _%L186333%_)
                                (_%fold-assert-type181769%_
                                 (cons (let ()
                                         (declare (not safe))
                                         (gx#datum->syntax__0 '#f '%#call))
                                       (cons (cons (let ()
                                                     (declare (not safe))
                                                     (gx#datum->syntax__0
                                                      '#f
                                                      '%#ref))
                                                   (cons _%L186333%_ '()))
                                             (cons _%L186331%_
                                                   (cons (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#datum->syntax__0 '#f '%#quote))
                       (cons _%L186332%_ '()))
                 '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                 _%val185717%_
                                 _%env185718%_)))
                             (_%__kont189742189743%_
                              (lambda (_%L186221%_ _%L186222%_ _%L186223%_)
                                (let ((_%$e186252%_
                                       (let ()
                                         (declare (not safe))
                                         (gxc#identifier-symbol _%L186223%_))))
                                  (if (or (eq? 'gx#free-identifier=?
                                               _%$e186252%_)
                                          (eq? 'gx#stx-eq? _%$e186252%_))
                                      ((lambda (_%sym186258%_)
                                         (let ((_%sym186260%_
                                                (_%eqf-symbol181771%_
                                                 _%sym186258%_)))
                                           (cons (cons _%L186222%_
                                                       (cons _%sym186260%_
                                                             (cons _%L186221%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%val185717%_ '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 _%env185718%_)))
                                       _%$e186252%_)
                                      _%env185718%_))))
                             (_%__kont189744189745%_
                              (lambda (_%L186105%_ _%L186106%_ _%L186107%_)
                                (_%fold-assert-type181769%_
                                 (cons (let ()
                                         (declare (not safe))
                                         (gx#datum->syntax__0 '#f '%#call))
                                       (cons (cons (let ()
                                                     (declare (not safe))
                                                     (gx#datum->syntax__0
                                                      '#f
                                                      '%#ref))
                                                   (cons _%L186107%_ '()))
                                             (cons (cons (let ()
                                                           (declare (not safe))
                                                           (gx#datum->syntax__0
                                                            '#f
                                                            '%#ref))
                                                         (cons _%L186105%_
                                                               '()))
                                                   (cons (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#datum->syntax__0 '#f '%#quote-syntax))
                       (cons _%L186106%_ '()))
                 '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                 _%val185717%_
                                 _%env185718%_)))
                             (_%__kont189746189747%_
                              (lambda (_%L185989%_ _%L185990%_ _%L185991%_)
                                (_%fold-assert-type181769%_
                                 (let ()
                                   (declare (not safe))
                                   (gxc#apply-expression-subst__%
                                    '#f
                                    _%L185991%_
                                    _%L185989%_
                                    _%L185990%_))
                                 _%val185717%_
                                 _%env185718%_)))
                             (_%__kont189748189749%_
                              (lambda () _%env185718%_)))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%__stx189734189735%_))
                             (let ((_%e185730186682%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%__stx189734189735%_))))
                               (let ((_%tl185732186687%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185730186682%_)))
                                     (_%hd185731186685%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185730186682%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#identifier? _%hd185731186685%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-eq?
                                            '%#call
                                            _%hd185731186685%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl185732186687%_))
                                             (let ((_%e185733186690%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl185732186687%_))))
                                               (let ((_%tl185735186695%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e185733186690%_)))
                                                     (_%hd185734186693%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e185733186690%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%hd185734186693%_))
                                                     (let ((_%e185736186698%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%hd185734186693%_))))
                                                       (let ((_%tl185738186703%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185736186698%_)))
                     (_%hd185737186701%_
                      (let () (declare (not safe)) (##car _%e185736186698%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#identifier? _%hd185737186701%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#ref _%hd185737186701%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl185738186703%_))
                             (let ((_%e185739186706%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl185738186703%_))))
                               (let ((_%tl185741186711%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185739186706%_)))
                                     (_%hd185740186709%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185739186706%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl185741186711%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl185735186695%_))
                                         (let ((_%e185742186714%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl185735186695%_))))
                                           (let ((_%tl185744186719%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e185742186714%_)))
                                                 (_%hd185743186717%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e185742186714%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%hd185743186717%_))
                                                 (let ((_%e185745186722%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%hd185743186717%_))))
                                                   (let ((_%tl185747186727%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e185745186722%_)))
                                                         (_%hd185746186725%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e185745186722%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#identifier?
                                                            _%hd185746186725%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-eq? '%#ref _%hd185746186725%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl185747186727%_))
                         (let ((_%e185748186730%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl185747186727%_))))
                           (let ((_%tl185750186735%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e185748186730%_)))
                                 (_%hd185749186733%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e185748186730%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl185750186735%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl185744186719%_))
                                     (_%__kont189736189737%_
                                      _%hd185749186733%_
                                      _%hd185740186709%_)
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl185744186719%_))
                                         (let ((_%e185769186403%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl185744186719%_))))
                                           (let ((_%tl185771186408%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e185769186403%_)))
                                                 (_%hd185770186406%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e185769186403%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%hd185770186406%_))
                                                 (let ((_%e185772186411%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%hd185770186406%_))))
                                                   (let ((_%tl185774186416%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e185772186411%_)))
                                                         (_%hd185773186414%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e185772186411%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#identifier?
                                                            _%hd185773186414%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-eq? '%#quote _%hd185773186414%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl185774186416%_))
                         (let ((_%e185775186419%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl185774186416%_))))
                           (let ((_%tl185777186424%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e185775186419%_)))
                                 (_%hd185776186422%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e185775186419%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl185777186424%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl185771186408%_))
                                     (_%__kont189738189739%_
                                      _%hd185776186422%_
                                      _%hd185743186717%_
                                      _%hd185740186709%_)
                                     (_%__kont189748189749%_))
                                 (_%__kont189748189749%_))))
                         (_%__kont189748189749%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#quote-syntax _%hd185773186414%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl185774186416%_))
                             (let ((_%e185835186213%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl185774186416%_))))
                               (let ((_%tl185837186218%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185835186213%_)))
                                     (_%hd185836186216%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185835186213%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl185837186218%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl185771186408%_))
                                         (_%__kont189742189743%_
                                          _%hd185836186216%_
                                          _%hd185749186733%_
                                          _%hd185740186709%_)
                                         (_%__kont189748189749%_))
                                     (_%__kont189748189749%_))))
                             (_%__kont189748189749%_))
                         (_%__kont189748189749%_)))
                 (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont189748189749%_))))
                                         (_%__kont189748189749%_)))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl185744186719%_))
                                     (let ((_%e185769186403%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl185744186719%_))))
                                       (let ((_%tl185771186408%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e185769186403%_)))
                                             (_%hd185770186406%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e185769186403%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%hd185770186406%_))
                                             (let ((_%e185772186411%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%hd185770186406%_))))
                                               (let ((_%tl185774186416%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e185772186411%_)))
                                                     (_%hd185773186414%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e185772186411%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#identifier?
                                                        _%hd185773186414%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#quote
                                                            _%hd185773186414%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl185774186416%_))
                     (let ((_%e185775186419%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl185774186416%_))))
                       (let ((_%tl185777186424%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e185775186419%_)))
                             (_%hd185776186422%_
                              (let ()
                                (declare (not safe))
                                (##car _%e185775186419%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl185777186424%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl185771186408%_))
                                 (_%__kont189738189739%_
                                  _%hd185776186422%_
                                  _%hd185743186717%_
                                  _%hd185740186709%_)
                                 (_%__kont189748189749%_))
                             (_%__kont189748189749%_))))
                     (_%__kont189748189749%_))
                 (_%__kont189748189749%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))))
                                             (_%__kont189748189749%_))))
                                     (_%__kont189748189749%_)))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl185744186719%_))
                             (let ((_%e185769186403%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl185744186719%_))))
                               (let ((_%tl185771186408%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185769186403%_)))
                                     (_%hd185770186406%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185769186403%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd185770186406%_))
                                     (let ((_%e185772186411%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd185770186406%_))))
                                       (let ((_%tl185774186416%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e185772186411%_)))
                                             (_%hd185773186414%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e185772186411%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#identifier?
                                                _%hd185773186414%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#quote
                                                    _%hd185773186414%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl185774186416%_))
                                                     (let ((_%e185775186419%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl185774186416%_))))
                                                       (let ((_%tl185777186424%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185775186419%_)))
                     (_%hd185776186422%_
                      (let () (declare (not safe)) (##car _%e185775186419%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-null? _%tl185777186424%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl185771186408%_))
                         (_%__kont189738189739%_
                          _%hd185776186422%_
                          _%hd185743186717%_
                          _%hd185740186709%_)
                         (_%__kont189748189749%_))
                     (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))
                                                 (_%__kont189748189749%_))
                                             (_%__kont189748189749%_))))
                                     (_%__kont189748189749%_))))
                             (_%__kont189748189749%_)))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl185744186719%_))
                         (let ((_%e185769186403%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl185744186719%_))))
                           (let ((_%tl185771186408%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e185769186403%_)))
                                 (_%hd185770186406%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e185769186403%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%hd185770186406%_))
                                 (let ((_%e185772186411%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%hd185770186406%_))))
                                   (let ((_%tl185774186416%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185772186411%_)))
                                         (_%hd185773186414%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185772186411%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#identifier? _%hd185773186414%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-eq?
                                                '%#quote
                                                _%hd185773186414%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl185774186416%_))
                                                 (let ((_%e185775186419%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl185774186416%_))))
                                                   (let ((_%tl185777186424%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e185775186419%_)))
                                                         (_%hd185776186422%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e185775186419%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl185777186424%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-null? _%tl185771186408%_))
                     (_%__kont189738189739%_
                      _%hd185776186422%_
                      _%hd185743186717%_
                      _%hd185740186709%_)
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#quote _%hd185746186725%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl185747186727%_))
                             (let ((_%e185799186315%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl185747186727%_))))
                               (let ((_%tl185801186320%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185799186315%_)))
                                     (_%hd185800186318%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185799186315%_))))
                                 (_%__kont189748189749%_)))
                             (_%__kont189748189749%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#quote-syntax _%hd185746186725%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl185747186727%_))
                                 (let ((_%e185859186073%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl185747186727%_))))
                                   (let ((_%tl185861186078%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185859186073%_)))
                                         (_%hd185860186076%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185859186073%_))))
                                     (_%__kont189748189749%_)))
                                 (_%__kont189748189749%_))
                             (_%__kont189748189749%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-eq? '%#quote _%hd185746186725%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl185747186727%_))
                         (let ((_%e185799186315%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl185747186727%_))))
                           (let ((_%tl185801186320%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e185799186315%_)))
                                 (_%hd185800186318%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e185799186315%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl185801186320%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl185771186408%_))
                                     (_%__kont189740189741%_
                                      _%hd185770186406%_
                                      _%hd185800186318%_
                                      _%hd185740186709%_)
                                     (_%__kont189748189749%_))
                                 (_%__kont189748189749%_))))
                         (_%__kont189748189749%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#quote-syntax _%hd185746186725%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl185747186727%_))
                             (let ((_%e185859186073%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl185747186727%_))))
                               (let ((_%tl185861186078%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185859186073%_)))
                                     (_%hd185860186076%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185859186073%_))))
                                 (_%__kont189748189749%_)))
                             (_%__kont189748189749%_))
                         (_%__kont189748189749%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#quote
                                                        _%hd185746186725%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl185747186727%_))
                                                         (let ((_%e185799186315%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl185747186727%_))))
                   (let ((_%tl185801186320%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e185799186315%_)))
                         (_%hd185800186318%_
                          (let ()
                            (declare (not safe))
                            (##car _%e185799186315%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl185801186320%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl185771186408%_))
                             (_%__kont189740189741%_
                              _%hd185770186406%_
                              _%hd185800186318%_
                              _%hd185740186709%_)
                             (_%__kont189748189749%_))
                         (_%__kont189748189749%_))))
                 (_%__kont189748189749%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#quote-syntax
                                                            _%hd185746186725%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl185747186727%_))
                     (let ((_%e185859186073%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl185747186727%_))))
                       (let ((_%tl185861186078%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e185859186073%_)))
                             (_%hd185860186076%_
                              (let ()
                                (declare (not safe))
                                (##car _%e185859186073%_))))
                         (_%__kont189748189749%_)))
                     (_%__kont189748189749%_))
                 (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#quote
                                                    _%hd185746186725%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl185747186727%_))
                                                     (let ((_%e185799186315%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl185747186727%_))))
                                                       (let ((_%tl185801186320%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185799186315%_)))
                     (_%hd185800186318%_
                      (let () (declare (not safe)) (##car _%e185799186315%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-null? _%tl185801186320%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl185771186408%_))
                         (_%__kont189740189741%_
                          _%hd185770186406%_
                          _%hd185800186318%_
                          _%hd185740186709%_)
                         (_%__kont189748189749%_))
                     (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#quote-syntax
                                                        _%hd185746186725%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl185747186727%_))
                                                         (let ((_%e185859186073%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl185747186727%_))))
                   (let ((_%tl185861186078%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e185859186073%_)))
                         (_%hd185860186076%_
                          (let ()
                            (declare (not safe))
                            (##car _%e185859186073%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl185861186078%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#ref _%hd185773186414%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl185774186416%_))
                                 (let ((_%e185868186097%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl185774186416%_))))
                                   (let ((_%tl185870186102%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185868186097%_)))
                                         (_%hd185869186100%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185868186097%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl185870186102%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl185771186408%_))
                                             (_%__kont189744189745%_
                                              _%hd185869186100%_
                                              _%hd185860186076%_
                                              _%hd185740186709%_)
                                             (_%__kont189748189749%_))
                                         (_%__kont189748189749%_))))
                                 (_%__kont189748189749%_))
                             (_%__kont189748189749%_))
                         (_%__kont189748189749%_))))
                 (_%__kont189748189749%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-eq?
                                                '%#quote
                                                _%hd185746186725%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl185747186727%_))
                                                 (let ((_%e185799186315%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl185747186727%_))))
                                                   (let ((_%tl185801186320%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e185799186315%_)))
                                                         (_%hd185800186318%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e185799186315%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl185801186320%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-null? _%tl185771186408%_))
                     (_%__kont189740189741%_
                      _%hd185770186406%_
                      _%hd185800186318%_
                      _%hd185740186709%_)
                     (_%__kont189748189749%_))
                 (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont189748189749%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#quote-syntax
                                                    _%hd185746186725%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl185747186727%_))
                                                     (let ((_%e185859186073%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl185747186727%_))))
                                                       (let ((_%tl185861186078%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185859186073%_)))
                     (_%hd185860186076%_
                      (let () (declare (not safe)) (##car _%e185859186073%_))))
                 (_%__kont189748189749%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))
                                                 (_%__kont189748189749%_))))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq?
                                        '%#quote
                                        _%hd185746186725%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl185747186727%_))
                                         (let ((_%e185799186315%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl185747186727%_))))
                                           (let ((_%tl185801186320%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e185799186315%_)))
                                                 (_%hd185800186318%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e185799186315%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl185801186320%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl185771186408%_))
                                                     (_%__kont189740189741%_
                                                      _%hd185770186406%_
                                                      _%hd185800186318%_
                                                      _%hd185740186709%_)
                                                     (_%__kont189748189749%_))
                                                 (_%__kont189748189749%_))))
                                         (_%__kont189748189749%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-eq?
                                            '%#quote-syntax
                                            _%hd185746186725%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl185747186727%_))
                                             (let ((_%e185859186073%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl185747186727%_))))
                                               (let ((_%tl185861186078%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e185859186073%_)))
                                                     (_%hd185860186076%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e185859186073%_))))
                                                 (_%__kont189748189749%_)))
                                             (_%__kont189748189749%_))
                                         (_%__kont189748189749%_))))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#quote _%hd185746186725%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl185747186727%_))
                                 (let ((_%e185799186315%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl185747186727%_))))
                                   (let ((_%tl185801186320%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185799186315%_)))
                                         (_%hd185800186318%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185799186315%_))))
                                     (_%__kont189748189749%_)))
                                 (_%__kont189748189749%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq?
                                    '%#quote-syntax
                                    _%hd185746186725%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl185747186727%_))
                                     (let ((_%e185859186073%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl185747186727%_))))
                                       (let ((_%tl185861186078%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e185859186073%_)))
                                             (_%hd185860186076%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e185859186073%_))))
                                         (_%__kont189748189749%_)))
                                     (_%__kont189748189749%_))
                                 (_%__kont189748189749%_)))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%tl185744186719%_))
                     (let ((_%e185769186403%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl185744186719%_))))
                       (let ((_%tl185771186408%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e185769186403%_)))
                             (_%hd185770186406%_
                              (let ()
                                (declare (not safe))
                                (##car _%e185769186403%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%hd185770186406%_))
                             (let ((_%e185772186411%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%hd185770186406%_))))
                               (let ((_%tl185774186416%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e185772186411%_)))
                                     (_%hd185773186414%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e185772186411%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#identifier? _%hd185773186414%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-eq?
                                            '%#quote
                                            _%hd185773186414%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl185774186416%_))
                                             (let ((_%e185775186419%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl185774186416%_))))
                                               (let ((_%tl185777186424%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e185775186419%_)))
                                                     (_%hd185776186422%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e185775186419%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl185777186424%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl185771186408%_))
                                                         (_%__kont189738189739%_
                                                          _%hd185776186422%_
                                                          _%hd185743186717%_
                                                          _%hd185740186709%_)
                                                         (_%__kont189748189749%_))
                                                     (_%__kont189748189749%_))))
                                             (_%__kont189748189749%_))
                                         (_%__kont189748189749%_))
                                     (_%__kont189748189749%_))))
                             (_%__kont189748189749%_))))
                     (_%__kont189748189749%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl185744186719%_))
                                                     (let ((_%e185769186403%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl185744186719%_))))
                                                       (let ((_%tl185771186408%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185769186403%_)))
                     (_%hd185770186406%_
                      (let () (declare (not safe)) (##car _%e185769186403%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%hd185770186406%_))
                     (let ((_%e185772186411%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%hd185770186406%_))))
                       (let ((_%tl185774186416%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e185772186411%_)))
                             (_%hd185773186414%_
                              (let ()
                                (declare (not safe))
                                (##car _%e185772186411%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#identifier? _%hd185773186414%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq? '%#quote _%hd185773186414%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl185774186416%_))
                                     (let ((_%e185775186419%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl185774186416%_))))
                                       (let ((_%tl185777186424%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e185775186419%_)))
                                             (_%hd185776186422%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e185775186419%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl185777186424%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl185771186408%_))
                                                 (_%__kont189738189739%_
                                                  _%hd185776186422%_
                                                  _%hd185743186717%_
                                                  _%hd185740186709%_)
                                                 (_%__kont189748189749%_))
                                             (_%__kont189748189749%_))))
                                     (_%__kont189748189749%_))
                                 (_%__kont189748189749%_))
                             (_%__kont189748189749%_))))
                     (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_)))))
                                         (_%__kont189748189749%_))
                                     (_%__kont189748189749%_))))
                             (_%__kont189748189749%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#lambda _%hd185737186701%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl185738186703%_))
                                 (let ((_%e185883185941%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl185738186703%_))))
                                   (let ((_%tl185885185946%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185883185941%_)))
                                         (_%hd185884185944%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185883185941%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%hd185884185944%_))
                                         (let ((_%e185886185949%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%hd185884185944%_))))
                                           (let ((_%tl185888185954%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e185886185949%_)))
                                                 (_%hd185887185952%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e185886185949%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl185888185954%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl185885185946%_))
                                                     (let ((_%e185889185957%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl185885185946%_))))
                                                       (let ((_%tl185891185962%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e185889185957%_)))
                     (_%hd185890185960%_
                      (let () (declare (not safe)) (##car _%e185889185957%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-null? _%tl185891185962%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl185735186695%_))
                         (let ((_%e185892185965%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl185735186695%_))))
                           (let ((_%tl185894185970%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e185892185965%_)))
                                 (_%hd185893185968%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e185892185965%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%hd185893185968%_))
                                 (let ((_%e185895185973%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%hd185893185968%_))))
                                   (let ((_%tl185897185978%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e185895185973%_)))
                                         (_%hd185896185976%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e185895185973%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#identifier? _%hd185896185976%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-eq?
                                                '%#ref
                                                _%hd185896185976%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl185897185978%_))
                                                 (let ((_%e185898185981%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl185897185978%_))))
                                                   (let ((_%tl185900185986%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e185898185981%_)))
                                                         (_%hd185899185984%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e185898185981%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl185900185986%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-null? _%tl185894185970%_))
                     (_%__kont189746189747%_
                      _%hd185899185984%_
                      _%hd185890185960%_
                      _%hd185887185952%_)
                     (_%__kont189748189749%_))
                 (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont189748189749%_))
                                             (_%__kont189748189749%_))
                                         (_%__kont189748189749%_))))
                                 (_%__kont189748189749%_))))
                         (_%__kont189748189749%_))
                     (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))
                                                 (_%__kont189748189749%_))))
                                         (_%__kont189748189749%_))))
                                 (_%__kont189748189749%_))
                             (_%__kont189748189749%_)))
                     (_%__kont189748189749%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont189748189749%_))))
                                             (_%__kont189748189749%_))
                                         (_%__kont189748189749%_))
                                     (_%__kont189748189749%_))))
                             (_%__kont189748189749%_))))))
                  (_%countf-symbol181770%_
                   (lambda (_%id185708%_)
                     (let ((_%$e185710%_
                            (let ()
                              (declare (not safe))
                              (gxc#identifier-symbol _%id185708%_))))
                       (if (or (eq? '##vector-length _%$e185710%_)
                               (eq? 'vector-length _%$e185710%_))
                           'vector-length
                           (if (eq? 'values-count _%$e185710%_)
                               'values-count
                               '#f)))))
                  (_%eqf-symbol181771%_
                   (lambda (_%sym185694%_)
                     (let ((_%$e185696%_ _%sym185694%_))
                       (if (or (eq? '##eq? _%$e185696%_)
                               (eq? 'eq? _%$e185696%_))
                           'eq?
                           (if (or (eq? '##eqv? _%$e185696%_)
                                   (eq? 'eqv? _%$e185696%_))
                               'eqv?
                               (if (or (eq? '##equal? _%$e185696%_)
                                       (eq? 'equal? _%$e185696%_))
                                   'equal?
                                   (if (eq? 'gx#free-identifier=? _%$e185696%_)
                                       'free-identifier=?
                                       (if (eq? 'gx#stx-eq? _%$e185696%_)
                                           'stx-eq?
                                           '#f))))))))
                  (_%eqf-symbol?181772%_
                   (lambda (_%sym185677%_)
                     (let ((_%$e185679%_ _%sym185677%_))
                       (if (or (eq? 'eq? _%$e185679%_)
                               (eq? 'eqv? _%$e185679%_)
                               (eq? 'equal? _%$e185679%_)
                               (eq? 'free-identifier=? _%$e185679%_)
                               (eq? 'stx-eq? _%$e185679%_))
                           '#t
                           '#f))))
                  (_%do-assert!181773%_
                   (lambda (_%assert185668%_ _%type185669%_ _%K185670%_)
                     (let ((_%unwind-assert185672%_ _%env-assert181763%_)
                           (_%unwind-type185673%_ _%env-type181764%_))
                       (set! _%env-assert181763%_ _%assert185668%_)
                       (set! _%env-type181764%_ _%type185669%_)
                       (let ((_%val185675%_ (_%K185670%_)))
                         (set! _%env-assert181763%_ _%unwind-assert185672%_)
                         (set! _%env-type181764%_ _%unwind-type185673%_)
                         _%val185675%_))))
                  (_%do-bind181774%_
                   (lambda (_%bind185665%_ _%K185666%_)
                     (if (pair? _%bind185665%_)
                         (_%do-bind!181776%_
                          (_%fold-bind-env181775%_
                           _%bind185665%_
                           _%env-bind181765%_)
                          _%K185666%_)
                         (_%K185666%_))))
                  (_%fold-bind-env181775%_
                   (lambda (_%bind185594%_ _%env185595%_)
                     (let _%lp185597%_ ((_%rest185599%_ _%bind185594%_)
                                        (_%env185600%_ _%env185595%_))
                       (let* ((_%rest185601185609%_ _%rest185599%_)
                              (_%else185603185617%_ (lambda () _%env185600%_))
                              (_%K185605185653%_
                               (lambda (_%rest185620%_ _%bind185621%_)
                                 (let* ((_%bind185622185629%_ _%bind185621%_)
                                        (_%E185624185633%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (error '"No clause matching"
                                                    _%bind185622185629%_
                                                    '([id . expr])))
                                           '#!void))
                                        (_%K185625185641%_
                                         (lambda (_%expr185636%_ _%id185637%_)
                                           (let ((_%sexpr185639%_
                                                  (gxc#apply-generate-runtime-repr
                                                   _%expr185636%_)))
                                             (_%lp185597%_
                                              _%rest185620%_
                                              (cons (cons _%sexpr185639%_
                                                          _%id185637%_)
                                                    _%env185600%_))))))
                                   (if (pair? _%bind185622185629%_)
                                       (let ((_%hd185626185644%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%bind185622185629%_)))
                                             (_%tl185627185646%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%bind185622185629%_))))
                                         (let* ((_%id185649%_
                                                 _%hd185626185644%_)
                                                (_%expr185651%_
                                                 _%tl185627185646%_))
                                           (_%K185625185641%_
                                            _%expr185651%_
                                            _%id185649%_)))
                                       (_%E185624185633%_))))))
                         (if (pair? _%rest185601185609%_)
                             (let ((_%hd185606185656%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest185601185609%_)))
                                   (_%tl185607185658%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest185601185609%_))))
                               (let* ((_%bind185661%_ _%hd185606185656%_)
                                      (_%rest185663%_ _%tl185607185658%_))
                                 (_%K185605185653%_
                                  _%rest185663%_
                                  _%bind185661%_)))
                             (_%else185603185617%_))))))
                  (_%do-bind!181776%_
                   (lambda (_%env185587%_ _%K185588%_)
                     (let ((_%unwind185590%_ _%env-bind181765%_))
                       (set! _%env-bind181765%_ _%env185587%_)
                       (let ((_%val185592%_ (_%K185588%_)))
                         (set! _%env-bind181765%_ _%unwind185590%_)
                         _%val185592%_))))
                  (_%do-splice!181777%_
                   (lambda (_%K185581%_)
                     (let ((_%unwind185583%_ _%in-splice?181766%_))
                       (set! _%in-splice?181766%_ '#t)
                       (let ((_%val185585%_ (_%K185581%_)))
                         (set! _%in-splice?181766%_ _%unwind185583%_)
                         _%val185585%_))))
                  (_%optimize-e181778%_
                   (lambda (_%expr184777%_)
                     (let* ((_%__stx190186190187%_ _%expr184777%_)
                            (_%g184784184957%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%__stx190186190187%_)))))
                       (let ((_%__kont190188190189%_
                              (lambda (_%L185553%_ _%L185554%_ _%L185555%_)
                                (let ((_%$e185572%_
                                       (_%assert-e181781%_ _%L185555%_)))
                                  (if (eq? '#t _%$e185572%_)
                                      (_%optimize-e181778%_ _%L185554%_)
                                      (if (eq? '#f _%$e185572%_)
                                          (_%optimize-e181778%_ _%L185553%_)
                                          (let ((_%K185575%_
                                                 (_%optimize-t__0__189133189134%_
                                                  _%L185554%_
                                                  _%L185555%_))
                                                (_%E185576%_
                                                 (_%optimize-f__189135189136%_
                                                  _%L185553%_
                                                  _%L185555%_)))
                                            (if (equal? (gxc#apply-generate-runtime-repr
                                                         _%K185575%_)
                                                        (gxc#apply-generate-runtime-repr
                                                         _%E185576%_))
                                                _%K185575%_
                                                (cons '%#if
                                                      (cons _%L185555%_
                                                            (cons _%K185575%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (cons _%E185576%_ '())))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                             (_%__kont190190190191%_
                              (lambda (_%L185482%_ _%L185483%_)
                                (let ((_%$e185503%_
                                       (_%lookup-block181786%_ _%L185483%_)))
                                  (if _%$e185503%_
                                      ((lambda (_%block185506%_)
                                         (if (_%nonlinear-block?181788%_
                                              _%block185506%_)
                                             _%expr184777%_
                                             (_%optimize-e181778%_
                                              (_%inline-block181787%_
                                               _%block185506%_
                                               (let ((__tmp192281
                                                      (lambda (_%g185507185510%_
                                                               _%g185508185512%_)
                                                        (cons _%g185507185510%_
                                                              _%g185508185512%_))))
                                                 (declare (not safe))
                                                 (__foldr1
                                                  __tmp192281
                                                  '()
                                                  _%L185482%_))))))
                                       _%$e185503%_)
                                      _%expr184777%_))))
                             (_%__kont190194190195%_
                              (lambda (_%L185372%_ _%L185373%_ _%L185374%_)
                                (let ((_%body185393%_
                                       (_%optimize-e181778%_ _%L185372%_)))
                                  (cons '%#let-values
                                        (cons (begin
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#syntax-check-splice-targets
                                                   _%L185373%_
                                                   _%L185374%_))
                                                (let ((__tmp192282
                                                       (lambda (_%g185394185398%_
                                                                _%g185395185400%_
                                                                _%g185396185402%_)
                                                         (cons (cons (cons _%g185395185400%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                   '())
                             (cons (cons (let ()
                                           (declare (not safe))
                                           (gx#datum->syntax__0 '#f '%#ref))
                                         (cons _%g185394185398%_ '()))
                                   '()))
                       _%g185396185402%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (declare (not safe))
                                                  (__foldr2
                                                   __tmp192282
                                                   '()
                                                   _%L185373%_
                                                   _%L185374%_)))
                                              (cons _%body185393%_ '()))))))
                             (_%__kont190198190199%_
                              (lambda (_%L185240%_ _%L185241%_ _%L185242%_)
                                (_%bind-e__0__189141189142%_
                                 (map cons
                                      (let ((__tmp192283
                                             (lambda (_%g185260185263%_
                                                      _%g185261185265%_)
                                               (cons _%g185260185263%_
                                                     _%g185261185265%_))))
                                        (declare (not safe))
                                        (__foldr1 __tmp192283 '() _%L185242%_))
                                      (let ((__tmp192284
                                             (lambda (_%g185267185270%_
                                                      _%g185268185272%_)
                                               (cons _%g185267185270%_
                                                     _%g185268185272%_))))
                                        (declare (not safe))
                                        (__foldr1
                                         __tmp192284
                                         '()
                                         _%L185241%_)))
                                 _%L185240%_)))
                             (_%__kont190202190203%_
                              (lambda (_%L185097%_
                                       _%L185098%_
                                       _%L185099%_
                                       _%L185100%_
                                       _%L185101%_)
                                (_%do-splice!181777%_
                                 (lambda ()
                                   (let ((_%expr185143%_
                                          (_%optimize-e181778%_ _%L185099%_)))
                                     (cons '%#letrec-values
                                           (cons (cons (cons (cons _%L185101%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '())
                     (cons (cons '%#lambda
                                 (cons (let ((__tmp192285
                                              (lambda (_%g185144185147%_
                                                       _%g185145185149%_)
                                                (cons _%g185144185147%_
                                                      _%g185145185149%_))))
                                         (declare (not safe))
                                         (__foldr1
                                          __tmp192285
                                          '()
                                          _%L185100%_))
                                       (cons _%expr185143%_ '())))
                           '()))
               (let ((__tmp192286
                      (lambda (_%g185151185154%_ _%g185152185156%_)
                        (cons _%g185151185154%_ _%g185152185156%_))))
                 (declare (not safe))
                 (__foldr1 __tmp192286 '() _%L185098%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (cons _%L185097%_ '()))))))))
                             (_%__kont190208190209%_
                              (lambda () _%expr184777%_)))
                         (let* ((_%__match190395190396%_
                                 (lambda (_%e184905184969%_
                                          _%hd184906184972%_
                                          _%tl184907184974%_
                                          _%e184908184977%_
                                          _%hd184909184980%_
                                          _%tl184910184982%_
                                          _%e184911184985%_
                                          _%hd184912184988%_
                                          _%tl184913184990%_
                                          _%e184914184993%_
                                          _%hd184915184996%_
                                          _%tl184916184998%_
                                          _%e184917185001%_
                                          _%hd184918185004%_
                                          _%tl184919185006%_
                                          _%e184920185009%_
                                          _%hd184921185012%_
                                          _%tl184922185014%_
                                          _%e184923185017%_
                                          _%hd184924185020%_
                                          _%tl184925185022%_
                                          _%e184926185025%_
                                          _%hd184927185028%_
                                          _%tl184928185030%_
                                          _%__splice190204190205%_
                                          _%target184929185033%_
                                          _%tl184931185035%_)
                                   (letrec ((_%loop184932185038%_
                                             (lambda (_%hd184930185041%_
                                                      _%id184936185043%_)
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd184930185041%_))
                                                   (let ((_%e184933185046%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd184930185041%_))))
                                                     (let ((_%lp-tl184935185051%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e184933185046%_)))
                                                           (_%lp-hd184934185049%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e184933185046%_))))
                                                       (_%loop184932185038%_
                                                        _%lp-tl184935185051%_
                                                        (cons _%lp-hd184934185049%_
                                                              _%id184936185043%_))))
                                                   (let ((_%id184937185054%_
                                                          (reverse _%id184936185043%_)))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl184928185030%_))
                                                         (let ((_%e184938185057%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl184928185030%_))))
                   (let ((_%tl184940185062%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e184938185057%_)))
                         (_%hd184939185060%_
                          (let ()
                            (declare (not safe))
                            (##car _%e184938185057%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl184940185062%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl184922185014%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair/null? _%tl184913184990%_))
                                 (let ((_%__splice190206190207%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#syntax-split-splice
                                           _%tl184913184990%_
                                           '0))))
                                   (let ((_%tl184943185067%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref
                                             _%__splice190206190207%_
                                             '1)))
                                         (_%target184941185065%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref
                                             _%__splice190206190207%_
                                             '0))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl184943185067%_))
                                         (letrec ((_%loop184944185070%_
                                                   (lambda (_%hd184942185073%_
                                                            _%bind184948185075%_)
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%hd184942185073%_))
                                                         (let ((_%e184945185078%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%hd184942185073%_))))
                   (let ((_%lp-tl184947185083%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e184945185078%_)))
                         (_%lp-hd184946185081%_
                          (let ()
                            (declare (not safe))
                            (##car _%e184945185078%_))))
                     (_%loop184944185070%_
                      _%lp-tl184947185083%_
                      (cons _%lp-hd184946185081%_ _%bind184948185075%_))))
                 (let ((_%bind184949185086%_ (reverse _%bind184948185075%_)))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%tl184910184982%_))
                       (let ((_%e184950185089%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl184910184982%_))))
                         (let ((_%tl184952185094%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e184950185089%_)))
                               (_%hd184951185092%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e184950185089%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl184952185094%_))
                               (_%__kont190202190203%_
                                _%hd184951185092%_
                                _%bind184949185086%_
                                _%hd184939185060%_
                                _%id184937185054%_
                                _%hd184918185004%_)
                               (_%__kont190208190209%_))))
                       (_%__kont190208190209%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (_%loop184944185070%_
                                            _%target184941185065%_
                                            '()))
                                         (_%__kont190208190209%_))))
                                 (_%__kont190208190209%_))
                             (_%__kont190208190209%_))
                         (_%__kont190208190209%_))))
                 (_%__kont190208190209%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (_%loop184932185038%_
                                      _%target184929185033%_
                                      '()))))
                                (_%__match190329190330%_
                                 (lambda (_%e184871185164%_
                                          _%hd184872185167%_
                                          _%tl184873185169%_
                                          _%e184874185172%_
                                          _%hd184875185175%_
                                          _%tl184876185177%_
                                          _%__splice190200190201%_
                                          _%target184877185180%_
                                          _%tl184879185182%_)
                                   (letrec ((_%loop184880185185%_
                                             (lambda (_%hd184878185188%_
                                                      _%expr184884185190%_
                                                      _%id184885185192%_)
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd184878185188%_))
                                                   (let ((_%e184881185195%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd184878185188%_))))
                                                     (let ((_%lp-tl184883185200%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e184881185195%_)))
                                                           (_%lp-hd184882185198%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e184881185195%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%lp-hd184882185198%_))
                                                           (let ((_%e184891185203%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%lp-hd184882185198%_))))
                     (let ((_%tl184893185208%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e184891185203%_)))
                           (_%hd184892185206%_
                            (let ()
                              (declare (not safe))
                              (##car _%e184891185203%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd184892185206%_))
                           (let ((_%e184894185211%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd184892185206%_))))
                             (let ((_%tl184896185216%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e184894185211%_)))
                                   (_%hd184895185214%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e184894185211%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl184896185216%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%tl184893185208%_))
                                       (let ((_%e184897185219%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%tl184893185208%_))))
                                         (let ((_%tl184899185224%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e184897185219%_)))
                                               (_%hd184898185222%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e184897185219%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-null?
                                                  _%tl184899185224%_))
                                               (_%loop184880185185%_
                                                _%lp-tl184883185200%_
                                                (cons _%hd184898185222%_
                                                      _%expr184884185190%_)
                                                (cons _%hd184895185214%_
                                                      _%id184885185192%_))
                                               (_%__kont190208190209%_))))
                                       (_%__kont190208190209%_))
                                   (_%__kont190208190209%_))))
                           (_%__kont190208190209%_))))
                   (_%__kont190208190209%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ((_%id184887185229%_
                                                          (reverse _%id184885185192%_))
                                                         (_%expr184886185227%_
                                                          (reverse _%expr184884185190%_)))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl184876185177%_))
                                                         (let ((_%e184888185232%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl184876185177%_))))
                   (let ((_%tl184890185237%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e184888185232%_)))
                         (_%hd184889185235%_
                          (let ()
                            (declare (not safe))
                            (##car _%e184888185232%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl184890185237%_))
                         (_%__kont190198190199%_
                          _%hd184889185235%_
                          _%expr184886185227%_
                          _%id184887185229%_)
                         (_%__kont190208190209%_))))
                 (_%__kont190208190209%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (_%loop184880185185%_
                                      _%target184877185180%_
                                      '()
                                      '()))))
                                (_%__match190305190306%_
                                 (lambda (_%e184833185280%_
                                          _%hd184834185283%_
                                          _%tl184835185285%_
                                          _%e184836185288%_
                                          _%hd184837185291%_
                                          _%tl184838185293%_
                                          _%__splice190196190197%_
                                          _%target184839185296%_
                                          _%tl184841185298%_)
                                   (letrec ((_%loop184842185301%_
                                             (lambda (_%hd184840185304%_
                                                      _%xid184846185306%_
                                                      _%id184847185308%_)
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd184840185304%_))
                                                   (let ((_%e184843185311%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd184840185304%_))))
                                                     (let ((_%lp-tl184845185316%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e184843185311%_)))
                                                           (_%lp-hd184844185314%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e184843185311%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%lp-hd184844185314%_))
                                                           (let ((_%e184853185319%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%lp-hd184844185314%_))))
                     (let ((_%tl184855185324%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e184853185319%_)))
                           (_%hd184854185322%_
                            (let ()
                              (declare (not safe))
                              (##car _%e184853185319%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd184854185322%_))
                           (let ((_%e184856185327%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd184854185322%_))))
                             (let ((_%tl184858185332%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e184856185327%_)))
                                   (_%hd184857185330%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e184856185327%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl184858185332%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%tl184855185324%_))
                                       (let ((_%e184859185335%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%tl184855185324%_))))
                                         (let ((_%tl184861185340%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e184859185335%_)))
                                               (_%hd184860185338%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e184859185335%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%hd184860185338%_))
                                               (let ((_%e184862185343%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%hd184860185338%_))))
                                                 (let ((_%tl184864185348%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e184862185343%_)))
                                                       (_%hd184863185346%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e184862185343%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#identifier?
                                                          _%hd184863185346%_))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-eq?
                                                              '%#ref
                                                              _%hd184863185346%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl184864185348%_))
                       (let ((_%e184865185351%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl184864185348%_))))
                         (let ((_%tl184867185356%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e184865185351%_)))
                               (_%hd184866185354%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e184865185351%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl184867185356%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl184861185340%_))
                                   (_%loop184842185301%_
                                    _%lp-tl184845185316%_
                                    (cons _%hd184866185354%_
                                          _%xid184846185306%_)
                                    (cons _%hd184857185330%_
                                          _%id184847185308%_))
                                   (_%__match190329190330%_
                                    _%e184833185280%_
                                    _%hd184834185283%_
                                    _%tl184835185285%_
                                    _%e184836185288%_
                                    _%hd184837185291%_
                                    _%tl184838185293%_
                                    _%__splice190196190197%_
                                    _%target184839185296%_
                                    _%tl184841185298%_))
                               (_%__match190329190330%_
                                _%e184833185280%_
                                _%hd184834185283%_
                                _%tl184835185285%_
                                _%e184836185288%_
                                _%hd184837185291%_
                                _%tl184838185293%_
                                _%__splice190196190197%_
                                _%target184839185296%_
                                _%tl184841185298%_))))
                       (_%__match190329190330%_
                        _%e184833185280%_
                        _%hd184834185283%_
                        _%tl184835185285%_
                        _%e184836185288%_
                        _%hd184837185291%_
                        _%tl184838185293%_
                        _%__splice190196190197%_
                        _%target184839185296%_
                        _%tl184841185298%_))
                   (_%__match190329190330%_
                    _%e184833185280%_
                    _%hd184834185283%_
                    _%tl184835185285%_
                    _%e184836185288%_
                    _%hd184837185291%_
                    _%tl184838185293%_
                    _%__splice190196190197%_
                    _%target184839185296%_
                    _%tl184841185298%_))
               (_%__match190329190330%_
                _%e184833185280%_
                _%hd184834185283%_
                _%tl184835185285%_
                _%e184836185288%_
                _%hd184837185291%_
                _%tl184838185293%_
                _%__splice190196190197%_
                _%target184839185296%_
                _%tl184841185298%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%__match190329190330%_
                                                _%e184833185280%_
                                                _%hd184834185283%_
                                                _%tl184835185285%_
                                                _%e184836185288%_
                                                _%hd184837185291%_
                                                _%tl184838185293%_
                                                _%__splice190196190197%_
                                                _%target184839185296%_
                                                _%tl184841185298%_))))
                                       (_%__match190329190330%_
                                        _%e184833185280%_
                                        _%hd184834185283%_
                                        _%tl184835185285%_
                                        _%e184836185288%_
                                        _%hd184837185291%_
                                        _%tl184838185293%_
                                        _%__splice190196190197%_
                                        _%target184839185296%_
                                        _%tl184841185298%_))
                                   (_%__match190329190330%_
                                    _%e184833185280%_
                                    _%hd184834185283%_
                                    _%tl184835185285%_
                                    _%e184836185288%_
                                    _%hd184837185291%_
                                    _%tl184838185293%_
                                    _%__splice190196190197%_
                                    _%target184839185296%_
                                    _%tl184841185298%_))))
                           (_%__match190329190330%_
                            _%e184833185280%_
                            _%hd184834185283%_
                            _%tl184835185285%_
                            _%e184836185288%_
                            _%hd184837185291%_
                            _%tl184838185293%_
                            _%__splice190196190197%_
                            _%target184839185296%_
                            _%tl184841185298%_))))
                   (_%__match190329190330%_
                    _%e184833185280%_
                    _%hd184834185283%_
                    _%tl184835185285%_
                    _%e184836185288%_
                    _%hd184837185291%_
                    _%tl184838185293%_
                    _%__splice190196190197%_
                    _%target184839185296%_
                    _%tl184841185298%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ((_%id184849185361%_
                                                          (reverse _%id184847185308%_))
                                                         (_%xid184848185359%_
                                                          (reverse _%xid184846185306%_)))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl184838185293%_))
                                                         (let ((_%e184850185364%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl184838185293%_))))
                   (let ((_%tl184852185369%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e184850185364%_)))
                         (_%hd184851185367%_
                          (let ()
                            (declare (not safe))
                            (##car _%e184850185364%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl184852185369%_))
                         (_%__kont190194190195%_
                          _%hd184851185367%_
                          _%xid184848185359%_
                          _%id184849185361%_)
                         (_%__match190329190330%_
                          _%e184833185280%_
                          _%hd184834185283%_
                          _%tl184835185285%_
                          _%e184836185288%_
                          _%hd184837185291%_
                          _%tl184838185293%_
                          _%__splice190196190197%_
                          _%target184839185296%_
                          _%tl184841185298%_))))
                 (_%__match190329190330%_
                  _%e184833185280%_
                  _%hd184834185283%_
                  _%tl184835185285%_
                  _%e184836185288%_
                  _%hd184837185291%_
                  _%tl184838185293%_
                  _%__splice190196190197%_
                  _%target184839185296%_
                  _%tl184841185298%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (_%loop184842185301%_
                                      _%target184839185296%_
                                      '()
                                      '()))))
                                (_%__match190281190282%_
                                 (lambda (_%e184803185410%_
                                          _%hd184804185413%_
                                          _%tl184805185415%_
                                          _%e184806185418%_
                                          _%hd184807185421%_
                                          _%tl184808185423%_
                                          _%e184809185426%_
                                          _%hd184810185429%_
                                          _%tl184811185431%_
                                          _%e184812185434%_
                                          _%hd184813185437%_
                                          _%tl184814185439%_
                                          _%__splice190192190193%_
                                          _%target184815185442%_
                                          _%tl184817185444%_)
                                   (letrec ((_%loop184818185447%_
                                             (lambda (_%hd184816185450%_
                                                      _%id184822185452%_)
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd184816185450%_))
                                                   (let ((_%e184819185455%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd184816185450%_))))
                                                     (let ((_%lp-tl184821185460%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e184819185455%_)))
                                                           (_%lp-hd184820185458%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e184819185455%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%lp-hd184820185458%_))
                                                           (let ((_%e184824185463%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%lp-hd184820185458%_))))
                     (let ((_%tl184826185468%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e184824185463%_)))
                           (_%hd184825185466%_
                            (let ()
                              (declare (not safe))
                              (##car _%e184824185463%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%hd184825185466%_))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-eq? '%#ref _%hd184825185466%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl184826185468%_))
                                   (let ((_%e184827185471%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl184826185468%_))))
                                     (let ((_%tl184829185476%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e184827185471%_)))
                                           (_%hd184828185474%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e184827185471%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl184829185476%_))
                                           (_%loop184818185447%_
                                            _%lp-tl184821185460%_
                                            (cons _%hd184828185474%_
                                                  _%id184822185452%_))
                                           (_%__kont190208190209%_))))
                                   (_%__kont190208190209%_))
                               (_%__kont190208190209%_))
                           (_%__kont190208190209%_))))
                   (_%__kont190208190209%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ((_%id184823185479%_
                                                          (reverse _%id184822185452%_)))
                                                     (_%__kont190190190191%_
                                                      _%id184823185479%_
                                                      _%hd184813185437%_))))))
                                     (_%loop184818185447%_
                                      _%target184815185442%_
                                      '())))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%__stx190186190187%_))
                               (let ((_%e184789185521%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%__stx190186190187%_))))
                                 (let ((_%tl184791185526%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e184789185521%_)))
                                       (_%hd184790185524%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e184789185521%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%hd184790185524%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-eq?
                                              '%#if
                                              _%hd184790185524%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl184791185526%_))
                                               (let ((_%e184792185529%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl184791185526%_))))
                                                 (let ((_%tl184794185534%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e184792185529%_)))
                                                       (_%hd184793185532%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e184792185529%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl184794185534%_))
                                                       (let ((_%e184795185537%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl184794185534%_))))
                 (let ((_%tl184797185542%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e184795185537%_)))
                       (_%hd184796185540%_
                        (let ()
                          (declare (not safe))
                          (##car _%e184795185537%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%tl184797185542%_))
                       (let ((_%e184798185545%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl184797185542%_))))
                         (let ((_%tl184800185550%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e184798185545%_)))
                               (_%hd184799185548%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e184798185545%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl184800185550%_))
                               (_%__kont190188190189%_
                                _%hd184799185548%_
                                _%hd184796185540%_
                                _%hd184793185532%_)
                               (_%__kont190208190209%_))))
                       (_%__kont190208190209%_))))
               (_%__kont190208190209%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%__kont190208190209%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-eq?
                                                  '%#call
                                                  _%hd184790185524%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl184791185526%_))
                                                   (let ((_%e184806185418%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl184791185526%_))))
                                                     (let ((_%tl184808185423%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e184806185418%_)))
                                                           (_%hd184807185421%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e184806185418%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd184807185421%_))
                                                           (let ((_%e184809185426%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd184807185421%_))))
                     (let ((_%tl184811185431%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e184809185426%_)))
                           (_%hd184810185429%_
                            (let ()
                              (declare (not safe))
                              (##car _%e184809185426%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%hd184810185429%_))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-eq? '%#ref _%hd184810185429%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl184811185431%_))
                                   (let ((_%e184812185434%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl184811185431%_))))
                                     (let ((_%tl184814185439%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e184812185434%_)))
                                           (_%hd184813185437%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e184812185434%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl184814185439%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair/null?
                                                  _%tl184808185423%_))
                                               (let ((_%__splice190192190193%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#syntax-split-splice
                                                         _%tl184808185423%_
                                                         '0))))
                                                 (let ((_%tl184817185444%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##vector-ref
                                                           _%__splice190192190193%_
                                                           '1)))
                                                       (_%target184815185442%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##vector-ref
                                                           _%__splice190192190193%_
                                                           '0))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl184817185444%_))
                                                       (_%__match190281190282%_
                                                        _%e184789185521%_
                                                        _%hd184790185524%_
                                                        _%tl184791185526%_
                                                        _%e184806185418%_
                                                        _%hd184807185421%_
                                                        _%tl184808185423%_
                                                        _%e184809185426%_
                                                        _%hd184810185429%_
                                                        _%tl184811185431%_
                                                        _%e184812185434%_
                                                        _%hd184813185437%_
                                                        _%tl184814185439%_
                                                        _%__splice190192190193%_
                                                        _%target184815185442%_
                                                        _%tl184817185444%_)
                                                       (_%__kont190208190209%_))))
                                               (_%__kont190208190209%_))
                                           (_%__kont190208190209%_))))
                                   (_%__kont190208190209%_))
                               (_%__kont190208190209%_))
                           (_%__kont190208190209%_))))
                   (_%__kont190208190209%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%__kont190208190209%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-eq?
                                                      '%#let-values
                                                      _%hd184790185524%_))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl184791185526%_))
                                                       (let ((_%e184836185288%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl184791185526%_))))
                 (let ((_%tl184838185293%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e184836185288%_)))
                       (_%hd184837185291%_
                        (let ()
                          (declare (not safe))
                          (##car _%e184836185288%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair/null? _%hd184837185291%_))
                       (let ((_%__splice190196190197%_
                              (let ()
                                (declare (not safe))
                                (gx#syntax-split-splice
                                 _%hd184837185291%_
                                 '0))))
                         (let ((_%tl184841185298%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _%__splice190196190197%_ '1)))
                               (_%target184839185296%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _%__splice190196190197%_ '0))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl184841185298%_))
                               (_%__match190305190306%_
                                _%e184789185521%_
                                _%hd184790185524%_
                                _%tl184791185526%_
                                _%e184836185288%_
                                _%hd184837185291%_
                                _%tl184838185293%_
                                _%__splice190196190197%_
                                _%target184839185296%_
                                _%tl184841185298%_)
                               (_%__kont190208190209%_))))
                       (_%__kont190208190209%_))))
               (_%__kont190208190209%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-eq?
                                                          '%#letrec-values
                                                          _%hd184790185524%_))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%tl184791185526%_))
                                                           (let ((_%e184908184977%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%tl184791185526%_))))
                     (let ((_%tl184910184982%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e184908184977%_)))
                           (_%hd184909184980%_
                            (let ()
                              (declare (not safe))
                              (##car _%e184908184977%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd184909184980%_))
                           (let ((_%e184911184985%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd184909184980%_))))
                             (let ((_%tl184913184990%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e184911184985%_)))
                                   (_%hd184912184988%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e184911184985%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%hd184912184988%_))
                                   (let ((_%e184914184993%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%hd184912184988%_))))
                                     (let ((_%tl184916184998%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e184914184993%_)))
                                           (_%hd184915184996%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e184914184993%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%hd184915184996%_))
                                           (let ((_%e184917185001%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%hd184915184996%_))))
                                             (let ((_%tl184919185006%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e184917185001%_)))
                                                   (_%hd184918185004%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e184917185001%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl184919185006%_))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl184916184998%_))
                                                       (let ((_%e184920185009%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl184916184998%_))))
                 (let ((_%tl184922185014%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e184920185009%_)))
                       (_%hd184921185012%_
                        (let ()
                          (declare (not safe))
                          (##car _%e184920185009%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%hd184921185012%_))
                       (let ((_%e184923185017%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%hd184921185012%_))))
                         (let ((_%tl184925185022%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e184923185017%_)))
                               (_%hd184924185020%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e184923185017%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#identifier? _%hd184924185020%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-eq? '%#lambda _%hd184924185020%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%tl184925185022%_))
                                       (let ((_%e184926185025%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%tl184925185022%_))))
                                         (let ((_%tl184928185030%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e184926185025%_)))
                                               (_%hd184927185028%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e184926185025%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair/null?
                                                  _%hd184927185028%_))
                                               (let ((_%__splice190204190205%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#syntax-split-splice
                                                         _%hd184927185028%_
                                                         '0))))
                                                 (let ((_%tl184931185035%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##vector-ref
                                                           _%__splice190204190205%_
                                                           '1)))
                                                       (_%target184929185033%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##vector-ref
                                                           _%__splice190204190205%_
                                                           '0))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl184931185035%_))
                                                       (_%__match190395190396%_
                                                        _%e184789185521%_
                                                        _%hd184790185524%_
                                                        _%tl184791185526%_
                                                        _%e184908184977%_
                                                        _%hd184909184980%_
                                                        _%tl184910184982%_
                                                        _%e184911184985%_
                                                        _%hd184912184988%_
                                                        _%tl184913184990%_
                                                        _%e184914184993%_
                                                        _%hd184915184996%_
                                                        _%tl184916184998%_
                                                        _%e184917185001%_
                                                        _%hd184918185004%_
                                                        _%tl184919185006%_
                                                        _%e184920185009%_
                                                        _%hd184921185012%_
                                                        _%tl184922185014%_
                                                        _%e184923185017%_
                                                        _%hd184924185020%_
                                                        _%tl184925185022%_
                                                        _%e184926185025%_
                                                        _%hd184927185028%_
                                                        _%tl184928185030%_
                                                        _%__splice190204190205%_
                                                        _%target184929185033%_
                                                        _%tl184931185035%_)
                                                       (_%__kont190208190209%_))))
                                               (_%__kont190208190209%_))))
                                       (_%__kont190208190209%_))
                                   (_%__kont190208190209%_))
                               (_%__kont190208190209%_))))
                       (_%__kont190208190209%_))))
               (_%__kont190208190209%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%__kont190208190209%_))))
                                           (_%__kont190208190209%_))))
                                   (_%__kont190208190209%_))))
                           (_%__kont190208190209%_))))
                   (_%__kont190208190209%_))
               (_%__kont190208190209%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       (_%__kont190208190209%_))))
                               (_%__kont190208190209%_)))))))
                  (_%optimize-t__189131189132%_
                   (lambda (_%expr184760%_ _%test184761%_ _%continue184762%_)
                     (_%do-assert181767%_
                      (cons (cons _%test184761%_ '#t) '())
                      (lambda () (_%continue184762%_ _%expr184760%_)))))
                  (_%optimize-t__0__189133189134%_
                   (lambda (_%expr184768%_ _%test184769%_)
                     (let ((_%continue184771%_ _%optimize-e181778%_))
                       (_%optimize-t__189131189132%_
                        _%expr184768%_
                        _%test184769%_
                        _%continue184771%_))))
                  (_%optimize-t181779%_
                   (lambda _g192288_
                     (let ((_g192287_
                            (let ()
                              (declare (not safe))
                              (##length _g192288_))))
                       (cond ((let () (declare (not safe)) (##fx= _g192287_ 2))
                              (apply _%optimize-t__0__189133189134%_
                                     _g192288_))
                             ((let () (declare (not safe)) (##fx= _g192287_ 3))
                              (apply _%optimize-t__189131189132%_ _g192288_))
                             (else
                              (##raise-wrong-number-of-arguments-exception
                               'case-lambda-dispatch
                               _g192288_))))))
                  (_%optimize-f__189135189136%_
                   (lambda (_%expr183844%_ _%test183845%_)
                     (_%do-assert181767%_
                      (if _%test183845%_
                          (cons (cons _%test183845%_ '#f) '())
                          '())
                      (lambda ()
                        (let* ((_%__stx190436190437%_ _%expr183844%_)
                               (_%g183853184026%_
                                (lambda ()
                                  (let ()
                                    (declare (not safe))
                                    (gx#raise-syntax-error
                                     '#f
                                     '"Bad syntax; invalid match target"
                                     _%__stx190436190437%_)))))
                          (let ((_%__kont190438190439%_
                                 (lambda (_%L184614%_ _%L184615%_)
                                   (let ((_%$e184635%_
                                          (_%lookup-block181786%_
                                           _%L184615%_)))
                                     (if _%$e184635%_
                                         ((lambda (_%block184638%_)
                                            (if (_%nonlinear-block?181788%_
                                                 _%block184638%_)
                                                _%expr183844%_
                                                (let* ((_%inline184647%_
                                                        (_%inline-block181787%_
                                                         _%block184638%_
                                                         (let ((__tmp192289
                                                                (lambda (_%g184639184642%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g184640184644%_)
                          (cons _%g184639184642%_ _%g184640184644%_))))
                   (declare (not safe))
                   (__foldr1 __tmp192289 '() _%L184614%_))))
               (_%__stx190398190399%_ _%inline184647%_)
               (_%g184650184671%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx190398190399%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ((_%__kont190400190401%_
                                                         (lambda (_%L184715%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _%L184716%_
                          _%L184717%_)
                   (let ((_%$e184739%_ (_%assert-e181781%_ _%L184717%_)))
                     (if (eq? '#t _%$e184739%_)
                         (if _%in-splice?181766%_
                             (_%optimize-f__0__189137189138%_ _%L184716%_)
                             (_%optimize-e181778%_ _%L184716%_))
                         (if (eq? '#f _%$e184739%_)
                             (_%optimize-f__0__189137189138%_ _%L184715%_)
                             _%expr183844%_)))))
                (_%__kont190402190403%_
                 (lambda ()
                   (_%optimize-f__0__189137189138%_ _%inline184647%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%__stx190398190399%_))
                                                        (let ((_%e184655184683%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%__stx190398190399%_))))
                  (let ((_%tl184657184688%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e184655184683%_)))
                        (_%hd184656184686%_
                         (let ()
                           (declare (not safe))
                           (##car _%e184655184683%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd184656184686%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#if _%hd184656184686%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl184657184688%_))
                                (let ((_%e184658184691%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl184657184688%_))))
                                  (let ((_%tl184660184696%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e184658184691%_)))
                                        (_%hd184659184694%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e184658184691%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl184660184696%_))
                                        (let ((_%e184661184699%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl184660184696%_))))
                                          (let ((_%tl184663184704%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e184661184699%_)))
                                                (_%hd184662184702%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e184661184699%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl184663184704%_))
                                                (let ((_%e184664184707%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl184663184704%_))))
                                                  (let ((_%tl184666184712%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e184664184707%_)))
                                                        (_%hd184665184710%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e184664184707%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl184666184712%_))
                                                        (_%__kont190400190401%_
                                                         _%hd184665184710%_
                                                         _%hd184662184702%_
                                                         _%hd184659184694%_)
                                                        (_%__kont190402190403%_))))
                                                (_%__kont190402190403%_))))
                                        (_%__kont190402190403%_))))
                                (_%__kont190402190403%_))
                            (_%__kont190402190403%_))
                        (_%__kont190402190403%_))))
                (_%__kont190402190403%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          _%$e184635%_)
                                         _%expr183844%_))))
                                (_%__kont190442190443%_
                                 (lambda (_%L184512%_ _%L184513%_ _%L184514%_)
                                   (let ((_%$e184531%_
                                          (_%assert-e181781%_ _%L184514%_)))
                                     (if (eq? '#t _%$e184531%_)
                                         (if _%in-splice?181766%_
                                             (_%optimize-f__0__189137189138%_
                                              _%L184513%_)
                                             (_%optimize-e181778%_
                                              _%L184513%_))
                                         (if (eq? '#f _%$e184531%_)
                                             (_%optimize-f__0__189137189138%_
                                              _%L184512%_)
                                             (let ((_%K184534%_
                                                    (_%optimize-t__189131189132%_
                                                     _%L184513%_
                                                     _%L184514%_
                                                     _%optimize-f181780%_))
                                                   (_%E184535%_
                                                    (_%optimize-f__189135189136%_
                                                     _%L184512%_
                                                     _%L184514%_)))
                                               (if (equal? (gxc#apply-generate-runtime-repr
                                                            _%K184534%_)
                                                           (gxc#apply-generate-runtime-repr
                                                            _%E184535%_))
                                                   _%K184534%_
                                                   (cons '%#if
                                                         (cons _%L184514%_
                                                               (cons _%K184534%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (cons _%E184535%_ '())))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                (_%__kont190444190445%_
                                 (lambda (_%L184442%_ _%L184443%_ _%L184444%_)
                                   (let ((_%body184463%_
                                          (_%optimize-f__0__189137189138%_
                                           _%L184442%_)))
                                     (cons '%#let-values
                                           (cons (begin
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#syntax-check-splice-targets
                                                      _%L184443%_
                                                      _%L184444%_))
                                                   (let ((__tmp192290
                                                          (lambda (_%g184464184468%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _%g184465184470%_
                           _%g184466184472%_)
                    (cons (cons (cons _%g184465184470%_ '())
                                (cons (cons (let ()
                                              (declare (not safe))
                                              (gx#datum->syntax__0 '#f '%#ref))
                                            (cons _%g184464184468%_ '()))
                                      '()))
                          _%g184466184472%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (declare (not safe))
                                                     (__foldr2
                                                      __tmp192290
                                                      '()
                                                      _%L184443%_
                                                      _%L184444%_)))
                                                 (cons _%body184463%_ '()))))))
                                (_%__kont190448190449%_
                                 (lambda (_%L184310%_ _%L184311%_ _%L184312%_)
                                   (_%bind-e__189139189140%_
                                    (map cons
                                         (let ((__tmp192291
                                                (lambda (_%g184330184333%_
                                                         _%g184331184335%_)
                                                  (cons _%g184330184333%_
                                                        _%g184331184335%_))))
                                           (declare (not safe))
                                           (__foldr1
                                            __tmp192291
                                            '()
                                            _%L184312%_))
                                         (let ((__tmp192292
                                                (lambda (_%g184337184340%_
                                                         _%g184338184342%_)
                                                  (cons _%g184337184340%_
                                                        _%g184338184342%_))))
                                           (declare (not safe))
                                           (__foldr1
                                            __tmp192292
                                            '()
                                            _%L184311%_)))
                                    _%L184310%_
                                    _%optimize-f181780%_)))
                                (_%__kont190452190453%_
                                 (lambda (_%L184166%_
                                          _%L184167%_
                                          _%L184168%_
                                          _%L184169%_
                                          _%L184170%_)
                                   (_%do-splice!181777%_
                                    (lambda ()
                                      (let ((_%expr184213%_
                                             (_%optimize-f__0__189137189138%_
                                              _%L184168%_)))
                                        (cons '%#letrec-values
                                              (cons (cons (cons (cons _%L184170%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '())
                        (cons (cons '%#lambda
                                    (cons (let ((__tmp192293
                                                 (lambda (_%g184214184217%_
                                                          _%g184215184219%_)
                                                   (cons _%g184214184217%_
                                                         _%g184215184219%_))))
                                            (declare (not safe))
                                            (__foldr1
                                             __tmp192293
                                             '()
                                             _%L184169%_))
                                          (cons _%expr184213%_ '())))
                              '()))
                  (let ((__tmp192294
                         (lambda (_%g184221184224%_ _%g184222184226%_)
                           (cons _%g184221184224%_ _%g184222184226%_))))
                    (declare (not safe))
                    (__foldr1 __tmp192294 '() _%L184167%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (cons _%L184166%_
                                                          '()))))))))
                                (_%__kont190458190459%_
                                 (lambda () _%expr183844%_)))
                            (let* ((_%__match190645190646%_
                                    (lambda (_%e183974184038%_
                                             _%hd183975184041%_
                                             _%tl183976184043%_
                                             _%e183977184046%_
                                             _%hd183978184049%_
                                             _%tl183979184051%_
                                             _%e183980184054%_
                                             _%hd183981184057%_
                                             _%tl183982184059%_
                                             _%e183983184062%_
                                             _%hd183984184065%_
                                             _%tl183985184067%_
                                             _%e183986184070%_
                                             _%hd183987184073%_
                                             _%tl183988184075%_
                                             _%e183989184078%_
                                             _%hd183990184081%_
                                             _%tl183991184083%_
                                             _%e183992184086%_
                                             _%hd183993184089%_
                                             _%tl183994184091%_
                                             _%e183995184094%_
                                             _%hd183996184097%_
                                             _%tl183997184099%_
                                             _%__splice190454190455%_
                                             _%target183998184102%_
                                             _%tl184000184104%_)
                                      (letrec ((_%loop184001184107%_
                                                (lambda (_%hd183999184110%_
                                                         _%id184005184112%_)
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd183999184110%_))
                                                      (let ((_%e184002184115%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd183999184110%_))))
                (let ((_%lp-tl184004184120%_
                       (let () (declare (not safe)) (##cdr _%e184002184115%_)))
                      (_%lp-hd184003184118%_
                       (let ()
                         (declare (not safe))
                         (##car _%e184002184115%_))))
                  (_%loop184001184107%_
                   _%lp-tl184004184120%_
                   (cons _%lp-hd184003184118%_ _%id184005184112%_))))
              (let ((_%id184006184123%_ (reverse _%id184005184112%_)))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl183997184099%_))
                    (let ((_%e184007184126%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl183997184099%_))))
                      (let ((_%tl184009184131%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e184007184126%_)))
                            (_%hd184008184129%_
                             (let ()
                               (declare (not safe))
                               (##car _%e184007184126%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl184009184131%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl183991184083%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair/null? _%tl183982184059%_))
                                    (let ((_%__splice190456190457%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#syntax-split-splice
                                              _%tl183982184059%_
                                              '0))))
                                      (let ((_%tl184012184136%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice190456190457%_
                                                '1)))
                                            (_%target184010184134%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice190456190457%_
                                                '0))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl184012184136%_))
                                            (letrec ((_%loop184013184139%_
                                                      (lambda (_%hd184011184142%_
                                                               _%bind184017184144%_)
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair?
                                                               _%hd184011184142%_))
                                                            (let ((_%e184014184147%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd184011184142%_))))
                      (let ((_%lp-tl184016184152%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e184014184147%_)))
                            (_%lp-hd184015184150%_
                             (let ()
                               (declare (not safe))
                               (##car _%e184014184147%_))))
                        (_%loop184013184139%_
                         _%lp-tl184016184152%_
                         (cons _%lp-hd184015184150%_ _%bind184017184144%_))))
                    (let ((_%bind184018184155%_
                           (reverse _%bind184017184144%_)))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl183979184051%_))
                          (let ((_%e184019184158%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl183979184051%_))))
                            (let ((_%tl184021184163%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e184019184158%_)))
                                  (_%hd184020184161%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e184019184158%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl184021184163%_))
                                  (_%__kont190452190453%_
                                   _%hd184020184161%_
                                   _%bind184018184155%_
                                   _%hd184008184129%_
                                   _%id184006184123%_
                                   _%hd183987184073%_)
                                  (_%__kont190458190459%_))))
                          (_%__kont190458190459%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%loop184013184139%_
                                               _%target184010184134%_
                                               '()))
                                            (_%__kont190458190459%_))))
                                    (_%__kont190458190459%_))
                                (_%__kont190458190459%_))
                            (_%__kont190458190459%_))))
                    (_%__kont190458190459%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                        (_%loop184001184107%_
                                         _%target183998184102%_
                                         '()))))
                                   (_%__match190579190580%_
                                    (lambda (_%e183940184234%_
                                             _%hd183941184237%_
                                             _%tl183942184239%_
                                             _%e183943184242%_
                                             _%hd183944184245%_
                                             _%tl183945184247%_
                                             _%__splice190450190451%_
                                             _%target183946184250%_
                                             _%tl183948184252%_)
                                      (letrec ((_%loop183949184255%_
                                                (lambda (_%hd183947184258%_
                                                         _%expr183953184260%_
                                                         _%id183954184262%_)
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd183947184258%_))
                                                      (let ((_%e183950184265%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd183947184258%_))))
                (let ((_%lp-tl183952184270%_
                       (let () (declare (not safe)) (##cdr _%e183950184265%_)))
                      (_%lp-hd183951184268%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183950184265%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%lp-hd183951184268%_))
                      (let ((_%e183960184273%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%lp-hd183951184268%_))))
                        (let ((_%tl183962184278%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e183960184273%_)))
                              (_%hd183961184276%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e183960184273%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd183961184276%_))
                              (let ((_%e183963184281%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd183961184276%_))))
                                (let ((_%tl183965184286%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e183963184281%_)))
                                      (_%hd183964184284%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e183963184281%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl183965184286%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl183962184278%_))
                                          (let ((_%e183966184289%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl183962184278%_))))
                                            (let ((_%tl183968184294%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e183966184289%_)))
                                                  (_%hd183967184292%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e183966184289%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl183968184294%_))
                                                  (_%loop183949184255%_
                                                   _%lp-tl183952184270%_
                                                   (cons _%hd183967184292%_
                                                         _%expr183953184260%_)
                                                   (cons _%hd183964184284%_
                                                         _%id183954184262%_))
                                                  (_%__kont190458190459%_))))
                                          (_%__kont190458190459%_))
                                      (_%__kont190458190459%_))))
                              (_%__kont190458190459%_))))
                      (_%__kont190458190459%_))))
              (let ((_%id183956184299%_ (reverse _%id183954184262%_))
                    (_%expr183955184297%_ (reverse _%expr183953184260%_)))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl183945184247%_))
                    (let ((_%e183957184302%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl183945184247%_))))
                      (let ((_%tl183959184307%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e183957184302%_)))
                            (_%hd183958184305%_
                             (let ()
                               (declare (not safe))
                               (##car _%e183957184302%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl183959184307%_))
                            (_%__kont190448190449%_
                             _%hd183958184305%_
                             _%expr183955184297%_
                             _%id183956184299%_)
                            (_%__kont190458190459%_))))
                    (_%__kont190458190459%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                        (_%loop183949184255%_
                                         _%target183946184250%_
                                         '()
                                         '()))))
                                   (_%__match190555190556%_
                                    (lambda (_%e183902184350%_
                                             _%hd183903184353%_
                                             _%tl183904184355%_
                                             _%e183905184358%_
                                             _%hd183906184361%_
                                             _%tl183907184363%_
                                             _%__splice190446190447%_
                                             _%target183908184366%_
                                             _%tl183910184368%_)
                                      (letrec ((_%loop183911184371%_
                                                (lambda (_%hd183909184374%_
                                                         _%xid183915184376%_
                                                         _%id183916184378%_)
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd183909184374%_))
                                                      (let ((_%e183912184381%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd183909184374%_))))
                (let ((_%lp-tl183914184386%_
                       (let () (declare (not safe)) (##cdr _%e183912184381%_)))
                      (_%lp-hd183913184384%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183912184381%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%lp-hd183913184384%_))
                      (let ((_%e183922184389%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%lp-hd183913184384%_))))
                        (let ((_%tl183924184394%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e183922184389%_)))
                              (_%hd183923184392%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e183922184389%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd183923184392%_))
                              (let ((_%e183925184397%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd183923184392%_))))
                                (let ((_%tl183927184402%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e183925184397%_)))
                                      (_%hd183926184400%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e183925184397%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl183927184402%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl183924184394%_))
                                          (let ((_%e183928184405%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl183924184394%_))))
                                            (let ((_%tl183930184410%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e183928184405%_)))
                                                  (_%hd183929184408%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e183928184405%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd183929184408%_))
                                                  (let ((_%e183931184413%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd183929184408%_))))
                                                    (let ((_%tl183933184418%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e183931184413%_)))
                                                          (_%hd183932184416%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e183931184413%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%hd183932184416%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-eq? '%#ref _%hd183932184416%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl183933184418%_))
                          (let ((_%e183934184421%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl183933184418%_))))
                            (let ((_%tl183936184426%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e183934184421%_)))
                                  (_%hd183935184424%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e183934184421%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl183936184426%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl183930184410%_))
                                      (_%loop183911184371%_
                                       _%lp-tl183914184386%_
                                       (cons _%hd183935184424%_
                                             _%xid183915184376%_)
                                       (cons _%hd183926184400%_
                                             _%id183916184378%_))
                                      (_%__match190579190580%_
                                       _%e183902184350%_
                                       _%hd183903184353%_
                                       _%tl183904184355%_
                                       _%e183905184358%_
                                       _%hd183906184361%_
                                       _%tl183907184363%_
                                       _%__splice190446190447%_
                                       _%target183908184366%_
                                       _%tl183910184368%_))
                                  (_%__match190579190580%_
                                   _%e183902184350%_
                                   _%hd183903184353%_
                                   _%tl183904184355%_
                                   _%e183905184358%_
                                   _%hd183906184361%_
                                   _%tl183907184363%_
                                   _%__splice190446190447%_
                                   _%target183908184366%_
                                   _%tl183910184368%_))))
                          (_%__match190579190580%_
                           _%e183902184350%_
                           _%hd183903184353%_
                           _%tl183904184355%_
                           _%e183905184358%_
                           _%hd183906184361%_
                           _%tl183907184363%_
                           _%__splice190446190447%_
                           _%target183908184366%_
                           _%tl183910184368%_))
                      (_%__match190579190580%_
                       _%e183902184350%_
                       _%hd183903184353%_
                       _%tl183904184355%_
                       _%e183905184358%_
                       _%hd183906184361%_
                       _%tl183907184363%_
                       _%__splice190446190447%_
                       _%target183908184366%_
                       _%tl183910184368%_))
                  (_%__match190579190580%_
                   _%e183902184350%_
                   _%hd183903184353%_
                   _%tl183904184355%_
                   _%e183905184358%_
                   _%hd183906184361%_
                   _%tl183907184363%_
                   _%__splice190446190447%_
                   _%target183908184366%_
                   _%tl183910184368%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match190579190580%_
                                                   _%e183902184350%_
                                                   _%hd183903184353%_
                                                   _%tl183904184355%_
                                                   _%e183905184358%_
                                                   _%hd183906184361%_
                                                   _%tl183907184363%_
                                                   _%__splice190446190447%_
                                                   _%target183908184366%_
                                                   _%tl183910184368%_))))
                                          (_%__match190579190580%_
                                           _%e183902184350%_
                                           _%hd183903184353%_
                                           _%tl183904184355%_
                                           _%e183905184358%_
                                           _%hd183906184361%_
                                           _%tl183907184363%_
                                           _%__splice190446190447%_
                                           _%target183908184366%_
                                           _%tl183910184368%_))
                                      (_%__match190579190580%_
                                       _%e183902184350%_
                                       _%hd183903184353%_
                                       _%tl183904184355%_
                                       _%e183905184358%_
                                       _%hd183906184361%_
                                       _%tl183907184363%_
                                       _%__splice190446190447%_
                                       _%target183908184366%_
                                       _%tl183910184368%_))))
                              (_%__match190579190580%_
                               _%e183902184350%_
                               _%hd183903184353%_
                               _%tl183904184355%_
                               _%e183905184358%_
                               _%hd183906184361%_
                               _%tl183907184363%_
                               _%__splice190446190447%_
                               _%target183908184366%_
                               _%tl183910184368%_))))
                      (_%__match190579190580%_
                       _%e183902184350%_
                       _%hd183903184353%_
                       _%tl183904184355%_
                       _%e183905184358%_
                       _%hd183906184361%_
                       _%tl183907184363%_
                       _%__splice190446190447%_
                       _%target183908184366%_
                       _%tl183910184368%_))))
              (let ((_%id183918184431%_ (reverse _%id183916184378%_))
                    (_%xid183917184429%_ (reverse _%xid183915184376%_)))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl183907184363%_))
                    (let ((_%e183919184434%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl183907184363%_))))
                      (let ((_%tl183921184439%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e183919184434%_)))
                            (_%hd183920184437%_
                             (let ()
                               (declare (not safe))
                               (##car _%e183919184434%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl183921184439%_))
                            (_%__kont190444190445%_
                             _%hd183920184437%_
                             _%xid183917184429%_
                             _%id183918184431%_)
                            (_%__match190579190580%_
                             _%e183902184350%_
                             _%hd183903184353%_
                             _%tl183904184355%_
                             _%e183905184358%_
                             _%hd183906184361%_
                             _%tl183907184363%_
                             _%__splice190446190447%_
                             _%target183908184366%_
                             _%tl183910184368%_))))
                    (_%__match190579190580%_
                     _%e183902184350%_
                     _%hd183903184353%_
                     _%tl183904184355%_
                     _%e183905184358%_
                     _%hd183906184361%_
                     _%tl183907184363%_
                     _%__splice190446190447%_
                     _%target183908184366%_
                     _%tl183910184368%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                        (_%loop183911184371%_
                                         _%target183908184366%_
                                         '()
                                         '()))))
                                   (_%__match190501190502%_
                                    (lambda (_%e183857184542%_
                                             _%hd183858184545%_
                                             _%tl183859184547%_
                                             _%e183860184550%_
                                             _%hd183861184553%_
                                             _%tl183862184555%_
                                             _%e183863184558%_
                                             _%hd183864184561%_
                                             _%tl183865184563%_
                                             _%e183866184566%_
                                             _%hd183867184569%_
                                             _%tl183868184571%_
                                             _%__splice190440190441%_
                                             _%target183869184574%_
                                             _%tl183871184576%_)
                                      (letrec ((_%loop183872184579%_
                                                (lambda (_%hd183870184582%_
                                                         _%id183876184584%_)
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd183870184582%_))
                                                      (let ((_%e183873184587%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd183870184582%_))))
                (let ((_%lp-tl183875184592%_
                       (let () (declare (not safe)) (##cdr _%e183873184587%_)))
                      (_%lp-hd183874184590%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183873184587%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%lp-hd183874184590%_))
                      (let ((_%e183878184595%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%lp-hd183874184590%_))))
                        (let ((_%tl183880184600%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e183878184595%_)))
                              (_%hd183879184598%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e183878184595%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd183879184598%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd183879184598%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl183880184600%_))
                                      (let ((_%e183881184603%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl183880184600%_))))
                                        (let ((_%tl183883184608%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e183881184603%_)))
                                              (_%hd183882184606%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e183881184603%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl183883184608%_))
                                              (_%loop183872184579%_
                                               _%lp-tl183875184592%_
                                               (cons _%hd183882184606%_
                                                     _%id183876184584%_))
                                              (_%__kont190458190459%_))))
                                      (_%__kont190458190459%_))
                                  (_%__kont190458190459%_))
                              (_%__kont190458190459%_))))
                      (_%__kont190458190459%_))))
              (let ((_%id183877184611%_ (reverse _%id183876184584%_)))
                (_%__kont190438190439%_
                 _%id183877184611%_
                 _%hd183867184569%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                        (_%loop183872184579%_
                                         _%target183869184574%_
                                         '())))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%__stx190436190437%_))
                                  (let ((_%e183857184542%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%__stx190436190437%_))))
                                    (let ((_%tl183859184547%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e183857184542%_)))
                                          (_%hd183858184545%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e183857184542%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd183858184545%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#call
                                                 _%hd183858184545%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl183859184547%_))
                                                  (let ((_%e183860184550%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl183859184547%_))))
                                                    (let ((_%tl183862184555%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e183860184550%_)))
                                                          (_%hd183861184553%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e183860184550%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd183861184553%_))
                                                          (let ((_%e183863184558%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd183861184553%_))))
                    (let ((_%tl183865184563%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e183863184558%_)))
                          (_%hd183864184561%_
                           (let ()
                             (declare (not safe))
                             (##car _%e183863184558%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd183864184561%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd183864184561%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl183865184563%_))
                                  (let ((_%e183866184566%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl183865184563%_))))
                                    (let ((_%tl183868184571%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e183866184566%_)))
                                          (_%hd183867184569%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e183866184566%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl183868184571%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl183862184555%_))
                                              (let ((_%__splice190440190441%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%tl183862184555%_
                                                        '0))))
                                                (let ((_%tl183871184576%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice190440190441%_
                                                          '1)))
                                                      (_%target183869184574%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice190440190441%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl183871184576%_))
                                                      (_%__match190501190502%_
                                                       _%e183857184542%_
                                                       _%hd183858184545%_
                                                       _%tl183859184547%_
                                                       _%e183860184550%_
                                                       _%hd183861184553%_
                                                       _%tl183862184555%_
                                                       _%e183863184558%_
                                                       _%hd183864184561%_
                                                       _%tl183865184563%_
                                                       _%e183866184566%_
                                                       _%hd183867184569%_
                                                       _%tl183868184571%_
                                                       _%__splice190440190441%_
                                                       _%target183869184574%_
                                                       _%tl183871184576%_)
                                                      (_%__kont190458190459%_))))
                                              (_%__kont190458190459%_))
                                          (_%__kont190458190459%_))))
                                  (_%__kont190458190459%_))
                              (_%__kont190458190459%_))
                          (_%__kont190458190459%_))))
                  (_%__kont190458190459%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont190458190459%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#if
                                                     _%hd183858184545%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl183859184547%_))
                                                      (let ((_%e183890184488%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl183859184547%_))))
                (let ((_%tl183892184493%_
                       (let () (declare (not safe)) (##cdr _%e183890184488%_)))
                      (_%hd183891184491%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183890184488%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl183892184493%_))
                      (let ((_%e183893184496%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl183892184493%_))))
                        (let ((_%tl183895184501%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e183893184496%_)))
                              (_%hd183894184499%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e183893184496%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl183895184501%_))
                              (let ((_%e183896184504%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl183895184501%_))))
                                (let ((_%tl183898184509%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e183896184504%_)))
                                      (_%hd183897184507%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e183896184504%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl183898184509%_))
                                      (_%__kont190442190443%_
                                       _%hd183897184507%_
                                       _%hd183894184499%_
                                       _%hd183891184491%_)
                                      (_%__kont190458190459%_))))
                              (_%__kont190458190459%_))))
                      (_%__kont190458190459%_))))
              (_%__kont190458190459%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#let-values
                                                         _%hd183858184545%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl183859184547%_))
                                                          (let ((_%e183905184358%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl183859184547%_))))
                    (let ((_%tl183907184363%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e183905184358%_)))
                          (_%hd183906184361%_
                           (let ()
                             (declare (not safe))
                             (##car _%e183905184358%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%hd183906184361%_))
                          (let ((_%__splice190446190447%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%hd183906184361%_
                                    '0))))
                            (let ((_%tl183910184368%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice190446190447%_
                                      '1)))
                                  (_%target183908184366%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice190446190447%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl183910184368%_))
                                  (_%__match190555190556%_
                                   _%e183857184542%_
                                   _%hd183858184545%_
                                   _%tl183859184547%_
                                   _%e183905184358%_
                                   _%hd183906184361%_
                                   _%tl183907184363%_
                                   _%__splice190446190447%_
                                   _%target183908184366%_
                                   _%tl183910184368%_)
                                  (_%__kont190458190459%_))))
                          (_%__kont190458190459%_))))
                  (_%__kont190458190459%_))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-eq? '%#letrec-values _%hd183858184545%_))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl183859184547%_))
                      (let ((_%e183977184046%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl183859184547%_))))
                        (let ((_%tl183979184051%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e183977184046%_)))
                              (_%hd183978184049%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e183977184046%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd183978184049%_))
                              (let ((_%e183980184054%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd183978184049%_))))
                                (let ((_%tl183982184059%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e183980184054%_)))
                                      (_%hd183981184057%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e183980184054%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd183981184057%_))
                                      (let ((_%e183983184062%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd183981184057%_))))
                                        (let ((_%tl183985184067%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e183983184062%_)))
                                              (_%hd183984184065%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e183983184062%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd183984184065%_))
                                              (let ((_%e183986184070%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd183984184065%_))))
                                                (let ((_%tl183988184075%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e183986184070%_)))
                                                      (_%hd183987184073%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e183986184070%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl183988184075%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl183985184067%_))
                                                          (let ((_%e183989184078%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl183985184067%_))))
                    (let ((_%tl183991184083%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e183989184078%_)))
                          (_%hd183990184081%_
                           (let ()
                             (declare (not safe))
                             (##car _%e183989184078%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd183990184081%_))
                          (let ((_%e183992184086%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd183990184081%_))))
                            (let ((_%tl183994184091%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e183992184086%_)))
                                  (_%hd183993184089%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e183992184086%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd183993184089%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq?
                                         '%#lambda
                                         _%hd183993184089%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl183994184091%_))
                                          (let ((_%e183995184094%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl183994184091%_))))
                                            (let ((_%tl183997184099%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e183995184094%_)))
                                                  (_%hd183996184097%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e183995184094%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%hd183996184097%_))
                                                  (let ((_%__splice190454190455%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%hd183996184097%_
                                                            '0))))
                                                    (let ((_%tl184000184104%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice190454190455%_
                                                              '1)))
                                                          (_%target183998184102%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice190454190455%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl184000184104%_))
                                                          (_%__match190645190646%_
                                                           _%e183857184542%_
                                                           _%hd183858184545%_
                                                           _%tl183859184547%_
                                                           _%e183977184046%_
                                                           _%hd183978184049%_
                                                           _%tl183979184051%_
                                                           _%e183980184054%_
                                                           _%hd183981184057%_
                                                           _%tl183982184059%_
                                                           _%e183983184062%_
                                                           _%hd183984184065%_
                                                           _%tl183985184067%_
                                                           _%e183986184070%_
                                                           _%hd183987184073%_
                                                           _%tl183988184075%_
                                                           _%e183989184078%_
                                                           _%hd183990184081%_
                                                           _%tl183991184083%_
                                                           _%e183992184086%_
                                                           _%hd183993184089%_
                                                           _%tl183994184091%_
                                                           _%e183995184094%_
                                                           _%hd183996184097%_
                                                           _%tl183997184099%_
                                                           _%__splice190454190455%_
                                                           _%target183998184102%_
                                                           _%tl184000184104%_)
                                                          (_%__kont190458190459%_))))
                                                  (_%__kont190458190459%_))))
                                          (_%__kont190458190459%_))
                                      (_%__kont190458190459%_))
                                  (_%__kont190458190459%_))))
                          (_%__kont190458190459%_))))
                  (_%__kont190458190459%_))
              (_%__kont190458190459%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont190458190459%_))))
                                      (_%__kont190458190459%_))))
                              (_%__kont190458190459%_))))
                      (_%__kont190458190459%_))
                  (_%__kont190458190459%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_%__kont190458190459%_))))
                                  (_%__kont190458190459%_)))))))))
                  (_%optimize-f__0__189137189138%_
                   (lambda (_%expr184752%_)
                     (let ((_%test184754%_ '#f))
                       (_%optimize-f__189135189136%_
                        _%expr184752%_
                        _%test184754%_))))
                  (_%optimize-f181780%_
                   (lambda _g192296_
                     (let ((_g192295_
                            (let ()
                              (declare (not safe))
                              (##length _g192296_))))
                       (cond ((let () (declare (not safe)) (##fx= _g192295_ 1))
                              (apply _%optimize-f__0__189137189138%_
                                     _g192296_))
                             ((let () (declare (not safe)) (##fx= _g192295_ 2))
                              (apply _%optimize-f__189135189136%_ _g192296_))
                             (else
                              (##raise-wrong-number-of-arguments-exception
                               'case-lambda-dispatch
                               _g192296_))))))
                  (_%assert-e181781%_
                   (lambda (_%expr182781%_)
                     (let* ((_%sexpr182783%_
                             (gxc#apply-generate-runtime-repr _%expr182781%_))
                            (_%$e182785%_
                             (assoc _%sexpr182783%_ _%env-assert181763%_)))
                       (if _%$e182785%_
                           (cdr _%$e182785%_)
                           (let _%assert182789%_ ((_%expr182791%_
                                                   _%expr182781%_))
                             (let* ((_%__stx190742190743%_ _%expr182791%_)
                                    (_%g182799182978%_
                                     (lambda ()
                                       (let ()
                                         (declare (not safe))
                                         (gx#raise-syntax-error
                                          '#f
                                          '"Bad syntax; invalid match target"
                                          _%__stx190742190743%_)))))
                               (let ((_%__kont190744190745%_
                                      (lambda (_%L183811%_ _%L183812%_)
                                        (let ((_%$e183834%_
                                               (_%predicate-type181768%_
                                                _%L183812%_)))
                                          (if _%$e183834%_
                                              ((lambda (_%t183837%_)
                                                 (_%assert-type181782%_
                                                  _%L183811%_
                                                  _%t183837%_))
                                               _%$e183834%_)
                                              '#!void))))
                                     (_%__kont190746190747%_
                                      (lambda (_%L183503%_
                                               _%L183504%_
                                               _%L183505%_)
                                        (let ((_%$e183530%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#identifier-symbol
                                                  _%L183505%_))))
                                          (if (or (eq? '##fx= _%$e183530%_)
                                                  (eq? 'fx= _%$e183530%_))
                                              (let* ((_%__stx190648190649%_
                                                      _%L183504%_)
                                                     (_%g183537183566%_
                                                      (lambda ()
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#raise-syntax-error
                                                           '#f
                                                           '"Bad syntax; invalid match target"
                                                           _%__stx190648190649%_)))))
                                                (let ((_%__kont190650190651%_
                                                       (lambda (_%L183634%_
                                                                _%L183635%_)
                                                         (let ((_%$e183660%_
                                                                (_%countf-symbol181770%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%L183635%_)))
                   (if _%$e183660%_
                       ((lambda (_%sym183663%_)
                          (_%assert-count181783%_
                           _%L183634%_
                           _%sym183663%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%L183503%_))))
                        _%$e183660%_)
                       '#!void))))
              (_%__kont190652190653%_ (lambda () '#!void)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%__stx190648190649%_))
                                                      (let ((_%e183541183578%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%__stx190648190649%_))))
                (let ((_%tl183543183583%_
                       (let () (declare (not safe)) (##cdr _%e183541183578%_)))
                      (_%hd183542183581%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183541183578%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#identifier? _%hd183542183581%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-eq? '%#call _%hd183542183581%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl183543183583%_))
                              (let ((_%e183544183586%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl183543183583%_))))
                                (let ((_%tl183546183591%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e183544183586%_)))
                                      (_%hd183545183589%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e183544183586%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd183545183589%_))
                                      (let ((_%e183547183594%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd183545183589%_))))
                                        (let ((_%tl183549183599%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e183547183594%_)))
                                              (_%hd183548183597%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e183547183594%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#identifier?
                                                 _%hd183548183597%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#ref
                                                     _%hd183548183597%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl183549183599%_))
                                                      (let ((_%e183550183602%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl183549183599%_))))
                (let ((_%tl183552183607%_
                       (let () (declare (not safe)) (##cdr _%e183550183602%_)))
                      (_%hd183551183605%_
                       (let ()
                         (declare (not safe))
                         (##car _%e183550183602%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl183552183607%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl183546183591%_))
                          (let ((_%e183553183610%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl183546183591%_))))
                            (let ((_%tl183555183615%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e183553183610%_)))
                                  (_%hd183554183613%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e183553183610%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd183554183613%_))
                                  (let ((_%e183556183618%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd183554183613%_))))
                                    (let ((_%tl183558183623%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e183556183618%_)))
                                          (_%hd183557183621%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e183556183618%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd183557183621%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#ref
                                                 _%hd183557183621%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl183558183623%_))
                                                  (let ((_%e183559183626%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl183558183623%_))))
                                                    (let ((_%tl183561183631%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e183559183626%_)))
                                                          (_%hd183560183629%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e183559183626%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl183561183631%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl183555183615%_))
                      (_%__kont190650190651%_
                       _%hd183560183629%_
                       _%hd183551183605%_)
                      (_%__kont190652190653%_))
                  (_%__kont190652190653%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont190652190653%_))
                                              (_%__kont190652190653%_))
                                          (_%__kont190652190653%_))))
                                  (_%__kont190652190653%_))))
                          (_%__kont190652190653%_))
                      (_%__kont190652190653%_))))
              (_%__kont190652190653%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont190652190653%_))
                                              (_%__kont190652190653%_))))
                                      (_%__kont190652190653%_))))
                              (_%__kont190652190653%_))
                          (_%__kont190652190653%_))
                      (_%__kont190652190653%_))))
              (_%__kont190652190653%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (or (eq? '##eq? _%$e183530%_)
                                                      (eq? 'eq? _%$e183530%_)
                                                      (eq? '##eqv?
                                                           _%$e183530%_)
                                                      (eq? 'eqv? _%$e183530%_)
                                                      (eq? '##equal?
                                                           _%$e183530%_)
                                                      (eq? 'equal?
                                                           _%$e183530%_)
                                                      (eq? 'gx#free-identifier=?
                                                           _%$e183530%_)
                                                      (eq? 'gx#stx-eq?
                                                           _%$e183530%_))
                                                  ((lambda (_%sym183690%_)
                                                     (let* ((_%__stx190716190717%_
                                                             _%L183504%_)
                                                            (_%g183693183706%_
                                                             (lambda ()
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#raise-syntax-error
                          '#f
                          '"Bad syntax; invalid match target"
                          _%__stx190716190717%_)))))
               (let ((_%__kont190718190719%_
                      (lambda (_%L183734%_)
                        (_%assert-eqf181784%_
                         _%L183734%_
                         (_%eqf-symbol181771%_ _%sym183690%_)
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%L183503%_)))))
                     (_%__kont190720190721%_ (lambda () '#!void)))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%__stx190716190717%_))
                     (let ((_%e183696183718%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%__stx190716190717%_))))
                       (let ((_%tl183698183723%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e183696183718%_)))
                             (_%hd183697183721%_
                              (let ()
                                (declare (not safe))
                                (##car _%e183696183718%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#identifier? _%hd183697183721%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq? '%#ref _%hd183697183721%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl183698183723%_))
                                     (let ((_%e183699183726%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl183698183723%_))))
                                       (let ((_%tl183701183731%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e183699183726%_)))
                                             (_%hd183700183729%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e183699183726%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl183701183731%_))
                                             (_%__kont190718190719%_
                                              _%hd183700183729%_)
                                             (_%__kont190720190721%_))))
                                     (_%__kont190720190721%_))
                                 (_%__kont190720190721%_))
                             (_%__kont190720190721%_))))
                     (_%__kont190720190721%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   _%$e183530%_)
                                                  '#!void)))))
                                     (_%__kont190748190749%_
                                      (lambda (_%L183407%_
                                               _%L183408%_
                                               _%L183409%_)
                                        (_%assert182789%_
                                         (cons (let ()
                                                 (declare (not safe))
                                                 (gx#datum->syntax__0
                                                  '#f
                                                  '%#call))
                                               (cons (cons (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#datum->syntax__0
                                                              '#f
                                                              '%#ref))
                                                           (cons _%L183409%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (cons _%L183407%_
                                                           (cons (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 (declare (not safe))
                                 (gx#datum->syntax__0 '#f '%#quote))
                               (cons _%L183408%_ '()))
                         '())))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (_%__kont190750190751%_
                                      (lambda (_%L183299%_
                                               _%L183300%_
                                               _%L183301%_)
                                        (let ((_%$e183330%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#identifier-symbol
                                                  _%L183301%_))))
                                          (if (or (eq? 'gx#free-identifier=?
                                                       _%$e183330%_)
                                                  (eq? 'gx#stx-eq?
                                                       _%$e183330%_))
                                              ((lambda (_%sym183336%_)
                                                 (_%assert-eqf181784%_
                                                  _%L183300%_
                                                  (_%eqf-symbol181771%_
                                                   _%sym183336%_)
                                                  _%L183299%_))
                                               _%$e183330%_)
                                              '#!void))))
                                     (_%__kont190752190753%_
                                      (lambda (_%L183183%_
                                               _%L183184%_
                                               _%L183185%_)
                                        (_%assert182789%_
                                         (cons (let ()
                                                 (declare (not safe))
                                                 (gx#datum->syntax__0
                                                  '#f
                                                  '%#call))
                                               (cons (cons (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#datum->syntax__0
                                                              '#f
                                                              '%#ref))
                                                           (cons _%L183185%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (cons (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (declare (not safe))
                           (gx#datum->syntax__0 '#f '%#ref))
                         (cons _%L183183%_ '()))
                   (cons (cons (let ()
                                 (declare (not safe))
                                 (gx#datum->syntax__0 '#f '%#quote-syntax))
                               (cons _%L183184%_ '()))
                         '())))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (_%__kont190754190755%_
                                      (lambda (_%L183062%_
                                               _%L183063%_
                                               _%L183064%_)
                                        (_%assert182789%_
                                         (let ()
                                           (declare (not safe))
                                           (gxc#apply-expression-subst__%
                                            '#f
                                            _%L183064%_
                                            _%L183062%_
                                            _%L183063%_)))))
                                     (_%__kont190756190757%_
                                      (lambda () '#!void)))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%__stx190742190743%_))
                                     (let ((_%e182803183755%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e
                                               _%__stx190742190743%_))))
                                       (let ((_%tl182805183760%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182803183755%_)))
                                             (_%hd182804183758%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182803183755%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#identifier?
                                                _%hd182804183758%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#call
                                                    _%hd182804183758%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl182805183760%_))
                                                     (let ((_%e182806183763%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl182805183760%_))))
                                                       (let ((_%tl182808183768%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e182806183763%_)))
                     (_%hd182807183766%_
                      (let () (declare (not safe)) (##car _%e182806183763%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%hd182807183766%_))
                     (let ((_%e182809183771%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%hd182807183766%_))))
                       (let ((_%tl182811183776%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182809183771%_)))
                             (_%hd182810183774%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182809183771%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#identifier? _%hd182810183774%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq? '%#ref _%hd182810183774%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl182811183776%_))
                                     (let ((_%e182812183779%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl182811183776%_))))
                                       (let ((_%tl182814183784%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182812183779%_)))
                                             (_%hd182813183782%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182812183779%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl182814183784%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl182808183768%_))
                                                 (let ((_%e182815183787%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl182808183768%_))))
                                                   (let ((_%tl182817183792%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e182815183787%_)))
                                                         (_%hd182816183790%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e182815183787%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%hd182816183790%_))
                                                         (let ((_%e182818183795%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%hd182816183790%_))))
                   (let ((_%tl182820183800%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e182818183795%_)))
                         (_%hd182819183798%_
                          (let ()
                            (declare (not safe))
                            (##car _%e182818183795%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#identifier? _%hd182819183798%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#ref _%hd182819183798%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl182820183800%_))
                                 (let ((_%e182821183803%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl182820183800%_))))
                                   (let ((_%tl182823183808%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e182821183803%_)))
                                         (_%hd182822183806%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e182821183803%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl182823183808%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl182817183792%_))
                                             (_%__kont190744190745%_
                                              _%hd182822183806%_
                                              _%hd182813183782%_)
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl182817183792%_))
                                                 (let ((_%e182842183479%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl182817183792%_))))
                                                   (let ((_%tl182844183484%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e182842183479%_)))
                                                         (_%hd182843183482%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e182842183479%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%hd182843183482%_))
                                                         (let ((_%e182845183487%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%hd182843183482%_))))
                   (let ((_%tl182847183492%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e182845183487%_)))
                         (_%hd182846183490%_
                          (let ()
                            (declare (not safe))
                            (##car _%e182845183487%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#identifier? _%hd182846183490%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#quote _%hd182846183490%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl182847183492%_))
                                 (let ((_%e182848183495%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl182847183492%_))))
                                   (let ((_%tl182850183500%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e182848183495%_)))
                                         (_%hd182849183498%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e182848183495%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl182850183500%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl182844183484%_))
                                             (_%__kont190746190747%_
                                              _%hd182849183498%_
                                              _%hd182816183790%_
                                              _%hd182813183782%_)
                                             (_%__kont190756190757%_))
                                         (_%__kont190756190757%_))))
                                 (_%__kont190756190757%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq?
                                    '%#quote-syntax
                                    _%hd182846183490%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl182847183492%_))
                                     (let ((_%e182908183291%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl182847183492%_))))
                                       (let ((_%tl182910183296%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182908183291%_)))
                                             (_%hd182909183294%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182908183291%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl182910183296%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl182844183484%_))
                                                 (_%__kont190750190751%_
                                                  _%hd182909183294%_
                                                  _%hd182822183806%_
                                                  _%hd182813183782%_)
                                                 (_%__kont190756190757%_))
                                             (_%__kont190756190757%_))))
                                     (_%__kont190756190757%_))
                                 (_%__kont190756190757%_)))
                         (_%__kont190756190757%_))))
                 (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont190756190757%_)))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl182817183792%_))
                                             (let ((_%e182842183479%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl182817183792%_))))
                                               (let ((_%tl182844183484%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e182842183479%_)))
                                                     (_%hd182843183482%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e182842183479%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%hd182843183482%_))
                                                     (let ((_%e182845183487%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%hd182843183482%_))))
                                                       (let ((_%tl182847183492%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e182845183487%_)))
                     (_%hd182846183490%_
                      (let () (declare (not safe)) (##car _%e182845183487%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#identifier? _%hd182846183490%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#quote _%hd182846183490%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl182847183492%_))
                             (let ((_%e182848183495%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl182847183492%_))))
                               (let ((_%tl182850183500%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e182848183495%_)))
                                     (_%hd182849183498%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e182848183495%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl182850183500%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl182844183484%_))
                                         (_%__kont190746190747%_
                                          _%hd182849183498%_
                                          _%hd182816183790%_
                                          _%hd182813183782%_)
                                         (_%__kont190756190757%_))
                                     (_%__kont190756190757%_))))
                             (_%__kont190756190757%_))
                         (_%__kont190756190757%_))
                     (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))))
                                             (_%__kont190756190757%_)))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl182817183792%_))
                                     (let ((_%e182842183479%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl182817183792%_))))
                                       (let ((_%tl182844183484%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182842183479%_)))
                                             (_%hd182843183482%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182842183479%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%hd182843183482%_))
                                             (let ((_%e182845183487%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%hd182843183482%_))))
                                               (let ((_%tl182847183492%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e182845183487%_)))
                                                     (_%hd182846183490%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e182845183487%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#identifier?
                                                        _%hd182846183490%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#quote
                                                            _%hd182846183490%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl182847183492%_))
                     (let ((_%e182848183495%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl182847183492%_))))
                       (let ((_%tl182850183500%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182848183495%_)))
                             (_%hd182849183498%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182848183495%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182850183500%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl182844183484%_))
                                 (_%__kont190746190747%_
                                  _%hd182849183498%_
                                  _%hd182816183790%_
                                  _%hd182813183782%_)
                                 (_%__kont190756190757%_))
                             (_%__kont190756190757%_))))
                     (_%__kont190756190757%_))
                 (_%__kont190756190757%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))))
                                             (_%__kont190756190757%_))))
                                     (_%__kont190756190757%_)))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl182817183792%_))
                                 (let ((_%e182842183479%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl182817183792%_))))
                                   (let ((_%tl182844183484%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e182842183479%_)))
                                         (_%hd182843183482%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e182842183479%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%hd182843183482%_))
                                         (let ((_%e182845183487%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%hd182843183482%_))))
                                           (let ((_%tl182847183492%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182845183487%_)))
                                                 (_%hd182846183490%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182845183487%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#identifier?
                                                    _%hd182846183490%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#quote
                                                        _%hd182846183490%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl182847183492%_))
                                                         (let ((_%e182848183495%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl182847183492%_))))
                   (let ((_%tl182850183500%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e182848183495%_)))
                         (_%hd182849183498%_
                          (let ()
                            (declare (not safe))
                            (##car _%e182848183495%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl182850183500%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182844183484%_))
                             (_%__kont190746190747%_
                              _%hd182849183498%_
                              _%hd182816183790%_
                              _%hd182813183782%_)
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq? '%#quote _%hd182819183798%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl182820183800%_))
                                     (let ((_%e182872183391%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl182820183800%_))))
                                       (let ((_%tl182874183396%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182872183391%_)))
                                             (_%hd182873183394%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182872183391%_))))
                                         (_%__kont190756190757%_)))
                                     (_%__kont190756190757%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq?
                                        '%#quote-syntax
                                        _%hd182819183798%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl182820183800%_))
                                         (let ((_%e182932183151%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl182820183800%_))))
                                           (let ((_%tl182934183156%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182932183151%_)))
                                                 (_%hd182933183154%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182932183151%_))))
                                             (_%__kont190756190757%_)))
                                         (_%__kont190756190757%_))
                                     (_%__kont190756190757%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#quote _%hd182819183798%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl182820183800%_))
                                 (let ((_%e182872183391%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl182820183800%_))))
                                   (let ((_%tl182874183396%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e182872183391%_)))
                                         (_%hd182873183394%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e182872183391%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl182874183396%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl182844183484%_))
                                             (_%__kont190748190749%_
                                              _%hd182843183482%_
                                              _%hd182873183394%_
                                              _%hd182813183782%_)
                                             (_%__kont190756190757%_))
                                         (_%__kont190756190757%_))))
                                 (_%__kont190756190757%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq?
                                    '%#quote-syntax
                                    _%hd182819183798%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl182820183800%_))
                                     (let ((_%e182932183151%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl182820183800%_))))
                                       (let ((_%tl182934183156%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182932183151%_)))
                                             (_%hd182933183154%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182932183151%_))))
                                         (_%__kont190756190757%_)))
                                     (_%__kont190756190757%_))
                                 (_%__kont190756190757%_))))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-eq? '%#quote _%hd182819183798%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl182820183800%_))
                         (let ((_%e182872183391%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl182820183800%_))))
                           (let ((_%tl182874183396%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e182872183391%_)))
                                 (_%hd182873183394%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e182872183391%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl182874183396%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-null? _%tl182844183484%_))
                                     (_%__kont190748190749%_
                                      _%hd182843183482%_
                                      _%hd182873183394%_
                                      _%hd182813183782%_)
                                     (_%__kont190756190757%_))
                                 (_%__kont190756190757%_))))
                         (_%__kont190756190757%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-eq? '%#quote-syntax _%hd182819183798%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl182820183800%_))
                             (let ((_%e182932183151%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl182820183800%_))))
                               (let ((_%tl182934183156%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e182932183151%_)))
                                     (_%hd182933183154%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e182932183151%_))))
                                 (_%__kont190756190757%_)))
                             (_%__kont190756190757%_))
                         (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#quote
                                                            _%hd182819183798%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl182820183800%_))
                     (let ((_%e182872183391%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl182820183800%_))))
                       (let ((_%tl182874183396%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182872183391%_)))
                             (_%hd182873183394%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182872183391%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182874183396%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl182844183484%_))
                                 (_%__kont190748190749%_
                                  _%hd182843183482%_
                                  _%hd182873183394%_
                                  _%hd182813183782%_)
                                 (_%__kont190756190757%_))
                             (_%__kont190756190757%_))))
                     (_%__kont190756190757%_))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-eq? '%#quote-syntax _%hd182819183798%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl182820183800%_))
                         (let ((_%e182932183151%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl182820183800%_))))
                           (let ((_%tl182934183156%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e182932183151%_)))
                                 (_%hd182933183154%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e182932183151%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-null? _%tl182934183156%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq? '%#ref _%hd182846183490%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl182847183492%_))
                                         (let ((_%e182941183175%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl182847183492%_))))
                                           (let ((_%tl182943183180%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182941183175%_)))
                                                 (_%hd182942183178%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182941183175%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl182943183180%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl182844183484%_))
                                                     (_%__kont190752190753%_
                                                      _%hd182942183178%_
                                                      _%hd182933183154%_
                                                      _%hd182813183782%_)
                                                     (_%__kont190756190757%_))
                                                 (_%__kont190756190757%_))))
                                         (_%__kont190756190757%_))
                                     (_%__kont190756190757%_))
                                 (_%__kont190756190757%_))))
                         (_%__kont190756190757%_))
                     (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#quote
                                                        _%hd182819183798%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl182820183800%_))
                                                         (let ((_%e182872183391%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl182820183800%_))))
                   (let ((_%tl182874183396%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e182872183391%_)))
                         (_%hd182873183394%_
                          (let ()
                            (declare (not safe))
                            (##car _%e182872183391%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl182874183396%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182844183484%_))
                             (_%__kont190748190749%_
                              _%hd182843183482%_
                              _%hd182873183394%_
                              _%hd182813183782%_)
                             (_%__kont190756190757%_))
                         (_%__kont190756190757%_))))
                 (_%__kont190756190757%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-eq?
                                                            '%#quote-syntax
                                                            _%hd182819183798%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl182820183800%_))
                     (let ((_%e182932183151%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl182820183800%_))))
                       (let ((_%tl182934183156%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182932183151%_)))
                             (_%hd182933183154%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182932183151%_))))
                         (_%__kont190756190757%_)))
                     (_%__kont190756190757%_))
                 (_%__kont190756190757%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-eq?
                                                '%#quote
                                                _%hd182819183798%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl182820183800%_))
                                                 (let ((_%e182872183391%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl182820183800%_))))
                                                   (let ((_%tl182874183396%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e182872183391%_)))
                                                         (_%hd182873183394%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e182872183391%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl182874183396%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-null? _%tl182844183484%_))
                     (_%__kont190748190749%_
                      _%hd182843183482%_
                      _%hd182873183394%_
                      _%hd182813183782%_)
                     (_%__kont190756190757%_))
                 (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont190756190757%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#quote-syntax
                                                    _%hd182819183798%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl182820183800%_))
                                                     (let ((_%e182932183151%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl182820183800%_))))
                                                       (let ((_%tl182934183156%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e182932183151%_)))
                     (_%hd182933183154%_
                      (let () (declare (not safe)) (##car _%e182932183151%_))))
                 (_%__kont190756190757%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))
                                                 (_%__kont190756190757%_))))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq?
                                        '%#quote
                                        _%hd182819183798%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl182820183800%_))
                                         (let ((_%e182872183391%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl182820183800%_))))
                                           (let ((_%tl182874183396%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182872183391%_)))
                                                 (_%hd182873183394%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182872183391%_))))
                                             (_%__kont190756190757%_)))
                                         (_%__kont190756190757%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-eq?
                                            '%#quote-syntax
                                            _%hd182819183798%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl182820183800%_))
                                             (let ((_%e182932183151%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl182820183800%_))))
                                               (let ((_%tl182934183156%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e182932183151%_)))
                                                     (_%hd182933183154%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e182932183151%_))))
                                                 (_%__kont190756190757%_)))
                                             (_%__kont190756190757%_))
                                         (_%__kont190756190757%_)))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%tl182817183792%_))
                             (let ((_%e182842183479%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%tl182817183792%_))))
                               (let ((_%tl182844183484%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e182842183479%_)))
                                     (_%hd182843183482%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e182842183479%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd182843183482%_))
                                     (let ((_%e182845183487%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd182843183482%_))))
                                       (let ((_%tl182847183492%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e182845183487%_)))
                                             (_%hd182846183490%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e182845183487%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#identifier?
                                                _%hd182846183490%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#quote
                                                    _%hd182846183490%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl182847183492%_))
                                                     (let ((_%e182848183495%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl182847183492%_))))
                                                       (let ((_%tl182850183500%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e182848183495%_)))
                     (_%hd182849183498%_
                      (let () (declare (not safe)) (##car _%e182848183495%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-null? _%tl182850183500%_))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl182844183484%_))
                         (_%__kont190746190747%_
                          _%hd182849183498%_
                          _%hd182816183790%_
                          _%hd182813183782%_)
                         (_%__kont190756190757%_))
                     (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))
                                                 (_%__kont190756190757%_))
                                             (_%__kont190756190757%_))))
                                     (_%__kont190756190757%_))))
                             (_%__kont190756190757%_)))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%tl182817183792%_))
                     (let ((_%e182842183479%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl182817183792%_))))
                       (let ((_%tl182844183484%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182842183479%_)))
                             (_%hd182843183482%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182842183479%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%hd182843183482%_))
                             (let ((_%e182845183487%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%hd182843183482%_))))
                               (let ((_%tl182847183492%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e182845183487%_)))
                                     (_%hd182846183490%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e182845183487%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#identifier? _%hd182846183490%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-eq?
                                            '%#quote
                                            _%hd182846183490%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl182847183492%_))
                                             (let ((_%e182848183495%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl182847183492%_))))
                                               (let ((_%tl182850183500%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e182848183495%_)))
                                                     (_%hd182849183498%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e182848183495%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl182850183500%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl182844183484%_))
                                                         (_%__kont190746190747%_
                                                          _%hd182849183498%_
                                                          _%hd182816183790%_
                                                          _%hd182813183782%_)
                                                         (_%__kont190756190757%_))
                                                     (_%__kont190756190757%_))))
                                             (_%__kont190756190757%_))
                                         (_%__kont190756190757%_))
                                     (_%__kont190756190757%_))))
                             (_%__kont190756190757%_))))
                     (_%__kont190756190757%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont190756190757%_))
                                             (_%__kont190756190757%_))))
                                     (_%__kont190756190757%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq?
                                        '%#lambda
                                        _%hd182810183774%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl182811183776%_))
                                         (let ((_%e182956183014%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl182811183776%_))))
                                           (let ((_%tl182958183019%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182956183014%_)))
                                                 (_%hd182957183017%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182956183014%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%hd182957183017%_))
                                                 (let ((_%e182959183022%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%hd182957183017%_))))
                                                   (let ((_%tl182961183027%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e182959183022%_)))
                                                         (_%hd182960183025%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e182959183022%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl182961183027%_))
                                                         (if (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-pair? _%tl182958183019%_))
                     (let ((_%e182962183030%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl182958183019%_))))
                       (let ((_%tl182964183035%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e182962183030%_)))
                             (_%hd182963183033%_
                              (let ()
                                (declare (not safe))
                                (##car _%e182962183030%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182964183035%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl182808183768%_))
                                 (let ((_%e182965183038%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl182808183768%_))))
                                   (let ((_%tl182967183043%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e182965183038%_)))
                                         (_%hd182966183041%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e182965183038%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%hd182966183041%_))
                                         (let ((_%e182968183046%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%hd182966183041%_))))
                                           (let ((_%tl182970183051%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e182968183046%_)))
                                                 (_%hd182969183049%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e182968183046%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#identifier?
                                                    _%hd182969183049%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#ref
                                                        _%hd182969183049%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl182970183051%_))
                                                         (let ((_%e182971183054%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl182970183051%_))))
                   (let ((_%tl182973183059%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e182971183054%_)))
                         (_%hd182972183057%_
                          (let ()
                            (declare (not safe))
                            (##car _%e182971183054%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-null? _%tl182973183059%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182967183043%_))
                             (_%__kont190754190755%_
                              _%hd182972183057%_
                              _%hd182963183033%_
                              _%hd182960183025%_)
                             (_%__kont190756190757%_))
                         (_%__kont190756190757%_))))
                 (_%__kont190756190757%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))
                                                 (_%__kont190756190757%_))))
                                         (_%__kont190756190757%_))))
                                 (_%__kont190756190757%_))
                             (_%__kont190756190757%_))))
                     (_%__kont190756190757%_))
                 (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont190756190757%_))))
                                         (_%__kont190756190757%_))
                                     (_%__kont190756190757%_)))
                             (_%__kont190756190757%_))))
                     (_%__kont190756190757%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont190756190757%_))
                                                 (_%__kont190756190757%_))
                                             (_%__kont190756190757%_))))
                                     (_%__kont190756190757%_)))))))))
                  (_%assert-type181782%_
                   (lambda (_%id182688%_ _%t182689%_)
                     (let _%lp182691%_ ((_%rest182693%_ _%env-type181764%_))
                       (let* ((_%rest182694182702%_ _%rest182693%_)
                              (_%else182696182710%_ (lambda () '#!void))
                              (_%K182698182769%_
                               (lambda (_%rest182713%_ _%type-info182714%_)
                                 (let* ((_%type-info182715182727%_
                                         _%type-info182714%_)
                                        (_%else182717182735%_
                                         (lambda ()
                                           (_%lp182691%_ _%rest182713%_)))
                                        (_%K182719182745%_
                                         (lambda (_%val182738%_
                                                  _%xt182739%_
                                                  _%xid182740%_)
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#free-identifier=?
                                                  _%id182688%_
                                                  _%xid182740%_))
                                               (if (eq? _%t182689%_
                                                        _%xt182739%_)
                                                   _%val182738%_
                                                   (if _%val182738%_
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (##structure-instance-of?
                                                              _%t182689%_
                                                              'gxc#!class::t))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##structure-instance-of?
                          _%xt182739%_
                          'gxc#!class::t))
                       (let ()
                         (declare (not safe))
                         (gxc#!class-subclass? _%t182689%_ _%xt182739%_))
                       '#f)
                   '#f)
               (if (and (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _%t182689%_
                           'gxc#!class::t))
                        (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _%xt182739%_
                           'gxc#!class::t))
                        (let ()
                          (declare (not safe))
                          (gxc#!class-subclass? _%t182689%_ _%xt182739%_)))
                   '#f
                   (_%lp182691%_ _%rest182713%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%lp182691%_
                                                _%rest182713%_)))))
                                   (if (pair? _%type-info182715182727%_)
                                       (let ((_%hd182720182748%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%type-info182715182727%_)))
                                             (_%tl182721182750%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%type-info182715182727%_))))
                                         (let ((_%xid182753%_
                                                _%hd182720182748%_))
                                           (if (pair? _%tl182721182750%_)
                                               (let ((_%hd182722182755%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%tl182721182750%_)))
                                                     (_%tl182723182757%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%tl182721182750%_))))
                                                 (let ((_%xt182760%_
                                                        _%hd182722182755%_))
                                                   (if (pair? _%tl182723182757%_)
                                                       (let ((_%hd182724182762%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##car _%tl182723182757%_)))
                     (_%tl182725182764%_
                      (let ()
                        (declare (not safe))
                        (##cdr _%tl182723182757%_))))
                 (let ((_%val182767%_ _%hd182724182762%_))
                   (if (null? _%tl182725182764%_)
                       (_%K182719182745%_
                        _%val182767%_
                        _%xt182760%_
                        _%xid182753%_)
                       (_%else182717182735%_))))
               (_%else182717182735%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%else182717182735%_))))
                                       (_%else182717182735%_))))))
                         (if (pair? _%rest182694182702%_)
                             (let ((_%hd182699182772%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest182694182702%_)))
                                   (_%tl182700182774%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest182694182702%_))))
                               (let* ((_%type-info182777%_ _%hd182699182772%_)
                                      (_%rest182779%_ _%tl182700182774%_))
                                 (_%K182698182769%_
                                  _%rest182779%_
                                  _%type-info182777%_)))
                             (_%else182696182710%_))))))
                  (_%assert-count181783%_
                   (lambda (_%id182584%_ _%sym182585%_ _%count182586%_)
                     (let _%lp182588%_ ((_%rest182590%_ _%env-type181764%_))
                       (let* ((_%rest182591182599%_ _%rest182590%_)
                              (_%else182593182607%_ (lambda () '#!void))
                              (_%K182595182676%_
                               (lambda (_%rest182610%_ _%type-info182611%_)
                                 (let* ((_%type-info182612182626%_
                                         _%type-info182611%_)
                                        (_%else182614182634%_
                                         (lambda ()
                                           (_%lp182588%_ _%rest182610%_)))
                                        (_%K182616182645%_
                                         (lambda (_%val182637%_
                                                  _%xcount182638%_
                                                  _%xsym182639%_
                                                  _%xid182640%_)
                                           (if (and (eq? _%sym182585%_
                                                         _%xsym182639%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#free-identifier=?
                                                       _%id182584%_
                                                       _%xid182640%_)))
                                               (if _%val182637%_
                                                   (fx= _%count182586%_
                                                        _%xcount182638%_)
                                                   (if (fx= _%count182586%_
                                                            _%xcount182638%_)
                                                       '#f
                                                       (_%lp182588%_
                                                        _%rest182610%_)))
                                               (_%lp182588%_
                                                _%rest182610%_)))))
                                   (if (pair? _%type-info182612182626%_)
                                       (let ((_%hd182617182648%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%type-info182612182626%_)))
                                             (_%tl182618182650%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%type-info182612182626%_))))
                                         (let ((_%xid182653%_
                                                _%hd182617182648%_))
                                           (if (pair? _%tl182618182650%_)
                                               (let ((_%hd182619182655%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%tl182618182650%_)))
                                                     (_%tl182620182657%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%tl182618182650%_))))
                                                 (let ((_%xsym182660%_
                                                        _%hd182619182655%_))
                                                   (if (pair? _%tl182620182657%_)
                                                       (let ((_%hd182621182662%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##car _%tl182620182657%_)))
                     (_%tl182622182664%_
                      (let ()
                        (declare (not safe))
                        (##cdr _%tl182620182657%_))))
                 (let ((_%xcount182667%_ _%hd182621182662%_))
                   (if (pair? _%tl182622182664%_)
                       (let ((_%hd182623182669%_
                              (let ()
                                (declare (not safe))
                                (##car _%tl182622182664%_)))
                             (_%tl182624182671%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%tl182622182664%_))))
                         (let ((_%val182674%_ _%hd182623182669%_))
                           (if (null? _%tl182624182671%_)
                               (_%K182616182645%_
                                _%val182674%_
                                _%xcount182667%_
                                _%xsym182660%_
                                _%xid182653%_)
                               (_%else182614182634%_))))
                       (_%else182614182634%_))))
               (_%else182614182634%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%else182614182634%_))))
                                       (_%else182614182634%_))))))
                         (if (pair? _%rest182591182599%_)
                             (let ((_%hd182596182679%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest182591182599%_)))
                                   (_%tl182597182681%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest182591182599%_))))
                               (let* ((_%type-info182684%_ _%hd182596182679%_)
                                      (_%rest182686%_ _%tl182597182681%_))
                                 (_%K182595182676%_
                                  _%rest182686%_
                                  _%type-info182684%_)))
                             (_%else182593182607%_))))))
                  (_%assert-eqf181784%_
                   (lambda (_%id182471%_ _%sym182472%_ _%datum182473%_)
                     (letrec ((_%eqf182475%_
                               (lambda (_%sym182579%_)
                                 (let ((_%$e182581%_ _%sym182579%_))
                                   (if (eq? 'eq? _%$e182581%_)
                                       eq?
                                       (if (eq? 'eqv? _%$e182581%_)
                                           eqv?
                                           (if (eq? 'equal? _%$e182581%_)
                                               equal?
                                               (if (eq? 'free-identifier=?
                                                        _%$e182581%_)
                                                   gx#free-identifier=?
                                                   (if (eq? 'stx-eq?
                                                            _%$e182581%_)
                                                       gx#stx-eq?
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#raise-compile-error
                                                          '"Unexpected eqf symbol"
                                                          _%body181525%_
                                                          _%sym182579%_)))))))))))
                       (let _%lp182477%_ ((_%rest182479%_ _%env-type181764%_))
                         (let* ((_%rest182480182488%_ _%rest182479%_)
                                (_%else182482182496%_ (lambda () '#!void))
                                (_%K182484182567%_
                                 (lambda (_%rest182499%_ _%type-info182500%_)
                                   (let* ((_%type-info182501182515%_
                                           _%type-info182500%_)
                                          (_%else182503182523%_
                                           (lambda ()
                                             (_%lp182477%_ _%rest182499%_)))
                                          (_%K182505182536%_
                                           (lambda (_%val182526%_
                                                    _%xdatum182527%_
                                                    _%xsym182528%_
                                                    _%xid182529%_)
                                             (if (and (eq? _%sym182472%_
                                                           _%xsym182528%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#free-identifier=?
                                                         _%id182471%_
                                                         _%xid182529%_)))
                                                 (let ((_%=?182531%_
                                                        (_%eqf182475%_
                                                         _%sym182472%_)))
                                                   (if _%val182526%_
                                                       (_%=?182531%_
                                                        _%datum182473%_
                                                        _%xdatum182527%_)
                                                       (if (_%=?182531%_
                                                            _%datum182473%_
                                                            _%xdatum182527%_)
                                                           '#f
                                                           (_%lp182477%_
                                                            _%rest182499%_))))
                                                 (_%lp182477%_
                                                  _%rest182499%_)))))
                                     (if (pair? _%type-info182501182515%_)
                                         (let ((_%hd182506182539%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%type-info182501182515%_)))
                                               (_%tl182507182541%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%type-info182501182515%_))))
                                           (let ((_%xid182544%_
                                                  _%hd182506182539%_))
                                             (if (pair? _%tl182507182541%_)
                                                 (let ((_%hd182508182546%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%tl182507182541%_)))
                                                       (_%tl182509182548%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%tl182507182541%_))))
                                                   (let ((_%xsym182551%_
                                                          _%hd182508182546%_))
                                                     (if (pair? _%tl182509182548%_)
                                                         (let ((_%hd182510182553%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##car _%tl182509182548%_)))
                       (_%tl182511182555%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%tl182509182548%_))))
                   (let ((_%xdatum182558%_ _%hd182510182553%_))
                     (if (pair? _%tl182511182555%_)
                         (let ((_%hd182512182560%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%tl182511182555%_)))
                               (_%tl182513182562%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%tl182511182555%_))))
                           (let ((_%val182565%_ _%hd182512182560%_))
                             (if (null? _%tl182513182562%_)
                                 (_%K182505182536%_
                                  _%val182565%_
                                  _%xdatum182558%_
                                  _%xsym182551%_
                                  _%xid182544%_)
                                 (_%else182503182523%_))))
                         (_%else182503182523%_))))
                 (_%else182503182523%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%else182503182523%_))))
                                         (_%else182503182523%_))))))
                           (if (pair? _%rest182480182488%_)
                               (let ((_%hd182485182570%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%rest182480182488%_)))
                                     (_%tl182486182572%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%rest182480182488%_))))
                                 (let* ((_%type-info182575%_
                                         _%hd182485182570%_)
                                        (_%rest182577%_ _%tl182486182572%_))
                                   (_%K182484182567%_
                                    _%rest182577%_
                                    _%type-info182575%_)))
                               (_%else182482182496%_)))))))
                  (_%bind-e__189139189140%_
                   (lambda (_%bind182373%_ _%body182374%_ _%continue182375%_)
                     (let _%lp182377%_ ((_%rest182379%_ _%bind182373%_)
                                        (_%subst182380%_ '())
                                        (_%locals182381%_ '())
                                        (_%env182382%_ _%env-bind181765%_))
                       (let* ((_%rest182383182391%_ _%rest182379%_)
                              (_%else182385182405%_
                               (lambda ()
                                 (let* ((_%body182399%_
                                         (if (null? _%subst182380%_)
                                             _%body182374%_
                                             (let ()
                                               (declare (not safe))
                                               (gxc#apply-expression-subst*__%
                                                '#f
                                                _%subst182380%_
                                                _%body182374%_))))
                                        (_%body182402%_
                                         (_%do-bind!181776%_
                                          _%env182382%_
                                          (lambda ()
                                            (_%continue182375%_
                                             _%body182399%_)))))
                                   (if (null? _%locals182381%_)
                                       _%body182402%_
                                       (cons '%#let-values
                                             (cons _%locals182381%_
                                                   (cons _%body182402%_
                                                         '())))))))
                              (_%K182387182447%_
                               (lambda (_%rest182408%_ _%bind182409%_)
                                 (let* ((_%bind182410182417%_ _%bind182409%_)
                                        (_%E182412182421%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (error '"No clause matching"
                                                    _%bind182410182417%_
                                                    '([id . expr])))
                                           '#!void))
                                        (_%K182413182435%_
                                         (lambda (_%expr182424%_ _%id182425%_)
                                           (let* ((_%sexpr182427%_
                                                   (gxc#apply-generate-runtime-repr
                                                    _%expr182424%_))
                                                  (_%$e182429%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (aget__0 _%sexpr182427%_
                                                              _%env-bind181765%_))))
                                             (if _%$e182429%_
                                                 ((lambda (_%xid182432%_)
                                                    (_%lp182377%_
                                                     _%rest182408%_
                                                     (cons (cons _%id182425%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%xid182432%_)
                   _%subst182380%_)
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     _%locals182381%_
                                                     _%env182382%_))
                                                  _%$e182429%_)
                                                 (_%lp182377%_
                                                  _%rest182408%_
                                                  _%subst182380%_
                                                  (cons (cons (cons _%id182425%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '())
                      (cons _%expr182424%_ '()))
                _%locals182381%_)
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (cons (cons _%sexpr182427%_
                                                              _%id182425%_)
                                                        _%env182382%_)))))))
                                   (if (pair? _%bind182410182417%_)
                                       (let ((_%hd182414182438%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%bind182410182417%_)))
                                             (_%tl182415182440%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%bind182410182417%_))))
                                         (let* ((_%id182443%_
                                                 _%hd182414182438%_)
                                                (_%expr182445%_
                                                 _%tl182415182440%_))
                                           (_%K182413182435%_
                                            _%expr182445%_
                                            _%id182443%_)))
                                       (_%E182412182421%_))))))
                         (if (pair? _%rest182383182391%_)
                             (let ((_%hd182388182450%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest182383182391%_)))
                                   (_%tl182389182452%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest182383182391%_))))
                               (let* ((_%bind182455%_ _%hd182388182450%_)
                                      (_%rest182457%_ _%tl182389182452%_))
                                 (_%K182387182447%_
                                  _%rest182457%_
                                  _%bind182455%_)))
                             (_%else182385182405%_))))))
                  (_%bind-e__0__189141189142%_
                   (lambda (_%bind182462%_ _%body182463%_)
                     (let ((_%continue182465%_ _%optimize-e181778%_))
                       (_%bind-e__189139189140%_
                        _%bind182462%_
                        _%body182463%_
                        _%continue182465%_))))
                  (_%bind-e181785%_
                   (lambda _g192298_
                     (let ((_g192297_
                            (let ()
                              (declare (not safe))
                              (##length _g192298_))))
                       (cond ((let () (declare (not safe)) (##fx= _g192297_ 2))
                              (apply _%bind-e__0__189141189142%_ _g192298_))
                             ((let () (declare (not safe)) (##fx= _g192297_ 3))
                              (apply _%bind-e__189139189140%_ _g192298_))
                             (else
                              (##raise-wrong-number-of-arguments-exception
                               'case-lambda-dispatch
                               _g192298_))))))
                  (_%lookup-block181786%_
                   (lambda (_%id182368%_)
                     (let ((__tmp192299
                            (lambda (_%block182370%_)
                              (let ((__tmp192300 (car _%block182370%_)))
                                (declare (not safe))
                                (gx#free-identifier=?
                                 __tmp192300
                                 _%id182368%_)))))
                       (declare (not safe))
                       (__find __tmp192299 _%blocks181528%_))))
                  (_%inline-block181787%_
                   (lambda (_%block182244%_ _%args182245%_)
                     (let* ((_%kont182247%_ (caddr _%block182244%_))
                            (_%g182249182275%_
                             (lambda (_%g182250182272%_)
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%g182250182272%_))))
                            (_%g182248182365%_
                             (lambda (_%g182250182278%_)
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%g182250182278%_))
                                   (let ((_%e182253182280%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%g182250182278%_))))
                                     (let ((_%hd182254182283%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e182253182280%_)))
                                           (_%tl182255182285%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e182253182280%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#identifier?
                                              _%hd182254182283%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-eq?
                                                  '%#lambda
                                                  _%hd182254182283%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl182255182285%_))
                                                   (let ((_%e182256182288%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl182255182285%_))))
                                                     (let ((_%hd182257182291%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e182256182288%_)))
                                                           (_%tl182258182293%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e182256182288%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair/null?
                                                              _%hd182257182291%_))
                                                           (let ((_g192301_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#syntax-split-splice _%hd182257182291%_ '0))))
                     (begin
                       (let ((_g192302_
                              (let ()
                                (declare (not safe))
                                (if (##values? _g192301_)
                                    (##vector-length _g192301_)
                                    1))))
                         (if (not (let ()
                                    (declare (not safe))
                                    (##fx= _g192302_ 2)))
                             (error "Context expects 2 values" _g192302_)))
                       (let ((_%target182259182296%_
                              (let ()
                                (declare (not safe))
                                (##vector-ref _g192301_ 0)))
                             (_%tl182261182298%_
                              (let ()
                                (declare (not safe))
                                (##vector-ref _g192301_ 1))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl182261182298%_))
                             (letrec ((_%loop182262182301%_
                                       (lambda (_%hd182260182304%_
                                                _%id182266182306%_)
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%hd182260182304%_))
                                             (let ((_%e182263182309%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%hd182260182304%_))))
                                               (let ((_%lp-hd182264182312%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e182263182309%_)))
                                                     (_%lp-tl182265182314%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e182263182309%_))))
                                                 (_%loop182262182301%_
                                                  _%lp-tl182265182314%_
                                                  (cons _%lp-hd182264182312%_
                                                        _%id182266182306%_))))
                                             (let ((_%id182267182317%_
                                                    (reverse _%id182266182306%_)))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl182258182293%_))
                                                   (let ((_%e182268182320%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl182258182293%_))))
                                                     (let ((_%hd182269182323%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e182268182320%_)))
                                                           (_%tl182270182325%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e182268182320%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl182270182325%_))
                                                           ((lambda (_%L182328%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%L182329%_)
                      (if (null? (let ((__tmp192303
                                        (lambda (_%g182348182351%_
                                                 _%g182349182353%_)
                                          (cons _%g182348182351%_
                                                _%g182349182353%_))))
                                   (declare (not safe))
                                   (__foldr1 __tmp192303 '() _%L182329%_)))
                          _%L182328%_
                          (let ((_%subst182363%_
                                 (map cons
                                      (let ((__tmp192304
                                             (lambda (_%g182355182358%_
                                                      _%g182356182360%_)
                                               (cons _%g182355182358%_
                                                     _%g182356182360%_))))
                                        (declare (not safe))
                                        (__foldr1 __tmp192304 '() _%L182329%_))
                                      _%args182245%_)))
                            (declare (not safe))
                            (gxc#apply-expression-subst*__%
                             '#f
                             _%subst182363%_
                             _%L182328%_))))
                    _%hd182269182323%_
                    _%id182267182317%_)
                   (_%g182249182275%_ _%g182250182278%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g182249182275%_
                                                    _%g182250182278%_)))))))
                               (_%loop182262182301%_
                                _%target182259182296%_
                                '()))
                             (_%g182249182275%_ _%g182250182278%_)))))
                   (_%g182249182275%_ _%g182250182278%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g182249182275%_
                                                    _%g182250182278%_))
                                               (_%g182249182275%_
                                                _%g182250182278%_))
                                           (_%g182249182275%_
                                            _%g182250182278%_))))
                                   (_%g182249182275%_ _%g182250182278%_)))))
                       (_%g182248182365%_ _%kont182247%_))))
                  (_%nonlinear-block?181788%_
                   (lambda (_%block181793%_)
                     (letrec ((_%nonlinear-expr?181795%_
                               (lambda (_%expr181903%_)
                                 (let* ((_%__stx191212191213%_ _%expr181903%_)
                                        (_%g181909181975%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (gx#raise-syntax-error
                                              '#f
                                              '"Bad syntax; invalid match target"
                                              _%__stx191212191213%_)))))
                                   (let ((_%__kont191214191215%_
                                          (lambda () '#t))
                                         (_%__kont191216191217%_
                                          (lambda (_%L182174%_)
                                            (let* ((_%__stx191194191195%_
                                                    _%L182174%_)
                                                   (_%g182192182201%_
                                                    (lambda ()
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%__stx191194191195%_)))))
                                              (let ((_%__kont191196191197%_
                                                     (lambda () '#f))
                                                    (_%__kont191198191199%_
                                                     (lambda () '#t)))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%__stx191194191195%_))
                                                    (let ((_%e182194182213%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%__stx191194191195%_))))
                                                      (let ((_%tl182196182218%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e182194182213%_)))
                    (_%hd182195182216%_
                     (let () (declare (not safe)) (##car _%e182194182213%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd182195182216%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd182195182216%_))
                        (_%__kont191196191197%_)
                        (_%__kont191198191199%_))
                    (_%__kont191198191199%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont191198191199%_))))))
                                         (_%__kont191220191221%_
                                          (lambda (_%L182072%_)
                                            (_%nonlinear-expr?181795%_
                                             _%L182072%_)))
                                         (_%__kont191222191223%_
                                          (lambda (_%L182019%_
                                                   _%L182020%_
                                                   _%L182021%_)
                                            (let ((_%$e182040%_
                                                   (_%nonlinear-expr?181795%_
                                                    _%L182020%_)))
                                              (if _%$e182040%_
                                                  _%$e182040%_
                                                  (_%nonlinear-expr?181795%_
                                                   _%L182019%_)))))
                                         (_%__kont191224191225%_
                                          (lambda () '#f)))
                                     (let* ((_%__match191275191276%_
                                             (lambda (_%e181947182048%_
                                                      _%hd181948182051%_
                                                      _%tl181949182053%_
                                                      _%e181950182056%_
                                                      _%hd181951182059%_
                                                      _%tl181952182061%_)
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl181952182061%_))
                                                   (let ((_%e181953182064%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl181952182061%_))))
                                                     (let ((_%tl181955182069%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e181953182064%_)))
                                                           (_%hd181954182067%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e181953182064%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl181955182069%_))
                                                           (_%__kont191220191221%_
                                                            _%hd181954182067%_)
                                                           (_%__kont191224191225%_))))
                                                   (_%__kont191224191225%_))))
                                            (_%__match191259191260%_
                                             (lambda (_%e181915182090%_
                                                      _%hd181916182093%_
                                                      _%tl181917182095%_
                                                      _%e181918182098%_
                                                      _%hd181919182101%_
                                                      _%tl181920182103%_
                                                      _%__splice191218191219%_
                                                      _%target181921182106%_
                                                      _%tl181923182108%_)
                                               (letrec ((_%loop181924182111%_
                                                         (lambda (_%hd181922182114%_)
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%hd181922182114%_))
                       (let ((_%e181925182117%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%hd181922182114%_))))
                         (let ((_%lp-tl181927182122%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e181925182117%_)))
                               (_%lp-hd181926182120%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e181925182117%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%lp-hd181926182120%_))
                               (let ((_%e181931182125%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%lp-hd181926182120%_))))
                                 (let ((_%tl181933182130%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e181931182125%_)))
                                       (_%hd181932182128%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e181931182125%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%hd181932182128%_))
                                       (let ((_%e181934182133%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%hd181932182128%_))))
                                         (let ((_%tl181936182138%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e181934182133%_)))
                                               (_%hd181935182136%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e181934182133%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-null?
                                                  _%tl181936182138%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl181933182130%_))
                                                   (let ((_%e181937182141%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl181933182130%_))))
                                                     (let ((_%tl181939182146%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e181937182141%_)))
                                                           (_%hd181938182144%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e181937182141%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd181938182144%_))
                                                           (let ((_%e181940182149%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd181938182144%_))))
                     (let ((_%tl181942182154%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e181940182149%_)))
                           (_%hd181941182152%_
                            (let ()
                              (declare (not safe))
                              (##car _%e181940182149%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%hd181941182152%_))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-eq? '%#ref _%hd181941182152%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl181942182154%_))
                                   (let ((_%e181943182157%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl181942182154%_))))
                                     (let ((_%tl181945182162%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e181943182157%_)))
                                           (_%hd181944182160%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e181943182157%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl181945182162%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-null?
                                                  _%tl181939182146%_))
                                               (_%loop181924182111%_
                                                _%lp-tl181927182122%_)
                                               (_%__match191275191276%_
                                                _%e181915182090%_
                                                _%hd181916182093%_
                                                _%tl181917182095%_
                                                _%e181918182098%_
                                                _%hd181919182101%_
                                                _%tl181920182103%_))
                                           (_%__match191275191276%_
                                            _%e181915182090%_
                                            _%hd181916182093%_
                                            _%tl181917182095%_
                                            _%e181918182098%_
                                            _%hd181919182101%_
                                            _%tl181920182103%_))))
                                   (_%__match191275191276%_
                                    _%e181915182090%_
                                    _%hd181916182093%_
                                    _%tl181917182095%_
                                    _%e181918182098%_
                                    _%hd181919182101%_
                                    _%tl181920182103%_))
                               (_%__match191275191276%_
                                _%e181915182090%_
                                _%hd181916182093%_
                                _%tl181917182095%_
                                _%e181918182098%_
                                _%hd181919182101%_
                                _%tl181920182103%_))
                           (_%__match191275191276%_
                            _%e181915182090%_
                            _%hd181916182093%_
                            _%tl181917182095%_
                            _%e181918182098%_
                            _%hd181919182101%_
                            _%tl181920182103%_))))
                   (_%__match191275191276%_
                    _%e181915182090%_
                    _%hd181916182093%_
                    _%tl181917182095%_
                    _%e181918182098%_
                    _%hd181919182101%_
                    _%tl181920182103%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%__match191275191276%_
                                                    _%e181915182090%_
                                                    _%hd181916182093%_
                                                    _%tl181917182095%_
                                                    _%e181918182098%_
                                                    _%hd181919182101%_
                                                    _%tl181920182103%_))
                                               (_%__match191275191276%_
                                                _%e181915182090%_
                                                _%hd181916182093%_
                                                _%tl181917182095%_
                                                _%e181918182098%_
                                                _%hd181919182101%_
                                                _%tl181920182103%_))))
                                       (_%__match191275191276%_
                                        _%e181915182090%_
                                        _%hd181916182093%_
                                        _%tl181917182095%_
                                        _%e181918182098%_
                                        _%hd181919182101%_
                                        _%tl181920182103%_))))
                               (_%__match191275191276%_
                                _%e181915182090%_
                                _%hd181916182093%_
                                _%tl181917182095%_
                                _%e181918182098%_
                                _%hd181919182101%_
                                _%tl181920182103%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%tl181920182103%_))
                           (let ((_%e181928182166%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%tl181920182103%_))))
                             (let ((_%tl181930182171%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e181928182166%_)))
                                   (_%hd181929182169%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e181928182166%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl181930182171%_))
                                   (_%__kont191216191217%_ _%hd181929182169%_)
                                   (_%__kont191224191225%_))))
                           (_%__kont191224191225%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%loop181924182111%_
                                                  _%target181921182106%_)))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair?
                                              _%__stx191212191213%_))
                                           (let ((_%e181911182231%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%__stx191212191213%_))))
                                             (let ((_%tl181913182236%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e181911182231%_)))
                                                   (_%hd181912182234%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e181911182231%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#identifier?
                                                      _%hd181912182234%_))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-eq?
                                                          '%#letrec-values
                                                          _%hd181912182234%_))
                                                       (_%__kont191214191215%_)
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-eq?
                                                              '%#let-values
                                                              _%hd181912182234%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl181913182236%_))
                       (let ((_%e181918182098%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl181913182236%_))))
                         (let ((_%tl181920182103%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e181918182098%_)))
                               (_%hd181919182101%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e181918182098%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair/null? _%hd181919182101%_))
                               (let ((_%__splice191218191219%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#syntax-split-splice
                                         _%hd181919182101%_
                                         '0))))
                                 (let ((_%tl181923182108%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref
                                           _%__splice191218191219%_
                                           '1)))
                                       (_%target181921182106%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref
                                           _%__splice191218191219%_
                                           '0))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-null? _%tl181923182108%_))
                                       (_%__match191259191260%_
                                        _%e181911182231%_
                                        _%hd181912182234%_
                                        _%tl181913182236%_
                                        _%e181918182098%_
                                        _%hd181919182101%_
                                        _%tl181920182103%_
                                        _%__splice191218191219%_
                                        _%target181921182106%_
                                        _%tl181923182108%_)
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl181920182103%_))
                                           (let ((_%e181953182064%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl181920182103%_))))
                                             (let ((_%tl181955182069%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e181953182064%_)))
                                                   (_%hd181954182067%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e181953182064%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl181955182069%_))
                                                   (_%__kont191220191221%_
                                                    _%hd181954182067%_)
                                                   (_%__kont191224191225%_))))
                                           (_%__kont191224191225%_)))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl181920182103%_))
                                   (let ((_%e181953182064%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl181920182103%_))))
                                     (let ((_%tl181955182069%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e181953182064%_)))
                                           (_%hd181954182067%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e181953182064%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl181955182069%_))
                                           (_%__kont191220191221%_
                                            _%hd181954182067%_)
                                           (_%__kont191224191225%_))))
                                   (_%__kont191224191225%_)))))
                       (_%__kont191224191225%_))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-eq? '%#if _%hd181912182234%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%tl181913182236%_))
                           (let ((_%e181962181995%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%tl181913182236%_))))
                             (let ((_%tl181964182000%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e181962181995%_)))
                                   (_%hd181963181998%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e181962181995%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl181964182000%_))
                                   (let ((_%e181965182003%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl181964182000%_))))
                                     (let ((_%tl181967182008%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e181965182003%_)))
                                           (_%hd181966182006%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e181965182003%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl181967182008%_))
                                           (let ((_%e181968182011%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl181967182008%_))))
                                             (let ((_%tl181970182016%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e181968182011%_)))
                                                   (_%hd181969182014%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e181968182011%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl181970182016%_))
                                                   (_%__kont191222191223%_
                                                    _%hd181969182014%_
                                                    _%hd181966182006%_
                                                    _%hd181963181998%_)
                                                   (_%__kont191224191225%_))))
                                           (_%__kont191224191225%_))))
                                   (_%__kont191224191225%_))))
                           (_%__kont191224191225%_))
                       (_%__kont191224191225%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%__kont191224191225%_))))
                                           (_%__kont191224191225%_))))))))
                       (let* ((_%kont181797%_ (caddr _%block181793%_))
                              (_%g181799181825%_
                               (lambda (_%g181800181822%_)
                                 (let ()
                                   (declare (not safe))
                                   (gx#raise-syntax-error
                                    '#f
                                    '"Bad syntax; invalid match target"
                                    _%g181800181822%_))))
                              (_%g181798181900%_
                               (lambda (_%g181800181828%_)
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%g181800181828%_))
                                     (let ((_%e181803181830%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%g181800181828%_))))
                                       (let ((_%hd181804181833%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e181803181830%_)))
                                             (_%tl181805181835%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e181803181830%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#identifier?
                                                _%hd181804181833%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-eq?
                                                    '%#lambda
                                                    _%hd181804181833%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl181805181835%_))
                                                     (let ((_%e181806181838%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl181805181835%_))))
                                                       (let ((_%hd181807181841%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##car _%e181806181838%_)))
                     (_%tl181808181843%_
                      (let () (declare (not safe)) (##cdr _%e181806181838%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair/null? _%hd181807181841%_))
                     (let ((_g192305_
                            (let ()
                              (declare (not safe))
                              (gx#syntax-split-splice _%hd181807181841%_ '0))))
                       (begin
                         (let ((_g192306_
                                (let ()
                                  (declare (not safe))
                                  (if (##values? _g192305_)
                                      (##vector-length _g192305_)
                                      1))))
                           (if (not (let ()
                                      (declare (not safe))
                                      (##fx= _g192306_ 2)))
                               (error "Context expects 2 values" _g192306_)))
                         (let ((_%target181809181846%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _g192305_ 0)))
                               (_%tl181811181848%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _g192305_ 1))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl181811181848%_))
                               (letrec ((_%loop181812181851%_
                                         (lambda (_%hd181810181854%_
                                                  _%id181816181856%_)
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%hd181810181854%_))
                                               (let ((_%e181813181859%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%hd181810181854%_))))
                                                 (let ((_%lp-hd181814181862%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e181813181859%_)))
                                                       (_%lp-tl181815181864%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e181813181859%_))))
                                                   (_%loop181812181851%_
                                                    _%lp-tl181815181864%_
                                                    (cons _%lp-hd181814181862%_
                                                          _%id181816181856%_))))
                                               (let ((_%id181817181867%_
                                                      (reverse _%id181816181856%_)))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl181808181843%_))
                                                     (let ((_%e181818181870%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl181808181843%_))))
                                                       (let ((_%hd181819181873%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##car _%e181818181870%_)))
                     (_%tl181820181875%_
                      (let () (declare (not safe)) (##cdr _%e181818181870%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-null? _%tl181820181875%_))
                     ((lambda (_%L181878%_ _%L181879%_)
                        (_%nonlinear-expr?181795%_ _%L181878%_))
                      _%hd181819181873%_
                      _%id181817181867%_)
                     (_%g181799181825%_ _%g181800181828%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%g181799181825%_
                                                      _%g181800181828%_)))))))
                                 (_%loop181812181851%_
                                  _%target181809181846%_
                                  '()))
                               (_%g181799181825%_ _%g181800181828%_)))))
                     (_%g181799181825%_ _%g181800181828%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%g181799181825%_
                                                      _%g181800181828%_))
                                                 (_%g181799181825%_
                                                  _%g181800181828%_))
                                             (_%g181799181825%_
                                              _%g181800181828%_))))
                                     (_%g181799181825%_ _%g181800181828%_)))))
                         (_%g181798181900%_ _%kont181797%_))))))
          (_%do-assert181767%_
           _%assert181526%_
           (lambda ()
             (_%do-bind181774%_
              _%bind181527%_
              (lambda ()
                (if (memq '@match:prefix
                          (let ()
                            (declare (not safe))
                            (gxc#current-annotation-optimizer)))
                    (_%do-splice!181777%_
                     (lambda () (_%optimize-e181778%_ _%body181525%_)))
                    (_%optimize-e181778%_ _%body181525%_)))))))))
    (define gxc#optimize-match-prune-blocks
      (lambda (_%blocks181437%_ _%konts181438%_)
        (letrec* ((_%rtab181440%_
                   (let () (declare (not safe)) (make-hash-table-eq))))
          (for-each
           (lambda (_%block181442%_)
             (let ((__tmp192307 (caddr _%block181442%_)))
               (declare (not safe))
               (gxc#apply-collect-runtime-refs__%
                '#f
                _%rtab181440%_
                __tmp192307)))
           _%konts181438%_)
          (let _%lp181444%_ ((_%rest181446%_ _%blocks181437%_)
                             (_%r181447%_ '()))
            (let* ((_%rest181448181456%_ _%rest181446%_)
                   (_%else181450181464%_ (lambda () (reverse _%r181447%_)))
                   (_%K181452181513%_
                    (lambda (_%rest181467%_ _%block181468%_)
                      (let* ((_%block181469181480%_ _%block181468%_)
                             (_%E181471181484%_
                              (lambda ()
                                (let ()
                                  (declare (not safe))
                                  (error '"No clause matching"
                                         _%block181469181480%_
                                         '([name type kont . _])))
                                '#!void))
                             (_%K181472181491%_
                              (lambda (_%kont181487%_
                                       _%type181488%_
                                       _%name181489%_)
                                (if (let ((__tmp192308
                                           (let ()
                                             (declare (not safe))
                                             (gxc#identifier-symbol
                                              _%name181489%_))))
                                      (declare (not safe))
                                      (__hash-get _%rtab181440%_ __tmp192308))
                                    (begin
                                      (let ()
                                        (declare (not safe))
                                        (gxc#apply-collect-runtime-refs__%
                                         '#f
                                         _%rtab181440%_
                                         _%kont181487%_))
                                      (_%lp181444%_
                                       _%rest181467%_
                                       (cons _%block181468%_ _%r181447%_)))
                                    (_%lp181444%_
                                     _%rest181467%_
                                     _%r181447%_)))))
                        (if (pair? _%block181469181480%_)
                            (let ((_%hd181473181494%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%block181469181480%_)))
                                  (_%tl181474181496%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%block181469181480%_))))
                              (let ((_%name181499%_ _%hd181473181494%_))
                                (if (pair? _%tl181474181496%_)
                                    (let ((_%hd181475181501%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%tl181474181496%_)))
                                          (_%tl181476181503%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%tl181474181496%_))))
                                      (let ((_%type181506%_
                                             _%hd181475181501%_))
                                        (if (pair? _%tl181476181503%_)
                                            (let* ((_%hd181477181508%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%tl181476181503%_)))
                                                   (_%kont181511%_
                                                    _%hd181477181508%_))
                                              (_%K181472181491%_
                                               _%kont181511%_
                                               _%type181506%_
                                               _%name181499%_))
                                            (_%E181471181484%_))))
                                    (_%E181471181484%_))))
                            (_%E181471181484%_))))))
              (if (pair? _%rest181448181456%_)
                  (let ((_%hd181453181516%_
                         (let ()
                           (declare (not safe))
                           (##car _%rest181448181456%_)))
                        (_%tl181454181518%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%rest181448181456%_))))
                    (let* ((_%block181521%_ _%hd181453181516%_)
                           (_%rest181523%_ _%tl181454181518%_))
                      (_%K181452181513%_ _%rest181523%_ _%block181521%_)))
                  (_%else181450181464%_)))))))
    (define gxc#optimize-match-fuse-restart-blocks
      (lambda (_%blocks181361%_ _%konts181362%_)
        (let* ((_%blocks181363181379%_ _%blocks181361%_)
               (_%else181365181387%_ (lambda () _%blocks181361%_))
               (_%K181367181405%_
                (lambda (_%rest181390%_ _%kont181391%_ _%name181392%_)
                  (letrec* ((_%rtab181394%_
                             (let ()
                               (declare (not safe))
                               (make-hash-table-eq))))
                    (for-each
                     (lambda (_%block181396%_)
                       (let ((__tmp192309 (caddr _%block181396%_)))
                         (declare (not safe))
                         (gxc#apply-collect-runtime-refs__%
                          '#f
                          _%rtab181394%_
                          __tmp192309)))
                     _%konts181362%_)
                    (if (let ((__tmp192310
                               (let ((__tmp192311
                                      (let ()
                                        (declare (not safe))
                                        (gxc#identifier-symbol
                                         _%name181392%_))))
                                 (declare (not safe))
                                 (hash-ref__0 _%rtab181394%_ __tmp192311))))
                          (declare (not safe))
                          (##fx= __tmp192310 '1))
                        (let* ((_%rblock181400%_
                                (let ((__tmp192312
                                       (lambda (_%block181398%_)
                                         (let ((__tmp192314
                                                (cons _%name181392%_ '()))
                                               (__tmp192313
                                                (caddr _%block181398%_)))
                                           (declare (not safe))
                                           (gxc#apply-find-var-refs__%
                                            '#f
                                            __tmp192314
                                            __tmp192313)))))
                                  (declare (not safe))
                                  (__find __tmp192312 _%konts181362%_)))
                               (_%assert181402%_
                                (gxc#optimize-match-assert-restart
                                 _%rblock181400%_
                                 _%name181392%_)))
                          (cons (cons _%name181392%_
                                      (cons 'restart:
                                            (cons _%kont181391%_
                                                  (cons _%assert181402%_
                                                        '()))))
                                _%rest181390%_))
                        _%blocks181361%_)))))
          (if (pair? _%blocks181363181379%_)
              (let ((_%hd181368181408%_
                     (let ()
                       (declare (not safe))
                       (##car _%blocks181363181379%_)))
                    (_%tl181369181410%_
                     (let ()
                       (declare (not safe))
                       (##cdr _%blocks181363181379%_))))
                (if (pair? _%hd181368181408%_)
                    (let ((_%hd181370181413%_
                           (let ()
                             (declare (not safe))
                             (##car _%hd181368181408%_)))
                          (_%tl181371181415%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%hd181368181408%_))))
                      (let ((_%name181418%_ _%hd181370181413%_))
                        (if (pair? _%tl181371181415%_)
                            (let ((_%hd181372181420%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%tl181371181415%_)))
                                  (_%tl181373181422%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%tl181371181415%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (##eq? _%hd181372181420%_ 'restart:))
                                  (if (pair? _%tl181373181422%_)
                                      (let ((_%hd181374181425%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%tl181373181422%_)))
                                            (_%tl181375181427%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%tl181373181422%_))))
                                        (let ((_%kont181430%_
                                               _%hd181374181425%_))
                                          (if (pair? _%tl181375181427%_)
                                              (let ((_%tl181377181432%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%tl181375181427%_))))
                                                (if (null? _%tl181377181432%_)
                                                    (let ((_%rest181435%_
                                                           _%tl181369181410%_))
                                                      (_%K181367181405%_
                                                       _%rest181435%_
                                                       _%kont181430%_
                                                       _%name181418%_))
                                                    (_%else181365181387%_)))
                                              (_%else181365181387%_))))
                                      (_%else181365181387%_))
                                  (_%else181365181387%_)))
                            (_%else181365181387%_))))
                    (_%else181365181387%_)))
              (_%else181365181387%_)))))
    (define gxc#optimize-match-assert-restart
      (lambda (_%block180757%_ _%name180758%_)
        (letrec ((_%assert-restart180760%_
                  (lambda (_%expr180916%_ _%assert180917%_)
                    (let* ((_%__stx191316191317%_ _%expr180916%_)
                           (_%g180923181020%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx191316191317%_)))))
                      (let ((_%__kont191318191319%_
                             (lambda (_%L181336%_ _%L181337%_ _%L181338%_)
                               (let ((_%$e181355%_
                                      (_%assert-restart180760%_
                                       _%L181337%_
                                       (cons (cons _%L181338%_ '#t)
                                             _%assert180917%_))))
                                 (if _%$e181355%_
                                     _%$e181355%_
                                     (_%assert-restart180760%_
                                      _%L181336%_
                                      (cons (cons _%L181338%_ '#f)
                                            _%assert180917%_))))))
                            (_%__kont191320191321%_
                             (lambda (_%L181284%_)
                               (if (let ()
                                     (declare (not safe))
                                     (gx#free-identifier=?
                                      _%L181284%_
                                      _%name180758%_))
                                   _%assert180917%_
                                   '#f)))
                            (_%__kont191322191323%_
                             (lambda (_%L181234%_)
                               (_%assert-restart180760%_
                                _%L181234%_
                                _%assert180917%_)))
                            (_%__kont191324191325%_
                             (lambda (_%L181160%_
                                      _%L181161%_
                                      _%L181162%_
                                      _%L181163%_
                                      _%L181164%_)
                               (_%assert-restart180760%_
                                _%L181162%_
                                _%assert180917%_)))
                            (_%__kont191330191331%_ (lambda () '#f)))
                        (let ((_%__match191485191486%_
                               (lambda (_%e180968181032%_
                                        _%hd180969181035%_
                                        _%tl180970181037%_
                                        _%e180971181040%_
                                        _%hd180972181043%_
                                        _%tl180973181045%_
                                        _%e180974181048%_
                                        _%hd180975181051%_
                                        _%tl180976181053%_
                                        _%e180977181056%_
                                        _%hd180978181059%_
                                        _%tl180979181061%_
                                        _%e180980181064%_
                                        _%hd180981181067%_
                                        _%tl180982181069%_
                                        _%e180983181072%_
                                        _%hd180984181075%_
                                        _%tl180985181077%_
                                        _%e180986181080%_
                                        _%hd180987181083%_
                                        _%tl180988181085%_
                                        _%e180989181088%_
                                        _%hd180990181091%_
                                        _%tl180991181093%_
                                        _%__splice191326191327%_
                                        _%target180992181096%_
                                        _%tl180994181098%_)
                                 (letrec ((_%loop180995181101%_
                                           (lambda (_%hd180993181104%_
                                                    _%id180999181106%_)
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%hd180993181104%_))
                                                 (let ((_%e180996181109%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%hd180993181104%_))))
                                                   (let ((_%lp-tl180998181114%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e180996181109%_)))
                                                         (_%lp-hd180997181112%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e180996181109%_))))
                                                     (_%loop180995181101%_
                                                      _%lp-tl180998181114%_
                                                      (cons _%lp-hd180997181112%_
                                                            _%id180999181106%_))))
                                                 (let ((_%id181000181117%_
                                                        (reverse _%id180999181106%_)))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl180991181093%_))
                                                       (let ((_%e181001181120%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl180991181093%_))))
                 (let ((_%tl181003181125%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e181001181120%_)))
                       (_%hd181002181123%_
                        (let ()
                          (declare (not safe))
                          (##car _%e181001181120%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-null? _%tl181003181125%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-null? _%tl180985181077%_))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair/null? _%tl180976181053%_))
                               (let ((_%__splice191328191329%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#syntax-split-splice
                                         _%tl180976181053%_
                                         '0))))
                                 (let ((_%tl181006181130%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref
                                           _%__splice191328191329%_
                                           '1)))
                                       (_%target181004181128%_
                                        (let ()
                                          (declare (not safe))
                                          (##vector-ref
                                           _%__splice191328191329%_
                                           '0))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-null? _%tl181006181130%_))
                                       (letrec ((_%loop181007181133%_
                                                 (lambda (_%hd181005181136%_
                                                          _%bind181011181138%_)
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%hd181005181136%_))
                                                       (let ((_%e181008181141%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%hd181005181136%_))))
                 (let ((_%lp-tl181010181146%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e181008181141%_)))
                       (_%lp-hd181009181144%_
                        (let ()
                          (declare (not safe))
                          (##car _%e181008181141%_))))
                   (_%loop181007181133%_
                    _%lp-tl181010181146%_
                    (cons _%lp-hd181009181144%_ _%bind181011181138%_))))
               (let ((_%bind181012181149%_ (reverse _%bind181011181138%_)))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%tl180973181045%_))
                     (let ((_%e181013181152%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%tl180973181045%_))))
                       (let ((_%tl181015181157%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e181013181152%_)))
                             (_%hd181014181155%_
                              (let ()
                                (declare (not safe))
                                (##car _%e181013181152%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-null? _%tl181015181157%_))
                             (_%__kont191324191325%_
                              _%hd181014181155%_
                              _%bind181012181149%_
                              _%hd181002181123%_
                              _%id181000181117%_
                              _%hd180981181067%_)
                             (_%__kont191330191331%_))))
                     (_%__kont191330191331%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (_%loop181007181133%_
                                          _%target181004181128%_
                                          '()))
                                       (_%__kont191330191331%_))))
                               (_%__kont191330191331%_))
                           (_%__kont191330191331%_))
                       (_%__kont191330191331%_))))
               (_%__kont191330191331%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   (_%loop180995181101%_
                                    _%target180992181096%_
                                    '())))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx191316191317%_))
                              (let ((_%e180928181304%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx191316191317%_))))
                                (let ((_%tl180930181309%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e180928181304%_)))
                                      (_%hd180929181307%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e180928181304%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd180929181307%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#if
                                             _%hd180929181307%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl180930181309%_))
                                              (let ((_%e180931181312%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl180930181309%_))))
                                                (let ((_%tl180933181317%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e180931181312%_)))
                                                      (_%hd180932181315%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e180931181312%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl180933181317%_))
                                                      (let ((_%e180934181320%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl180933181317%_))))
                (let ((_%tl180936181325%_
                       (let () (declare (not safe)) (##cdr _%e180934181320%_)))
                      (_%hd180935181323%_
                       (let ()
                         (declare (not safe))
                         (##car _%e180934181320%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl180936181325%_))
                      (let ((_%e180937181328%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl180936181325%_))))
                        (let ((_%tl180939181333%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e180937181328%_)))
                              (_%hd180938181331%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e180937181328%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl180939181333%_))
                              (_%__kont191318191319%_
                               _%hd180938181331%_
                               _%hd180935181323%_
                               _%hd180932181315%_)
                              (_%__kont191330191331%_))))
                      (_%__kont191330191331%_))))
              (_%__kont191330191331%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont191330191331%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#call
                                                 _%hd180929181307%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl180930181309%_))
                                                  (let ((_%e180944181260%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl180930181309%_))))
                                                    (let ((_%tl180946181265%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e180944181260%_)))
                                                          (_%hd180945181263%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e180944181260%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd180945181263%_))
                                                          (let ((_%e180947181268%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd180945181263%_))))
                    (let ((_%tl180949181273%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e180947181268%_)))
                          (_%hd180948181271%_
                           (let ()
                             (declare (not safe))
                             (##car _%e180947181268%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd180948181271%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd180948181271%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl180949181273%_))
                                  (let ((_%e180950181276%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl180949181273%_))))
                                    (let ((_%tl180952181281%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e180950181276%_)))
                                          (_%hd180951181279%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e180950181276%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl180952181281%_))
                                          (_%__kont191320191321%_
                                           _%hd180951181279%_)
                                          (_%__kont191330191331%_))))
                                  (_%__kont191330191331%_))
                              (_%__kont191330191331%_))
                          (_%__kont191330191331%_))))
                  (_%__kont191330191331%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont191330191331%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#let-values
                                                     _%hd180929181307%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl180930181309%_))
                                                      (let ((_%e180957181218%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl180930181309%_))))
                (let ((_%tl180959181223%_
                       (let () (declare (not safe)) (##cdr _%e180957181218%_)))
                      (_%hd180958181221%_
                       (let ()
                         (declare (not safe))
                         (##car _%e180957181218%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl180959181223%_))
                      (let ((_%e180960181226%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl180959181223%_))))
                        (let ((_%tl180962181231%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e180960181226%_)))
                              (_%hd180961181229%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e180960181226%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl180962181231%_))
                              (_%__kont191322191323%_ _%hd180961181229%_)
                              (_%__kont191330191331%_))))
                      (_%__kont191330191331%_))))
              (_%__kont191330191331%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#letrec-values
                                                         _%hd180929181307%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl180930181309%_))
                                                          (let ((_%e180971181040%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl180930181309%_))))
                    (let ((_%tl180973181045%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e180971181040%_)))
                          (_%hd180972181043%_
                           (let ()
                             (declare (not safe))
                             (##car _%e180971181040%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd180972181043%_))
                          (let ((_%e180974181048%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd180972181043%_))))
                            (let ((_%tl180976181053%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e180974181048%_)))
                                  (_%hd180975181051%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e180974181048%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd180975181051%_))
                                  (let ((_%e180977181056%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd180975181051%_))))
                                    (let ((_%tl180979181061%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e180977181056%_)))
                                          (_%hd180978181059%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e180977181056%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd180978181059%_))
                                          (let ((_%e180980181064%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd180978181059%_))))
                                            (let ((_%tl180982181069%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e180980181064%_)))
                                                  (_%hd180981181067%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e180980181064%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl180982181069%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl180979181061%_))
                                                      (let ((_%e180983181072%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl180979181061%_))))
                (let ((_%tl180985181077%_
                       (let () (declare (not safe)) (##cdr _%e180983181072%_)))
                      (_%hd180984181075%_
                       (let ()
                         (declare (not safe))
                         (##car _%e180983181072%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd180984181075%_))
                      (let ((_%e180986181080%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd180984181075%_))))
                        (let ((_%tl180988181085%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e180986181080%_)))
                              (_%hd180987181083%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e180986181080%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd180987181083%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#lambda _%hd180987181083%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl180988181085%_))
                                      (let ((_%e180989181088%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl180988181085%_))))
                                        (let ((_%tl180991181093%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e180989181088%_)))
                                              (_%hd180990181091%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e180989181088%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%hd180990181091%_))
                                              (let ((_%__splice191326191327%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%hd180990181091%_
                                                        '0))))
                                                (let ((_%tl180994181098%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice191326191327%_
                                                          '1)))
                                                      (_%target180992181096%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice191326191327%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl180994181098%_))
                                                      (_%__match191485191486%_
                                                       _%e180928181304%_
                                                       _%hd180929181307%_
                                                       _%tl180930181309%_
                                                       _%e180971181040%_
                                                       _%hd180972181043%_
                                                       _%tl180973181045%_
                                                       _%e180974181048%_
                                                       _%hd180975181051%_
                                                       _%tl180976181053%_
                                                       _%e180977181056%_
                                                       _%hd180978181059%_
                                                       _%tl180979181061%_
                                                       _%e180980181064%_
                                                       _%hd180981181067%_
                                                       _%tl180982181069%_
                                                       _%e180983181072%_
                                                       _%hd180984181075%_
                                                       _%tl180985181077%_
                                                       _%e180986181080%_
                                                       _%hd180987181083%_
                                                       _%tl180988181085%_
                                                       _%e180989181088%_
                                                       _%hd180990181091%_
                                                       _%tl180991181093%_
                                                       _%__splice191326191327%_
                                                       _%target180992181096%_
                                                       _%tl180994181098%_)
                                                      (_%__kont191330191331%_))))
                                              (_%__kont191330191331%_))))
                                      (_%__kont191330191331%_))
                                  (_%__kont191330191331%_))
                              (_%__kont191330191331%_))))
                      (_%__kont191330191331%_))))
              (_%__kont191330191331%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont191330191331%_))))
                                          (_%__kont191330191331%_))))
                                  (_%__kont191330191331%_))))
                          (_%__kont191330191331%_))))
                  (_%__kont191330191331%_))
              (_%__kont191330191331%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (_%__kont191330191331%_))))
                              (_%__kont191330191331%_))))))))
          (let* ((_%block180761180774%_ _%block180757%_)
                 (_%E180763180778%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (error '"No clause matching"
                             _%block180761180774%_
                             '([_ _ kont assert . maybe-bind])))
                    '#!void))
                 (_%K180764180891%_
                  (lambda (_%maybe-bind180781%_
                           _%assert180782%_
                           _%kont180783%_)
                    (let* ((_%g180785180811%_
                            (lambda (_%g180786180808%_)
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%g180786180808%_))))
                           (_%g180784180888%_
                            (lambda (_%g180786180814%_)
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%g180786180814%_))
                                  (let ((_%e180789180816%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%g180786180814%_))))
                                    (let ((_%hd180790180819%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e180789180816%_)))
                                          (_%tl180791180821%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e180789180816%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd180790180819%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#lambda
                                                 _%hd180790180819%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl180791180821%_))
                                                  (let ((_%e180792180824%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl180791180821%_))))
                                                    (let ((_%hd180793180827%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e180792180824%_)))
                                                          (_%tl180794180829%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e180792180824%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair/null?
                                                             _%hd180793180827%_))
                                                          (let ((_g192315_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%hd180793180827%_ '0))))
                    (begin
                      (let ((_g192316_
                             (let ()
                               (declare (not safe))
                               (if (##values? _g192315_)
                                   (##vector-length _g192315_)
                                   1))))
                        (if (not (let ()
                                   (declare (not safe))
                                   (##fx= _g192316_ 2)))
                            (error "Context expects 2 values" _g192316_)))
                      (let ((_%target180795180832%_
                             (let ()
                               (declare (not safe))
                               (##vector-ref _g192315_ 0)))
                            (_%tl180797180834%_
                             (let ()
                               (declare (not safe))
                               (##vector-ref _g192315_ 1))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl180797180834%_))
                            (letrec ((_%loop180798180837%_
                                      (lambda (_%hd180796180840%_
                                               _%id180802180842%_)
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%hd180796180840%_))
                                            (let ((_%e180799180845%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%hd180796180840%_))))
                                              (let ((_%lp-hd180800180848%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e180799180845%_)))
                                                    (_%lp-tl180801180850%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e180799180845%_))))
                                                (_%loop180798180837%_
                                                 _%lp-tl180801180850%_
                                                 (cons _%lp-hd180800180848%_
                                                       _%id180802180842%_))))
                                            (let ((_%id180803180853%_
                                                   (reverse _%id180802180842%_)))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl180794180829%_))
                                                  (let ((_%e180804180856%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl180794180829%_))))
                                                    (let ((_%hd180805180859%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e180804180856%_)))
                                                          (_%tl180806180861%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e180804180856%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl180806180861%_))
                                                          ((lambda (_%L180864%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            _%L180865%_)
                     (_%assert-restart180760%_ _%L180864%_ _%assert180782%_))
                   _%hd180805180859%_
                   _%id180803180853%_)
                  (_%g180785180811%_ _%g180786180814%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g180785180811%_
                                                   _%g180786180814%_)))))))
                              (_%loop180798180837%_
                               _%target180795180832%_
                               '()))
                            (_%g180785180811%_ _%g180786180814%_)))))
                  (_%g180785180811%_ _%g180786180814%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g180785180811%_
                                                   _%g180786180814%_))
                                              (_%g180785180811%_
                                               _%g180786180814%_))
                                          (_%g180785180811%_
                                           _%g180786180814%_))))
                                  (_%g180785180811%_ _%g180786180814%_)))))
                      (_%g180784180888%_ _%kont180783%_)))))
            (if (pair? _%block180761180774%_)
                (let ((_%tl180766180894%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%block180761180774%_))))
                  (if (pair? _%tl180766180894%_)
                      (let ((_%tl180768180897%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%tl180766180894%_))))
                        (if (pair? _%tl180768180897%_)
                            (let ((_%hd180769180900%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%tl180768180897%_)))
                                  (_%tl180770180902%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%tl180768180897%_))))
                              (let ((_%kont180905%_ _%hd180769180900%_))
                                (if (pair? _%tl180770180902%_)
                                    (let ((_%hd180771180907%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%tl180770180902%_)))
                                          (_%tl180772180909%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%tl180770180902%_))))
                                      (let* ((_%assert180912%_
                                              _%hd180771180907%_)
                                             (_%maybe-bind180914%_
                                              _%tl180772180909%_))
                                        (_%K180764180891%_
                                         _%maybe-bind180914%_
                                         _%assert180912%_
                                         _%kont180905%_)))
                                    (_%E180763180778%_))))
                            (_%E180763180778%_)))
                      (_%E180763180778%_)))
                (_%E180763180778%_))))))
    (define gxc#optimize-syntax-case
      (lambda (_%stx180388%_)
        (let* ((_%g180390180420%_
                (lambda (_%g180391180417%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g180391180417%_))))
               (_%g180389180754%_
                (lambda (_%g180391180423%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g180391180423%_))
                      (let ((_%e180395180425%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g180391180423%_))))
                        (let ((_%hd180396180428%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e180395180425%_)))
                              (_%tl180397180430%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e180395180425%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd180396180428%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq?
                                     '%#let-values
                                     _%hd180396180428%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl180397180430%_))
                                      (let ((_%e180398180433%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl180397180430%_))))
                                        (let ((_%hd180399180436%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e180398180433%_)))
                                              (_%tl180400180438%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e180398180433%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd180399180436%_))
                                              (let ((_%e180401180441%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd180399180436%_))))
                                                (let ((_%hd180402180444%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e180401180441%_)))
                                                      (_%tl180403180446%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e180401180441%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd180402180444%_))
                                                      (let ((_%e180404180449%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd180402180444%_))))
                (let ((_%hd180405180452%_
                       (let () (declare (not safe)) (##car _%e180404180449%_)))
                      (_%tl180406180454%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e180404180449%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd180405180452%_))
                      (let ((_%e180407180457%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd180405180452%_))))
                        (let ((_%hd180408180460%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e180407180457%_)))
                              (_%tl180409180462%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e180407180457%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl180409180462%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl180406180454%_))
                                  (let ((_%e180410180465%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl180406180454%_))))
                                    (let ((_%hd180411180468%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e180410180465%_)))
                                          (_%tl180412180470%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e180410180465%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl180412180470%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl180403180446%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl180400180438%_))
                                                  (let ((_%e180413180473%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl180400180438%_))))
                                                    (let ((_%hd180414180476%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e180413180473%_)))
                                                          (_%tl180415180478%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e180413180473%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl180415180478%_))
                                                          ((lambda (_%L180481%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            _%L180482%_
                            _%L180483%_)
                     (let _%lp180507%_ ((_%body180509%_ _%L180481%_)
                                        (_%clauses180510%_ '()))
                       (let* ((_%__stx191488191489%_ _%body180509%_)
                              (_%g180513180560%_
                               (lambda ()
                                 (let ()
                                   (declare (not safe))
                                   (gx#raise-syntax-error
                                    '#f
                                    '"Bad syntax; invalid match target"
                                    _%__stx191488191489%_)))))
                         (let ((_%__kont191490191491%_
                                (lambda (_%L180726%_ _%L180727%_ _%L180728%_)
                                  (_%lp180507%_
                                   _%L180726%_
                                   (cons (cons _%L180728%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#compile-e__0
                                                  _%L180727%_)))
                                         _%clauses180510%_))))
                               (_%__kont191492191493%_
                                (lambda (_%L180605%_ _%L180606%_)
                                  (let ((_%$e180627%_
                                         (length _%clauses180510%_)))
                                    (if (eq? '0 _%$e180627%_)
                                        (let ((__tmp192317
                                               (cons '%#let-values
                                                     (cons (cons (cons (cons _%L180483%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                     '())
                               (cons _%L180482%_ '()))
                         '())
                   (cons (let ()
                           (declare (not safe))
                           (gxc#compile-e__0 _%body180509%_))
                         '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (declare (not safe))
                                          (gxc#xform-wrap-source
                                           __tmp192317
                                           _%stx180388%_))
                                        (if (eq? '1 _%$e180627%_)
                                            (let* ((_%clauses180629180638%_
                                                    _%clauses180510%_)
                                                   (_%E180631180642%_
                                                    (lambda ()
                                                      (let ()
                                                        (declare (not safe))
                                                        (error '"No clause matching"
                                                               _%clauses180629180638%_
                                                               '([[clause
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           .
                           clause-lambda]])))
              '#!void))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%K180632180648%_
                                                    (lambda (_%clause-lambda180645%_
                                                             _%clause180646%_)
                                                      (let ((__tmp192318
                                                             (cons '%#let-values
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons (cons (cons (cons _%L180483%_ '())
                                             (cons _%L180482%_ '()))
                                       '())
                                 (cons (cons '%#let-values
                                             (cons (cons (cons (cons _%clause180646%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             '())
                       (cons _%clause-lambda180645%_ '()))
                 '())
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (cons (let ()
                                                           (declare (not safe))
                                                           (gxc#compile-e__0
                                                            _%body180509%_))
                                                         '())))
                                       '())))))
                (declare (not safe))
                (gxc#xform-wrap-source __tmp192318 _%stx180388%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (pair? _%clauses180629180638%_)
                                                  (let ((_%hd180633180651%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%clauses180629180638%_)))
                                                        (_%tl180634180653%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%clauses180629180638%_))))
                                                    (if (pair? _%hd180633180651%_)
                                                        (let ((_%hd180635180656%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##car _%hd180633180651%_)))
                      (_%tl180636180658%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%hd180633180651%_))))
                  (let* ((_%clause180661%_ _%hd180635180656%_)
                         (_%clause-lambda180663%_ _%tl180636180658%_))
                    (if (null? _%tl180634180653%_)
                        (_%K180632180648%_
                         _%clause-lambda180663%_
                         _%clause180661%_)
                        (_%E180631180642%_))))
                (_%E180631180642%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%E180631180642%_)))
                                            (gxc#optimize-syntax-case-body
                                             _%stx180388%_
                                             (let ()
                                               (declare (not safe))
                                               (gxc#compile-e__0 _%L180605%_))
                                             (cons _%L180483%_ _%L180482%_)
                                             _%clauses180510%_)))))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%__stx191488191489%_))
                               (let ((_%e180518180670%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%__stx191488191489%_))))
                                 (let ((_%tl180520180675%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e180518180670%_)))
                                       (_%hd180519180673%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e180518180670%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%hd180519180673%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-eq?
                                              '%#let-values
                                              _%hd180519180673%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl180520180675%_))
                                               (let ((_%e180521180678%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl180520180675%_))))
                                                 (let ((_%tl180523180683%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e180521180678%_)))
                                                       (_%hd180522180681%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e180521180678%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%hd180522180681%_))
                                                       (let ((_%e180524180686%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%hd180522180681%_))))
                 (let ((_%tl180526180691%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e180524180686%_)))
                       (_%hd180525180689%_
                        (let ()
                          (declare (not safe))
                          (##car _%e180524180686%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%hd180525180689%_))
                       (let ((_%e180527180694%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%hd180525180689%_))))
                         (let ((_%tl180529180699%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e180527180694%_)))
                               (_%hd180528180697%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e180527180694%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%hd180528180697%_))
                               (let ((_%e180530180702%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%hd180528180697%_))))
                                 (let ((_%tl180532180707%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e180530180702%_)))
                                       (_%hd180531180705%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e180530180702%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-null? _%tl180532180707%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl180529180699%_))
                                           (let ((_%e180533180710%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl180529180699%_))))
                                             (let ((_%tl180535180715%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e180533180710%_)))
                                                   (_%hd180534180713%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e180533180710%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl180535180715%_))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl180526180691%_))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%tl180523180683%_))
                                                           (let ((_%e180536180718%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%tl180523180683%_))))
                     (let ((_%tl180538180723%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e180536180718%_)))
                           (_%hd180537180721%_
                            (let ()
                              (declare (not safe))
                              (##car _%e180536180718%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-null? _%tl180538180723%_))
                           (_%__kont191490191491%_
                            _%hd180537180721%_
                            _%hd180534180713%_
                            _%hd180531180705%_)
                           (let () (declare (not safe)) (_%g180513180560%_)))))
                   (let () (declare (not safe)) (_%g180513180560%_)))
               (let () (declare (not safe)) (_%g180513180560%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g180513180560%_)))))
                                           (let ()
                                             (declare (not safe))
                                             (_%g180513180560%_)))
                                       (let ()
                                         (declare (not safe))
                                         (_%g180513180560%_)))))
                               (let ()
                                 (declare (not safe))
                                 (_%g180513180560%_)))))
                       (let () (declare (not safe)) (_%g180513180560%_)))))
               (let () (declare (not safe)) (_%g180513180560%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g180513180560%_)))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-eq?
                                                  '%#call
                                                  _%hd180519180673%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl180520180675%_))
                                                   (let ((_%e180544180573%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl180520180675%_))))
                                                     (let ((_%tl180546180578%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e180544180573%_)))
                                                           (_%hd180545180576%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e180544180573%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd180545180576%_))
                                                           (let ((_%e180547180581%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd180545180576%_))))
                     (let ((_%tl180549180586%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e180547180581%_)))
                           (_%hd180548180584%_
                            (let ()
                              (declare (not safe))
                              (##car _%e180547180581%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%hd180548180584%_))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-eq? '%#ref _%hd180548180584%_))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%tl180549180586%_))
                                   (let ((_%e180550180589%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%tl180549180586%_))))
                                     (let ((_%tl180552180594%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e180550180589%_)))
                                           (_%hd180551180592%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e180550180589%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl180552180594%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl180546180578%_))
                                               (let ((_%e180553180597%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl180546180578%_))))
                                                 (let ((_%tl180555180602%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e180553180597%_)))
                                                       (_%hd180554180600%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e180553180597%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl180555180602%_))
                                                       (_%__kont191492191493%_
                                                        _%hd180554180600%_
                                                        _%hd180551180592%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (_%g180513180560%_)))))
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g180513180560%_)))
                                           (let ()
                                             (declare (not safe))
                                             (_%g180513180560%_)))))
                                   (let ()
                                     (declare (not safe))
                                     (_%g180513180560%_)))
                               (let ()
                                 (declare (not safe))
                                 (_%g180513180560%_)))
                           (let () (declare (not safe)) (_%g180513180560%_)))))
                   (let () (declare (not safe)) (_%g180513180560%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g180513180560%_)))
                                               (let ()
                                                 (declare (not safe))
                                                 (_%g180513180560%_))))
                                       (let ()
                                         (declare (not safe))
                                         (_%g180513180560%_)))))
                               (let ()
                                 (declare (not safe))
                                 (_%g180513180560%_)))))))
                   _%hd180414180476%_
                   _%hd180411180468%_
                   _%hd180408180460%_)
                  (_%g180390180420%_ _%g180391180423%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g180390180420%_
                                                   _%g180391180423%_))
                                              (_%g180390180420%_
                                               _%g180391180423%_))
                                          (_%g180390180420%_
                                           _%g180391180423%_))))
                                  (_%g180390180420%_ _%g180391180423%_))
                              (_%g180390180420%_ _%g180391180423%_))))
                      (_%g180390180420%_ _%g180391180423%_))))
              (_%g180390180420%_ _%g180391180423%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g180390180420%_
                                               _%g180391180423%_))))
                                      (_%g180390180420%_ _%g180391180423%_))
                                  (_%g180390180420%_ _%g180391180423%_))
                              (_%g180390180420%_ _%g180391180423%_))))
                      (_%g180390180420%_ _%g180391180423%_)))))
          (_%g180389180754%_ _%stx180388%_))))
    (define gxc#optimize-syntax-case-body
      (lambda (_%stx180315%_
               _%expr180316%_
               _%negation180317%_
               _%clauses180318%_)
        (letrec ((_%normalize180320%_
                  (lambda (_%clauses180348%_)
                    (let* ((_%clauses180349180358%_ _%clauses180348%_)
                           (_%E180351180362%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (error '"No clause matching"
                                       _%clauses180349180358%_
                                       '([[id . kont] . rest])))
                              '#!void))
                           (_%K180352180369%_
                            (lambda (_%rest180365%_
                                     _%kont180366%_
                                     _%id180367%_)
                              (cons (cons '#f _%kont180366%_)
                                    _%rest180365%_))))
                      (if (pair? _%clauses180349180358%_)
                          (let ((_%hd180353180372%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%clauses180349180358%_)))
                                (_%tl180354180374%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%clauses180349180358%_))))
                            (if (pair? _%hd180353180372%_)
                                (let ((_%hd180355180377%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%hd180353180372%_)))
                                      (_%tl180356180379%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%hd180353180372%_))))
                                  (let* ((_%id180382%_ _%hd180355180377%_)
                                         (_%kont180384%_ _%tl180356180379%_)
                                         (_%rest180386%_ _%tl180354180374%_))
                                    (_%K180352180369%_
                                     _%rest180386%_
                                     _%kont180384%_
                                     _%id180382%_)))
                                (_%E180351180362%_)))
                          (_%E180351180362%_))))))
          (let ((__tmp192320
                 (lambda ()
                   (let* ((_%id180323%_
                           (let ((__tmp192321
                                  (let ()
                                    (declare (not safe))
                                    (##gensym '__stx))))
                             (declare (not safe))
                             (make-symbol__0 __tmp192321)))
                          (_%id180325%_
                           (let ()
                             (declare (not safe))
                             (gx#core-quote-syntax__0 _%id180323%_)))
                          (_%_180327%_
                           (let ()
                             (declare (not safe))
                             (gx#core-bind-runtime!__0 _%id180325%_)))
                          (_g192322_
                           (gxc#optimize-syntax-case-clauses
                            _%clauses180318%_
                            (car _%negation180317%_))))
                     (begin
                       (let ((_g192323_
                              (let ()
                                (declare (not safe))
                                (if (##values? _g192322_)
                                    (##vector-length _g192322_)
                                    1))))
                         (if (not (let ()
                                    (declare (not safe))
                                    (##fx= _g192323_ 2)))
                             (error "Context expects 2 values" _g192323_)))
                       (let ((_%clauses180329%_
                              (let ()
                                (declare (not safe))
                                (##vector-ref _g192322_ 0)))
                             (_%konts180330%_
                              (let ()
                                (declare (not safe))
                                (##vector-ref _g192322_ 1))))
                         (let* ((_%clauses180339%_
                                 (map (lambda (_%g180331180334%_
                                               _%g180332180336%_)
                                        (gxc#optimize-syntax-case-closure
                                         _%g180331180334%_
                                         _%g180332180336%_
                                         _%id180325%_))
                                      _%clauses180329%_
                                      (let ((__tmp192325
                                             (cons (car _%negation180317%_)
                                                   '()))
                                            (__tmp192324
                                             (map car
                                                  (cdr _%clauses180329%_))))
                                        (declare (not safe))
                                        (__foldr1
                                         cons
                                         __tmp192325
                                         __tmp192324))))
                                (_%clauses180341%_
                                 (_%normalize180320%_ _%clauses180339%_))
                                (_%negation180343%_
                                 (gxc#optimize-syntax-case-closure
                                  _%negation180317%_
                                  '#f
                                  _%id180325%_))
                                (_%body180345%_
                                 (gxc#optimize-match-body
                                  _%stx180315%_
                                  _%negation180343%_
                                  _%clauses180341%_
                                  _%konts180330%_))
                                (__tmp192326
                                 (cons '%#let-values
                                       (cons (cons (cons (cons _%id180325%_
                                                               '())
                                                         (cons _%expr180316%_
                                                               '()))
                                                   '())
                                             (cons _%body180345%_ '())))))
                           (declare (not safe))
                           (gxc#xform-wrap-source
                            __tmp192326
                            _%stx180315%_)))))))
                (__tmp192319
                 (let ((__obj192240
                        (let ()
                          (declare (not safe))
                          (##structure
                           gx#local-context::t
                           '#f
                           '#f
                           '#f
                           '#f
                           '#f))))
                   (let ()
                     (declare (not safe))
                     (gx#local-context:::init!__0 __obj192240))
                   __obj192240)))
            (declare (not safe))
            (__call-with-parameters
             __tmp192320
             gx#current-expander-context
             __tmp192319)))))
    (define gxc#optimize-syntax-case-clauses
      (lambda (_%clauses179071%_ _%negation-id179072%_)
        (letrec ((_%xform-e179074%_
                  (lambda (_%expr179459%_
                           _%kont-id179460%_
                           _%kont-box179461%_
                           _%negation-id179462%_)
                    (let* ((_%__stx191690191691%_ _%expr179459%_)
                           (_%g179468179601%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx191690191691%_)))))
                      (let ((_%__kont191692191693%_
                             (lambda (_%L180291%_ _%L180292%_ _%L180293%_)
                               (let ((_%K180310%_
                                      (_%xform-e179074%_
                                       _%L180292%_
                                       _%kont-id179460%_
                                       _%kont-box179461%_
                                       _%negation-id179462%_)))
                                 (cons '%#if
                                       (cons _%L180293%_
                                             (cons _%K180310%_
                                                   (cons _%L180291%_ '())))))))
                            (_%__kont191694191695%_
                             (lambda (_%L180206%_
                                      _%L180207%_
                                      _%L180208%_
                                      _%L180209%_
                                      _%L180210%_)
                               (let* ((_%id180245%_
                                       (let ((__tmp192327
                                              (let ()
                                                (declare (not safe))
                                                (##gensym '__splice))))
                                         (declare (not safe))
                                         (make-symbol__0 __tmp192327)))
                                      (_%id180247%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#core-quote-syntax__0
                                          _%id180245%_)))
                                      (_%_180249%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#core-bind-runtime!__0
                                          _%id180247%_)))
                                      (_%body180251%_
                                       (_%xform-e179074%_
                                        _%L180206%_
                                        _%kont-id179460%_
                                        _%kont-box179461%_
                                        _%negation-id179462%_)))
                                 (cons '%#let-values
                                       (cons (cons (cons (cons _%id180247%_
                                                               '())
                                                         (cons (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               (declare (not safe))
                               (gx#datum->syntax__0 '#f '%#call))
                             (cons (cons (let ()
                                           (declare (not safe))
                                           (gx#datum->syntax__0 '#f '%#ref))
                                         (cons _%L180208%_ '()))
                                   _%L180207%_))
                       '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   '())
                                             (cons (cons '%#let-values
                                                         (cons (cons (cons (cons _%L180210%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                         '())
                                   (cons (cons '%#call
                                               (cons '(%#ref ##vector-ref)
                                                     (cons (cons '%#ref
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons _%id180247%_ '()))
                   (cons '(%#quote 0) '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         '()))
                             (cons (cons (cons _%L180209%_ '())
                                         (cons (cons '%#call
                                                     (cons '(%#ref ##vector-ref)
                                                           (cons (cons '%#ref
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               (cons _%id180247%_ '()))
                         (cons '(%#quote 1) '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               '()))
                                   '()))
                       (cons _%body180251%_ '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   '()))))))
                            (_%__kont191696191697%_
                             (lambda (_%L180088%_ _%L180089%_)
                               (let ((_%body180103%_
                                      (_%xform-e179074%_
                                       _%L180088%_
                                       _%kont-id179460%_
                                       _%kont-box179461%_
                                       _%negation-id179462%_)))
                                 (cons '%#let-values
                                       (cons _%L180089%_
                                             (cons _%body180103%_ '()))))))
                            (_%__kont191698191699%_
                             (lambda (_%L180032%_ _%L180033%_ _%L180034%_)
                               (let ((_%lambda-expr180057%_
                                      (_%xform-loop-e179075%_
                                       _%L180033%_
                                       _%kont-id179460%_
                                       _%kont-box179461%_
                                       _%negation-id179462%_)))
                                 (cons '%#letrec-values
                                       (cons (cons (cons (cons _%L180034%_ '())
                                                         (cons _%lambda-expr180057%_
                                                               '()))
                                                   '())
                                             (cons _%L180032%_ '()))))))
                            (_%__kont191700191701%_
                             (lambda (_%L179694%_ _%L179695%_ _%L179696%_)
                               (let* ((_%__stx191592191593%_ _%L179695%_)
                                      (_%g179725179768%_
                                       (lambda ()
                                         (let ()
                                           (declare (not safe))
                                           (gx#raise-syntax-error
                                            '#f
                                            '"Bad syntax; invalid match target"
                                            _%__stx191592191593%_)))))
                                 (let ((_%__kont191594191595%_
                                        (lambda (_%L179884%_
                                                 _%L179885%_
                                                 _%L179886%_
                                                 _%L179887%_)
                                          (let ((_%kont179928%_
                                                 (cons (let ()
                                                         (declare (not safe))
                                                         (gx#datum->syntax__0
                                                          '#f
                                                          '%#lambda))
                                                       (cons (let ((__tmp192328
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (lambda (_%g179920179923%_ _%g179921179925%_)
                              (cons _%g179920179923%_ _%g179921179925%_))))
                       (declare (not safe))
                       (__foldr1 __tmp192328 '() _%L179696%_))
                     (cons _%L179886%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (set-box!
                                             _%kont-box179461%_
                                             _%kont179928%_)
                                            (let* ((_%kont-args179939%_
                                                    (map (lambda (_%id179930%_)
                                                           (cons '%#ref
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons _%id179930%_ '())))
                 (let ((__tmp192329
                        (lambda (_%g179931179934%_ _%g179932179936%_)
                          (cons _%g179931179934%_ _%g179932179936%_))))
                   (declare (not safe))
                   (__foldr1 __tmp192329 '() _%L179696%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%body179941%_
                                                    (cons '%#if
                                                          (cons _%L179887%_
                                                                (cons (cons '%#call
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    (cons (cons '%#ref
                                                (cons _%kont-id179460%_ '()))
                                          _%kont-args179939%_))
                              (cons (cons (let ()
                                            (declare (not safe))
                                            (gx#datum->syntax__0 '#f '%#call))
                                          (cons (cons (let ()
                                                        (declare (not safe))
                                                        (gx#datum->syntax__0
                                                         '#f
                                                         '%#ref))
                                                      (cons _%L179885%_ '()))
                                                (cons (cons (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#datum->syntax__0
                                                               '#f
                                                               '%#ref))
                                                            (cons _%L179884%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '()))
              '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                    '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (null? (let ((__tmp192330
                                                                (lambda (_%g179943179946%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g179944179948%_)
                          (cons _%g179943179946%_ _%g179944179948%_))))
                   (declare (not safe))
                   (__foldr1 __tmp192330 '() _%L179696%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  _%body179941%_
                                                  (cons '%#let-values
                                                        (cons (map (lambda (_%id179951%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    _%arg179952%_)
                             (cons (cons _%id179951%_ '())
                                   (cons _%arg179952%_ '())))
                           (let ((__tmp192331
                                  (lambda (_%g179953179956%_ _%g179954179958%_)
                                    (cons _%g179953179956%_
                                          _%g179954179958%_))))
                             (declare (not safe))
                             (__foldr1 __tmp192331 '() _%L179696%_))
                           (let ((__tmp192332
                                  (lambda (_%g179960179963%_ _%g179961179965%_)
                                    (cons _%g179960179963%_
                                          _%g179961179965%_))))
                             (declare (not safe))
                             (__foldr1 __tmp192332 '() _%L179694%_)))
                      (cons _%body179941%_ '()))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       (_%__kont191596191597%_
                                        (lambda ()
                                          (let ((_%kont179782%_
                                                 (cons (let ()
                                                         (declare (not safe))
                                                         (gx#datum->syntax__0
                                                          '#f
                                                          '%#lambda))
                                                       (cons (let ((__tmp192333
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (lambda (_%g179774179777%_ _%g179775179779%_)
                              (cons _%g179774179777%_ _%g179775179779%_))))
                       (declare (not safe))
                       (__foldr1 __tmp192333 '() _%L179696%_))
                     (cons _%L179695%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (set-box!
                                             _%kont-box179461%_
                                             _%kont179782%_)
                                            (cons '%#call
                                                  (cons (cons '%#ref
                                                              (cons _%kont-id179460%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '()))
                (let ((__tmp192334
                       (lambda (_%g179783179786%_ _%g179784179788%_)
                         (cons _%g179783179786%_ _%g179784179788%_))))
                  (declare (not safe))
                  (__foldr1 __tmp192334 '() _%L179694%_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   (let ((_%__match191687191688%_
                                          (lambda (_%e179731179796%_
                                                   _%hd179732179799%_
                                                   _%tl179733179801%_
                                                   _%e179734179804%_
                                                   _%hd179735179807%_
                                                   _%tl179736179809%_
                                                   _%e179737179812%_
                                                   _%hd179738179815%_
                                                   _%tl179739179817%_
                                                   _%e179740179820%_
                                                   _%hd179741179823%_
                                                   _%tl179742179825%_
                                                   _%e179743179828%_
                                                   _%hd179744179831%_
                                                   _%tl179745179833%_
                                                   _%e179746179836%_
                                                   _%hd179747179839%_
                                                   _%tl179748179841%_
                                                   _%e179749179844%_
                                                   _%hd179750179847%_
                                                   _%tl179751179849%_
                                                   _%e179752179852%_
                                                   _%hd179753179855%_
                                                   _%tl179754179857%_
                                                   _%e179755179860%_
                                                   _%hd179756179863%_
                                                   _%tl179757179865%_
                                                   _%e179758179868%_
                                                   _%hd179759179871%_
                                                   _%tl179760179873%_
                                                   _%e179761179876%_
                                                   _%hd179762179879%_
                                                   _%tl179763179881%_)
                                            (let ((_%L179884%_
                                                   _%hd179762179879%_)
                                                  (_%L179885%_
                                                   _%hd179753179855%_)
                                                  (_%L179886%_
                                                   _%hd179738179815%_)
                                                  (_%L179887%_
                                                   _%hd179735179807%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#free-identifier=?
                                                     _%L179885%_
                                                     _%negation-id179462%_))
                                                  (_%__kont191594191595%_
                                                   _%L179884%_
                                                   _%L179885%_
                                                   _%L179886%_
                                                   _%L179887%_)
                                                  (_%__kont191596191597%_))))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair?
                                            _%__stx191592191593%_))
                                         (let ((_%e179731179796%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%__stx191592191593%_))))
                                           (let ((_%tl179733179801%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e179731179796%_)))
                                                 (_%hd179732179799%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e179731179796%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#identifier?
                                                    _%hd179732179799%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#if
                                                        _%hd179732179799%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl179733179801%_))
                                                         (let ((_%e179734179804%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl179733179801%_))))
                   (let ((_%tl179736179809%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e179734179804%_)))
                         (_%hd179735179807%_
                          (let ()
                            (declare (not safe))
                            (##car _%e179734179804%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%tl179736179809%_))
                         (let ((_%e179737179812%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%tl179736179809%_))))
                           (let ((_%tl179739179817%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e179737179812%_)))
                                 (_%hd179738179815%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e179737179812%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl179739179817%_))
                                 (let ((_%e179740179820%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl179739179817%_))))
                                   (let ((_%tl179742179825%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e179740179820%_)))
                                         (_%hd179741179823%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e179740179820%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%hd179741179823%_))
                                         (let ((_%e179743179828%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%hd179741179823%_))))
                                           (let ((_%tl179745179833%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e179743179828%_)))
                                                 (_%hd179744179831%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e179743179828%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#identifier?
                                                    _%hd179744179831%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-eq?
                                                        '%#call
                                                        _%hd179744179831%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%tl179745179833%_))
                                                         (let ((_%e179746179836%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%tl179745179833%_))))
                   (let ((_%tl179748179841%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e179746179836%_)))
                         (_%hd179747179839%_
                          (let ()
                            (declare (not safe))
                            (##car _%e179746179836%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#stx-pair? _%hd179747179839%_))
                         (let ((_%e179749179844%_
                                (let ()
                                  (declare (not safe))
                                  (gx#stx-e _%hd179747179839%_))))
                           (let ((_%tl179751179849%_
                                  (let ()
                                    (declare (not safe))
                                    (##cdr _%e179749179844%_)))
                                 (_%hd179750179847%_
                                  (let ()
                                    (declare (not safe))
                                    (##car _%e179749179844%_))))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#identifier? _%hd179750179847%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-eq? '%#ref _%hd179750179847%_))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-pair? _%tl179751179849%_))
                                         (let ((_%e179752179852%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e
                                                   _%tl179751179849%_))))
                                           (let ((_%tl179754179857%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##cdr _%e179752179852%_)))
                                                 (_%hd179753179855%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (##car _%e179752179852%_))))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl179754179857%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-pair?
                                                        _%tl179748179841%_))
                                                     (let ((_%e179755179860%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%tl179748179841%_))))
                                                       (let ((_%tl179757179865%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##cdr _%e179755179860%_)))
                     (_%hd179756179863%_
                      (let () (declare (not safe)) (##car _%e179755179860%_))))
                 (if (let ()
                       (declare (not safe))
                       (gx#stx-pair? _%hd179756179863%_))
                     (let ((_%e179758179868%_
                            (let ()
                              (declare (not safe))
                              (gx#stx-e _%hd179756179863%_))))
                       (let ((_%tl179760179873%_
                              (let ()
                                (declare (not safe))
                                (##cdr _%e179758179868%_)))
                             (_%hd179759179871%_
                              (let ()
                                (declare (not safe))
                                (##car _%e179758179868%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#identifier? _%hd179759179871%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-eq? '%#ref _%hd179759179871%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%tl179760179873%_))
                                     (let ((_%e179761179876%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%tl179760179873%_))))
                                       (let ((_%tl179763179881%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e179761179876%_)))
                                             (_%hd179762179879%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e179761179876%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl179763179881%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-null?
                                                    _%tl179757179865%_))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl179742179825%_))
                                                     (_%__match191687191688%_
                                                      _%e179731179796%_
                                                      _%hd179732179799%_
                                                      _%tl179733179801%_
                                                      _%e179734179804%_
                                                      _%hd179735179807%_
                                                      _%tl179736179809%_
                                                      _%e179737179812%_
                                                      _%hd179738179815%_
                                                      _%tl179739179817%_
                                                      _%e179740179820%_
                                                      _%hd179741179823%_
                                                      _%tl179742179825%_
                                                      _%e179743179828%_
                                                      _%hd179744179831%_
                                                      _%tl179745179833%_
                                                      _%e179746179836%_
                                                      _%hd179747179839%_
                                                      _%tl179748179841%_
                                                      _%e179749179844%_
                                                      _%hd179750179847%_
                                                      _%tl179751179849%_
                                                      _%e179752179852%_
                                                      _%hd179753179855%_
                                                      _%tl179754179857%_
                                                      _%e179755179860%_
                                                      _%hd179756179863%_
                                                      _%tl179757179865%_
                                                      _%e179758179868%_
                                                      _%hd179759179871%_
                                                      _%tl179760179873%_
                                                      _%e179761179876%_
                                                      _%hd179762179879%_
                                                      _%tl179763179881%_)
                                                     (_%__kont191596191597%_))
                                                 (_%__kont191596191597%_))
                                             (_%__kont191596191597%_))))
                                     (_%__kont191596191597%_))
                                 (_%__kont191596191597%_))
                             (_%__kont191596191597%_))))
                     (_%__kont191596191597%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont191596191597%_))
                                                 (_%__kont191596191597%_))))
                                         (_%__kont191596191597%_))
                                     (_%__kont191596191597%_))
                                 (_%__kont191596191597%_))))
                         (_%__kont191596191597%_))))
                 (_%__kont191596191597%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont191596191597%_))
                                                 (_%__kont191596191597%_))))
                                         (_%__kont191596191597%_))))
                                 (_%__kont191596191597%_))))
                         (_%__kont191596191597%_))))
                 (_%__kont191596191597%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont191596191597%_))
                                                 (_%__kont191596191597%_))))
                                         (_%__kont191596191597%_))))))))
                        (let* ((_%__match191947191948%_
                                (lambda (_%e179564179606%_
                                         _%hd179565179609%_
                                         _%tl179566179611%_
                                         _%e179567179614%_
                                         _%hd179568179617%_
                                         _%tl179569179619%_
                                         _%e179570179622%_
                                         _%hd179571179625%_
                                         _%tl179572179627%_
                                         _%e179573179630%_
                                         _%hd179574179633%_
                                         _%tl179575179635%_
                                         _%__splice191702191703%_
                                         _%target179576179638%_
                                         _%tl179578179640%_)
                                  (letrec ((_%loop179579179643%_
                                            (lambda (_%hd179577179646%_
                                                     _%id179583179648%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd179577179646%_))
                                                  (let ((_%e179580179651%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd179577179646%_))))
                                                    (let ((_%lp-tl179582179656%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179580179651%_)))
                                                          (_%lp-hd179581179654%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179580179651%_))))
                                                      (_%loop179579179643%_
                                                       _%lp-tl179582179656%_
                                                       (cons _%lp-hd179581179654%_
                                                             _%id179583179648%_))))
                                                  (let ((_%id179584179659%_
                                                         (reverse _%id179583179648%_)))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl179575179635%_))
                                                        (let ((_%e179585179662%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl179575179635%_))))
                  (let ((_%tl179587179667%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e179585179662%_)))
                        (_%hd179586179665%_
                         (let ()
                           (declare (not safe))
                           (##car _%e179585179662%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl179587179667%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair/null? _%tl179569179619%_))
                            (let ((_%__splice191704191705%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#syntax-split-splice
                                      _%tl179569179619%_
                                      '0))))
                              (let ((_%tl179590179672%_
                                     (let ()
                                       (declare (not safe))
                                       (##vector-ref
                                        _%__splice191704191705%_
                                        '1)))
                                    (_%target179588179670%_
                                     (let ()
                                       (declare (not safe))
                                       (##vector-ref
                                        _%__splice191704191705%_
                                        '0))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl179590179672%_))
                                    (letrec ((_%loop179591179675%_
                                              (lambda (_%hd179589179678%_
                                                       _%arg179595179680%_)
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd179589179678%_))
                                                    (let ((_%e179592179683%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd179589179678%_))))
                                                      (let ((_%lp-tl179594179688%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e179592179683%_)))
                    (_%lp-hd179593179686%_
                     (let () (declare (not safe)) (##car _%e179592179683%_))))
                (_%loop179591179675%_
                 _%lp-tl179594179688%_
                 (cons _%lp-hd179593179686%_ _%arg179595179680%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ((_%arg179596179691%_
                                                           (reverse _%arg179595179680%_)))
                                                      (_%__kont191700191701%_
                                                       _%arg179596179691%_
                                                       _%hd179586179665%_
                                                       _%id179584179659%_))))))
                                      (_%loop179591179675%_
                                       _%target179588179670%_
                                       '()))
                                    (let ()
                                      (declare (not safe))
                                      (_%g179468179601%_)))))
                            (let () (declare (not safe)) (_%g179468179601%_)))
                        (let () (declare (not safe)) (_%g179468179601%_)))))
                (let () (declare (not safe)) (_%g179468179601%_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                    (_%loop179579179643%_
                                     _%target179576179638%_
                                     '()))))
                               (_%__match191829191830%_
                                (lambda (_%e179490180110%_
                                         _%hd179491180113%_
                                         _%tl179492180115%_
                                         _%e179493180118%_
                                         _%hd179494180121%_
                                         _%tl179495180123%_
                                         _%e179496180126%_
                                         _%hd179497180129%_
                                         _%tl179498180131%_
                                         _%e179499180134%_
                                         _%hd179500180137%_
                                         _%tl179501180139%_
                                         _%e179502180142%_
                                         _%hd179503180145%_
                                         _%tl179504180147%_
                                         _%e179505180150%_
                                         _%hd179506180153%_
                                         _%tl179507180155%_
                                         _%e179508180158%_
                                         _%hd179509180161%_
                                         _%tl179510180163%_
                                         _%e179511180166%_
                                         _%hd179512180169%_
                                         _%tl179513180171%_
                                         _%e179514180174%_
                                         _%hd179515180177%_
                                         _%tl179516180179%_
                                         _%e179517180182%_
                                         _%hd179518180185%_
                                         _%tl179519180187%_
                                         _%e179520180190%_
                                         _%hd179521180193%_
                                         _%tl179522180195%_
                                         _%e179523180198%_
                                         _%hd179524180201%_
                                         _%tl179525180203%_)
                                  (let ((_%L180206%_ _%hd179524180201%_)
                                        (_%L180207%_ _%tl179516180179%_)
                                        (_%L180208%_ _%hd179521180193%_)
                                        (_%L180209%_ _%hd179506180153%_)
                                        (_%L180210%_ _%hd179503180145%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gxc#runtime-identifier=?
                                           _%L180208%_
                                           'gx#syntax-split-splice))
                                        (_%__kont191694191695%_
                                         _%L180206%_
                                         _%L180207%_
                                         _%L180208%_
                                         _%L180209%_
                                         _%L180210%_)
                                        (_%__kont191696191697%_
                                         _%hd179524180201%_
                                         _%hd179494180121%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx191690191691%_))
                              (let ((_%e179473180259%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx191690191691%_))))
                                (let ((_%tl179475180264%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e179473180259%_)))
                                      (_%hd179474180262%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e179473180259%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd179474180262%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#if
                                             _%hd179474180262%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl179475180264%_))
                                              (let ((_%e179476180267%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl179475180264%_))))
                                                (let ((_%tl179478180272%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e179476180267%_)))
                                                      (_%hd179477180270%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e179476180267%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl179478180272%_))
                                                      (let ((_%e179479180275%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl179478180272%_))))
                (let ((_%tl179481180280%_
                       (let () (declare (not safe)) (##cdr _%e179479180275%_)))
                      (_%hd179480180278%_
                       (let ()
                         (declare (not safe))
                         (##car _%e179479180275%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl179481180280%_))
                      (let ((_%e179482180283%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl179481180280%_))))
                        (let ((_%tl179484180288%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179482180283%_)))
                              (_%hd179483180286%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179482180283%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl179484180288%_))
                              (_%__kont191692191693%_
                               _%hd179483180286%_
                               _%hd179480180278%_
                               _%hd179477180270%_)
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_)))))
                      (let () (declare (not safe)) (_%g179468179601%_)))))
              (let () (declare (not safe)) (_%g179468179601%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#let-values
                                                 _%hd179474180262%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179475180264%_))
                                                  (let ((_%e179493180118%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179475180264%_))))
                                                    (let ((_%tl179495180123%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179493180118%_)))
                                                          (_%hd179494180121%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179493180118%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd179494180121%_))
                                                          (let ((_%e179496180126%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd179494180121%_))))
                    (let ((_%tl179498180131%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e179496180126%_)))
                          (_%hd179497180129%_
                           (let ()
                             (declare (not safe))
                             (##car _%e179496180126%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd179497180129%_))
                          (let ((_%e179499180134%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd179497180129%_))))
                            (let ((_%tl179501180139%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e179499180134%_)))
                                  (_%hd179500180137%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e179499180134%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd179500180137%_))
                                  (let ((_%e179502180142%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd179500180137%_))))
                                    (let ((_%tl179504180147%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e179502180142%_)))
                                          (_%hd179503180145%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e179502180142%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179504180147%_))
                                          (let ((_%e179505180150%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179504180147%_))))
                                            (let ((_%tl179507180155%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179505180150%_)))
                                                  (_%hd179506180153%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179505180150%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl179507180155%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl179501180139%_))
                                                      (let ((_%e179508180158%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl179501180139%_))))
                (let ((_%tl179510180163%_
                       (let () (declare (not safe)) (##cdr _%e179508180158%_)))
                      (_%hd179509180161%_
                       (let ()
                         (declare (not safe))
                         (##car _%e179508180158%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd179509180161%_))
                      (let ((_%e179511180166%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd179509180161%_))))
                        (let ((_%tl179513180171%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179511180166%_)))
                              (_%hd179512180169%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179511180166%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd179512180169%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#call _%hd179512180169%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl179513180171%_))
                                      (let ((_%e179514180174%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl179513180171%_))))
                                        (let ((_%tl179516180179%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e179514180174%_)))
                                              (_%hd179515180177%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e179514180174%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd179515180177%_))
                                              (let ((_%e179517180182%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd179515180177%_))))
                                                (let ((_%tl179519180187%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e179517180182%_)))
                                                      (_%hd179518180185%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e179517180182%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#identifier?
                                                         _%hd179518180185%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-eq?
                                                             '%#ref
                                                             _%hd179518180185%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl179519180187%_))
                      (let ((_%e179520180190%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl179519180187%_))))
                        (let ((_%tl179522180195%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179520180190%_)))
                              (_%hd179521180193%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179520180190%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl179522180195%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl179510180163%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl179498180131%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179495180123%_))
                                          (let ((_%e179523180198%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179495180123%_))))
                                            (let ((_%tl179525180203%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179523180198%_)))
                                                  (_%hd179524180201%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179523180198%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl179525180203%_))
                                                  (_%__match191829191830%_
                                                   _%e179473180259%_
                                                   _%hd179474180262%_
                                                   _%tl179475180264%_
                                                   _%e179493180118%_
                                                   _%hd179494180121%_
                                                   _%tl179495180123%_
                                                   _%e179496180126%_
                                                   _%hd179497180129%_
                                                   _%tl179498180131%_
                                                   _%e179499180134%_
                                                   _%hd179500180137%_
                                                   _%tl179501180139%_
                                                   _%e179502180142%_
                                                   _%hd179503180145%_
                                                   _%tl179504180147%_
                                                   _%e179505180150%_
                                                   _%hd179506180153%_
                                                   _%tl179507180155%_
                                                   _%e179508180158%_
                                                   _%hd179509180161%_
                                                   _%tl179510180163%_
                                                   _%e179511180166%_
                                                   _%hd179512180169%_
                                                   _%tl179513180171%_
                                                   _%e179514180174%_
                                                   _%hd179515180177%_
                                                   _%tl179516180179%_
                                                   _%e179517180182%_
                                                   _%hd179518180185%_
                                                   _%tl179519180187%_
                                                   _%e179520180190%_
                                                   _%hd179521180193%_
                                                   _%tl179522180195%_
                                                   _%e179523180198%_
                                                   _%hd179524180201%_
                                                   _%tl179525180203%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_)))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179495180123%_))
                                          (let ((_%e179534180080%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179495180123%_))))
                                            (let ((_%tl179536180085%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179534180080%_)))
                                                  (_%hd179535180083%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179534180080%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl179536180085%_))
                                                  (_%__kont191696191697%_
                                                   _%hd179535180083%_
                                                   _%hd179494180121%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl179495180123%_))
                                      (let ((_%e179534180080%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl179495180123%_))))
                                        (let ((_%tl179536180085%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e179534180080%_)))
                                              (_%hd179535180083%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e179534180080%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl179536180085%_))
                                              (_%__kont191696191697%_
                                               _%hd179535180083%_
                                               _%hd179494180121%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl179495180123%_))
                                  (let ((_%e179534180080%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl179495180123%_))))
                                    (let ((_%tl179536180085%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e179534180080%_)))
                                          (_%hd179535180083%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e179534180080%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl179536180085%_))
                                          (_%__kont191696191697%_
                                           _%hd179535180083%_
                                           _%hd179494180121%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_))))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl179495180123%_))
                          (let ((_%e179534180080%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl179495180123%_))))
                            (let ((_%tl179536180085%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e179534180080%_)))
                                  (_%hd179535180083%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e179534180080%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl179536180085%_))
                                  (_%__kont191696191697%_
                                   _%hd179535180083%_
                                   _%hd179494180121%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_)))))
                          (let () (declare (not safe)) (_%g179468179601%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl179495180123%_))
                      (let ((_%e179534180080%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl179495180123%_))))
                        (let ((_%tl179536180085%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179534180080%_)))
                              (_%hd179535180083%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179534180080%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl179536180085%_))
                              (_%__kont191696191697%_
                               _%hd179535180083%_
                               _%hd179494180121%_)
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_)))))
                      (let () (declare (not safe)) (_%g179468179601%_))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%tl179495180123%_))
                  (let ((_%e179534180080%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl179495180123%_))))
                    (let ((_%tl179536180085%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e179534180080%_)))
                          (_%hd179535180083%_
                           (let ()
                             (declare (not safe))
                             (##car _%e179534180080%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl179536180085%_))
                          (_%__kont191696191697%_
                           _%hd179535180083%_
                           _%hd179494180121%_)
                          (let () (declare (not safe)) (_%g179468179601%_)))))
                  (let () (declare (not safe)) (_%g179468179601%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179495180123%_))
                                                  (let ((_%e179534180080%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179495180123%_))))
                                                    (let ((_%tl179536180085%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179534180080%_)))
                                                          (_%hd179535180083%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179534180080%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl179536180085%_))
                                                          (_%__kont191696191697%_
                                                           _%hd179535180083%_
                                                           _%hd179494180121%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g179468179601%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_))))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179495180123%_))
                                          (let ((_%e179534180080%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179495180123%_))))
                                            (let ((_%tl179536180085%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179534180080%_)))
                                                  (_%hd179535180083%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179534180080%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl179536180085%_))
                                                  (_%__kont191696191697%_
                                                   _%hd179535180083%_
                                                   _%hd179494180121%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl179495180123%_))
                                      (let ((_%e179534180080%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl179495180123%_))))
                                        (let ((_%tl179536180085%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e179534180080%_)))
                                              (_%hd179535180083%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e179534180080%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl179536180085%_))
                                              (_%__kont191696191697%_
                                               _%hd179535180083%_
                                               _%hd179494180121%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl179495180123%_))
                                  (let ((_%e179534180080%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl179495180123%_))))
                                    (let ((_%tl179536180085%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e179534180080%_)))
                                          (_%hd179535180083%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e179534180080%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl179536180085%_))
                                          (_%__kont191696191697%_
                                           _%hd179535180083%_
                                           _%hd179494180121%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_))))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl179495180123%_))
                          (let ((_%e179534180080%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl179495180123%_))))
                            (let ((_%tl179536180085%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e179534180080%_)))
                                  (_%hd179535180083%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e179534180080%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl179536180085%_))
                                  (_%__kont191696191697%_
                                   _%hd179535180083%_
                                   _%hd179494180121%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_)))))
                          (let () (declare (not safe)) (_%g179468179601%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%tl179495180123%_))
                  (let ((_%e179534180080%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl179495180123%_))))
                    (let ((_%tl179536180085%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e179534180080%_)))
                          (_%hd179535180083%_
                           (let ()
                             (declare (not safe))
                             (##car _%e179534180080%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl179536180085%_))
                          (_%__kont191696191697%_
                           _%hd179535180083%_
                           _%hd179494180121%_)
                          (let () (declare (not safe)) (_%g179468179601%_)))))
                  (let () (declare (not safe)) (_%g179468179601%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl179495180123%_))
                                                      (let ((_%e179534180080%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl179495180123%_))))
                (let ((_%tl179536180085%_
                       (let () (declare (not safe)) (##cdr _%e179534180080%_)))
                      (_%hd179535180083%_
                       (let ()
                         (declare (not safe))
                         (##car _%e179534180080%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl179536180085%_))
                      (_%__kont191696191697%_
                       _%hd179535180083%_
                       _%hd179494180121%_)
                      (let () (declare (not safe)) (_%g179468179601%_)))))
              (let () (declare (not safe)) (_%g179468179601%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl179495180123%_))
                                              (let ((_%e179534180080%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl179495180123%_))))
                                                (let ((_%tl179536180085%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e179534180080%_)))
                                                      (_%hd179535180083%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e179534180080%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl179536180085%_))
                                                      (_%__kont191696191697%_
                                                       _%hd179535180083%_
                                                       _%hd179494180121%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g179468179601%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl179495180123%_))
                                      (let ((_%e179534180080%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl179495180123%_))))
                                        (let ((_%tl179536180085%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e179534180080%_)))
                                              (_%hd179535180083%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e179534180080%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl179536180085%_))
                                              (_%__kont191696191697%_
                                               _%hd179535180083%_
                                               _%hd179494180121%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl179495180123%_))
                              (let ((_%e179534180080%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl179495180123%_))))
                                (let ((_%tl179536180085%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e179534180080%_)))
                                      (_%hd179535180083%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e179534180080%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl179536180085%_))
                                      (_%__kont191696191697%_
                                       _%hd179535180083%_
                                       _%hd179494180121%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_))))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl179495180123%_))
                      (let ((_%e179534180080%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl179495180123%_))))
                        (let ((_%tl179536180085%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179534180080%_)))
                              (_%hd179535180083%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179534180080%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl179536180085%_))
                              (_%__kont191696191697%_
                               _%hd179535180083%_
                               _%hd179494180121%_)
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_)))))
                      (let () (declare (not safe)) (_%g179468179601%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#letrec-values
                                                     _%hd179474180262%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl179475180264%_))
                                                      (let ((_%e179543179984%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl179475180264%_))))
                (let ((_%tl179545179989%_
                       (let () (declare (not safe)) (##cdr _%e179543179984%_)))
                      (_%hd179544179987%_
                       (let ()
                         (declare (not safe))
                         (##car _%e179543179984%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd179544179987%_))
                      (let ((_%e179546179992%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd179544179987%_))))
                        (let ((_%tl179548179997%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e179546179992%_)))
                              (_%hd179547179995%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e179546179992%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd179547179995%_))
                              (let ((_%e179549180000%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd179547179995%_))))
                                (let ((_%tl179551180005%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e179549180000%_)))
                                      (_%hd179550180003%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e179549180000%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd179550180003%_))
                                      (let ((_%e179552180008%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd179550180003%_))))
                                        (let ((_%tl179554180013%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e179552180008%_)))
                                              (_%hd179553180011%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e179552180008%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl179554180013%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179551180005%_))
                                                  (let ((_%e179555180016%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179551180005%_))))
                                                    (let ((_%tl179557180021%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179555180016%_)))
                                                          (_%hd179556180019%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179555180016%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl179557180021%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl179548179997%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl179545179989%_))
                          (let ((_%e179558180024%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl179545179989%_))))
                            (let ((_%tl179560180029%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e179558180024%_)))
                                  (_%hd179559180027%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e179558180024%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl179560180029%_))
                                  (_%__kont191698191699%_
                                   _%hd179559180027%_
                                   _%hd179556180019%_
                                   _%hd179553180011%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_)))))
                          (let () (declare (not safe)) (_%g179468179601%_)))
                      (let () (declare (not safe)) (_%g179468179601%_)))
                  (let () (declare (not safe)) (_%g179468179601%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g179468179601%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_)))))
                      (let () (declare (not safe)) (_%g179468179601%_)))))
              (let () (declare (not safe)) (_%g179468179601%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#call
                                                         _%hd179474180262%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl179475180264%_))
                                                          (let ((_%e179567179614%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl179475180264%_))))
                    (let ((_%tl179569179619%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e179567179614%_)))
                          (_%hd179568179617%_
                           (let ()
                             (declare (not safe))
                             (##car _%e179567179614%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd179568179617%_))
                          (let ((_%e179570179622%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd179568179617%_))))
                            (let ((_%tl179572179627%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e179570179622%_)))
                                  (_%hd179571179625%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e179570179622%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd179571179625%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq?
                                         '%#lambda
                                         _%hd179571179625%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179572179627%_))
                                          (let ((_%e179573179630%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179572179627%_))))
                                            (let ((_%tl179575179635%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179573179630%_)))
                                                  (_%hd179574179633%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179573179630%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%hd179574179633%_))
                                                  (let ((_%__splice191702191703%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%hd179574179633%_
                                                            '0))))
                                                    (let ((_%tl179578179640%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice191702191703%_
                                                              '1)))
                                                          (_%target179576179638%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice191702191703%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl179578179640%_))
                                                          (_%__match191947191948%_
                                                           _%e179473180259%_
                                                           _%hd179474180262%_
                                                           _%tl179475180264%_
                                                           _%e179567179614%_
                                                           _%hd179568179617%_
                                                           _%tl179569179619%_
                                                           _%e179570179622%_
                                                           _%hd179571179625%_
                                                           _%tl179572179627%_
                                                           _%e179573179630%_
                                                           _%hd179574179633%_
                                                           _%tl179575179635%_
                                                           _%__splice191702191703%_
                                                           _%target179576179638%_
                                                           _%tl179578179640%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g179468179601%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g179468179601%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g179468179601%_)))
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_)))
                                  (let ()
                                    (declare (not safe))
                                    (_%g179468179601%_)))))
                          (let () (declare (not safe)) (_%g179468179601%_)))))
                  (let () (declare (not safe)) (_%g179468179601%_)))
              (let () (declare (not safe)) (_%g179468179601%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (let ()
                                        (declare (not safe))
                                        (_%g179468179601%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g179468179601%_))))))))
                 (_%xform-loop-e179075%_
                  (lambda (_%expr179285%_
                           _%kont-id179286%_
                           _%kont-box179287%_
                           _%negation-id179288%_)
                    (let* ((_%g179290179330%_
                            (lambda (_%g179291179327%_)
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%g179291179327%_))))
                           (_%g179289179456%_
                            (lambda (_%g179291179333%_)
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%g179291179333%_))
                                  (let ((_%e179296179335%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%g179291179333%_))))
                                    (let ((_%hd179297179338%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e179296179335%_)))
                                          (_%tl179298179340%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e179296179335%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd179297179338%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#lambda
                                                 _%hd179297179338%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179298179340%_))
                                                  (let ((_%e179299179343%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179298179340%_))))
                                                    (let ((_%hd179300179346%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179299179343%_)))
                                                          (_%tl179301179348%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179299179343%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair/null?
                                                             _%hd179300179346%_))
                                                          (let ((_g192335_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%hd179300179346%_ '0))))
                    (begin
                      (let ((_g192336_
                             (let ()
                               (declare (not safe))
                               (if (##values? _g192335_)
                                   (##vector-length _g192335_)
                                   1))))
                        (if (not (let ()
                                   (declare (not safe))
                                   (##fx= _g192336_ 2)))
                            (error "Context expects 2 values" _g192336_)))
                      (let ((_%target179302179351%_
                             (let ()
                               (declare (not safe))
                               (##vector-ref _g192335_ 0)))
                            (_%tl179304179353%_
                             (let ()
                               (declare (not safe))
                               (##vector-ref _g192335_ 1))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl179304179353%_))
                            (letrec ((_%loop179305179356%_
                                      (lambda (_%hd179303179359%_
                                               _%id179309179361%_)
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%hd179303179359%_))
                                            (let ((_%e179306179364%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%hd179303179359%_))))
                                              (let ((_%lp-hd179307179367%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e179306179364%_)))
                                                    (_%lp-tl179308179369%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e179306179364%_))))
                                                (_%loop179305179356%_
                                                 _%lp-tl179308179369%_
                                                 (cons _%lp-hd179307179367%_
                                                       _%id179309179361%_))))
                                            (let ((_%id179310179372%_
                                                   (reverse _%id179309179361%_)))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179301179348%_))
                                                  (let ((_%e179311179375%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179301179348%_))))
                                                    (let ((_%hd179312179378%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179311179375%_)))
                                                          (_%tl179313179380%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179311179375%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd179312179378%_))
                                                          (let ((_%e179314179383%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd179312179378%_))))
                    (let ((_%hd179315179386%_
                           (let ()
                             (declare (not safe))
                             (##car _%e179314179383%_)))
                          (_%tl179316179388%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e179314179383%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd179315179386%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#if _%hd179315179386%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl179316179388%_))
                                  (let ((_%e179317179391%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl179316179388%_))))
                                    (let ((_%hd179318179394%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e179317179391%_)))
                                          (_%tl179319179396%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e179317179391%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl179319179396%_))
                                          (let ((_%e179320179399%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl179319179396%_))))
                                            (let ((_%hd179321179402%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e179320179399%_)))
                                                  (_%tl179322179404%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e179320179399%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl179322179404%_))
                                                  (let ((_%e179323179407%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl179322179404%_))))
                                                    (let ((_%hd179324179410%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e179323179407%_)))
                                                          (_%tl179325179412%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e179323179407%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl179325179412%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl179313179380%_))
                      ((lambda (_%L179415%_
                                _%L179416%_
                                _%L179417%_
                                _%L179418%_)
                         (let ((_%E179447%_
                                (_%xform-e179074%_
                                 _%L179415%_
                                 _%kont-id179286%_
                                 _%kont-box179287%_
                                 _%negation-id179288%_)))
                           (cons '%#lambda
                                 (cons (let ((__tmp192337
                                              (lambda (_%g179448179451%_
                                                       _%g179449179453%_)
                                                (cons _%g179448179451%_
                                                      _%g179449179453%_))))
                                         (declare (not safe))
                                         (__foldr1
                                          __tmp192337
                                          '()
                                          _%L179418%_))
                                       (cons (cons '%#if
                                                   (cons _%L179417%_
                                                         (cons _%L179416%_
                                                               (cons _%E179447%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             '())))))
                       _%hd179324179410%_
                       _%hd179321179402%_
                       _%hd179318179394%_
                       _%id179310179372%_)
                      (_%g179290179330%_ _%g179291179333%_))
                  (_%g179290179330%_ _%g179291179333%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g179290179330%_
                                                   _%g179291179333%_))))
                                          (_%g179290179330%_
                                           _%g179291179333%_))))
                                  (_%g179290179330%_ _%g179291179333%_))
                              (_%g179290179330%_ _%g179291179333%_))
                          (_%g179290179330%_ _%g179291179333%_))))
                  (_%g179290179330%_ _%g179291179333%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g179290179330%_
                                                   _%g179291179333%_)))))))
                              (_%loop179305179356%_
                               _%target179302179351%_
                               '()))
                            (_%g179290179330%_ _%g179291179333%_)))))
                  (_%g179290179330%_ _%g179291179333%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g179290179330%_
                                                   _%g179291179333%_))
                                              (_%g179290179330%_
                                               _%g179291179333%_))
                                          (_%g179290179330%_
                                           _%g179291179333%_))))
                                  (_%g179290179330%_ _%g179291179333%_)))))
                      (_%g179289179456%_ _%expr179285%_))))
                 (_%clause-e179076%_
                  (lambda (_%clause-lambda179155%_
                           _%kont-id179156%_
                           _%rest179157%_)
                    (letrec* ((_%kont-box179159%_ (box '#f)))
                      (let* ((_%negation-id179199%_
                              (let* ((_%rest179160179170%_ _%rest179157%_)
                                     (_%else179162179178%_
                                      (lambda () _%negation-id179072%_))
                                     (_%K179164179184%_
                                      (lambda (_%clause179181%_
                                               _%clause-id179182%_)
                                        _%clause-id179182%_)))
                                (if (pair? _%rest179160179170%_)
                                    (let ((_%hd179165179187%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%rest179160179170%_))))
                                      (if (pair? _%hd179165179187%_)
                                          (let ((_%hd179167179190%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%hd179165179187%_)))
                                                (_%tl179168179192%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%hd179165179187%_))))
                                            (let* ((_%clause-id179195%_
                                                    _%hd179167179190%_)
                                                   (_%clause179197%_
                                                    _%tl179168179192%_))
                                              (_%K179164179184%_
                                               _%clause179197%_
                                               _%clause-id179195%_)))
                                          (_%else179162179178%_)))
                                    (_%else179162179178%_))))
                             (_%g179201179221%_
                              (lambda (_%g179202179218%_)
                                (let ()
                                  (declare (not safe))
                                  (gx#raise-syntax-error
                                   '#f
                                   '"Bad syntax; invalid match target"
                                   _%g179202179218%_))))
                             (_%g179200179282%_
                              (lambda (_%g179202179224%_)
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%g179202179224%_))
                                    (let ((_%e179205179226%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%g179202179224%_))))
                                      (let ((_%hd179206179229%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e179205179226%_)))
                                            (_%tl179207179231%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e179205179226%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd179206179229%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#lambda
                                                   _%hd179206179229%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl179207179231%_))
                                                    (let ((_%e179208179234%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl179207179231%_))))
                                                      (let ((_%hd179209179237%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##car _%e179208179234%_)))
                    (_%tl179210179239%_
                     (let () (declare (not safe)) (##cdr _%e179208179234%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%hd179209179237%_))
                    (let ((_%e179211179242%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd179209179237%_))))
                      (let ((_%hd179212179245%_
                             (let ()
                               (declare (not safe))
                               (##car _%e179211179242%_)))
                            (_%tl179213179247%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e179211179242%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl179213179247%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl179210179239%_))
                                (let ((_%e179214179250%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl179210179239%_))))
                                  (let ((_%hd179215179253%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e179214179250%_)))
                                        (_%tl179216179255%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e179214179250%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl179216179255%_))
                                        ((lambda (_%L179258%_ _%L179259%_)
                                           (let ((_%body179280%_
                                                  (_%xform-e179074%_
                                                   _%L179258%_
                                                   _%kont-id179156%_
                                                   _%kont-box179159%_
                                                   _%negation-id179199%_)))
                                             (values (cons '%#lambda
                                                           (cons (cons _%L179259%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               '())
                         (cons _%body179280%_ '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (unbox _%kont-box179159%_))))
                                         _%hd179215179253%_
                                         _%hd179212179245%_)
                                        (_%g179201179221%_
                                         _%g179202179224%_))))
                                (_%g179201179221%_ _%g179202179224%_))
                            (_%g179201179221%_ _%g179202179224%_))))
                    (_%g179201179221%_ _%g179202179224%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%g179201179221%_
                                                     _%g179202179224%_))
                                                (_%g179201179221%_
                                                 _%g179202179224%_))
                                            (_%g179201179221%_
                                             _%g179202179224%_))))
                                    (_%g179201179221%_ _%g179202179224%_)))))
                        (_%g179200179282%_ _%clause-lambda179155%_))))))
          (let _%lp179078%_ ((_%rest179080%_ _%clauses179071%_)
                             (_%clauses179081%_ '())
                             (_%konts179082%_ '()))
            (let* ((_%rest179083179091%_ _%rest179080%_)
                   (_%else179085179099%_
                    (lambda ()
                      (values (reverse _%clauses179081%_)
                              (reverse _%konts179082%_))))
                   (_%K179087179143%_
                    (lambda (_%rest179102%_ _%clause179103%_)
                      (let* ((_%clause179104179111%_ _%clause179103%_)
                             (_%E179106179115%_
                              (lambda ()
                                (let ()
                                  (declare (not safe))
                                  (error '"No clause matching"
                                         _%clause179104179111%_
                                         '([clause-id . clause-lambda])))
                                '#!void))
                             (_%K179107179131%_
                              (lambda (_%clause-lambda179118%_
                                       _%clause-id179119%_)
                                (let* ((_%id179121%_
                                        (let ((__tmp192338
                                               (let ()
                                                 (declare (not safe))
                                                 (##gensym '__kont))))
                                          (declare (not safe))
                                          (make-symbol__0 __tmp192338)))
                                       (_%id179123%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#core-quote-syntax__0
                                           _%id179121%_)))
                                       (_%_179125%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#core-bind-runtime!__0
                                           _%id179123%_)))
                                       (_g192339_
                                        (_%clause-e179076%_
                                         _%clause-lambda179118%_
                                         _%id179123%_
                                         _%rest179102%_)))
                                  (begin
                                    (let ((_g192340_
                                           (let ()
                                             (declare (not safe))
                                             (if (##values? _g192339_)
                                                 (##vector-length _g192339_)
                                                 1))))
                                      (if (not (let ()
                                                 (declare (not safe))
                                                 (##fx= _g192340_ 2)))
                                          (error "Context expects 2 values"
                                                 _g192340_)))
                                    (let ((_%clause-lambda179127%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g192339_ 0)))
                                          (_%kont179128%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g192339_ 1))))
                                      (_%lp179078%_
                                       _%rest179102%_
                                       (cons (cons _%clause-id179119%_
                                                   _%clause-lambda179127%_)
                                             _%clauses179081%_)
                                       (cons (cons _%id179123%_ _%kont179128%_)
                                             _%konts179082%_))))))))
                        (if (pair? _%clause179104179111%_)
                            (let ((_%hd179108179134%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%clause179104179111%_)))
                                  (_%tl179109179136%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%clause179104179111%_))))
                              (let* ((_%clause-id179139%_ _%hd179108179134%_)
                                     (_%clause-lambda179141%_
                                      _%tl179109179136%_))
                                (_%K179107179131%_
                                 _%clause-lambda179141%_
                                 _%clause-id179139%_)))
                            (_%E179106179115%_))))))
              (if (pair? _%rest179083179091%_)
                  (let ((_%hd179088179146%_
                         (let ()
                           (declare (not safe))
                           (##car _%rest179083179091%_)))
                        (_%tl179089179148%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%rest179083179091%_))))
                    (let* ((_%clause179151%_ _%hd179088179146%_)
                           (_%rest179153%_ _%tl179089179148%_))
                      (_%K179087179143%_ _%rest179153%_ _%clause179151%_)))
                  (_%else179085179099%_)))))))
    (define gxc#optimize-syntax-case-closure
      (lambda (_%clause178415%_ _%negation178416%_ _%target178417%_)
        (letrec ((_%closure-e178419%_
                  (lambda (_%expr178536%_)
                    (let* ((_%__stx191950191951%_ _%expr178536%_)
                           (_%g178543178658%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx191950191951%_)))))
                      (let ((_%__kont191952191953%_
                             (lambda (_%L179049%_ _%L179050%_ _%L179051%_)
                               (cons '%#if
                                     (cons _%L179051%_
                                           (cons (_%closure-e178419%_
                                                  _%L179050%_)
                                                 (cons (_%closure-e178419%_
                                                        _%L179049%_)
                                                       '()))))))
                            (_%__kont191954191955%_
                             (lambda (_%L178997%_ _%L178998%_)
                               (cons '%#let-values
                                     (cons _%L178998%_
                                           (cons (_%closure-e178419%_
                                                  _%L178997%_)
                                                 '())))))
                            (_%__kont191956191957%_
                             (lambda (_%L178943%_ _%L178944%_ _%L178945%_)
                               (cons '%#letrec-values
                                     (cons (cons (cons (cons _%L178945%_ '())
                                                       (cons (_%closure-e178419%_
                                                              _%L178944%_)
                                                             '()))
                                                 '())
                                           (cons _%L178943%_ '())))))
                            (_%__kont191958191959%_
                             (lambda (_%L178856%_ _%L178857%_)
                               (cons '%#lambda
                                     (cons (let ((__tmp192341
                                                  (lambda (_%g178874178877%_
                                                           _%g178875178879%_)
                                                    (cons _%g178874178877%_
                                                          _%g178875178879%_))))
                                             (declare (not safe))
                                             (__foldr1
                                              __tmp192341
                                              '()
                                              _%L178857%_))
                                           (cons (_%closure-e178419%_
                                                  _%L178856%_)
                                                 '())))))
                            (_%__kont191962191963%_
                             (lambda (_%L178786%_)
                               (cons '%#call
                                     (cons (cons (let ()
                                                   (declare (not safe))
                                                   (gx#datum->syntax__0
                                                    '#f
                                                    '%#ref))
                                                 (cons _%L178786%_ '()))
                                           '()))))
                            (_%__kont191964191965%_
                             (lambda (_%L178719%_ _%L178720%_)
                               _%expr178536%_)))
                        (let* ((_%__match192183192184%_
                                (lambda (_%e178633178663%_
                                         _%hd178634178666%_
                                         _%tl178635178668%_
                                         _%e178636178671%_
                                         _%hd178637178674%_
                                         _%tl178638178676%_
                                         _%e178639178679%_
                                         _%hd178640178682%_
                                         _%tl178641178684%_
                                         _%e178642178687%_
                                         _%hd178643178690%_
                                         _%tl178644178692%_
                                         _%__splice191966191967%_
                                         _%target178645178695%_
                                         _%tl178647178697%_)
                                  (letrec ((_%loop178648178700%_
                                            (lambda (_%hd178646178703%_
                                                     _%arg178652178705%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd178646178703%_))
                                                  (let ((_%e178649178708%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd178646178703%_))))
                                                    (let ((_%lp-tl178651178713%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e178649178708%_)))
                                                          (_%lp-hd178650178711%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e178649178708%_))))
                                                      (_%loop178648178700%_
                                                       _%lp-tl178651178713%_
                                                       (cons _%lp-hd178650178711%_
                                                             _%arg178652178705%_))))
                                                  (let ((_%arg178653178716%_
                                                         (reverse _%arg178652178705%_)))
                                                    (_%__kont191964191965%_
                                                     _%arg178653178716%_
                                                     _%hd178643178690%_))))))
                                    (_%loop178648178700%_
                                     _%target178645178695%_
                                     '()))))
                               (_%__match192141192142%_
                                (lambda (_%e178616178746%_
                                         _%hd178617178749%_
                                         _%tl178618178751%_
                                         _%e178619178754%_
                                         _%hd178620178757%_
                                         _%tl178621178759%_
                                         _%e178622178762%_
                                         _%hd178623178765%_
                                         _%tl178624178767%_
                                         _%e178625178770%_
                                         _%hd178626178773%_
                                         _%tl178627178775%_
                                         _%e178628178778%_
                                         _%hd178629178781%_
                                         _%tl178630178783%_)
                                  (let ((_%L178786%_ _%hd178626178773%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#free-identifier=?
                                           _%L178786%_
                                           _%negation178416%_))
                                        (_%__kont191962191963%_ _%L178786%_)
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair/null?
                                               _%tl178621178759%_))
                                            (let ((_%__splice191966191967%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#syntax-split-splice
                                                      _%tl178621178759%_
                                                      '0))))
                                              (let ((_%tl178647178697%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##vector-ref
                                                        _%__splice191966191967%_
                                                        '1)))
                                                    (_%target178645178695%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##vector-ref
                                                        _%__splice191966191967%_
                                                        '0))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl178647178697%_))
                                                    (_%__match192183192184%_
                                                     _%e178616178746%_
                                                     _%hd178617178749%_
                                                     _%tl178618178751%_
                                                     _%e178619178754%_
                                                     _%hd178620178757%_
                                                     _%tl178621178759%_
                                                     _%e178622178762%_
                                                     _%hd178623178765%_
                                                     _%tl178624178767%_
                                                     _%e178625178770%_
                                                     _%hd178626178773%_
                                                     _%tl178627178775%_
                                                     _%__splice191966191967%_
                                                     _%target178645178695%_
                                                     _%tl178647178697%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g178543178658%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g178543178658%_)))))))
                               (_%__match192099192100%_
                                (lambda (_%e178597178808%_
                                         _%hd178598178811%_
                                         _%tl178599178813%_
                                         _%e178600178816%_
                                         _%hd178601178819%_
                                         _%tl178602178821%_
                                         _%__splice191960191961%_
                                         _%target178603178824%_
                                         _%tl178605178826%_)
                                  (letrec ((_%loop178606178829%_
                                            (lambda (_%hd178604178832%_
                                                     _%id178610178834%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd178604178832%_))
                                                  (let ((_%e178607178837%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd178604178832%_))))
                                                    (let ((_%lp-tl178609178842%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e178607178837%_)))
                                                          (_%lp-hd178608178840%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e178607178837%_))))
                                                      (_%loop178606178829%_
                                                       _%lp-tl178609178842%_
                                                       (cons _%lp-hd178608178840%_
                                                             _%id178610178834%_))))
                                                  (let ((_%id178611178845%_
                                                         (reverse _%id178610178834%_)))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl178602178821%_))
                                                        (let ((_%e178612178848%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl178602178821%_))))
                  (let ((_%tl178614178853%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e178612178848%_)))
                        (_%hd178613178851%_
                         (let ()
                           (declare (not safe))
                           (##car _%e178612178848%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl178614178853%_))
                        (_%__kont191958191959%_
                         _%hd178613178851%_
                         _%id178611178845%_)
                        (let () (declare (not safe)) (_%g178543178658%_)))))
                (let () (declare (not safe)) (_%g178543178658%_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                    (_%loop178606178829%_
                                     _%target178603178824%_
                                     '())))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx191950191951%_))
                              (let ((_%e178548179017%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx191950191951%_))))
                                (let ((_%tl178550179022%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178548179017%_)))
                                      (_%hd178549179020%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178548179017%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd178549179020%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#if
                                             _%hd178549179020%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl178550179022%_))
                                              (let ((_%e178551179025%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl178550179022%_))))
                                                (let ((_%tl178553179030%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e178551179025%_)))
                                                      (_%hd178552179028%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e178551179025%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl178553179030%_))
                                                      (let ((_%e178554179033%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl178553179030%_))))
                (let ((_%tl178556179038%_
                       (let () (declare (not safe)) (##cdr _%e178554179033%_)))
                      (_%hd178555179036%_
                       (let ()
                         (declare (not safe))
                         (##car _%e178554179033%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl178556179038%_))
                      (let ((_%e178557179041%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl178556179038%_))))
                        (let ((_%tl178559179046%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178557179041%_)))
                              (_%hd178558179044%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178557179041%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl178559179046%_))
                              (_%__kont191952191953%_
                               _%hd178558179044%_
                               _%hd178555179036%_
                               _%hd178552179028%_)
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_)))))
                      (let () (declare (not safe)) (_%g178543178658%_)))))
              (let () (declare (not safe)) (_%g178543178658%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g178543178658%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#let-values
                                                 _%hd178549179020%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl178550179022%_))
                                                  (let ((_%e178565178981%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl178550179022%_))))
                                                    (let ((_%tl178567178986%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e178565178981%_)))
                                                          (_%hd178566178984%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e178565178981%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl178567178986%_))
                                                          (let ((_%e178568178989%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl178567178986%_))))
                    (let ((_%tl178570178994%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e178568178989%_)))
                          (_%hd178569178992%_
                           (let ()
                             (declare (not safe))
                             (##car _%e178568178989%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl178570178994%_))
                          (_%__kont191954191955%_
                           _%hd178569178992%_
                           _%hd178566178984%_)
                          (let () (declare (not safe)) (_%g178543178658%_)))))
                  (let () (declare (not safe)) (_%g178543178658%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g178543178658%_)))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#letrec-values
                                                     _%hd178549179020%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl178550179022%_))
                                                      (let ((_%e178577178895%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl178550179022%_))))
                (let ((_%tl178579178900%_
                       (let () (declare (not safe)) (##cdr _%e178577178895%_)))
                      (_%hd178578178898%_
                       (let ()
                         (declare (not safe))
                         (##car _%e178577178895%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd178578178898%_))
                      (let ((_%e178580178903%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd178578178898%_))))
                        (let ((_%tl178582178908%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178580178903%_)))
                              (_%hd178581178906%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178580178903%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd178581178906%_))
                              (let ((_%e178583178911%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd178581178906%_))))
                                (let ((_%tl178585178916%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178583178911%_)))
                                      (_%hd178584178914%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178583178911%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd178584178914%_))
                                      (let ((_%e178586178919%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd178584178914%_))))
                                        (let ((_%tl178588178924%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e178586178919%_)))
                                              (_%hd178587178922%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e178586178919%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl178588178924%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl178585178916%_))
                                                  (let ((_%e178589178927%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl178585178916%_))))
                                                    (let ((_%tl178591178932%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e178589178927%_)))
                                                          (_%hd178590178930%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e178589178927%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl178591178932%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl178582178908%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl178579178900%_))
                          (let ((_%e178592178935%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl178579178900%_))))
                            (let ((_%tl178594178940%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e178592178935%_)))
                                  (_%hd178593178938%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e178592178935%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl178594178940%_))
                                  (_%__kont191956191957%_
                                   _%hd178593178938%_
                                   _%hd178590178930%_
                                   _%hd178587178922%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g178543178658%_)))))
                          (let () (declare (not safe)) (_%g178543178658%_)))
                      (let () (declare (not safe)) (_%g178543178658%_)))
                  (let () (declare (not safe)) (_%g178543178658%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g178543178658%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g178543178658%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g178543178658%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_)))))
                      (let () (declare (not safe)) (_%g178543178658%_)))))
              (let () (declare (not safe)) (_%g178543178658%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#lambda
                                                         _%hd178549179020%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl178550179022%_))
                                                          (let ((_%e178600178816%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl178550179022%_))))
                    (let ((_%tl178602178821%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e178600178816%_)))
                          (_%hd178601178819%_
                           (let ()
                             (declare (not safe))
                             (##car _%e178600178816%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%hd178601178819%_))
                          (let ((_%__splice191960191961%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%hd178601178819%_
                                    '0))))
                            (let ((_%tl178605178826%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice191960191961%_
                                      '1)))
                                  (_%target178603178824%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice191960191961%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl178605178826%_))
                                  (_%__match192099192100%_
                                   _%e178548179017%_
                                   _%hd178549179020%_
                                   _%tl178550179022%_
                                   _%e178600178816%_
                                   _%hd178601178819%_
                                   _%tl178602178821%_
                                   _%__splice191960191961%_
                                   _%target178603178824%_
                                   _%tl178605178826%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g178543178658%_)))))
                          (let () (declare (not safe)) (_%g178543178658%_)))))
                  (let () (declare (not safe)) (_%g178543178658%_)))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-eq? '%#call _%hd178549179020%_))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl178550179022%_))
                      (let ((_%e178619178754%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl178550179022%_))))
                        (let ((_%tl178621178759%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178619178754%_)))
                              (_%hd178620178757%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178619178754%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd178620178757%_))
                              (let ((_%e178622178762%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd178620178757%_))))
                                (let ((_%tl178624178767%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178622178762%_)))
                                      (_%hd178623178765%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178622178762%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd178623178765%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#ref
                                             _%hd178623178765%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl178624178767%_))
                                              (let ((_%e178625178770%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl178624178767%_))))
                                                (let ((_%tl178627178775%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e178625178770%_)))
                                                      (_%hd178626178773%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e178625178770%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl178627178775%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl178621178759%_))
                                                          (let ((_%e178628178778%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl178621178759%_))))
                    (let ((_%tl178630178783%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e178628178778%_)))
                          (_%hd178629178781%_
                           (let ()
                             (declare (not safe))
                             (##car _%e178628178778%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl178630178783%_))
                          (_%__match192141192142%_
                           _%e178548179017%_
                           _%hd178549179020%_
                           _%tl178550179022%_
                           _%e178619178754%_
                           _%hd178620178757%_
                           _%tl178621178759%_
                           _%e178622178762%_
                           _%hd178623178765%_
                           _%tl178624178767%_
                           _%e178625178770%_
                           _%hd178626178773%_
                           _%tl178627178775%_
                           _%e178628178778%_
                           _%hd178629178781%_
                           _%tl178630178783%_)
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl178621178759%_))
                              (let ((_%__splice191966191967%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl178621178759%_
                                        '0))))
                                (let ((_%tl178647178697%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice191966191967%_
                                          '1)))
                                      (_%target178645178695%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice191966191967%_
                                          '0))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl178647178697%_))
                                      (_%__match192183192184%_
                                       _%e178548179017%_
                                       _%hd178549179020%_
                                       _%tl178550179022%_
                                       _%e178619178754%_
                                       _%hd178620178757%_
                                       _%tl178621178759%_
                                       _%e178622178762%_
                                       _%hd178623178765%_
                                       _%tl178624178767%_
                                       _%e178625178770%_
                                       _%hd178626178773%_
                                       _%tl178627178775%_
                                       _%__splice191966191967%_
                                       _%target178645178695%_
                                       _%tl178647178697%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g178543178658%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_))))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair/null? _%tl178621178759%_))
                      (let ((_%__splice191966191967%_
                             (let ()
                               (declare (not safe))
                               (gx#syntax-split-splice
                                _%tl178621178759%_
                                '0))))
                        (let ((_%tl178647178697%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice191966191967%_ '1)))
                              (_%target178645178695%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice191966191967%_ '0))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl178647178697%_))
                              (_%__match192183192184%_
                               _%e178548179017%_
                               _%hd178549179020%_
                               _%tl178550179022%_
                               _%e178619178754%_
                               _%hd178620178757%_
                               _%tl178621178759%_
                               _%e178622178762%_
                               _%hd178623178765%_
                               _%tl178624178767%_
                               _%e178625178770%_
                               _%hd178626178773%_
                               _%tl178627178775%_
                               _%__splice191966191967%_
                               _%target178645178695%_
                               _%tl178647178697%_)
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_)))))
                      (let () (declare (not safe)) (_%g178543178658%_))))
              (let () (declare (not safe)) (_%g178543178658%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g178543178658%_)))
                                          (let ()
                                            (declare (not safe))
                                            (_%g178543178658%_)))
                                      (let ()
                                        (declare (not safe))
                                        (_%g178543178658%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_)))))
                      (let () (declare (not safe)) (_%g178543178658%_)))
                  (let () (declare (not safe)) (_%g178543178658%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (let ()
                                        (declare (not safe))
                                        (_%g178543178658%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g178543178658%_)))))))))
          (let* ((_%clause178420178427%_ _%clause178415%_)
                 (_%E178422178431%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (error '"No clause matching"
                             _%clause178420178427%_
                             '([id . kont])))
                    '#!void))
                 (_%K178423178524%_
                  (lambda (_%kont178434%_ _%id178435%_)
                    (let* ((_%g178437178457%_
                            (lambda (_%g178438178454%_)
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%g178438178454%_))))
                           (_%g178436178521%_
                            (lambda (_%g178438178460%_)
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%g178438178460%_))
                                  (let ((_%e178441178462%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%g178438178460%_))))
                                    (let ((_%hd178442178465%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e178441178462%_)))
                                          (_%tl178443178467%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e178441178462%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd178442178465%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#lambda
                                                 _%hd178442178465%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl178443178467%_))
                                                  (let ((_%e178444178470%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl178443178467%_))))
                                                    (let ((_%hd178445178473%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e178444178470%_)))
                                                          (_%tl178446178475%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e178444178470%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd178445178473%_))
                                                          (let ((_%e178447178478%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd178445178473%_))))
                    (let ((_%hd178448178481%_
                           (let ()
                             (declare (not safe))
                             (##car _%e178447178478%_)))
                          (_%tl178449178483%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e178447178478%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl178449178483%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl178446178475%_))
                              (let ((_%e178450178486%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl178446178475%_))))
                                (let ((_%hd178451178489%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178450178486%_)))
                                      (_%tl178452178491%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178450178486%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl178452178491%_))
                                      ((lambda (_%L178494%_ _%L178495%_)
                                         (let* ((_%body178516%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#apply-expression-subst__%
                                                    '#f
                                                    _%L178495%_
                                                    _%target178417%_
                                                    _%L178494%_)))
                                                (_%body178518%_
                                                 (if _%negation178416%_
                                                     (_%closure-e178419%_
                                                      _%body178516%_)
                                                     _%body178516%_)))
                                           (let ((__tmp192343
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%id178435%_)))
                                                 (__tmp192342
                                                  (let ((__obj192241
                                                         (let ()
                                                           (declare (not safe))
                                                           (##structure
                                                            gxc#!lambda::t
                                                            '#f
                                                            '#f
                                                            '#f
                                                            '#f
                                                            '#f
                                                            '#f))))
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#!lambda:::init!__%
                                                       '#f
                                                       absent-value
                                                       __obj192241
                                                       '0
                                                       '#f))
                                                    __obj192241)))
                                             (declare (not safe))
                                             (gxc#optimizer-declare-type!__%
                                              __tmp192343
                                              __tmp192342
                                              '#t))
                                           (cons _%id178435%_
                                                 (cons '%#lambda
                                                       (cons '()
                                                             (cons _%body178518%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       _%hd178451178489%_
                                       _%hd178448178481%_)
                                      (_%g178437178457%_ _%g178438178460%_))))
                              (_%g178437178457%_ _%g178438178460%_))
                          (_%g178437178457%_ _%g178438178460%_))))
                  (_%g178437178457%_ _%g178438178460%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g178437178457%_
                                                   _%g178438178460%_))
                                              (_%g178437178457%_
                                               _%g178438178460%_))
                                          (_%g178437178457%_
                                           _%g178438178460%_))))
                                  (_%g178437178457%_ _%g178438178460%_)))))
                      (_%g178436178521%_ _%kont178434%_)))))
            (if (pair? _%clause178420178427%_)
                (let ((_%hd178424178527%_
                       (let ()
                         (declare (not safe))
                         (##car _%clause178420178427%_)))
                      (_%tl178425178529%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%clause178420178427%_))))
                  (let* ((_%id178532%_ _%hd178424178527%_)
                         (_%kont178534%_ _%tl178425178529%_))
                    (_%K178423178524%_ _%kont178534%_ _%id178532%_)))
                (_%E178422178431%_))))))
    (define gxc#push-match-vars-let-values%
      (lambda (_%self178199%_ _%stx178200%_)
        (let* ((_%g178202178219%_
                (lambda (_%g178203178216%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g178203178216%_))))
               (_%g178201178412%_
                (lambda (_%g178203178222%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g178203178222%_))
                      (let ((_%e178206178224%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g178203178222%_))))
                        (let ((_%hd178207178227%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178206178224%_)))
                              (_%tl178208178229%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178206178224%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl178208178229%_))
                              (let ((_%e178209178232%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl178208178229%_))))
                                (let ((_%hd178210178235%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178209178232%_)))
                                      (_%tl178211178237%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178209178232%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl178211178237%_))
                                      (let ((_%e178212178240%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl178211178237%_))))
                                        (let ((_%hd178213178243%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e178212178240%_)))
                                              (_%tl178214178245%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e178212178240%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl178214178245%_))
                                              ((lambda (_%L178248%_
                                                        _%L178249%_)
                                                 (let _%lp178264%_ ((_%rest178266%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%L178249%_)
                            (_%rebind178267%_ '())
                            (_%vars178268%_
                             (let ()
                               (declare (not safe))
                               (slot-ref__0 _%self178199%_ 'vars))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let* ((_%rest178269178277%_
                                                           _%rest178266%_)
                                                          (_%else178271178288%_
                                                           (lambda ()
                                                             (let ((_%sibling178285%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (let ()
                              (declare (not safe))
                              (struct-copy _%self178199%_))))
                       (let ()
                         (declare (not safe))
                         (slot-set!__0 _%sibling178285%_ 'vars _%vars178268%_))
                       (let ((__tmp192344
                              (lambda ()
                                (if (null? _%rebind178267%_)
                                    (let ()
                                      (declare (not safe))
                                      (gxc#compile-e__1
                                       _%sibling178285%_
                                       _%L178248%_))
                                    (let ((__tmp192345
                                           (cons '%#let-values
                                                 (cons (reverse _%rebind178267%_)
                                                       (cons (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gxc#compile-e__1 _%sibling178285%_ _%L178248%_))
                     '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (declare (not safe))
                                      (gxc#xform-wrap-source
                                       __tmp192345
                                       _%stx178200%_))))))
                         (declare (not safe))
                         (__call-with-parameters
                          __tmp192344
                          gxc#current-compile-method
                          _%sibling178285%_)))))
                  (_%K178273178400%_
                   (lambda (_%rest178291%_ _%bind178292%_)
                     (let* ((_%__stx192186192187%_ _%bind178292%_)
                            (_%g178295178318%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%__stx192186192187%_)))))
                       (let ((_%__kont192188192189%_
                              (lambda (_%L178370%_ _%L178371%_)
                                (_%lp178264%_
                                 _%rest178291%_
                                 _%rebind178267%_
                                 (cons _%bind178292%_ _%vars178268%_))))
                             (_%__kont192190192191%_
                              (lambda ()
                                (_%lp178264%_
                                 _%rest178291%_
                                 (cons _%bind178292%_ _%rebind178267%_)
                                 _%vars178268%_))))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%__stx192186192187%_))
                             (let ((_%e178299178330%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%__stx192186192187%_))))
                               (let ((_%tl178301178335%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e178299178330%_)))
                                     (_%hd178300178333%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e178299178330%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd178300178333%_))
                                     (let ((_%e178302178338%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd178300178333%_))))
                                       (let ((_%tl178304178343%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e178302178338%_)))
                                             (_%hd178303178341%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e178302178338%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl178304178343%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl178301178335%_))
                                                 (let ((_%e178305178346%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl178301178335%_))))
                                                   (let ((_%tl178307178351%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e178305178346%_)))
                                                         (_%hd178306178349%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e178305178346%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-pair?
                                                            _%hd178306178349%_))
                                                         (let ((_%e178308178354%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%hd178306178349%_))))
                   (let ((_%tl178310178359%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e178308178354%_)))
                         (_%hd178309178357%_
                          (let ()
                            (declare (not safe))
                            (##car _%e178308178354%_))))
                     (if (let ()
                           (declare (not safe))
                           (gx#identifier? _%hd178309178357%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-eq? '%#ref _%hd178309178357%_))
                             (if (let ()
                                   (declare (not safe))
                                   (gx#stx-pair? _%tl178310178359%_))
                                 (let ((_%e178311178362%_
                                        (let ()
                                          (declare (not safe))
                                          (gx#stx-e _%tl178310178359%_))))
                                   (let ((_%tl178313178367%_
                                          (let ()
                                            (declare (not safe))
                                            (##cdr _%e178311178362%_)))
                                         (_%hd178312178365%_
                                          (let ()
                                            (declare (not safe))
                                            (##car _%e178311178362%_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (gx#stx-null? _%tl178313178367%_))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl178307178351%_))
                                             (_%__kont192188192189%_
                                              _%hd178312178365%_
                                              _%hd178303178341%_)
                                             (_%__kont192190192191%_))
                                         (_%__kont192190192191%_))))
                                 (_%__kont192190192191%_))
                             (_%__kont192190192191%_))
                         (_%__kont192190192191%_))))
                 (_%__kont192190192191%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont192190192191%_))
                                             (_%__kont192190192191%_))))
                                     (_%__kont192190192191%_))))
                             (_%__kont192190192191%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (if (pair? _%rest178269178277%_)
                                                         (let ((_%hd178274178403%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##car _%rest178269178277%_)))
                       (_%tl178275178405%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%rest178269178277%_))))
                   (let* ((_%bind178408%_ _%hd178274178403%_)
                          (_%rest178410%_ _%tl178275178405%_))
                     (_%K178273178400%_ _%rest178410%_ _%bind178408%_)))
                 (_%else178271178288%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               _%hd178213178243%_
                                               _%hd178210178235%_)
                                              (_%g178202178219%_
                                               _%g178203178222%_))))
                                      (_%g178202178219%_ _%g178203178222%_))))
                              (_%g178202178219%_ _%g178203178222%_))))
                      (_%g178202178219%_ _%g178203178222%_)))))
          (_%g178201178412%_ _%stx178200%_))))
    (define gxc#push-match-vars-if%
      (lambda (_%self178115%_ _%stx178116%_)
        (let* ((_%g178118178139%_
                (lambda (_%g178119178136%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g178119178136%_))))
               (_%g178117178196%_
                (lambda (_%g178119178142%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g178119178142%_))
                      (let ((_%e178123178144%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g178119178142%_))))
                        (let ((_%hd178124178147%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178123178144%_)))
                              (_%tl178125178149%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178123178144%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl178125178149%_))
                              (let ((_%e178126178152%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl178125178149%_))))
                                (let ((_%hd178127178155%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178126178152%_)))
                                      (_%tl178128178157%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178126178152%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl178128178157%_))
                                      (let ((_%e178129178160%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl178128178157%_))))
                                        (let ((_%hd178130178163%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e178129178160%_)))
                                              (_%tl178131178165%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e178129178160%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl178131178165%_))
                                              (let ((_%e178132178168%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl178131178165%_))))
                                                (let ((_%hd178133178171%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e178132178168%_)))
                                                      (_%tl178134178173%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e178132178168%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl178134178173%_))
                                                      ((lambda (_%L178176%_
                                                                _%L178177%_
                                                                _%L178178%_)
                                                         (if (let ((__tmp192346
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (map caar
                                 (let ()
                                   (declare (not safe))
                                   (slot-ref__0 _%self178115%_ 'vars)))))
                       (declare (not safe))
                       (gxc#apply-find-var-refs__%
                        '#f
                        __tmp192346
                        _%L178178%_))
                     (gxc#push-match-vars-stop _%self178115%_ _%stx178116%_)
                     (let ((__tmp192347
                            (cons '%#if
                                  (cons _%L178178%_
                                        (cons (let ()
                                                (declare (not safe))
                                                (gxc#compile-e__1
                                                 _%self178115%_
                                                 _%L178177%_))
                                              (cons (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__1
                                                       _%self178115%_
                                                       _%L178176%_))
                                                    '()))))))
                       (declare (not safe))
                       (gxc#xform-wrap-source __tmp192347 _%stx178116%_))))
               _%hd178133178171%_
               _%hd178130178163%_
               _%hd178127178155%_)
              (_%g178118178139%_ _%g178119178142%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g178118178139%_
                                               _%g178119178142%_))))
                                      (_%g178118178139%_ _%g178119178142%_))))
                              (_%g178118178139%_ _%g178119178142%_))))
                      (_%g178118178139%_ _%g178119178142%_)))))
          (_%g178117178196%_ _%stx178116%_))))
    (define gxc#push-match-vars-call%
      (lambda (_%self178037%_ _%stx178038%_)
        (let* ((_%g178040178059%_
                (lambda (_%g178041178056%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g178041178056%_))))
               (_%g178039178112%_
                (lambda (_%g178041178062%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g178041178062%_))
                      (let ((_%e178043178064%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g178041178062%_))))
                        (let ((_%hd178044178067%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e178043178064%_)))
                              (_%tl178045178069%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e178043178064%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl178045178069%_))
                              (let ((_%e178046178072%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl178045178069%_))))
                                (let ((_%hd178047178075%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e178046178072%_)))
                                      (_%tl178048178077%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e178046178072%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd178047178075%_))
                                      (let ((_%e178049178080%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd178047178075%_))))
                                        (let ((_%hd178050178083%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e178049178080%_)))
                                              (_%tl178051178085%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e178049178080%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#identifier?
                                                 _%hd178050178083%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#ref
                                                     _%hd178050178083%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl178051178085%_))
                                                      (let ((_%e178052178088%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl178051178085%_))))
                (let ((_%hd178053178091%_
                       (let () (declare (not safe)) (##car _%e178052178088%_)))
                      (_%tl178054178093%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e178052178088%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl178054178093%_))
                      ((lambda (_%L178096%_)
                         (if (and (let ((__tmp192348
                                         (let ()
                                           (declare (not safe))
                                           (slot-ref__0 _%self178037%_ 'K))))
                                    (declare (not safe))
                                    (gx#free-identifier=?
                                     _%L178096%_
                                     __tmp192348))
                                  (pair? (let ()
                                           (declare (not safe))
                                           (slot-ref__0
                                            _%self178037%_
                                            'vars))))
                             (let ((__tmp192349
                                    (cons '%#let-values
                                          (cons (reverse (let ()
                                                           (declare (not safe))
                                                           (slot-ref__0
                                                            _%self178037%_
                                                            'vars)))
                                                (cons _%stx178038%_ '())))))
                               (declare (not safe))
                               (gxc#xform-wrap-source
                                __tmp192349
                                _%stx178038%_))
                             _%stx178038%_))
                       _%hd178053178091%_)
                      (_%g178040178059%_ _%g178041178062%_))))
              (_%g178040178059%_ _%g178041178062%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g178040178059%_
                                                   _%g178041178062%_))
                                              (_%g178040178059%_
                                               _%g178041178062%_))))
                                      (_%g178040178059%_ _%g178041178062%_))))
                              (_%g178040178059%_ _%g178041178062%_))))
                      (_%g178040178059%_ _%g178041178062%_)))))
          (_%g178039178112%_ _%stx178038%_))))
    (define gxc#push-match-vars-stop
      (lambda (_%self178034%_ _%stx178035%_)
        (if (null? (let ()
                     (declare (not safe))
                     (slot-ref__0 _%self178034%_ 'vars)))
            _%stx178035%_
            (let ((__tmp192350
                   (cons '%#let-values
                         (cons (reverse (let ()
                                          (declare (not safe))
                                          (slot-ref__0 _%self178034%_ 'vars)))
                               (cons _%stx178035%_ '())))))
              (declare (not safe))
              (gxc#xform-wrap-source __tmp192350 _%stx178035%_)))))))
