(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 ()) (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-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-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 ())) '(((core primitive-macros) 0)) '(system) (lambda () (values)) (lambda () (values)) '&build~1187093766~2)) (values)) (begin (ex:register-library! (ex:make-library '(core with-syntax) (lambda () (ex:uncompress '(((&env~1187093766~50 0 1 2 3) (&env~1187093766~34 4 1 2 3) (&env~1187093766~16 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~1187093766~3 (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~1187093766~5 (1) #f (core with-syntax)))) (1 ()) (0 (((e1) . #f) ((e2) . #f)))))) '((with-syntax macro &with-syntax~1187093766~3 (0) #f (core with-syntax))) '(((core primitives) 0 1)) '(&build~1187093766~2) (lambda () (ex:register-macro! '&with-syntax~1187093766~3 (lambda (&x~1187093766~5) (let ((&input~1187093766~7 &x~1187093766~5)) (let ((&fail~1187093766~8 (lambda () (let ((&fail~1187093766~9 (lambda () (let ((&fail~1187093766~10 (lambda () (ex:invalid-form &input~1187093766~7)))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~28 (car &input~1187093766~7))) (let ((&temp~1187093766~17 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~17) (let ((&temp~1187093766~21 (car &temp~1187093766~17))) (ex:map-while (lambda (&temp~1187093766~21) (if (pair? &temp~1187093766~21) (let ((&temp~1187093766~27 (car &temp~1187093766~21))) (let ((&out~1187093766~11 &temp~1187093766~27)) (let ((&temp~1187093766~24 (cdr &temp~1187093766~21))) (if (pair? &temp~1187093766~24) (let ((&temp~1187093766~26 (car &temp~1187093766~24))) (let ((&in~1187093766~12 &temp~1187093766~26)) (let ((&temp~1187093766~25 (cdr &temp~1187093766~24))) (if (null? &temp~1187093766~25) (list &out~1187093766~11 &in~1187093766~12) #f)))) #f)))) #f)) &temp~1187093766~21 (lambda (&cols~1187093766~22 &rest~1187093766~23) (if (null? &rest~1187093766~23) (apply (lambda (&out~1187093766~11 &in~1187093766~12) (let ((&temp~1187093766~18 (cdr &temp~1187093766~17))) (if (pair? &temp~1187093766~18) (let ((&temp~1187093766~20 (car &temp~1187093766~18))) (let ((&e1~1187093766~13 &temp~1187093766~20)) (let ((&temp~1187093766~19 (cdr &temp~1187093766~18))) (if (list? &temp~1187093766~19) (let ((&e2~1187093766~14 &temp~1187093766~19)) (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~16) 0 '(core with-syntax)) (cons (cons (ex:syntax-rename 'list '() '(&env~1187093766~16) 0 '(core with-syntax)) &in~1187093766~12) (cons '() (cons (cons &out~1187093766~11 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~16) 0 '(core with-syntax)) (cons &e1~1187093766~13 &e2~1187093766~14)) '())) '()))))) (&fail~1187093766~10))))) (&fail~1187093766~10)))) (if (null? &cols~1187093766~22) '(() ()) (apply map list &cols~1187093766~22))) (&fail~1187093766~10))))) (&fail~1187093766~10)))) (&fail~1187093766~10)))))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~46 (car &input~1187093766~7))) (let ((&temp~1187093766~35 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~35) (let ((&temp~1187093766~39 (car &temp~1187093766~35))) (if (pair? &temp~1187093766~39) (let ((&temp~1187093766~41 (car &temp~1187093766~39))) (if (pair? &temp~1187093766~41) (let ((&temp~1187093766~45 (car &temp~1187093766~41))) (let ((&out~1187093766~29 &temp~1187093766~45)) (let ((&temp~1187093766~42 (cdr &temp~1187093766~41))) (if (pair? &temp~1187093766~42) (let ((&temp~1187093766~44 (car &temp~1187093766~42))) (let ((&in~1187093766~30 &temp~1187093766~44)) (let ((&temp~1187093766~43 (cdr &temp~1187093766~42))) (if (null? &temp~1187093766~43) (let ((&temp~1187093766~40 (cdr &temp~1187093766~39))) (if (null? &temp~1187093766~40) (let ((&temp~1187093766~36 (cdr &temp~1187093766~35))) (if (pair? &temp~1187093766~36) (let ((&temp~1187093766~38 (car &temp~1187093766~36))) (let ((&e1~1187093766~31 &temp~1187093766~38)) (let ((&temp~1187093766~37 (cdr &temp~1187093766~36))) (if (list? &temp~1187093766~37) (let ((&e2~1187093766~32 &temp~1187093766~37)) (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~34) 0 '(core with-syntax)) (cons &in~1187093766~30 (cons '() (cons (cons &out~1187093766~29 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~34) 0 '(core with-syntax)) (cons &e1~1187093766~31 &e2~1187093766~32)) '())) '()))))) (&fail~1187093766~9))))) (&fail~1187093766~9))) (&fail~1187093766~9))) (&fail~1187093766~9))))) (&fail~1187093766~9))))) (&fail~1187093766~9))) (&fail~1187093766~9))) (&fail~1187093766~9)))) (&fail~1187093766~9)))))) (if (pair? &input~1187093766~7) (let ((&temp~1187093766~56 (car &input~1187093766~7))) (let ((&temp~1187093766~51 (cdr &input~1187093766~7))) (if (pair? &temp~1187093766~51) (let ((&temp~1187093766~55 (car &temp~1187093766~51))) (if (null? &temp~1187093766~55) (let ((&temp~1187093766~52 (cdr &temp~1187093766~51))) (if (pair? &temp~1187093766~52) (let ((&temp~1187093766~54 (car &temp~1187093766~52))) (let ((&e1~1187093766~47 &temp~1187093766~54)) (let ((&temp~1187093766~53 (cdr &temp~1187093766~52))) (if (list? &temp~1187093766~53) (let ((&e2~1187093766~48 &temp~1187093766~53)) (cons (ex:syntax-rename 'begin '() '(&env~1187093766~50) 0 '(core with-syntax)) (cons &e1~1187093766~47 &e2~1187093766~48))) (&fail~1187093766~8))))) (&fail~1187093766~8))) (&fail~1187093766~8))) (&fail~1187093766~8)))) (&fail~1187093766~8)))))) (values)) (lambda () (values)) '&build~1187093766~57)) (values)) (begin (ex:register-library! (ex:make-library '(core syntax-rules) (lambda () (ex:uncompress '(((&env~1187093766~92 0 1 2 3 4 5) (&env~1187093766~76 6 7 3 4 5)) (7 (((k) . #f) ((cl) . #f))) (6 (((cl) . #f))) (5 (((syntax-rules) macro &syntax-rules~1187093766~58 (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~1187093766~3 (1) #f (core with-syntax)))) (4 (((x) variable &x~1187093766~60 (1) #f (core syntax-rules)))) (3 (((clause) variable &clause~1187093766~61 (1) #f (core syntax-rules)))) (2 (((y) variable &y~1187093766~82 (1) #f (core syntax-rules)))) (1 ()) (0 (((keyword) . #f) ((pattern) . #f) ((template) . #f)))))) '((syntax-rules macro &syntax-rules~1187093766~58 (0) #f (core syntax-rules))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~1187093766~57 &build~1187093766~2) (lambda () (ex:register-macro! '&syntax-rules~1187093766~58 (lambda (&x~1187093766~60) ((lambda (&clause~1187093766~61) (set! &clause~1187093766~61 (lambda (&y~1187093766~82) (let ((&input~1187093766~84 &y~1187093766~82)) (let ((&fail~1187093766~85 (lambda () (let ((&fail~1187093766~86 (lambda () (ex:invalid-form &input~1187093766~84)))) (ex:syntax-violation 'syntax-rules "Invalid expression" &x~1187093766~60))))) (if (pair? &input~1187093766~84) (let ((&temp~1187093766~96 (car &input~1187093766~84))) (if (pair? &temp~1187093766~96) (let ((&temp~1187093766~98 (car &temp~1187093766~96))) (let ((&keyword~1187093766~88 &temp~1187093766~98)) (let ((&temp~1187093766~97 (cdr &temp~1187093766~96))) (let ((&pattern~1187093766~89 &temp~1187093766~97)) (let ((&temp~1187093766~93 (cdr &input~1187093766~84))) (if (pair? &temp~1187093766~93) (let ((&temp~1187093766~95 (car &temp~1187093766~93))) (let ((&template~1187093766~90 &temp~1187093766~95)) (let ((&temp~1187093766~94 (cdr &temp~1187093766~93))) (if (null? &temp~1187093766~94) (cons (cons (ex:syntax-rename 'dummy '() '(&env~1187093766~92) 0 '(core syntax-rules)) &pattern~1187093766~89) (cons (cons (ex:syntax-rename 'syntax '() '(&env~1187093766~92) 0 '(core syntax-rules)) (cons &template~1187093766~90 '())) '())) (&fail~1187093766~85))))) (&fail~1187093766~85))))))) (&fail~1187093766~85))) (&fail~1187093766~85)))))) (let ((&input~1187093766~63 &x~1187093766~60)) (let ((&fail~1187093766~64 (lambda () (ex:invalid-form &input~1187093766~63)))) (if (pair? &input~1187093766~63) (let ((&temp~1187093766~80 (car &input~1187093766~63))) (let ((&temp~1187093766~77 (cdr &input~1187093766~63))) (if (pair? &temp~1187093766~77) (let ((&temp~1187093766~79 (car &temp~1187093766~77))) (if (list? &temp~1187093766~79) (let ((&k~1187093766~65 &temp~1187093766~79)) (let ((&temp~1187093766~78 (cdr &temp~1187093766~77))) (if (list? &temp~1187093766~78) (let ((&cl~1187093766~66 &temp~1187093766~78)) (if (for-all ex:identifier? &k~1187093766~65) (let ((&input~1187093766~70 (map &clause~1187093766~61 &cl~1187093766~66))) (let ((&fail~1187093766~72 (lambda () (ex:invalid-form &input~1187093766~70)))) (if (list? &input~1187093766~70) (let ((&cl~1187093766~73 &input~1187093766~70)) (begin (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons (cons (ex:syntax-rename 'x '() '(&env~1187093766~76) 0 '(core syntax-rules)) '()) (cons (cons (ex:syntax-rename 'syntax-case '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons (ex:syntax-rename 'x '() '(&env~1187093766~76) 0 '(core syntax-rules)) (cons &k~1187093766~65 &cl~1187093766~73))) '()))))) (&fail~1187093766~72)))) (&fail~1187093766~64))) (&fail~1187093766~64)))) (&fail~1187093766~64))) (&fail~1187093766~64)))) (&fail~1187093766~64))))) ex:undefined))) (values)) (lambda () (values)) '&build~1187093766~99)) (values)) (begin (define &unspecified~1187093766~179 ex:unspecified) (ex:register-library! (ex:make-library '(core let) (lambda () (ex:uncompress '(((&env~1187093766~191 0 1 2 3) (&env~1187093766~166 4 5 6 7 3) (&env~1187093766~135 8 9 10 3) (&env~1187093766~114 11 9 10 3)) (11 (((f) . #f) ((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (10 (((x) variable &x~1187093766~102 (1) #f (core let)))) (9 ()) (8 (((x) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (7 (((x) variable &x~1187093766~150 (1) #f (core let)))) (6 ()) (5 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f))) (4 (((t) . #f))) (3 (((letrec*) macro &letrec*~1187093766~180 (0) #f (core let)) ((unspecified) variable &unspecified~1187093766~179 (0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (0) #f (core let)) ((let) macro &let~1187093766~100 (0) #f (core let)) ((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~1187093766~3 (1) #f (core with-syntax)))) (2 (((x) variable &x~1187093766~182 (1) #f (core let)))) (1 ()) (0 (((i) . #f) ((v) . #f) ((e1) . #f) ((e2) . #f)))))) '((let macro &let~1187093766~100 (0) #f (core let)) (letrec macro &letrec~1187093766~148 (0) #f (core let)) (letrec* macro &letrec*~1187093766~180 (0) #f (core let))) '(((core with-syntax) 1) ((core primitives) 1 0)) '(&build~1187093766~57 &build~1187093766~2) (lambda () (ex:register-macro! '&let~1187093766~100 (lambda (&x~1187093766~102) (let ((&input~1187093766~104 &x~1187093766~102)) (let ((&fail~1187093766~105 (lambda () (let ((&fail~1187093766~106 (lambda () (ex:invalid-form &input~1187093766~104)))) (if (pair? &input~1187093766~104) (let ((&temp~1187093766~128 (car &input~1187093766~104))) (let ((&temp~1187093766~115 (cdr &input~1187093766~104))) (if (pair? &temp~1187093766~115) (let ((&temp~1187093766~127 (car &temp~1187093766~115))) (let ((&f~1187093766~107 &temp~1187093766~127)) (let ((&temp~1187093766~116 (cdr &temp~1187093766~115))) (if (pair? &temp~1187093766~116) (let ((&temp~1187093766~120 (car &temp~1187093766~116))) (ex:map-while (lambda (&temp~1187093766~120) (if (pair? &temp~1187093766~120) (let ((&temp~1187093766~126 (car &temp~1187093766~120))) (let ((&x~1187093766~108 &temp~1187093766~126)) (let ((&temp~1187093766~123 (cdr &temp~1187093766~120))) (if (pair? &temp~1187093766~123) (let ((&temp~1187093766~125 (car &temp~1187093766~123))) (let ((&v~1187093766~109 &temp~1187093766~125)) (let ((&temp~1187093766~124 (cdr &temp~1187093766~123))) (if (null? &temp~1187093766~124) (list &x~1187093766~108 &v~1187093766~109) #f)))) #f)))) #f)) &temp~1187093766~120 (lambda (&cols~1187093766~121 &rest~1187093766~122) (if (null? &rest~1187093766~122) (apply (lambda (&x~1187093766~108 &v~1187093766~109) (let ((&temp~1187093766~117 (cdr &temp~1187093766~116))) (if (pair? &temp~1187093766~117) (let ((&temp~1187093766~119 (car &temp~1187093766~117))) (let ((&e1~1187093766~110 &temp~1187093766~119)) (let ((&temp~1187093766~118 (cdr &temp~1187093766~117))) (if (list? &temp~1187093766~118) (let ((&e2~1187093766~111 &temp~1187093766~118)) (if (for-all ex:identifier? (cons &f~1187093766~107 &x~1187093766~108)) (cons (cons (ex:syntax-rename 'letrec '() '(&env~1187093766~114) 0 '(core let)) (cons (cons (cons &f~1187093766~107 (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~114) 0 '(core let)) (cons &x~1187093766~108 (cons &e1~1187093766~110 &e2~1187093766~111))) '())) '()) (cons &f~1187093766~107 '()))) &v~1187093766~109) (&fail~1187093766~106))) (&fail~1187093766~106))))) (&fail~1187093766~106)))) (if (null? &cols~1187093766~121) '(() ()) (apply map list &cols~1187093766~121))) (&fail~1187093766~106))))) (&fail~1187093766~106))))) (&fail~1187093766~106)))) (&fail~1187093766~106)))))) (if (pair? &input~1187093766~104) (let ((&temp~1187093766~147 (car &input~1187093766~104))) (let ((&temp~1187093766~136 (cdr &input~1187093766~104))) (if (pair? &temp~1187093766~136) (let ((&temp~1187093766~140 (car &temp~1187093766~136))) (ex:map-while (lambda (&temp~1187093766~140) (if (pair? &temp~1187093766~140) (let ((&temp~1187093766~146 (car &temp~1187093766~140))) (let ((&x~1187093766~129 &temp~1187093766~146)) (let ((&temp~1187093766~143 (cdr &temp~1187093766~140))) (if (pair? &temp~1187093766~143) (let ((&temp~1187093766~145 (car &temp~1187093766~143))) (let ((&v~1187093766~130 &temp~1187093766~145)) (let ((&temp~1187093766~144 (cdr &temp~1187093766~143))) (if (null? &temp~1187093766~144) (list &x~1187093766~129 &v~1187093766~130) #f)))) #f)))) #f)) &temp~1187093766~140 (lambda (&cols~1187093766~141 &rest~1187093766~142) (if (null? &rest~1187093766~142) (apply (lambda (&x~1187093766~129 &v~1187093766~130) (let ((&temp~1187093766~137 (cdr &temp~1187093766~136))) (if (pair? &temp~1187093766~137) (let ((&temp~1187093766~139 (car &temp~1187093766~137))) (let ((&e1~1187093766~131 &temp~1187093766~139)) (let ((&temp~1187093766~138 (cdr &temp~1187093766~137))) (if (list? &temp~1187093766~138) (let ((&e2~1187093766~132 &temp~1187093766~138)) (if (for-all ex:identifier? &x~1187093766~129) (cons (cons (ex:syntax-rename 'lambda '() '(&env~1187093766~135) 0 '(core let)) (cons &x~1187093766~129 (cons &e1~1187093766~131 &e2~1187093766~132))) &v~1187093766~130) (&fail~1187093766~105))) (&fail~1187093766~105))))) (&fail~1187093766~105)))) (if (null? &cols~1187093766~141) '(() ()) (apply map list &cols~1187093766~141))) (&fail~1187093766~105))))) (&fail~1187093766~105)))) (&fail~1187093766~105)))))) (ex:register-macro! '&letrec~1187093766~148 (lambda (&x~1187093766~150) (let ((&input~1187093766~152 &x~1187093766~150)) (let ((&fail~1187093766~153 (lambda () (ex:invalid-form &input~1187093766~152)))) (if (pair? &input~1187093766~152) (let ((&temp~1187093766~178 (car &input~1187093766~152))) (let ((&temp~1187093766~167 (cdr &input~1187093766~152))) (if (pair? &temp~1187093766~167) (let ((&temp~1187093766~171 (car &temp~1187093766~167))) (ex:map-while (lambda (&temp~1187093766~171) (if (pair? &temp~1187093766~171) (let ((&temp~1187093766~177 (car &temp~1187093766~171))) (let ((&i~1187093766~154 &temp~1187093766~177)) (let ((&temp~1187093766~174 (cdr &temp~1187093766~171))) (if (pair? &temp~1187093766~174) (let ((&temp~1187093766~176 (car &temp~1187093766~174))) (let ((&v~1187093766~155 &temp~1187093766~176)) (let ((&temp~1187093766~175 (cdr &temp~1187093766~174))) (if (null? &temp~1187093766~175) (list &i~1187093766~154 &v~1187093766~155) #f)))) #f)))) #f)) &temp~1187093766~171 (lambda (&cols~1187093766~172 &rest~1187093766~173) (if (null? &rest~1187093766~173) (apply (lambda (&i~1187093766~154 &v~1187093766~155) (let ((&temp~1187093766~168 (cdr &temp~1187093766~167))) (if (pair? &temp~1187093766~168) (let ((&temp~1187093766~170 (car &temp~1187093766~168))) (let ((&e1~1187093766~156 &temp~1187093766~170)) (let ((&temp~1187093766~169 (cdr &temp~1187093766~168))) (if (list? &temp~1187093766~169) (let ((&e2~1187093766~157 &temp~1187093766~169)) (let ((&input~1187093766~160 (ex:generate-temporaries &i~1187093766~154))) (let ((&fail~1187093766~162 (lambda () (ex:invalid-form &input~1187093766~160)))) (if (list? &input~1187093766~160) (let ((&t~1187093766~163 &input~1187093766~160)) (begin (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons (map (lambda (&i~1187093766~154) (cons &i~1187093766~154 (cons (ex:syntax-rename 'unspecified '() '(&env~1187093766~166) 0 '(core let)) '()))) &i~1187093766~154) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons (map (lambda (&t~1187093766~163 &v~1187093766~155) (cons &t~1187093766~163 (cons &v~1187093766~155 '()))) &t~1187093766~163 &v~1187093766~155) (append (map (lambda (&i~1187093766~154 &t~1187093766~163) (cons (ex:syntax-rename 'set! '() '(&env~1187093766~166) 0 '(core let)) (cons &i~1187093766~154 (cons &t~1187093766~163 '())))) &i~1187093766~154 &t~1187093766~163) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~166) 0 '(core let)) (cons '() (cons &e1~1187093766~156 &e2~1187093766~157))) '())))) '()))))) (&fail~1187093766~162))))) (&fail~1187093766~153))))) (&fail~1187093766~153)))) (if (null? &cols~1187093766~172) '(() ()) (apply map list &cols~1187093766~172))) (&fail~1187093766~153))))) (&fail~1187093766~153)))) (&fail~1187093766~153)))))) (ex:register-macro! '&letrec*~1187093766~180 (lambda (&x~1187093766~182) (let ((&input~1187093766~184 &x~1187093766~182)) (let ((&fail~1187093766~185 (lambda () (ex:invalid-form &input~1187093766~184)))) (if (pair? &input~1187093766~184) (let ((&temp~1187093766~203 (car &input~1187093766~184))) (let ((&temp~1187093766~192 (cdr &input~1187093766~184))) (if (pair? &temp~1187093766~192) (let ((&temp~1187093766~196 (car &temp~1187093766~192))) (ex:map-while (lambda (&temp~1187093766~196) (if (pair? &temp~1187093766~196) (let ((&temp~1187093766~202 (car &temp~1187093766~196))) (let ((&i~1187093766~186 &temp~1187093766~202)) (let ((&temp~1187093766~199 (cdr &temp~1187093766~196))) (if (pair? &temp~1187093766~199) (let ((&temp~1187093766~201 (car &temp~1187093766~199))) (let ((&v~1187093766~187 &temp~1187093766~201)) (let ((&temp~1187093766~200 (cdr &temp~1187093766~199))) (if (null? &temp~1187093766~200) (list &i~1187093766~186 &v~1187093766~187) #f)))) #f)))) #f)) &temp~1187093766~196 (lambda (&cols~1187093766~197 &rest~1187093766~198) (if (null? &rest~1187093766~198) (apply (lambda (&i~1187093766~186 &v~1187093766~187) (let ((&temp~1187093766~193 (cdr &temp~1187093766~192))) (if (pair? &temp~1187093766~193) (let ((&temp~1187093766~195 (car &temp~1187093766~193))) (let ((&e1~1187093766~188 &temp~1187093766~195)) (let ((&temp~1187093766~194 (cdr &temp~1187093766~193))) (if (list? &temp~1187093766~194) (let ((&e2~1187093766~189 &temp~1187093766~194)) (cons (ex:syntax-rename 'let '() '(&env~1187093766~191) 0 '(core let)) (cons '() (append (map (lambda (&i~1187093766~186 &v~1187093766~187) (cons (ex:syntax-rename 'define '() '(&env~1187093766~191) 0 '(core let)) (cons &i~1187093766~186 (cons &v~1187093766~187 '())))) &i~1187093766~186 &v~1187093766~187) (cons (cons (ex:syntax-rename 'let '() '(&env~1187093766~191) 0 '(core let)) (cons '() (cons &e1~1187093766~188 &e2~1187093766~189))) '()))))) (&fail~1187093766~185))))) (&fail~1187093766~185)))) (if (null? &cols~1187093766~197) '(() ()) (apply map list &cols~1187093766~197))) (&fail~1187093766~185))))) (&fail~1187093766~185)))) (&fail~1187093766~185)))))) (values)) (lambda () (set! &unspecified~1187093766~179 ex:undefined) (set! &unspecified~1187093766~179 (if #f #f)) (values)) '&build~1187093766~205)) (values)) (begin (ex:register-library! (ex:make-library '(core derived) (lambda () (ex:uncompress '(((&env~1187093766~476 0 1 2 3 4) (&env~1187093766~465 5 6 7 8 9 10 1 2 3 4) (&env~1187093766~447 11 7 8 9 10 1 2 3 4) (&env~1187093766~439 12 7 8 9 10 1 2 3 4) (&env~1187093766~392 13 14 15 16 17 18 19 20 21 4) (&env~1187093766~386 22 14 15 16 17 18 19 20 21 4) (&env~1187093766~377 23 14 15 16 17 18 19 20 21 4) (&env~1187093766~369 24 14 15 16 17 18 19 20 21 4) (&env~1187093766~352 25 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~343 28 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~335 29 26 27 15 16 17 18 19 20 21 4) (&env~1187093766~280 30 31 32 4) (&env~1187093766~257 33 34 35 36 37 38 31 32 4) (&env~1187093766~247 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~1187093766~223 (1) #t (core derived)))) (36 ()) (35 (((bindings) variable &bindings~1187093766~231 (1) #f (core derived)))) (34 ()) (33 (((x) . #f) ((v) . #f))) (32 (((x) variable &x~1187093766~208 (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~1187093766~289 (1) #f (core derived)))) (20 ()) (19 (((c1) . #f) ((c2) . #f))) (18 (((f) variable &f~1187093766~300 (1) #t (core derived)))) (17 ()) (16 (((c1) variable &c1~1187093766~308 (1) #f (core derived)) ((c2*) variable &c2*~1187093766~309 (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~1187093766~420 (1) #t (core derived)))) (9 ()) (8 (((c1) variable &c1~1187093766~428 (1) #f (core derived)) ((cmore) variable &cmore~1187093766~429 (1) #f (core derived)))) (7 ()) (6 (((rest) . #f))) (5 (((k) . #f) ((e1) . #f) ((e2) . #f))) (4 (((else) macro &else~1187093766~487 (0) #f (core derived)) ((=>) macro &=>~1187093766~483 (0) #f (core derived)) ((case) macro &case~1187093766~403 (0) #f (core derived)) ((cond) macro &cond~1187093766~287 (0) #f (core derived)) ((let*) macro &let*~1187093766~206 (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*~1187093766~180 (1 0) #f (core let)) ((letrec) macro &letrec~1187093766~148 (1 0) #f (core let)) ((let) macro &let~1187093766~100 (1 0) #f (core let)) ((with-syntax) macro &with-syntax~1187093766~3 (1) #f (core with-syntax)) ((syntax-rules) macro &syntax-rules~1187093766~58 (1) #f (core syntax-rules)))) (3 (((x) variable &x~1187093766~405 (1) #f (core derived)))) (2 ()) (1 (((e) . #f) ((c1) . #f) ((c2) . #f))) (0 (((body) . #f)))))) '((let* macro &let*~1187093766~206 (0) #f (core derived)) (cond macro &cond~1187093766~287 (0) #f (core derived)) (case macro &case~1187093766~403 (0) #f (core derived)) (else macro &else~1187093766~487 (0) #f (core derived)) (=> macro &=>~1187093766~483 (0) #f (core derived))) '(((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)) '(&build~1187093766~99 &build~1187093766~57 &build~1187093766~205 &build~1187093766~2) (lambda () (ex:register-macro! '&let*~1187093766~206 (lambda (&x~1187093766~208) (let ((&input~1187093766~210 &x~1187093766~208)) (let ((&fail~1187093766~211 (lambda () (let ((&fail~1187093766~212 (lambda () (ex:invalid-form &input~1187093766~210)))) (if (pair? &input~1187093766~210) (let ((&temp~1187093766~276 (car &input~1187093766~210))) (let ((&temp~1187093766~265 (cdr &input~1187093766~210))) (if (pair? &temp~1187093766~265) (let ((&temp~1187093766~269 (car &temp~1187093766~265))) (ex:map-while (lambda (&temp~1187093766~269) (if (pair? &temp~1187093766~269) (let ((&temp~1187093766~275 (car &temp~1187093766~269))) (let ((&x~1187093766~213 &temp~1187093766~275)) (let ((&temp~1187093766~272 (cdr &temp~1187093766~269))) (if (pair? &temp~1187093766~272) (let ((&temp~1187093766~274 (car &temp~1187093766~272))) (let ((&v~1187093766~214 &temp~1187093766~274)) (let ((&temp~1187093766~273 (cdr &temp~1187093766~272))) (if (null? &temp~1187093766~273) (list &x~1187093766~213 &v~1187093766~214) #f)))) #f)))) #f)) &temp~1187093766~269 (lambda (&cols~1187093766~270 &rest~1187093766~271) (if (null? &rest~1187093766~271) (apply (lambda (&x~1187093766~213 &v~1187093766~214) (let ((&temp~1187093766~266 (cdr &temp~1187093766~265))) (if (pair? &temp~1187093766~266) (let ((&temp~1187093766~268 (car &temp~1187093766~266))) (let ((&e1~1187093766~215 &temp~1187093766~268)) (let ((&temp~1187093766~267 (cdr &temp~1187093766~266))) (if (list? &temp~1187093766~267) (let ((&e2~1187093766~216 &temp~1187093766~267)) (if (for-all ex:identifier? &x~1187093766~213) (((lambda (&f~1187093766~223) ((lambda (&temp~1187093766~226) (set! &f~1187093766~223 &temp~1187093766~226) ((lambda () &f~1187093766~223))) (lambda (&bindings~1187093766~231) (let ((&input~1187093766~233 &bindings~1187093766~231)) (let ((&fail~1187093766~234 (lambda () (let ((&fail~1187093766~235 (lambda () (ex:invalid-form &input~1187093766~233)))) (if (pair? &input~1187093766~233) (let ((&temp~1187093766~249 (car &input~1187093766~233))) (if (pair? &temp~1187093766~249) (let ((&temp~1187093766~253 (car &temp~1187093766~249))) (let ((&x~1187093766~236 &temp~1187093766~253)) (let ((&temp~1187093766~250 (cdr &temp~1187093766~249))) (if (pair? &temp~1187093766~250) (let ((&temp~1187093766~252 (car &temp~1187093766~250))) (let ((&v~1187093766~237 &temp~1187093766~252)) (let ((&temp~1187093766~251 (cdr &temp~1187093766~250))) (if (null? &temp~1187093766~251) (let ((&temp~1187093766~248 (cdr &input~1187093766~233))) (let ((&rest~1187093766~238 &temp~1187093766~248)) (let ((&input~1187093766~241 (&f~1187093766~223 &rest~1187093766~238))) (let ((&fail~1187093766~243 (lambda () (ex:invalid-form &input~1187093766~241)))) (let ((&body~1187093766~244 &input~1187093766~241)) (begin (cons (ex:syntax-rename 'let '() '(&env~1187093766~247) 0 '(core derived)) (cons (cons (cons &x~1187093766~236 (cons &v~1187093766~237 '())) '()) (cons &body~1187093766~244 '()))))))))) (&fail~1187093766~235))))) (&fail~1187093766~235))))) (&fail~1187093766~235))) (&fail~1187093766~235)))))) (if (pair? &input~1187093766~233) (let ((&temp~1187093766~259 (car &input~1187093766~233))) (if (pair? &temp~1187093766~259) (let ((&temp~1187093766~263 (car &temp~1187093766~259))) (let ((&x~1187093766~254 &temp~1187093766~263)) (let ((&temp~1187093766~260 (cdr &temp~1187093766~259))) (if (pair? &temp~1187093766~260) (let ((&temp~1187093766~262 (car &temp~1187093766~260))) (let ((&v~1187093766~255 &temp~1187093766~262)) (let ((&temp~1187093766~261 (cdr &temp~1187093766~260))) (if (null? &temp~1187093766~261) (let ((&temp~1187093766~258 (cdr &input~1187093766~233))) (if (null? &temp~1187093766~258) (cons (ex:syntax-rename 'let '() '(&env~1187093766~257) 0 '(core derived)) (cons (cons (cons &x~1187093766~254 (cons &v~1187093766~255 '())) '()) (cons &e1~1187093766~215 &e2~1187093766~216))) (&fail~1187093766~234))) (&fail~1187093766~234))))) (&fail~1187093766~234))))) (&fail~1187093766~234))) (&fail~1187093766~234))))))) &unspecified~1187093766~179) (map (lambda (&x~1187093766~213 &v~1187093766~214) (cons &x~1187093766~213 (cons &v~1187093766~214 '()))) &x~1187093766~213 &v~1187093766~214)) (&fail~1187093766~212))) (&fail~1187093766~212))))) (&fail~1187093766~212)))) (if (null? &cols~1187093766~270) '(() ()) (apply map list &cols~1187093766~270))) (&fail~1187093766~212))))) (&fail~1187093766~212)))) (&fail~1187093766~212)))))) (if (pair? &input~1187093766~210) (let ((&temp~1187093766~286 (car &input~1187093766~210))) (let ((&temp~1187093766~281 (cdr &input~1187093766~210))) (if (pair? &temp~1187093766~281) (let ((&temp~1187093766~285 (car &temp~1187093766~281))) (if (null? &temp~1187093766~285) (let ((&temp~1187093766~282 (cdr &temp~1187093766~281))) (if (pair? &temp~1187093766~282) (let ((&temp~1187093766~284 (car &temp~1187093766~282))) (let ((&e1~1187093766~277 &temp~1187093766~284)) (let ((&temp~1187093766~283 (cdr &temp~1187093766~282))) (if (list? &temp~1187093766~283) (let ((&e2~1187093766~278 &temp~1187093766~283)) (cons (ex:syntax-rename 'let '() '(&env~1187093766~280) 0 '(core derived)) (cons '() (cons &e1~1187093766~277 &e2~1187093766~278)))) (&fail~1187093766~211))))) (&fail~1187093766~211))) (&fail~1187093766~211))) (&fail~1187093766~211)))) (&fail~1187093766~211)))))) (ex:register-macro! '&cond~1187093766~287 (lambda (&x~1187093766~289) (let ((&input~1187093766~291 &x~1187093766~289)) (let ((&fail~1187093766~292 (lambda () (ex:invalid-form &input~1187093766~291)))) (if (pair? &input~1187093766~291) (let ((&temp~1187093766~402 (car &input~1187093766~291))) (let ((&temp~1187093766~399 (cdr &input~1187093766~291))) (if (pair? &temp~1187093766~399) (let ((&temp~1187093766~401 (car &temp~1187093766~399))) (let ((&c1~1187093766~293 &temp~1187093766~401)) (let ((&temp~1187093766~400 (cdr &temp~1187093766~399))) (if (list? &temp~1187093766~400) (let ((&c2~1187093766~294 &temp~1187093766~400)) (((lambda (&f~1187093766~300) ((lambda (&temp~1187093766~303) (set! &f~1187093766~300 &temp~1187093766~303) ((lambda () &f~1187093766~300))) (lambda (&c1~1187093766~308 &c2*~1187093766~309) (let ((&input~1187093766~311 &c2*~1187093766~309)) (let ((&fail~1187093766~312 (lambda () (let ((&fail~1187093766~313 (lambda () (ex:invalid-form &input~1187093766~311)))) (if (pair? &input~1187093766~311) (let ((&temp~1187093766~356 (car &input~1187093766~311))) (let ((&c2~1187093766~314 &temp~1187093766~356)) (let ((&temp~1187093766~355 (cdr &input~1187093766~311))) (if (list? &temp~1187093766~355) (let ((&c3~1187093766~315 &temp~1187093766~355)) (let ((&input~1187093766~318 (&f~1187093766~300 &c2~1187093766~314 &c3~1187093766~315))) (let ((&fail~1187093766~321 (lambda () (ex:invalid-form &input~1187093766~318)))) (let ((&rest~1187093766~322 &input~1187093766~318)) (begin (let ((&input~1187093766~325 &c1~1187093766~308)) (let ((&fail~1187093766~326 (lambda () (let ((&fail~1187093766~327 (lambda () (let ((&fail~1187093766~328 (lambda () (let ((&fail~1187093766~329 (lambda () (ex:invalid-form &input~1187093766~325)))) (ex:syntax-violation 'cond "Invalid expression" &x~1187093766~289))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~339 (car &input~1187093766~325))) (let ((&e0~1187093766~331 &temp~1187093766~339)) (let ((&temp~1187093766~336 (cdr &input~1187093766~325))) (if (pair? &temp~1187093766~336) (let ((&temp~1187093766~338 (car &temp~1187093766~336))) (let ((&e1~1187093766~332 &temp~1187093766~338)) (let ((&temp~1187093766~337 (cdr &temp~1187093766~336))) (if (list? &temp~1187093766~337) (let ((&e2~1187093766~333 &temp~1187093766~337)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~335) 0 '(core derived)) (cons &e0~1187093766~331 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~335) 0 '(core derived)) (cons &e1~1187093766~332 &e2~1187093766~333)) (cons &rest~1187093766~322 '()))))) (&fail~1187093766~328))))) (&fail~1187093766~328))))) (&fail~1187093766~328)))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~349 (car &input~1187093766~325))) (let ((&e0~1187093766~340 &temp~1187093766~349)) (let ((&temp~1187093766~344 (cdr &input~1187093766~325))) (if (pair? &temp~1187093766~344) (let ((&temp~1187093766~348 (car &temp~1187093766~344))) (if (and (ex:identifier? &temp~1187093766~348) (ex:free-identifier=? &temp~1187093766~348 (ex:syntax-rename '=> '() '(&env~1187093766~343) 0 '(core derived)))) (let ((&temp~1187093766~345 (cdr &temp~1187093766~344))) (if (pair? &temp~1187093766~345) (let ((&temp~1187093766~347 (car &temp~1187093766~345))) (let ((&e1~1187093766~341 &temp~1187093766~347)) (let ((&temp~1187093766~346 (cdr &temp~1187093766~345))) (if (null? &temp~1187093766~346) (cons (ex:syntax-rename 'let '() '(&env~1187093766~343) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) (cons &e0~1187093766~340 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~343) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) (cons (cons &e1~1187093766~341 (cons (ex:syntax-rename 't '() '(&env~1187093766~343) 0 '(core derived)) '())) (cons &rest~1187093766~322 '())))) '()))) (&fail~1187093766~327))))) (&fail~1187093766~327))) (&fail~1187093766~327))) (&fail~1187093766~327))))) (&fail~1187093766~327)))))) (if (pair? &input~1187093766~325) (let ((&temp~1187093766~354 (car &input~1187093766~325))) (let ((&e0~1187093766~350 &temp~1187093766~354)) (let ((&temp~1187093766~353 (cdr &input~1187093766~325))) (if (null? &temp~1187093766~353) (cons (ex:syntax-rename 'let '() '(&env~1187093766~352) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons &e0~1187093766~350 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~352) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~352) 0 '(core derived)) (cons &rest~1187093766~322 '())))) '()))) (&fail~1187093766~326))))) (&fail~1187093766~326))))))))) (&fail~1187093766~313))))) (&fail~1187093766~313)))))) (if (null? &input~1187093766~311) (let ((&input~1187093766~358 &c1~1187093766~308)) (let ((&fail~1187093766~359 (lambda () (let ((&fail~1187093766~360 (lambda () (let ((&fail~1187093766~361 (lambda () (let ((&fail~1187093766~362 (lambda () (let ((&fail~1187093766~363 (lambda () (ex:invalid-form &input~1187093766~358)))) (ex:syntax-violation 'cond "Invalid expression" &x~1187093766~289))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~373 (car &input~1187093766~358))) (let ((&e0~1187093766~365 &temp~1187093766~373)) (let ((&temp~1187093766~370 (cdr &input~1187093766~358))) (if (pair? &temp~1187093766~370) (let ((&temp~1187093766~372 (car &temp~1187093766~370))) (let ((&e1~1187093766~366 &temp~1187093766~372)) (let ((&temp~1187093766~371 (cdr &temp~1187093766~370))) (if (list? &temp~1187093766~371) (let ((&e2~1187093766~367 &temp~1187093766~371)) (cons (ex:syntax-rename 'if '() '(&env~1187093766~369) 0 '(core derived)) (cons &e0~1187093766~365 (cons (cons (ex:syntax-rename 'begin '() '(&env~1187093766~369) 0 '(core derived)) (cons &e1~1187093766~366 &e2~1187093766~367)) '())))) (&fail~1187093766~362))))) (&fail~1187093766~362))))) (&fail~1187093766~362)))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~383 (car &input~1187093766~358))) (let ((&e0~1187093766~374 &temp~1187093766~383)) (let ((&temp~1187093766~378 (cdr &input~1187093766~358))) (if (pair? &temp~1187093766~378) (let ((&temp~1187093766~382 (car &temp~1187093766~378))) (if (and (ex:identifier? &temp~1187093766~382) (ex:free-identifier=? &temp~1187093766~382 (ex:syntax-rename '=> '() '(&env~1187093766~377) 0 '(core derived)))) (let ((&temp~1187093766~379 (cdr &temp~1187093766~378))) (if (pair? &temp~1187093766~379) (let ((&temp~1187093766~381 (car &temp~1187093766~379))) (let ((&e1~1187093766~375 &temp~1187093766~381)) (let ((&temp~1187093766~380 (cdr &temp~1187093766~379))) (if (null? &temp~1187093766~380) (cons (ex:syntax-rename 'let '() '(&env~1187093766~377) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) (cons &e0~1187093766~374 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~377) 0 '(core derived)) (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) (cons (cons &e1~1187093766~375 (cons (ex:syntax-rename 't '() '(&env~1187093766~377) 0 '(core derived)) '())) '()))) '()))) (&fail~1187093766~361))))) (&fail~1187093766~361))) (&fail~1187093766~361))) (&fail~1187093766~361))))) (&fail~1187093766~361)))))) (if (pair? &input~1187093766~358) (let ((&temp~1187093766~388 (car &input~1187093766~358))) (let ((&e0~1187093766~384 &temp~1187093766~388)) (let ((&temp~1187093766~387 (cdr &input~1187093766~358))) (if (null? &temp~1187093766~387) (cons (ex:syntax-rename 'let '() '(&env~1187093766~386) 0 '(core derived)) (cons (cons (cons (ex:syntax-rename 't '() '(&env~1187093766~386) 0 '(core derived)) (cons &e0~1187093766~384 '())) '()) (cons (cons (ex:syntax-rename 'if '() '(&env~1187093766~386) 0 '(core derived)) (cons (ex:syntax-rename 't '()