(begin
  (ex:register-library!
    (ex:make-library
      '(core primitives)
      (lambda () '())
      '((begin macro begin (0) #f ())
        (if macro if (0) #f ())
        (lambda macro lambda (0) #f ())
        (quote macro quote (0) #f ())
        (set! macro set! (0) #f ())
        (and macro and (0) #f ())
        (or macro or (0) #f ())
        (define macro define (0) #f ())
        (define-syntax macro define-syntax (0) #f ())
        (let-syntax macro let-syntax (0) #f ())
        (letrec-syntax macro letrec-syntax (0) #f ())
        (_ macro _ (0) #f ())
        (... macro ... (0) #f ())
        (syntax macro syntax (0) #f ())
        (syntax-case macro syntax-case (0) #f ())
        (* variable * (0) #f ())
        (+ variable + (0) #f ())
        (- variable - (0) #f ())
        (/ variable / (0) #f ())
        (< variable < (0) #f ())
        (<= variable <= (0) #f ())
        (= variable = (0) #f ())
        (> variable > (0) #f ())
        (>= variable >= (0) #f ())
        (abs variable abs (0) #f ())
        (acos variable acos (0) #f ())
        (append variable append (0) #f ())
        (apply variable apply (0) #f ())
        (asin variable asin (0) #f ())
        (atan variable atan (0) #f ())
        (boolean? variable boolean? (0) #f ())
        (call-with-current-continuation variable call-with-current-continuation (0) #f ())
        (call-with-values variable call-with-values (0) #f ())
        (car variable car (0) #f ())
        (cdr variable cdr (0) #f ())
        (caar variable caar (0) #f ())
        (cadr variable cadr (0) #f ())
        (cdar variable cdar (0) #f ())
        (cddr variable cddr (0) #f ())
        (caaar variable caaar (0) #f ())
        (caadr variable caadr (0) #f ())
        (cadar variable cadar (0) #f ())
        (caddr variable caddr (0) #f ())
        (cdaar variable cdaar (0) #f ())
        (cdadr variable cdadr (0) #f ())
        (cddar variable cddar (0) #f ())
        (cdddr variable cdddr (0) #f ())
        (caaaar variable caaaar (0) #f ())
        (caaadr variable caaadr (0) #f ())
        (caadar variable caadar (0) #f ())
        (caaddr variable caaddr (0) #f ())
        (cadaar variable cadaar (0) #f ())
        (cadadr variable cadadr (0) #f ())
        (caddar variable caddar (0) #f ())
        (cadddr variable cadddr (0) #f ())
        (cdaaar variable cdaaar (0) #f ())
        (cdaadr variable cdaadr (0) #f ())
        (cdadar variable cdadar (0) #f ())
        (cdaddr variable cdaddr (0) #f ())
        (cddaar variable cddaar (0) #f ())
        (cddadr variable cddadr (0) #f ())
        (cdddar variable cdddar (0) #f ())
        (cddddr variable cddddr (0) #f ())
        (ceiling variable ceiling (0) #f ())
        (char? variable char? (0) #f ())
        (char->integer variable char->integer (0) #f ())
        (complex? variable complex? (0) #f ())
        (cons variable cons (0) #f ())
        (cos variable cos (0) #f ())
        (denominator variable denominator (0) #f ())
        (dynamic-wind variable dynamic-wind (0) #f ())
        (eq? variable eq? (0) #f ())
        (equal? variable equal? (0) #f ())
        (eqv? variable eqv? (0) #f ())
        (even? variable even? (0) #f ())
        (exact? variable exact? (0) #f ())
        (exp variable exp (0) #f ())
        (expt variable expt (0) #f ())
        (floor variable floor (0) #f ())
        (for-each variable for-each (0) #f ())
        (gcd variable gcd (0) #f ())
        (imag-part variable imag-part (0) #f ())
        (inexact? variable inexact? (0) #f ())
        (integer->char variable integer->char (0) #f ())
        (integer? variable integer? (0) #f ())
        (lcm variable lcm (0) #f ())
        (length variable length (0) #f ())
        (list variable list (0) #f ())
        (list->string variable list->string (0) #f ())
        (list->vector variable list->vector (0) #f ())
        (list-ref variable list-ref (0) #f ())
        (list-tail variable list-tail (0) #f ())
        (list? variable list? (0) #f ())
        (log variable log (0) #f ())
        (magnitude variable magnitude (0) #f ())
        (make-polar variable make-polar (0) #f ())
        (make-rectangular variable make-rectangular (0) #f ())
        (make-string variable make-string (0) #f ())
        (make-vector variable make-vector (0) #f ())
        (map variable map (0) #f ())
        (max variable max (0) #f ())
        (min variable min (0) #f ())
        (negative? variable negative? (0) #f ())
        (not variable not (0) #f ())
        (null? variable null? (0) #f ())
        (number->string variable number->string (0) #f ())
        (number? variable number? (0) #f ())
        (numerator variable numerator (0) #f ())
        (odd? variable odd? (0) #f ())
        (pair? variable pair? (0) #f ())
        (positive? variable positive? (0) #f ())
        (procedure? variable procedure? (0) #f ())
        (rational? variable rational? (0) #f ())
        (rationalize variable rationalize (0) #f ())
        (real-part variable real-part (0) #f ())
        (real? variable real? (0) #f ())
        (reverse variable reverse (0) #f ())
        (round variable round (0) #f ())
        (sin variable sin (0) #f ())
        (sqrt variable sqrt (0) #f ())
        (string variable string (0) #f ())
        (string->list variable string->list (0) #f ())
        (string->number variable string->number (0) #f ())
        (string->symbol variable string->symbol (0) #f ())
        (string-append variable string-append (0) #f ())
        (string-copy variable string-copy (0) #f ())
        (string-length variable string-length (0) #f ())
        (string-ref variable string-ref (0) #f ())
        (string<=? variable string<=? (0) #f ())
        (string<? variable string<? (0) #f ())
        (string=? variable string=? (0) #f ())
        (string>=? variable string>=? (0) #f ())
        (string>? variable string>? (0) #f ())
        (string? variable string? (0) #f ())
        (substring variable substring (0) #f ())
        (symbol->string variable symbol->string (0) #f ())
        (symbol? variable symbol? (0) #f ())
        (tan variable tan (0) #f ())
        (truncate variable truncate (0) #f ())
        (values variable values (0) #f ())
        (vector variable vector (0) #f ())
        (vector->list variable vector->list (0) #f ())
        (vector-fill! variable vector-fill! (0) #f ())
        (vector-length variable vector-length (0) #f ())
        (vector-ref variable vector-ref (0) #f ())
        (vector-set! variable vector-set! (0) #f ())
        (vector? variable vector? (0) #f ())
        (zero? variable zero? (0) #f ())
        (real-valued? variable real-valued? (0) #f ())
        (rational-valued? variable rational-valued? (0) #f ())
        (integer-valued? variable integer-valued? (0) #f ())
        (exact variable exact (0) #f ())
        (inexact variable inexact (0) #f ())
        (finite? variable finite? (0) #f ())
        (infinite? variable infinite? (0) #f ())
        (nan? variable nan? (0) #f ())
        (div variable div (0) #f ())
        (mod variable mod (0) #f ())
        (div-and-mod variable div-and-mod (0) #f ())
        (div0 variable div0 (0) #f ())
        (mod0 variable mod0 (0) #f ())
        (div0-and-mod0 variable div0-and-mod0 (0) #f ())
        (exact-integer-sqrt variable exact-integer-sqrt (0) #f ())
        (boolean=? variable boolean=? (0) #f ())
        (symbol=? variable symbol=? (0) #f ())
        (string-for-each variable string-for-each (0) #f ())
        (vector-map variable vector-map (0) #f ())
        (vector-for-each variable vector-for-each (0) #f ())
        (error variable error (0) #f ())
        (assertion-violation variable assertion-violation (0) #f ())
        (call/cc variable call/cc (0) #f ())
        (find variable find (0) #f ())
        (for-all variable for-all (0) #f ())
        (exists variable exists (0) #f ())
        (filter variable filter (0) #f ())
        (partition variable partition (0) #f ())
        (fold-left variable fold-left (0) #f ())
        (fold-right variable fold-right (0) #f ())
        (remp variable remp (0) #f ())
        (remove variable remove (0) #f ())
        (remq variable remq (0) #f ())
        (remv variable remv (0) #f ())
        (memp variable memp (0) #f ())
        (member variable member (0) #f ())
        (memv variable memv (0) #f ())
        (memq variable memq (0) #f ())
        (assp variable assp (0) #f ())
        (assoc variable assoc (0) #f ())
        (assv variable assv (0) #f ())
        (assq variable assq (0) #f ())
        (call-with-input-file variable call-with-input-file (0) #f ())
        (call-with-output-file variable call-with-output-file (0) #f ())
        (close-input-port variable close-input-port (0) #f ())
        (close-output-port variable close-output-port (0) #f ())
        (current-input-port variable current-input-port (0) #f ())
        (current-output-port variable current-output-port (0) #f ())
        (display variable display (0) #f ())
        (eof-object? variable eof-object? (0) #f ())
        (newline variable newline (0) #f ())
        (open-input-file variable open-input-file (0) #f ())
        (open-output-file variable open-output-file (0) #f ())
        (peek-char variable peek-char (0) #f ())
        (read variable read (0) #f ())
        (read-char variable read-char (0) #f ())
        (with-input-from-file variable with-input-from-file (0) #f ())
        (with-output-to-file variable with-output-to-file (0) #f ())
        (write variable write (0) #f ())
        (write-char variable write-char (0) #f ())
        (char-upcase variable char-upcase (0) #f ())
        (char-downcase variable char-downcase (0) #f ())
        (char-ci=? variable char-ci=? (0) #f ())
        (char-ci<? variable char-ci<? (0) #f ())
        (char-ci>? variable char-ci>? (0) #f ())
        (char-ci<=? variable char-ci<=? (0) #f ())
        (char-ci>=? variable char-ci>=? (0) #f ())
        (char-alphabetic? variable char-alphabetic? (0) #f ())
        (char-numeric? variable char-numeric? (0) #f ())
        (char-whitespace? variable char-whitespace? (0) #f ())
        (char-upper-case? variable char-upper-case? (0) #f ())
        (char-lower-case? variable char-lower-case? (0) #f ())
        (string-ci=? variable string-ci=? (0) #f ())
        (string-ci<? variable string-ci<? (0) #f ())
        (string-ci>? variable string-ci>? (0) #f ())
        (string-ci<=? variable string-ci<=? (0) #f ())
        (string-ci>=? variable string-ci>=? (0) #f ())
        (string-fill! variable string-fill! (0) #f ())
        (string-set! variable string-set! (0) #f ())
        (set-car! variable set-car! (0) #f ())
        (set-cdr! variable set-cdr! (0) #f ())
        (exact->inexact variable exact->inexact (0) #f ())
        (inexact->exact variable inexact->exact (0) #f ())
        (quotient variable quotient (0) #f ())
        (remainder variable remainder (0) #f ())
        (modulo variable modulo (0) #f ())
        (make-variable-transformer variable ex:make-variable-transformer (0) #f ())
        (identifier? variable ex:identifier? (0) #f ())
        (bound-identifier=? variable ex:bound-identifier=? (0) #f ())
        (free-identifier=? variable ex:free-identifier=? (0) #f ())
        (generate-temporaries variable ex:generate-temporaries (0) #f ())
        (datum->syntax variable ex:datum->syntax (0) #f ())
        (syntax->datum variable ex:syntax->datum (0) #f ())
        (syntax-violation variable ex:syntax-violation (0) #f ())
        (environment variable ex:environment (0) #f ())
        (environment-bindings variable ex:environment-bindings (0) #f ())
        (eval variable ex:eval (0) #f ())
        (undefined variable ex:undefined (0) #f ()))
      '(((core primitive-macros) 0))
      '(system)
      (lambda () (values))
      (lambda () (values))
      '&build~0~1700))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core with-syntax)
      (lambda ()
        (ex:uncompress
          '(((&env~0~1748 0 1 2 3) (&env~0~1732 4 1 2 3) (&env~0~1714 5 1 2 3))
            (5 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f)))
            (4 (((out) . #f) ((in) . #f) ((e1) . #f) ((e2) . #f)))
            (3
             (((with-syntax) macro &with-syntax~0~1701 (0) #f (core with-syntax))
              ((list) variable list (0 1) #f ())
              ((syntax-case) macro syntax-case (0 1) #f ())
              ((syntax) macro syntax (0 1) #f ())
              ((...) macro ... (0 1) #f ())
              ((_) macro _ (0 1) #f ())
              ((define-syntax) macro define-syntax (0 1) #f ())
              ((lambda) macro lambda (0 1) #f ())
              ((begin) macro begin (0 1) #f ())))
            (2 (((x) variable &x~0~1703 (1) #f (core with-syntax))))
            (1 ())
            (0 (((e1) . #f) ((e2) . #f))))))
      '((with-syntax macro &with-syntax~0~1701 (0) #f (core with-syntax)))
      '(((core primitives) 0 1))
      '(&build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&with-syntax~0~1701
          (lambda (&x~0~1703)
            (let ((&input~0~1705 &x~0~1703))
              (let ((&fail~0~1706
                      (lambda ()
                        (let ((&fail~0~1707
                                (lambda ()
                                  (let ((&fail~0~1708 (lambda () (ex:invalid-form &input~0~1705))))
                                    (if (pair? &input~0~1705)
                                      (let ((&temp~0~1726 (car &input~0~1705)))
                                        (let ((&temp~0~1715 (cdr &input~0~1705)))
                                          (if (pair? &temp~0~1715)
                                            (let ((&temp~0~1719 (car &temp~0~1715)))
                                              (ex:map-while
                                                (lambda (&temp~0~1719)
                                                  (if (pair? &temp~0~1719)
                                                    (let ((&temp~0~1725 (car &temp~0~1719)))
                                                      (let ((&out~0~1709 &temp~0~1725))
                                                        (let ((&temp~0~1722 (cdr &temp~0~1719)))
                                                          (if (pair? &temp~0~1722)
                                                            (let ((&temp~0~1724 (car &temp~0~1722)))
                                                              (let ((&in~0~1710 &temp~0~1724))
                                                                (let ((&temp~0~1723 (cdr &temp~0~1722)))
                                                                  (if (null? &temp~0~1723) (list &out~0~1709 &in~0~1710) #f))))
                                                            #f))))
                                                    #f))
                                                &temp~0~1719
                                                (lambda (&cols~0~1720 &rest~0~1721)
                                                  (if (null? &rest~0~1721)
                                                    (apply
                                                     (lambda (&out~0~1709 &in~0~1710)
                                                       (let ((&temp~0~1716 (cdr &temp~0~1715)))
                                                         (if (pair? &temp~0~1716)
                                                           (let ((&temp~0~1718 (car &temp~0~1716)))
                                                             (let ((&e1~0~1711 &temp~0~1718))
                                                               (let ((&temp~0~1717 (cdr &temp~0~1716)))
                                                                 (if (list? &temp~0~1717)
                                                                   (let ((&e2~0~1712 &temp~0~1717))
                                                                     (cons
                                                                      (ex:syntax-rename
                                                                        'syntax-case
                                                                        '()
                                                                        '(&env~0~1714)
                                                                        0
                                                                        '(core with-syntax))
                                                                      (cons
                                                                       (cons
                                                                        (ex:syntax-rename
                                                                          'list
                                                                          '()
                                                                          '(&env~0~1714)
                                                                          0
                                                                          '(core with-syntax))
                                                                        &in~0~1710)
                                                                       (cons
                                                                        '()
                                                                        (cons
                                                                         (cons
                                                                          &out~0~1709
                                                                          (cons
                                                                           (cons
                                                                            (ex:syntax-rename
                                                                              'begin
                                                                              '()
                                                                              '(&env~0~1714)
                                                                              0
                                                                              '(core with-syntax))
                                                                            (cons &e1~0~1711 &e2~0~1712))
                                                                           '()))
                                                                         '())))))
                                                                   (&fail~0~1708)))))
                                                           (&fail~0~1708))))
                                                     (if (null? &cols~0~1720) '(() ()) (apply map list &cols~0~1720)))
                                                    (&fail~0~1708)))))
                                            (&fail~0~1708))))
                                      (&fail~0~1708))))))
                          (if (pair? &input~0~1705)
                            (let ((&temp~0~1744 (car &input~0~1705)))
                              (let ((&temp~0~1733 (cdr &input~0~1705)))
                                (if (pair? &temp~0~1733)
                                  (let ((&temp~0~1737 (car &temp~0~1733)))
                                    (if (pair? &temp~0~1737)
                                      (let ((&temp~0~1739 (car &temp~0~1737)))
                                        (if (pair? &temp~0~1739)
                                          (let ((&temp~0~1743 (car &temp~0~1739)))
                                            (let ((&out~0~1727 &temp~0~1743))
                                              (let ((&temp~0~1740 (cdr &temp~0~1739)))
                                                (if (pair? &temp~0~1740)
                                                  (let ((&temp~0~1742 (car &temp~0~1740)))
                                                    (let ((&in~0~1728 &temp~0~1742))
                                                      (let ((&temp~0~1741 (cdr &temp~0~1740)))
                                                        (if (null? &temp~0~1741)
                                                          (let ((&temp~0~1738 (cdr &temp~0~1737)))
                                                            (if (null? &temp~0~1738)
                                                              (let ((&temp~0~1734 (cdr &temp~0~1733)))
                                                                (if (pair? &temp~0~1734)
                                                                  (let ((&temp~0~1736 (car &temp~0~1734)))
                                                                    (let ((&e1~0~1729 &temp~0~1736))
                                                                      (let ((&temp~0~1735 (cdr &temp~0~1734)))
                                                                        (if (list? &temp~0~1735)
                                                                          (let ((&e2~0~1730 &temp~0~1735))
                                                                            (cons
                                                                             (ex:syntax-rename
                                                                               'syntax-case
                                                                               '()
                                                                               '(&env~0~1732)
                                                                               0
                                                                               '(core with-syntax))
                                                                             (cons
                                                                              &in~0~1728
                                                                              (cons
                                                                               '()
                                                                               (cons
                                                                                (cons
                                                                                 &out~0~1727
                                                                                 (cons
                                                                                  (cons
                                                                                   (ex:syntax-rename
                                                                                     'begin
                                                                                     '()
                                                                                     '(&env~0~1732)
                                                                                     0
                                                                                     '(core with-syntax))
                                                                                   (cons &e1~0~1729 &e2~0~1730))
                                                                                  '()))
                                                                                '())))))
                                                                          (&fail~0~1707)))))
                                                                  (&fail~0~1707)))
                                                              (&fail~0~1707)))
                                                          (&fail~0~1707)))))
                                                  (&fail~0~1707)))))
                                          (&fail~0~1707)))
                                      (&fail~0~1707)))
                                  (&fail~0~1707))))
                            (&fail~0~1707))))))
                (if (pair? &input~0~1705)
                  (let ((&temp~0~1754 (car &input~0~1705)))
                    (let ((&temp~0~1749 (cdr &input~0~1705)))
                      (if (pair? &temp~0~1749)
                        (let ((&temp~0~1753 (car &temp~0~1749)))
                          (if (null? &temp~0~1753)
                            (let ((&temp~0~1750 (cdr &temp~0~1749)))
                              (if (pair? &temp~0~1750)
                                (let ((&temp~0~1752 (car &temp~0~1750)))
                                  (let ((&e1~0~1745 &temp~0~1752))
                                    (let ((&temp~0~1751 (cdr &temp~0~1750)))
                                      (if (list? &temp~0~1751)
                                        (let ((&e2~0~1746 &temp~0~1751))
                                          (cons
                                           (ex:syntax-rename 'begin '() '(&env~0~1748) 0 '(core with-syntax))
                                           (cons &e1~0~1745 &e2~0~1746)))
                                        (&fail~0~1706)))))
                                (&fail~0~1706)))
                            (&fail~0~1706)))
                        (&fail~0~1706))))
                  (&fail~0~1706))))))
        (values))
      (lambda () (values))
      '&build~0~1755))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core syntax-rules)
      (lambda ()
        (ex:uncompress
          '(((&env~0~1790 0 1 2 3 4 5) (&env~0~1774 6 7 3 4 5))
            (7 (((k) . #f) ((cl) . #f)))
            (6 (((cl) . #f)))
            (5
             (((syntax-rules) macro &syntax-rules~0~1756 (0) #f (core syntax-rules))
              ((syntax-violation) variable ex:syntax-violation (1 0) #f ())
              ((identifier?) variable ex:identifier? (1 0) #f ())
              ((for-all) variable for-all (1 0) #f ())
              ((map) variable map (1 0) #f ())
              ((syntax-case) macro syntax-case (1 0) #f ())
              ((syntax) macro syntax (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((define) macro define (1 0) #f ())
              ((quote) macro quote (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax))))
            (4 (((x) variable &x~0~1758 (1) #f (core syntax-rules))))
            (3 (((clause) variable &clause~0~1759 (1) #f (core syntax-rules))))
            (2 (((y) variable &y~0~1780 (1) #f (core syntax-rules))))
            (1 ())
            (0 (((keyword) . #f) ((pattern) . #f) ((template) . #f))))))
      '((syntax-rules macro &syntax-rules~0~1756 (0) #f (core syntax-rules)))
      '(((core with-syntax) 1) ((core primitives) 1 0))
      '(&build~0~1755 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&syntax-rules~0~1756
          (lambda (&x~0~1758)
            ((lambda (&clause~0~1759)
               (set! &clause~0~1759
                 (lambda (&y~0~1780)
                   (let ((&input~0~1782 &y~0~1780))
                     (let ((&fail~0~1783
                             (lambda ()
                               (let ((&fail~0~1784 (lambda () (ex:invalid-form &input~0~1782))))
                                 (ex:syntax-violation 'syntax-rules "Invalid expression" &x~0~1758)))))
                       (if (pair? &input~0~1782)
                         (let ((&temp~0~1794 (car &input~0~1782)))
                           (if (pair? &temp~0~1794)
                             (let ((&temp~0~1796 (car &temp~0~1794)))
                               (let ((&keyword~0~1786 &temp~0~1796))
                                 (let ((&temp~0~1795 (cdr &temp~0~1794)))
                                   (let ((&pattern~0~1787 &temp~0~1795))
                                     (let ((&temp~0~1791 (cdr &input~0~1782)))
                                       (if (pair? &temp~0~1791)
                                         (let ((&temp~0~1793 (car &temp~0~1791)))
                                           (let ((&template~0~1788 &temp~0~1793))
                                             (let ((&temp~0~1792 (cdr &temp~0~1791)))
                                               (if (null? &temp~0~1792)
                                                 (cons
                                                  (cons
                                                   (ex:syntax-rename 'dummy '() '(&env~0~1790) 0 '(core syntax-rules))
                                                   &pattern~0~1787)
                                                  (cons
                                                   (cons
                                                    (ex:syntax-rename 'syntax '() '(&env~0~1790) 0 '(core syntax-rules))
                                                    (cons &template~0~1788 '()))
                                                   '()))
                                                 (&fail~0~1783)))))
                                         (&fail~0~1783)))))))
                             (&fail~0~1783)))
                         (&fail~0~1783))))))
               (let ((&input~0~1761 &x~0~1758))
                 (let ((&fail~0~1762 (lambda () (ex:invalid-form &input~0~1761))))
                   (if (pair? &input~0~1761)
                     (let ((&temp~0~1778 (car &input~0~1761)))
                       (let ((&temp~0~1775 (cdr &input~0~1761)))
                         (if (pair? &temp~0~1775)
                           (let ((&temp~0~1777 (car &temp~0~1775)))
                             (if (list? &temp~0~1777)
                               (let ((&k~0~1763 &temp~0~1777))
                                 (let ((&temp~0~1776 (cdr &temp~0~1775)))
                                   (if (list? &temp~0~1776)
                                     (let ((&cl~0~1764 &temp~0~1776))
                                       (if (for-all ex:identifier? &k~0~1763)
                                         (let ((&input~0~1768 (map &clause~0~1759 &cl~0~1764)))
                                           (let ((&fail~0~1770 (lambda () (ex:invalid-form &input~0~1768))))
                                             (if (list? &input~0~1768)
                                               (let ((&cl~0~1771 &input~0~1768))
                                                 (begin
                                                   (cons
                                                    (ex:syntax-rename 'lambda '() '(&env~0~1774) 0 '(core syntax-rules))
                                                    (cons
                                                     (cons (ex:syntax-rename 'x '() '(&env~0~1774) 0 '(core syntax-rules)) '())
                                                     (cons
                                                      (cons
                                                       (ex:syntax-rename 'syntax-case '() '(&env~0~1774) 0 '(core syntax-rules))
                                                       (cons
                                                        (ex:syntax-rename 'x '() '(&env~0~1774) 0 '(core syntax-rules))
                                                        (cons &k~0~1763 &cl~0~1771)))
                                                      '())))))
                                               (&fail~0~1770))))
                                         (&fail~0~1762)))
                                     (&fail~0~1762))))
                               (&fail~0~1762)))
                           (&fail~0~1762))))
                     (&fail~0~1762)))))
             ex:undefined)))
        (values))
      (lambda () (values))
      '&build~0~1797))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core let)
      (lambda ()
        (ex:uncompress
          '(((&env~0~1888 0 1 2 3) (&env~0~1864 4 5 6 7 3) (&env~0~1833 8 9 10 3) (&env~0~1812 11 9 10 3))
            (11 (((f) . #f) ((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))
            (10 (((x) variable &x~0~1800 (1) #f (core let))))
            (9 ())
            (8 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))
            (7 (((x) variable &x~0~1848 (1) #f (core let))))
            (6 ())
            (5 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))
            (4 (((t) . #f)))
            (3
             (((letrec*) macro &letrec*~0~1877 (0) #f (core let))
              ((letrec) macro &letrec~0~1846 (0) #f (core let))
              ((let) macro &let~0~1798 (0) #f (core let))
              ((undefined) variable ex:undefined (1 0) #f ())
              ((generate-temporaries) variable ex:generate-temporaries (1 0) #f ())
              ((identifier?) variable ex:identifier? (1 0) #f ())
              ((for-all) variable for-all (1 0) #f ())
              ((syntax-case) macro syntax-case (1 0) #f ())
              ((syntax) macro syntax (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((define) macro define (1 0) #f ())
              ((set!) macro set! (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((if) macro if (1 0) #f ())
              ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax))))
            (2 (((x) variable &x~0~1879 (1) #f (core let))))
            (1 ())
            (0 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))))))
      '((let macro &let~0~1798 (0) #f (core let))
        (letrec macro &letrec~0~1846 (0) #f (core let))
        (letrec* macro &letrec*~0~1877 (0) #f (core let)))
      '(((core with-syntax) 1) ((core primitives) 1 0))
      '(&build~0~1755 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&let~0~1798
          (lambda (&x~0~1800)
            (let ((&input~0~1802 &x~0~1800))
              (let ((&fail~0~1803
                      (lambda ()
                        (let ((&fail~0~1804 (lambda () (ex:invalid-form &input~0~1802))))
                          (if (pair? &input~0~1802)
                            (let ((&temp~0~1826 (car &input~0~1802)))
                              (let ((&temp~0~1813 (cdr &input~0~1802)))
                                (if (pair? &temp~0~1813)
                                  (let ((&temp~0~1825 (car &temp~0~1813)))
                                    (let ((&f~0~1805 &temp~0~1825))
                                      (let ((&temp~0~1814 (cdr &temp~0~1813)))
                                        (if (pair? &temp~0~1814)
                                          (let ((&temp~0~1818 (car &temp~0~1814)))
                                            (ex:map-while
                                              (lambda (&temp~0~1818)
                                                (if (pair? &temp~0~1818)
                                                  (let ((&temp~0~1824 (car &temp~0~1818)))
                                                    (let ((&x~0~1806 &temp~0~1824))
                                                      (let ((&temp~0~1821 (cdr &temp~0~1818)))
                                                        (if (pair? &temp~0~1821)
                                                          (let ((&temp~0~1823 (car &temp~0~1821)))
                                                            (let ((&v~0~1807 &temp~0~1823))
                                                              (let ((&temp~0~1822 (cdr &temp~0~1821)))
                                                                (if (null? &temp~0~1822) (list &x~0~1806 &v~0~1807) #f))))
                                                          #f))))
                                                  #f))
                                              &temp~0~1818
                                              (lambda (&cols~0~1819 &rest~0~1820)
                                                (if (null? &rest~0~1820)
                                                  (apply
                                                   (lambda (&x~0~1806 &v~0~1807)
                                                     (let ((&temp~0~1815 (cdr &temp~0~1814)))
                                                       (if (pair? &temp~0~1815)
                                                         (let ((&temp~0~1817 (car &temp~0~1815)))
                                                           (let ((&e1~0~1808 &temp~0~1817))
                                                             (let ((&temp~0~1816 (cdr &temp~0~1815)))
                                                               (if (list? &temp~0~1816)
                                                                 (let ((&e2~0~1809 &temp~0~1816))
                                                                   (if (for-all ex:identifier? (cons &f~0~1805 &x~0~1806))
                                                                     (cons
                                                                      (cons
                                                                       (ex:syntax-rename 'letrec '() '(&env~0~1812) 0 '(core let))
                                                                       (cons
                                                                        (cons
                                                                         (cons
                                                                          &f~0~1805
                                                                          (cons
                                                                           (cons
                                                                            (ex:syntax-rename
                                                                              'lambda
                                                                              '()
                                                                              '(&env~0~1812)
                                                                              0
                                                                              '(core let))
                                                                            (cons &x~0~1806 (cons &e1~0~1808 &e2~0~1809)))
                                                                           '()))
                                                                         '())
                                                                        (cons &f~0~1805 '())))
                                                                      &v~0~1807)
                                                                     (&fail~0~1804)))
                                                                 (&fail~0~1804)))))
                                                         (&fail~0~1804))))
                                                   (if (null? &cols~0~1819) '(() ()) (apply map list &cols~0~1819)))
                                                  (&fail~0~1804)))))
                                          (&fail~0~1804)))))
                                  (&fail~0~1804))))
                            (&fail~0~1804))))))
                (if (pair? &input~0~1802)
                  (let ((&temp~0~1845 (car &input~0~1802)))
                    (let ((&temp~0~1834 (cdr &input~0~1802)))
                      (if (pair? &temp~0~1834)
                        (let ((&temp~0~1838 (car &temp~0~1834)))
                          (ex:map-while
                            (lambda (&temp~0~1838)
                              (if (pair? &temp~0~1838)
                                (let ((&temp~0~1844 (car &temp~0~1838)))
                                  (let ((&x~0~1827 &temp~0~1844))
                                    (let ((&temp~0~1841 (cdr &temp~0~1838)))
                                      (if (pair? &temp~0~1841)
                                        (let ((&temp~0~1843 (car &temp~0~1841)))
                                          (let ((&v~0~1828 &temp~0~1843))
                                            (let ((&temp~0~1842 (cdr &temp~0~1841)))
                                              (if (null? &temp~0~1842) (list &x~0~1827 &v~0~1828) #f))))
                                        #f))))
                                #f))
                            &temp~0~1838
                            (lambda (&cols~0~1839 &rest~0~1840)
                              (if (null? &rest~0~1840)
                                (apply
                                 (lambda (&x~0~1827 &v~0~1828)
                                   (let ((&temp~0~1835 (cdr &temp~0~1834)))
                                     (if (pair? &temp~0~1835)
                                       (let ((&temp~0~1837 (car &temp~0~1835)))
                                         (let ((&e1~0~1829 &temp~0~1837))
                                           (let ((&temp~0~1836 (cdr &temp~0~1835)))
                                             (if (list? &temp~0~1836)
                                               (let ((&e2~0~1830 &temp~0~1836))
                                                 (if (for-all ex:identifier? &x~0~1827)
                                                   (cons
                                                    (cons
                                                     (ex:syntax-rename 'lambda '() '(&env~0~1833) 0 '(core let))
                                                     (cons &x~0~1827 (cons &e1~0~1829 &e2~0~1830)))
                                                    &v~0~1828)
                                                   (&fail~0~1803)))
                                               (&fail~0~1803)))))
                                       (&fail~0~1803))))
                                 (if (null? &cols~0~1839) '(() ()) (apply map list &cols~0~1839)))
                                (&fail~0~1803)))))
                        (&fail~0~1803))))
                  (&fail~0~1803))))))
        (ex:register-macro!
          '&letrec~0~1846
          (lambda (&x~0~1848)
            (let ((&input~0~1850 &x~0~1848))
              (let ((&fail~0~1851 (lambda () (ex:invalid-form &input~0~1850))))
                (if (pair? &input~0~1850)
                  (let ((&temp~0~1876 (car &input~0~1850)))
                    (let ((&temp~0~1865 (cdr &input~0~1850)))
                      (if (pair? &temp~0~1865)
                        (let ((&temp~0~1869 (car &temp~0~1865)))
                          (ex:map-while
                            (lambda (&temp~0~1869)
                              (if (pair? &temp~0~1869)
                                (let ((&temp~0~1875 (car &temp~0~1869)))
                                  (let ((&i~0~1852 &temp~0~1875))
                                    (let ((&temp~0~1872 (cdr &temp~0~1869)))
                                      (if (pair? &temp~0~1872)
                                        (let ((&temp~0~1874 (car &temp~0~1872)))
                                          (let ((&v~0~1853 &temp~0~1874))
                                            (let ((&temp~0~1873 (cdr &temp~0~1872)))
                                              (if (null? &temp~0~1873) (list &i~0~1852 &v~0~1853) #f))))
                                        #f))))
                                #f))
                            &temp~0~1869
                            (lambda (&cols~0~1870 &rest~0~1871)
                              (if (null? &rest~0~1871)
                                (apply
                                 (lambda (&i~0~1852 &v~0~1853)
                                   (let ((&temp~0~1866 (cdr &temp~0~1865)))
                                     (if (pair? &temp~0~1866)
                                       (let ((&temp~0~1868 (car &temp~0~1866)))
                                         (let ((&e1~0~1854 &temp~0~1868))
                                           (let ((&temp~0~1867 (cdr &temp~0~1866)))
                                             (if (list? &temp~0~1867)
                                               (let ((&e2~0~1855 &temp~0~1867))
                                                 (let ((&input~0~1858 (ex:generate-temporaries &i~0~1852)))
                                                   (let ((&fail~0~1860 (lambda () (ex:invalid-form &input~0~1858))))
                                                     (if (list? &input~0~1858)
                                                       (let ((&t~0~1861 &input~0~1858))
                                                         (begin
                                                           (cons
                                                            (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let))
                                                            (cons
                                                             (map
                                                              (lambda (&i~0~1852)
                                                                (cons
                                                                 &i~0~1852
                                                                 (cons
                                                                  (ex:syntax-rename 'undefined '() '(&env~0~1864) 0 '(core let))
                                                                  '())))
                                                              &i~0~1852)
                                                             (cons
                                                              (cons
                                                               (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let))
                                                               (cons
                                                                (map
                                                                 (lambda (&t~0~1861 &v~0~1853) (cons &t~0~1861 (cons &v~0~1853 '())))
                                                                 &t~0~1861
                                                                 &v~0~1853)
                                                                (append
                                                                  (map
                                                                   (lambda (&i~0~1852 &t~0~1861)
                                                                     (cons
                                                                      (ex:syntax-rename 'set! '() '(&env~0~1864) 0 '(core let))
                                                                      (cons &i~0~1852 (cons &t~0~1861 '()))))
                                                                   &i~0~1852
                                                                   &t~0~1861)
                                                                  (cons
                                                                   (cons
                                                                    (ex:syntax-rename 'let '() '(&env~0~1864) 0 '(core let))
                                                                    (cons '() (cons &e1~0~1854 &e2~0~1855)))
                                                                   '()))))
                                                              '())))))
                                                       (&fail~0~1860)))))
                                               (&fail~0~1851)))))
                                       (&fail~0~1851))))
                                 (if (null? &cols~0~1870) '(() ()) (apply map list &cols~0~1870)))
                                (&fail~0~1851)))))
                        (&fail~0~1851))))
                  (&fail~0~1851))))))
        (ex:register-macro!
          '&letrec*~0~1877
          (lambda (&x~0~1879)
            (let ((&input~0~1881 &x~0~1879))
              (let ((&fail~0~1882 (lambda () (ex:invalid-form &input~0~1881))))
                (if (pair? &input~0~1881)
                  (let ((&temp~0~1900 (car &input~0~1881)))
                    (let ((&temp~0~1889 (cdr &input~0~1881)))
                      (if (pair? &temp~0~1889)
                        (let ((&temp~0~1893 (car &temp~0~1889)))
                          (ex:map-while
                            (lambda (&temp~0~1893)
                              (if (pair? &temp~0~1893)
                                (let ((&temp~0~1899 (car &temp~0~1893)))
                                  (let ((&i~0~1883 &temp~0~1899))
                                    (let ((&temp~0~1896 (cdr &temp~0~1893)))
                                      (if (pair? &temp~0~1896)
                                        (let ((&temp~0~1898 (car &temp~0~1896)))
                                          (let ((&v~0~1884 &temp~0~1898))
                                            (let ((&temp~0~1897 (cdr &temp~0~1896)))
                                              (if (null? &temp~0~1897) (list &i~0~1883 &v~0~1884) #f))))
                                        #f))))
                                #f))
                            &temp~0~1893
                            (lambda (&cols~0~1894 &rest~0~1895)
                              (if (null? &rest~0~1895)
                                (apply
                                 (lambda (&i~0~1883 &v~0~1884)
                                   (let ((&temp~0~1890 (cdr &temp~0~1889)))
                                     (if (pair? &temp~0~1890)
                                       (let ((&temp~0~1892 (car &temp~0~1890)))
                                         (let ((&e1~0~1885 &temp~0~1892))
                                           (let ((&temp~0~1891 (cdr &temp~0~1890)))
                                             (if (list? &temp~0~1891)
                                               (let ((&e2~0~1886 &temp~0~1891))
                                                 (cons
                                                  (ex:syntax-rename 'let '() '(&env~0~1888) 0 '(core let))
                                                  (cons
                                                   '()
                                                   (append
                                                     (map
                                                      (lambda (&i~0~1883 &v~0~1884)
                                                        (cons
                                                         (ex:syntax-rename 'define '() '(&env~0~1888) 0 '(core let))
                                                         (cons &i~0~1883 (cons &v~0~1884 '()))))
                                                      &i~0~1883
                                                      &v~0~1884)
                                                     (cons
                                                      (cons
                                                       (ex:syntax-rename 'let '() '(&env~0~1888) 0 '(core let))
                                                       (cons '() (cons &e1~0~1885 &e2~0~1886)))
                                                      '())))))
                                               (&fail~0~1882)))))
                                       (&fail~0~1882))))
                                 (if (null? &cols~0~1894) '(() ()) (apply map list &cols~0~1894)))
                                (&fail~0~1882)))))
                        (&fail~0~1882))))
                  (&fail~0~1882))))))
        (values))
      (lambda () (values))
      '&build~0~1901))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core derived)
      (lambda ()
        (ex:uncompress
          '(((&env~0~2172 0 1 2 3 4)
             (&env~0~2161 5 6 7 8 9 10 1 2 3 4)
             (&env~0~2143 11 7 8 9 10 1 2 3 4)
             (&env~0~2135 12 7 8 9 10 1 2 3 4)
             (&env~0~2088 13 14 15 16 17 18 19 20 21 4)
             (&env~0~2082 22 14 15 16 17 18 19 20 21 4)
             (&env~0~2073 23 14 15 16 17 18 19 20 21 4)
             (&env~0~2065 24 14 15 16 17 18 19 20 21 4)
             (&env~0~2048 25 26 27 15 16 17 18 19 20 21 4)
             (&env~0~2039 28 26 27 15 16 17 18 19 20 21 4)
             (&env~0~2031 29 26 27 15 16 17 18 19 20 21 4)
             (&env~0~1976 30 31 32 4)
             (&env~0~1953 33 34 35 36 37 38 31 32 4)
             (&env~0~1943 39 40 34 35 36 37 38 31 32 4))
            (40 (((x) . #f) ((v) . #f) ((rest) . #f)))
            (39 (((body) . #f)))
            (38 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))
            (37 (((f) variable &f~0~1919 (1) #t (core derived))))
            (36 ())
            (35 (((bindings) variable &bindings~0~1927 (1) #f (core derived))))
            (34 ())
            (33 (((x) . #f) ((v) . #f)))
            (32 (((x) variable &x~0~1904 (1) #f (core derived))))
            (31 ())
            (30 (((e1) . #f) ((e2) . #f)))
            (29 (((e0) . #f) ((e1) . #f) ((e2) . #f)))
            (28 (((e0) . #f) ((e1) . #f)))
            (27 (((c2) . #f) ((c3) . #f)))
            (26 (((rest) . #f)))
            (25 (((e0) . #f)))
            (24 (((e0) . #f) ((e1) . #f) ((e2) . #f)))
            (23 (((e0) . #f) ((e1) . #f)))
            (22 (((e0) . #f)))
            (21 (((x) variable &x~0~1985 (1) #f (core derived))))
            (20 ())
            (19 (((c1) . #f) ((c2) . #f)))
            (18 (((f) variable &f~0~1996 (1) #t (core derived))))
            (17 ())
            (16 (((c1) variable &c1~0~2004 (1) #f (core derived)) ((c2*) variable &c2*~0~2005 (1) #f (core derived))))
            (15 ())
            (14 ())
            (13 (((e1) . #f) ((e2) . #f)))
            (12 (((k) . #f) ((e1) . #f) ((e2) . #f)))
            (11 (((e1) . #f) ((e2) . #f)))
            (10 (((f) variable &f~0~2116 (1) #t (core derived))))
            (9 ())
            (8 (((c1) variable &c1~0~2124 (1) #f (core derived)) ((cmore) variable &cmore~0~2125 (1) #f (core derived))))
            (7 ())
            (6 (((rest) . #f)))
            (5 (((k) . #f) ((e1) . #f) ((e2) . #f)))
            (4
             (((else) macro &else~0~2183 (0) #f (core derived))
              ((=>) macro &=>~0~2179 (0) #f (core derived))
              ((case) macro &case~0~2099 (0) #f (core derived))
              ((cond) macro &cond~0~1983 (0) #f (core derived))
              ((let*) macro &let*~0~1902 (0) #f (core derived))
              ((syntax-violation) variable ex:syntax-violation (1 0) #f ())
              ((identifier?) variable ex:identifier? (1 0) #f ())
              ((memv) variable memv (1 0) #f ())
              ((for-all) variable for-all (1 0) #f ())
              ((null?) variable null? (1 0) #f ())
              ((cdr) variable cdr (1 0) #f ())
              ((car) variable car (1 0) #f ())
              ((syntax-case) macro syntax-case (1 0) #f ())
              ((syntax) macro syntax (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((quote) macro quote (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((if) macro if (1 0) #f ())
              ((begin) macro begin (1 0) #f ())
              ((letrec*) macro &letrec*~0~1877 (1 0) #f (core let))
              ((letrec) macro &letrec~0~1846 (1 0) #f (core let))
              ((let) macro &let~0~1798 (1 0) #f (core let))
              ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax))
              ((syntax-rules) macro &syntax-rules~0~1756 (1) #f (core syntax-rules))))
            (3 (((x) variable &x~0~2101 (1) #f (core derived))))
            (2 ())
            (1 (((e) . #f) ((c1) . #f) ((c2) . #f)))
            (0 (((body) . #f))))))
      '((let* macro &let*~0~1902 (0) #f (core derived))
        (cond macro &cond~0~1983 (0) #f (core derived))
        (case macro &case~0~2099 (0) #f (core derived))
        (else macro &else~0~2183 (0) #f (core derived))
        (=> macro &=>~0~2179 (0) #f (core derived)))
      '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0))
      '(&build~0~1797 &build~0~1755 &build~0~1901 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&let*~0~1902
          (lambda (&x~0~1904)
            (let ((&input~0~1906 &x~0~1904))
              (let ((&fail~0~1907
                      (lambda ()
                        (let ((&fail~0~1908 (lambda () (ex:invalid-form &input~0~1906))))
                          (if (pair? &input~0~1906)
                            (let ((&temp~0~1972 (car &input~0~1906)))
                              (let ((&temp~0~1961 (cdr &input~0~1906)))
                                (if (pair? &temp~0~1961)
                                  (let ((&temp~0~1965 (car &temp~0~1961)))
                                    (ex:map-while
                                      (lambda (&temp~0~1965)
                                        (if (pair? &temp~0~1965)
                                          (let ((&temp~0~1971 (car &temp~0~1965)))
                                            (let ((&x~0~1909 &temp~0~1971))
                                              (let ((&temp~0~1968 (cdr &temp~0~1965)))
                                                (if (pair? &temp~0~1968)
                                                  (let ((&temp~0~1970 (car &temp~0~1968)))
                                                    (let ((&v~0~1910 &temp~0~1970))
                                                      (let ((&temp~0~1969 (cdr &temp~0~1968)))
                                                        (if (null? &temp~0~1969) (list &x~0~1909 &v~0~1910) #f))))
                                                  #f))))
                                          #f))
                                      &temp~0~1965
                                      (lambda (&cols~0~1966 &rest~0~1967)
                                        (if (null? &rest~0~1967)
                                          (apply
                                           (lambda (&x~0~1909 &v~0~1910)
                                             (let ((&temp~0~1962 (cdr &temp~0~1961)))
                                               (if (pair? &temp~0~1962)
                                                 (let ((&temp~0~1964 (car &temp~0~1962)))
                                                   (let ((&e1~0~1911 &temp~0~1964))
                                                     (let ((&temp~0~1963 (cdr &temp~0~1962)))
                                                       (if (list? &temp~0~1963)
                                                         (let ((&e2~0~1912 &temp~0~1963))
                                                           (if (for-all ex:identifier? &x~0~1909)
                                                             (((lambda (&f~0~1919)
                                                                 ((lambda (&temp~0~1922)
                                                                    (set! &f~0~1919 &temp~0~1922)
                                                                    ((lambda () &f~0~1919)))
                                                                  (lambda (&bindings~0~1927)
                                                                    (let ((&input~0~1929 &bindings~0~1927))
                                                                      (let ((&fail~0~1930
                                                                              (lambda ()
                                                                                (let ((&fail~0~1931
                                                                                        (lambda () (ex:invalid-form &input~0~1929))))
                                                                                  (if (pair? &input~0~1929)
                                                                                    (let ((&temp~0~1945 (car &input~0~1929)))
                                                                                      (if (pair? &temp~0~1945)
                                                                                        (let ((&temp~0~1949 (car &temp~0~1945)))
                                                                                          (let ((&x~0~1932 &temp~0~1949))
                                                                                            (let ((&temp~0~1946 (cdr &temp~0~1945)))
                                                                                              (if (pair? &temp~0~1946)
                                                                                                (let ((&temp~0~1948
                                                                                                        (car &temp~0~1946)))
                                                                                                  (let ((&v~0~1933 &temp~0~1948))
                                                                                                    (let ((&temp~0~1947
                                                                                                            (cdr &temp~0~1946)))
                                                                                                      (if (null? &temp~0~1947)
                                                                                                        (let ((&temp~0~1944
                                                                                                                (cdr &input~0~1929)))
                                                                                                          (let ((&rest~0~1934
                                                                                                                  &temp~0~1944))
                                                                                                            (let ((&input~0~1937
                                                                                                                    (&f~0~1919
                                                                                                                      &rest~0~1934)))
                                                                                                              (let ((&fail~0~1939
                                                                                                                      (lambda ()
                                                                                                                        (ex:invalid-form
                                                                                                                          &input~0~1937))))
                                                                                                                (let ((&body~0~1940
                                                                                                                        &input~0~1937))
                                                                                                                  (begin
                                                                                                                    (cons
                                                                                                                     (ex:syntax-rename
                                                                                                                       'let
                                                                                                                       '()
                                                                                                                       '(&env~0~1943)
                                                                                                                       0
                                                                                                                       '(core
                                                                                                                         derived))
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (cons
                                                                                                                        &x~0~1932
                                                                                                                        (cons
                                                                                                                         &v~0~1933
                                                                                                                         '()))
                                                                                                                       '())
                                                                                                                      (cons
                                                                                                                       &body~0~1940
                                                                                                                       '())))))))))
                                                                                                        (&fail~0~1931)))))
                                                                                                (&fail~0~1931)))))
                                                                                        (&fail~0~1931)))
                                                                                    (&fail~0~1931))))))
                                                                        (if (pair? &input~0~1929)
                                                                          (let ((&temp~0~1955 (car &input~0~1929)))
                                                                            (if (pair? &temp~0~1955)
                                                                              (let ((&temp~0~1959 (car &temp~0~1955)))
                                                                                (let ((&x~0~1950 &temp~0~1959))
                                                                                  (let ((&temp~0~1956 (cdr &temp~0~1955)))
                                                                                    (if (pair? &temp~0~1956)
                                                                                      (let ((&temp~0~1958 (car &temp~0~1956)))
                                                                                        (let ((&v~0~1951 &temp~0~1958))
                                                                                          (let ((&temp~0~1957 (cdr &temp~0~1956)))
                                                                                            (if (null? &temp~0~1957)
                                                                                              (let ((&temp~0~1954
                                                                                                      (cdr &input~0~1929)))
                                                                                                (if (null? &temp~0~1954)
                                                                                                  (cons
                                                                                                   (ex:syntax-rename
                                                                                                     'let
                                                                                                     '()
                                                                                                     '(&env~0~1953)
                                                                                                     0
                                                                                                     '(core derived))
                                                                                                   (cons
                                                                                                    (cons
                                                                                                     (cons
                                                                                                      &x~0~1950
                                                                                                      (cons &v~0~1951 '()))
                                                                                                     '())
                                                                                                    (cons &e1~0~1911 &e2~0~1912)))
                                                                                                  (&fail~0~1930)))
                                                                                              (&fail~0~1930)))))
                                                                                      (&fail~0~1930)))))
                                                                              (&fail~0~1930)))
                                                                          (&fail~0~1930)))))))
                                                               ex:undefined)
                                                              (map
                                                               (lambda (&x~0~1909 &v~0~1910) (cons &x~0~1909 (cons &v~0~1910 '())))
                                                               &x~0~1909
                                                               &v~0~1910))
                                                             (&fail~0~1908)))
                                                         (&fail~0~1908)))))
                                                 (&fail~0~1908))))
                                           (if (null? &cols~0~1966) '(() ()) (apply map list &cols~0~1966)))
                                          (&fail~0~1908)))))
                                  (&fail~0~1908))))
                            (&fail~0~1908))))))
                (if (pair? &input~0~1906)
                  (let ((&temp~0~1982 (car &input~0~1906)))
                    (let ((&temp~0~1977 (cdr &input~0~1906)))
                      (if (pair? &temp~0~1977)
                        (let ((&temp~0~1981 (car &temp~0~1977)))
                          (if (null? &temp~0~1981)
                            (let ((&temp~0~1978 (cdr &temp~0~1977)))
                              (if (pair? &temp~0~1978)
                                (let ((&temp~0~1980 (car &temp~0~1978)))
                                  (let ((&e1~0~1973 &temp~0~1980))
                                    (let ((&temp~0~1979 (cdr &temp~0~1978)))
                                      (if (list? &temp~0~1979)
                                        (let ((&e2~0~1974 &temp~0~1979))
                                          (cons
                                           (ex:syntax-rename 'let '() '(&env~0~1976) 0 '(core derived))
                                           (cons '() (cons &e1~0~1973 &e2~0~1974))))
                                        (&fail~0~1907)))))
                                (&fail~0~1907)))
                            (&fail~0~1907)))
                        (&fail~0~1907))))
                  (&fail~0~1907))))))
        (ex:register-macro!
          '&cond~0~1983
          (lambda (&x~0~1985)
            (let ((&input~0~1987 &x~0~1985))
              (let ((&fail~0~1988 (lambda () (ex:invalid-form &input~0~1987))))
                (if (pair? &input~0~1987)
                  (let ((&temp~0~2098 (car &input~0~1987)))
                    (let ((&temp~0~2095 (cdr &input~0~1987)))
                      (if (pair? &temp~0~2095)
                        (let ((&temp~0~2097 (car &temp~0~2095)))
                          (let ((&c1~0~1989 &temp~0~2097))
                            (let ((&temp~0~2096 (cdr &temp~0~2095)))
                              (if (list? &temp~0~2096)
                                (let ((&c2~0~1990 &temp~0~2096))
                                  (((lambda (&f~0~1996)
                                      ((lambda (&temp~0~1999) (set! &f~0~1996 &temp~0~1999) ((lambda () &f~0~1996)))
                                       (lambda (&c1~0~2004 &c2*~0~2005)
                                         (let ((&input~0~2007 &c2*~0~2005))
                                           (let ((&fail~0~2008
                                                   (lambda ()
                                                     (let ((&fail~0~2009 (lambda () (ex:invalid-form &input~0~2007))))
                                                       (if (pair? &input~0~2007)
                                                         (let ((&temp~0~2052 (car &input~0~2007)))
                                                           (let ((&c2~0~2010 &temp~0~2052))
                                                             (let ((&temp~0~2051 (cdr &input~0~2007)))
                                                               (if (list? &temp~0~2051)
                                                                 (let ((&c3~0~2011 &temp~0~2051))
                                                                   (let ((&input~0~2014 (&f~0~1996 &c2~0~2010 &c3~0~2011)))
                                                                     (let ((&fail~0~2017
                                                                             (lambda () (ex:invalid-form &input~0~2014))))
                                                                       (let ((&rest~0~2018 &input~0~2014))
                                                                         (begin
                                                                           (let ((&input~0~2021 &c1~0~2004))
                                                                             (let ((&fail~0~2022
                                                                                     (lambda ()
                                                                                       (let ((&fail~0~2023
                                                                                               (lambda ()
                                                                                                 (let ((&fail~0~2024
                                                                                                         (lambda ()
                                                                                                           (let ((&fail~0~2025
                                                                                                                   (lambda ()
                                                                                                                     (ex:invalid-form
                                                                                                                       &input~0~2021))))
                                                                                                             (ex:syntax-violation
                                                                                                               'cond
                                                                                                               "Invalid expression"
                                                                                                               &x~0~1985)))))
                                                                                                   (if (pair? &input~0~2021)
                                                                                                     (let ((&temp~0~2035
                                                                                                             (car &input~0~2021)))
                                                                                                       (let ((&e0~0~2027
                                                                                                               &temp~0~2035))
                                                                                                         (let ((&temp~0~2032
                                                                                                                 (cdr
                                                                                                                  &input~0~2021)))
                                                                                                           (if (pair? &temp~0~2032)
                                                                                                             (let ((&temp~0~2034
                                                                                                                     (car
                                                                                                                      &temp~0~2032)))
                                                                                                               (let ((&e1~0~2028
                                                                                                                       &temp~0~2034))
                                                                                                                 (let ((&temp~0~2033
                                                                                                                         (cdr
                                                                                                                          &temp~0~2032)))
                                                                                                                   (if (list?
                                                                                                                        &temp~0~2033)
                                                                                                                     (let ((&e2~0~2029
                                                                                                                             &temp~0~2033))
                                                                                                                       (cons
                                                                                                                        (ex:syntax-rename
                                                                                                                          'if
                                                                                                                          '()
                                                                                                                          '(&env~0~2031)
                                                                                                                          0
                                                                                                                          '(core
                                                                                                                            derived))
                                                                                                                        (cons
                                                                                                                         &e0~0~2027
                                                                                                                         (cons
                                                                                                                          (cons
                                                                                                                           (ex:syntax-rename
                                                                                                                             'begin
                                                                                                                             '()
                                                                                                                             '(&env~0~2031)
                                                                                                                             0
                                                                                                                             '(core
                                                                                                                               derived))
                                                                                                                           (cons
                                                                                                                            &e1~0~2028
                                                                                                                            &e2~0~2029))
                                                                                                                          (cons
                                                                                                                           &rest~0~2018
                                                                                                                           '())))))
                                                                                                                     (&fail~0~2024)))))
                                                                                                             (&fail~0~2024)))))
                                                                                                     (&fail~0~2024))))))
                                                                                         (if (pair? &input~0~2021)
                                                                                           (let ((&temp~0~2045 (car &input~0~2021)))
                                                                                             (let ((&e0~0~2036 &temp~0~2045))
                                                                                               (let ((&temp~0~2040
                                                                                                       (cdr &input~0~2021)))
                                                                                                 (if (pair? &temp~0~2040)
                                                                                                   (let ((&temp~0~2044
                                                                                                           (car &temp~0~2040)))
                                                                                                     (if (and (ex:identifier?
                                                                                                                &temp~0~2044)
                                                                                                              (ex:free-identifier=?
                                                                                                                &temp~0~2044
                                                                                                                (ex:syntax-rename
                                                                                                                  '=>
                                                                                                                  '()
                                                                                                                  '(&env~0~2039)
                                                                                                                  0
                                                                                                                  '(core derived))))
                                                                                                       (let ((&temp~0~2041
                                                                                                               (cdr &temp~0~2040)))
                                                                                                         (if (pair? &temp~0~2041)
                                                                                                           (let ((&temp~0~2043
                                                                                                                   (car
                                                                                                                    &temp~0~2041)))
                                                                                                             (let ((&e1~0~2037
                                                                                                                     &temp~0~2043))
                                                                                                               (let ((&temp~0~2042
                                                                                                                       (cdr
                                                                                                                        &temp~0~2041)))
                                                                                                                 (if (null?
                                                                                                                      &temp~0~2042)
                                                                                                                   (cons
                                                                                                                    (ex:syntax-rename
                                                                                                                      'let
                                                                                                                      '()
                                                                                                                      '(&env~0~2039)
                                                                                                                      0
                                                                                                                      '(core
                                                                                                                        derived))
                                                                                                                    (cons
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (ex:syntax-rename
                                                                                                                         't
                                                                                                                         '()
                                                                                                                         '(&env~0~2039)
                                                                                                                         0
                                                                                                                         '(core
                                                                                                                           derived))
                                                                                                                       (cons
                                                                                                                        &e0~0~2036
                                                                                                                        '()))
                                                                                                                      '())
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (ex:syntax-rename
                                                                                                                         'if
                                                                                                                         '()
                                                                                                                         '(&env~0~2039)
                                                                                                                         0
                                                                                                                         '(core
                                                                                                                           derived))
                                                                                                                       (cons
                                                                                                                        (ex:syntax-rename
                                                                                                                          't
                                                                                                                          '()
                                                                                                                          '(&env~0~2039)
                                                                                                                          0
                                                                                                                          '(core
                                                                                                                            derived))
                                                                                                                        (cons
                                                                                                                         (cons
                                                                                                                          &e1~0~2037
                                                                                                                          (cons
                                                                                                                           (ex:syntax-rename
                                                                                                                             't
                                                                                                                             '()
                                                                                                                             '(&env~0~2039)
                                                                                                                             0
                                                                                                                             '(core
                                                                                                                               derived))
                                                                                                                           '()))
                                                                                                                         (cons
                                                                                                                          &rest~0~2018
                                                                                                                          '()))))
                                                                                                                      '())))
                                                                                                                   (&fail~0~2023)))))
                                                                                                           (&fail~0~2023)))
                                                                                                       (&fail~0~2023)))
                                                                                                   (&fail~0~2023)))))
                                                                                           (&fail~0~2023))))))
                                                                               (if (pair? &input~0~2021)
                                                                                 (let ((&temp~0~2050 (car &input~0~2021)))
                                                                                   (let ((&e0~0~2046 &temp~0~2050))
                                                                                     (let ((&temp~0~2049 (cdr &input~0~2021)))
                                                                                       (if (null? &temp~0~2049)
                                                                                         (cons
                                                                                          (ex:syntax-rename
                                                                                            'let
                                                                                            '()
                                                                                            '(&env~0~2048)
                                                                                            0
                                                                                            '(core derived))
                                                                                          (cons
                                                                                           (cons
                                                                                            (cons
                                                                                             (ex:syntax-rename
                                                                                               't
                                                                                               '()
                                                                                               '(&env~0~2048)
                                                                                               0
                                                                                               '(core derived))
                                                                                             (cons &e0~0~2046 '()))
                                                                                            '())
                                                                                           (cons
                                                                                            (cons
                                                                                             (ex:syntax-rename
                                                                                               'if
                                                                                               '()
                                                                                               '(&env~0~2048)
                                                                                               0
                                                                                               '(core derived))
                                                                                             (cons
                                                                                              (ex:syntax-rename
                                                                                                't
                                                                                                '()
                                                                                                '(&env~0~2048)
                                                                                                0
                                                                                                '(core derived))
                                                                                              (cons
                                                                                               (ex:syntax-rename
                                                                                                 't
                                                                                                 '()
                                                                                                 '(&env~0~2048)
                                                                                                 0
                                                                                                 '(core derived))
                                                                                               (cons &rest~0~2018 '()))))
                                                                                            '())))
                                                                                         (&fail~0~2022)))))
                                                                                 (&fail~0~2022)))))))))
                                                                 (&fail~0~2009)))))
                                                         (&fail~0~2009))))))
                                             (if (null? &input~0~2007)
                                               (let ((&input~0~2054 &c1~0~2004))
                                                 (let ((&fail~0~2055
                                                         (lambda ()
                                                           (let ((&fail~0~2056
                                                                   (lambda ()
                                                                     (let ((&fail~0~2057
                                                                             (lambda ()
                                                                               (let ((&fail~0~2058
                                                                                       (lambda ()
                                                                                         (let ((&fail~0~2059
                                                                                                 (lambda ()
                                                                                                   (ex:invalid-form &input~0~2054))))
                                                                                           (ex:syntax-violation
                                                                                             'cond
                                                                                             "Invalid expression"
                                                                                             &x~0~1985)))))
                                                                                 (if (pair? &input~0~2054)
                                                                                   (let ((&temp~0~2069 (car &input~0~2054)))
                                                                                     (let ((&e0~0~2061 &temp~0~2069))
                                                                                       (let ((&temp~0~2066 (cdr &input~0~2054)))
                                                                                         (if (pair? &temp~0~2066)
                                                                                           (let ((&temp~0~2068 (car &temp~0~2066)))
                                                                                             (let ((&e1~0~2062 &temp~0~2068))
                                                                                               (let ((&temp~0~2067
                                                                                                       (cdr &temp~0~2066)))
                                                                                                 (if (list? &temp~0~2067)
                                                                                                   (let ((&e2~0~2063 &temp~0~2067))
                                                                                                     (cons
                                                                                                      (ex:syntax-rename
                                                                                                        'if
                                                                                                        '()
                                                                                                        '(&env~0~2065)
                                                                                                        0
                                                                                                        '(core derived))
                                                                                                      (cons
                                                                                                       &e0~0~2061
                                                                                                       (cons
                                                                                                        (cons
                                                                                                         (ex:syntax-rename
                                                                                                           'begin
                                                                                                           '()
                                                                                                           '(&env~0~2065)
                                                                                                           0
                                                                                                           '(core derived))
                                                                                                         (cons
                                                                                                          &e1~0~2062
                                                                                                          &e2~0~2063))
                                                                                                        '()))))
                                                                                                   (&fail~0~2058)))))
                                                                                           (&fail~0~2058)))))
                                                                                   (&fail~0~2058))))))
                                                                       (if (pair? &input~0~2054)
                                                                         (let ((&temp~0~2079 (car &input~0~2054)))
                                                                           (let ((&e0~0~2070 &temp~0~2079))
                                                                             (let ((&temp~0~2074 (cdr &input~0~2054)))
                                                                               (if (pair? &temp~0~2074)
                                                                                 (let ((&temp~0~2078 (car &temp~0~2074)))
                                                                                   (if (and (ex:identifier? &temp~0~2078)
                                                                                            (ex:free-identifier=?
                                                                                              &temp~0~2078
                                                                                              (ex:syntax-rename
                                                                                                '=>
                                                                                                '()
                                                                                                '(&env~0~2073)
                                                                                                0
                                                                                                '(core derived))))
                                                                                     (let ((&temp~0~2075 (cdr &temp~0~2074)))
                                                                                       (if (pair? &temp~0~2075)
                                                                                         (let ((&temp~0~2077 (car &temp~0~2075)))
                                                                                           (let ((&e1~0~2071 &temp~0~2077))
                                                                                             (let ((&temp~0~2076 (cdr &temp~0~2075)))
                                                                                               (if (null? &temp~0~2076)
                                                                                                 (cons
                                                                                                  (ex:syntax-rename
                                                                                                    'let
                                                                                                    '()
                                                                                                    '(&env~0~2073)
                                                                                                    0
                                                                                                    '(core derived))
                                                                                                  (cons
                                                                                                   (cons
                                                                                                    (cons
                                                                                                     (ex:syntax-rename
                                                                                                       't
                                                                                                       '()
                                                                                                       '(&env~0~2073)
                                                                                                       0
                                                                                                       '(core derived))
                                                                                                     (cons &e0~0~2070 '()))
                                                                                                    '())
                                                                                                   (cons
                                                                                                    (cons
                                                                                                     (ex:syntax-rename
                                                                                                       'if
                                                                                                       '()
                                                                                                       '(&env~0~2073)
                                                                                                       0
                                                                                                       '(core derived))
                                                                                                     (cons
                                                                                                      (ex:syntax-rename
                                                                                                        't
                                                                                                        '()
                                                                                                        '(&env~0~2073)
                                                                                                        0
                                                                                                        '(core derived))
                                                                                                      (cons
                                                                                                       (cons
                                                                                                        &e1~0~2071
                                                                                                        (cons
                                                                                                         (ex:syntax-rename
                                                                                                           't
                                                                                                           '()
                                                                                                           '(&env~0~2073)
                                                                                                           0
                                                                                                           '(core derived))
                                                                                                         '()))
                                                                                                       '())))
                                                                                                    '())))
                                                                                                 (&fail~0~2057)))))
                                                                                         (&fail~0~2057)))
                                                                                     (&fail~0~2057)))
                                                                                 (&fail~0~2057)))))
                                                                         (&fail~0~2057))))))
                                                             (if (pair? &input~0~2054)
                                                               (let ((&temp~0~2084 (car &input~0~2054)))
                                                                 (let ((&e0~0~2080 &temp~0~2084))
                                                                   (let ((&temp~0~2083 (cdr &input~0~2054)))
                                                                     (if (null? &temp~0~2083)
                                                                       (cons
                                                                        (ex:syntax-rename 'let '() '(&env~0~2082) 0 '(core derived))
                                                                        (cons
                                                                         (cons
                                                                          (cons
                                                                           (ex:syntax-rename 't '() '(&env~0~2082) 0 '(core derived))
                                                                           (cons &e0~0~2080 '()))
                                                                          '())
                                                                         (cons
                                                                          (cons
                                                                           (ex:syntax-rename
                                                                             'if
                                                                             '()
                                                                             '(&env~0~2082)
                                                                             0
                                                                             '(core derived))
                                                                           (cons
                                                                            (ex:syntax-rename
                                                                              't
                                                                              '()
                                                                              '(&env~0~2082)
                                                                              0
                                                                              '(core derived))
                                                                            (cons
                                                                             (ex:syntax-rename
                                                                               't
                                                                               '()
                                                                               '(&env~0~2082)
                                                                               0
                                                                               '(core derived))
                                                                             '())))
                                                                          '())))
                                                                       (&fail~0~2056)))))
                                                               (&fail~0~2056))))))
                                                   (if (pair? &input~0~2054)
                                                     (let ((&temp~0~2092 (car &input~0~2054)))
                                                       (if (and (ex:identifier? &temp~0~2092)
                                                                (ex:free-identifier=?
                                                                  &temp~0~2092
                                                                  (ex:syntax-rename 'else '() '(&env~0~2088) 0 '(core derived))))
                                                         (let ((&temp~0~2089 (cdr &input~0~2054)))
                                                           (if (pair? &temp~0~2089)
                                                             (let ((&temp~0~2091 (car &temp~0~2089)))
                                                               (let ((&e1~0~2085 &temp~0~2091))
                                                                 (let ((&temp~0~2090 (cdr &temp~0~2089)))
                                                                   (if (list? &temp~0~2090)
                                                                     (let ((&e2~0~2086 &temp~0~2090))
                                                                       (cons
                                                                        (ex:syntax-rename
                                                                          'begin
                                                                          '()
                                                                          '(&env~0~2088)
                                                                          0
                                                                          '(core derived))
                                                                        (cons &e1~0~2085 &e2~0~2086)))
                                                                     (&fail~0~2055)))))
                                                             (&fail~0~2055)))
                                                         (&fail~0~2055)))
                                                     (&fail~0~2055))))
                                               (&fail~0~2008)))))))
                                    ex:undefined)
                                   &c1~0~1989
                                   &c2~0~1990))
                                (&fail~0~1988)))))
                        (&fail~0~1988))))
                  (&fail~0~1988))))))
        (ex:register-macro!
          '&case~0~2099
          (lambda (&x~0~2101)
            (let ((&input~0~2103 &x~0~2101))
              (let ((&fail~0~2104 (lambda () (ex:invalid-form &input~0~2103))))
                (if (pair? &input~0~2103)
                  (let ((&temp~0~2178 (car &input~0~2103)))
                    (let ((&temp~0~2173 (cdr &input~0~2103)))
                      (if (pair? &temp~0~2173)
                        (let ((&temp~0~2177 (car &temp~0~2173)))
                          (let ((&e~0~2105 &temp~0~2177))
                            (let ((&temp~0~2174 (cdr &temp~0~2173)))
                              (if (pair? &temp~0~2174)
                                (let ((&temp~0~2176 (car &temp~0~2174)))
                                  (let ((&c1~0~2106 &temp~0~2176))
                                    (let ((&temp~0~2175 (cdr &temp~0~2174)))
                                      (if (list? &temp~0~2175)
                                        (let ((&c2~0~2107 &temp~0~2175))
                                          (let ((&input~0~2110
                                                  (((lambda (&f~0~2116)
                                                      ((lambda (&temp~0~2119) (set! &f~0~2116 &temp~0~2119) ((lambda () &f~0~2116)))
                                                       (lambda (&c1~0~2124 &cmore~0~2125)
                                                         (if (null? &cmore~0~2125)
                                                           (let ((&input~0~2128 &c1~0~2124))
                                                             (let ((&fail~0~2129
                                                                     (lambda ()
                                                                       (let ((&fail~0~2130
                                                                               (lambda () (ex:invalid-form &input~0~2128))))
                                                                         (if (pair? &input~0~2128)
                                                                           (let ((&temp~0~2139 (car &input~0~2128)))
                                                                             (if (list? &temp~0~2139)
                                                                               (let ((&k~0~2131 &temp~0~2139))
                                                                                 (let ((&temp~0~2136 (cdr &input~0~2128)))
                                                                                   (if (pair? &temp~0~2136)
                                                                                     (let ((&temp~0~2138 (car &temp~0~2136)))
                                                                                       (let ((&e1~0~2132 &temp~0~2138))
                                                                                         (let ((&temp~0~2137 (cdr &temp~0~2136)))
                                                                                           (if (list? &temp~0~2137)
                                                                                             (let ((&e2~0~2133 &temp~0~2137))
                                                                                               (cons
                                                                                                (ex:syntax-rename
                                                                                                  'if
                                                                                                  '()
                                                                                                  '(&env~0~2135)
                                                                                                  0
                                                                                                  '(core derived))
                                                                                                (cons
                                                                                                 (cons
                                                                                                  (ex:syntax-rename
                                                                                                    'memv
                                                                                                    '()
                                                                                                    '(&env~0~2135)
                                                                                                    0
                                                                                                    '(core derived))
                                                                                                  (cons
                                                                                                   (ex:syntax-rename
                                                                                                     't
                                                                                                     '()
                                                                                                     '(&env~0~2135)
                                                                                                     0
                                                                                                     '(core derived))
                                                                                                   (cons
                                                                                                    (cons
                                                                                                     (ex:syntax-rename
                                                                                                       'quote
                                                                                                       '()
                                                                                                       '(&env~0~2135)
                                                                                                       0
                                                                                                       '(core derived))
                                                                                                     (cons &k~0~2131 '()))
                                                                                                    '())))
                                                                                                 (cons
                                                                                                  (cons
                                                                                                   (ex:syntax-rename
                                                                                                     'begin
                                                                                                     '()
                                                                                                     '(&env~0~2135)
                                                                                                     0
                                                                                                     '(core derived))
                                                                                                   (cons &e1~0~2132 &e2~0~2133))
                                                                                                  '()))))
                                                                                             (&fail~0~2130)))))
                                                                                     (&fail~0~2130))))
                                                                               (&fail~0~2130)))
                                                                           (&fail~0~2130))))))
                                                               (if (pair? &input~0~2128)
                                                                 (let ((&temp~0~2147 (car &input~0~2128)))
                                                                   (if (and (ex:identifier? &temp~0~2147)
                                                                            (ex:free-identifier=?
                                                                              &temp~0~2147
                                                                              (ex:syntax-rename
                                                                                'else
                                                                                '()
                                                                                '(&env~0~2143)
                                                                                0
                                                                                '(core derived))))
                                                                     (let ((&temp~0~2144 (cdr &input~0~2128)))
                                                                       (if (pair? &temp~0~2144)
                                                                         (let ((&temp~0~2146 (car &temp~0~2144)))
                                                                           (let ((&e1~0~2140 &temp~0~2146))
                                                                             (let ((&temp~0~2145 (cdr &temp~0~2144)))
                                                                               (if (list? &temp~0~2145)
                                                                                 (let ((&e2~0~2141 &temp~0~2145))
                                                                                   (cons
                                                                                    (ex:syntax-rename
                                                                                      'begin
                                                                                      '()
                                                                                      '(&env~0~2143)
                                                                                      0
                                                                                      '(core derived))
                                                                                    (cons &e1~0~2140 &e2~0~2141)))
                                                                                 (&fail~0~2129)))))
                                                                         (&fail~0~2129)))
                                                                     (&fail~0~2129)))
                                                                 (&fail~0~2129))))
                                                           (let ((&input~0~2150 (&f~0~2116 (car &cmore~0~2125) (cdr &cmore~0~2125))))
                                                             (let ((&fail~0~2151 (lambda () (ex:invalid-form &input~0~2150))))
                                                               (let ((&rest~0~2152 &input~0~2150))
                                                                 (begin
                                                                   (let ((&input~0~2155 &c1~0~2124))
                                                                     (let ((&fail~0~2156
                                                                             (lambda () (ex:invalid-form &input~0~2155))))
                                                                       (if (pair? &input~0~2155)
                                                                         (let ((&temp~0~2165 (car &input~0~2155)))
                                                                           (if (list? &temp~0~2165)
                                                                             (let ((&k~0~2157 &temp~0~2165))
                                                                               (let ((&temp~0~2162 (cdr &input~0~2155)))
                                                                                 (if (pair? &temp~0~2162)
                                                                                   (let ((&temp~0~2164 (car &temp~0~2162)))
                                                                                     (let ((&e1~0~2158 &temp~0~2164))
                                                                                       (let ((&temp~0~2163 (cdr &temp~0~2162)))
                                                                                         (if (list? &temp~0~2163)
                                                                                           (let ((&e2~0~2159 &temp~0~2163))
                                                                                             (cons
                                                                                              (ex:syntax-rename
                                                                                                'if
                                                                                                '()
                                                                                                '(&env~0~2161)
                                                                                                0
                                                                                                '(core derived))
                                                                                              (cons
                                                                                               (cons
                                                                                                (ex:syntax-rename
                                                                                                  'memv
                                                                                                  '()
                                                                                                  '(&env~0~2161)
                                                                                                  0
                                                                                                  '(core derived))
                                                                                                (cons
                                                                                                 (ex:syntax-rename
                                                                                                   't
                                                                                                   '()
                                                                                                   '(&env~0~2161)
                                                                                                   0
                                                                                                   '(core derived))
                                                                                                 (cons
                                                                                                  (cons
                                                                                                   (ex:syntax-rename
                                                                                                     'quote
                                                                                                     '()
                                                                                                     '(&env~0~2161)
                                                                                                     0
                                                                                                     '(core derived))
                                                                                                   (cons &k~0~2157 '()))
                                                                                                  '())))
                                                                                               (cons
                                                                                                (cons
                                                                                                 (ex:syntax-rename
                                                                                                   'begin
                                                                                                   '()
                                                                                                   '(&env~0~2161)
                                                                                                   0
                                                                                                   '(core derived))
                                                                                                 (cons &e1~0~2158 &e2~0~2159))
                                                                                                (cons &rest~0~2152 '())))))
                                                                                           (&fail~0~2156)))))
                                                                                   (&fail~0~2156))))
                                                                             (&fail~0~2156)))
                                                                         (&fail~0~2156))))))))))))
                                                    ex:undefined)
                                                   &c1~0~2106
                                                   &c2~0~2107)))
                                            (let ((&fail~0~2168 (lambda () (ex:invalid-form &input~0~2110))))
                                              (let ((&body~0~2169 &input~0~2110))
                                                (begin
                                                  (cons
                                                   (ex:syntax-rename 'let '() '(&env~0~2172) 0 '(core derived))
                                                   (cons
                                                    (cons
                                                     (cons
                                                      (ex:syntax-rename 't '() '(&env~0~2172) 0 '(core derived))
                                                      (cons &e~0~2105 '()))
                                                     '())
                                                    (cons &body~0~2169 '()))))))))
                                        (&fail~0~2104)))))
                                (&fail~0~2104)))))
                        (&fail~0~2104))))
                  (&fail~0~2104))))))
        (ex:register-macro! '&=>~0~2179 (lambda (&x~0~2181) (ex:syntax-violation '=> "Invalid expression" &x~0~2181)))
        (ex:register-macro! '&else~0~2183 (lambda (&x~0~2185) (ex:syntax-violation 'else "Invalid expression" &x~0~2185)))
        (values))
      (lambda () (values))
      '&build~0~2187))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core identifier-syntax)
      (lambda ()
        (ex:uncompress
          '(((&env~0~2228 0 1 2 3) (&env~0~2205 4 1 2 3))
            (4 (((id) . #f) ((exp1) . #f) ((var) . #f) ((val) . #f) ((exp2) . #f)))
            (3
             (((identifier-syntax) macro &identifier-syntax~0~2188 (0) #f (core identifier-syntax))
              ((identifier?) variable ex:identifier? (1 0 -1) #f ())
              ((make-variable-transformer) variable ex:make-variable-transformer (1 0 -1) #f ())
              ((syntax-case) macro syntax-case (1 0 -1) #f ())
              ((syntax) macro syntax (1 0 -1) #f ())
              ((...) macro ... (1 0 -1) #f ())
              ((_) macro _ (1 0 -1) #f ())
              ((define-syntax) macro define-syntax (1 0 -1) #f ())
              ((and) macro and (1 0 -1) #f ())
              ((set!) macro set! (1 0 -1) #f ())
              ((lambda) macro lambda (1 0 -1) #f ())))
            (2 (((x) variable &x~0~2190 (1) #f (core identifier-syntax))))
            (1 ())
            (0 (((e) . #f))))))
      '((identifier-syntax macro &identifier-syntax~0~2188 (0) #f (core identifier-syntax)))
      '(((core primitives) 1 0 -1))
      '(&build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&identifier-syntax~0~2188
          (lambda (&x~0~2190)
            (let ((&input~0~2192 &x~0~2190))
              (let ((&fail~0~2193
                      (lambda ()
                        (let ((&fail~0~2194 (lambda () (ex:invalid-form &input~0~2192))))
                          (if (pair? &input~0~2192)
                            (let ((&temp~0~2225 (car &input~0~2192)))
                              (let ((&temp~0~2206 (cdr &input~0~2192)))
                                (if (pair? &temp~0~2206)
                                  (let ((&temp~0~2220 (car &temp~0~2206)))
                                    (if (pair? &temp~0~2220)
                                      (let ((&temp~0~2224 (car &temp~0~2220)))
                                        (let ((&id~0~2195 &temp~0~2224))
                                          (let ((&temp~0~2221 (cdr &temp~0~2220)))
                                            (if (pair? &temp~0~2221)
                                              (let ((&temp~0~2223 (car &temp~0~2221)))
                                                (let ((&exp1~0~2196 &temp~0~2223))
                                                  (let ((&temp~0~2222 (cdr &temp~0~2221)))
                                                    (if (null? &temp~0~2222)
                                                      (let ((&temp~0~2207 (cdr &temp~0~2206)))
                                                        (if (pair? &temp~0~2207)
                                                          (let ((&temp~0~2209 (car &temp~0~2207)))
                                                            (if (pair? &temp~0~2209)
                                                              (let ((&temp~0~2213 (car &temp~0~2209)))
                                                                (if (pair? &temp~0~2213)
                                                                  (let ((&temp~0~2219 (car &temp~0~2213)))
                                                                    (if (and (ex:identifier? &temp~0~2219)
                                                                             (ex:free-identifier=?
                                                                               &temp~0~2219
                                                                               (ex:syntax-rename
                                                                                 'set!
                                                                                 '()
                                                                                 '(&env~0~2205)
                                                                                 0
                                                                                 '(core identifier-syntax))))
                                                                      (let ((&temp~0~2214 (cdr &temp~0~2213)))
                                                                        (if (pair? &temp~0~2214)
                                                                          (let ((&temp~0~2218 (car &temp~0~2214)))
                                                                            (let ((&var~0~2197 &temp~0~2218))
                                                                              (let ((&temp~0~2215 (cdr &temp~0~2214)))
                                                                                (if (pair? &temp~0~2215)
                                                                                  (let ((&temp~0~2217 (car &temp~0~2215)))
                                                                                    (let ((&val~0~2198 &temp~0~2217))
                                                                                      (let ((&temp~0~2216 (cdr &temp~0~2215)))
                                                                                        (if (null? &temp~0~2216)
                                                                                          (let ((&temp~0~2210 (cdr &temp~0~2209)))
                                                                                            (if (pair? &temp~0~2210)
                                                                                              (let ((&temp~0~2212
                                                                                                      (car &temp~0~2210)))
                                                                                                (let ((&exp2~0~2199 &temp~0~2212))
                                                                                                  (let ((&temp~0~2211
                                                                                                          (cdr &temp~0~2210)))
                                                                                                    (if (null? &temp~0~2211)
                                                                                                      (let ((&temp~0~2208
                                                                                                              (cdr &temp~0~2207)))
                                                                                                        (if (null? &temp~0~2208)
                                                                                                          (if (if (ex:identifier?
                                                                                                                    &id~0~2195)
                                                                                                                (ex:identifier?
                                                                                                                  &var~0~2197)
                                                                                                                #f)
                                                                                                            (cons
                                                                                                             (ex:syntax-rename
                                                                                                               'make-variable-transformer
                                                                                                               '()
                                                                                                               '(&env~0~2205)
                                                                                                               0
                                                                                                               '(core
                                                                                                                 identifier-syntax))
                                                                                                             (cons
                                                                                                              (cons
                                                                                                               (ex:syntax-rename
                                                                                                                 'lambda
                                                                                                                 '()
                                                                                                                 '(&env~0~2205)
                                                                                                                 0
                                                                                                                 '(core
                                                                                                                   identifier-syntax))
                                                                                                               (cons
                                                                                                                (cons
                                                                                                                 (ex:syntax-rename
                                                                                                                   'x
                                                                                                                   '()
                                                                                                                   '(&env~0~2205)
                                                                                                                   0
                                                                                                                   '(core
                                                                                                                     identifier-syntax))
                                                                                                                 '())
                                                                                                                (cons
                                                                                                                 (cons
                                                                                                                  (ex:syntax-rename
                                                                                                                    'syntax-case
                                                                                                                    '()
                                                                                                                    '(&env~0~2205)
                                                                                                                    0
                                                                                                                    '(core
                                                                                                                      identifier-syntax))
                                                                                                                  (cons
                                                                                                                   (ex:syntax-rename
                                                                                                                     'x
                                                                                                                     '()
                                                                                                                     '(&env~0~2205)
                                                                                                                     0
                                                                                                                     '(core
                                                                                                                       identifier-syntax))
                                                                                                                   (cons
                                                                                                                    (cons
                                                                                                                     (ex:syntax-rename
                                                                                                                       'set!
                                                                                                                       '()
                                                                                                                       '(&env~0~2205)
                                                                                                                       0
                                                                                                                       '(core
                                                                                                                         identifier-syntax))
                                                                                                                     '())
                                                                                                                    (cons
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (ex:syntax-rename
                                                                                                                         'set!
                                                                                                                         '()
                                                                                                                         '(&env~0~2205)
                                                                                                                         0
                                                                                                                         '(core
                                                                                                                           identifier-syntax))
                                                                                                                       (cons
                                                                                                                        &var~0~2197
                                                                                                                        (cons
                                                                                                                         &val~0~2198
                                                                                                                         '())))
                                                                                                                      (cons
                                                                                                                       (cons
                                                                                                                        (ex:syntax-rename
                                                                                                                          'syntax
                                                                                                                          '()
                                                                                                                          '(&env~0~2205)
                                                                                                                          0
                                                                                                                          '(core
                                                                                                                            identifier-syntax))
                                                                                                                        (cons
                                                                                                                         &exp2~0~2199
                                                                                                                         '()))
                                                                                                                       '()))
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (cons
                                                                                                                        &id~0~2195
                                                                                                                        (cons
                                                                                                                         (ex:syntax-rename
                                                                                                                           'x
                                                                                                                           '()
                                                                                                                           '(&env~0~2205)
                                                                                                                           0
                                                                                                                           '(core
                                                                                                                             identifier-syntax))
                                                                                                                         (cons
                                                                                                                          (ex:syntax-rename
                                                                                                                            '...
                                                                                                                            '()
                                                                                                                            '(&env~0~2205)
                                                                                                                            0
                                                                                                                            '(core
                                                                                                                              identifier-syntax))
                                                                                                                          '())))
                                                                                                                       (cons
                                                                                                                        (cons
                                                                                                                         (ex:syntax-rename
                                                                                                                           'syntax
                                                                                                                           '()
                                                                                                                           '(&env~0~2205)
                                                                                                                           0
                                                                                                                           '(core
                                                                                                                             identifier-syntax))
                                                                                                                         (cons
                                                                                                                          (cons
                                                                                                                           &exp1~0~2196
                                                                                                                           (cons
                                                                                                                            (ex:syntax-rename
                                                                                                                              'x
                                                                                                                              '()
                                                                                                                              '(&env~0~2205)
                                                                                                                              0
                                                                                                                              '(core
                                                                                                                                identifier-syntax))
                                                                                                                            (cons
                                                                                                                             (ex:syntax-rename
                                                                                                                               '...
                                                                                                                               '()
                                                                                                                               '(&env~0~2205)
                                                                                                                               0
                                                                                                                               '(core
                                                                                                                                 identifier-syntax))
                                                                                                                             '())))
                                                                                                                          '()))
                                                                                                                        '()))
                                                                                                                      (cons
                                                                                                                       (cons
                                                                                                                        &id~0~2195
                                                                                                                        (cons
                                                                                                                         (cons
                                                                                                                          (ex:syntax-rename
                                                                                                                            'identifier?
                                                                                                                            '()
                                                                                                                            '(&env~0~2205)
                                                                                                                            0
                                                                                                                            '(core
                                                                                                                              identifier-syntax))
                                                                                                                          (cons
                                                                                                                           (cons
                                                                                                                            (ex:syntax-rename
                                                                                                                              'syntax
                                                                                                                              '()
                                                                                                                              '(&env~0~2205)
                                                                                                                              0
                                                                                                                              '(core
                                                                                                                                identifier-syntax))
                                                                                                                            (cons
                                                                                                                             &id~0~2195
                                                                                                                             '()))
                                                                                                                           '()))
                                                                                                                         (cons
                                                                                                                          (cons
                                                                                                                           (ex:syntax-rename
                                                                                                                             'syntax
                                                                                                                             '()
                                                                                                                             '(&env~0~2205)
                                                                                                                             0
                                                                                                                             '(core
                                                                                                                               identifier-syntax))
                                                                                                                           (cons
                                                                                                                            &exp1~0~2196
                                                                                                                            '()))
                                                                                                                          '())))
                                                                                                                       '()))))))
                                                                                                                 '())))
                                                                                                              '()))
                                                                                                            (&fail~0~2194))
                                                                                                          (&fail~0~2194)))
                                                                                                      (&fail~0~2194)))))
                                                                                              (&fail~0~2194)))
                                                                                          (&fail~0~2194)))))
                                                                                  (&fail~0~2194)))))
                                                                          (&fail~0~2194)))
                                                                      (&fail~0~2194)))
                                                                  (&fail~0~2194)))
                                                              (&fail~0~2194)))
                                                          (&fail~0~2194)))
                                                      (&fail~0~2194)))))
                                              (&fail~0~2194)))))
                                      (&fail~0~2194)))
                                  (&fail~0~2194))))
                            (&fail~0~2194))))))
                (if (pair? &input~0~2192)
                  (let ((&temp~0~2232 (car &input~0~2192)))
                    (let ((&temp~0~2229 (cdr &input~0~2192)))
                      (if (pair? &temp~0~2229)
                        (let ((&temp~0~2231 (car &temp~0~2229)))
                          (let ((&e~0~2226 &temp~0~2231))
                            (let ((&temp~0~2230 (cdr &temp~0~2229)))
                              (if (null? &temp~0~2230)
                                (cons
                                 (ex:syntax-rename 'lambda '() '(&env~0~2228) 0 '(core identifier-syntax))
                                 (cons
                                  (cons (ex:syntax-rename 'x '() '(&env~0~2228) 0 '(core identifier-syntax)) '())
                                  (cons
                                   (cons
                                    (ex:syntax-rename 'syntax-case '() '(&env~0~2228) 0 '(core identifier-syntax))
                                    (cons
                                     (ex:syntax-rename 'x '() '(&env~0~2228) 0 '(core identifier-syntax))
                                     (cons
                                      '()
                                      (cons
                                       (cons
                                        (ex:syntax-rename 'id '() '(&env~0~2228) 0 '(core identifier-syntax))
                                        (cons
                                         (cons
                                          (ex:syntax-rename 'identifier? '() '(&env~0~2228) 0 '(core identifier-syntax))
                                          (cons
                                           (cons
                                            (ex:syntax-rename 'syntax '() '(&env~0~2228) 0 '(core identifier-syntax))
                                            (cons (ex:syntax-rename 'id '() '(&env~0~2228) 0 '(core identifier-syntax)) '()))
                                           '()))
                                         (cons
                                          (cons
                                           (ex:syntax-rename 'syntax '() '(&env~0~2228) 0 '(core identifier-syntax))
                                           (cons &e~0~2226 '()))
                                          '())))
                                       (cons
                                        (cons
                                         (cons
                                          (ex:syntax-rename '_ '() '(&env~0~2228) 0 '(core identifier-syntax))
                                          (cons
                                           (ex:syntax-rename 'x '() '(&env~0~2228) 0 '(core identifier-syntax))
                                           (cons (ex:syntax-rename '... '() '(&env~0~2228) 0 '(core identifier-syntax)) '())))
                                         (cons
                                          (cons
                                           (ex:syntax-rename 'syntax '() '(&env~0~2228) 0 '(core identifier-syntax))
                                           (cons
                                            (cons
                                             &e~0~2226
                                             (cons
                                              (ex:syntax-rename 'x '() '(&env~0~2228) 0 '(core identifier-syntax))
                                              (cons (ex:syntax-rename '... '() '(&env~0~2228) 0 '(core identifier-syntax)) '())))
                                            '()))
                                          '()))
                                        '())))))
                                   '())))
                                (&fail~0~2193)))))
                        (&fail~0~2193))))
                  (&fail~0~2193))))))
        (values))
      (lambda () (values))
      '&build~0~2233))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core quasisyntax)
      (lambda ()
        (ex:uncompress
          '(((&env~0~2451 0 1 2 3 4 5)
             (&env~0~2423 6 1 2 3 4 5)
             (&env~0~2407 7 1 2 3 4 5)
             (&env~0~2381 8 1 2 3 4 5)
             (&env~0~2362 9 8 1 2 3 4 5)
             (&env~0~2327 10 1 2 3 4 5)
             (&env~0~2251 11 12 3 4 5))
            (12 (((template) . #f)))
            (11 (((template*) . #f) ((replacements) . #f)))
            (10 (((k) . #f) ((r) . #f)))
            (9 (((r*) . #f) ((rep) . #f) ((t) . #f)))
            (8 (((e) . #f) ((r) . #f)))
            (7 (((e) . #f) ((r) . #f)))
            (6 (((e) . #f)))
            (5
             (((unsyntax-splicing) macro &unsyntax-splicing~0~2456 (0) #f (core quasisyntax))
              ((unsyntax) macro &unsyntax~0~2452 (0) #f (core quasisyntax))
              ((quasisyntax) macro &quasisyntax~0~2234 (0) #f (core quasisyntax))
              ((syntax-violation) variable ex:syntax-violation (0 1) #f ())
              ((generate-temporaries) variable ex:generate-temporaries (0 1) #f ())
              ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ())
              ((identifier?) variable ex:identifier? (0 1) #f ())
              ((vector->list) variable vector->list (0 1) #f ())
              ((>) variable > (0 1) #f ())
              ((=) variable = (0 1) #f ())
              ((-) variable - (0 1) #f ())
              ((+) variable + (0 1) #f ())
              ((syntax-case) macro syntax-case (0 1) #f ())
              ((syntax) macro syntax (0 1) #f ())
              ((...) macro ... (0 1) #f ())
              ((_) macro _ (0 1) #f ())
              ((define-syntax) macro define-syntax (0 1) #f ())
              ((define) macro define (0 1) #f ())
              ((or) macro or (0 1) #f ())
              ((and) macro and (0 1) #f ())
              ((quote) macro quote (0 1) #f ())
              ((lambda) macro lambda (0 1) #f ())
              ((letrec*) macro &letrec*~0~1877 (0 1) #f (core let))
              ((letrec) macro &letrec~0~1846 (0 1) #f (core let))
              ((let) macro &let~0~1798 (0 1) #f (core let))
              ((=>) macro &=>~0~2179 (0 1) #f (core derived))
              ((else) macro &else~0~2183 (0 1) #f (core derived))
              ((case) macro &case~0~2099 (0 1) #f (core derived))
              ((cond) macro &cond~0~1983 (0 1) #f (core derived))
              ((let*) macro &let*~0~1902 (0 1) #f (core derived))
              ((with-syntax) macro &with-syntax~0~1701 (0 1) #f (core with-syntax))))
            (4 (((e) variable &e~0~2236 (1) #f (core quasisyntax))))
            (3 (((expand) variable &expand~0~2237 (1) #f (core quasisyntax))))
            (2 (((x) variable &x~0~2261 (1) #f (core quasisyntax)) ((level) variable &level~0~2262 (1) #f (core quasisyntax))))
            (1 ())
            (0 (((e) . #f))))))
      '((quasisyntax macro &quasisyntax~0~2234 (0) #f (core quasisyntax))
        (unsyntax macro &unsyntax~0~2452 (0) #f (core quasisyntax))
        (unsyntax-splicing macro &unsyntax-splicing~0~2456 (0) #f (core quasisyntax)))
      '(((core with-syntax) 0 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1))
      '(&build~0~1755 &build~0~2187 &build~0~1901 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&quasisyntax~0~2234
          (lambda (&e~0~2236)
            ((lambda (&expand~0~2237)
               (set! &expand~0~2237
                 (lambda (&x~0~2261 &level~0~2262)
                   (let ((&input~0~2264 &x~0~2261))
                     (let ((&fail~0~2265
                             (lambda ()
                               (let ((&fail~0~2266
                                       (lambda ()
                                         (let ((&fail~0~2267
                                                 (lambda ()
                                                   (let ((&fail~0~2268
                                                           (lambda ()
                                                             (let ((&fail~0~2269
                                                                     (lambda ()
                                                                       (let ((&fail~0~2270
                                                                               (lambda ()
                                                                                 (let ((&fail~0~2271
                                                                                         (lambda ()
                                                                                           (let ((&fail~0~2272
                                                                                                   (lambda ()
                                                                                                     (ex:invalid-form
                                                                                                       &input~0~2264))))
                                                                                             (let ((&other~0~2273 &input~0~2264))
                                                                                               (cons
                                                                                                &other~0~2273
                                                                                                (cons '() '())))))))
                                                                                   (if (vector? &input~0~2264)
                                                                                     (let ((&temp~0~2289
                                                                                             (vector->list &input~0~2264)))
                                                                                       (if (list? &temp~0~2289)
                                                                                         (let ((&e~0~2275 &temp~0~2289))
                                                                                           (let ((&input~0~2278
                                                                                                   (&expand~0~2237
                                                                                                     (vector->list
                                                                                                       (list->vector &e~0~2275))
                                                                                                     &level~0~2262)))
                                                                                             (let ((&fail~0~2280
                                                                                                     (lambda ()
                                                                                                       (ex:invalid-form
                                                                                                         &input~0~2278))))
                                                                                               (if (pair? &input~0~2278)
                                                                                                 (let ((&temp~0~2288
                                                                                                         (car &input~0~2278)))
                                                                                                   (if (list? &temp~0~2288)
                                                                                                     (let ((&e*~0~2281 &temp~0~2288))
                                                                                                       (let ((&temp~0~2285
                                                                                                               (cdr &input~0~2278)))
                                                                                                         (if (pair? &temp~0~2285)
                                                                                                           (let ((&temp~0~2287
                                                                                                                   (car
                                                                                                                    &temp~0~2285)))
                                                                                                             (let ((&reps~0~2282
                                                                                                                     &temp~0~2287))
                                                                                                               (let ((&temp~0~2286
                                                                                                                       (cdr
                                                                                                                        &temp~0~2285)))
                                                                                                                 (if (null?
                                                                                                                      &temp~0~2286)
                                                                                                                   (begin
                                                                                                                     (cons
                                                                                                                      (list->vector
                                                                                                                        &e*~0~2281)
                                                                                                                      (cons
                                                                                                                       &reps~0~2282
                                                                                                                       '())))
                                                                                                                   (&fail~0~2280)))))
                                                                                                           (&fail~0~2280))))
                                                                                                     (&fail~0~2280)))
                                                                                                 (&fail~0~2280)))))
                                                                                         (&fail~0~2271)))
                                                                                     (&fail~0~2271))))))
                                                                         (if (pair? &input~0~2264)
                                                                           (let ((&temp~0~2317 (car &input~0~2264)))
                                                                             (let ((&h~0~2290 &temp~0~2317))
                                                                               (let ((&temp~0~2316 (cdr &input~0~2264)))
                                                                                 (let ((&t~0~2291 &temp~0~2316))
                                                                                   (let ((&input~0~2294
                                                                                           (list
                                                                                            (&expand~0~2237 &h~0~2290 &level~0~2262)
                                                                                            (&expand~0~2237
                                                                                              &t~0~2291
                                                                                              &level~0~2262))))
                                                                                     (let ((&fail~0~2297
                                                                                             (lambda ()
                                                                                               (ex:invalid-form &input~0~2294))))
                                                                                       (if (pair? &input~0~2294)
                                                                                         (let ((&temp~0~2311 (car &input~0~2294)))
                                                                                           (if (pair? &temp~0~2311)
                                                                                             (let ((&temp~0~2315 (car &temp~0~2311)))
                                                                                               (let ((&h*~0~2298 &temp~0~2315))
                                                                                                 (let ((&temp~0~2312
                                                                                                         (cdr &temp~0~2311)))
                                                                                                   (if (pair? &temp~0~2312)
                                                                                                     (let ((&temp~0~2314
                                                                                                             (car &temp~0~2312)))
                                                                                                       (if (list? &temp~0~2314)
                                                                                                         (let ((&rep1~0~2299
                                                                                                                 &temp~0~2314))
                                                                                                           (let ((&temp~0~2313
                                                                                                                   (cdr
                                                                                                                    &temp~0~2312)))
                                                                                                             (if (null? &temp~0~2313)
                                                                                                               (let ((&temp~0~2304
                                                                                                                       (cdr
                                                                                                                        &input~0~2294)))
                                                                                                                 (if (pair?
                                                                                                                      &temp~0~2304)
                                                                                                                   (let ((&temp~0~2306
                                                                                                                           (car
                                                                                                                            &temp~0~2304)))
                                                                                                                     (if (pair?
                                                                                                                          &temp~0~2306)
                                                                                                                       (let ((&temp~0~2310
                                                                                                                               (car
                                                                                                                                &temp~0~2306)))
                                                                                                                         (let ((&t*~0~2300
                                                                                                                                 &temp~0~2310))
                                                                                                                           (let ((&temp~0~2307
                                                                                                                                   (cdr
                                                                                                                                    &temp~0~2306)))
                                                                                                                             (if (pair?
                                                                                                                                  &temp~0~2307)
                                                                                                                               (let ((&temp~0~2309
                                                                                                                                       (car
                                                                                                                                        &temp~0~2307)))
                                                                                                                                 (if (list?
                                                                                                                                      &temp~0~2309)
                                                                                                                                   (let ((&rep2~0~2301
                                                                                                                                           &temp~0~2309))
                                                                                                                                     (let ((&temp~0~2308
                                                                                                                                             (cdr
                                                                                                                                              &temp~0~2307)))
                                                                                                                                       (if (null?
                                                                                                                                            &temp~0~2308)
                                                                                                                                         (let ((&temp~0~2305
                                                                                                                                                 (cdr
                                                                                                                                                  &temp~0~2304)))
                                                                                                                                           (if (null?
                                                                                                                                                &temp~0~2305)
                                                                                                                                             (begin
                                                                                                                                               (cons
                                                                                                                                                (cons
                                                                                                                                                 &h*~0~2298
                                                                                                                                                 &t*~0~2300)
                                                                                                                                                (cons
                                                                                                                                                 (append
                                                                                                                                                   &rep1~0~2299
                                                                                                                                                   &rep2~0~2301)
                                                                                                                                                 '())))
                                                                                                                                             (&fail~0~2297)))
                                                                                                                                         (&fail~0~2297))))
                                                                                                                                   (&fail~0~2297)))
                                                                                                                               (&fail~0~2297)))))
                                                                                                                       (&fail~0~2297)))
                                                                                                                   (&fail~0~2297)))
                                                                                                               (&fail~0~2297))))
                                                                                                         (&fail~0~2297)))
                                                                                                     (&fail~0~2297)))))
                                                                                             (&fail~0~2297)))
                                                                                         (&fail~0~2297))))))))
                                                                           (&fail~0~2270))))))
                                                               (if (pair? &input~0~2264)
                                                                 (let ((&temp~0~2345 (car &input~0~2264)))
                                                                   (let ((&k~0~2318 &temp~0~2345))
                                                                     (let ((&temp~0~2344 (cdr &input~0~2264)))
                                                                       (let ((&r~0~2319 &temp~0~2344))
                                                                         (if (if (> &level~0~2262 0)
                                                                               (if (ex:identifier? &k~0~2318)
                                                                                 (let ((x
                                                                                        (ex:free-identifier=?
                                                                                          &k~0~2318
                                                                                          (ex:syntax-rename
                                                                                            'unsyntax
                                                                                            '()
                                                                                            '(&env~0~2327)
                                                                                            0
                                                                                            '(core quasisyntax)))))
                                                                                   (if x
                                                                                     x
                                                                                     (ex:free-identifier=?
                                                                                       &k~0~2318
                                                                                       (ex:syntax-rename
                                                                                         'unsyntax-splicing
                                                                                         '()
                                                                                         '(&env~0~2327)
                                                                                         0
                                                                                         '(core quasisyntax)))))
                                                                                 #f)
                                                                               #f)
                                                                           (let ((&input~0~2333
                                                                                   (&expand~0~2237 &r~0~2319 (- &level~0~2262 1))))
                                                                             (let ((&fail~0~2335
                                                                                     (lambda () (ex:invalid-form &input~0~2333))))
                                                                               (if (pair? &input~0~2333)
                                                                                 (let ((&temp~0~2343 (car &input~0~2333)))
                                                                                   (let ((&r*~0~2336 &temp~0~2343))
                                                                                     (let ((&temp~0~2340 (cdr &input~0~2333)))
                                                                                       (if (pair? &temp~0~2340)
                                                                                         (let ((&temp~0~2342 (car &temp~0~2340)))
                                                                                           (let ((&reps~0~2337 &temp~0~2342))
                                                                                             (let ((&temp~0~2341 (cdr &temp~0~2340)))
                                                                                               (if (null? &temp~0~2341)
                                                                                                 (begin
                                                                                                   (cons
                                                                                                    (cons &k~0~2318 &r*~0~2336)
                                                                                                    (cons &reps~0~2337 '())))
                                                                                                 (&fail~0~2335)))))
                                                                                         (&fail~0~2335)))))
                                                                                 (&fail~0~2335))))
                                                                           (&fail~0~2269))))))
                                                                 (&fail~0~2269))))))
                                                     (if (pair? &input~0~2264)
                                                       (let ((&temp~0~2378 (car &input~0~2264)))
                                                         (if (pair? &temp~0~2378)
                                                           (let ((&temp~0~2380 (car &temp~0~2378)))
                                                             (if (and (ex:identifier? &temp~0~2380)
                                                                      (ex:free-identifier=?
                                                                        &temp~0~2380
                                                                        (ex:syntax-rename
                                                                          'unsyntax-splicing
                                                                          '()
                                                                          '(&env~0~2381)
                                                                          0
                                                                          '(core quasisyntax))))
                                                               (let ((&temp~0~2379 (cdr &temp~0~2378)))
                                                                 (if (list? &temp~0~2379)
                                                                   (let ((&e~0~2346 &temp~0~2379))
                                                                     (let ((&temp~0~2377 (cdr &input~0~2264)))
                                                                       (let ((&r~0~2347 &temp~0~2377))
                                                                         (if (= &level~0~2262 0)
                                                                           (let ((&input~0~2350
                                                                                   (list
                                                                                    (&expand~0~2237 &r~0~2347 0)
                                                                                    (ex:generate-temporaries &e~0~2346))))
                                                                             (let ((&fail~0~2353
                                                                                     (lambda () (ex:invalid-form &input~0~2350))))
                                                                               (if (pair? &input~0~2350)
                                                                                 (let ((&temp~0~2372 (car &input~0~2350)))
                                                                                   (if (pair? &temp~0~2372)
                                                                                     (let ((&temp~0~2376 (car &temp~0~2372)))
                                                                                       (let ((&r*~0~2354 &temp~0~2376))
                                                                                         (let ((&temp~0~2373 (cdr &temp~0~2372)))
                                                                                           (if (pair? &temp~0~2373)
                                                                                             (let ((&temp~0~2375 (car &temp~0~2373)))
                                                                                               (if (list? &temp~0~2375)
                                                                                                 (let ((&rep~0~2355 &temp~0~2375))
                                                                                                   (let ((&temp~0~2374
                                                                                                           (cdr &temp~0~2373)))
                                                                                                     (if (null? &temp~0~2374)
                                                                                                       (let ((&temp~0~2369
                                                                                                               (cdr &input~0~2350)))
                                                                                                         (if (pair? &temp~0~2369)
                                                                                                           (let ((&temp~0~2371
                                                                                                                   (car
                                                                                                                    &temp~0~2369)))
                                                                                                             (if (list? &temp~0~2371)
                                                                                                               (let ((&t~0~2356
                                                                                                                       &temp~0~2371))
                                                                                                                 (let ((&temp~0~2370
                                                                                                                         (cdr
                                                                                                                          &temp~0~2369)))
                                                                                                                   (if (null?
                                                                                                                        &temp~0~2370)
                                                                                                                     (begin
                                                                                                                       (let ((&input~0~2360
                                                                                                                               (map
                                                                                                                                (lambda (&t~0~2356)
                                                                                                                                  (cons
                                                                                                                                   &t~0~2356
                                                                                                                                   (cons
                                                                                                                                    (ex:syntax-rename
                                                                                                                                      '...
                                                                                                                                      '()
                                                                                                                                      '(&env~0~2362)
                                                                                                                                      0
                                                                                                                                      '(core
                                                                                                                                        quasisyntax))
                                                                                                                                    '())))
                                                                                                                                &t~0~2356)))
                                                                                                                         (let ((&fail~0~2363
                                                                                                                                 (lambda ()
                                                                                                                                   (ex:invalid-form
                                                                                                                                     &input~0~2360))))
                                                                                                                           (ex:map-while
                                                                                                                             (lambda (&input~0~2360)
                                                                                                                               (if (list?
                                                                                                                                    &input~0~2360)
                                                                                                                                 (let ((&t~0~2364
                                                                                                                                         &input~0~2360))
                                                                                                                                   (list
                                                                                                                                    &t~0~2364))
                                                                                                                                 #f))
                                                                                                                             &input~0~2360
                                                                                                                             (lambda (&cols~0~2367
                                                                                                                                      &rest~0~2368)
                                                                                                                               (if (null?
                                                                                                                                    &rest~0~2368)
                                                                                                                                 (apply
                                                                                                                                  (lambda (&t~0~2364)
                                                                                                                                    (begin
                                                                                                                                      (cons
                                                                                                                                       (append
                                                                                                                                         (apply
                                                                                                                                          append
                                                                                                                                          &t~0~2364)
                                                                                                                                         &r*~0~2354)
                                                                                                                                       (cons
                                                                                                                                        (append
                                                                                                                                          (map
                                                                                                                                           (lambda (&t~0~2364
                                                                                                                                                    &e~0~2346)
                                                                                                                                             (cons
                                                                                                                                              &t~0~2364
                                                                                                                                              (cons
                                                                                                                                               &e~0~2346
                                                                                                                                               '())))
                                                                                                                                           &t~0~2364
                                                                                                                                           &e~0~2346)
                                                                                                                                          &rep~0~2355)
                                                                                                                                        '()))))
                                                                                                                                  (if (null?
                                                                                                                                       &cols~0~2367)
                                                                                                                                    '(())
                                                                                                                                    (apply
                                                                                                                                     map
                                                                                                                                     list
                                                                                                                                     &cols~0~2367)))
                                                                                                                                 (&fail~0~2363)))))))
                                                                                                                     (&fail~0~2353))))
                                                                                                               (&fail~0~2353)))
                                                                                                           (&fail~0~2353)))
                                                                                                       (&fail~0~2353))))
                                                                                                 (&fail~0~2353)))
                                                                                             (&fail~0~2353)))))
                                                                                     (&fail~0~2353)))
                                                                                 (&fail~0~2353))))
                                                                           (&fail~0~2268)))))
                                                                   (&fail~0~2268)))
                                                               (&fail~0~2268)))
                                                           (&fail~0~2268)))
                                                       (&fail~0~2268))))))
                                           (if (pair? &input~0~2264)
                                             (let ((&temp~0~2404 (car &input~0~2264)))
                                               (if (pair? &temp~0~2404)
                                                 (let ((&temp~0~2406 (car &temp~0~2404)))
                                                   (if (and (ex:identifier? &temp~0~2406)
                                                            (ex:free-identifier=?
                                                              &temp~0~2406
                                                              (ex:syntax-rename 'unsyntax '() '(&env~0~2407) 0 '(core quasisyntax))))
                                                     (let ((&temp~0~2405 (cdr &temp~0~2404)))
                                                       (if (list? &temp~0~2405)
                                                         (let ((&e~0~2382 &temp~0~2405))
                                                           (let ((&temp~0~2403 (cdr &input~0~2264)))
                                                             (let ((&r~0~2383 &temp~0~2403))
                                                               (if (= &level~0~2262 0)
                                                                 (let ((&input~0~2386
                                                                         (list
                                                                          (&expand~0~2237 &r~0~2383 0)
                                                                          (ex:generate-temporaries &e~0~2382))))
                                                                   (let ((&fail~0~2389 (lambda () (ex:invalid-form &input~0~2386))))
                                                                     (if (pair? &input~0~2386)
                                                                       (let ((&temp~0~2398 (car &input~0~2386)))
                                                                         (if (pair? &temp~0~2398)
                                                                           (let ((&temp~0~2402 (car &temp~0~2398)))
                                                                             (let ((&r*~0~2390 &temp~0~2402))
                                                                               (let ((&temp~0~2399 (cdr &temp~0~2398)))
                                                                                 (if (pair? &temp~0~2399)
                                                                                   (let ((&temp~0~2401 (car &temp~0~2399)))
                                                                                     (if (list? &temp~0~2401)
                                                                                       (let ((&rep~0~2391 &temp~0~2401))
                                                                                         (let ((&temp~0~2400 (cdr &temp~0~2399)))
                                                                                           (if (null? &temp~0~2400)
                                                                                             (let ((&temp~0~2395
                                                                                                     (cdr &input~0~2386)))
                                                                                               (if (pair? &temp~0~2395)
                                                                                                 (let ((&temp~0~2397
                                                                                                         (car &temp~0~2395)))
                                                                                                   (if (list? &temp~0~2397)
                                                                                                     (let ((&t~0~2392 &temp~0~2397))
                                                                                                       (let ((&temp~0~2396
                                                                                                               (cdr &temp~0~2395)))
                                                                                                         (if (null? &temp~0~2396)
                                                                                                           (begin
                                                                                                             (cons
                                                                                                              (append
                                                                                                                &t~0~2392
                                                                                                                &r*~0~2390)
                                                                                                              (cons
                                                                                                               (append
                                                                                                                 (map
                                                                                                                  (lambda (&t~0~2392
                                                                                                                           &e~0~2382)
                                                                                                                    (cons
                                                                                                                     &t~0~2392
                                                                                                                     (cons
                                                                                                                      &e~0~2382
                                                                                                                      '())))
                                                                                                                  &t~0~2392
                                                                                                                  &e~0~2382)
                                                                                                                 &rep~0~2391)
                                                                                                               '())))
                                                                                                           (&fail~0~2389))))
                                                                                                     (&fail~0~2389)))
                                                                                                 (&fail~0~2389)))
                                                                                             (&fail~0~2389))))
                                                                                       (&fail~0~2389)))
                                                                                   (&fail~0~2389)))))
                                                                           (&fail~0~2389)))
                                                                       (&fail~0~2389))))
                                                                 (&fail~0~2267)))))
                                                         (&fail~0~2267)))
                                                     (&fail~0~2267)))
                                                 (&fail~0~2267)))
                                             (&fail~0~2267))))))
                                 (if (pair? &input~0~2264)
                                   (let ((&temp~0~2422 (car &input~0~2264)))
                                     (if (and (ex:identifier? &temp~0~2422)
                                              (ex:free-identifier=?
                                                &temp~0~2422
                                                (ex:syntax-rename 'unsyntax '() '(&env~0~2423) 0 '(core quasisyntax))))
                                       (let ((&temp~0~2419 (cdr &input~0~2264)))
                                         (if (pair? &temp~0~2419)
                                           (let ((&temp~0~2421 (car &temp~0~2419)))
                                             (let ((&e~0~2408 &temp~0~2421))
                                               (let ((&temp~0~2420 (cdr &temp~0~2419)))
                                                 (if (null? &temp~0~2420)
                                                   (if (= &level~0~2262 0)
                                                     (let ((&input~0~2411 (ex:generate-temporaries '(t))))
                                                       (let ((&fail~0~2413 (lambda () (ex:invalid-form &input~0~2411))))
                                                         (if (pair? &input~0~2411)
                                                           (let ((&temp~0~2418 (car &input~0~2411)))
                                                             (let ((&t~0~2414 &temp~0~2418))
                                                               (let ((&temp~0~2417 (cdr &input~0~2411)))
                                                                 (if (null? &temp~0~2417)
                                                                   (begin
                                                                     (cons
                                                                      &t~0~2414
                                                                      (cons (cons (cons &t~0~2414 (cons &e~0~2408 '())) '()) '())))
                                                                   (&fail~0~2413)))))
                                                           (&fail~0~2413))))
                                                     (&fail~0~2266))
                                                   (&fail~0~2266)))))
                                           (&fail~0~2266)))
                                       (&fail~0~2266)))
                                   (&fail~0~2266))))))
                       (if (pair? &input~0~2264)
                         (let ((&temp~0~2450 (car &input~0~2264)))
                           (if (and (ex:identifier? &temp~0~2450)
                                    (ex:free-identifier=?
                                      &temp~0~2450
                                      (ex:syntax-rename 'quasisyntax '() '(&env~0~2451) 0 '(core quasisyntax))))
                             (let ((&temp~0~2447 (cdr &input~0~2264)))
                               (if (pair? &temp~0~2447)
                                 (let ((&temp~0~2449 (car &temp~0~2447)))
                                   (let ((&e~0~2424 &temp~0~2449))
                                     (let ((&temp~0~2448 (cdr &temp~0~2447)))
                                       (if (null? &temp~0~2448)
                                         (let ((&input~0~2427 (list &x~0~2261 (&expand~0~2237 &e~0~2424 (+ &level~0~2262 1)))))
                                           (let ((&fail~0~2429 (lambda () (ex:invalid-form &input~0~2427))))
                                             (if (pair? &input~0~2427)
                                               (let ((&temp~0~2442 (car &input~0~2427)))
                                                 (if (pair? &temp~0~2442)
                                                   (let ((&temp~0~2446 (car &temp~0~2442)))
                                                     (let ((&k~0~2430 &temp~0~2446))
                                                       (let ((&temp~0~2443 (cdr &temp~0~2442)))
                                                         (if (pair? &temp~0~2443)
                                                           (let ((&temp~0~2445 (car &temp~0~2443)))
                                                             (let ((&temp~0~2444 (cdr &temp~0~2443)))
                                                               (if (null? &temp~0~2444)
                                                                 (let ((&temp~0~2435 (cdr &input~0~2427)))
                                                                   (if (pair? &temp~0~2435)
                                                                     (let ((&temp~0~2437 (car &temp~0~2435)))
                                                                       (if (pair? &temp~0~2437)
                                                                         (let ((&temp~0~2441 (car &temp~0~2437)))
                                                                           (let ((&e*~0~2431 &temp~0~2441))
                                                                             (let ((&temp~0~2438 (cdr &temp~0~2437)))
                                                                               (if (pair? &temp~0~2438)
                                                                                 (let ((&temp~0~2440 (car &temp~0~2438)))
                                                                                   (let ((&reps~0~2432 &temp~0~2440))
                                                                                     (let ((&temp~0~2439 (cdr &temp~0~2438)))
                                                                                       (if (null? &temp~0~2439)
                                                                                         (let ((&temp~0~2436 (cdr &temp~0~2435)))
                                                                                           (if (null? &temp~0~2436)
                                                                                             (begin
                                                                                               (cons
                                                                                                (cons
                                                                                                 &k~0~2430
                                                                                                 (cons &e*~0~2431 '()))
                                                                                                (cons &reps~0~2432 '())))
                                                                                             (&fail~0~2429)))
                                                                                         (&fail~0~2429)))))
                                                                                 (&fail~0~2429)))))
                                                                         (&fail~0~2429)))
                                                                     (&fail~0~2429)))
                                                                 (&fail~0~2429))))
                                                           (&fail~0~2429)))))
                                                   (&fail~0~2429)))
                                               (&fail~0~2429))))
                                         (&fail~0~2265)))))
                                 (&fail~0~2265)))
                             (&fail~0~2265)))
                         (&fail~0~2265))))))
               (let ((&input~0~2239 &e~0~2236))
                 (let ((&fail~0~2240 (lambda () (ex:invalid-form &input~0~2239))))
                   (if (pair? &input~0~2239)
                     (let ((&temp~0~2259 (car &input~0~2239)))
                       (let ((&temp~0~2256 (cdr &input~0~2239)))
                         (if (pair? &temp~0~2256)
                           (let ((&temp~0~2258 (car &temp~0~2256)))
                             (let ((&template~0~2241 &temp~0~2258))
                               (let ((&temp~0~2257 (cdr &temp~0~2256)))
                                 (if (null? &temp~0~2257)
                                   (let ((&input~0~2244 (&expand~0~2237 &template~0~2241 0)))
                                     (let ((&fail~0~2246 (lambda () (ex:invalid-form &input~0~2244))))
                                       (if (pair? &input~0~2244)
                                         (let ((&temp~0~2255 (car &input~0~2244)))
                                           (let ((&template*~0~2247 &temp~0~2255))
                                             (let ((&temp~0~2252 (cdr &input~0~2244)))
                                               (if (pair? &temp~0~2252)
                                                 (let ((&temp~0~2254 (car &temp~0~2252)))
                                                   (let ((&replacements~0~2248 &temp~0~2254))
                                                     (let ((&temp~0~2253 (cdr &temp~0~2252)))
                                                       (if (null? &temp~0~2253)
                                                         (begin
                                                           (cons
                                                            (ex:syntax-rename 'with-syntax '() '(&env~0~2251) 0 '(core quasisyntax))
                                                            (cons
                                                             &replacements~0~2248
                                                             (cons
                                                              (cons
                                                               (ex:syntax-rename 'syntax '() '(&env~0~2251) 0 '(core quasisyntax))
                                                               (cons &template*~0~2247 '()))
                                                              '()))))
                                                         (&fail~0~2246)))))
                                                 (&fail~0~2246)))))
                                         (&fail~0~2246))))
                                   (&fail~0~2240)))))
                           (&fail~0~2240))))
                     (&fail~0~2240)))))
             ex:undefined)))
        (ex:register-macro! '&unsyntax~0~2452 (lambda (&e~0~2454) (ex:syntax-violation 'unsyntax "Invalid expression" &e~0~2454)))
        (ex:register-macro!
          '&unsyntax-splicing~0~2456
          (lambda (&e~0~2458) (ex:syntax-violation 'unsyntax "Invalid expression" &e~0~2458)))
        (values))
      (lambda () (values))
      '&build~0~2460))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core quasiquote)
      (lambda ()
        (ex:uncompress
          '(((&env~0~2889 0 1 2 3 4 5)
             (&env~0~2879 6 1 2 3 4 5)
             (&env~0~2870 7 8 1 2 3 4 5)
             (&env~0~2860 9 8 1 2 3 4 5)
             (&env~0~2823 10 11 12 13 3 4 5)
             (&env~0~2813 14 11 12 13 3 4 5)
             (&env~0~2600 15 16 17 3 4 5)
             (&env~0~2595 18 19 16 17 3 4 5)
             (&env~0~2572 20 21 22 23 24 25 16 17 3 4 5)
             (&env~0~2540 26 27 16 17 3 4 5)
             (&env~0~2526 28 29 16 17 3 4 5)
             (&env~0~2510 30 31 16 17 3 4 5))
            (31 (((x) . #f)))
            (30 (((temp &c~0~2501) . #f)))
            (29 (((x) . #f)))
            (28 (((temp &c~0~2517) . #f)))
            (27 (((x) . #f)))
            (26 (((temp &c~0~2531) . #f)))
            (25 (((x) . #f) ((y) . #f)))
            (24 (((f) variable &f~0~2550 (1) #t (core quasiquote))))
            (23 ())
            (22 (((x*) variable &x*~0~2558 (1) #f (core quasiquote))))
            (21 ())
            (20 (((temp &c~0~2563) . #f) ((temp &c~0~2562) . #f)))
            (19 (((x) . #f)))
            (18 (((temp &c~0~2586) . #f)))
            (17 (((x) variable &x~0~2483 (1) #f (core quasiquote))))
            (16 ())
            (15 (((x) . #f)))
            (14 (((p) . #f)))
            (13 (((p) variable &p~0~2791 (1) #f (core quasiquote)) ((lev) variable &lev~0~2792 (1) #f (core quasiquote))))
            (12 ())
            (11 (((p) . #f) ((q) . #f)))
            (10 (((p) . #f)))
            (9 (((p) . #f)))
            (8 (((p) . #f) ((q) . #f)))
            (7 (((p) . #f)))
            (6 (((p) . #f)))
            (5
             (((unquote-splicing) macro &unquote-splicing~0~2899 (0) #f (core quasiquote))
              ((unquote) macro &unquote~0~2895 (0) #f (core quasiquote))
              ((quasiquote) macro &quasiquote~0~2461 (0) #f (core quasiquote))
              ((syntax-violation) variable ex:syntax-violation (1 0) #f ())
              ((vector) variable vector (1 0) #f ())
              ((null?) variable null? (1 0) #f ())
              ((map) variable map (1 0) #f ())
              ((list->vector) variable list->vector (1 0) #f ())
              ((list) variable list (1 0) #f ())
              ((cons) variable cons (1 0) #f ())
              ((cdr) variable cdr (1 0) #f ())
              ((car) variable car (1 0) #f ())
              ((append) variable append (1 0) #f ())
              ((=) variable = (1 0) #f ())
              ((-) variable - (1 0) #f ())
              ((+) variable + (1 0) #f ())
              ((syntax-case) macro syntax-case (1 0) #f ())
              ((syntax) macro syntax (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((define) macro define (1 0) #f ())
              ((quote) macro quote (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((if) macro if (1 0) #f ())
              ((letrec*) macro &letrec*~0~1877 (1 0) #f (core let))
              ((letrec) macro &letrec~0~1846 (1 0) #f (core let))
              ((let) macro &let~0~1798 (1 0) #f (core let))
              ((=>) macro &=>~0~2179 (1 0) #f (core derived))
              ((else) macro &else~0~2183 (1 0) #f (core derived))
              ((case) macro &case~0~2099 (1 0) #f (core derived))
              ((cond) macro &cond~0~1983 (1 0) #f (core derived))
              ((let*) macro &let*~0~1902 (1 0) #f (core derived))
              ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax))
              ((unsyntax-splicing) macro &unsyntax-splicing~0~2456 (1) #f (core quasisyntax))
              ((unsyntax) macro &unsyntax~0~2452 (1) #f (core quasisyntax))
              ((quasisyntax) macro &quasisyntax~0~2234 (1) #f (core quasisyntax))))
            (4 ())
            (3
             (((emit) variable &emit~0~2470 (1) #f (core quasiquote))
              ((quasivector) variable &quasivector~0~2469 (1) #f (core quasiquote))
              ((quasilist*) variable &quasilist*~0~2468 (1) #f (core quasiquote))
              ((quasiappend) variable &quasiappend~0~2467 (1) #f (core quasiquote))
              ((quasicons) variable &quasicons~0~2466 (1) #f (core quasiquote))
              ((vquasi) variable &vquasi~0~2465 (1) #f (core quasiquote))
              ((quasi) variable &quasi~0~2464 (1) #f (core quasiquote))))
            (2 (((p) variable &p~0~2831 (1) #f (core quasiquote)) ((lev) variable &lev~0~2832 (1) #f (core quasiquote))))
            (1 ())
            (0 (((p) . #f))))))
      '((quasiquote macro &quasiquote~0~2461 (0) #f (core quasiquote))
        (unquote macro &unquote~0~2895 (0) #f (core quasiquote))
        (unquote-splicing macro &unquote-splicing~0~2899 (0) #f (core quasiquote)))
      '(((core quasisyntax) 1) ((core with-syntax) 1) ((core derived) 1 0) ((core let) 1 0) ((core primitives) 1 0))
      '(&build~0~2460 &build~0~1755 &build~0~2187 &build~0~1901 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&quasiquote~0~2461
          ((lambda ()
             ((lambda (&emit~0~2470
                       &quasivector~0~2469
                       &quasilist*~0~2468
                       &quasiappend~0~2467
                       &quasicons~0~2466
                       &vquasi~0~2465
                       &quasi~0~2464)
                (set! &quasi~0~2464
                  (lambda (&p~0~2831 &lev~0~2832)
                    (let ((&input~0~2834 &p~0~2831))
                      (let ((&fail~0~2835
                              (lambda ()
                                (let ((&fail~0~2836
                                        (lambda ()
                                          (let ((&fail~0~2837
                                                  (lambda ()
                                                    (let ((&fail~0~2838
                                                            (lambda ()
                                                              (let ((&fail~0~2839 (lambda () (ex:invalid-form &input~0~2834))))
                                                                (let ((&p~0~2840 &input~0~2834))
                                                                  (cons '"quote" (cons &p~0~2840 '())))))))
                                                      (if (vector? &input~0~2834)
                                                        (let ((&temp~0~2844 (vector->list &input~0~2834)))
                                                          (if (list? &temp~0~2844)
                                                            (let ((&x~0~2842 &temp~0~2844))
                                                              (&quasivector~0~2469 (&vquasi~0~2465 &x~0~2842 &lev~0~2832)))
                                                            (&fail~0~2838)))
                                                        (&fail~0~2838))))))
                                            (if (pair? &input~0~2834)
                                              (let ((&temp~0~2876 (car &input~0~2834)))
                                                (let ((&p~0~2845 &temp~0~2876))
                                                  (let ((&temp~0~2875 (cdr &input~0~2834)))
                                                    (let ((&q~0~2846 &temp~0~2875))
                                                      (let ((&input~0~2848 &p~0~2845))
                                                        (let ((&fail~0~2850
                                                                (lambda ()
                                                                  (let ((&fail~0~2851
                                                                          (lambda ()
                                                                            (let ((&fail~0~2852
                                                                                    (lambda () (ex:invalid-form &input~0~2848))))
                                                                              (&quasicons~0~2466
                                                                                (&quasi~0~2464 &p~0~2845 &lev~0~2832)
                                                                                (&quasi~0~2464 &q~0~2846 &lev~0~2832))))))
                                                                    (if (pair? &input~0~2848)
                                                                      (let ((&temp~0~2864 (car &input~0~2848)))
                                                                        (if (and (ex:identifier? &temp~0~2864)
                                                                                 (ex:free-identifier=?
                                                                                   &temp~0~2864
                                                                                   (ex:syntax-rename
                                                                                     'unquote-splicing
                                                                                     '()
                                                                                     '(&env~0~2860)
                                                                                     0
                                                                                     '(core quasiquote))))
                                                                          (let ((&temp~0~2863 (cdr &input~0~2848)))
                                                                            (if (list? &temp~0~2863)
                                                                              (let ((&p~0~2855 &temp~0~2863))
                                                                                (if (= &lev~0~2832 0)
                                                                                  (&quasiappend~0~2467
                                                                                    (map
                                                                                     (lambda (&p~0~2855)
                                                                                       (cons '"value" (cons &p~0~2855 '())))
                                                                                     &p~0~2855)
                                                                                    (&quasi~0~2464 &q~0~2846 &lev~0~2832))
                                                                                  (&quasicons~0~2466
                                                                                    (&quasicons~0~2466
                                                                                      (cons
                                                                                       '"quote"
                                                                                       (cons
                                                                                        (ex:syntax-rename
                                                                                          'unquote-splicing
                                                                                          '()
                                                                                          '(&env~0~2860)
                                                                                          0
                                                                                          '(core quasiquote))
                                                                                        '()))
                                                                                      (&quasi~0~2464 &p~0~2855 (- &lev~0~2832 1)))
                                                                                    (&quasi~0~2464 &q~0~2846 &lev~0~2832))))
                                                                              (&fail~0~2851)))
                                                                          (&fail~0~2851)))
                                                                      (&fail~0~2851))))))
                                                          (if (pair? &input~0~2848)
                                                            (let ((&temp~0~2874 (car &input~0~2848)))
                                                              (if (and (ex:identifier? &temp~0~2874)
                                                                       (ex:free-identifier=?
                                                                         &temp~0~2874
                                                                         (ex:syntax-rename
                                                                           'unquote
                                                                           '()
                                                                           '(&env~0~2870)
                                                                           0
                                                                           '(core quasiquote))))
                                                                (let ((&temp~0~2873 (cdr &input~0~2848)))
                                                                  (if (list? &temp~0~2873)
                                                                    (let ((&p~0~2865 &temp~0~2873))
                                                                      (if (= &lev~0~2832 0)
                                                                        (&quasilist*~0~2468
                                                                          (map
                                                                           (lambda (&p~0~2865) (cons '"value" (cons &p~0~2865 '())))
                                                                           &p~0~2865)
                                                                          (&quasi~0~2464 &q~0~2846 &lev~0~2832))
                                                                        (&quasicons~0~2466
                                                                          (&quasicons~0~2466
                                                                            (cons
                                                                             '"quote"
                                                                             (cons
                                                                              (ex:syntax-rename
                                                                                'unquote
                                                                                '()
                                                                                '(&env~0~2870)
                                                                                0
                                                                                '(core quasiquote))
                                                                              '()))
                                                                            (&quasi~0~2464 &p~0~2865 (- &lev~0~2832 1)))
                                                                          (&quasi~0~2464 &q~0~2846 &lev~0~2832))))
                                                                    (&fail~0~2850)))
                                                                (&fail~0~2850)))
                                                            (&fail~0~2850))))))))
                                              (&fail~0~2837))))))
                                  (if (pair? &input~0~2834)
                                    (let ((&temp~0~2884 (car &input~0~2834)))
                                      (if (and (ex:identifier? &temp~0~2884)
                                               (ex:free-identifier=?
                                                 &temp~0~2884
                                                 (ex:syntax-rename 'quasiquote '() '(&env~0~2879) 0 '(core quasiquote))))
                                        (let ((&temp~0~2881 (cdr &input~0~2834)))
                                          (if (pair? &temp~0~2881)
                                            (let ((&temp~0~2883 (car &temp~0~2881)))
                                              (let ((&p~0~2877 &temp~0~2883))
                                                (let ((&temp~0~2882 (cdr &temp~0~2881)))
                                                  (if (null? &temp~0~2882)
                                                    (&quasicons~0~2466
                                                      (cons
                                                       '"quote"
                                                       (cons
                                                        (ex:syntax-rename 'quasiquote '() '(&env~0~2879) 0 '(core quasiquote))
                                                        '()))
                                                      (&quasi~0~2464 (cons &p~0~2877 '()) (+ &lev~0~2832 1)))
                                                    (&fail~0~2836)))))
                                            (&fail~0~2836)))
                                        (&fail~0~2836)))
                                    (&fail~0~2836))))))
                        (if (pair? &input~0~2834)
                          (let ((&temp~0~2894 (car &input~0~2834)))
                            (if (and (ex:identifier? &temp~0~2894)
                                     (ex:free-identifier=?
                                       &temp~0~2894
                                       (ex:syntax-rename 'unquote '() '(&env~0~2889) 0 '(core quasiquote))))
                              (let ((&temp~0~2891 (cdr &input~0~2834)))
                                (if (pair? &temp~0~2891)
                                  (let ((&temp~0~2893 (car &temp~0~2891)))
                                    (let ((&p~0~2885 &temp~0~2893))
                                      (let ((&temp~0~2892 (cdr &temp~0~2891)))
                                        (if (null? &temp~0~2892)
                                          (if (= &lev~0~2832 0)
                                            (cons '"value" (cons &p~0~2885 '()))
                                            (&quasicons~0~2466
                                              (cons
                                               '"quote"
                                               (cons (ex:syntax-rename 'unquote '() '(&env~0~2889) 0 '(core quasiquote)) '()))
                                              (&quasi~0~2464 (cons &p~0~2885 '()) (- &lev~0~2832 1))))
                                          (&fail~0~2835)))))
                                  (&fail~0~2835)))
                              (&fail~0~2835)))
                          (&fail~0~2835))))))
                (set! &vquasi~0~2465
                  (lambda (&p~0~2791 &lev~0~2792)
                    (let ((&input~0~2794 &p~0~2791))
                      (let ((&fail~0~2795
                              (lambda ()
                                (let ((&fail~0~2796 (lambda () (ex:invalid-form &input~0~2794))))
                                  (if (null? &input~0~2794) (cons '"quote" (cons '() '())) (&fail~0~2796))))))
                        (if (pair? &input~0~2794)
                          (let ((&temp~0~2829 (car &input~0~2794)))
                            (let ((&p~0~2798 &temp~0~2829))
                              (let ((&temp~0~2828 (cdr &input~0~2794)))
                                (let ((&q~0~2799 &temp~0~2828))
                                  (let ((&input~0~2801 &p~0~2798))
                                    (let ((&fail~0~2803
                                            (lambda ()
                                              (let ((&fail~0~2804
                                                      (lambda ()
                                                        (let ((&fail~0~2805 (lambda () (ex:invalid-form &input~0~2801))))
                                                          (&quasicons~0~2466
                                                            (&quasi~0~2464 &p~0~2798 &lev~0~2792)
                                                            (&vquasi~0~2465 &q~0~2799 &lev~0~2792))))))
                                                (if (pair? &input~0~2801)
                                                  (let ((&temp~0~2817 (car &input~0~2801)))
                                                    (if (and (ex:identifier? &temp~0~2817)
                                                             (ex:free-identifier=?
                                                               &temp~0~2817
                                                               (ex:syntax-rename
                                                                 'unquote-splicing
                                                                 '()
                                                                 '(&env~0~2813)
                                                                 0
                                                                 '(core quasiquote))))
                                                      (let ((&temp~0~2816 (cdr &input~0~2801)))
                                                        (if (list? &temp~0~2816)
                                                          (let ((&p~0~2808 &temp~0~2816))
                                                            (if (= &lev~0~2792 0)
                                                              (&quasiappend~0~2467
                                                                (map
                                                                 (lambda (&p~0~2808) (cons '"value" (cons &p~0~2808 '())))
                                                                 &p~0~2808)
                                                                (&vquasi~0~2465 &q~0~2799 &lev~0~2792))
                                                              (&quasicons~0~2466
                                                                (&quasicons~0~2466
                                                                  (cons
                                                                   '"quote"
                                                                   (cons
                                                                    (ex:syntax-rename
                                                                      'unquote-splicing
                                                                      '()
                                                                      '(&env~0~2813)
                                                                      0
                                                                      '(core quasiquote))
                                                                    '()))
                                                                  (&quasi~0~2464 &p~0~2808 (- &lev~0~2792 1)))
                                                                (&vquasi~0~2465 &q~0~2799 &lev~0~2792))))
                                                          (&fail~0~2804)))
                                                      (&fail~0~2804)))
                                                  (&fail~0~2804))))))
                                      (if (pair? &input~0~2801)
                                        (let ((&temp~0~2827 (car &input~0~2801)))
                                          (if (and (ex:identifier? &temp~0~2827)
                                                   (ex:free-identifier=?
                                                     &temp~0~2827
                                                     (ex:syntax-rename 'unquote '() '(&env~0~2823) 0 '(core quasiquote))))
                                            (let ((&temp~0~2826 (cdr &input~0~2801)))
                                              (if (list? &temp~0~2826)
                                                (let ((&p~0~2818 &temp~0~2826))
                                                  (if (= &lev~0~2792 0)
                                                    (&quasilist*~0~2468
                                                      (map (lambda (&p~0~2818) (cons '"value" (cons &p~0~2818 '()))) &p~0~2818)
                                                      (&vquasi~0~2465 &q~0~2799 &lev~0~2792))
                                                    (&quasicons~0~2466
                                                      (&quasicons~0~2466
                                                        (cons
                                                         '"quote"
                                                         (cons
                                                          (ex:syntax-rename 'unquote '() '(&env~0~2823) 0 '(core quasiquote))
                                                          '()))
                                                        (&quasi~0~2464 &p~0~2818 (- &lev~0~2792 1)))
                                                      (&vquasi~0~2465 &q~0~2799 &lev~0~2792))))
                                                (&fail~0~2803)))
                                            (&fail~0~2803)))
                                        (&fail~0~2803))))))))
                          (&fail~0~2795))))))
                (set! &quasicons~0~2466
                  (lambda (&x~0~2741 &y~0~2742)
                    (let ((&input~0~2745 (list &x~0~2741 &y~0~2742)))
                      (let ((&fail~0~2746 (lambda () (ex:invalid-form &input~0~2745))))
                        (if (pair? &input~0~2745)
                          (let ((&temp~0~2789 (car &input~0~2745)))
                            (let ((&x~0~2747 &temp~0~2789))
                              (let ((&temp~0~2786 (cdr &input~0~2745)))
                                (if (pair? &temp~0~2786)
                                  (let ((&temp~0~2788 (car &temp~0~2786)))
                                    (let ((&y~0~2748 &temp~0~2788))
                                      (let ((&temp~0~2787 (cdr &temp~0~2786)))
                                        (if (null? &temp~0~2787)
                                          (begin
                                            (let ((&input~0~2751 &y~0~2748))
                                              (let ((&fail~0~2753
                                                      (lambda ()
                                                        (let ((&fail~0~2754
                                                                (lambda ()
                                                                  (let ((&fail~0~2755
                                                                          (lambda ()
                                                                            (let ((&fail~0~2756
                                                                                    (lambda () (ex:invalid-form &input~0~2751))))
                                                                              (cons
                                                                               '"list*"
                                                                               (cons &x~0~2747 (cons &y~0~2748 '())))))))
                                                                    (if (pair? &input~0~2751)
                                                                      (let ((&temp~0~2761 (car &input~0~2751)))
                                                                        (if (equal? &temp~0~2761 '"list*")
                                                                          (let ((&temp~0~2760 (cdr &input~0~2751)))
                                                                            (let ((&stuff~0~2758 &temp~0~2760))
                                                                              (cons '"list*" (cons &x~0~2747 &stuff~0~2758))))
                                                                          (&fail~0~2755)))
                                                                      (&fail~0~2755))))))
                                                          (if (pair? &input~0~2751)
                                                            (let ((&temp~0~2765 (car &input~0~2751)))
                                                              (if (equal? &temp~0~2765 '"list")
                                                                (let ((&temp~0~2764 (cdr &input~0~2751)))
                                                                  (let ((&stuff~0~2762 &temp~0~2764))
                                                                    (cons '"list" (cons &x~0~2747 &stuff~0~2762))))
                                                                (&fail~0~2754)))
                                                            (&fail~0~2754))))))
                                                (if (pair? &input~0~2751)
                                                  (let ((&temp~0~2785 (car &input~0~2751)))
                                                    (if (equal? &temp~0~2785 '"quote")
                                                      (let ((&temp~0~2782 (cdr &input~0~2751)))
                                                        (if (pair? &temp~0~2782)
                                                          (let ((&temp~0~2784 (car &temp~0~2782)))
                                                            (let ((&dy~0~2766 &temp~0~2784))
                                                              (let ((&temp~0~2783 (cdr &temp~0~2782)))
                                                                (if (null? &temp~0~2783)
                                                                  (let ((&input~0~2768 &x~0~2747))
                                                                    (let ((&fail~0~2770
                                                                            (lambda ()
                                                                              (let ((&fail~0~2771
                                                                                      (lambda () (ex:invalid-form &input~0~2768))))
                                                                                (if (null? &dy~0~2766)
                                                                                  (cons '"list" (cons &x~0~2747 '()))
                                                                                  (cons
                                                                                   '"list*"
                                                                                   (cons &x~0~2747 (cons &y~0~2748 '()))))))))
                                                                      (if (pair? &input~0~2768)
                                                                        (let ((&temp~0~2781 (car &input~0~2768)))
                                                                          (if (equal? &temp~0~2781 '"quote")
                                                                            (let ((&temp~0~2778 (cdr &input~0~2768)))
                                                                              (if (pair? &temp~0~2778)
                                                                                (let ((&temp~0~2780 (car &temp~0~2778)))
                                                                                  (let ((&dx~0~2776 &temp~0~2780))
                                                                                    (let ((&temp~0~2779 (cdr &temp~0~2778)))
                                                                                      (if (null? &temp~0~2779)
                                                                                        (cons
                                                                                         '"quote"
                                                                                         (cons (cons &dx~0~2776 &dy~0~2766) '()))
                                                                                        (&fail~0~2770)))))
                                                                                (&fail~0~2770)))
                                                                            (&fail~0~2770)))
                                                                        (&fail~0~2770))))
                                                                  (&fail~0~2753)))))
                                                          (&fail~0~2753)))
                                                      (&fail~0~2753)))
                                                  (&fail~0~2753)))))
                                          (&fail~0~2746)))))
                                  (&fail~0~2746)))))
                          (&fail~0~2746))))))
                (set! &quasiappend~0~2467
                  (lambda (&x~0~2700 &y~0~2701)
                    (let ((&input~0~2703 &y~0~2701))
                      (let ((&fail~0~2704
                              (lambda ()
                                (let ((&fail~0~2705 (lambda () (ex:invalid-form &input~0~2703))))
                                  (if (null? &x~0~2700)
                                    (begin &y~0~2701)
                                    (begin
                                      (let ((&input~0~2712 (list &x~0~2700 &y~0~2701)))
                                        (let ((&fail~0~2713 (lambda () (ex:invalid-form &input~0~2712))))
                                          (if (pair? &input~0~2712)
                                            (let ((&temp~0~2721 (car &input~0~2712)))
                                              (if (list? &temp~0~2721)
                                                (let ((&p~0~2714 &temp~0~2721))
                                                  (let ((&temp~0~2718 (cdr &input~0~2712)))
                                                    (if (pair? &temp~0~2718)
                                                      (let ((&temp~0~2720 (car &temp~0~2718)))
                                                        (let ((&y~0~2715 &temp~0~2720))
                                                          (let ((&temp~0~2719 (cdr &temp~0~2718)))
                                                            (if (null? &temp~0~2719)
                                                              (begin (cons '"append" (append &p~0~2714 (cons &y~0~2715 '()))))
                                                              (&fail~0~2713)))))
                                                      (&fail~0~2713))))
                                                (&fail~0~2713)))
                                            (&fail~0~2713))))))))))
                        (if (pair? &input~0~2703)
                          (let ((&temp~0~2739 (car &input~0~2703)))
                            (if (equal? &temp~0~2739 '"quote")
                              (let ((&temp~0~2736 (cdr &input~0~2703)))
                                (if (pair? &temp~0~2736)
                                  (let ((&temp~0~2738 (car &temp~0~2736)))
                                    (if (null? &temp~0~2738)
                                      (let ((&temp~0~2737 (cdr &temp~0~2736)))
                                        (if (null? &temp~0~2737)
                                          (if (null? &x~0~2700)
                                            (begin (cons '"quote" (cons '() '())))
                                            (if (null? (cdr &x~0~2700))
                                              (begin (car &x~0~2700))
                                              (begin
                                                (let ((&input~0~2731 &x~0~2700))
                                                  (let ((&fail~0~2732 (lambda () (ex:invalid-form &input~0~2731))))
                                                    (if (list? &input~0~2731)
                                                      (let ((&p~0~2733 &input~0~2731)) (begin (cons '"append" &p~0~2733)))
                                                      (&fail~0~2732)))))))
                                          (&fail~0~2704)))
                                      (&fail~0~2704)))
                                  (&fail~0~2704)))
                              (&fail~0~2704)))
                          (&fail~0~2704))))))
                (set! &quasilist*~0~2468
                  (lambda (&x~0~2682 &y~0~2683)
                    (((lambda (&f~0~2689)
                        ((lambda (&temp~0~2692) (set! &f~0~2689 &temp~0~2692) ((lambda () &f~0~2689)))
                         (lambda (&x~0~2697)
                           (if (null? &x~0~2697) &y~0~2683 (&quasicons~0~2466 (car &x~0~2697) (&f~0~2689 (cdr &x~0~2697)))))))
                      ex:undefined)
                     &x~0~2682)))
                (set! &quasivector~0~2469
                  (lambda (&x~0~2606)
                    (let ((&input~0~2608 &x~0~2606))
                      (let ((&fail~0~2609
                              (lambda ()
                                (let ((&fail~0~2610 (lambda () (ex:invalid-form &input~0~2608))))
                                  (((lambda (&f~0~2616)
                                      ((lambda (&temp~0~2619) (set! &f~0~2616 &temp~0~2619) ((lambda () &f~0~2616)))
                                       (lambda (&y~0~2624 &k~0~2625)
                                         (let ((&input~0~2627 &y~0~2624))
                                           (let ((&fail~0~2628
                                                   (lambda ()
                                                     (let ((&fail~0~2629
                                                             (lambda ()
                                                               (let ((&fail~0~2630
                                                                       (lambda ()
                                                                         (let ((&fail~0~2631
                                                                                 (lambda () (ex:invalid-form &input~0~2627))))
                                                                           (let ((&else~0~2632 &input~0~2627))
                                                                             (let ((&input~0~2637 &x~0~2606))
                                                                               (let ((&fail~0~2638
                                                                                       (lambda () (ex:invalid-form &input~0~2637))))
                                                                                 (let ((&temp~0~2639 &input~0~2637))
                                                                                   (begin
                                                                                     (cons
                                                                                      '"list->vector"
                                                                                      (cons &temp~0~2639 '())))))))))))
                                                                 (if (pair? &input~0~2627)
                                                                   (let ((&temp~0~2653 (car &input~0~2627)))
                                                                     (if (equal? &temp~0~2653 '"list*")
                                                                       (let ((&temp~0~2648 (cdr &input~0~2627)))
                                                                         (if (>= (ex:dotted-length &temp~0~2648) 1)
                                                                           (let ((&temp~0~2652 (ex:dotted-butlast &temp~0~2648 1)))
                                                                             (if (list? &temp~0~2652)
                                                                               (let ((&y~0~2642 &temp~0~2652))
                                                                                 (let ((&temp~0~2649
                                                                                         (ex:dotted-last &temp~0~2648 1)))
                                                                                   (if (pair? &temp~0~2649)
                                                                                     (let ((&temp~0~2651 (car &temp~0~2649)))
                                                                                       (let ((&z~0~2643 &temp~0~2651))
                                                                                         (let ((&temp~0~2650 (cdr &temp~0~2649)))
                                                                                           (if (null? &temp~0~2650)
                                                                                             (&f~0~2616
                                                                                               &z~0~2643
                                                                                               (lambda (&ls~0~2646)
                                                                                                 (&k~0~2625
                                                                                                   (append &y~0~2642 &ls~0~2646))))
                                                                                             (&fail~0~2630)))))
                                                                                     (&fail~0~2630))))
                                                                               (&fail~0~2630)))
                                                                           (&fail~0~2630)))
                                                                       (&fail~0~2630)))
                                                                   (&fail~0~2630))))))
                                                       (if (pair? &input~0~2627)
                                                         (let ((&temp~0~2657 (car &input~0~2627)))
                                                           (if (equal? &temp~0~2657 '"list")
                                                             (let ((&temp~0~2656 (cdr &input~0~2627)))
                                                               (if (list? &temp~0~2656)
                                                                 (let ((&y~0~2654 &temp~0~2656)) (&k~0~2625 &y~0~2654))
                                                                 (&fail~0~2629)))
                                                             (&fail~0~2629)))
                                                         (&fail~0~2629))))))
                                             (if (pair? &input~0~2627)
                                               (let ((&temp~0~2663 (car &input~0~2627)))
                                                 (if (equal? &temp~0~2663 '"quote")
                                                   (let ((&temp~0~2660 (cdr &input~0~2627)))
                                                     (if (pair? &temp~0~2660)
                                                       (let ((&temp~0~2662 (car &temp~0~2660)))
                                                         (if (list? &temp~0~2662)
                                                           (let ((&y~0~2658 &temp~0~2662))
                                                             (let ((&temp~0~2661 (cdr &temp~0~2660)))
                                                               (if (null? &temp~0~2661)
                                                                 (&k~0~2625
                                                                   (map
                                                                    (lambda (&y~0~2658) (cons '"quote" (cons &y~0~2658 '())))
                                                                    &y~0~2658))
                                                                 (&fail~0~2628))))
                                                           (&fail~0~2628)))
                                                       (&fail~0~2628)))
                                                   (&fail~0~2628)))
                                               (&fail~0~2628)))))))
                                    ex:undefined)
                                   &x~0~2606
                                   (lambda (&ls~0~2665)
                                     (let ((&input~0~2670 &ls~0~2665))
                                       (let ((&fail~0~2671 (lambda () (ex:invalid-form &input~0~2670))))
                                         (if (list? &input~0~2670)
                                           (let ((&temp~0~2672 &input~0~2670)) (begin (cons '"vector" &temp~0~2672)))
                                           (&fail~0~2671))))))))))
                        (if (pair? &input~0~2608)
                          (let ((&temp~0~2680 (car &input~0~2608)))
                            (if (equal? &temp~0~2680 '"quote")
                              (let ((&temp~0~2677 (cdr &input~0~2608)))
                                (if (pair? &temp~0~2677)
                                  (let ((&temp~0~2679 (car &temp~0~2677)))
                                    (if (list? &temp~0~2679)
                                      (let ((&x~0~2675 &temp~0~2679))
                                        (let ((&temp~0~2678 (cdr &temp~0~2677)))
                                          (if (null? &temp~0~2678)
                                            (cons '"quote" (cons (list->vector &x~0~2675) '()))
                                            (&fail~0~2609))))
                                      (&fail~0~2609)))
                                  (&fail~0~2609)))
                              (&fail~0~2609)))
                          (&fail~0~2609))))))
                (set! &emit~0~2470
                  (lambda (&x~0~2483)
                    (let ((&input~0~2485 &x~0~2483))
                      (let ((&fail~0~2486
                              (lambda ()
                                (let ((&fail~0~2487
                                        (lambda ()
                                          (let ((&fail~0~2488
                                                  (lambda ()
                                                    (let ((&fail~0~2489
                                                            (lambda ()
                                                              (let ((&fail~0~2490
                                                                      (lambda ()
                                                                        (let ((&fail~0~2491
                                                                                (lambda ()
                                                                                  (let ((&fail~0~2492
                                                                                          (lambda ()
                                                                                            (ex:invalid-form &input~0~2485))))
                                                                                    (if (pair? &input~0~2485)
                                                                                      (let ((&temp~0~2498 (car &input~0~2485)))
                                                                                        (if (equal? &temp~0~2498 '"value")
                                                                                          (let ((&temp~0~2495 (cdr &input~0~2485)))
                                                                                            (if (pair? &temp~0~2495)
                                                                                              (let ((&temp~0~2497
                                                                                                      (car &temp~0~2495)))
                                                                                                (let ((&x~0~2493 &temp~0~2497))
                                                                                                  (let ((&temp~0~2496
                                                                                                          (cdr &temp~0~2495)))
                                                                                                    (if (null? &temp~0~2496)
                                                                                                      &x~0~2493
                                                                                                      (&fail~0~2492)))))
                                                                                              (&fail~0~2492)))
                                                                                          (&fail~0~2492)))
                                                                                      (&fail~0~2492))))))
                                                                          (if (pair? &input~0~2485)
                                                                            (let ((&temp~0~2514 (car &input~0~2485)))
                                                                              (if (equal? &temp~0~2514 '"list->vector")
                                                                                (let ((&temp~0~2511 (cdr &input~0~2485)))
                                                                                  (if (pair? &temp~0~2511)
                                                                                    (let ((&temp~0~2513 (car &temp~0~2511)))
                                                                                      (let ((&x~0~2499 &temp~0~2513))
                                                                                        (let ((&temp~0~2512 (cdr &temp~0~2511)))
                                                                                          (if (null? &temp~0~2512)
                                                                                            (let ((&input~0~2504
                                                                                                    (&emit~0~2470 &x~0~2499)))
                                                                                              (let ((&fail~0~2506
                                                                                                      (lambda ()
                                                                                                        (ex:invalid-form
                                                                                                          &input~0~2504))))
                                                                                                (let ((&temp~0~2507 &input~0~2504))
                                                                                                  (begin
                                                                                                    (cons
                                                                                                     (ex:syntax-rename
                                                                                                       'list->vector
                                                                                                       '()
                                                                                                       '(&env~0~2510)
                                                                                                       0
                                                                                                       '(core quasiquote))
                                                                                                     (cons &temp~0~2507 '()))))))
                                                                                            (&fail~0~2491)))))
                                                                                    (&fail~0~2491)))
                                                                                (&fail~0~2491)))
                                                                            (&fail~0~2491))))))
                                                                (if (pair? &input~0~2485)
                                                                  (let ((&temp~0~2528 (car &input~0~2485)))
                                                                    (if (equal? &temp~0~2528 '"vector")
                                                                      (let ((&temp~0~2527 (cdr &input~0~2485)))
                                                                        (if (list? &temp~0~2527)
                                                                          (let ((&x~0~2515 &temp~0~2527))
                                                                            (let ((&input~0~2520 (map &emit~0~2470 &x~0~2515)))
                                                                              (let ((&fail~0~2522
                                                                                      (lambda () (ex:invalid-form &input~0~2520))))
                                                                                (if (list? &input~0~2520)
                                                                                  (let ((&temp~0~2523 &input~0~2520))
                                                                                    (begin
                                                                                      (cons
                                                                                       (ex:syntax-rename
                                                                                         'vector
                                                                                         '()
                                                                                         '(&env~0~2526)
                                                                                         0
                                                                                         '(core quasiquote))
                                                                                       &temp~0~2523)))
                                                                                  (&fail~0~2522)))))
                                                                          (&fail~0~2490)))
                                                                      (&fail~0~2490)))
                                                                  (&fail~0~2490))))))
                                                      (if (pair? &input~0~2485)
                                                        (let ((&temp~0~2542 (car &input~0~2485)))
                                                          (if (equal? &temp~0~2542 '"append")
                                                            (let ((&temp~0~2541 (cdr &input~0~2485)))
                                                              (if (list? &temp~0~2541)
                                                                (let ((&x~0~2529 &temp~0~2541))
                                                                  (let ((&input~0~2534 (map &emit~0~2470 &x~0~2529)))
                                                                    (let ((&fail~0~2536 (lambda () (ex:invalid-form &input~0~2534))))
                                                                      (if (list? &input~0~2534)
                                                                        (let ((&temp~0~2537 &input~0~2534))
                                                                          (begin
                                                                            (cons
                                                                             (ex:syntax-rename
                                                                               'append
                                                                               '()
                                                                               '(&env~0~2540)
                                                                               0
                                                                               '(core quasiquote))
                                                                             &temp~0~2537)))
                                                                        (&fail~0~2536)))))
                                                                (&fail~0~2489)))
                                                            (&fail~0~2489)))
                                                        (&fail~0~2489))))))
                                            (if (pair? &input~0~2485)
                                              (let ((&temp~0~2583 (car &input~0~2485)))
                                                (if (equal? &temp~0~2583 '"list*")
                                                  (let ((&temp~0~2578 (cdr &input~0~2485)))
                                                    (if (>= (ex:dotted-length &temp~0~2578) 1)
                                                      (let ((&temp~0~2582 (ex:dotted-butlast &temp~0~2578 1)))
                                                        (if (list? &temp~0~2582)
                                                          (let ((&x~0~2543 &temp~0~2582))
                                                            (let ((&temp~0~2579 (ex:dotted-last &temp~0~2578 1)))
                                                              (if (pair? &temp~0~2579)
                                                                (let ((&temp~0~2581 (car &temp~0~2579)))
                                                                  (let ((&y~0~2544 &temp~0~2581))
                                                                    (let ((&temp~0~2580 (cdr &temp~0~2579)))
                                                                      (if (null? &temp~0~2580)
                                                                        (((lambda (&f~0~2550)
                                                                            ((lambda (&temp~0~2553)
                                                                               (set! &f~0~2550 &temp~0~2553)
                                                                               ((lambda () &f~0~2550)))
                                                                             (lambda (&x*~0~2558)
                                                                               (if (null? &x*~0~2558)
                                                                                 (&emit~0~2470 &y~0~2544)
                                                                                 (let ((&input~0~2566
                                                                                         (list
                                                                                          (&emit~0~2470 (car &x*~0~2558))
                                                                                          (&f~0~2550 (cdr &x*~0~2558)))))
                                                                                   (let ((&fail~0~2567
                                                                                           (lambda ()
                                                                                             (ex:invalid-form &input~0~2566))))
                                                                                     (if (pair? &input~0~2566)
                                                                                       (let ((&temp~0~2576 (car &input~0~2566)))
                                                                                         (let ((&temp~0~2568 &temp~0~2576))
                                                                                           (let ((&temp~0~2573 (cdr &input~0~2566)))
                                                                                             (if (pair? &temp~0~2573)
                                                                                               (let ((&temp~0~2575
                                                                                                       (car &temp~0~2573)))
                                                                                                 (let ((&temp~0~2569 &temp~0~2575))
                                                                                                   (let ((&temp~0~2574
                                                                                                           (cdr &temp~0~2573)))
                                                                                                     (if (null? &temp~0~2574)
                                                                                                       (begin
                                                                                                         (cons
                                                                                                          (ex:syntax-rename
                                                                                                            'cons
                                                                                                            '()
                                                                                                            '(&env~0~2572)
                                                                                                            0
                                                                                                            '(core quasiquote))
                                                                                                          (cons
                                                                                                           &temp~0~2568
                                                                                                           (cons &temp~0~2569 '()))))
                                                                                                       (&fail~0~2567)))))
                                                                                               (&fail~0~2567)))))
                                                                                       (&fail~0~2567))))))))
                                                                          ex:undefined)
                                                                         &x~0~2543)
                                                                        (&fail~0~2488)))))
                                                                (&fail~0~2488))))
                                                          (&fail~0~2488)))
                                                      (&fail~0~2488)))
                                                  (&fail~0~2488)))
                                              (&fail~0~2488))))))
                                  (if (pair? &input~0~2485)
                                    (let ((&temp~0~2597 (car &input~0~2485)))
                                      (if (equal? &temp~0~2597 '"list")
                                        (let ((&temp~0~2596 (cdr &input~0~2485)))
                                          (if (list? &temp~0~2596)
                                            (let ((&x~0~2584 &temp~0~2596))
                                              (let ((&input~0~2589 (map &emit~0~2470 &x~0~2584)))
                                                (let ((&fail~0~2591 (lambda () (ex:invalid-form &input~0~2589))))
                                                  (if (list? &input~0~2589)
                                                    (let ((&temp~0~2592 &input~0~2589))
                                                      (begin
                                                        (cons
                                                         (ex:syntax-rename 'list '() '(&env~0~2595) 0 '(core quasiquote))
                                                         &temp~0~2592)))
                                                    (&fail~0~2591)))))
                                            (&fail~0~2487)))
                                        (&fail~0~2487)))
                                    (&fail~0~2487))))))
                        (if (pair? &input~0~2485)
                          (let ((&temp~0~2604 (car &input~0~2485)))
                            (if (equal? &temp~0~2604 '"quote")
                              (let ((&temp~0~2601 (cdr &input~0~2485)))
                                (if (pair? &temp~0~2601)
                                  (let ((&temp~0~2603 (car &temp~0~2601)))
                                    (let ((&x~0~2598 &temp~0~2603))
                                      (let ((&temp~0~2602 (cdr &temp~0~2601)))
                                        (if (null? &temp~0~2602)
                                          (cons
                                           (ex:syntax-rename 'quote '() '(&env~0~2600) 0 '(core quasiquote))
                                           (cons &x~0~2598 '()))
                                          (&fail~0~2486)))))
                                  (&fail~0~2486)))
                              (&fail~0~2486)))
                          (&fail~0~2486))))))
                (lambda (&x~0~2472)
                  (let ((&input~0~2474 &x~0~2472))
                    (let ((&fail~0~2475 (lambda () (ex:invalid-form &input~0~2474))))
                      (if (pair? &input~0~2474)
                        (let ((&temp~0~2481 (car &input~0~2474)))
                          (let ((&temp~0~2478 (cdr &input~0~2474)))
                            (if (pair? &temp~0~2478)
                              (let ((&temp~0~2480 (car &temp~0~2478)))
                                (let ((&e~0~2476 &temp~0~2480))
                                  (let ((&temp~0~2479 (cdr &temp~0~2478)))
                                    (if (null? &temp~0~2479) (&emit~0~2470 (&quasi~0~2464 &e~0~2476 0)) (&fail~0~2475)))))
                              (&fail~0~2475))))
                        (&fail~0~2475))))))
              ex:undefined
              ex:undefined
              ex:undefined
              ex:undefined
              ex:undefined
              ex:undefined
              ex:undefined))))
        (ex:register-macro! '&unquote~0~2895 (lambda (&e~0~2897) (ex:syntax-violation 'unquote "Invalid expression" &e~0~2897)))
        (ex:register-macro!
          '&unquote-splicing~0~2899
          (lambda (&e~0~2901) (ex:syntax-violation 'unquote-splicing "Invalid expression" &e~0~2901)))
        (values))
      (lambda () (values))
      '&build~0~2903))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(core let-values)
      (lambda ()
        (ex:uncompress
          '(((&env~0~3071 0 1 2 3)
             (&env~0~3058 4 1 2 3)
             (&env~0~3037 5 6 7 3)
             (&env~0~3021 8 6 7 3)
             (&env~0~3000 9 6 7 3)
             (&env~0~2976 10 6 7 3)
             (&env~0~2950 11 6 7 3)
             (&env~0~2924 12 6 7 3))
            (12 (((dummy &c~0~2905) . #f) ((?a) . #f) ((?e0) . #f) ((?arg) . #f) ((?bindings) . #f) ((?tmp) . #f) ((?body) . #f)))
            (11
             (((dummy &c~0~2905) . #f)
              ((?a) . #f)
              ((?b) . #f)
              ((?e0) . #f)
              ((?arg) . #f)
              ((?bindings) . #f)
              ((?tmp) . #f)
              ((?body) . #f)))
            (10 (((dummy &c~0~2905) . #f) ((?e0) . #f) ((?args) . #f) ((?bindings) . #f) ((?tmps) . #f) ((?body) . #f)))
            (9 (((dummy &c~0~2905) . #f) ((?b0) . #f) ((?e0) . #f) ((?binding) . #f) ((?tmps) . #f) ((?body) . #f)))
            (8 (((dummy &c~0~2905) . #f) ((?tmps) . #f) ((?body) . #f)))
            (7 (((x &c~0~2905) variable &x~0~2907 (0) #f (core let-values))))
            (6 ())
            (5 (((dummy &c~0~2905) . #f) ((?binding) . #f) ((?body0) . #f) ((?body1) . #f)))
            (4 (((dummy &c~0~3045) . #f) ((?binding0) . #f) ((?binding1) . #f) ((?body0) . #f) ((?body1) . #f)))
            (3
             (((let*-values) macro &let*-values~0~3044 (0) #f (core let-values))
              ((let-values) macro &let-values~0~2904 (0) #f (core let-values))
              ((call-with-values) variable call-with-values (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((begin) macro begin (1 0) #f ())
              ((syntax-rules) macro &syntax-rules~0~1756 (1) #f (core syntax-rules))
              ((letrec*) macro &letrec*~0~1877 (0) #f (core let))
              ((letrec) macro &letrec~0~1846 (0) #f (core let))
              ((let) macro &let~0~1798 (0) #f (core let))))
            (2 (((x &c~0~3045) variable &x~0~3047 (0) #f (core let-values))))
            (1 ())
            (0 (((dummy &c~0~3045) . #f) ((?body0) . #f) ((?body1) . #f))))))
      '((let-values macro &let-values~0~2904 (0) #f (core let-values))
        (let*-values macro &let*-values~0~3044 (0) #f (core let-values)))
      '(((core let) 0) ((core syntax-rules) 1) ((core primitives) 1 0))
      '(&build~0~1901 &build~0~1797 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&let-values~0~2904
          (lambda (&x~0~2907)
            (let ((&input~0~2909 &x~0~2907))
              (let ((&fail~0~2910
                      (lambda ()
                        (let ((&fail~0~2911
                                (lambda ()
                                  (let ((&fail~0~2912
                                          (lambda ()
                                            (let ((&fail~0~2913
                                                    (lambda ()
                                                      (let ((&fail~0~2914
                                                              (lambda ()
                                                                (let ((&fail~0~2915 (lambda () (ex:invalid-form &input~0~2909))))
                                                                  (if (pair? &input~0~2909)
                                                                    (let ((&temp~0~2940 (car &input~0~2909)))
                                                                      (let ((&dummy~0~2916 &temp~0~2940))
                                                                        (let ((&temp~0~2925 (cdr &input~0~2909)))
                                                                          (if (pair? &temp~0~2925)
                                                                            (let ((&temp~0~2939 (car &temp~0~2925)))
                                                                              (if (equal? &temp~0~2939 '"mktmp")
                                                                                (let ((&temp~0~2926 (cdr &temp~0~2925)))
                                                                                  (if (pair? &temp~0~2926)
                                                                                    (let ((&temp~0~2938 (car &temp~0~2926)))
                                                                                      (let ((&?a~0~2917 &temp~0~2938))
                                                                                        (let ((&temp~0~2927 (cdr &temp~0~2926)))
                                                                                          (if (pair? &temp~0~2927)
                                                                                            (let ((&temp~0~2937 (car &temp~0~2927)))
                                                                                              (let ((&?e0~0~2918 &temp~0~2937))
                                                                                                (let ((&temp~0~2928
                                                                                                        (cdr &temp~0~2927)))
                                                                                                  (if (pair? &temp~0~2928)
                                                                                                    (let ((&temp~0~2936
                                                                                                            (car &temp~0~2928)))
                                                                                                      (if (list? &temp~0~2936)
                                                                                                        (let ((&?arg~0~2919
                                                                                                                &temp~0~2936))
                                                                                                          (let ((&temp~0~2929
                                                                                                                  (cdr
                                                                                                                   &temp~0~2928)))
                                                                                                            (if (pair? &temp~0~2929)
                                                                                                              (let ((&temp~0~2935
                                                                                                                      (car
                                                                                                                       &temp~0~2929)))
                                                                                                                (let ((&?bindings~0~2920
                                                                                                                        &temp~0~2935))
                                                                                                                  (let ((&temp~0~2930
                                                                                                                          (cdr
                                                                                                                           &temp~0~2929)))
                                                                                                                    (if (pair?
                                                                                                                         &temp~0~2930)
                                                                                                                      (let ((&temp~0~2934
                                                                                                                              (car
                                                                                                                               &temp~0~2930)))
                                                                                                                        (if (list?
                                                                                                                             &temp~0~2934)
                                                                                                                          (let ((&?tmp~0~2921
                                                                                                                                  &temp~0~2934))
                                                                                                                            (let ((&temp~0~2931
                                                                                                                                    (cdr
                                                                                                                                     &temp~0~2930)))
                                                                                                                              (if (pair?
                                                                                                                                   &temp~0~2931)
                                                                                                                                (let ((&temp~0~2933
                                                                                                                                        (car
                                                                                                                                         &temp~0~2931)))
                                                                                                                                  (let ((&?body~0~2922
                                                                                                                                          &temp~0~2933))
                                                                                                                                    (let ((&temp~0~2932
                                                                                                                                            (cdr
                                                                                                                                             &temp~0~2931)))
                                                                                                                                      (if (null?
                                                                                                                                           &temp~0~2932)
                                                                                                                                        (cons
                                                                                                                                         (ex:syntax-rename
                                                                                                                                           'call-with-values
                                                                                                                                           '()
                                                                                                                                           '(&env~0~2924)
                                                                                                                                           0
                                                                                                                                           '(core
                                                                                                                                             let-values))
                                                                                                                                         (cons
                                                                                                                                          (cons
                                                                                                                                           (ex:syntax-rename
                                                                                                                                             'lambda
                                                                                                                                             '()
                                                                                                                                             '(&env~0~2924)
                                                                                                                                             0
                                                                                                                                             '(core
                                                                                                                                               let-values))
                                                                                                                                           (cons
                                                                                                                                            '()
                                                                                                                                            (cons
                                                                                                                                             &?e0~0~2918
                                                                                                                                             '())))
                                                                                                                                          (cons
                                                                                                                                           (cons
                                                                                                                                            (ex:syntax-rename
                                                                                                                                              'lambda
                                                                                                                                              '()
                                                                                                                                              '(&env~0~2924)
                                                                                                                                              0
                                                                                                                                              '(core
                                                                                                                                                let-values))
                                                                                                                                            (cons
                                                                                                                                             (append
                                                                                                                                               &?arg~0~2919
                                                                                                                                               (ex:syntax-rename
                                                                                                                                                 'x
                                                                                                                                                 '()
                                                                                                                                                 '(&env~0~2924)
                                                                                                                                                 0
                                                                                                                                                 '(core
                                                                                                                                                   let-values)))
                                                                                                                                             (cons
                                                                                                                                              (cons
                                                                                                                                               (ex:syntax-rename
                                                                                                                                                 'let-values
                                                                                                                                                 '()
                                                                                                                                                 '(&env~0~2924)
                                                                                                                                                 0
                                                                                                                                                 '(core
                                                                                                                                                   let-values))
                                                                                                                                               (cons
                                                                                                                                                '"bind"
                                                                                                                                                (cons
                                                                                                                                                 &?bindings~0~2920
                                                                                                                                                 (cons
                                                                                                                                                  (append
                                                                                                                                                    &?tmp~0~2921
                                                                                                                                                    (cons
                                                                                                                                                     (cons
                                                                                                                                                      &?a~0~2917
                                                                                                                                                      (cons
                                                                                                                                                       (ex:syntax-rename
                                                                                                                                                         'x
                                                                                                                                                         '()
                                                                                                                                                         '(&env~0~2924)
                                                                                                                                                         0
                                                                                                                                                         '(core
                                                                                                                                                           let-values))
                                                                                                                                                       '()))
                                                                                                                                                     '()))
                                                                                                                                                  (cons
                                                                                                                                                   &?body~0~2922
                                                                                                                                                   '())))))
                                                                                                                                              '())))
                                                                                                                                           '())))
                                                                                                                                        (&fail~0~2915)))))
                                                                                                                                (&fail~0~2915))))
                                                                                                                          (&fail~0~2915)))
                                                                                                                      (&fail~0~2915)))))
                                                                                                              (&fail~0~2915))))
                                                                                                        (&fail~0~2915)))
                                                                                                    (&fail~0~2915)))))
                                                                                            (&fail~0~2915)))))
                                                                                    (&fail~0~2915)))
                                                                                (&fail~0~2915)))
                                                                            (&fail~0~2915)))))
                                                                    (&fail~0~2915))))))
                                                        (if (pair? &input~0~2909)
                                                          (let ((&temp~0~2968 (car &input~0~2909)))
                                                            (let ((&dummy~0~2941 &temp~0~2968))
                                                              (let ((&temp~0~2951 (cdr &input~0~2909)))
                                                                (if (pair? &temp~0~2951)
                                                                  (let ((&temp~0~2967 (car &temp~0~2951)))
                                                                    (if (equal? &temp~0~2967 '"mktmp")
                                                                      (let ((&temp~0~2952 (cdr &temp~0~2951)))
                                                                        (if (pair? &temp~0~2952)
                                                                          (let ((&temp~0~2964 (car &temp~0~2952)))
                                                                            (if (pair? &temp~0~2964)
                                                                              (let ((&temp~0~2966 (car &temp~0~2964)))
                                                                                (let ((&?a~0~2942 &temp~0~2966))
                                                                                  (let ((&temp~0~2965 (cdr &temp~0~2964)))
                                                                                    (let ((&?b~0~2943 &temp~0~2965))
                                                                                      (let ((&temp~0~2953 (cdr &temp~0~2952)))
                                                                                        (if (pair? &temp~0~2953)
                                                                                          (let ((&temp~0~2963 (car &temp~0~2953)))
                                                                                            (let ((&?e0~0~2944 &temp~0~2963))
                                                                                              (let ((&temp~0~2954
                                                                                                      (cdr &temp~0~2953)))
                                                                                                (if (pair? &temp~0~2954)
                                                                                                  (let ((&temp~0~2962
                                                                                                          (car &temp~0~2954)))
                                                                                                    (if (list? &temp~0~2962)
                                                                                                      (let ((&?arg~0~2945
                                                                                                              &temp~0~2962))
                                                                                                        (let ((&temp~0~2955
                                                                                                                (cdr &temp~0~2954)))
                                                                                                          (if (pair? &temp~0~2955)
                                                                                                            (let ((&temp~0~2961
                                                                                                                    (car
                                                                                                                     &temp~0~2955)))
                                                                                                              (let ((&?bindings~0~2946
                                                                                                                      &temp~0~2961))
                                                                                                                (let ((&temp~0~2956
                                                                                                                        (cdr
                                                                                                                         &temp~0~2955)))
                                                                                                                  (if (pair?
                                                                                                                       &temp~0~2956)
                                                                                                                    (let ((&temp~0~2960
                                                                                                                            (car
                                                                                                                             &temp~0~2956)))
                                                                                                                      (if (list?
                                                                                                                           &temp~0~2960)
                                                                                                                        (let ((&?tmp~0~2947
                                                                                                                                &temp~0~2960))
                                                                                                                          (let ((&temp~0~2957
                                                                                                                                  (cdr
                                                                                                                                   &temp~0~2956)))
                                                                                                                            (if (pair?
                                                                                                                                 &temp~0~2957)
                                                                                                                              (let ((&temp~0~2959
                                                                                                                                      (car
                                                                                                                                       &temp~0~2957)))
                                                                                                                                (let ((&?body~0~2948
                                                                                                                                        &temp~0~2959))
                                                                                                                                  (let ((&temp~0~2958
                                                                                                                                          (cdr
                                                                                                                                           &temp~0~2957)))
                                                                                                                                    (if (null?
                                                                                                                                         &temp~0~2958)
                                                                                                                                      (cons
                                                                                                                                       (ex:syntax-rename
                                                                                                                                         'let-values
                                                                                                                                         '()
                                                                                                                                         '(&env~0~2950)
                                                                                                                                         0
                                                                                                                                         '(core
                                                                                                                                           let-values))
                                                                                                                                       (cons
                                                                                                                                        '"mktmp"
                                                                                                                                        (cons
                                                                                                                                         &?b~0~2943
                                                                                                                                         (cons
                                                                                                                                          &?e0~0~2944
                                                                                                                                          (cons
                                                                                                                                           (append
                                                                                                                                             &?arg~0~2945
                                                                                                                                             (cons
                                                                                                                                              (ex:syntax-rename
                                                                                                                                                'x
                                                                                                                                                '()
                                                                                                                                                '(&env~0~2950)
                                                                                                                                                0
                                                                                                                                                '(core
                                                                                                                                                  let-values))
                                                                                                                                              '()))
                                                                                                                                           (cons
                                                                                                                                            &?bindings~0~2946
                                                                                                                                            (cons
                                                                                                                                             (append
                                                                                                                                               &?tmp~0~2947
                                                                                                                                               (cons
                                                                                                                                                (cons
                                                                                                                                                 &?a~0~2942
                                                                                                                                                 (cons
                                                                                                                                                  (ex:syntax-rename
                                                                                                                                                    'x
                                                                                                                                                    '()
                                                                                                                                                    '(&env~0~2950)
                                                                                                                                                    0
                                                                                                                                                    '(core
                                                                                                                                                      let-values))
                                                                                                                                                  '()))
                                                                                                                                                '()))
                                                                                                                                             (cons
                                                                                                                                              &?body~0~2948
                                                                                                                                              '()))))))))
                                                                                                                                      (&fail~0~2914)))))
                                                                                                                              (&fail~0~2914))))
                                                                                                                        (&fail~0~2914)))
                                                                                                                    (&fail~0~2914)))))
                                                                                                            (&fail~0~2914))))
                                                                                                      (&fail~0~2914)))
                                                                                                  (&fail~0~2914)))))
                                                                                          (&fail~0~2914)))))))
                                                                              (&fail~0~2914)))
                                                                          (&fail~0~2914)))
                                                                      (&fail~0~2914)))
                                                                  (&fail~0~2914)))))
                                                          (&fail~0~2914))))))
                                              (if (pair? &input~0~2909)
                                                (let ((&temp~0~2992 (car &input~0~2909)))
                                                  (let ((&dummy~0~2969 &temp~0~2992))
                                                    (let ((&temp~0~2977 (cdr &input~0~2909)))
                                                      (if (pair? &temp~0~2977)
                                                        (let ((&temp~0~2991 (car &temp~0~2977)))
                                                          (if (equal? &temp~0~2991 '"mktmp")
                                                            (let ((&temp~0~2978 (cdr &temp~0~2977)))
                                                              (if (pair? &temp~0~2978)
                                                                (let ((&temp~0~2990 (car &temp~0~2978)))
                                                                  (if (null? &temp~0~2990)
                                                                    (let ((&temp~0~2979 (cdr &temp~0~2978)))
                                                                      (if (pair? &temp~0~2979)
                                                                        (let ((&temp~0~2989 (car &temp~0~2979)))
                                                                          (let ((&?e0~0~2970 &temp~0~2989))
                                                                            (let ((&temp~0~2980 (cdr &temp~0~2979)))
                                                                              (if (pair? &temp~0~2980)
                                                                                (let ((&temp~0~2988 (car &temp~0~2980)))
                                                                                  (let ((&?args~0~2971 &temp~0~2988))
                                                                                    (let ((&temp~0~2981 (cdr &temp~0~2980)))
                                                                                      (if (pair? &temp~0~2981)
                                                                                        (let ((&temp~0~2987 (car &temp~0~2981)))
                                                                                          (let ((&?bindings~0~2972 &temp~0~2987))
                                                                                            (let ((&temp~0~2982 (cdr &temp~0~2981)))
                                                                                              (if (pair? &temp~0~2982)
                                                                                                (let ((&temp~0~2986
                                                                                                        (car &temp~0~2982)))
                                                                                                  (let ((&?tmps~0~2973 &temp~0~2986))
                                                                                                    (let ((&temp~0~2983
                                                                                                            (cdr &temp~0~2982)))
                                                                                                      (if (pair? &temp~0~2983)
                                                                                                        (let ((&temp~0~2985
                                                                                                                (car &temp~0~2983)))
                                                                                                          (let ((&?body~0~2974
                                                                                                                  &temp~0~2985))
                                                                                                            (let ((&temp~0~2984
                                                                                                                    (cdr
                                                                                                                     &temp~0~2983)))
                                                                                                              (if (null?
                                                                                                                   &temp~0~2984)
                                                                                                                (cons
                                                                                                                 (ex:syntax-rename
                                                                                                                   'call-with-values
                                                                                                                   '()
                                                                                                                   '(&env~0~2976)
                                                                                                                   0
                                                                                                                   '(core
                                                                                                                     let-values))
                                                                                                                 (cons
                                                                                                                  (cons
                                                                                                                   (ex:syntax-rename
                                                                                                                     'lambda
                                                                                                                     '()
                                                                                                                     '(&env~0~2976)
                                                                                                                     0
                                                                                                                     '(core
                                                                                                                       let-values))
                                                                                                                   (cons
                                                                                                                    '()
                                                                                                                    (cons
                                                                                                                     &?e0~0~2970
                                                                                                                     '())))
                                                                                                                  (cons
                                                                                                                   (cons
                                                                                                                    (ex:syntax-rename
                                                                                                                      'lambda
                                                                                                                      '()
                                                                                                                      '(&env~0~2976)
                                                                                                                      0
                                                                                                                      '(core
                                                                                                                        let-values))
                                                                                                                    (cons
                                                                                                                     &?args~0~2971
                                                                                                                     (cons
                                                                                                                      (cons
                                                                                                                       (ex:syntax-rename
                                                                                                                         'let-values
                                                                                                                         '()
                                                                                                                         '(&env~0~2976)
                                                                                                                         0
                                                                                                                         '(core
                                                                                                                           let-values))
                                                                                                                       (cons
                                                                                                                        '"bind"
                                                                                                                        (cons
                                                                                                                         &?bindings~0~2972
                                                                                                                         (cons
                                                                                                                          &?tmps~0~2973
                                                                                                                          (cons
                                                                                                                           &?body~0~2974
                                                                                                                           '())))))
                                                                                                                      '())))
                                                                                                                   '())))
                                                                                                                (&fail~0~2913)))))
                                                                                                        (&fail~0~2913)))))
                                                                                                (&fail~0~2913)))))
                                                                                        (&fail~0~2913)))))
                                                                                (&fail~0~2913)))))
                                                                        (&fail~0~2913)))
                                                                    (&fail~0~2913)))
                                                                (&fail~0~2913)))
                                                            (&fail~0~2913)))
                                                        (&fail~0~2913)))))
                                                (&fail~0~2913))))))
                                    (if (pair? &input~0~2909)
                                      (let ((&temp~0~3016 (car &input~0~2909)))
                                        (let ((&dummy~0~2993 &temp~0~3016))
                                          (let ((&temp~0~3001 (cdr &input~0~2909)))
                                            (if (pair? &temp~0~3001)
                                              (let ((&temp~0~3015 (car &temp~0~3001)))
                                                (if (equal? &temp~0~3015 '"bind")
                                                  (let ((&temp~0~3002 (cdr &temp~0~3001)))
                                                    (if (pair? &temp~0~3002)
                                                      (let ((&temp~0~3008 (car &temp~0~3002)))
                                                        (if (pair? &temp~0~3008)
                                                          (let ((&temp~0~3010 (car &temp~0~3008)))
                                                            (if (pair? &temp~0~3010)
                                                              (let ((&temp~0~3014 (car &temp~0~3010)))
                                                                (let ((&?b0~0~2994 &temp~0~3014))
                                                                  (let ((&temp~0~3011 (cdr &temp~0~3010)))
                                                                    (if (pair? &temp~0~3011)
                                                                      (let ((&temp~0~3013 (car &temp~0~3011)))
                                                                        (let ((&?e0~0~2995 &temp~0~3013))
                                                                          (let ((&temp~0~3012 (cdr &temp~0~3011)))
                                                                            (if (null? &temp~0~3012)
                                                                              (let ((&temp~0~3009 (cdr &temp~0~3008)))
                                                                                (if (list? &temp~0~3009)
                                                                                  (let ((&?binding~0~2996 &temp~0~3009))
                                                                                    (let ((&temp~0~3003 (cdr &temp~0~3002)))
                                                                                      (if (pair? &temp~0~3003)
                                                                                        (let ((&temp~0~3007 (car &temp~0~3003)))
                                                                                          (let ((&?tmps~0~2997 &temp~0~3007))
                                                                                            (let ((&temp~0~3004 (cdr &temp~0~3003)))
                                                                                              (if (pair? &temp~0~3004)
                                                                                                (let ((&temp~0~3006
                                                                                                        (car &temp~0~3004)))
                                                                                                  (let ((&?body~0~2998 &temp~0~3006))
                                                                                                    (let ((&temp~0~3005
                                                                                                            (cdr &temp~0~3004)))
                                                                                                      (if (null? &temp~0~3005)
                                                                                                        (cons
                                                                                                         (ex:syntax-rename
                                                                                                           'let-values
                                                                                                           '()
                                                                                                           '(&env~0~3000)
                                                                                                           0
                                                                                                           '(core let-values))
                                                                                                         (cons
                                                                                                          '"mktmp"
                                                                                                          (cons
                                                                                                           &?b0~0~2994
                                                                                                           (cons
                                                                                                            &?e0~0~2995
                                                                                                            (cons
                                                                                                             '()
                                                                                                             (cons
                                                                                                              &?binding~0~2996
                                                                                                              (cons
                                                                                                               &?tmps~0~2997
                                                                                                               (cons
                                                                                                                &?body~0~2998
                                                                                                                '()))))))))
                                                                                                        (&fail~0~2912)))))
                                                                                                (&fail~0~2912)))))
                                                                                        (&fail~0~2912))))
                                                                                  (&fail~0~2912)))
                                                                              (&fail~0~2912)))))
                                                                      (&fail~0~2912)))))
                                                              (&fail~0~2912)))
                                                          (&fail~0~2912)))
                                                      (&fail~0~2912)))
                                                  (&fail~0~2912)))
                                              (&fail~0~2912)))))
                                      (&fail~0~2912))))))
                          (if (pair? &input~0~2909)
                            (let ((&temp~0~3031 (car &input~0~2909)))
                              (let ((&dummy~0~3017 &temp~0~3031))
                                (let ((&temp~0~3022 (cdr &input~0~2909)))
                                  (if (pair? &temp~0~3022)
                                    (let ((&temp~0~3030 (car &temp~0~3022)))
                                      (if (equal? &temp~0~3030 '"bind")
                                        (let ((&temp~0~3023 (cdr &temp~0~3022)))
                                          (if (pair? &temp~0~3023)
                                            (let ((&temp~0~3029 (car &temp~0~3023)))
                                              (if (null? &temp~0~3029)
                                                (let ((&temp~0~3024 (cdr &temp~0~3023)))
                                                  (if (pair? &temp~0~3024)
                                                    (let ((&temp~0~3028 (car &temp~0~3024)))
                                                      (let ((&?tmps~0~3018 &temp~0~3028))
                                                        (let ((&temp~0~3025 (cdr &temp~0~3024)))
                                                          (if (pair? &temp~0~3025)
                                                            (let ((&temp~0~3027 (car &temp~0~3025)))
                                                              (let ((&?body~0~3019 &temp~0~3027))
                                                                (let ((&temp~0~3026 (cdr &temp~0~3025)))
                                                                  (if (null? &temp~0~3026)
                                                                    (cons
                                                                     (ex:syntax-rename 'let '() '(&env~0~3021) 0 '(core let-values))
                                                                     (cons &?tmps~0~3018 (cons &?body~0~3019 '())))
                                                                    (&fail~0~2911)))))
                                                            (&fail~0~2911)))))
                                                    (&fail~0~2911)))
                                                (&fail~0~2911)))
                                            (&fail~0~2911)))
                                        (&fail~0~2911)))
                                    (&fail~0~2911)))))
                            (&fail~0~2911))))))
                (if (pair? &input~0~2909)
                  (let ((&temp~0~3043 (car &input~0~2909)))
                    (let ((&dummy~0~3032 &temp~0~3043))
                      (let ((&temp~0~3038 (cdr &input~0~2909)))
                        (if (pair? &temp~0~3038)
                          (let ((&temp~0~3042 (car &temp~0~3038)))
                            (if (list? &temp~0~3042)
                              (let ((&?binding~0~3033 &temp~0~3042))
                                (let ((&temp~0~3039 (cdr &temp~0~3038)))
                                  (if (pair? &temp~0~3039)
                                    (let ((&temp~0~3041 (car &temp~0~3039)))
                                      (let ((&?body0~0~3034 &temp~0~3041))
                                        (let ((&temp~0~3040 (cdr &temp~0~3039)))
                                          (if (list? &temp~0~3040)
                                            (let ((&?body1~0~3035 &temp~0~3040))
                                              (cons
                                               (ex:syntax-rename 'let-values '() '(&env~0~3037) 0 '(core let-values))
                                               (cons
                                                '"bind"
                                                (cons
                                                 &?binding~0~3033
                                                 (cons
                                                  '()
                                                  (cons
                                                   (cons
                                                    (ex:syntax-rename 'begin '() '(&env~0~3037) 0 '(core let-values))
                                                    (cons &?body0~0~3034 &?body1~0~3035))
                                                   '()))))))
                                            (&fail~0~2910)))))
                                    (&fail~0~2910))))
                              (&fail~0~2910)))
                          (&fail~0~2910)))))
                  (&fail~0~2910))))))
        (ex:register-macro!
          '&let*-values~0~3044
          (lambda (&x~0~3047)
            (let ((&input~0~3049 &x~0~3047))
              (let ((&fail~0~3050
                      (lambda ()
                        (let ((&fail~0~3051 (lambda () (ex:invalid-form &input~0~3049))))
                          (if (pair? &input~0~3049)
                            (let ((&temp~0~3066 (car &input~0~3049)))
                              (let ((&dummy~0~3052 &temp~0~3066))
                                (let ((&temp~0~3059 (cdr &input~0~3049)))
                                  (if (pair? &temp~0~3059)
                                    (let ((&temp~0~3063 (car &temp~0~3059)))
                                      (if (pair? &temp~0~3063)
                                        (let ((&temp~0~3065 (car &temp~0~3063)))
                                          (let ((&?binding0~0~3053 &temp~0~3065))
                                            (let ((&temp~0~3064 (cdr &temp~0~3063)))
                                              (if (list? &temp~0~3064)
                                                (let ((&?binding1~0~3054 &temp~0~3064))
                                                  (let ((&temp~0~3060 (cdr &temp~0~3059)))
                                                    (if (pair? &temp~0~3060)
                                                      (let ((&temp~0~3062 (car &temp~0~3060)))
                                                        (let ((&?body0~0~3055 &temp~0~3062))
                                                          (let ((&temp~0~3061 (cdr &temp~0~3060)))
                                                            (if (list? &temp~0~3061)
                                                              (let ((&?body1~0~3056 &temp~0~3061))
                                                                (cons
                                                                 (ex:syntax-rename
                                                                   'let-values
                                                                   '()
                                                                   '(&env~0~3058)
                                                                   0
                                                                   '(core let-values))
                                                                 (cons
                                                                  (cons &?binding0~0~3053 '())
                                                                  (cons
                                                                   (cons
                                                                    (ex:syntax-rename
                                                                      'let*-values
                                                                      '()
                                                                      '(&env~0~3058)
                                                                      0
                                                                      '(core let-values))
                                                                    (cons &?binding1~0~3054 (cons &?body0~0~3055 &?body1~0~3056)))
                                                                   '()))))
                                                              (&fail~0~3051)))))
                                                      (&fail~0~3051))))
                                                (&fail~0~3051)))))
                                        (&fail~0~3051)))
                                    (&fail~0~3051)))))
                            (&fail~0~3051))))))
                (if (pair? &input~0~3049)
                  (let ((&temp~0~3077 (car &input~0~3049)))
                    (let ((&dummy~0~3067 &temp~0~3077))
                      (let ((&temp~0~3072 (cdr &input~0~3049)))
                        (if (pair? &temp~0~3072)
                          (let ((&temp~0~3076 (car &temp~0~3072)))
                            (if (null? &temp~0~3076)
                              (let ((&temp~0~3073 (cdr &temp~0~3072)))
                                (if (pair? &temp~0~3073)
                                  (let ((&temp~0~3075 (car &temp~0~3073)))
                                    (let ((&?body0~0~3068 &temp~0~3075))
                                      (let ((&temp~0~3074 (cdr &temp~0~3073)))
                                        (if (list? &temp~0~3074)
                                          (let ((&?body1~0~3069 &temp~0~3074))
                                            (cons
                                             (ex:syntax-rename 'begin '() '(&env~0~3071) 0 '(core let-values))
                                             (cons &?body0~0~3068 &?body1~0~3069)))
                                          (&fail~0~3050)))))
                                  (&fail~0~3050)))
                              (&fail~0~3050)))
                          (&fail~0~3050)))))
                  (&fail~0~3050))))))
        (values))
      (lambda () (values))
      '&build~0~3078))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs control)
      (lambda ()
        (ex:uncompress
          '(((&env~0~3296 0 1 2 3)
             (&env~0~3279 4 1 2 3)
             (&env~0~3254 5 1 2 3)
             (&env~0~3231 6 1 2 3)
             (&env~0~3204 7 8 9 3)
             (&env~0~3190 10 8 9 3)
             (&env~0~3162 11 12 13 14 15 3)
             (&env~0~3158 16 12 13 14 15 3)
             (&env~0~3110 17 18 19 3)
             (&env~0~3091 20 21 22 3))
            (22 (((x &c~0~3080) variable &x~0~3082 (0) #f (rnrs control))))
            (21 ())
            (20 (((dummy &c~0~3080) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f)))
            (19 (((x &c~0~3099) variable &x~0~3101 (0) #f (rnrs control))))
            (18 ())
            (17 (((dummy &c~0~3099) . #f) ((test) . #f) ((result1) . #f) ((result2) . #f)))
            (16 (((e1) . #f) ((e2) . #f)))
            (15 (((orig-x) variable &orig-x~0~3119 (1) #f (rnrs control))))
            (14 ())
            (13 (((var) . #f) ((init) . #f) ((step) . #f) ((e0) . #f) ((e1) . #f) ((c) . #f)))
            (12 (((step) . #f)))
            (11 ())
            (10 (((dummy &c~0~3178) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f)))
            (9 (((x &c~0~3178) variable &x~0~3180 (0) #f (rnrs control))))
            (8 ())
            (7 (((dummy &c~0~3178) . #f) ((fmls) . #f) ((b1) . #f) ((b2) . #f)))
            (6 (((dummy &c~0~3214) . #f) ((args) . #f) ((n) . #f) ((r) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f)))
            (5
             (((dummy &c~0~3214) . #f)
              ((args) . #f)
              ((n) . #f)
              ((x1) . #f)
              ((x2) . #f)
              ((r) . #f)
              ((b1) . #f)
              ((b2) . #f)
              ((more) . #f)))
            (4 (((dummy &c~0~3214) . #f) ((args) . #f) ((n) . #f) ((x) . #f) ((b1) . #f) ((b2) . #f) ((more) . #f)))
            (3
             (((case-lambda-help) macro &case-lambda-help~0~3213 (0) #f (rnrs control))
              ((case-lambda) macro &case-lambda~0~3177 (0) #f (rnrs control))
              ((do) macro &do~0~3117 (0) #f (rnrs control))
              ((unless) macro &unless~0~3098 (0) #f (rnrs control))
              ((when) macro &when~0~3079 (0) #f (rnrs control))
              ((syntax-violation) variable ex:syntax-violation (1 0) #f ())
              ((assertion-violation) variable assertion-violation (1 0) #f ())
              ((not) variable not (1 0) #f ())
              ((map) variable map (1 0) #f ())
              ((length) variable length (1 0) #f ())
              ((apply) variable apply (1 0) #f ())
              ((>=) variable >= (1 0) #f ())
              ((=) variable = (1 0) #f ())
              ((syntax-case) macro syntax-case (1 0) #f ())
              ((syntax) macro syntax (1 0) #f ())
              ((...) macro ... (1 0) #f ())
              ((_) macro _ (1 0) #f ())
              ((define-syntax) macro define-syntax (1 0) #f ())
              ((quote) macro quote (1 0) #f ())
              ((lambda) macro lambda (1 0) #f ())
              ((if) macro if (1 0) #f ())
              ((begin) macro begin (1 0) #f ())
              ((letrec*) macro &letrec*~0~1877 (1 0) #f (core let))
              ((letrec) macro &letrec~0~1846 (1 0) #f (core let))
              ((let) macro &let~0~1798 (1 0) #f (core let))
              ((with-syntax) macro &with-syntax~0~1701 (1) #f (core with-syntax))
              ((syntax-rules) macro &syntax-rules~0~1756 (1) #f (core syntax-rules))))
            (2 (((x &c~0~3214) variable &x~0~3216 (0) #f (rnrs control))))
            (1 ())
            (0 (((dummy &c~0~3214) . #f) ((args) . #f) ((n) . #f))))))
      '((when macro &when~0~3079 (0) #f (rnrs control))
        (unless macro &unless~0~3098 (0) #f (rnrs control))
        (do macro &do~0~3117 (0) #f (rnrs control))
        (case-lambda macro &case-lambda~0~3177 (0) #f (rnrs control)))
      '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0))
      '(&build~0~1797 &build~0~1755 &build~0~1901 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&when~0~3079
          (lambda (&x~0~3082)
            (let ((&input~0~3084 &x~0~3082))
              (let ((&fail~0~3085 (lambda () (ex:invalid-form &input~0~3084))))
                (if (pair? &input~0~3084)
                  (let ((&temp~0~3097 (car &input~0~3084)))
                    (let ((&dummy~0~3086 &temp~0~3097))
                      (let ((&temp~0~3092 (cdr &input~0~3084)))
                        (if (pair? &temp~0~3092)
                          (let ((&temp~0~3096 (car &temp~0~3092)))
                            (let ((&test~0~3087 &temp~0~3096))
                              (let ((&temp~0~3093 (cdr &temp~0~3092)))
                                (if (pair? &temp~0~3093)
                                  (let ((&temp~0~3095 (car &temp~0~3093)))
                                    (let ((&result1~0~3088 &temp~0~3095))
                                      (let ((&temp~0~3094 (cdr &temp~0~3093)))
                                        (if (list? &temp~0~3094)
                                          (let ((&result2~0~3089 &temp~0~3094))
                                            (cons
                                             (ex:syntax-rename 'if '() '(&env~0~3091) 0 '(rnrs control))
                                             (cons
                                              &test~0~3087
                                              (cons
                                               (cons
                                                (ex:syntax-rename 'begin '() '(&env~0~3091) 0 '(rnrs control))
                                                (cons &result1~0~3088 &result2~0~3089))
                                               '()))))
                                          (&fail~0~3085)))))
                                  (&fail~0~3085)))))
                          (&fail~0~3085)))))
                  (&fail~0~3085))))))
        (ex:register-macro!
          '&unless~0~3098
          (lambda (&x~0~3101)
            (let ((&input~0~3103 &x~0~3101))
              (let ((&fail~0~3104 (lambda () (ex:invalid-form &input~0~3103))))
                (if (pair? &input~0~3103)
                  (let ((&temp~0~3116 (car &input~0~3103)))
                    (let ((&dummy~0~3105 &temp~0~3116))
                      (let ((&temp~0~3111 (cdr &input~0~3103)))
                        (if (pair? &temp~0~3111)
                          (let ((&temp~0~3115 (car &temp~0~3111)))
                            (let ((&test~0~3106 &temp~0~3115))
                              (let ((&temp~0~3112 (cdr &temp~0~3111)))
                                (if (pair? &temp~0~3112)
                                  (let ((&temp~0~3114 (car &temp~0~3112)))
                                    (let ((&result1~0~3107 &temp~0~3114))
                                      (let ((&temp~0~3113 (cdr &temp~0~3112)))
                                        (if (list? &temp~0~3113)
                                          (let ((&result2~0~3108 &temp~0~3113))
                                            (cons
                                             (ex:syntax-rename 'if '() '(&env~0~3110) 0 '(rnrs control))
                                             (cons
                                              (cons
                                               (ex:syntax-rename 'not '() '(&env~0~3110) 0 '(rnrs control))
                                               (cons &test~0~3106 '()))
                                              (cons
                                               (cons
                                                (ex:syntax-rename 'begin '() '(&env~0~3110) 0 '(rnrs control))
                                                (cons &result1~0~3107 &result2~0~3108))
                                               '()))))
                                          (&fail~0~3104)))))
                                  (&fail~0~3104)))))
                          (&fail~0~3104)))))
                  (&fail~0~3104))))))
        (ex:register-macro!
          '&do~0~3117
          (lambda (&orig-x~0~3119)
            (let ((&input~0~3121 &orig-x~0~3119))
              (let ((&fail~0~3122 (lambda () (ex:invalid-form &input~0~3121))))
                (if (pair? &input~0~3121)
                  (let ((&temp~0~3176 (car &input~0~3121)))
                    (let ((&temp~0~3163 (cdr &input~0~3121)))
                      (if (pair? &temp~0~3163)
                        (let ((&temp~0~3169 (car &temp~0~3163)))
                          (ex:map-while
                            (lambda (&temp~0~3169)
                              (if (pair? &temp~0~3169)
                                (let ((&temp~0~3175 (car &temp~0~3169)))
                                  (let ((&var~0~3123 &temp~0~3175))
                                    (let ((&temp~0~3172 (cdr &temp~0~3169)))
                                      (if (pair? &temp~0~3172)
                                        (let ((&temp~0~3174 (car &temp~0~3172)))
                                          (let ((&init~0~3124 &temp~0~3174))
                                            (let ((&temp~0~3173 (cdr &temp~0~3172)))
                                              (let ((&step~0~3125 &temp~0~3173)) (list &var~0~3123 &init~0~3124 &step~0~3125)))))
                                        #f))))
                                #f))
                            &temp~0~3169
                            (lambda (&cols~0~3170 &rest~0~3171)
                              (if (null? &rest~0~3171)
                                (apply
                                 (lambda (&var~0~3123 &init~0~3124 &step~0~3125)
                                   (let ((&temp~0~3164 (cdr &temp~0~3163)))
                                     (if (pair? &temp~0~3164)
                                       (let ((&temp~0~3166 (car &temp~0~3164)))
                                         (if (pair? &temp~0~3166)
                                           (let ((&temp~0~3168 (car &temp~0~3166)))
                                             (let ((&e0~0~3126 &temp~0~3168))
                                               (let ((&temp~0~3167 (cdr &temp~0~3166)))
                                                 (if (list? &temp~0~3167)
                                                   (let ((&e1~0~3127 &temp~0~3167))
                                                     (let ((&temp~0~3165 (cdr &temp~0~3164)))
                                                       (if (list? &temp~0~3165)
                                                         (let ((&c~0~3128 &temp~0~3165))
                                                           (let ((&input~0~3131
                                                                   (map
                                                                    (lambda (&v~0~3133 &s~0~3134)
                                                                      (let ((&input~0~3136 &s~0~3134))
                                                                        (let ((&fail~0~3137
                                                                                (lambda ()
                                                                                  (let ((&fail~0~3138
                                                                                          (lambda ()
                                                                                            (let ((&fail~0~3139
                                                                                                    (lambda ()
                                                                                                      (ex:invalid-form
                                                                                                        &input~0~3136))))
                                                                                              (ex:syntax-violation
                                                                                                'do
                                                                                                "Invalid step"
                                                                                                &orig-x~0~3119
                                                                                                &s~0~3134)))))
                                                                                    (if (pair? &input~0~3136)
                                                                                      (let ((&temp~0~3144 (car &input~0~3136)))
                                                                                        (let ((&e~0~3141 &temp~0~3144))
                                                                                          (let ((&temp~0~3143 (cdr &input~0~3136)))
                                                                                            (if (null? &temp~0~3143)
                                                                                              &e~0~3141
                                                                                              (&fail~0~3138)))))
                                                                                      (&fail~0~3138))))))
                                                                          (if (null? &input~0~3136) &v~0~3133 (&fail~0~3137)))))
                                                                    &var~0~3123
                                                                    &step~0~3125)))
                                                             (let ((&fail~0~3147 (lambda () (ex:invalid-form &input~0~3131))))
                                                               (if (list? &input~0~3131)
                                                                 (let ((&step~0~3148 &input~0~3131))
                                                                   (begin
                                                                     (let ((&input~0~3151 &e1~0~3127))
                                                                       (let ((&fail~0~3153
                                                                               (lambda ()
                                                                                 (let ((&fail~0~3154
                                                                                         (lambda ()
                                                                                           (ex:invalid-form &input~0~3151))))
                                                                                   (if (pair? &input~0~3151)
                                                                                     (let ((&temp~0~3160 (car &input~0~3151)))
                                                                                       (let ((&e1~0~3155 &temp~0~3160))
                                                                                         (let ((&temp~0~3159 (cdr &input~0~3151)))
                                                                                           (if (list? &temp~0~3159)
                                                                                             (let ((&e2~0~3156 &temp~0~3159))
                                                                                               (cons
                                                                                                (ex:syntax-rename
                                                                                                  'let
                                                                                                  '()
                                                                                                  '(&env~0~3158)
                                                                                                  0
                                                                                                  '(rnrs control))
                                                                                                (cons
                                                                                                 (ex:syntax-rename
                                                                                                   'do
                                                                                                   '()
                                                                                                   '(&env~0~3158)
                                                                                                   0
                                                                                                   '(rnrs control))
                                                                                                 (cons
                                                                                                  (map
                                                                                                   (lambda (&var~0~3123 &init~0~3124)
                                                                                                     (cons
                                                                                                      &var~0~3123
                                                                                                      (cons &init~0~3124 '())))
                                                                                                   &var~0~3123
                                                                                                   &init~0~3124)
                                                                                                  (cons
                                                                                                   (cons
                                                                                                    (ex:syntax-rename
                                                                                                      'if
                                                                                                      '()
                                                                                                      '(&env~0~3158)
                                                                                                      0
                                                                                                      '(rnrs control))
                                                                                                    (cons
                                                                                                     &e0~0~3126
                                                                                                     (cons
                                                                                                      (cons
                                                                                                       (ex:syntax-rename
                                                                                                         'begin
                                                                                                         '()
                                                                                                         '(&env~0~3158)
                                                                                                         0
                                                                                                         '(rnrs control))
                                                                                                       (cons &e1~0~3155 &e2~0~3156))
                                                                                                      (cons
                                                                                                       (cons
                                                                                                        (ex:syntax-rename
                                                                                                          'begin
                                                                                                          '()
                                                                                                          '(&env~0~3158)
                                                                                                          0
                                                                                                          '(rnrs control))
                                                                                                        (append
                                                                                                          &c~0~3128
                                                                                                          (cons
                                                                                                           (cons
                                                                                                            (ex:syntax-rename
                                                                                                              'do
                                                                                                              '()
                                                                                                              '(&env~0~3158)
                                                                                                              0
                                                                                                              '(rnrs control))
                                                                                                            &step~0~3148)
                                                                                                           '())))
                                                                                                       '()))))
                                                                                                   '())))))
                                                                                             (&fail~0~3154)))))
                                                                                     (&fail~0~3154))))))
                                                                         (if (null? &input~0~3151)
                                                                           (cons
                                                                            (ex:syntax-rename
                                                                              'let
                                                                              '()
                                                                              '(&env~0~3162)
                                                                              0
                                                                              '(rnrs control))
                                                                            (cons
                                                                             (ex:syntax-rename
                                                                               'do
                                                                               '()
                                                                               '(&env~0~3162)
                                                                               0
                                                                               '(rnrs control))
                                                                             (cons
                                                                              (map
                                                                               (lambda (&var~0~3123 &init~0~3124)
                                                                                 (cons &var~0~3123 (cons &init~0~3124 '())))
                                                                               &var~0~3123
                                                                               &init~0~3124)
                                                                              (cons
                                                                               (cons
                                                                                (ex:syntax-rename
                                                                                  'if
                                                                                  '()
                                                                                  '(&env~0~3162)
                                                                                  0
                                                                                  '(rnrs control))
                                                                                (cons
                                                                                 (cons
                                                                                  (ex:syntax-rename
                                                                                    'not
                                                                                    '()
                                                                                    '(&env~0~3162)
                                                                                    0
                                                                                    '(rnrs control))
                                                                                  (cons &e0~0~3126 '()))
                                                                                 (cons
                                                                                  (cons
                                                                                   (ex:syntax-rename
                                                                                     'begin
                                                                                     '()
                                                                                     '(&env~0~3162)
                                                                                     0
                                                                                     '(rnrs control))
                                                                                   (append
                                                                                     &c~0~3128
                                                                                     (cons
                                                                                      (cons
                                                                                       (ex:syntax-rename
                                                                                         'do
                                                                                         '()
                                                                                         '(&env~0~3162)
                                                                                         0
                                                                                         '(rnrs control))
                                                                                       &step~0~3148)
                                                                                      '())))
                                                                                  '())))
                                                                               '()))))
                                                                           (&fail~0~3153))))))
                                                                 (&fail~0~3147)))))
                                                         (&fail~0~3122))))
                                                   (&fail~0~3122)))))
                                           (&fail~0~3122)))
                                       (&fail~0~3122))))
                                 (if (null? &cols~0~3170) '(() () ()) (apply map list &cols~0~3170)))
                                (&fail~0~3122)))))
                        (&fail~0~3122))))
                  (&fail~0~3122))))))
        (ex:register-macro!
          '&case-lambda~0~3177
          (lambda (&x~0~3180)
            (let ((&input~0~3182 &x~0~3180))
              (let ((&fail~0~3183
                      (lambda ()
                        (let ((&fail~0~3184 (lambda () (ex:invalid-form &input~0~3182))))
                          (if (pair? &input~0~3182)
                            (let ((&temp~0~3198 (car &input~0~3182)))
                              (let ((&dummy~0~3185 &temp~0~3198))
                                (let ((&temp~0~3191 (cdr &input~0~3182)))
                                  (ex:map-while
                                    (lambda (&temp~0~3191)
                                      (if (pair? &temp~0~3191)
                                        (let ((&temp~0~3197 (car &temp~0~3191)))
                                          (let ((&fmls~0~3186 &temp~0~3197))
                                            (let ((&temp~0~3194 (cdr &temp~0~3191)))
                                              (if (pair? &temp~0~3194)
                                                (let ((&temp~0~3196 (car &temp~0~3194)))
                                                  (let ((&b1~0~3187 &temp~0~3196))
                                                    (let ((&temp~0~3195 (cdr &temp~0~3194)))
                                                      (if (list? &temp~0~3195)
                                                        (let ((&b2~0~3188 &temp~0~3195)) (list &fmls~0~3186 &b1~0~3187 &b2~0~3188))
                                                        #f))))
                                                #f))))
                                        #f))
                                    &temp~0~3191
                                    (lambda (&cols~0~3192 &rest~0~3193)
                                      (if (null? &rest~0~3193)
                                        (apply
                                         (lambda (&fmls~0~3186 &b1~0~3187 &b2~0~3188)
                                           (cons
                                            (ex:syntax-rename 'lambda '() '(&env~0~3190) 0 '(rnrs control))
                                            (cons
                                             (ex:syntax-rename 'args '() '(&env~0~3190) 0 '(rnrs control))
                                             (cons
                                              (cons
                                               (ex:syntax-rename 'let '() '(&env~0~3190) 0 '(rnrs control))
                                               (cons
                                                (cons
                                                 (cons
                                                  (ex:syntax-rename 'n '() '(&env~0~3190) 0 '(rnrs control))
                                                  (cons
                                                   (cons
                                                    (ex:syntax-rename 'length '() '(&env~0~3190) 0 '(rnrs control))
                                                    (cons (ex:syntax-rename 'args '() '(&env~0~3190) 0 '(rnrs control)) '()))
                                                   '()))
                                                 '())
                                                (cons
                                                 (cons
                                                  (ex:syntax-rename 'case-lambda-help '() '(&env~0~3190) 0 '(rnrs control))
                                                  (cons
                                                   (ex:syntax-rename 'args '() '(&env~0~3190) 0 '(rnrs control))
                                                   (cons
                                                    (ex:syntax-rename 'n '() '(&env~0~3190) 0 '(rnrs control))
                                                    (map
                                                     (lambda (&fmls~0~3186 &b1~0~3187 &b2~0~3188)
                                                       (cons &fmls~0~3186 (cons &b1~0~3187 &b2~0~3188)))
                                                     &fmls~0~3186
                                                     &b1~0~3187
                                                     &b2~0~3188))))
                                                 '())))
                                              '()))))
                                         (if (null? &cols~0~3192) '(() () ()) (apply map list &cols~0~3192)))
                                        (&fail~0~3184)))))))
                            (&fail~0~3184))))))
                (if (pair? &input~0~3182)
                  (let ((&temp~0~3212 (car &input~0~3182)))
                    (let ((&dummy~0~3199 &temp~0~3212))
                      (let ((&temp~0~3205 (cdr &input~0~3182)))
                        (if (pair? &temp~0~3205)
                          (let ((&temp~0~3207 (car &temp~0~3205)))
                            (if (pair? &temp~0~3207)
                              (let ((&temp~0~3211 (car &temp~0~3207)))
                                (let ((&fmls~0~3200 &temp~0~3211))
                                  (let ((&temp~0~3208 (cdr &temp~0~3207)))
                                    (if (pair? &temp~0~3208)
                                      (let ((&temp~0~3210 (car &temp~0~3208)))
                                        (let ((&b1~0~3201 &temp~0~3210))
                                          (let ((&temp~0~3209 (cdr &temp~0~3208)))
                                            (if (list? &temp~0~3209)
                                              (let ((&b2~0~3202 &temp~0~3209))
                                                (let ((&temp~0~3206 (cdr &temp~0~3205)))
                                                  (if (null? &temp~0~3206)
                                                    (cons
                                                     (ex:syntax-rename 'lambda '() '(&env~0~3204) 0 '(rnrs control))
                                                     (cons &fmls~0~3200 (cons &b1~0~3201 &b2~0~3202)))
                                                    (&fail~0~3183))))
                                              (&fail~0~3183)))))
                                      (&fail~0~3183)))))
                              (&fail~0~3183)))
                          (&fail~0~3183)))))
                  (&fail~0~3183))))))
        (ex:register-macro!
          '&case-lambda-help~0~3213
          (lambda (&x~0~3216)
            (let ((&input~0~3218 &x~0~3216))
              (let ((&fail~0~3219
                      (lambda ()
                        (let ((&fail~0~3220
                                (lambda ()
                                  (let ((&fail~0~3221
                                          (lambda ()
                                            (let ((&fail~0~3222 (lambda () (ex:invalid-form &input~0~3218))))
                                              (if (pair? &input~0~3218)
                                                (let ((&temp~0~3243 (car &input~0~3218)))
                                                  (let ((&dummy~0~3223 &temp~0~3243))
                                                    (let ((&temp~0~3232 (cdr &input~0~3218)))
                                                      (if (pair? &temp~0~3232)
                                                        (let ((&temp~0~3242 (car &temp~0~3232)))
                                                          (let ((&args~0~3224 &temp~0~3242))
                                                            (let ((&temp~0~3233 (cdr &temp~0~3232)))
                                                              (if (pair? &temp~0~3233)
                                                                (let ((&temp~0~3241 (car &temp~0~3233)))
                                                                  (let ((&n~0~3225 &temp~0~3241))
                                                                    (let ((&temp~0~3234 (cdr &temp~0~3233)))
                                                                      (if (pair? &temp~0~3234)
                                                                        (let ((&temp~0~3236 (car &temp~0~3234)))
                                                                          (if (pair? &temp~0~3236)
                                                                            (let ((&temp~0~3240 (car &temp~0~3236)))
                                                                              (let ((&r~0~3226 &temp~0~3240))
                                                                                (let ((&temp~0~3237 (cdr &temp~0~3236)))
                                                                                  (if (pair? &temp~0~3237)
                                                                                    (let ((&temp~0~3239 (car &temp~0~3237)))
                                                                                      (let ((&b1~0~3227 &temp~0~3239))
                                                                                        (let ((&temp~0~3238 (cdr &temp~0~3237)))
                                                                                          (if (list? &temp~0~3238)
                                                                                            (let ((&b2~0~3228 &temp~0~3238))
                                                                                              (let ((&temp~0~3235
                                                                                                      (cdr &temp~0~3234)))
                                                                                                (if (list? &temp~0~3235)
                                                                                                  (let ((&more~0~3229 &temp~0~3235))
                                                                                                    (cons
                                                                                                     (ex:syntax-rename
                                                                                                       'apply
                                                                                                       '()
                                                                                                       '(&env~0~3231)
                                                                                                       0
                                                                                                       '(rnrs control))
                                                                                                     (cons
                                                                                                      (cons
                                                                                                       (ex:syntax-rename
                                                                                                         'lambda
                                                                                                         '()
                                                                                                         '(&env~0~3231)
                                                                                                         0
                                                                                                         '(rnrs control))
                                                                                                       (cons
                                                                                                        &r~0~3226
                                                                                                        (cons
                                                                                                         &b1~0~3227
                                                                                                         &b2~0~3228)))
                                                                                                      (cons &args~0~3224 '()))))
                                                                                                  (&fail~0~3222))))
                                                                                            (&fail~0~3222)))))
                                                                                    (&fail~0~3222)))))
                                                                            (&fail~0~3222)))
                                                                        (&fail~0~3222)))))
                                                                (&fail~0~3222)))))
                                                        (&fail~0~3222)))))
                                                (&fail~0~3222))))))
                                    (if (pair? &input~0~3218)
                                      (let ((&temp~0~3270 (car &input~0~3218)))
                                        (let ((&dummy~0~3244 &temp~0~3270))
                                          (let ((&temp~0~3255 (cdr &input~0~3218)))
                                            (if (pair? &temp~0~3255)
                                              (let ((&temp~0~3269 (car &temp~0~3255)))
                                                (let ((&args~0~3245 &temp~0~3269))
                                                  (let ((&temp~0~3256 (cdr &temp~0~3255)))
                                                    (if (pair? &temp~0~3256)
                                                      (let ((&temp~0~3268 (car &temp~0~3256)))
                                                        (let ((&n~0~3246 &temp~0~3268))
                                                          (let ((&temp~0~3257 (cdr &temp~0~3256)))
                                                            (if (pair? &temp~0~3257)
                                                              (let ((&temp~0~3259 (car &temp~0~3257)))
                                                                (if (pair? &temp~0~3259)
                                                                  (let ((&temp~0~3263 (car &temp~0~3259)))
                                                                    (if (pair? &temp~0~3263)
                                                                      (let ((&temp~0~3267 (car &temp~0~3263)))
                                                                        (let ((&x1~0~3247 &temp~0~3267))
                                                                          (let ((&temp~0~3264 (cdr &temp~0~3263)))
                                                                            (if (>= (ex:dotted-length &temp~0~3264) 0)
                                                                              (let ((&temp~0~3266
                                                                                      (ex:dotted-butlast &temp~0~3264 0)))
                                                                                (if (list? &temp~0~3266)
                                                                                  (let ((&x2~0~3248 &temp~0~3266))
                                                                                    (let ((&temp~0~3265
                                                                                            (ex:dotted-last &temp~0~3264 0)))
                                                                                      (let ((&r~0~3249 &temp~0~3265))
                                                                                        (let ((&temp~0~3260 (cdr &temp~0~3259)))
                                                                                          (if (pair? &temp~0~3260)
                                                                                            (let ((&temp~0~3262 (car &temp~0~3260)))
                                                                                              (let ((&b1~0~3250 &temp~0~3262))
                                                                                                (let ((&temp~0~3261
                                                                                                        (cdr &temp~0~3260)))
                                                                                                  (if (list? &temp~0~3261)
                                                                                                    (let ((&b2~0~3251 &temp~0~3261))
                                                                                                      (let ((&temp~0~3258
                                                                                                              (cdr &temp~0~3257)))
                                                                                                        (if (list? &temp~0~3258)
                                                                                                          (let ((&more~0~3252
                                                                                                                  &temp~0~3258))
                                                                                                            (cons
                                                                                                             (ex:syntax-rename
                                                                                                               'if
                                                                                                               '()
                                                                                                               '(&env~0~3254)
                                                                                                               0
                                                                                                               '(rnrs control))
                                                                                                             (cons
                                                                                                              (cons
                                                                                                               (ex:syntax-rename
                                                                                                                 '>=
                                                                                                                 '()
                                                                                                                 '(&env~0~3254)
                                                                                                                 0
                                                                                                                 '(rnrs control))
                                                                                                               (cons
                                                                                                                &n~0~3246
                                                                                                                (cons
                                                                                                                 (cons
                                                                                                                  (ex:syntax-rename
                                                                                                                    'length
                                                                                                                    '()
                                                                                                                    '(&env~0~3254)
                                                                                                                    0
                                                                                                                    '(rnrs control))
                                                                                                                  (cons
                                                                                                                   (cons
                                                                                                                    (ex:syntax-rename
                                                                                                                      'quote
                                                                                                                      '()
                                                                                                                      '(&env~0~3254)
                                                                                                                      0
                                                                                                                      '(rnrs
                                                                                                                        control))
                                                                                                                    (cons
                                                                                                                     (cons
                                                                                                                      &x1~0~3247
                                                                                                                      &x2~0~3248)
                                                                                                                     '()))
                                                                                                                   '()))
                                                                                                                 '())))
                                                                                                              (cons
                                                                                                               (cons
                                                                                                                (ex:syntax-rename
                                                                                                                  'apply
                                                                                                                  '()
                                                                                                                  '(&env~0~3254)
                                                                                                                  0
                                                                                                                  '(rnrs control))
                                                                                                                (cons
                                                                                                                 (cons
                                                                                                                  (ex:syntax-rename
                                                                                                                    'lambda
                                                                                                                    '()
                                                                                                                    '(&env~0~3254)
                                                                                                                    0
                                                                                                                    '(rnrs control))
                                                                                                                  (cons
                                                                                                                   (cons
                                                                                                                    &x1~0~3247
                                                                                                                    (append
                                                                                                                      &x2~0~3248
                                                                                                                      &r~0~3249))
                                                                                                                   (cons
                                                                                                                    &b1~0~3250
                                                                                                                    &b2~0~3251)))
                                                                                                                 (cons
                                                                                                                  &args~0~3245
                                                                                                                  '())))
                                                                                                               (cons
                                                                                                                (cons
                                                                                                                 (ex:syntax-rename
                                                                                                                   'case-lambda-help
                                                                                                                   '()
                                                                                                                   '(&env~0~3254)
                                                                                                                   0
                                                                                                                   '(rnrs control))
                                                                                                                 (cons
                                                                                                                  &args~0~3245
                                                                                                                  (cons
                                                                                                                   &n~0~3246
                                                                                                                   &more~0~3252)))
                                                                                                                '())))))
                                                                                                          (&fail~0~3221))))
                                                                                                    (&fail~0~3221)))))
                                                                                            (&fail~0~3221))))))
                                                                                  (&fail~0~3221)))
                                                                              (&fail~0~3221)))))
                                                                      (&fail~0~3221)))
                                                                  (&fail~0~3221)))
                                                              (&fail~0~3221)))))
                                                      (&fail~0~3221)))))
                                              (&fail~0~3221)))))
                                      (&fail~0~3221))))))
                          (if (pair? &input~0~3218)
                            (let ((&temp~0~3291 (car &input~0~3218)))
                              (let ((&dummy~0~3271 &temp~0~3291))
                                (let ((&temp~0~3280 (cdr &input~0~3218)))
                                  (if (pair? &temp~0~3280)
                                    (let ((&temp~0~3290 (car &temp~0~3280)))
                                      (let ((&args~0~3272 &temp~0~3290))
                                        (let ((&temp~0~3281 (cdr &temp~0~3280)))
                                          (if (pair? &temp~0~3281)
                                            (let ((&temp~0~3289 (car &temp~0~3281)))
                                              (let ((&n~0~3273 &temp~0~3289))
                                                (let ((&temp~0~3282 (cdr &temp~0~3281)))
                                                  (if (pair? &temp~0~3282)
                                                    (let ((&temp~0~3284 (car &temp~0~3282)))
                                                      (if (pair? &temp~0~3284)
                                                        (let ((&temp~0~3288 (car &temp~0~3284)))
                                                          (if (list? &temp~0~3288)
                                                            (let ((&x~0~3274 &temp~0~3288))
                                                              (let ((&temp~0~3285 (cdr &temp~0~3284)))
                                                                (if (pair? &temp~0~3285)
                                                                  (let ((&temp~0~3287 (car &temp~0~3285)))
                                                                    (let ((&b1~0~3275 &temp~0~3287))
                                                                      (let ((&temp~0~3286 (cdr &temp~0~3285)))
                                                                        (if (list? &temp~0~3286)
                                                                          (let ((&b2~0~3276 &temp~0~3286))
                                                                            (let ((&temp~0~3283 (cdr &temp~0~3282)))
                                                                              (if (list? &temp~0~3283)
                                                                                (let ((&more~0~3277 &temp~0~3283))
                                                                                  (cons
                                                                                   (ex:syntax-rename
                                                                                     'if
                                                                                     '()
                                                                                     '(&env~0~3279)
                                                                                     0
                                                                                     '(rnrs control))
                                                                                   (cons
                                                                                    (cons
                                                                                     (ex:syntax-rename
                                                                                       '=
                                                                                       '()
                                                                                       '(&env~0~3279)
                                                                                       0
                                                                                       '(rnrs control))
                                                                                     (cons
                                                                                      &n~0~3273
                                                                                      (cons
                                                                                       (cons
                                                                                        (ex:syntax-rename
                                                                                          'length
                                                                                          '()
                                                                                          '(&env~0~3279)
                                                                                          0
                                                                                          '(rnrs control))
                                                                                        (cons
                                                                                         (cons
                                                                                          (ex:syntax-rename
                                                                                            'quote
                                                                                            '()
                                                                                            '(&env~0~3279)
                                                                                            0
                                                                                            '(rnrs control))
                                                                                          (cons &x~0~3274 '()))
                                                                                         '()))
                                                                                       '())))
                                                                                    (cons
                                                                                     (cons
                                                                                      (ex:syntax-rename
                                                                                        'apply
                                                                                        '()
                                                                                        '(&env~0~3279)
                                                                                        0
                                                                                        '(rnrs control))
                                                                                      (cons
                                                                                       (cons
                                                                                        (ex:syntax-rename
                                                                                          'lambda
                                                                                          '()
                                                                                          '(&env~0~3279)
                                                                                          0
                                                                                          '(rnrs control))
                                                                                        (cons
                                                                                         &x~0~3274
                                                                                         (cons &b1~0~3275 &b2~0~3276)))
                                                                                       (cons &args~0~3272 '())))
                                                                                     (cons
                                                                                      (cons
                                                                                       (ex:syntax-rename
                                                                                         'case-lambda-help
                                                                                         '()
                                                                                         '(&env~0~3279)
                                                                                         0
                                                                                         '(rnrs control))
                                                                                       (cons
                                                                                        &args~0~3272
                                                                                        (cons &n~0~3273 &more~0~3277)))
                                                                                      '())))))
                                                                                (&fail~0~3220))))
                                                                          (&fail~0~3220)))))
                                                                  (&fail~0~3220))))
                                                            (&fail~0~3220)))
                                                        (&fail~0~3220)))
                                                    (&fail~0~3220)))))
                                            (&fail~0~3220)))))
                                    (&fail~0~3220)))))
                            (&fail~0~3220))))))
                (if (pair? &input~0~3218)
                  (let ((&temp~0~3302 (car &input~0~3218)))
                    (let ((&dummy~0~3292 &temp~0~3302))
                      (let ((&temp~0~3297 (cdr &input~0~3218)))
                        (if (pair? &temp~0~3297)
                          (let ((&temp~0~3301 (car &temp~0~3297)))
                            (let ((&args~0~3293 &temp~0~3301))
                              (let ((&temp~0~3298 (cdr &temp~0~3297)))
                                (if (pair? &temp~0~3298)
                                  (let ((&temp~0~3300 (car &temp~0~3298)))
                                    (let ((&n~0~3294 &temp~0~3300))
                                      (let ((&temp~0~3299 (cdr &temp~0~3298)))
                                        (if (null? &temp~0~3299)
                                          (cons
                                           (ex:syntax-rename 'assertion-violation '() '(&env~0~3296) 0 '(rnrs control))
                                           (cons '#f (cons '"unexpected number of arguments" '())))
                                          (&fail~0~3219)))))
                                  (&fail~0~3219)))))
                          (&fail~0~3219)))))
                  (&fail~0~3219))))))
        (values))
      (lambda () (values))
      '&build~0~3303))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs lists)
      (lambda () '())
      '((find variable find (0) #f ())
        (for-all variable for-all (0) #f ())
        (exists variable exists (0) #f ())
        (filter variable filter (0) #f ())
        (partition variable partition (0) #f ())
        (fold-left variable fold-left (0) #f ())
        (fold-right variable fold-right (0) #f ())
        (remp variable remp (0) #f ())
        (remove variable remove (0) #f ())
        (remq variable remq (0) #f ())
        (remv variable remv (0) #f ())
        (memp variable memp (0) #f ())
        (member variable member (0) #f ())
        (memv variable memv (0) #f ())
        (memq variable memq (0) #f ())
        (assp variable assp (0) #f ())
        (assoc variable assoc (0) #f ())
        (assv variable assv (0) #f ())
        (assq variable assq (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3304))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs io simple)
      (lambda () '())
      '((call-with-input-file variable call-with-input-file (0) #f ())
        (call-with-output-file variable call-with-output-file (0) #f ())
        (close-input-port variable close-input-port (0) #f ())
        (close-output-port variable close-output-port (0) #f ())
        (current-input-port variable current-input-port (0) #f ())
        (current-output-port variable current-output-port (0) #f ())
        (display variable display (0) #f ())
        (eof-object? variable eof-object? (0) #f ())
        (newline variable newline (0) #f ())
        (open-input-file variable open-input-file (0) #f ())
        (open-output-file variable open-output-file (0) #f ())
        (peek-char variable peek-char (0) #f ())
        (read variable read (0) #f ())
        (read-char variable read-char (0) #f ())
        (with-input-from-file variable with-input-from-file (0) #f ())
        (with-output-to-file variable with-output-to-file (0) #f ())
        (write variable write (0) #f ())
        (write-char variable write-char (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3305))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs unicode)
      (lambda () '())
      '((char-upcase variable char-upcase (0) #f ())
        (char-downcase variable char-downcase (0) #f ())
        (char-ci=? variable char-ci=? (0) #f ())
        (char-ci<? variable char-ci<? (0) #f ())
        (char-ci>? variable char-ci>? (0) #f ())
        (char-ci<=? variable char-ci<=? (0) #f ())
        (char-ci>=? variable char-ci>=? (0) #f ())
        (char-alphabetic? variable char-alphabetic? (0) #f ())
        (char-numeric? variable char-numeric? (0) #f ())
        (char-whitespace? variable char-whitespace? (0) #f ())
        (char-upper-case? variable char-upper-case? (0) #f ())
        (char-lower-case? variable char-lower-case? (0) #f ())
        (string-ci=? variable string-ci=? (0) #f ())
        (string-ci<? variable string-ci<? (0) #f ())
        (string-ci>? variable string-ci>? (0) #f ())
        (string-ci<=? variable string-ci<=? (0) #f ())
        (string-ci>=? variable string-ci>=? (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3306))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs mutable-strings)
      (lambda () '())
      '((string-set! variable string-set! (0) #f ()) (string-fill! variable string-fill! (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3307))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs syntax-case)
      (lambda () '())
      '((make-variable-transformer variable ex:make-variable-transformer (0) #f ())
        (identifier? variable ex:identifier? (0) #f ())
        (bound-identifier=? variable ex:bound-identifier=? (0) #f ())
        (free-identifier=? variable ex:free-identifier=? (0) #f ())
        (generate-temporaries variable ex:generate-temporaries (0) #f ())
        (datum->syntax variable ex:datum->syntax (0) #f ())
        (syntax->datum variable ex:syntax->datum (0) #f ())
        (syntax-violation variable ex:syntax-violation (0) #f ())
        (syntax macro syntax (0) #f ())
        (syntax-case macro syntax-case (0) #f ())
        (quasisyntax macro &quasisyntax~0~2234 (0) #f (core quasisyntax))
        (unsyntax macro &unsyntax~0~2452 (0) #f (core quasisyntax))
        (unsyntax-splicing macro &unsyntax-splicing~0~2456 (0) #f (core quasisyntax))
        (with-syntax macro &with-syntax~0~1701 (0) #f (core with-syntax))
        (_ macro _ (0) #f ())
        (... macro ... (0) #f ()))
      '(((core quasisyntax) 0) ((core with-syntax) 0) ((core primitives) 0))
      '(&build~0~2460 &build~0~1755 &build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3308))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs base)
      (lambda () '())
      '((begin macro begin (0) #f ())
        (if macro if (0) #f ())
        (lambda macro lambda (0) #f ())
        (quote macro quote (0) #f ())
        (set! macro set! (1 0) #f ())
        (and macro and (0) #f ())
        (or macro or (0) #f ())
        (define macro define (0) #f ())
        (define-syntax macro define-syntax (0) #f ())
        (let-syntax macro let-syntax (0) #f ())
        (letrec-syntax macro letrec-syntax (0) #f ())
        (_ macro _ (1) #f ())
        (... macro ... (1) #f ())
        (let macro &let~0~1798 (0) #f (core let))
        (let* macro &let*~0~1902 (0) #f (core derived))
        (letrec macro &letrec~0~1846 (0) #f (core let))
        (letrec* macro &letrec*~0~1877 (0) #f (core let))
        (let-values macro &let-values~0~2904 (0) #f (core let-values))
        (let*-values macro &let*-values~0~3044 (0) #f (core let-values))
        (case macro &case~0~2099 (0) #f (core derived))
        (cond macro &cond~0~1983 (0) #f (core derived))
        (else macro &else~0~2183 (0) #f (core derived))
        (=> macro &=>~0~2179 (0) #f (core derived))
        (quasiquote macro &quasiquote~0~2461 (0) #f (core quasiquote))
        (unquote macro &unquote~0~2895 (0) #f (core quasiquote))
        (unquote-splicing macro &unquote-splicing~0~2899 (0) #f (core quasiquote))
        (syntax-rules macro &syntax-rules~0~1756 (1) #f (core syntax-rules))
        (identifier-syntax macro &identifier-syntax~0~2188 (1) #f (core identifier-syntax))
        (* variable * (0) #f ())
        (+ variable + (0) #f ())
        (- variable - (0) #f ())
        (/ variable / (0) #f ())
        (< variable < (0) #f ())
        (<= variable <= (0) #f ())
        (= variable = (0) #f ())
        (> variable > (0) #f ())
        (>= variable >= (0) #f ())
        (abs variable abs (0) #f ())
        (acos variable acos (0) #f ())
        (append variable append (0) #f ())
        (apply variable apply (0) #f ())
        (asin variable asin (0) #f ())
        (atan variable atan (0) #f ())
        (boolean? variable boolean? (0) #f ())
        (call-with-current-continuation variable call-with-current-continuation (0) #f ())
        (call-with-values variable call-with-values (0) #f ())
        (car variable car (0) #f ())
        (cdr variable cdr (0) #f ())
        (caar variable caar (0) #f ())
        (cadr variable cadr (0) #f ())
        (cdar variable cdar (0) #f ())
        (cddr variable cddr (0) #f ())
        (caaar variable caaar (0) #f ())
        (caadr variable caadr (0) #f ())
        (cadar variable cadar (0) #f ())
        (caddr variable caddr (0) #f ())
        (cdaar variable cdaar (0) #f ())
        (cdadr variable cdadr (0) #f ())
        (cddar variable cddar (0) #f ())
        (cdddr variable cdddr (0) #f ())
        (caaaar variable caaaar (0) #f ())
        (caaadr variable caaadr (0) #f ())
        (caadar variable caadar (0) #f ())
        (caaddr variable caaddr (0) #f ())
        (cadaar variable cadaar (0) #f ())
        (cadadr variable cadadr (0) #f ())
        (caddar variable caddar (0) #f ())
        (cadddr variable cadddr (0) #f ())
        (cdaaar variable cdaaar (0) #f ())
        (cdaadr variable cdaadr (0) #f ())
        (cdadar variable cdadar (0) #f ())
        (cdaddr variable cdaddr (0) #f ())
        (cddaar variable cddaar (0) #f ())
        (cddadr variable cddadr (0) #f ())
        (cdddar variable cdddar (0) #f ())
        (cddddr variable cddddr (0) #f ())
        (ceiling variable ceiling (0) #f ())
        (char? variable char? (0) #f ())
        (char->integer variable char->integer (0) #f ())
        (complex? variable complex? (0) #f ())
        (cons variable cons (0) #f ())
        (cos variable cos (0) #f ())
        (denominator variable denominator (0) #f ())
        (dynamic-wind variable dynamic-wind (0) #f ())
        (eq? variable eq? (0) #f ())
        (equal? variable equal? (0) #f ())
        (eqv? variable eqv? (0) #f ())
        (even? variable even? (0) #f ())
        (exact? variable exact? (0) #f ())
        (exp variable exp (0) #f ())
        (expt variable expt (0) #f ())
        (floor variable floor (0) #f ())
        (for-each variable for-each (0) #f ())
        (gcd variable gcd (0) #f ())
        (imag-part variable imag-part (0) #f ())
        (inexact? variable inexact? (0) #f ())
        (integer->char variable integer->char (0) #f ())
        (integer? variable integer? (0) #f ())
        (lcm variable lcm (0) #f ())
        (length variable length (0) #f ())
        (list variable list (0) #f ())
        (list->string variable list->string (0) #f ())
        (list->vector variable list->vector (0) #f ())
        (list-ref variable list-ref (0) #f ())
        (list-tail variable list-tail (0) #f ())
        (list? variable list? (0) #f ())
        (log variable log (0) #f ())
        (magnitude variable magnitude (0) #f ())
        (make-polar variable make-polar (0) #f ())
        (make-rectangular variable make-rectangular (0) #f ())
        (make-string variable make-string (0) #f ())
        (make-vector variable make-vector (0) #f ())
        (map variable map (0) #f ())
        (max variable max (0) #f ())
        (min variable min (0) #f ())
        (negative? variable negative? (0) #f ())
        (not variable not (0) #f ())
        (null? variable null? (0) #f ())
        (number->string variable number->string (0) #f ())
        (number? variable number? (0) #f ())
        (numerator variable numerator (0) #f ())
        (odd? variable odd? (0) #f ())
        (pair? variable pair? (0) #f ())
        (positive? variable positive? (0) #f ())
        (procedure? variable procedure? (0) #f ())
        (rational? variable rational? (0) #f ())
        (rationalize variable rationalize (0) #f ())
        (real-part variable real-part (0) #f ())
        (real? variable real? (0) #f ())
        (reverse variable reverse (0) #f ())
        (round variable round (0) #f ())
        (sin variable sin (0) #f ())
        (sqrt variable sqrt (0) #f ())
        (string variable string (0) #f ())
        (string->list variable string->list (0) #f ())
        (string->number variable string->number (0) #f ())
        (string->symbol variable string->symbol (0) #f ())
        (string-append variable string-append (0) #f ())
        (string-copy variable string-copy (0) #f ())
        (string-length variable string-length (0) #f ())
        (string-ref variable string-ref (0) #f ())
        (string<=? variable string<=? (0) #f ())
        (string<? variable string<? (0) #f ())
        (string=? variable string=? (0) #f ())
        (string>=? variable string>=? (0) #f ())
        (string>? variable string>? (0) #f ())
        (string? variable string? (0) #f ())
        (substring variable substring (0) #f ())
        (symbol->string variable symbol->string (0) #f ())
        (symbol? variable symbol? (0) #f ())
        (tan variable tan (0) #f ())
        (truncate variable truncate (0) #f ())
        (values variable values (0) #f ())
        (vector variable vector (0) #f ())
        (vector->list variable vector->list (0) #f ())
        (vector-fill! variable vector-fill! (0) #f ())
        (vector-length variable vector-length (0) #f ())
        (vector-ref variable vector-ref (0) #f ())
        (vector-set! variable vector-set! (0) #f ())
        (vector? variable vector? (0) #f ())
        (zero? variable zero? (0) #f ())
        (real-valued? variable real-valued? (0) #f ())
        (rational-valued? variable rational-valued? (0) #f ())
        (integer-valued? variable integer-valued? (0) #f ())
        (exact variable exact (0) #f ())
        (inexact variable inexact (0) #f ())
        (finite? variable finite? (0) #f ())
        (infinite? variable infinite? (0) #f ())
        (nan? variable nan? (0) #f ())
        (div variable div (0) #f ())
        (mod variable mod (0) #f ())
        (div-and-mod variable div-and-mod (0) #f ())
        (div0 variable div0 (0) #f ())
        (mod0 variable mod0 (0) #f ())
        (div0-and-mod0 variable div0-and-mod0 (0) #f ())
        (exact-integer-sqrt variable exact-integer-sqrt (0) #f ())
        (boolean=? variable boolean=? (0) #f ())
        (symbol=? variable symbol=? (0) #f ())
        (string-for-each variable string-for-each (0) #f ())
        (vector-map variable vector-map (0) #f ())
        (vector-for-each variable vector-for-each (0) #f ())
        (error variable error (0) #f ())
        (assertion-violation variable assertion-violation (0) #f ())
        (call/cc variable call/cc (0) #f ()))
      '(((core primitives) 1)
        ((core identifier-syntax) 1)
        ((core syntax-rules) 1)
        ((core let-values) 0)
        ((core quasiquote) 0)
        ((core derived) 0)
        ((core let) 0)
        ((core primitives) 0))
      '(&build~0~1700 &build~0~2233 &build~0~1797 &build~0~3078 &build~0~2903 &build~0~2187 &build~0~1901 &build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3309))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs)
      (lambda () '())
      '((begin macro begin (0 1) #f ())
        (if macro if (0 1) #f ())
        (lambda macro lambda (0 1) #f ())
        (quote macro quote (0 1) #f ())
        (set! macro set! (0 2 1) #f ())
        (and macro and (0 1) #f ())
        (or macro or (0 1) #f ())
        (define macro define (0 1) #f ())
        (define-syntax macro define-syntax (0 1) #f ())
        (let-syntax macro let-syntax (0 1) #f ())
        (letrec-syntax macro letrec-syntax (0 1) #f ())
        (_ macro _ (0 1) #f ())
        (... macro ... (0 1) #f ())
        (let macro &let~0~1798 (0 1) #f (core let))
        (let* macro &let*~0~1902 (0 1) #f (core derived))
        (letrec macro &letrec~0~1846 (0 1) #f (core let))
        (letrec* macro &letrec*~0~1877 (0 1) #f (core let))
        (let-values macro &let-values~0~2904 (0 1) #f (core let-values))
        (let*-values macro &let*-values~0~3044 (0 1) #f (core let-values))
        (case macro &case~0~2099 (0 1) #f (core derived))
        (cond macro &cond~0~1983 (0 1) #f (core derived))
        (else macro &else~0~2183 (0 1) #f (core derived))
        (=> macro &=>~0~2179 (0 1) #f (core derived))
        (quasiquote macro &quasiquote~0~2461 (0 1) #f (core quasiquote))
        (unquote macro &unquote~0~2895 (0 1) #f (core quasiquote))
        (unquote-splicing macro &unquote-splicing~0~2899 (0 1) #f (core quasiquote))
        (syntax-rules macro &syntax-rules~0~1756 (0 1) #f (core syntax-rules))
        (identifier-syntax macro &identifier-syntax~0~2188 (0 1) #f (core identifier-syntax))
        (* variable * (0 1) #f ())
        (+ variable + (0 1) #f ())
        (- variable - (0 1) #f ())
        (/ variable / (0 1) #f ())
        (< variable < (0 1) #f ())
        (<= variable <= (0 1) #f ())
        (= variable = (0 1) #f ())
        (> variable > (0 1) #f ())
        (>= variable >= (0 1) #f ())
        (abs variable abs (0 1) #f ())
        (acos variable acos (0 1) #f ())
        (append variable append (0 1) #f ())
        (apply variable apply (0 1) #f ())
        (asin variable asin (0 1) #f ())
        (atan variable atan (0 1) #f ())
        (boolean? variable boolean? (0 1) #f ())
        (call-with-current-continuation variable call-with-current-continuation (0 1) #f ())
        (call-with-values variable call-with-values (0 1) #f ())
        (car variable car (0 1) #f ())
        (cdr variable cdr (0 1) #f ())
        (caar variable caar (0 1) #f ())
        (cadr variable cadr (0 1) #f ())
        (cdar variable cdar (0 1) #f ())
        (cddr variable cddr (0 1) #f ())
        (caaar variable caaar (0 1) #f ())
        (caadr variable caadr (0 1) #f ())
        (cadar variable cadar (0 1) #f ())
        (caddr variable caddr (0 1) #f ())
        (cdaar variable cdaar (0 1) #f ())
        (cdadr variable cdadr (0 1) #f ())
        (cddar variable cddar (0 1) #f ())
        (cdddr variable cdddr (0 1) #f ())
        (caaaar variable caaaar (0 1) #f ())
        (caaadr variable caaadr (0 1) #f ())
        (caadar variable caadar (0 1) #f ())
        (caaddr variable caaddr (0 1) #f ())
        (cadaar variable cadaar (0 1) #f ())
        (cadadr variable cadadr (0 1) #f ())
        (caddar variable caddar (0 1) #f ())
        (cadddr variable cadddr (0 1) #f ())
        (cdaaar variable cdaaar (0 1) #f ())
        (cdaadr variable cdaadr (0 1) #f ())
        (cdadar variable cdadar (0 1) #f ())
        (cdaddr variable cdaddr (0 1) #f ())
        (cddaar variable cddaar (0 1) #f ())
        (cddadr variable cddadr (0 1) #f ())
        (cdddar variable cdddar (0 1) #f ())
        (cddddr variable cddddr (0 1) #f ())
        (ceiling variable ceiling (0 1) #f ())
        (char? variable char? (0 1) #f ())
        (char->integer variable char->integer (0 1) #f ())
        (complex? variable complex? (0 1) #f ())
        (cons variable cons (0 1) #f ())
        (cos variable cos (0 1) #f ())
        (denominator variable denominator (0 1) #f ())
        (dynamic-wind variable dynamic-wind (0 1) #f ())
        (eq? variable eq? (0 1) #f ())
        (equal? variable equal? (0 1) #f ())
        (eqv? variable eqv? (0 1) #f ())
        (even? variable even? (0 1) #f ())
        (exact? variable exact? (0 1) #f ())
        (exp variable exp (0 1) #f ())
        (expt variable expt (0 1) #f ())
        (floor variable floor (0 1) #f ())
        (for-each variable for-each (0 1) #f ())
        (gcd variable gcd (0 1) #f ())
        (imag-part variable imag-part (0 1) #f ())
        (inexact? variable inexact? (0 1) #f ())
        (integer->char variable integer->char (0 1) #f ())
        (integer? variable integer? (0 1) #f ())
        (lcm variable lcm (0 1) #f ())
        (length variable length (0 1) #f ())
        (list variable list (0 1) #f ())
        (list->string variable list->string (0 1) #f ())
        (list->vector variable list->vector (0 1) #f ())
        (list-ref variable list-ref (0 1) #f ())
        (list-tail variable list-tail (0 1) #f ())
        (list? variable list? (0 1) #f ())
        (log variable log (0 1) #f ())
        (magnitude variable magnitude (0 1) #f ())
        (make-polar variable make-polar (0 1) #f ())
        (make-rectangular variable make-rectangular (0 1) #f ())
        (make-string variable make-string (0 1) #f ())
        (make-vector variable make-vector (0 1) #f ())
        (map variable map (0 1) #f ())
        (max variable max (0 1) #f ())
        (min variable min (0 1) #f ())
        (negative? variable negative? (0 1) #f ())
        (not variable not (0 1) #f ())
        (null? variable null? (0 1) #f ())
        (number->string variable number->string (0 1) #f ())
        (number? variable number? (0 1) #f ())
        (numerator variable numerator (0 1) #f ())
        (odd? variable odd? (0 1) #f ())
        (pair? variable pair? (0 1) #f ())
        (positive? variable positive? (0 1) #f ())
        (procedure? variable procedure? (0 1) #f ())
        (rational? variable rational? (0 1) #f ())
        (rationalize variable rationalize (0 1) #f ())
        (real-part variable real-part (0 1) #f ())
        (real? variable real? (0 1) #f ())
        (reverse variable reverse (0 1) #f ())
        (round variable round (0 1) #f ())
        (sin variable sin (0 1) #f ())
        (sqrt variable sqrt (0 1) #f ())
        (string variable string (0 1) #f ())
        (string->list variable string->list (0 1) #f ())
        (string->number variable string->number (0 1) #f ())
        (string->symbol variable string->symbol (0 1) #f ())
        (string-append variable string-append (0 1) #f ())
        (string-copy variable string-copy (0 1) #f ())
        (string-length variable string-length (0 1) #f ())
        (string-ref variable string-ref (0 1) #f ())
        (string<=? variable string<=? (0 1) #f ())
        (string<? variable string<? (0 1) #f ())
        (string=? variable string=? (0 1) #f ())
        (string>=? variable string>=? (0 1) #f ())
        (string>? variable string>? (0 1) #f ())
        (string? variable string? (0 1) #f ())
        (substring variable substring (0 1) #f ())
        (symbol->string variable symbol->string (0 1) #f ())
        (symbol? variable symbol? (0 1) #f ())
        (tan variable tan (0 1) #f ())
        (truncate variable truncate (0 1) #f ())
        (values variable values (0 1) #f ())
        (vector variable vector (0 1) #f ())
        (vector->list variable vector->list (0 1) #f ())
        (vector-fill! variable vector-fill! (0 1) #f ())
        (vector-length variable vector-length (0 1) #f ())
        (vector-ref variable vector-ref (0 1) #f ())
        (vector-set! variable vector-set! (0 1) #f ())
        (vector? variable vector? (0 1) #f ())
        (zero? variable zero? (0 1) #f ())
        (real-valued? variable real-valued? (0 1) #f ())
        (rational-valued? variable rational-valued? (0 1) #f ())
        (integer-valued? variable integer-valued? (0 1) #f ())
        (exact variable exact (0 1) #f ())
        (inexact variable inexact (0 1) #f ())
        (finite? variable finite? (0 1) #f ())
        (infinite? variable infinite? (0 1) #f ())
        (nan? variable nan? (0 1) #f ())
        (div variable div (0 1) #f ())
        (mod variable mod (0 1) #f ())
        (div-and-mod variable div-and-mod (0 1) #f ())
        (div0 variable div0 (0 1) #f ())
        (mod0 variable mod0 (0 1) #f ())
        (div0-and-mod0 variable div0-and-mod0 (0 1) #f ())
        (exact-integer-sqrt variable exact-integer-sqrt (0 1) #f ())
        (boolean=? variable boolean=? (0 1) #f ())
        (symbol=? variable symbol=? (0 1) #f ())
        (string-for-each variable string-for-each (0 1) #f ())
        (vector-map variable vector-map (0 1) #f ())
        (vector-for-each variable vector-for-each (0 1) #f ())
        (error variable error (0 1) #f ())
        (assertion-violation variable assertion-violation (0 1) #f ())
        (call/cc variable call/cc (0 1) #f ())
        (make-variable-transformer variable ex:make-variable-transformer (0 1) #f ())
        (identifier? variable ex:identifier? (0 1) #f ())
        (bound-identifier=? variable ex:bound-identifier=? (0 1) #f ())
        (free-identifier=? variable ex:free-identifier=? (0 1) #f ())
        (generate-temporaries variable ex:generate-temporaries (0 1) #f ())
        (datum->syntax variable ex:datum->syntax (0 1) #f ())
        (syntax->datum variable ex:syntax->datum (0 1) #f ())
        (syntax-violation variable ex:syntax-violation (0 1) #f ())
        (syntax macro syntax (0 1) #f ())
        (syntax-case macro syntax-case (0 1) #f ())
        (quasisyntax macro &quasisyntax~0~2234 (0 1) #f (core quasisyntax))
        (unsyntax macro &unsyntax~0~2452 (0 1) #f (core quasisyntax))
        (unsyntax-splicing macro &unsyntax-splicing~0~2456 (0 1) #f (core quasisyntax))
        (with-syntax macro &with-syntax~0~1701 (0 1) #f (core with-syntax))
        (when macro &when~0~3079 (0 1) #f (rnrs control))
        (unless macro &unless~0~3098 (0 1) #f (rnrs control))
        (do macro &do~0~3117 (0 1) #f (rnrs control))
        (case-lambda macro &case-lambda~0~3177 (0 1) #f (rnrs control))
        (find variable find (0 1) #f ())
        (for-all variable for-all (0 1) #f ())
        (exists variable exists (0 1) #f ())
        (filter variable filter (0 1) #f ())
        (partition variable partition (0 1) #f ())
        (fold-left variable fold-left (0 1) #f ())
        (fold-right variable fold-right (0 1) #f ())
        (remp variable remp (0 1) #f ())
        (remove variable remove (0 1) #f ())
        (remq variable remq (0 1) #f ())
        (remv variable remv (0 1) #f ())
        (memp variable memp (0 1) #f ())
        (member variable member (0 1) #f ())
        (memv variable memv (0 1) #f ())
        (memq variable memq (0 1) #f ())
        (assp variable assp (0 1) #f ())
        (assoc variable assoc (0 1) #f ())
        (assv variable assv (0 1) #f ())
        (assq variable assq (0 1) #f ())
        (call-with-input-file variable call-with-input-file (0 1) #f ())
        (call-with-output-file variable call-with-output-file (0 1) #f ())
        (close-input-port variable close-input-port (0 1) #f ())
        (close-output-port variable close-output-port (0 1) #f ())
        (current-input-port variable current-input-port (0 1) #f ())
        (current-output-port variable current-output-port (0 1) #f ())
        (display variable display (0 1) #f ())
        (eof-object? variable eof-object? (0 1) #f ())
        (newline variable newline (0 1) #f ())
        (open-input-file variable open-input-file (0 1) #f ())
        (open-output-file variable open-output-file (0 1) #f ())
        (peek-char variable peek-char (0 1) #f ())
        (read variable read (0 1) #f ())
        (read-char variable read-char (0 1) #f ())
        (with-input-from-file variable with-input-from-file (0 1) #f ())
        (with-output-to-file variable with-output-to-file (0 1) #f ())
        (write variable write (0 1) #f ())
        (write-char variable write-char (0 1) #f ())
        (char-upcase variable char-upcase (0 1) #f ())
        (char-downcase variable char-downcase (0 1) #f ())
        (char-ci=? variable char-ci=? (0 1) #f ())
        (char-ci<? variable char-ci<? (0 1) #f ())
        (char-ci>? variable char-ci>? (0 1) #f ())
        (char-ci<=? variable char-ci<=? (0 1) #f ())
        (char-ci>=? variable char-ci>=? (0 1) #f ())
        (char-alphabetic? variable char-alphabetic? (0 1) #f ())
        (char-numeric? variable char-numeric? (0 1) #f ())
        (char-whitespace? variable char-whitespace? (0 1) #f ())
        (char-upper-case? variable char-upper-case? (0 1) #f ())
        (char-lower-case? variable char-lower-case? (0 1) #f ())
        (string-ci=? variable string-ci=? (0 1) #f ())
        (string-ci<? variable string-ci<? (0 1) #f ())
        (string-ci>? variable string-ci>? (0 1) #f ())
        (string-ci<=? variable string-ci<=? (0 1) #f ())
        (string-ci>=? variable string-ci>=? (0 1) #f ())
        (string-set! variable string-set! (0 1) #f ())
        (string-fill! variable string-fill! (0 1) #f ()))
      '(((rnrs mutable-strings) 0 1)
        ((rnrs unicode) 0 1)
        ((rnrs io simple) 0 1)
        ((rnrs syntax-case) 0 1)
        ((rnrs lists) 0 1)
        ((rnrs control) 0 1)
        ((core identifier-syntax) 0 1)
        ((core syntax-rules) 0 1)
        ((rnrs base) 0 1)
        ((rnrs base) 0 1))
      '(&build~0~3307
         &build~0~3306
         &build~0~3305
         &build~0~3308
         &build~0~3304
         &build~0~3303
         &build~0~2233
         &build~0~1797
         &build~0~3309
         &build~0~3309)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3310))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs eval)
      (lambda () '())
      '((eval variable ex:eval (0) #f ()) (environment variable ex:environment (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3311))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs mutable-pairs)
      (lambda () '())
      '((set-car! variable set-car! (0) #f ()) (set-cdr! variable set-cdr! (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3312))
  (values))
(begin
  (define &make-promise~0~3331 ex:unspecified)
  (define &force~0~3315 ex:unspecified)
  (define &null-environment~0~3314 ex:unspecified)
  (define &scheme-report-environment~0~3313 ex:unspecified)
  (ex:register-library!
    (ex:make-library
      '(rnrs r5rs)
      (lambda ()
        (ex:uncompress
          '(((&env~0~3326 0 1 2 3))
            (3
             (((make-promise) variable &make-promise~0~3331 (0) #f (rnrs r5rs))
              ((delay) macro &delay~0~3316 (0) #f (rnrs r5rs))
              ((force) variable &force~0~3315 (0) #f (rnrs r5rs))
              ((null-environment) variable &null-environment~0~3314 (0) #f (rnrs r5rs))
              ((scheme-report-environment) variable &scheme-report-environment~0~3313 (0) #f (rnrs r5rs))
              ((modulo) variable modulo (0) #f ())
              ((remainder) variable remainder (0) #f ())
              ((quotient) variable quotient (0) #f ())
              ((inexact->exact) variable inexact->exact (0) #f ())
              ((exact->inexact) variable exact->inexact (0) #f ())
              ((environment) variable ex:environment (0) #f ())
              ((eval) variable ex:eval (0) #f ())
              ((call/cc) variable call/cc (0) #f ())
              ((assertion-violation) variable assertion-violation (0) #f ())
              ((error) variable error (0) #f ())
              ((vector-for-each) variable vector-for-each (0) #f ())
              ((vector-map) variable vector-map (0) #f ())
              ((string-for-each) variable string-for-each (0) #f ())
              ((symbol=?) variable symbol=? (0) #f ())
              ((boolean=?) variable boolean=? (0) #f ())
              ((exact-integer-sqrt) variable exact-integer-sqrt (0) #f ())
              ((div0-and-mod0) variable div0-and-mod0 (0) #f ())
              ((mod0) variable mod0 (0) #f ())
              ((div0) variable div0 (0) #f ())
              ((div-and-mod) variable div-and-mod (0) #f ())
              ((mod) variable mod (0) #f ())
              ((div) variable div (0) #f ())
              ((nan?) variable nan? (0) #f ())
              ((infinite?) variable infinite? (0) #f ())
              ((finite?) variable finite? (0) #f ())
              ((inexact) variable inexact (0) #f ())
              ((exact) variable exact (0) #f ())
              ((integer-valued?) variable integer-valued? (0) #f ())
              ((rational-valued?) variable rational-valued? (0) #f ())
              ((real-valued?) variable real-valued? (0) #f ())
              ((zero?) variable zero? (0) #f ())
              ((vector?) variable vector? (0) #f ())
              ((vector-set!) variable vector-set! (0) #f ())
              ((vector-ref) variable vector-ref (0) #f ())
              ((vector-length) variable vector-length (0) #f ())
              ((vector-fill!) variable vector-fill! (0) #f ())
              ((vector->list) variable vector->list (0) #f ())
              ((vector) variable vector (0) #f ())
              ((values) variable values (0) #f ())
              ((truncate) variable truncate (0) #f ())
              ((tan) variable tan (0) #f ())
              ((symbol?) variable symbol? (0) #f ())
              ((symbol->string) variable symbol->string (0) #f ())
              ((substring) variable substring (0) #f ())
              ((string?) variable string? (0) #f ())
              ((string>?) variable string>? (0) #f ())
              ((string>=?) variable string>=? (0) #f ())
              ((string=?) variable string=? (0) #f ())
              ((string<?) variable string<? (0) #f ())
              ((string<=?) variable string<=? (0) #f ())
              ((string-ref) variable string-ref (0) #f ())
              ((string-length) variable string-length (0) #f ())
              ((string-copy) variable string-copy (0) #f ())
              ((string-append) variable string-append (0) #f ())
              ((string->symbol) variable string->symbol (0) #f ())
              ((string->number) variable string->number (0) #f ())
              ((string->list) variable string->list (0) #f ())
              ((string) variable string (0) #f ())
              ((sqrt) variable sqrt (0) #f ())
              ((sin) variable sin (0) #f ())
              ((round) variable round (0) #f ())
              ((reverse) variable reverse (0) #f ())
              ((real?) variable real? (0) #f ())
              ((real-part) variable real-part (0) #f ())
              ((rationalize) variable rationalize (0) #f ())
              ((rational?) variable rational? (0) #f ())
              ((procedure?) variable procedure? (0) #f ())
              ((positive?) variable positive? (0) #f ())
              ((pair?) variable pair? (0) #f ())
              ((odd?) variable odd? (0) #f ())
              ((numerator) variable numerator (0) #f ())
              ((number?) variable number? (0) #f ())
              ((number->string) variable number->string (0) #f ())
              ((null?) variable null? (0) #f ())
              ((not) variable not (0) #f ())
              ((negative?) variable negative? (0) #f ())
              ((min) variable min (0) #f ())
              ((max) variable max (0) #f ())
              ((map) variable map (0) #f ())
              ((make-vector) variable make-vector (0) #f ())
              ((make-string) variable make-string (0) #f ())
              ((make-rectangular) variable make-rectangular (0) #f ())
              ((make-polar) variable make-polar (0) #f ())
              ((magnitude) variable magnitude (0) #f ())
              ((log) variable log (0) #f ())
              ((list?) variable list? (0) #f ())
              ((list-tail) variable list-tail (0) #f ())
              ((list-ref) variable list-ref (0) #f ())
              ((list->vector) variable list->vector (0) #f ())
              ((list->string) variable list->string (0) #f ())
              ((list) variable list (0) #f ())
              ((length) variable length (0) #f ())
              ((lcm) variable lcm (0) #f ())
              ((integer?) variable integer? (0) #f ())
              ((integer->char) variable integer->char (0) #f ())
              ((inexact?) variable inexact? (0) #f ())
              ((imag-part) variable imag-part (0) #f ())
              ((gcd) variable gcd (0) #f ())
              ((for-each) variable for-each (0) #f ())
              ((floor) variable floor (0) #f ())
              ((expt) variable expt (0) #f ())
              ((exp) variable exp (0) #f ())
              ((exact?) variable exact? (0) #f ())
              ((even?) variable even? (0) #f ())
              ((eqv?) variable eqv? (0) #f ())
              ((equal?) variable equal? (0) #f ())
              ((eq?) variable eq? (0) #f ())
              ((dynamic-wind) variable dynamic-wind (0) #f ())
              ((denominator) variable denominator (0) #f ())
              ((cos) variable cos (0) #f ())
              ((cons) variable cons (0) #f ())
              ((complex?) variable complex? (0) #f ())
              ((char->integer) variable char->integer (0) #f ())
              ((char?) variable char? (0) #f ())
              ((ceiling) variable ceiling (0) #f ())
              ((cddddr) variable cddddr (0) #f ())
              ((cdddar) variable cdddar (0) #f ())
              ((cddadr) variable cddadr (0) #f ())
              ((cddaar) variable cddaar (0) #f ())
              ((cdaddr) variable cdaddr (0) #f ())
              ((cdadar) variable cdadar (0) #f ())
              ((cdaadr) variable cdaadr (0) #f ())
              ((cdaaar) variable cdaaar (0) #f ())
              ((cadddr) variable cadddr (0) #f ())
              ((caddar) variable caddar (0) #f ())
              ((cadadr) variable cadadr (0) #f ())
              ((cadaar) variable cadaar (0) #f ())
              ((caaddr) variable caaddr (0) #f ())
              ((caadar) variable caadar (0) #f ())
              ((caaadr) variable caaadr (0) #f ())
              ((caaaar) variable caaaar (0) #f ())
              ((cdddr) variable cdddr (0) #f ())
              ((cddar) variable cddar (0) #f ())
              ((cdadr) variable cdadr (0) #f ())
              ((cdaar) variable cdaar (0) #f ())
              ((caddr) variable caddr (0) #f ())
              ((cadar) variable cadar (0) #f ())
              ((caadr) variable caadr (0) #f ())
              ((caaar) variable caaar (0) #f ())
              ((cddr) variable cddr (0) #f ())
              ((cdar) variable cdar (0) #f ())
              ((cadr) variable cadr (0) #f ())
              ((caar) variable caar (0) #f ())
              ((cdr) variable cdr (0) #f ())
              ((car) variable car (0) #f ())
              ((call-with-values) variable call-with-values (0) #f ())
              ((call-with-current-continuation) variable call-with-current-continuation (0) #f ())
              ((boolean?) variable boolean? (0) #f ())
              ((atan) variable atan (0) #f ())
              ((asin) variable asin (0) #f ())
              ((apply) variable apply (0) #f ())
              ((append) variable append (0) #f ())
              ((acos) variable acos (0) #f ())
              ((abs) variable abs (0) #f ())
              ((>=) variable >= (0) #f ())
              ((>) variable > (0) #f ())
              ((=) variable = (0) #f ())
              ((<=) variable <= (0) #f ())
              ((<) variable < (0) #f ())
              ((/) variable / (0) #f ())
              ((-) variable - (0) #f ())
              ((+) variable + (0) #f ())
              ((*) variable * (0) #f ())
              ((identifier-syntax) macro &identifier-syntax~0~2188 (1) #f (core identifier-syntax))
              ((syntax-rules) macro &syntax-rules~0~1756 (1) #f (core syntax-rules))
              ((unquote-splicing) macro &unquote-splicing~0~2899 (0) #f (core quasiquote))
              ((unquote) macro &unquote~0~2895 (0) #f (core quasiquote))
              ((quasiquote) macro &quasiquote~0~2461 (0) #f (core quasiquote))
              ((=>) macro &=>~0~2179 (0) #f (core derived))
              ((else) macro &else~0~2183 (0) #f (core derived))
              ((cond) macro &cond~0~1983 (0) #f (core derived))
              ((case) macro &case~0~2099 (0) #f (core derived))
              ((let*-values) macro &let*-values~0~3044 (0) #f (core let-values))
              ((let-values) macro &let-values~0~2904 (0) #f (core let-values))
              ((letrec*) macro &letrec*~0~1877 (0) #f (core let))
              ((letrec) macro &letrec~0~1846 (0) #f (core let))
              ((let*) macro &let*~0~1902 (0) #f (core derived))
              ((let) macro &let~0~1798 (0) #f (core let))
              ((...) macro ... (1) #f ())
              ((_) macro _ (1) #f ())
              ((letrec-syntax) macro letrec-syntax (0) #f ())
              ((let-syntax) macro let-syntax (0) #f ())
              ((define-syntax) macro define-syntax (0) #f ())
              ((define) macro define (0) #f ())
              ((or) macro or (0) #f ())
              ((and) macro and (0) #f ())
              ((set!) macro set! (1 0) #f ())
              ((quote) macro quote (0) #f ())
              ((lambda) macro lambda (0) #f ())
              ((if) macro if (0) #f ())
              ((begin) macro begin (0) #f ())
              ((case-lambda) macro &case-lambda~0~3177 (0) #f (rnrs control))
              ((do) macro &do~0~3117 (0) #f (rnrs control))
              ((unless) macro &unless~0~3098 (0) #f (rnrs control))
              ((when) macro &when~0~3079 (0) #f (rnrs control))))
            (2 (((x &c~0~3317) variable &x~0~3319 (0) #f (rnrs r5rs))))
            (1 ())
            (0 (((dummy &c~0~3317) . #f) ((expression) . #f))))))
      '((null-environment variable &null-environment~0~3314 (0) #f (rnrs r5rs))
        (scheme-report-environment variable &scheme-report-environment~0~3313 (0) #f (rnrs r5rs))
        (delay macro &delay~0~3316 (0) #f (rnrs r5rs))
        (force variable &force~0~3315 (0) #f (rnrs r5rs))
        (exact->inexact variable exact->inexact (0) #f ())
        (inexact->exact variable inexact->exact (0) #f ())
        (quotient variable quotient (0) #f ())
        (remainder variable remainder (0) #f ())
        (modulo variable modulo (0) #f ()))
      '(((rnrs control) 0) ((rnrs base) 0) ((rnrs eval) 0) ((core primitives) 0))
      '(&build~0~3303 &build~0~3309 &build~0~3311 &build~0~1700)
      (lambda ()
        (ex:register-macro!
          '&delay~0~3316
          (lambda (&x~0~3319)
            (let ((&input~0~3321 &x~0~3319))
              (let ((&fail~0~3322 (lambda () (ex:invalid-form &input~0~3321))))
                (if (pair? &input~0~3321)
                  (let ((&temp~0~3330 (car &input~0~3321)))
                    (let ((&dummy~0~3323 &temp~0~3330))
                      (let ((&temp~0~3327 (cdr &input~0~3321)))
                        (if (pair? &temp~0~3327)
                          (let ((&temp~0~3329 (car &temp~0~3327)))
                            (let ((&expression~0~3324 &temp~0~3329))
                              (let ((&temp~0~3328 (cdr &temp~0~3327)))
                                (if (null? &temp~0~3328)
                                  (cons
                                   (ex:syntax-rename 'make-promise '() '(&env~0~3326) 0 '(rnrs r5rs))
                                   (cons
                                    (cons
                                     (ex:syntax-rename 'lambda '() '(&env~0~3326) 0 '(rnrs r5rs))
                                     (cons '() (cons &expression~0~3324 '())))
                                    '()))
                                  (&fail~0~3322)))))
                          (&fail~0~3322)))))
                  (&fail~0~3322))))))
        (values))
      (lambda ()
        (set! &make-promise~0~3331 ex:undefined)
        (set! &force~0~3315 ex:undefined)
        (set! &null-environment~0~3314 ex:undefined)
        (set! &scheme-report-environment~0~3313 ex:undefined)
        (set! &scheme-report-environment~0~3313
          ((lambda (&r5rs-env~0~3362)
             (lambda (&n~0~3364)
               (if (not (= &n~0~3364 5)) (begin (assertion-violation 'scheme-report-environment "Argument should be 5" &n~0~3364)))
               &r5rs-env~0~3362))
           (ex:environment
             '(except
                (rnrs base)
                _
                letrec*
                let-values
                let*-values
                real-valued?
                rational-valued?
                integer-valued?
                exact
                inexact
                finite?
                infinite?
                nan?
                div
                mod
                div-and-mod
                div0
                mod0
                div0-and-mod0
                exact-integer-sqrt
                boolean=?
                symbol=?
                string-for-each
                vector-map
                vector-for-each
                error
                assertion-violation
                call/cc)
             '(only (rnrs eval) eval)
             '(only (rnrs control) do)
             '(only (rnrs lists) assoc assv assq)
             '(only
               (rnrs io simple)
               call-with-input-file
               call-with-output-file
               close-input-port
               close-output-port
               current-input-port
               current-output-port
               display
               eof-object?
               newline
               open-input-file
               open-output-file
               peek-char
               read
               read-char
               with-input-from-file
               with-output-to-file
               write
               write-char)
             '(only
               (rnrs unicode)
               char-upcase
               char-downcase
               char-ci=?
               char-ci<?
               char-ci>?
               char-ci<=?
               char-ci>=?
               char-alphabetic?
               char-numeric?
               char-whitespace?
               char-upper-case?
               char-lower-case?
               string-ci=?
               string-ci<?
               string-ci>?
               string-ci<=?
               string-ci>=?)
             '(only (rnrs mutable-pairs) set-car! set-cdr!)
             '(only (rnrs lists) assoc assv assq member memv memq)
             '(only (rnrs mutable-strings) string-set! string-fill!)
             '(rnrs r5rs))))
        (set! &null-environment~0~3314
          ((lambda (&null-env~0~3351)
             (lambda (&n~0~3353)
               (if (not (= &n~0~3353 5)) (begin (assertion-violation 'scheme-report-environment "Argument should be 5" &n~0~3353)))
               &null-env~0~3351))
           (ex:environment
             '(only
               (rnrs base)
               begin
               if
               lambda
               quote
               set!
               and
               or
               define
               define-syntax
               let-syntax
               letrec-syntax
               let
               let*
               letrec
               case
               cond
               else
               =>
               quasiquote
               unquote
               unquote-splicing
               syntax-rules
               ...)
             '(only (rnrs control) do))))
        (set! &force~0~3315 (lambda (&object~0~3348) (&object~0~3348)))
        (set! &make-promise~0~3331
          (lambda (&proc~0~3333)
            ((lambda (&result-ready?~0~3336 &result~0~3337)
               (lambda ()
                 (if &result-ready?~0~3336
                   &result~0~3337
                   ((lambda (&x~0~3342)
                      (if &result-ready?~0~3336
                        &result~0~3337
                        (begin (set! &result-ready?~0~3336 #t) (set! &result~0~3337 &x~0~3342) &result~0~3337)))
                    (&proc~0~3333)))))
             #f
             #f)))
        (values))
      '&build~0~3379))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(rnrs eval reflection)
      (lambda () '())
      '((environment-bindings variable ex:environment-bindings (0) #f ()))
      '(((core primitives) 0))
      '(&build~0~1700)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3380))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(explicit-renaming helper)
      (lambda ()
        (ex:uncompress
          '(((&env~0~3390 0 1 2 3))
            (3
             (((er-transformer) macro &er-transformer~0~3381 (0) #f (explicit-renaming helper))
              ((syntax-case) macro syntax-case (0 1) #f ())
              ((syntax) macro syntax (0 1) #f ())
              ((datum->syntax) variable ex:datum->syntax (0 1) #f ())
              ((free-identifier=?) variable ex:free-identifier=? (0 1) #f ())
              ((define-syntax) macro define-syntax (0 1) #f ())
              ((lambda) macro lambda (0 1) #f ())))
            (2 (((exp) variable &exp~0~3383 (1) #f (explicit-renaming helper))))
            (1 ())
            (0 (((k) . #f) ((proc) . #f))))))
      '((er-transformer macro &er-transformer~0~3381 (0) #f (explicit-renaming helper)))
      '(((rnrs) 0))
      '(&build~0~3310)
      (lambda ()
        (ex:register-macro!
          '&er-transformer~0~3381
          (lambda (&exp~0~3383)
            (let ((&input~0~3385 &exp~0~3383))
              (let ((&fail~0~3386 (lambda () (ex:invalid-form &input~0~3385))))
                (if (pair? &input~0~3385)
                  (let ((&temp~0~3394 (car &input~0~3385)))
                    (let ((&k~0~3387 &temp~0~3394))
                      (let ((&temp~0~3391 (cdr &input~0~3385)))
                        (if (pair? &temp~0~3391)
                          (let ((&temp~0~3393 (car &temp~0~3391)))
                            (let ((&proc~0~3388 &temp~0~3393))
                              (let ((&temp~0~3392 (cdr &temp~0~3391)))
                                (if (null? &temp~0~3392)
                                  (cons
                                   (ex:syntax-rename 'lambda '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                   (cons
                                    (cons (ex:syntax-rename 'form '() '(&env~0~3390) 0 '(explicit-renaming helper)) '())
                                    (cons
                                     (cons
                                      &proc~0~3388
                                      (cons
                                       (ex:syntax-rename 'form '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                       (cons
                                        (cons
                                         (ex:syntax-rename 'lambda '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                         (cons
                                          (cons (ex:syntax-rename 'symbol '() '(&env~0~3390) 0 '(explicit-renaming helper)) '())
                                          (cons
                                           (cons
                                            (ex:syntax-rename 'datum->syntax '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                            (cons
                                             (cons
                                              (ex:syntax-rename 'syntax '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                              (cons &k~0~3387 '()))
                                             (cons (ex:syntax-rename 'symbol '() '(&env~0~3390) 0 '(explicit-renaming helper)) '())))
                                           '())))
                                        (cons
                                         (ex:syntax-rename 'free-identifier=? '() '(&env~0~3390) 0 '(explicit-renaming helper))
                                         '()))))
                                     '())))
                                  (&fail~0~3386)))))
                          (&fail~0~3386)))))
                  (&fail~0~3386))))))
        (values))
      (lambda () (values))
      '&build~0~3395))
  (values))
(begin
  (ex:register-library!
    (ex:make-library
      '(explicit-renaming)
      (lambda () '())
      '((er-transformer macro &er-transformer~0~3381 (0) #f (explicit-renaming helper))
        (identifier? variable ex:identifier? (0) #f ())
        (bound-identifier=? variable ex:bound-identifier=? (0) #f ())
        (datum->syntax variable ex:datum->syntax (0) #f ()))
      '(((rnrs syntax-case) 0) ((explicit-renaming helper) 0))
      '(&build~0~3308 &build~0~3395)
      (lambda () (values))
      (lambda () (values))
      '&build~0~3396))
  (values))