(begin (define ~core.primitives~envs (quote ())) (define ~core.primitives~exports (quote ((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->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 ())))) (define ~core.primitives~imports (quote (((core primitive-macros) 0)))) (define (~core.primitives~visit) ($ex:unspecified)) (define (~core.primitives~invoke) ($ex:unspecified)))

(begin (define ~core.with-syntax~envs (quote ((env~1185902126~57 ((((e1) pattern-variable e1~1185902126~54 (1) 0 (core with-syntax)) ((e2) pattern-variable e2~1185902126~55 (1) 1 (core with-syntax)))) (()) ((((x) variable x~1185902126~11 (1) #f (core with-syntax)))) . env~1185902126~7) (env~1185902126~41 ((((out) pattern-variable out~1185902126~36 (1) 0 (core with-syntax)) ((in) pattern-variable in~1185902126~37 (1) 0 (core with-syntax)) ((e1) pattern-variable e1~1185902126~38 (1) 0 (core with-syntax)) ((e2) pattern-variable e2~1185902126~39 (1) 1 (core with-syntax)))) (()) ((((x) variable x~1185902126~11 (1) #f (core with-syntax)))) . env~1185902126~7) (env~1185902126~23 ((((out) pattern-variable out~1185902126~18 (1) 1 (core with-syntax)) ((in) pattern-variable in~1185902126~19 (1) 1 (core with-syntax)) ((e1) pattern-variable e1~1185902126~20 (1) 0 (core with-syntax)) ((e2) pattern-variable e2~1185902126~21 (1) 1 (core with-syntax)))) (()) ((((x) variable x~1185902126~11 (1) #f (core with-syntax)))) . env~1185902126~7) (env~1185902126~7 ((((with-syntax) macro with-syntax~1185902126~9 (0) #f (core with-syntax)) ((eval) variable $ex:eval (0 1) #f ()) ((environment-bindings) variable $ex:environment-bindings (0 1) #f ()) ((environment) variable $ex:environment (0 1) #f ()) ((syntax-violation) variable $ex:syntax-violation (0 1) #f ()) ((syntax->datum) variable $ex:syntax->datum (0 1) #f ()) ((datum->syntax) variable $ex:datum->syntax (0 1) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (0 1) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (0 1) #f ()) ((identifier?) variable $ex:identifier? (0 1) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (0 1) #f ()) ((modulo) variable modulo (0 1) #f ()) ((remainder) variable remainder (0 1) #f ()) ((quotient) variable quotient (0 1) #f ()) ((inexact->exact) variable inexact->exact (0 1) #f ()) ((exact->inexact) variable exact->inexact (0 1) #f ()) ((set-cdr!) variable set-cdr! (0 1) #f ()) ((set-car!) variable set-car! (0 1) #f ()) ((string-set!) variable string-set! (0 1) #f ()) ((string-fill!) variable string-fill! (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 ()) ((char-lower-case?) variable char-lower-case? (0 1) #f ()) ((char-upper-case?) variable char-upper-case? (0 1) #f ()) ((char-whitespace?) variable char-whitespace? (0 1) #f ()) ((char-numeric?) variable char-numeric? (0 1) #f ()) ((char-alphabetic?) variable char-alphabetic? (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-downcase) variable char-downcase (0 1) #f ()) ((char-upcase) variable char-upcase (0 1) #f ()) ((write-char) variable write-char (0 1) #f ()) ((write) variable write (0 1) #f ()) ((with-output-to-file) variable with-output-to-file (0 1) #f ()) ((with-input-from-file) variable with-input-from-file (0 1) #f ()) ((read-char) variable read-char (0 1) #f ()) ((read) variable read (0 1) #f ()) ((peek-char) variable peek-char (0 1) #f ()) ((open-output-file) variable open-output-file (0 1) #f ()) ((open-input-file) variable open-input-file (0 1) #f ()) ((newline) variable newline (0 1) #f ()) ((eof-object?) variable eof-object? (0 1) #f ()) ((display) variable display (0 1) #f ()) ((current-output-port) variable current-output-port (0 1) #f ()) ((current-input-port) variable current-input-port (0 1) #f ()) ((close-output-port) variable close-output-port (0 1) #f ()) ((close-input-port) variable close-input-port (0 1) #f ()) ((call-with-output-file) variable call-with-output-file (0 1) #f ()) ((call-with-input-file) variable call-with-input-file (0 1) #f ()) ((assq) variable assq (0 1) #f ()) ((assv) variable assv (0 1) #f ()) ((assoc) variable assoc (0 1) #f ()) ((assp) variable assp (0 1) #f ()) ((memq) variable memq (0 1) #f ()) ((memv) variable memv (0 1) #f ()) ((member) variable member (0 1) #f ()) ((memp) variable memp (0 1) #f ()) ((remv) variable remv (0 1) #f ()) ((remq) variable remq (0 1) #f ()) ((remove) variable remove (0 1) #f ()) ((remp) variable remp (0 1) #f ()) ((fold-right) variable fold-right (0 1) #f ()) ((fold-left) variable fold-left (0 1) #f ()) ((partition) variable partition (0 1) #f ()) ((filter) variable filter (0 1) #f ()) ((exists) variable exists (0 1) #f ()) ((for-all) variable for-all (0 1) #f ()) ((find) variable find (0 1) #f ()) ((call/cc) variable call/cc (0 1) #f ()) ((assertion-violation) variable assertion-violation (0 1) #f ()) ((error) variable error (0 1) #f ()) ((vector-for-each) variable vector-for-each (0 1) #f ()) ((vector-map) variable vector-map (0 1) #f ()) ((string-for-each) variable string-for-each (0 1) #f ()) ((symbol=?) variable symbol=? (0 1) #f ()) ((boolean=?) variable boolean=? (0 1) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (0 1) #f ()) ((div0-and-mod0) variable div0-and-mod0 (0 1) #f ()) ((mod0) variable mod0 (0 1) #f ()) ((div0) variable div0 (0 1) #f ()) ((div-and-mod) variable div-and-mod (0 1) #f ()) ((mod) variable mod (0 1) #f ()) ((div) variable div (0 1) #f ()) ((nan?) variable nan? (0 1) #f ()) ((infinite?) variable infinite? (0 1) #f ()) ((finite?) variable finite? (0 1) #f ()) ((inexact) variable inexact (0 1) #f ()) ((exact) variable exact (0 1) #f ()) ((integer-valued?) variable integer-valued? (0 1) #f ()) ((rational-valued?) variable rational-valued? (0 1) #f ()) ((real-valued?) variable real-valued? (0 1) #f ()) ((zero?) variable zero? (0 1) #f ()) ((vector?) variable vector? (0 1) #f ()) ((vector-set!) variable vector-set! (0 1) #f ()) ((vector-ref) variable vector-ref (0 1) #f ()) ((vector-length) variable vector-length (0 1) #f ()) ((vector-fill!) variable vector-fill! (0 1) #f ()) ((vector->list) variable vector->list (0 1) #f ()) ((vector) variable vector (0 1) #f ()) ((values) variable values (0 1) #f ()) ((truncate) variable truncate (0 1) #f ()) ((tan) variable tan (0 1) #f ()) ((symbol?) variable symbol? (0 1) #f ()) ((symbol->string) variable symbol->string (0 1) #f ()) ((substring) variable substring (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 ()) ((string-ref) variable string-ref (0 1) #f ()) ((string-length) variable string-length (0 1) #f ()) ((string-copy) variable string-copy (0 1) #f ()) ((string-append) variable string-append (0 1) #f ()) ((string->symbol) variable string->symbol (0 1) #f ()) ((string->number) variable string->number (0 1) #f ()) ((string->list) variable string->list (0 1) #f ()) ((string) variable string (0 1) #f ()) ((sqrt) variable sqrt (0 1) #f ()) ((sin) variable sin (0 1) #f ()) ((round) variable round (0 1) #f ()) ((reverse) variable reverse (0 1) #f ()) ((real?) variable real? (0 1) #f ()) ((real-part) variable real-part (0 1) #f ()) ((rationalize) variable rationalize (0 1) #f ()) ((rational?) variable rational? (0 1) #f ()) ((procedure?) variable procedure? (0 1) #f ()) ((positive?) variable positive? (0 1) #f ()) ((pair?) variable pair? (0 1) #f ()) ((odd?) variable odd? (0 1) #f ()) ((numerator) variable numerator (0 1) #f ()) ((number?) variable number? (0 1) #f ()) ((number->string) variable number->string (0 1) #f ()) ((null?) variable null? (0 1) #f ()) ((not) variable not (0 1) #f ()) ((negative?) variable negative? (0 1) #f ()) ((min) variable min (0 1) #f ()) ((max) variable max (0 1) #f ()) ((map) variable map (0 1) #f ()) ((make-vector) variable make-vector (0 1) #f ()) ((make-string) variable make-string (0 1) #f ()) ((make-rectangular) variable make-rectangular (0 1) #f ()) ((make-polar) variable make-polar (0 1) #f ()) ((magnitude) variable magnitude (0 1) #f ()) ((log) variable log (0 1) #f ()) ((list?) variable list? (0 1) #f ()) ((list-tail) variable list-tail (0 1) #f ()) ((list-ref) variable list-ref (0 1) #f ()) ((list->vector) variable list->vector (0 1) #f ()) ((list->string) variable list->string (0 1) #f ()) ((list) variable list (0 1) #f ()) ((length) variable length (0 1) #f ()) ((lcm) variable lcm (0 1) #f ()) ((integer?) variable integer? (0 1) #f ()) ((integer->char) variable integer->char (0 1) #f ()) ((inexact?) variable inexact? (0 1) #f ()) ((imag-part) variable imag-part (0 1) #f ()) ((gcd) variable gcd (0 1) #f ()) ((for-each) variable for-each (0 1) #f ()) ((floor) variable floor (0 1) #f ()) ((expt) variable expt (0 1) #f ()) ((exp) variable exp (0 1) #f ()) ((exact?) variable exact? (0 1) #f ()) ((even?) variable even? (0 1) #f ()) ((eqv?) variable eqv? (0 1) #f ()) ((equal?) variable equal? (0 1) #f ()) ((eq?) variable eq? (0 1) #f ()) ((dynamic-wind) variable dynamic-wind (0 1) #f ()) ((denominator) variable denominator (0 1) #f ()) ((cos) variable cos (0 1) #f ()) ((cons) variable cons (0 1) #f ()) ((complex?) variable complex? (0 1) #f ()) ((char->integer) variable char->integer (0 1) #f ()) ((ceiling) variable ceiling (0 1) #f ()) ((cddddr) variable cddddr (0 1) #f ()) ((cdddar) variable cdddar (0 1) #f ()) ((cddadr) variable cddadr (0 1) #f ()) ((cddaar) variable cddaar (0 1) #f ()) ((cdaddr) variable cdaddr (0 1) #f ()) ((cdadar) variable cdadar (0 1) #f ()) ((cdaadr) variable cdaadr (0 1) #f ()) ((cdaaar) variable cdaaar (0 1) #f ()) ((cadddr) variable cadddr (0 1) #f ()) ((caddar) variable caddar (0 1) #f ()) ((cadadr) variable cadadr (0 1) #f ()) ((cadaar) variable cadaar (0 1) #f ()) ((caaddr) variable caaddr (0 1) #f ()) ((caadar) variable caadar (0 1) #f ()) ((caaadr) variable caaadr (0 1) #f ()) ((caaaar) variable caaaar (0 1) #f ()) ((cdddr) variable cdddr (0 1) #f ()) ((cddar) variable cddar (0 1) #f ()) ((cdadr) variable cdadr (0 1) #f ()) ((cdaar) variable cdaar (0 1) #f ()) ((caddr) variable caddr (0 1) #f ()) ((cadar) variable cadar (0 1) #f ()) ((caadr) variable caadr (0 1) #f ()) ((caaar) variable caaar (0 1) #f ()) ((cddr) variable cddr (0 1) #f ()) ((cdar) variable cdar (0 1) #f ()) ((cadr) variable cadr (0 1) #f ()) ((caar) variable caar (0 1) #f ()) ((cdr) variable cdr (0 1) #f ()) ((car) variable car (0 1) #f ()) ((call-with-values) variable call-with-values (0 1) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (0 1) #f ()) ((boolean?) variable boolean? (0 1) #f ()) ((atan) variable atan (0 1) #f ()) ((asin) variable asin (0 1) #f ()) ((apply) variable apply (0 1) #f ()) ((append) variable append (0 1) #f ()) ((acos) variable acos (0 1) #f ()) ((abs) variable abs (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 ()) ((*) 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 ()) ((letrec-syntax) macro letrec-syntax (0 1) #f ()) ((let-syntax) macro let-syntax (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 ()) ((set!) macro set! (0 1) #f ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((if) macro if (0 1) #f ()) ((begin) macro begin (0 1) #f ()))))))) (define ~core.with-syntax~exports (quote ((with-syntax macro with-syntax~1185902126~9 (0) #f (core with-syntax))))) (define ~core.with-syntax~imports (quote (((core primitives) 0 1)))) (define (~core.with-syntax~visit) ($ex:register-macro! (quote with-syntax~1185902126~9) (lambda (x~1185902126~11) ((lambda () (let ((input~1185902126~14 x~1185902126~11)) (let ((fail~1185902126~15 (lambda () (let ((fail~1185902126~16 (lambda () (let ((fail~1185902126~17 (lambda () ($ex:invalid-form input~1185902126~14)))) (if (pair? input~1185902126~14) (let ((temp~1185902126~35 (car input~1185902126~14))) (let ((temp~1185902126~24 (cdr input~1185902126~14))) (if (pair? temp~1185902126~24) (let ((temp~1185902126~28 (car temp~1185902126~24))) ($ex:map-while (lambda (temp~1185902126~28) (if (pair? temp~1185902126~28) (let ((temp~1185902126~34 (car temp~1185902126~28))) (let ((out~1185902126~18 temp~1185902126~34)) (let ((temp~1185902126~31 (cdr temp~1185902126~28))) (if (pair? temp~1185902126~31) (let ((temp~1185902126~33 (car temp~1185902126~31))) (let ((in~1185902126~19 temp~1185902126~33)) (let ((temp~1185902126~32 (cdr temp~1185902126~31))) (if (null? temp~1185902126~32) (list out~1185902126~18 in~1185902126~19) #f)))) #f)))) #f)) temp~1185902126~28 (lambda (cols~1185902126~29 rest~1185902126~30) (if (null? rest~1185902126~30) (apply (lambda (out~1185902126~18 in~1185902126~19) (let ((temp~1185902126~25 (cdr temp~1185902126~24))) (if (pair? temp~1185902126~25) (let ((temp~1185902126~27 (car temp~1185902126~25))) (let ((e1~1185902126~20 temp~1185902126~27)) (let ((temp~1185902126~26 (cdr temp~1185902126~25))) (if (list? temp~1185902126~26) (let ((e2~1185902126~21 temp~1185902126~26)) (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185902126~23)) 0 (quote (core with-syntax))) (cons (cons ($ex:syntax-rename (quote list) (quote ()) (quote (env~1185902126~23)) 0 (quote (core with-syntax))) in~1185902126~19) (cons (quote ()) (cons (cons out~1185902126~18 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~23)) 0 (quote (core with-syntax))) (cons e1~1185902126~20 e2~1185902126~21)) (quote ()))) (quote ())))))) (fail~1185902126~17))))) (fail~1185902126~17)))) (if (null? cols~1185902126~29) (quote (() ())) (apply map list cols~1185902126~29))) (fail~1185902126~17))))) (fail~1185902126~17)))) (fail~1185902126~17)))))) (if (pair? input~1185902126~14) (let ((temp~1185902126~53 (car input~1185902126~14))) (let ((temp~1185902126~42 (cdr input~1185902126~14))) (if (pair? temp~1185902126~42) (let ((temp~1185902126~46 (car temp~1185902126~42))) (if (pair? temp~1185902126~46) (let ((temp~1185902126~48 (car temp~1185902126~46))) (if (pair? temp~1185902126~48) (let ((temp~1185902126~52 (car temp~1185902126~48))) (let ((out~1185902126~36 temp~1185902126~52)) (let ((temp~1185902126~49 (cdr temp~1185902126~48))) (if (pair? temp~1185902126~49) (let ((temp~1185902126~51 (car temp~1185902126~49))) (let ((in~1185902126~37 temp~1185902126~51)) (let ((temp~1185902126~50 (cdr temp~1185902126~49))) (if (null? temp~1185902126~50) (let ((temp~1185902126~47 (cdr temp~1185902126~46))) (if (null? temp~1185902126~47) (let ((temp~1185902126~43 (cdr temp~1185902126~42))) (if (pair? temp~1185902126~43) (let ((temp~1185902126~45 (car temp~1185902126~43))) (let ((e1~1185902126~38 temp~1185902126~45)) (let ((temp~1185902126~44 (cdr temp~1185902126~43))) (if (list? temp~1185902126~44) (let ((e2~1185902126~39 temp~1185902126~44)) (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185902126~41)) 0 (quote (core with-syntax))) (cons in~1185902126~37 (cons (quote ()) (cons (cons out~1185902126~36 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~41)) 0 (quote (core with-syntax))) (cons e1~1185902126~38 e2~1185902126~39)) (quote ()))) (quote ())))))) (fail~1185902126~16))))) (fail~1185902126~16))) (fail~1185902126~16))) (fail~1185902126~16))))) (fail~1185902126~16))))) (fail~1185902126~16))) (fail~1185902126~16))) (fail~1185902126~16)))) (fail~1185902126~16)))))) (if (pair? input~1185902126~14) (let ((temp~1185902126~63 (car input~1185902126~14))) (let ((temp~1185902126~58 (cdr input~1185902126~14))) (if (pair? temp~1185902126~58) (let ((temp~1185902126~62 (car temp~1185902126~58))) (if (null? temp~1185902126~62) (let ((temp~1185902126~59 (cdr temp~1185902126~58))) (if (pair? temp~1185902126~59) (let ((temp~1185902126~61 (car temp~1185902126~59))) (let ((e1~1185902126~54 temp~1185902126~61)) (let ((temp~1185902126~60 (cdr temp~1185902126~59))) (if (list? temp~1185902126~60) (let ((e2~1185902126~55 temp~1185902126~60)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~57)) 0 (quote (core with-syntax))) (cons e1~1185902126~54 e2~1185902126~55))) (fail~1185902126~15))))) (fail~1185902126~15))) (fail~1185902126~15))) (fail~1185902126~15)))) (fail~1185902126~15)))))))) ($ex:unspecified)) (define (~core.with-syntax~invoke) ($ex:unspecified)))

(begin (define ~core.syntax-rules~envs (quote ((env~1185902126~105 ((((keyword) pattern-variable keyword~1185902126~101 (1) 0 (core syntax-rules)) ((pattern) pattern-variable pattern~1185902126~102 (1) 0 (core syntax-rules)) ((template) pattern-variable template~1185902126~103 (1) 0 (core syntax-rules)))) (()) ((((y) variable y~1185902126~94 (1) #f (core syntax-rules)))) ((((clause) variable clause~1185902126~71 (1) #f (core syntax-rules)))) ((((x) variable x~1185902126~69 (1) #f (core syntax-rules)))) . env~1185902126~65) (env~1185902126~88 ((((cl) pattern-variable cl~1185902126~84 (1) 1 (core syntax-rules)))) ((((k) pattern-variable k~1185902126~76 (1) 1 (core syntax-rules)) ((cl) pattern-variable cl~1185902126~77 (1) 1 (core syntax-rules)))) ((((clause) variable clause~1185902126~71 (1) #f (core syntax-rules)))) ((((x) variable x~1185902126~69 (1) #f (core syntax-rules)))) . env~1185902126~65) (env~1185902126~65 ((((syntax-rules) macro syntax-rules~1185902126~67 (0) #f (core syntax-rules)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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 ()) ((with-syntax) macro with-syntax~1185902126~9 (1) #f (core with-syntax)))))))) (define ~core.syntax-rules~exports (quote ((syntax-rules macro syntax-rules~1185902126~67 (0) #f (core syntax-rules))))) (define ~core.syntax-rules~imports (quote (((core with-syntax) 1) ((core primitives) 1 0)))) (define (~core.syntax-rules~visit) ($ex:register-macro! (quote syntax-rules~1185902126~67) (lambda (x~1185902126~69) ((lambda (clause~1185902126~71) (set! clause~1185902126~71 (lambda (y~1185902126~94) ((lambda () (let ((input~1185902126~97 y~1185902126~94)) (let ((fail~1185902126~98 (lambda () (let ((fail~1185902126~99 (lambda () ($ex:invalid-form input~1185902126~97)))) ($ex:syntax-violation (quote syntax-rules) "Invalid expression" x~1185902126~69))))) (if (pair? input~1185902126~97) (let ((temp~1185902126~109 (car input~1185902126~97))) (if (pair? temp~1185902126~109) (let ((temp~1185902126~111 (car temp~1185902126~109))) (let ((keyword~1185902126~101 temp~1185902126~111)) (let ((temp~1185902126~110 (cdr temp~1185902126~109))) (let ((pattern~1185902126~102 temp~1185902126~110)) (let ((temp~1185902126~106 (cdr input~1185902126~97))) (if (pair? temp~1185902126~106) (let ((temp~1185902126~108 (car temp~1185902126~106))) (let ((template~1185902126~103 temp~1185902126~108)) (let ((temp~1185902126~107 (cdr temp~1185902126~106))) (if (null? temp~1185902126~107) (cons (cons ($ex:syntax-rename (quote dummy) (quote ()) (quote (env~1185902126~105)) 0 (quote (core syntax-rules))) pattern~1185902126~102) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~105)) 0 (quote (core syntax-rules))) (cons template~1185902126~103 (quote ()))) (quote ()))) (fail~1185902126~98))))) (fail~1185902126~98))))))) (fail~1185902126~98))) (fail~1185902126~98)))))))) (let ((input~1185902126~74 x~1185902126~69)) (let ((fail~1185902126~75 (lambda () ($ex:invalid-form input~1185902126~74)))) (if (pair? input~1185902126~74) (let ((temp~1185902126~92 (car input~1185902126~74))) (let ((temp~1185902126~89 (cdr input~1185902126~74))) (if (pair? temp~1185902126~89) (let ((temp~1185902126~91 (car temp~1185902126~89))) (if (list? temp~1185902126~91) (let ((k~1185902126~76 temp~1185902126~91)) (let ((temp~1185902126~90 (cdr temp~1185902126~89))) (if (list? temp~1185902126~90) (let ((cl~1185902126~77 temp~1185902126~90)) (if (for-all $ex:identifier? k~1185902126~76) (let ((input~1185902126~81 (map clause~1185902126~71 cl~1185902126~77))) (let ((fail~1185902126~83 (lambda () ($ex:invalid-form input~1185902126~81)))) (if (list? input~1185902126~81) (let ((cl~1185902126~84 input~1185902126~81)) (begin (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~88)) 0 (quote (core syntax-rules))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~88)) 0 (quote (core syntax-rules))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185902126~88)) 0 (quote (core syntax-rules))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~88)) 0 (quote (core syntax-rules))) (cons k~1185902126~76 cl~1185902126~84))) (quote ())))))) (fail~1185902126~83)))) (fail~1185902126~75))) (fail~1185902126~75)))) (fail~1185902126~75))) (fail~1185902126~75)))) (fail~1185902126~75))))) ($ex:unspecified)))) ($ex:unspecified)) (define (~core.syntax-rules~invoke) ($ex:unspecified)))

(begin (define ~core.let~envs (quote ((env~1185902126~213 ((((i) pattern-variable i~1185902126~208 (1) 1 (core let)) ((v) pattern-variable v~1185902126~209 (1) 1 (core let)) ((e1) pattern-variable e1~1185902126~210 (1) 0 (core let)) ((e2) pattern-variable e2~1185902126~211 (1) 1 (core let)))) (()) ((((x) variable x~1185902126~203 (1) #f (core let)))) . env~1185902126~113) (env~1185902126~185 ((((t) pattern-variable t~1185902126~181 (1) 1 (core let)))) ((((i) pattern-variable i~1185902126~172 (1) 1 (core let)) ((v) pattern-variable v~1185902126~173 (1) 1 (core let)) ((e1) pattern-variable e1~1185902126~174 (1) 0 (core let)) ((e2) pattern-variable e2~1185902126~175 (1) 1 (core let)))) (()) ((((x) variable x~1185902126~167 (1) #f (core let)))) . env~1185902126~113) (env~1185902126~151 ((((x) pattern-variable x~1185902126~145 (1) 1 (core let)) ((v) pattern-variable v~1185902126~146 (1) 1 (core let)) ((e1) pattern-variable e1~1185902126~147 (1) 0 (core let)) ((e2) pattern-variable e2~1185902126~148 (1) 1 (core let)))) (()) ((((x) variable x~1185902126~117 (1) #f (core let)))) . env~1185902126~113) (env~1185902126~130 ((((f) pattern-variable f~1185902126~123 (1) 0 (core let)) ((x) pattern-variable x~1185902126~124 (1) 1 (core let)) ((v) pattern-variable v~1185902126~125 (1) 1 (core let)) ((e1) pattern-variable e1~1185902126~126 (1) 0 (core let)) ((e2) pattern-variable e2~1185902126~127 (1) 1 (core let)))) (()) ((((x) variable x~1185902126~117 (1) #f (core let)))) . env~1185902126~113) (env~1185902126~113 ((((letrec*) macro letrec*~1185902126~201 (0) #f (core let)) ((unspecified) variable unspecified~1185902126~199 (0) #f (core let)) ((letrec) macro letrec~1185902126~165 (0) #f (core let)) ((let) macro let~1185902126~115 (0) #f (core let)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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 ()) ((with-syntax) macro with-syntax~1185902126~9 (1) #f (core with-syntax)))))))) (define ~core.let~exports (quote ((let macro let~1185902126~115 (0) #f (core let)) (letrec macro letrec~1185902126~165 (0) #f (core let)) (letrec* macro letrec*~1185902126~201 (0) #f (core let))))) (define ~core.let~imports (quote (((core with-syntax) 1) ((core primitives) 1 0)))) (define (~core.let~visit) ($ex:register-macro! (quote let~1185902126~115) (lambda (x~1185902126~117) ((lambda () (let ((input~1185902126~120 x~1185902126~117)) (let ((fail~1185902126~121 (lambda () (let ((fail~1185902126~122 (lambda () ($ex:invalid-form input~1185902126~120)))) (if (pair? input~1185902126~120) (let ((temp~1185902126~144 (car input~1185902126~120))) (let ((temp~1185902126~131 (cdr input~1185902126~120))) (if (pair? temp~1185902126~131) (let ((temp~1185902126~143 (car temp~1185902126~131))) (let ((f~1185902126~123 temp~1185902126~143)) (let ((temp~1185902126~132 (cdr temp~1185902126~131))) (if (pair? temp~1185902126~132) (let ((temp~1185902126~136 (car temp~1185902126~132))) ($ex:map-while (lambda (temp~1185902126~136) (if (pair? temp~1185902126~136) (let ((temp~1185902126~142 (car temp~1185902126~136))) (let ((x~1185902126~124 temp~1185902126~142)) (let ((temp~1185902126~139 (cdr temp~1185902126~136))) (if (pair? temp~1185902126~139) (let ((temp~1185902126~141 (car temp~1185902126~139))) (let ((v~1185902126~125 temp~1185902126~141)) (let ((temp~1185902126~140 (cdr temp~1185902126~139))) (if (null? temp~1185902126~140) (list x~1185902126~124 v~1185902126~125) #f)))) #f)))) #f)) temp~1185902126~136 (lambda (cols~1185902126~137 rest~1185902126~138) (if (null? rest~1185902126~138) (apply (lambda (x~1185902126~124 v~1185902126~125) (let ((temp~1185902126~133 (cdr temp~1185902126~132))) (if (pair? temp~1185902126~133) (let ((temp~1185902126~135 (car temp~1185902126~133))) (let ((e1~1185902126~126 temp~1185902126~135)) (let ((temp~1185902126~134 (cdr temp~1185902126~133))) (if (list? temp~1185902126~134) (let ((e2~1185902126~127 temp~1185902126~134)) (if (for-all $ex:identifier? (cons f~1185902126~123 x~1185902126~124)) (cons (cons ($ex:syntax-rename (quote letrec) (quote ()) (quote (env~1185902126~130)) 0 (quote (core let))) (cons (cons (cons f~1185902126~123 (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~130)) 0 (quote (core let))) (cons x~1185902126~124 (cons e1~1185902126~126 e2~1185902126~127))) (quote ()))) (quote ())) (cons f~1185902126~123 (quote ())))) v~1185902126~125) (fail~1185902126~122))) (fail~1185902126~122))))) (fail~1185902126~122)))) (if (null? cols~1185902126~137) (quote (() ())) (apply map list cols~1185902126~137))) (fail~1185902126~122))))) (fail~1185902126~122))))) (fail~1185902126~122)))) (fail~1185902126~122)))))) (if (pair? input~1185902126~120) (let ((temp~1185902126~163 (car input~1185902126~120))) (let ((temp~1185902126~152 (cdr input~1185902126~120))) (if (pair? temp~1185902126~152) (let ((temp~1185902126~156 (car temp~1185902126~152))) ($ex:map-while (lambda (temp~1185902126~156) (if (pair? temp~1185902126~156) (let ((temp~1185902126~162 (car temp~1185902126~156))) (let ((x~1185902126~145 temp~1185902126~162)) (let ((temp~1185902126~159 (cdr temp~1185902126~156))) (if (pair? temp~1185902126~159) (let ((temp~1185902126~161 (car temp~1185902126~159))) (let ((v~1185902126~146 temp~1185902126~161)) (let ((temp~1185902126~160 (cdr temp~1185902126~159))) (if (null? temp~1185902126~160) (list x~1185902126~145 v~1185902126~146) #f)))) #f)))) #f)) temp~1185902126~156 (lambda (cols~1185902126~157 rest~1185902126~158) (if (null? rest~1185902126~158) (apply (lambda (x~1185902126~145 v~1185902126~146) (let ((temp~1185902126~153 (cdr temp~1185902126~152))) (if (pair? temp~1185902126~153) (let ((temp~1185902126~155 (car temp~1185902126~153))) (let ((e1~1185902126~147 temp~1185902126~155)) (let ((temp~1185902126~154 (cdr temp~1185902126~153))) (if (list? temp~1185902126~154) (let ((e2~1185902126~148 temp~1185902126~154)) (if (for-all $ex:identifier? x~1185902126~145) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~151)) 0 (quote (core let))) (cons x~1185902126~145 (cons e1~1185902126~147 e2~1185902126~148))) v~1185902126~146) (fail~1185902126~121))) (fail~1185902126~121))))) (fail~1185902126~121)))) (if (null? cols~1185902126~157) (quote (() ())) (apply map list cols~1185902126~157))) (fail~1185902126~121))))) (fail~1185902126~121)))) (fail~1185902126~121)))))))) ($ex:register-macro! (quote letrec~1185902126~165) (lambda (x~1185902126~167) ((lambda () (let ((input~1185902126~170 x~1185902126~167)) (let ((fail~1185902126~171 (lambda () ($ex:invalid-form input~1185902126~170)))) (if (pair? input~1185902126~170) (let ((temp~1185902126~197 (car input~1185902126~170))) (let ((temp~1185902126~186 (cdr input~1185902126~170))) (if (pair? temp~1185902126~186) (let ((temp~1185902126~190 (car temp~1185902126~186))) ($ex:map-while (lambda (temp~1185902126~190) (if (pair? temp~1185902126~190) (let ((temp~1185902126~196 (car temp~1185902126~190))) (let ((i~1185902126~172 temp~1185902126~196)) (let ((temp~1185902126~193 (cdr temp~1185902126~190))) (if (pair? temp~1185902126~193) (let ((temp~1185902126~195 (car temp~1185902126~193))) (let ((v~1185902126~173 temp~1185902126~195)) (let ((temp~1185902126~194 (cdr temp~1185902126~193))) (if (null? temp~1185902126~194) (list i~1185902126~172 v~1185902126~173) #f)))) #f)))) #f)) temp~1185902126~190 (lambda (cols~1185902126~191 rest~1185902126~192) (if (null? rest~1185902126~192) (apply (lambda (i~1185902126~172 v~1185902126~173) (let ((temp~1185902126~187 (cdr temp~1185902126~186))) (if (pair? temp~1185902126~187) (let ((temp~1185902126~189 (car temp~1185902126~187))) (let ((e1~1185902126~174 temp~1185902126~189)) (let ((temp~1185902126~188 (cdr temp~1185902126~187))) (if (list? temp~1185902126~188) (let ((e2~1185902126~175 temp~1185902126~188)) (let ((input~1185902126~178 ($ex:generate-temporaries i~1185902126~172))) (let ((fail~1185902126~180 (lambda () ($ex:invalid-form input~1185902126~178)))) (if (list? input~1185902126~178) (let ((t~1185902126~181 input~1185902126~178)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~185)) 0 (quote (core let))) (cons (map (lambda (i~1185902126~172) (cons i~1185902126~172 (cons (cons ($ex:syntax-rename (quote unspecified) (quote ()) (quote (env~1185902126~185)) 0 (quote (core let))) (quote ())) (quote ())))) i~1185902126~172) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~185)) 0 (quote (core let))) (cons (map (lambda (t~1185902126~181 v~1185902126~173) (cons t~1185902126~181 (cons v~1185902126~173 (quote ())))) t~1185902126~181 v~1185902126~173) (append (map (lambda (i~1185902126~172 t~1185902126~181) (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185902126~185)) 0 (quote (core let))) (cons i~1185902126~172 (cons t~1185902126~181 (quote ()))))) i~1185902126~172 t~1185902126~181) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~185)) 0 (quote (core let))) (cons (quote ()) (cons e1~1185902126~174 e2~1185902126~175))) (quote ()))))) (quote ())))))) (fail~1185902126~180))))) (fail~1185902126~171))))) (fail~1185902126~171)))) (if (null? cols~1185902126~191) (quote (() ())) (apply map list cols~1185902126~191))) (fail~1185902126~171))))) (fail~1185902126~171)))) (fail~1185902126~171)))))))) ($ex:register-macro! (quote letrec*~1185902126~201) (lambda (x~1185902126~203) ((lambda () (let ((input~1185902126~206 x~1185902126~203)) (let ((fail~1185902126~207 (lambda () ($ex:invalid-form input~1185902126~206)))) (if (pair? input~1185902126~206) (let ((temp~1185902126~225 (car input~1185902126~206))) (let ((temp~1185902126~214 (cdr input~1185902126~206))) (if (pair? temp~1185902126~214) (let ((temp~1185902126~218 (car temp~1185902126~214))) ($ex:map-while (lambda (temp~1185902126~218) (if (pair? temp~1185902126~218) (let ((temp~1185902126~224 (car temp~1185902126~218))) (let ((i~1185902126~208 temp~1185902126~224)) (let ((temp~1185902126~221 (cdr temp~1185902126~218))) (if (pair? temp~1185902126~221) (let ((temp~1185902126~223 (car temp~1185902126~221))) (let ((v~1185902126~209 temp~1185902126~223)) (let ((temp~1185902126~222 (cdr temp~1185902126~221))) (if (null? temp~1185902126~222) (list i~1185902126~208 v~1185902126~209) #f)))) #f)))) #f)) temp~1185902126~218 (lambda (cols~1185902126~219 rest~1185902126~220) (if (null? rest~1185902126~220) (apply (lambda (i~1185902126~208 v~1185902126~209) (let ((temp~1185902126~215 (cdr temp~1185902126~214))) (if (pair? temp~1185902126~215) (let ((temp~1185902126~217 (car temp~1185902126~215))) (let ((e1~1185902126~210 temp~1185902126~217)) (let ((temp~1185902126~216 (cdr temp~1185902126~215))) (if (list? temp~1185902126~216) (let ((e2~1185902126~211 temp~1185902126~216)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~213)) 0 (quote (core let))) (cons (quote ()) (append (map (lambda (i~1185902126~208 v~1185902126~209) (cons ($ex:syntax-rename (quote define) (quote ()) (quote (env~1185902126~213)) 0 (quote (core let))) (cons i~1185902126~208 (cons v~1185902126~209 (quote ()))))) i~1185902126~208 v~1185902126~209) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~213)) 0 (quote (core let))) (cons (quote ()) (cons e1~1185902126~210 e2~1185902126~211))) (quote ())))))) (fail~1185902126~207))))) (fail~1185902126~207)))) (if (null? cols~1185902126~219) (quote (() ())) (apply map list cols~1185902126~219))) (fail~1185902126~207))))) (fail~1185902126~207)))) (fail~1185902126~207)))))))) ($ex:unspecified)) (define unspecified~1185902126~199 ($ex:unspecified)) (define (~core.let~invoke) (set! unspecified~1185902126~199 (lambda () ((lambda () (if #f #f))))) ($ex:unspecified)))

(begin (define ~core.derived~envs (quote ((env~1185902126~517 ((((body) pattern-variable body~1185902126~513 (1) 0 (core derived)))) ((((e) pattern-variable e~1185902126~446 (1) 0 (core derived)) ((c1) pattern-variable c1~1185902126~447 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~448 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~441 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~505 ((((k) pattern-variable k~1185902126~501 (1) 1 (core derived)) ((e1) pattern-variable e1~1185902126~502 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~503 (1) 1 (core derived)))) ((((rest) pattern-variable rest~1185902126~495 (1) 0 (core derived)))) (()) ((((c1) variable c1~1185902126~466 (1) #f (core derived)) ((cmore) variable cmore~1185902126~467 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~457 (1) #t (core derived)))) ((((e) pattern-variable e~1185902126~446 (1) 0 (core derived)) ((c1) pattern-variable c1~1185902126~447 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~448 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~441 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~486 ((((e1) pattern-variable e1~1185902126~483 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~484 (1) 1 (core derived)))) (()) ((((c1) variable c1~1185902126~466 (1) #f (core derived)) ((cmore) variable cmore~1185902126~467 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~457 (1) #t (core derived)))) ((((e) pattern-variable e~1185902126~446 (1) 0 (core derived)) ((c1) pattern-variable c1~1185902126~447 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~448 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~441 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~478 ((((k) pattern-variable k~1185902126~474 (1) 1 (core derived)) ((e1) pattern-variable e1~1185902126~475 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~476 (1) 1 (core derived)))) (()) ((((c1) variable c1~1185902126~466 (1) #f (core derived)) ((cmore) variable cmore~1185902126~467 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~457 (1) #t (core derived)))) ((((e) pattern-variable e~1185902126~446 (1) 0 (core derived)) ((c1) pattern-variable c1~1185902126~447 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~448 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~441 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~427 ((((e1) pattern-variable e1~1185902126~424 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~425 (1) 1 (core derived)))) (()) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~421 ((((e0) pattern-variable e0~1185902126~419 (1) 0 (core derived)))) (()) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~412 ((((e0) pattern-variable e0~1185902126~409 (1) 0 (core derived)) ((e1) pattern-variable e1~1185902126~410 (1) 0 (core derived)))) (()) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~404 ((((e0) pattern-variable e0~1185902126~400 (1) 0 (core derived)) ((e1) pattern-variable e1~1185902126~401 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~402 (1) 1 (core derived)))) (()) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~387 ((((e0) pattern-variable e0~1185902126~385 (1) 0 (core derived)))) ((((rest) pattern-variable rest~1185902126~356 (1) 0 (core derived)))) ((((c2) pattern-variable c2~1185902126~348 (1) 0 (core derived)) ((c3) pattern-variable c3~1185902126~349 (1) 1 (core derived)))) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~378 ((((e0) pattern-variable e0~1185902126~375 (1) 0 (core derived)) ((e1) pattern-variable e1~1185902126~376 (1) 0 (core derived)))) ((((rest) pattern-variable rest~1185902126~356 (1) 0 (core derived)))) ((((c2) pattern-variable c2~1185902126~348 (1) 0 (core derived)) ((c3) pattern-variable c3~1185902126~349 (1) 1 (core derived)))) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~370 ((((e0) pattern-variable e0~1185902126~366 (1) 0 (core derived)) ((e1) pattern-variable e1~1185902126~367 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~368 (1) 1 (core derived)))) ((((rest) pattern-variable rest~1185902126~356 (1) 0 (core derived)))) ((((c2) pattern-variable c2~1185902126~348 (1) 0 (core derived)) ((c3) pattern-variable c3~1185902126~349 (1) 1 (core derived)))) (()) ((((c1) variable c1~1185902126~341 (1) #f (core derived)) ((c2*) variable c2*~1185902126~342 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~332 (1) #t (core derived)))) ((((c1) pattern-variable c1~1185902126~325 (1) 0 (core derived)) ((c2) pattern-variable c2~1185902126~326 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~320 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~310 ((((e1) pattern-variable e1~1185902126~307 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~308 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~234 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~287 ((((x) pattern-variable x~1185902126~284 (1) 0 (core derived)) ((v) pattern-variable v~1185902126~285 (1) 0 (core derived)))) (()) ((((bindings) variable bindings~1185902126~259 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~250 (1) #t (core derived)))) ((((x) pattern-variable x~1185902126~240 (1) 1 (core derived)) ((v) pattern-variable v~1185902126~241 (1) 1 (core derived)) ((e1) pattern-variable e1~1185902126~242 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~243 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~234 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~277 ((((body) pattern-variable body~1185902126~273 (1) 0 (core derived)))) ((((x) pattern-variable x~1185902126~265 (1) 0 (core derived)) ((v) pattern-variable v~1185902126~266 (1) 0 (core derived)) ((rest) pattern-variable rest~1185902126~267 (1) 0 (core derived)))) (()) ((((bindings) variable bindings~1185902126~259 (1) #f (core derived)))) (()) ((((f) variable f~1185902126~250 (1) #t (core derived)))) ((((x) pattern-variable x~1185902126~240 (1) 1 (core derived)) ((v) pattern-variable v~1185902126~241 (1) 1 (core derived)) ((e1) pattern-variable e1~1185902126~242 (1) 0 (core derived)) ((e2) pattern-variable e2~1185902126~243 (1) 1 (core derived)))) (()) ((((x) variable x~1185902126~234 (1) #f (core derived)))) . env~1185902126~230) (env~1185902126~230 ((((else) macro else~1185902126~530 (0) #f (core derived)) ((=>) macro =>~1185902126~525 (0) #f (core derived)) ((case) macro case~1185902126~439 (0) #f (core derived)) ((cond) macro cond~1185902126~318 (0) #f (core derived)) ((let*) macro let*~1185902126~232 (0) #f (core derived)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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*~1185902126~201 (1 0) #f (core let)) ((letrec) macro letrec~1185902126~165 (1 0) #f (core let)) ((let) macro let~1185902126~115 (1 0) #f (core let)) ((with-syntax) macro with-syntax~1185902126~9 (1) #f (core with-syntax)) ((syntax-rules) macro syntax-rules~1185902126~67 (1) #f (core syntax-rules)))))))) (define ~core.derived~exports (quote ((let* macro let*~1185902126~232 (0) #f (core derived)) (cond macro cond~1185902126~318 (0) #f (core derived)) (case macro case~1185902126~439 (0) #f (core derived)) (else macro else~1185902126~530 (0) #f (core derived)) (=> macro =>~1185902126~525 (0) #f (core derived))))) (define ~core.derived~imports (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)))) (define (~core.derived~visit) ($ex:register-macro! (quote let*~1185902126~232) (lambda (x~1185902126~234) ((lambda () (let ((input~1185902126~237 x~1185902126~234)) (let ((fail~1185902126~238 (lambda () (let ((fail~1185902126~239 (lambda () ($ex:invalid-form input~1185902126~237)))) (if (pair? input~1185902126~237) (let ((temp~1185902126~306 (car input~1185902126~237))) (let ((temp~1185902126~295 (cdr input~1185902126~237))) (if (pair? temp~1185902126~295) (let ((temp~1185902126~299 (car temp~1185902126~295))) ($ex:map-while (lambda (temp~1185902126~299) (if (pair? temp~1185902126~299) (let ((temp~1185902126~305 (car temp~1185902126~299))) (let ((x~1185902126~240 temp~1185902126~305)) (let ((temp~1185902126~302 (cdr temp~1185902126~299))) (if (pair? temp~1185902126~302) (let ((temp~1185902126~304 (car temp~1185902126~302))) (let ((v~1185902126~241 temp~1185902126~304)) (let ((temp~1185902126~303 (cdr temp~1185902126~302))) (if (null? temp~1185902126~303) (list x~1185902126~240 v~1185902126~241) #f)))) #f)))) #f)) temp~1185902126~299 (lambda (cols~1185902126~300 rest~1185902126~301) (if (null? rest~1185902126~301) (apply (lambda (x~1185902126~240 v~1185902126~241) (let ((temp~1185902126~296 (cdr temp~1185902126~295))) (if (pair? temp~1185902126~296) (let ((temp~1185902126~298 (car temp~1185902126~296))) (let ((e1~1185902126~242 temp~1185902126~298)) (let ((temp~1185902126~297 (cdr temp~1185902126~296))) (if (list? temp~1185902126~297) (let ((e2~1185902126~243 temp~1185902126~297)) (if (for-all $ex:identifier? x~1185902126~240) (((lambda (f~1185902126~250) ((lambda () ((lambda (gen~1185902126~247~1185902126~253) ((lambda () (set! f~1185902126~250 gen~1185902126~247~1185902126~253) ((lambda () ((lambda () f~1185902126~250))))))) (lambda (bindings~1185902126~259) ((lambda () (let ((input~1185902126~262 bindings~1185902126~259)) (let ((fail~1185902126~263 (lambda () (let ((fail~1185902126~264 (lambda () ($ex:invalid-form input~1185902126~262)))) (if (pair? input~1185902126~262) (let ((temp~1185902126~279 (car input~1185902126~262))) (if (pair? temp~1185902126~279) (let ((temp~1185902126~283 (car temp~1185902126~279))) (let ((x~1185902126~265 temp~1185902126~283)) (let ((temp~1185902126~280 (cdr temp~1185902126~279))) (if (pair? temp~1185902126~280) (let ((temp~1185902126~282 (car temp~1185902126~280))) (let ((v~1185902126~266 temp~1185902126~282)) (let ((temp~1185902126~281 (cdr temp~1185902126~280))) (if (null? temp~1185902126~281) (let ((temp~1185902126~278 (cdr input~1185902126~262))) (let ((rest~1185902126~267 temp~1185902126~278)) (let ((input~1185902126~270 (f~1185902126~250 rest~1185902126~267))) (let ((fail~1185902126~272 (lambda () ($ex:invalid-form input~1185902126~270)))) (let ((body~1185902126~273 input~1185902126~270)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~277)) 0 (quote (core derived))) (cons (cons (cons x~1185902126~265 (cons v~1185902126~266 (quote ()))) (quote ())) (cons body~1185902126~273 (quote ())))))))))) (fail~1185902126~264))))) (fail~1185902126~264))))) (fail~1185902126~264))) (fail~1185902126~264)))))) (if (pair? input~1185902126~262) (let ((temp~1185902126~289 (car input~1185902126~262))) (if (pair? temp~1185902126~289) (let ((temp~1185902126~293 (car temp~1185902126~289))) (let ((x~1185902126~284 temp~1185902126~293)) (let ((temp~1185902126~290 (cdr temp~1185902126~289))) (if (pair? temp~1185902126~290) (let ((temp~1185902126~292 (car temp~1185902126~290))) (let ((v~1185902126~285 temp~1185902126~292)) (let ((temp~1185902126~291 (cdr temp~1185902126~290))) (if (null? temp~1185902126~291) (let ((temp~1185902126~288 (cdr input~1185902126~262))) (if (null? temp~1185902126~288) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~287)) 0 (quote (core derived))) (cons (cons (cons x~1185902126~284 (cons v~1185902126~285 (quote ()))) (quote ())) (cons e1~1185902126~242 e2~1185902126~243))) (fail~1185902126~263))) (fail~1185902126~263))))) (fail~1185902126~263))))) (fail~1185902126~263))) (fail~1185902126~263))))))))))) (unspecified~1185902126~199)) (map (lambda (x~1185902126~240 v~1185902126~241) (cons x~1185902126~240 (cons v~1185902126~241 (quote ())))) x~1185902126~240 v~1185902126~241)) (fail~1185902126~239))) (fail~1185902126~239))))) (fail~1185902126~239)))) (if (null? cols~1185902126~300) (quote (() ())) (apply map list cols~1185902126~300))) (fail~1185902126~239))))) (fail~1185902126~239)))) (fail~1185902126~239)))))) (if (pair? input~1185902126~237) (let ((temp~1185902126~316 (car input~1185902126~237))) (let ((temp~1185902126~311 (cdr input~1185902126~237))) (if (pair? temp~1185902126~311) (let ((temp~1185902126~315 (car temp~1185902126~311))) (if (null? temp~1185902126~315) (let ((temp~1185902126~312 (cdr temp~1185902126~311))) (if (pair? temp~1185902126~312) (let ((temp~1185902126~314 (car temp~1185902126~312))) (let ((e1~1185902126~307 temp~1185902126~314)) (let ((temp~1185902126~313 (cdr temp~1185902126~312))) (if (list? temp~1185902126~313) (let ((e2~1185902126~308 temp~1185902126~313)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~310)) 0 (quote (core derived))) (cons (quote ()) (cons e1~1185902126~307 e2~1185902126~308)))) (fail~1185902126~238))))) (fail~1185902126~238))) (fail~1185902126~238))) (fail~1185902126~238)))) (fail~1185902126~238)))))))) ($ex:register-macro! (quote cond~1185902126~318) (lambda (x~1185902126~320) ((lambda () (let ((input~1185902126~323 x~1185902126~320)) (let ((fail~1185902126~324 (lambda () ($ex:invalid-form input~1185902126~323)))) (if (pair? input~1185902126~323) (let ((temp~1185902126~437 (car input~1185902126~323))) (let ((temp~1185902126~434 (cdr input~1185902126~323))) (if (pair? temp~1185902126~434) (let ((temp~1185902126~436 (car temp~1185902126~434))) (let ((c1~1185902126~325 temp~1185902126~436)) (let ((temp~1185902126~435 (cdr temp~1185902126~434))) (if (list? temp~1185902126~435) (let ((c2~1185902126~326 temp~1185902126~435)) (((lambda (f~1185902126~332) ((lambda () ((lambda (gen~1185902126~329~1185902126~335) ((lambda () (set! f~1185902126~332 gen~1185902126~329~1185902126~335) ((lambda () ((lambda () f~1185902126~332))))))) (lambda (c1~1185902126~341 c2*~1185902126~342) ((lambda () (let ((input~1185902126~345 c2*~1185902126~342)) (let ((fail~1185902126~346 (lambda () (let ((fail~1185902126~347 (lambda () ($ex:invalid-form input~1185902126~345)))) (if (pair? input~1185902126~345) (let ((temp~1185902126~391 (car input~1185902126~345))) (let ((c2~1185902126~348 temp~1185902126~391)) (let ((temp~1185902126~390 (cdr input~1185902126~345))) (if (list? temp~1185902126~390) (let ((c3~1185902126~349 temp~1185902126~390)) (let ((input~1185902126~352 (f~1185902126~332 c2~1185902126~348 c3~1185902126~349))) (let ((fail~1185902126~355 (lambda () ($ex:invalid-form input~1185902126~352)))) (let ((rest~1185902126~356 input~1185902126~352)) (begin (let ((input~1185902126~360 c1~1185902126~341)) (let ((fail~1185902126~361 (lambda () (let ((fail~1185902126~362 (lambda () (let ((fail~1185902126~363 (lambda () (let ((fail~1185902126~364 (lambda () ($ex:invalid-form input~1185902126~360)))) ($ex:syntax-violation (quote cond) "Invalid expression" x~1185902126~320))))) (if (pair? input~1185902126~360) (let ((temp~1185902126~374 (car input~1185902126~360))) (let ((e0~1185902126~366 temp~1185902126~374)) (let ((temp~1185902126~371 (cdr input~1185902126~360))) (if (pair? temp~1185902126~371) (let ((temp~1185902126~373 (car temp~1185902126~371))) (let ((e1~1185902126~367 temp~1185902126~373)) (let ((temp~1185902126~372 (cdr temp~1185902126~371))) (if (list? temp~1185902126~372) (let ((e2~1185902126~368 temp~1185902126~372)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~370)) 0 (quote (core derived))) (cons e0~1185902126~366 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~370)) 0 (quote (core derived))) (cons e1~1185902126~367 e2~1185902126~368)) (cons rest~1185902126~356 (quote ())))))) (fail~1185902126~363))))) (fail~1185902126~363))))) (fail~1185902126~363)))))) (if (pair? input~1185902126~360) (let ((temp~1185902126~384 (car input~1185902126~360))) (let ((e0~1185902126~375 temp~1185902126~384)) (let ((temp~1185902126~379 (cdr input~1185902126~360))) (if (pair? temp~1185902126~379) (let ((temp~1185902126~383 (car temp~1185902126~379))) (if (and ($ex:identifier? temp~1185902126~383) ($ex:free-identifier=? temp~1185902126~383 ($ex:syntax-rename (quote =>) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))))) (let ((temp~1185902126~380 (cdr temp~1185902126~379))) (if (pair? temp~1185902126~380) (let ((temp~1185902126~382 (car temp~1185902126~380))) (let ((e1~1185902126~376 temp~1185902126~382)) (let ((temp~1185902126~381 (cdr temp~1185902126~380))) (if (null? temp~1185902126~381) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))) (cons e0~1185902126~375 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))) (cons (cons e1~1185902126~376 (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~378)) 0 (quote (core derived))) (quote ()))) (cons rest~1185902126~356 (quote ()))))) (quote ())))) (fail~1185902126~362))))) (fail~1185902126~362))) (fail~1185902126~362))) (fail~1185902126~362))))) (fail~1185902126~362)))))) (if (pair? input~1185902126~360) (let ((temp~1185902126~389 (car input~1185902126~360))) (let ((e0~1185902126~385 temp~1185902126~389)) (let ((temp~1185902126~388 (cdr input~1185902126~360))) (if (null? temp~1185902126~388) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~387)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~387)) 0 (quote (core derived))) (cons e0~1185902126~385 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~387)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~387)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~387)) 0 (quote (core derived))) (cons rest~1185902126~356 (quote ()))))) (quote ())))) (fail~1185902126~361))))) (fail~1185902126~361))))))))) (fail~1185902126~347))))) (fail~1185902126~347)))))) (if (null? input~1185902126~345) (let ((input~1185902126~393 c1~1185902126~341)) (let ((fail~1185902126~394 (lambda () (let ((fail~1185902126~395 (lambda () (let ((fail~1185902126~396 (lambda () (let ((fail~1185902126~397 (lambda () (let ((fail~1185902126~398 (lambda () ($ex:invalid-form input~1185902126~393)))) ($ex:syntax-violation (quote cond) "Invalid expression" x~1185902126~320))))) (if (pair? input~1185902126~393) (let ((temp~1185902126~408 (car input~1185902126~393))) (let ((e0~1185902126~400 temp~1185902126~408)) (let ((temp~1185902126~405 (cdr input~1185902126~393))) (if (pair? temp~1185902126~405) (let ((temp~1185902126~407 (car temp~1185902126~405))) (let ((e1~1185902126~401 temp~1185902126~407)) (let ((temp~1185902126~406 (cdr temp~1185902126~405))) (if (list? temp~1185902126~406) (let ((e2~1185902126~402 temp~1185902126~406)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~404)) 0 (quote (core derived))) (cons e0~1185902126~400 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~404)) 0 (quote (core derived))) (cons e1~1185902126~401 e2~1185902126~402)) (quote ()))))) (fail~1185902126~397))))) (fail~1185902126~397))))) (fail~1185902126~397)))))) (if (pair? input~1185902126~393) (let ((temp~1185902126~418 (car input~1185902126~393))) (let ((e0~1185902126~409 temp~1185902126~418)) (let ((temp~1185902126~413 (cdr input~1185902126~393))) (if (pair? temp~1185902126~413) (let ((temp~1185902126~417 (car temp~1185902126~413))) (if (and ($ex:identifier? temp~1185902126~417) ($ex:free-identifier=? temp~1185902126~417 ($ex:syntax-rename (quote =>) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))))) (let ((temp~1185902126~414 (cdr temp~1185902126~413))) (if (pair? temp~1185902126~414) (let ((temp~1185902126~416 (car temp~1185902126~414))) (let ((e1~1185902126~410 temp~1185902126~416)) (let ((temp~1185902126~415 (cdr temp~1185902126~414))) (if (null? temp~1185902126~415) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))) (cons e0~1185902126~409 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))) (cons (cons e1~1185902126~410 (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~412)) 0 (quote (core derived))) (quote ()))) (quote ())))) (quote ())))) (fail~1185902126~396))))) (fail~1185902126~396))) (fail~1185902126~396))) (fail~1185902126~396))))) (fail~1185902126~396)))))) (if (pair? input~1185902126~393) (let ((temp~1185902126~423 (car input~1185902126~393))) (let ((e0~1185902126~419 temp~1185902126~423)) (let ((temp~1185902126~422 (cdr input~1185902126~393))) (if (null? temp~1185902126~422) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~421)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~421)) 0 (quote (core derived))) (cons e0~1185902126~419 (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~421)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~421)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~421)) 0 (quote (core derived))) (quote ())))) (quote ())))) (fail~1185902126~395))))) (fail~1185902126~395)))))) (if (pair? input~1185902126~393) (let ((temp~1185902126~431 (car input~1185902126~393))) (if (and ($ex:identifier? temp~1185902126~431) ($ex:free-identifier=? temp~1185902126~431 ($ex:syntax-rename (quote else) (quote ()) (quote (env~1185902126~427)) 0 (quote (core derived))))) (let ((temp~1185902126~428 (cdr input~1185902126~393))) (if (pair? temp~1185902126~428) (let ((temp~1185902126~430 (car temp~1185902126~428))) (let ((e1~1185902126~424 temp~1185902126~430)) (let ((temp~1185902126~429 (cdr temp~1185902126~428))) (if (list? temp~1185902126~429) (let ((e2~1185902126~425 temp~1185902126~429)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~427)) 0 (quote (core derived))) (cons e1~1185902126~424 e2~1185902126~425))) (fail~1185902126~394))))) (fail~1185902126~394))) (fail~1185902126~394))) (fail~1185902126~394)))) (fail~1185902126~346))))))))))) (unspecified~1185902126~199)) c1~1185902126~325 c2~1185902126~326)) (fail~1185902126~324))))) (fail~1185902126~324)))) (fail~1185902126~324)))))))) ($ex:register-macro! (quote case~1185902126~439) (lambda (x~1185902126~441) ((lambda () (let ((input~1185902126~444 x~1185902126~441)) (let ((fail~1185902126~445 (lambda () ($ex:invalid-form input~1185902126~444)))) (if (pair? input~1185902126~444) (let ((temp~1185902126~523 (car input~1185902126~444))) (let ((temp~1185902126~518 (cdr input~1185902126~444))) (if (pair? temp~1185902126~518) (let ((temp~1185902126~522 (car temp~1185902126~518))) (let ((e~1185902126~446 temp~1185902126~522)) (let ((temp~1185902126~519 (cdr temp~1185902126~518))) (if (pair? temp~1185902126~519) (let ((temp~1185902126~521 (car temp~1185902126~519))) (let ((c1~1185902126~447 temp~1185902126~521)) (let ((temp~1185902126~520 (cdr temp~1185902126~519))) (if (list? temp~1185902126~520) (let ((c2~1185902126~448 temp~1185902126~520)) (let ((input~1185902126~451 (((lambda (f~1185902126~457) ((lambda () ((lambda (gen~1185902126~454~1185902126~460) ((lambda () (set! f~1185902126~457 gen~1185902126~454~1185902126~460) ((lambda () ((lambda () f~1185902126~457))))))) (lambda (c1~1185902126~466 cmore~1185902126~467) ((lambda () (if (null? cmore~1185902126~467) (let ((input~1185902126~471 c1~1185902126~466)) (let ((fail~1185902126~472 (lambda () (let ((fail~1185902126~473 (lambda () ($ex:invalid-form input~1185902126~471)))) (if (pair? input~1185902126~471) (let ((temp~1185902126~482 (car input~1185902126~471))) (if (list? temp~1185902126~482) (let ((k~1185902126~474 temp~1185902126~482)) (let ((temp~1185902126~479 (cdr input~1185902126~471))) (if (pair? temp~1185902126~479) (let ((temp~1185902126~481 (car temp~1185902126~479))) (let ((e1~1185902126~475 temp~1185902126~481)) (let ((temp~1185902126~480 (cdr temp~1185902126~479))) (if (list? temp~1185902126~480) (let ((e2~1185902126~476 temp~1185902126~480)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~478)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote memv) (quote ()) (quote (env~1185902126~478)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~478)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185902126~478)) 0 (quote (core derived))) (cons k~1185902126~474 (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~478)) 0 (quote (core derived))) (cons e1~1185902126~475 e2~1185902126~476)) (quote ()))))) (fail~1185902126~473))))) (fail~1185902126~473)))) (fail~1185902126~473))) (fail~1185902126~473)))))) (if (pair? input~1185902126~471) (let ((temp~1185902126~490 (car input~1185902126~471))) (if (and ($ex:identifier? temp~1185902126~490) ($ex:free-identifier=? temp~1185902126~490 ($ex:syntax-rename (quote else) (quote ()) (quote (env~1185902126~486)) 0 (quote (core derived))))) (let ((temp~1185902126~487 (cdr input~1185902126~471))) (if (pair? temp~1185902126~487) (let ((temp~1185902126~489 (car temp~1185902126~487))) (let ((e1~1185902126~483 temp~1185902126~489)) (let ((temp~1185902126~488 (cdr temp~1185902126~487))) (if (list? temp~1185902126~488) (let ((e2~1185902126~484 temp~1185902126~488)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~486)) 0 (quote (core derived))) (cons e1~1185902126~483 e2~1185902126~484))) (fail~1185902126~472))))) (fail~1185902126~472))) (fail~1185902126~472))) (fail~1185902126~472)))) (let ((input~1185902126~493 (f~1185902126~457 (car cmore~1185902126~467) (cdr cmore~1185902126~467)))) (let ((fail~1185902126~494 (lambda () ($ex:invalid-form input~1185902126~493)))) (let ((rest~1185902126~495 input~1185902126~493)) (begin (let ((input~1185902126~499 c1~1185902126~466)) (let ((fail~1185902126~500 (lambda () ($ex:invalid-form input~1185902126~499)))) (if (pair? input~1185902126~499) (let ((temp~1185902126~509 (car input~1185902126~499))) (if (list? temp~1185902126~509) (let ((k~1185902126~501 temp~1185902126~509)) (let ((temp~1185902126~506 (cdr input~1185902126~499))) (if (pair? temp~1185902126~506) (let ((temp~1185902126~508 (car temp~1185902126~506))) (let ((e1~1185902126~502 temp~1185902126~508)) (let ((temp~1185902126~507 (cdr temp~1185902126~506))) (if (list? temp~1185902126~507) (let ((e2~1185902126~503 temp~1185902126~507)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~505)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote memv) (quote ()) (quote (env~1185902126~505)) 0 (quote (core derived))) (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~505)) 0 (quote (core derived))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185902126~505)) 0 (quote (core derived))) (cons k~1185902126~501 (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~505)) 0 (quote (core derived))) (cons e1~1185902126~502 e2~1185902126~503)) (cons rest~1185902126~495 (quote ())))))) (fail~1185902126~500))))) (fail~1185902126~500)))) (fail~1185902126~500))) (fail~1185902126~500)))))))))))))))) (unspecified~1185902126~199)) c1~1185902126~447 c2~1185902126~448))) (let ((fail~1185902126~512 (lambda () ($ex:invalid-form input~1185902126~451)))) (let ((body~1185902126~513 input~1185902126~451)) (begin (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~517)) 0 (quote (core derived))) (cons (cons (cons ($ex:syntax-rename (quote t) (quote ()) (quote (env~1185902126~517)) 0 (quote (core derived))) (cons e~1185902126~446 (quote ()))) (quote ())) (cons body~1185902126~513 (quote ()))))))))) (fail~1185902126~445))))) (fail~1185902126~445))))) (fail~1185902126~445)))) (fail~1185902126~445)))))))) ($ex:register-macro! (quote =>~1185902126~525) (lambda (x~1185902126~527) ((lambda () ($ex:syntax-violation (quote =>) "Invalid expression" x~1185902126~527))))) ($ex:register-macro! (quote else~1185902126~530) (lambda (x~1185902126~532) ((lambda () ($ex:syntax-violation (quote else) "Invalid expression" x~1185902126~532))))) ($ex:unspecified)) (define (~core.derived~invoke) ($ex:unspecified)))

(begin (define ~core.identifier-syntax~envs (quote ((env~1185902126~578 ((((e) pattern-variable e~1185902126~576 (1) 0 (core identifier-syntax)))) (()) ((((x) variable x~1185902126~539 (1) #f (core identifier-syntax)))) . env~1185902126~535) (env~1185902126~555 ((((id) pattern-variable id~1185902126~545 (1) 0 (core identifier-syntax)) ((exp1) pattern-variable exp1~1185902126~546 (1) 0 (core identifier-syntax)) ((var) pattern-variable var~1185902126~547 (1) 0 (core identifier-syntax)) ((val) pattern-variable val~1185902126~548 (1) 0 (core identifier-syntax)) ((exp2) pattern-variable exp2~1185902126~549 (1) 0 (core identifier-syntax)))) (()) ((((x) variable x~1185902126~539 (1) #f (core identifier-syntax)))) . env~1185902126~535) (env~1185902126~535 ((((identifier-syntax) macro identifier-syntax~1185902126~537 (0) #f (core identifier-syntax)) ((eval) variable $ex:eval (1 0 -1) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0 -1) #f ()) ((environment) variable $ex:environment (1 0 -1) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0 -1) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0 -1) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0 -1) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0 -1) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0 -1) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0 -1) #f ()) ((identifier?) variable $ex:identifier? (1 0 -1) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0 -1) #f ()) ((modulo) variable modulo (1 0 -1) #f ()) ((remainder) variable remainder (1 0 -1) #f ()) ((quotient) variable quotient (1 0 -1) #f ()) ((inexact->exact) variable inexact->exact (1 0 -1) #f ()) ((exact->inexact) variable exact->inexact (1 0 -1) #f ()) ((set-cdr!) variable set-cdr! (1 0 -1) #f ()) ((set-car!) variable set-car! (1 0 -1) #f ()) ((string-set!) variable string-set! (1 0 -1) #f ()) ((string-fill!) variable string-fill! (1 0 -1) #f ()) ((string-ci>=?) variable string-ci>=? (1 0 -1) #f ()) ((string-ci<=?) variable string-ci<=? (1 0 -1) #f ()) ((string-ci>?) variable string-ci>? (1 0 -1) #f ()) ((string-ci<?) variable string-ci<? (1 0 -1) #f ()) ((string-ci=?) variable string-ci=? (1 0 -1) #f ()) ((char-lower-case?) variable char-lower-case? (1 0 -1) #f ()) ((char-upper-case?) variable char-upper-case? (1 0 -1) #f ()) ((char-whitespace?) variable char-whitespace? (1 0 -1) #f ()) ((char-numeric?) variable char-numeric? (1 0 -1) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0 -1) #f ()) ((char-ci>=?) variable char-ci>=? (1 0 -1) #f ()) ((char-ci<=?) variable char-ci<=? (1 0 -1) #f ()) ((char-ci>?) variable char-ci>? (1 0 -1) #f ()) ((char-ci<?) variable char-ci<? (1 0 -1) #f ()) ((char-ci=?) variable char-ci=? (1 0 -1) #f ()) ((char-downcase) variable char-downcase (1 0 -1) #f ()) ((char-upcase) variable char-upcase (1 0 -1) #f ()) ((write-char) variable write-char (1 0 -1) #f ()) ((write) variable write (1 0 -1) #f ()) ((with-output-to-file) variable with-output-to-file (1 0 -1) #f ()) ((with-input-from-file) variable with-input-from-file (1 0 -1) #f ()) ((read-char) variable read-char (1 0 -1) #f ()) ((read) variable read (1 0 -1) #f ()) ((peek-char) variable peek-char (1 0 -1) #f ()) ((open-output-file) variable open-output-file (1 0 -1) #f ()) ((open-input-file) variable open-input-file (1 0 -1) #f ()) ((newline) variable newline (1 0 -1) #f ()) ((eof-object?) variable eof-object? (1 0 -1) #f ()) ((display) variable display (1 0 -1) #f ()) ((current-output-port) variable current-output-port (1 0 -1) #f ()) ((current-input-port) variable current-input-port (1 0 -1) #f ()) ((close-output-port) variable close-output-port (1 0 -1) #f ()) ((close-input-port) variable close-input-port (1 0 -1) #f ()) ((call-with-output-file) variable call-with-output-file (1 0 -1) #f ()) ((call-with-input-file) variable call-with-input-file (1 0 -1) #f ()) ((assq) variable assq (1 0 -1) #f ()) ((assv) variable assv (1 0 -1) #f ()) ((assoc) variable assoc (1 0 -1) #f ()) ((assp) variable assp (1 0 -1) #f ()) ((memq) variable memq (1 0 -1) #f ()) ((memv) variable memv (1 0 -1) #f ()) ((member) variable member (1 0 -1) #f ()) ((memp) variable memp (1 0 -1) #f ()) ((remv) variable remv (1 0 -1) #f ()) ((remq) variable remq (1 0 -1) #f ()) ((remove) variable remove (1 0 -1) #f ()) ((remp) variable remp (1 0 -1) #f ()) ((fold-right) variable fold-right (1 0 -1) #f ()) ((fold-left) variable fold-left (1 0 -1) #f ()) ((partition) variable partition (1 0 -1) #f ()) ((filter) variable filter (1 0 -1) #f ()) ((exists) variable exists (1 0 -1) #f ()) ((for-all) variable for-all (1 0 -1) #f ()) ((find) variable find (1 0 -1) #f ()) ((call/cc) variable call/cc (1 0 -1) #f ()) ((assertion-violation) variable assertion-violation (1 0 -1) #f ()) ((error) variable error (1 0 -1) #f ()) ((vector-for-each) variable vector-for-each (1 0 -1) #f ()) ((vector-map) variable vector-map (1 0 -1) #f ()) ((string-for-each) variable string-for-each (1 0 -1) #f ()) ((symbol=?) variable symbol=? (1 0 -1) #f ()) ((boolean=?) variable boolean=? (1 0 -1) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0 -1) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0 -1) #f ()) ((mod0) variable mod0 (1 0 -1) #f ()) ((div0) variable div0 (1 0 -1) #f ()) ((div-and-mod) variable div-and-mod (1 0 -1) #f ()) ((mod) variable mod (1 0 -1) #f ()) ((div) variable div (1 0 -1) #f ()) ((nan?) variable nan? (1 0 -1) #f ()) ((infinite?) variable infinite? (1 0 -1) #f ()) ((finite?) variable finite? (1 0 -1) #f ()) ((inexact) variable inexact (1 0 -1) #f ()) ((exact) variable exact (1 0 -1) #f ()) ((integer-valued?) variable integer-valued? (1 0 -1) #f ()) ((rational-valued?) variable rational-valued? (1 0 -1) #f ()) ((real-valued?) variable real-valued? (1 0 -1) #f ()) ((zero?) variable zero? (1 0 -1) #f ()) ((vector?) variable vector? (1 0 -1) #f ()) ((vector-set!) variable vector-set! (1 0 -1) #f ()) ((vector-ref) variable vector-ref (1 0 -1) #f ()) ((vector-length) variable vector-length (1 0 -1) #f ()) ((vector-fill!) variable vector-fill! (1 0 -1) #f ()) ((vector->list) variable vector->list (1 0 -1) #f ()) ((vector) variable vector (1 0 -1) #f ()) ((values) variable values (1 0 -1) #f ()) ((truncate) variable truncate (1 0 -1) #f ()) ((tan) variable tan (1 0 -1) #f ()) ((symbol?) variable symbol? (1 0 -1) #f ()) ((symbol->string) variable symbol->string (1 0 -1) #f ()) ((substring) variable substring (1 0 -1) #f ()) ((string?) variable string? (1 0 -1) #f ()) ((string>?) variable string>? (1 0 -1) #f ()) ((string>=?) variable string>=? (1 0 -1) #f ()) ((string=?) variable string=? (1 0 -1) #f ()) ((string<?) variable string<? (1 0 -1) #f ()) ((string<=?) variable string<=? (1 0 -1) #f ()) ((string-ref) variable string-ref (1 0 -1) #f ()) ((string-length) variable string-length (1 0 -1) #f ()) ((string-copy) variable string-copy (1 0 -1) #f ()) ((string-append) variable string-append (1 0 -1) #f ()) ((string->symbol) variable string->symbol (1 0 -1) #f ()) ((string->number) variable string->number (1 0 -1) #f ()) ((string->list) variable string->list (1 0 -1) #f ()) ((string) variable string (1 0 -1) #f ()) ((sqrt) variable sqrt (1 0 -1) #f ()) ((sin) variable sin (1 0 -1) #f ()) ((round) variable round (1 0 -1) #f ()) ((reverse) variable reverse (1 0 -1) #f ()) ((real?) variable real? (1 0 -1) #f ()) ((real-part) variable real-part (1 0 -1) #f ()) ((rationalize) variable rationalize (1 0 -1) #f ()) ((rational?) variable rational? (1 0 -1) #f ()) ((procedure?) variable procedure? (1 0 -1) #f ()) ((positive?) variable positive? (1 0 -1) #f ()) ((pair?) variable pair? (1 0 -1) #f ()) ((odd?) variable odd? (1 0 -1) #f ()) ((numerator) variable numerator (1 0 -1) #f ()) ((number?) variable number? (1 0 -1) #f ()) ((number->string) variable number->string (1 0 -1) #f ()) ((null?) variable null? (1 0 -1) #f ()) ((not) variable not (1 0 -1) #f ()) ((negative?) variable negative? (1 0 -1) #f ()) ((min) variable min (1 0 -1) #f ()) ((max) variable max (1 0 -1) #f ()) ((map) variable map (1 0 -1) #f ()) ((make-vector) variable make-vector (1 0 -1) #f ()) ((make-string) variable make-string (1 0 -1) #f ()) ((make-rectangular) variable make-rectangular (1 0 -1) #f ()) ((make-polar) variable make-polar (1 0 -1) #f ()) ((magnitude) variable magnitude (1 0 -1) #f ()) ((log) variable log (1 0 -1) #f ()) ((list?) variable list? (1 0 -1) #f ()) ((list-tail) variable list-tail (1 0 -1) #f ()) ((list-ref) variable list-ref (1 0 -1) #f ()) ((list->vector) variable list->vector (1 0 -1) #f ()) ((list->string) variable list->string (1 0 -1) #f ()) ((list) variable list (1 0 -1) #f ()) ((length) variable length (1 0 -1) #f ()) ((lcm) variable lcm (1 0 -1) #f ()) ((integer?) variable integer? (1 0 -1) #f ()) ((integer->char) variable integer->char (1 0 -1) #f ()) ((inexact?) variable inexact? (1 0 -1) #f ()) ((imag-part) variable imag-part (1 0 -1) #f ()) ((gcd) variable gcd (1 0 -1) #f ()) ((for-each) variable for-each (1 0 -1) #f ()) ((floor) variable floor (1 0 -1) #f ()) ((expt) variable expt (1 0 -1) #f ()) ((exp) variable exp (1 0 -1) #f ()) ((exact?) variable exact? (1 0 -1) #f ()) ((even?) variable even? (1 0 -1) #f ()) ((eqv?) variable eqv? (1 0 -1) #f ()) ((equal?) variable equal? (1 0 -1) #f ()) ((eq?) variable eq? (1 0 -1) #f ()) ((dynamic-wind) variable dynamic-wind (1 0 -1) #f ()) ((denominator) variable denominator (1 0 -1) #f ()) ((cos) variable cos (1 0 -1) #f ()) ((cons) variable cons (1 0 -1) #f ()) ((complex?) variable complex? (1 0 -1) #f ()) ((char->integer) variable char->integer (1 0 -1) #f ()) ((ceiling) variable ceiling (1 0 -1) #f ()) ((cddddr) variable cddddr (1 0 -1) #f ()) ((cdddar) variable cdddar (1 0 -1) #f ()) ((cddadr) variable cddadr (1 0 -1) #f ()) ((cddaar) variable cddaar (1 0 -1) #f ()) ((cdaddr) variable cdaddr (1 0 -1) #f ()) ((cdadar) variable cdadar (1 0 -1) #f ()) ((cdaadr) variable cdaadr (1 0 -1) #f ()) ((cdaaar) variable cdaaar (1 0 -1) #f ()) ((cadddr) variable cadddr (1 0 -1) #f ()) ((caddar) variable caddar (1 0 -1) #f ()) ((cadadr) variable cadadr (1 0 -1) #f ()) ((cadaar) variable cadaar (1 0 -1) #f ()) ((caaddr) variable caaddr (1 0 -1) #f ()) ((caadar) variable caadar (1 0 -1) #f ()) ((caaadr) variable caaadr (1 0 -1) #f ()) ((caaaar) variable caaaar (1 0 -1) #f ()) ((cdddr) variable cdddr (1 0 -1) #f ()) ((cddar) variable cddar (1 0 -1) #f ()) ((cdadr) variable cdadr (1 0 -1) #f ()) ((cdaar) variable cdaar (1 0 -1) #f ()) ((caddr) variable caddr (1 0 -1) #f ()) ((cadar) variable cadar (1 0 -1) #f ()) ((caadr) variable caadr (1 0 -1) #f ()) ((caaar) variable caaar (1 0 -1) #f ()) ((cddr) variable cddr (1 0 -1) #f ()) ((cdar) variable cdar (1 0 -1) #f ()) ((cadr) variable cadr (1 0 -1) #f ()) ((caar) variable caar (1 0 -1) #f ()) ((cdr) variable cdr (1 0 -1) #f ()) ((car) variable car (1 0 -1) #f ()) ((call-with-values) variable call-with-values (1 0 -1) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0 -1) #f ()) ((boolean?) variable boolean? (1 0 -1) #f ()) ((atan) variable atan (1 0 -1) #f ()) ((asin) variable asin (1 0 -1) #f ()) ((apply) variable apply (1 0 -1) #f ()) ((append) variable append (1 0 -1) #f ()) ((acos) variable acos (1 0 -1) #f ()) ((abs) variable abs (1 0 -1) #f ()) ((>=) variable >= (1 0 -1) #f ()) ((>) variable > (1 0 -1) #f ()) ((=) variable = (1 0 -1) #f ()) ((<=) variable <= (1 0 -1) #f ()) ((<) variable < (1 0 -1) #f ()) ((/) variable / (1 0 -1) #f ()) ((-) variable - (1 0 -1) #f ()) ((+) variable + (1 0 -1) #f ()) ((*) variable * (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 ()) ((letrec-syntax) macro letrec-syntax (1 0 -1) #f ()) ((let-syntax) macro let-syntax (1 0 -1) #f ()) ((define-syntax) macro define-syntax (1 0 -1) #f ()) ((define) macro define (1 0 -1) #f ()) ((or) macro or (1 0 -1) #f ()) ((and) macro and (1 0 -1) #f ()) ((set!) macro set! (1 0 -1) #f ()) ((quote) macro quote (1 0 -1) #f ()) ((lambda) macro lambda (1 0 -1) #f ()) ((if) macro if (1 0 -1) #f ()) ((begin) macro begin (1 0 -1) #f ()))))))) (define ~core.identifier-syntax~exports (quote ((identifier-syntax macro identifier-syntax~1185902126~537 (0) #f (core identifier-syntax))))) (define ~core.identifier-syntax~imports (quote (((core primitives) 1 0 -1)))) (define (~core.identifier-syntax~visit) ($ex:register-macro! (quote identifier-syntax~1185902126~537) (lambda (x~1185902126~539) ((lambda () (let ((input~1185902126~542 x~1185902126~539)) (let ((fail~1185902126~543 (lambda () (let ((fail~1185902126~544 (lambda () ($ex:invalid-form input~1185902126~542)))) (if (pair? input~1185902126~542) (let ((temp~1185902126~575 (car input~1185902126~542))) (let ((temp~1185902126~556 (cdr input~1185902126~542))) (if (pair? temp~1185902126~556) (let ((temp~1185902126~570 (car temp~1185902126~556))) (if (pair? temp~1185902126~570) (let ((temp~1185902126~574 (car temp~1185902126~570))) (let ((id~1185902126~545 temp~1185902126~574)) (let ((temp~1185902126~571 (cdr temp~1185902126~570))) (if (pair? temp~1185902126~571) (let ((temp~1185902126~573 (car temp~1185902126~571))) (let ((exp1~1185902126~546 temp~1185902126~573)) (let ((temp~1185902126~572 (cdr temp~1185902126~571))) (if (null? temp~1185902126~572) (let ((temp~1185902126~557 (cdr temp~1185902126~556))) (if (pair? temp~1185902126~557) (let ((temp~1185902126~559 (car temp~1185902126~557))) (if (pair? temp~1185902126~559) (let ((temp~1185902126~563 (car temp~1185902126~559))) (if (pair? temp~1185902126~563) (let ((temp~1185902126~569 (car temp~1185902126~563))) (if (and ($ex:identifier? temp~1185902126~569) ($ex:free-identifier=? temp~1185902126~569 ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))))) (let ((temp~1185902126~564 (cdr temp~1185902126~563))) (if (pair? temp~1185902126~564) (let ((temp~1185902126~568 (car temp~1185902126~564))) (let ((var~1185902126~547 temp~1185902126~568)) (let ((temp~1185902126~565 (cdr temp~1185902126~564))) (if (pair? temp~1185902126~565) (let ((temp~1185902126~567 (car temp~1185902126~565))) (let ((val~1185902126~548 temp~1185902126~567)) (let ((temp~1185902126~566 (cdr temp~1185902126~565))) (if (null? temp~1185902126~566) (let ((temp~1185902126~560 (cdr temp~1185902126~559))) (if (pair? temp~1185902126~560) (let ((temp~1185902126~562 (car temp~1185902126~560))) (let ((exp2~1185902126~549 temp~1185902126~562)) (let ((temp~1185902126~561 (cdr temp~1185902126~560))) (if (null? temp~1185902126~561) (let ((temp~1185902126~558 (cdr temp~1185902126~557))) (if (null? temp~1185902126~558) (if (if ($ex:identifier? id~1185902126~545) ($ex:identifier? var~1185902126~547) #f) (cons ($ex:syntax-rename (quote make-variable-transformer) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons (cons ($ex:syntax-rename (quote set!) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons var~1185902126~547 (cons val~1185902126~548 (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons exp2~1185902126~549 (quote ()))) (quote ()))) (cons (cons (cons id~1185902126~545 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons (cons exp1~1185902126~546 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (cons (cons id~1185902126~545 (cons (cons ($ex:syntax-rename (quote identifier?) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons id~1185902126~545 (quote ()))) (quote ()))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~555)) 0 (quote (core identifier-syntax))) (cons exp1~1185902126~546 (quote ()))) (quote ())))) (quote ()))))))) (quote ())))) (quote ()))) (fail~1185902126~544)) (fail~1185902126~544))) (fail~1185902126~544))))) (fail~1185902126~544))) (fail~1185902126~544))))) (fail~1185902126~544))))) (fail~1185902126~544))) (fail~1185902126~544))) (fail~1185902126~544))) (fail~1185902126~544))) (fail~1185902126~544))) (fail~1185902126~544))))) (fail~1185902126~544))))) (fail~1185902126~544))) (fail~1185902126~544)))) (fail~1185902126~544)))))) (if (pair? input~1185902126~542) (let ((temp~1185902126~582 (car input~1185902126~542))) (let ((temp~1185902126~579 (cdr input~1185902126~542))) (if (pair? temp~1185902126~579) (let ((temp~1185902126~581 (car temp~1185902126~579))) (let ((e~1185902126~576 temp~1185902126~581)) (let ((temp~1185902126~580 (cdr temp~1185902126~579))) (if (null? temp~1185902126~580) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (quote ())) (cons (cons ($ex:syntax-rename (quote syntax-case) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons (quote ()) (cons (cons ($ex:syntax-rename (quote id) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote identifier?) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote id) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (quote ()))) (quote ()))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons e~1185902126~576 (quote ()))) (quote ())))) (cons (cons (cons ($ex:syntax-rename (quote _) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (quote ())))) (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons (cons e~1185902126~576 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185902126~578)) 0 (quote (core identifier-syntax))) (quote ())))) (quote ()))) (quote ()))) (quote ())))))) (quote ())))) (fail~1185902126~543))))) (fail~1185902126~543)))) (fail~1185902126~543)))))))) ($ex:unspecified)) (define (~core.identifier-syntax~invoke) ($ex:unspecified)))

(begin (define ~core.quasisyntax~envs (quote ((env~1185902126~815 ((((e) pattern-variable e~1185902126~787 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~786 ((((e) pattern-variable e~1185902126~770 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~769 ((((e) pattern-variable e~1185902126~743 (1) 1 (core quasisyntax)) ((r) pattern-variable r~1185902126~744 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~742 ((((e) pattern-variable e~1185902126~705 (1) 1 (core quasisyntax)) ((r) pattern-variable r~1185902126~706 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~722 ((((r*) pattern-variable r*~1185902126~713 (1) 0 (core quasisyntax)) ((rep) pattern-variable rep~1185902126~714 (1) 1 (core quasisyntax)) ((t) pattern-variable t~1185902126~715 (1) 1 (core quasisyntax)))) ((((e) pattern-variable e~1185902126~705 (1) 1 (core quasisyntax)) ((r) pattern-variable r~1185902126~706 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~685 ((((k) pattern-variable k~1185902126~676 (1) 0 (core quasisyntax)) ((r) pattern-variable r~1185902126~677 (1) 0 (core quasisyntax)))) (()) ((((x) variable x~1185902126~616 (1) #f (core quasisyntax)) ((level) variable level~1185902126~617 (1) #f (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~606 ((((template*) pattern-variable template*~1185902126~601 (1) 0 (core quasisyntax)) ((replacements) pattern-variable replacements~1185902126~602 (1) 0 (core quasisyntax)))) ((((template) pattern-variable template~1185902126~595 (1) 0 (core quasisyntax)))) ((((expand) variable expand~1185902126~590 (1) #f (core quasisyntax)))) ((((e) variable e~1185902126~588 (1) #f (core quasisyntax)))) . env~1185902126~584) (env~1185902126~584 ((((unsyntax-splicing) macro unsyntax-splicing~1185902126~822 (0) #f (core quasisyntax)) ((unsyntax) macro unsyntax~1185902126~817 (0) #f (core quasisyntax)) ((quasisyntax) macro quasisyntax~1185902126~586 (0) #f (core quasisyntax)) ((eval) variable $ex:eval (0 1) #f ()) ((environment-bindings) variable $ex:environment-bindings (0 1) #f ()) ((environment) variable $ex:environment (0 1) #f ()) ((syntax-violation) variable $ex:syntax-violation (0 1) #f ()) ((syntax->datum) variable $ex:syntax->datum (0 1) #f ()) ((datum->syntax) variable $ex:datum->syntax (0 1) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (0 1) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (0 1) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (0 1) #f ()) ((identifier?) variable $ex:identifier? (0 1) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (0 1) #f ()) ((modulo) variable modulo (0 1) #f ()) ((remainder) variable remainder (0 1) #f ()) ((quotient) variable quotient (0 1) #f ()) ((inexact->exact) variable inexact->exact (0 1) #f ()) ((exact->inexact) variable exact->inexact (0 1) #f ()) ((set-cdr!) variable set-cdr! (0 1) #f ()) ((set-car!) variable set-car! (0 1) #f ()) ((string-set!) variable string-set! (0 1) #f ()) ((string-fill!) variable string-fill! (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 ()) ((char-lower-case?) variable char-lower-case? (0 1) #f ()) ((char-upper-case?) variable char-upper-case? (0 1) #f ()) ((char-whitespace?) variable char-whitespace? (0 1) #f ()) ((char-numeric?) variable char-numeric? (0 1) #f ()) ((char-alphabetic?) variable char-alphabetic? (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-downcase) variable char-downcase (0 1) #f ()) ((char-upcase) variable char-upcase (0 1) #f ()) ((write-char) variable write-char (0 1) #f ()) ((write) variable write (0 1) #f ()) ((with-output-to-file) variable with-output-to-file (0 1) #f ()) ((with-input-from-file) variable with-input-from-file (0 1) #f ()) ((read-char) variable read-char (0 1) #f ()) ((read) variable read (0 1) #f ()) ((peek-char) variable peek-char (0 1) #f ()) ((open-output-file) variable open-output-file (0 1) #f ()) ((open-input-file) variable open-input-file (0 1) #f ()) ((newline) variable newline (0 1) #f ()) ((eof-object?) variable eof-object? (0 1) #f ()) ((display) variable display (0 1) #f ()) ((current-output-port) variable current-output-port (0 1) #f ()) ((current-input-port) variable current-input-port (0 1) #f ()) ((close-output-port) variable close-output-port (0 1) #f ()) ((close-input-port) variable close-input-port (0 1) #f ()) ((call-with-output-file) variable call-with-output-file (0 1) #f ()) ((call-with-input-file) variable call-with-input-file (0 1) #f ()) ((assq) variable assq (0 1) #f ()) ((assv) variable assv (0 1) #f ()) ((assoc) variable assoc (0 1) #f ()) ((assp) variable assp (0 1) #f ()) ((memq) variable memq (0 1) #f ()) ((memv) variable memv (0 1) #f ()) ((member) variable member (0 1) #f ()) ((memp) variable memp (0 1) #f ()) ((remv) variable remv (0 1) #f ()) ((remq) variable remq (0 1) #f ()) ((remove) variable remove (0 1) #f ()) ((remp) variable remp (0 1) #f ()) ((fold-right) variable fold-right (0 1) #f ()) ((fold-left) variable fold-left (0 1) #f ()) ((partition) variable partition (0 1) #f ()) ((filter) variable filter (0 1) #f ()) ((exists) variable exists (0 1) #f ()) ((for-all) variable for-all (0 1) #f ()) ((find) variable find (0 1) #f ()) ((call/cc) variable call/cc (0 1) #f ()) ((assertion-violation) variable assertion-violation (0 1) #f ()) ((error) variable error (0 1) #f ()) ((vector-for-each) variable vector-for-each (0 1) #f ()) ((vector-map) variable vector-map (0 1) #f ()) ((string-for-each) variable string-for-each (0 1) #f ()) ((symbol=?) variable symbol=? (0 1) #f ()) ((boolean=?) variable boolean=? (0 1) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (0 1) #f ()) ((div0-and-mod0) variable div0-and-mod0 (0 1) #f ()) ((mod0) variable mod0 (0 1) #f ()) ((div0) variable div0 (0 1) #f ()) ((div-and-mod) variable div-and-mod (0 1) #f ()) ((mod) variable mod (0 1) #f ()) ((div) variable div (0 1) #f ()) ((nan?) variable nan? (0 1) #f ()) ((infinite?) variable infinite? (0 1) #f ()) ((finite?) variable finite? (0 1) #f ()) ((inexact) variable inexact (0 1) #f ()) ((exact) variable exact (0 1) #f ()) ((integer-valued?) variable integer-valued? (0 1) #f ()) ((rational-valued?) variable rational-valued? (0 1) #f ()) ((real-valued?) variable real-valued? (0 1) #f ()) ((zero?) variable zero? (0 1) #f ()) ((vector?) variable vector? (0 1) #f ()) ((vector-set!) variable vector-set! (0 1) #f ()) ((vector-ref) variable vector-ref (0 1) #f ()) ((vector-length) variable vector-length (0 1) #f ()) ((vector-fill!) variable vector-fill! (0 1) #f ()) ((vector->list) variable vector->list (0 1) #f ()) ((vector) variable vector (0 1) #f ()) ((values) variable values (0 1) #f ()) ((truncate) variable truncate (0 1) #f ()) ((tan) variable tan (0 1) #f ()) ((symbol?) variable symbol? (0 1) #f ()) ((symbol->string) variable symbol->string (0 1) #f ()) ((substring) variable substring (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 ()) ((string-ref) variable string-ref (0 1) #f ()) ((string-length) variable string-length (0 1) #f ()) ((string-copy) variable string-copy (0 1) #f ()) ((string-append) variable string-append (0 1) #f ()) ((string->symbol) variable string->symbol (0 1) #f ()) ((string->number) variable string->number (0 1) #f ()) ((string->list) variable string->list (0 1) #f ()) ((string) variable string (0 1) #f ()) ((sqrt) variable sqrt (0 1) #f ()) ((sin) variable sin (0 1) #f ()) ((round) variable round (0 1) #f ()) ((reverse) variable reverse (0 1) #f ()) ((real?) variable real? (0 1) #f ()) ((real-part) variable real-part (0 1) #f ()) ((rationalize) variable rationalize (0 1) #f ()) ((rational?) variable rational? (0 1) #f ()) ((procedure?) variable procedure? (0 1) #f ()) ((positive?) variable positive? (0 1) #f ()) ((pair?) variable pair? (0 1) #f ()) ((odd?) variable odd? (0 1) #f ()) ((numerator) variable numerator (0 1) #f ()) ((number?) variable number? (0 1) #f ()) ((number->string) variable number->string (0 1) #f ()) ((null?) variable null? (0 1) #f ()) ((not) variable not (0 1) #f ()) ((negative?) variable negative? (0 1) #f ()) ((min) variable min (0 1) #f ()) ((max) variable max (0 1) #f ()) ((map) variable map (0 1) #f ()) ((make-vector) variable make-vector (0 1) #f ()) ((make-string) variable make-string (0 1) #f ()) ((make-rectangular) variable make-rectangular (0 1) #f ()) ((make-polar) variable make-polar (0 1) #f ()) ((magnitude) variable magnitude (0 1) #f ()) ((log) variable log (0 1) #f ()) ((list?) variable list? (0 1) #f ()) ((list-tail) variable list-tail (0 1) #f ()) ((list-ref) variable list-ref (0 1) #f ()) ((list->vector) variable list->vector (0 1) #f ()) ((list->string) variable list->string (0 1) #f ()) ((list) variable list (0 1) #f ()) ((length) variable length (0 1) #f ()) ((lcm) variable lcm (0 1) #f ()) ((integer?) variable integer? (0 1) #f ()) ((integer->char) variable integer->char (0 1) #f ()) ((inexact?) variable inexact? (0 1) #f ()) ((imag-part) variable imag-part (0 1) #f ()) ((gcd) variable gcd (0 1) #f ()) ((for-each) variable for-each (0 1) #f ()) ((floor) variable floor (0 1) #f ()) ((expt) variable expt (0 1) #f ()) ((exp) variable exp (0 1) #f ()) ((exact?) variable exact? (0 1) #f ()) ((even?) variable even? (0 1) #f ()) ((eqv?) variable eqv? (0 1) #f ()) ((equal?) variable equal? (0 1) #f ()) ((eq?) variable eq? (0 1) #f ()) ((dynamic-wind) variable dynamic-wind (0 1) #f ()) ((denominator) variable denominator (0 1) #f ()) ((cos) variable cos (0 1) #f ()) ((cons) variable cons (0 1) #f ()) ((complex?) variable complex? (0 1) #f ()) ((char->integer) variable char->integer (0 1) #f ()) ((ceiling) variable ceiling (0 1) #f ()) ((cddddr) variable cddddr (0 1) #f ()) ((cdddar) variable cdddar (0 1) #f ()) ((cddadr) variable cddadr (0 1) #f ()) ((cddaar) variable cddaar (0 1) #f ()) ((cdaddr) variable cdaddr (0 1) #f ()) ((cdadar) variable cdadar (0 1) #f ()) ((cdaadr) variable cdaadr (0 1) #f ()) ((cdaaar) variable cdaaar (0 1) #f ()) ((cadddr) variable cadddr (0 1) #f ()) ((caddar) variable caddar (0 1) #f ()) ((cadadr) variable cadadr (0 1) #f ()) ((cadaar) variable cadaar (0 1) #f ()) ((caaddr) variable caaddr (0 1) #f ()) ((caadar) variable caadar (0 1) #f ()) ((caaadr) variable caaadr (0 1) #f ()) ((caaaar) variable caaaar (0 1) #f ()) ((cdddr) variable cdddr (0 1) #f ()) ((cddar) variable cddar (0 1) #f ()) ((cdadr) variable cdadr (0 1) #f ()) ((cdaar) variable cdaar (0 1) #f ()) ((caddr) variable caddr (0 1) #f ()) ((cadar) variable cadar (0 1) #f ()) ((caadr) variable caadr (0 1) #f ()) ((caaar) variable caaar (0 1) #f ()) ((cddr) variable cddr (0 1) #f ()) ((cdar) variable cdar (0 1) #f ()) ((cadr) variable cadr (0 1) #f ()) ((caar) variable caar (0 1) #f ()) ((cdr) variable cdr (0 1) #f ()) ((car) variable car (0 1) #f ()) ((call-with-values) variable call-with-values (0 1) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (0 1) #f ()) ((boolean?) variable boolean? (0 1) #f ()) ((atan) variable atan (0 1) #f ()) ((asin) variable asin (0 1) #f ()) ((apply) variable apply (0 1) #f ()) ((append) variable append (0 1) #f ()) ((acos) variable acos (0 1) #f ()) ((abs) variable abs (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 ()) ((*) 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 ()) ((letrec-syntax) macro letrec-syntax (0 1) #f ()) ((let-syntax) macro let-syntax (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 ()) ((set!) macro set! (0 1) #f ()) ((quote) macro quote (0 1) #f ()) ((lambda) macro lambda (0 1) #f ()) ((if) macro if (0 1) #f ()) ((begin) macro begin (0 1) #f ()) ((letrec*) macro letrec*~1185902126~201 (0 1) #f (core let)) ((letrec) macro letrec~1185902126~165 (0 1) #f (core let)) ((let) macro let~1185902126~115 (0 1) #f (core let)) ((=>) macro =>~1185902126~525 (0 1) #f (core derived)) ((else) macro else~1185902126~530 (0 1) #f (core derived)) ((case) macro case~1185902126~439 (0 1) #f (core derived)) ((cond) macro cond~1185902126~318 (0 1) #f (core derived)) ((let*) macro let*~1185902126~232 (0 1) #f (core derived)) ((with-syntax) macro with-syntax~1185902126~9 (0 1) #f (core with-syntax)))))))) (define ~core.quasisyntax~exports (quote ((quasisyntax macro quasisyntax~1185902126~586 (0) #f (core quasisyntax)) (unsyntax macro unsyntax~1185902126~817 (0) #f (core quasisyntax)) (unsyntax-splicing macro unsyntax-splicing~1185902126~822 (0) #f (core quasisyntax))))) (define ~core.quasisyntax~imports (quote (((core with-syntax) 0 1) ((core derived) 0 1) ((core let) 0 1) ((core primitives) 0 1)))) (define (~core.quasisyntax~visit) ($ex:register-macro! (quote quasisyntax~1185902126~586) (lambda (e~1185902126~588) ((lambda (expand~1185902126~590) (set! expand~1185902126~590 (lambda (x~1185902126~616 level~1185902126~617) ((lambda () (let ((input~1185902126~620 x~1185902126~616)) (let ((fail~1185902126~621 (lambda () (let ((fail~1185902126~622 (lambda () (let ((fail~1185902126~623 (lambda () (let ((fail~1185902126~624 (lambda () (let ((fail~1185902126~625 (lambda () (let ((fail~1185902126~626 (lambda () (let ((fail~1185902126~627 (lambda () (let ((fail~1185902126~628 (lambda () ($ex:invalid-form input~1185902126~620)))) (let ((other~1185902126~629 input~1185902126~620)) (cons other~1185902126~629 (cons (quote ()) (quote ())))))))) (if (vector? input~1185902126~620) (let ((temp~1185902126~646 (vector->list input~1185902126~620))) (if (list? temp~1185902126~646) (let ((e~1185902126~631 temp~1185902126~646)) (let ((input~1185902126~634 (expand~1185902126~590 (vector->list (list->vector e~1185902126~631)) level~1185902126~617))) (let ((fail~1185902126~636 (lambda () ($ex:invalid-form input~1185902126~634)))) (if (pair? input~1185902126~634) (let ((temp~1185902126~645 (car input~1185902126~634))) (if (list? temp~1185902126~645) (let ((e*~1185902126~637 temp~1185902126~645)) (let ((temp~1185902126~642 (cdr input~1185902126~634))) (if (pair? temp~1185902126~642) (let ((temp~1185902126~644 (car temp~1185902126~642))) (let ((reps~1185902126~638 temp~1185902126~644)) (let ((temp~1185902126~643 (cdr temp~1185902126~642))) (if (null? temp~1185902126~643) (begin (cons (list->vector e*~1185902126~637) (cons reps~1185902126~638 (quote ())))) (fail~1185902126~636))))) (fail~1185902126~636)))) (fail~1185902126~636))) (fail~1185902126~636))))) (fail~1185902126~627))) (fail~1185902126~627)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~675 (car input~1185902126~620))) (let ((h~1185902126~647 temp~1185902126~675)) (let ((temp~1185902126~674 (cdr input~1185902126~620))) (let ((t~1185902126~648 temp~1185902126~674)) (let ((input~1185902126~651 (list (expand~1185902126~590 h~1185902126~647 level~1185902126~617) (expand~1185902126~590 t~1185902126~648 level~1185902126~617)))) (let ((fail~1185902126~654 (lambda () ($ex:invalid-form input~1185902126~651)))) (if (pair? input~1185902126~651) (let ((temp~1185902126~669 (car input~1185902126~651))) (if (pair? temp~1185902126~669) (let ((temp~1185902126~673 (car temp~1185902126~669))) (let ((h*~1185902126~655 temp~1185902126~673)) (let ((temp~1185902126~670 (cdr temp~1185902126~669))) (if (pair? temp~1185902126~670) (let ((temp~1185902126~672 (car temp~1185902126~670))) (if (list? temp~1185902126~672) (let ((rep1~1185902126~656 temp~1185902126~672)) (let ((temp~1185902126~671 (cdr temp~1185902126~670))) (if (null? temp~1185902126~671) (let ((temp~1185902126~662 (cdr input~1185902126~651))) (if (pair? temp~1185902126~662) (let ((temp~1185902126~664 (car temp~1185902126~662))) (if (pair? temp~1185902126~664) (let ((temp~1185902126~668 (car temp~1185902126~664))) (let ((t*~1185902126~657 temp~1185902126~668)) (let ((temp~1185902126~665 (cdr temp~1185902126~664))) (if (pair? temp~1185902126~665) (let ((temp~1185902126~667 (car temp~1185902126~665))) (if (list? temp~1185902126~667) (let ((rep2~1185902126~658 temp~1185902126~667)) (let ((temp~1185902126~666 (cdr temp~1185902126~665))) (if (null? temp~1185902126~666) (let ((temp~1185902126~663 (cdr temp~1185902126~662))) (if (null? temp~1185902126~663) (begin (cons (cons h*~1185902126~655 t*~1185902126~657) (cons (append rep1~1185902126~656 rep2~1185902126~658) (quote ())))) (fail~1185902126~654))) (fail~1185902126~654)))) (fail~1185902126~654))) (fail~1185902126~654))))) (fail~1185902126~654))) (fail~1185902126~654))) (fail~1185902126~654)))) (fail~1185902126~654))) (fail~1185902126~654))))) (fail~1185902126~654))) (fail~1185902126~654)))))))) (fail~1185902126~626)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~704 (car input~1185902126~620))) (let ((k~1185902126~676 temp~1185902126~704)) (let ((temp~1185902126~703 (cdr input~1185902126~620))) (let ((r~1185902126~677 temp~1185902126~703)) (if (if (> level~1185902126~617 0) (if ($ex:identifier? k~1185902126~676) (let ((x ($ex:free-identifier=? k~1185902126~676 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185902126~685)) 0 (quote (core quasisyntax)))))) (if x x ($ex:free-identifier=? k~1185902126~676 ($ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (env~1185902126~685)) 0 (quote (core quasisyntax)))))) #f) #f) (let ((input~1185902126~691 (expand~1185902126~590 r~1185902126~677 (- level~1185902126~617 1)))) (let ((fail~1185902126~693 (lambda () ($ex:invalid-form input~1185902126~691)))) (if (pair? input~1185902126~691) (let ((temp~1185902126~702 (car input~1185902126~691))) (let ((r*~1185902126~694 temp~1185902126~702)) (let ((temp~1185902126~699 (cdr input~1185902126~691))) (if (pair? temp~1185902126~699) (let ((temp~1185902126~701 (car temp~1185902126~699))) (let ((reps~1185902126~695 temp~1185902126~701)) (let ((temp~1185902126~700 (cdr temp~1185902126~699))) (if (null? temp~1185902126~700) (begin (cons (cons k~1185902126~676 r*~1185902126~694) (cons reps~1185902126~695 (quote ())))) (fail~1185902126~693))))) (fail~1185902126~693))))) (fail~1185902126~693)))) (fail~1185902126~625)))))) (fail~1185902126~625)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~739 (car input~1185902126~620))) (if (pair? temp~1185902126~739) (let ((temp~1185902126~741 (car temp~1185902126~739))) (if (and ($ex:identifier? temp~1185902126~741) ($ex:free-identifier=? temp~1185902126~741 ($ex:syntax-rename (quote unsyntax-splicing) (quote ()) (quote (env~1185902126~742)) 0 (quote (core quasisyntax))))) (let ((temp~1185902126~740 (cdr temp~1185902126~739))) (if (list? temp~1185902126~740) (let ((e~1185902126~705 temp~1185902126~740)) (let ((temp~1185902126~738 (cdr input~1185902126~620))) (let ((r~1185902126~706 temp~1185902126~738)) (if (= level~1185902126~617 0) (let ((input~1185902126~709 (list (expand~1185902126~590 r~1185902126~706 0) ($ex:generate-temporaries e~1185902126~705)))) (let ((fail~1185902126~712 (lambda () ($ex:invalid-form input~1185902126~709)))) (if (pair? input~1185902126~709) (let ((temp~1185902126~733 (car input~1185902126~709))) (if (pair? temp~1185902126~733) (let ((temp~1185902126~737 (car temp~1185902126~733))) (let ((r*~1185902126~713 temp~1185902126~737)) (let ((temp~1185902126~734 (cdr temp~1185902126~733))) (if (pair? temp~1185902126~734) (let ((temp~1185902126~736 (car temp~1185902126~734))) (if (list? temp~1185902126~736) (let ((rep~1185902126~714 temp~1185902126~736)) (let ((temp~1185902126~735 (cdr temp~1185902126~734))) (if (null? temp~1185902126~735) (let ((temp~1185902126~730 (cdr input~1185902126~709))) (if (pair? temp~1185902126~730) (let ((temp~1185902126~732 (car temp~1185902126~730))) (if (list? temp~1185902126~732) (let ((t~1185902126~715 temp~1185902126~732)) (let ((temp~1185902126~731 (cdr temp~1185902126~730))) (if (null? temp~1185902126~731) (begin (let ((input~1185902126~720 (map (lambda (t~1185902126~715) (cons t~1185902126~715 (cons ($ex:syntax-rename (quote ...) (quote ()) (quote (env~1185902126~722)) 0 (quote (core quasisyntax))) (quote ())))) t~1185902126~715))) (let ((fail~1185902126~723 (lambda () ($ex:invalid-form input~1185902126~720)))) ($ex:map-while (lambda (input~1185902126~720) (if (list? input~1185902126~720) (let ((t~1185902126~724 input~1185902126~720)) (list t~1185902126~724)) #f)) input~1185902126~720 (lambda (cols~1185902126~728 rest~1185902126~729) (if (null? rest~1185902126~729) (apply (lambda (t~1185902126~724) (begin (cons (append (apply append t~1185902126~724) r*~1185902126~713) (cons (append (map (lambda (t~1185902126~724 e~1185902126~705) (cons t~1185902126~724 (cons e~1185902126~705 (quote ())))) t~1185902126~724 e~1185902126~705) rep~1185902126~714) (quote ()))))) (if (null? cols~1185902126~728) (quote (())) (apply map list cols~1185902126~728))) (fail~1185902126~723))))))) (fail~1185902126~712)))) (fail~1185902126~712))) (fail~1185902126~712))) (fail~1185902126~712)))) (fail~1185902126~712))) (fail~1185902126~712))))) (fail~1185902126~712))) (fail~1185902126~712)))) (fail~1185902126~624))))) (fail~1185902126~624))) (fail~1185902126~624))) (fail~1185902126~624))) (fail~1185902126~624)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~766 (car input~1185902126~620))) (if (pair? temp~1185902126~766) (let ((temp~1185902126~768 (car temp~1185902126~766))) (if (and ($ex:identifier? temp~1185902126~768) ($ex:free-identifier=? temp~1185902126~768 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185902126~769)) 0 (quote (core quasisyntax))))) (let ((temp~1185902126~767 (cdr temp~1185902126~766))) (if (list? temp~1185902126~767) (let ((e~1185902126~743 temp~1185902126~767)) (let ((temp~1185902126~765 (cdr input~1185902126~620))) (let ((r~1185902126~744 temp~1185902126~765)) (if (= level~1185902126~617 0) (let ((input~1185902126~747 (list (expand~1185902126~590 r~1185902126~744 0) ($ex:generate-temporaries e~1185902126~743)))) (let ((fail~1185902126~750 (lambda () ($ex:invalid-form input~1185902126~747)))) (if (pair? input~1185902126~747) (let ((temp~1185902126~760 (car input~1185902126~747))) (if (pair? temp~1185902126~760) (let ((temp~1185902126~764 (car temp~1185902126~760))) (let ((r*~1185902126~751 temp~1185902126~764)) (let ((temp~1185902126~761 (cdr temp~1185902126~760))) (if (pair? temp~1185902126~761) (let ((temp~1185902126~763 (car temp~1185902126~761))) (if (list? temp~1185902126~763) (let ((rep~1185902126~752 temp~1185902126~763)) (let ((temp~1185902126~762 (cdr temp~1185902126~761))) (if (null? temp~1185902126~762) (let ((temp~1185902126~757 (cdr input~1185902126~747))) (if (pair? temp~1185902126~757) (let ((temp~1185902126~759 (car temp~1185902126~757))) (if (list? temp~1185902126~759) (let ((t~1185902126~753 temp~1185902126~759)) (let ((temp~1185902126~758 (cdr temp~1185902126~757))) (if (null? temp~1185902126~758) (begin (cons (append t~1185902126~753 r*~1185902126~751) (cons (append (map (lambda (t~1185902126~753 e~1185902126~743) (cons t~1185902126~753 (cons e~1185902126~743 (quote ())))) t~1185902126~753 e~1185902126~743) rep~1185902126~752) (quote ())))) (fail~1185902126~750)))) (fail~1185902126~750))) (fail~1185902126~750))) (fail~1185902126~750)))) (fail~1185902126~750))) (fail~1185902126~750))))) (fail~1185902126~750))) (fail~1185902126~750)))) (fail~1185902126~623))))) (fail~1185902126~623))) (fail~1185902126~623))) (fail~1185902126~623))) (fail~1185902126~623)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~785 (car input~1185902126~620))) (if (and ($ex:identifier? temp~1185902126~785) ($ex:free-identifier=? temp~1185902126~785 ($ex:syntax-rename (quote unsyntax) (quote ()) (quote (env~1185902126~786)) 0 (quote (core quasisyntax))))) (let ((temp~1185902126~782 (cdr input~1185902126~620))) (if (pair? temp~1185902126~782) (let ((temp~1185902126~784 (car temp~1185902126~782))) (let ((e~1185902126~770 temp~1185902126~784)) (let ((temp~1185902126~783 (cdr temp~1185902126~782))) (if (null? temp~1185902126~783) (if (= level~1185902126~617 0) (let ((input~1185902126~773 ($ex:generate-temporaries (quote (t))))) (let ((fail~1185902126~775 (lambda () ($ex:invalid-form input~1185902126~773)))) (if (pair? input~1185902126~773) (let ((temp~1185902126~781 (car input~1185902126~773))) (let ((t~1185902126~776 temp~1185902126~781)) (let ((temp~1185902126~780 (cdr input~1185902126~773))) (if (null? temp~1185902126~780) (begin (cons t~1185902126~776 (cons (cons (cons t~1185902126~776 (cons e~1185902126~770 (quote ()))) (quote ())) (quote ())))) (fail~1185902126~775))))) (fail~1185902126~775)))) (fail~1185902126~622)) (fail~1185902126~622))))) (fail~1185902126~622))) (fail~1185902126~622))) (fail~1185902126~622)))))) (if (pair? input~1185902126~620) (let ((temp~1185902126~814 (car input~1185902126~620))) (if (and ($ex:identifier? temp~1185902126~814) ($ex:free-identifier=? temp~1185902126~814 ($ex:syntax-rename (quote quasisyntax) (quote ()) (quote (env~1185902126~815)) 0 (quote (core quasisyntax))))) (let ((temp~1185902126~811 (cdr input~1185902126~620))) (if (pair? temp~1185902126~811) (let ((temp~1185902126~813 (car temp~1185902126~811))) (let ((e~1185902126~787 temp~1185902126~813)) (let ((temp~1185902126~812 (cdr temp~1185902126~811))) (if (null? temp~1185902126~812) (let ((input~1185902126~790 (list x~1185902126~616 (expand~1185902126~590 e~1185902126~787 (+ level~1185902126~617 1))))) (let ((fail~1185902126~792 (lambda () ($ex:invalid-form input~1185902126~790)))) (if (pair? input~1185902126~790) (let ((temp~1185902126~806 (car input~1185902126~790))) (if (pair? temp~1185902126~806) (let ((temp~1185902126~810 (car temp~1185902126~806))) (let ((k~1185902126~793 temp~1185902126~810)) (let ((temp~1185902126~807 (cdr temp~1185902126~806))) (if (pair? temp~1185902126~807) (let ((temp~1185902126~809 (car temp~1185902126~807))) (let ((temp~1185902126~808 (cdr temp~1185902126~807))) (if (null? temp~1185902126~808) (let ((temp~1185902126~799 (cdr input~1185902126~790))) (if (pair? temp~1185902126~799) (let ((temp~1185902126~801 (car temp~1185902126~799))) (if (pair? temp~1185902126~801) (let ((temp~1185902126~805 (car temp~1185902126~801))) (let ((e*~1185902126~794 temp~1185902126~805)) (let ((temp~1185902126~802 (cdr temp~1185902126~801))) (if (pair? temp~1185902126~802) (let ((temp~1185902126~804 (car temp~1185902126~802))) (let ((reps~1185902126~795 temp~1185902126~804)) (let ((temp~1185902126~803 (cdr temp~1185902126~802))) (if (null? temp~1185902126~803) (let ((temp~1185902126~800 (cdr temp~1185902126~799))) (if (null? temp~1185902126~800) (begin (cons (cons k~1185902126~793 (cons e*~1185902126~794 (quote ()))) (cons reps~1185902126~795 (quote ())))) (fail~1185902126~792))) (fail~1185902126~792))))) (fail~1185902126~792))))) (fail~1185902126~792))) (fail~1185902126~792))) (fail~1185902126~792)))) (fail~1185902126~792))))) (fail~1185902126~792))) (fail~1185902126~792)))) (fail~1185902126~621))))) (fail~1185902126~621))) (fail~1185902126~621))) (fail~1185902126~621)))))))) (let ((input~1185902126~593 e~1185902126~588)) (let ((fail~1185902126~594 (lambda () ($ex:invalid-form input~1185902126~593)))) (if (pair? input~1185902126~593) (let ((temp~1185902126~614 (car input~1185902126~593))) (let ((temp~1185902126~611 (cdr input~1185902126~593))) (if (pair? temp~1185902126~611) (let ((temp~1185902126~613 (car temp~1185902126~611))) (let ((template~1185902126~595 temp~1185902126~613)) (let ((temp~1185902126~612 (cdr temp~1185902126~611))) (if (null? temp~1185902126~612) (let ((input~1185902126~598 (expand~1185902126~590 template~1185902126~595 0))) (let ((fail~1185902126~600 (lambda () ($ex:invalid-form input~1185902126~598)))) (if (pair? input~1185902126~598) (let ((temp~1185902126~610 (car input~1185902126~598))) (let ((template*~1185902126~601 temp~1185902126~610)) (let ((temp~1185902126~607 (cdr input~1185902126~598))) (if (pair? temp~1185902126~607) (let ((temp~1185902126~609 (car temp~1185902126~607))) (let ((replacements~1185902126~602 temp~1185902126~609)) (let ((temp~1185902126~608 (cdr temp~1185902126~607))) (if (null? temp~1185902126~608) (begin (cons ($ex:syntax-rename (quote with-syntax) (quote ()) (quote (env~1185902126~606)) 0 (quote (core quasisyntax))) (cons replacements~1185902126~602 (cons (cons ($ex:syntax-rename (quote syntax) (quote ()) (quote (env~1185902126~606)) 0 (quote (core quasisyntax))) (cons template*~1185902126~601 (quote ()))) (quote ()))))) (fail~1185902126~600))))) (fail~1185902126~600))))) (fail~1185902126~600)))) (fail~1185902126~594))))) (fail~1185902126~594)))) (fail~1185902126~594))))) ($ex:unspecified)))) ($ex:register-macro! (quote unsyntax~1185902126~817) (lambda (e~1185902126~819) ((lambda () ($ex:syntax-violation (quote unsyntax) "Invalid expression" e~1185902126~819))))) ($ex:register-macro! (quote unsyntax-splicing~1185902126~822) (lambda (e~1185902126~824) ((lambda () ($ex:syntax-violation (quote unsyntax) "Invalid expression" e~1185902126~824))))) ($ex:unspecified)) (define (~core.quasisyntax~invoke) ($ex:unspecified)))

(begin (define ~core.quasiquote~envs (quote ((env~1185902126~1292 ((((p) pattern-variable p~1185902126~1288 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1233 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1234 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~1282 ((((p) pattern-variable p~1185902126~1280 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1233 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1234 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~1273 ((((p) pattern-variable p~1185902126~1268 (1) 1 (core quasiquote)))) ((((p) pattern-variable p~1185902126~1248 (1) 0 (core quasiquote)) ((q) pattern-variable q~1185902126~1249 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1233 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1234 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~1263 ((((p) pattern-variable p~1185902126~1258 (1) 1 (core quasiquote)))) ((((p) pattern-variable p~1185902126~1248 (1) 0 (core quasiquote)) ((q) pattern-variable q~1185902126~1249 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1233 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1234 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~1225 ((((p) pattern-variable p~1185902126~1220 (1) 1 (core quasiquote)))) ((((p) pattern-variable p~1185902126~1200 (1) 0 (core quasiquote)) ((q) pattern-variable q~1185902126~1201 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1192 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1193 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~1215 ((((p) pattern-variable p~1185902126~1210 (1) 1 (core quasiquote)))) ((((p) pattern-variable p~1185902126~1200 (1) 0 (core quasiquote)) ((q) pattern-variable q~1185902126~1201 (1) 0 (core quasiquote)))) (()) ((((p) variable p~1185902126~1192 (1) #f (core quasiquote)) ((lev) variable lev~1185902126~1193 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~985 ((((x) pattern-variable x~1185902126~983 (1) 0 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~980 ((((gen~1185902126~970 c~1185902126~969) pattern-variable gen~1185902126~970~1185902126~976 (0) 1 (core quasiquote)))) ((((x) pattern-variable x~1185902126~968 (1) 1 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~956 ((((gen~1185902126~946 c~1185902126~944) pattern-variable gen~1185902126~946~1185902126~951 (0) 0 (core quasiquote)) ((gen~1185902126~945 c~1185902126~944) pattern-variable gen~1185902126~945~1185902126~952 (0) 0 (core quasiquote)))) (()) ((((x*) variable x*~1185902126~940 (1) #f (core quasiquote)))) (()) ((((f) variable f~1185902126~931 (1) #t (core quasiquote)))) ((((x) pattern-variable x~1185902126~924 (1) 1 (core quasiquote)) ((y) pattern-variable y~1185902126~925 (1) 0 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~921 ((((gen~1185902126~911 c~1185902126~910) pattern-variable gen~1185902126~911~1185902126~917 (0) 1 (core quasiquote)))) ((((x) pattern-variable x~1185902126~909 (1) 1 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~906 ((((gen~1185902126~896 c~1185902126~895) pattern-variable gen~1185902126~896~1185902126~902 (0) 1 (core quasiquote)))) ((((x) pattern-variable x~1185902126~894 (1) 1 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~889 ((((gen~1185902126~879 c~1185902126~878) pattern-variable gen~1185902126~879~1185902126~885 (0) 0 (core quasiquote)))) ((((x) pattern-variable x~1185902126~877 (1) 0 (core quasiquote)))) (()) ((((x) variable x~1185902126~860 (1) #f (core quasiquote)))) ((((emit) variable emit~1185902126~845 (1) #f (core quasiquote)) ((quasivector) variable quasivector~1185902126~843 (1) #f (core quasiquote)) ((quasilist*) variable quasilist*~1185902126~841 (1) #f (core quasiquote)) ((quasiappend) variable quasiappend~1185902126~839 (1) #f (core quasiquote)) ((quasicons) variable quasicons~1185902126~837 (1) #f (core quasiquote)) ((vquasi) variable vquasi~1185902126~835 (1) #f (core quasiquote)) ((quasi) variable quasi~1185902126~833 (1) #f (core quasiquote)))) (()) . env~1185902126~827) (env~1185902126~827 ((((unquote-splicing) macro unquote-splicing~1185902126~1304 (0) #f (core quasiquote)) ((unquote) macro unquote~1185902126~1299 (0) #f (core quasiquote)) ((quasiquote) macro quasiquote~1185902126~829 (0) #f (core quasiquote)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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*~1185902126~201 (1 0) #f (core let)) ((letrec) macro letrec~1185902126~165 (1 0) #f (core let)) ((let) macro let~1185902126~115 (1 0) #f (core let)) ((=>) macro =>~1185902126~525 (1 0) #f (core derived)) ((else) macro else~1185902126~530 (1 0) #f (core derived)) ((case) macro case~1185902126~439 (1 0) #f (core derived)) ((cond) macro cond~1185902126~318 (1 0) #f (core derived)) ((let*) macro let*~1185902126~232 (1 0) #f (core derived)) ((with-syntax) macro with-syntax~1185902126~9 (1) #f (core with-syntax)) ((unsyntax-splicing) macro unsyntax-splicing~1185902126~822 (1) #f (core quasisyntax)) ((unsyntax) macro unsyntax~1185902126~817 (1) #f (core quasisyntax)) ((quasisyntax) macro quasisyntax~1185902126~586 (1) #f (core quasisyntax)))))))) (define ~core.quasiquote~exports (quote ((quasiquote macro quasiquote~1185902126~829 (0) #f (core quasiquote)) (unquote macro unquote~1185902126~1299 (0) #f (core quasiquote)) (unquote-splicing macro unquote-splicing~1185902126~1304 (0) #f (core quasiquote))))) (define ~core.quasiquote~imports (quote (((core quasisyntax) 1) ((core with-syntax) 1) ((core derived) 1 0) ((core let) 1 0) ((core primitives) 1 0)))) (define (~core.quasiquote~visit) ($ex:register-macro! (quote quasiquote~1185902126~829) ((lambda () ((lambda (emit~1185902126~845 quasivector~1185902126~843 quasilist*~1185902126~841 quasiappend~1185902126~839 quasicons~1185902126~837 vquasi~1185902126~835 quasi~1185902126~833) (set! quasi~1185902126~833 (lambda (p~1185902126~1233 lev~1185902126~1234) ((lambda () (let ((input~1185902126~1237 p~1185902126~1233)) (let ((fail~1185902126~1238 (lambda () (let ((fail~1185902126~1239 (lambda () (let ((fail~1185902126~1240 (lambda () (let ((fail~1185902126~1241 (lambda () (let ((fail~1185902126~1242 (lambda () ($ex:invalid-form input~1185902126~1237)))) (let ((p~1185902126~1243 input~1185902126~1237)) (cons (quote "quote") (cons p~1185902126~1243 (quote ())))))))) (if (vector? input~1185902126~1237) (let ((temp~1185902126~1247 (vector->list input~1185902126~1237))) (if (list? temp~1185902126~1247) (let ((x~1185902126~1245 temp~1185902126~1247)) (quasivector~1185902126~843 (vquasi~1185902126~835 x~1185902126~1245 lev~1185902126~1234))) (fail~1185902126~1241))) (fail~1185902126~1241)))))) (if (pair? input~1185902126~1237) (let ((temp~1185902126~1279 (car input~1185902126~1237))) (let ((p~1185902126~1248 temp~1185902126~1279)) (let ((temp~1185902126~1278 (cdr input~1185902126~1237))) (let ((q~1185902126~1249 temp~1185902126~1278)) (let ((input~1185902126~1251 p~1185902126~1248)) (let ((fail~1185902126~1253 (lambda () (let ((fail~1185902126~1254 (lambda () (let ((fail~1185902126~1255 (lambda () ($ex:invalid-form input~1185902126~1251)))) (quasicons~1185902126~837 (quasi~1185902126~833 p~1185902126~1248 lev~1185902126~1234) (quasi~1185902126~833 q~1185902126~1249 lev~1185902126~1234)))))) (if (pair? input~1185902126~1251) (let ((temp~1185902126~1267 (car input~1185902126~1251))) (if (and ($ex:identifier? temp~1185902126~1267) ($ex:free-identifier=? temp~1185902126~1267 ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185902126~1263)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1266 (cdr input~1185902126~1251))) (if (list? temp~1185902126~1266) (let ((p~1185902126~1258 temp~1185902126~1266)) (if (= lev~1185902126~1234 0) (quasiappend~1185902126~839 (map (lambda (p~1185902126~1258) (cons (quote "value") (cons p~1185902126~1258 (quote ())))) p~1185902126~1258) (quasi~1185902126~833 q~1185902126~1249 lev~1185902126~1234)) (quasicons~1185902126~837 (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185902126~1263)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 p~1185902126~1258 (- lev~1185902126~1234 1))) (quasi~1185902126~833 q~1185902126~1249 lev~1185902126~1234)))) (fail~1185902126~1254))) (fail~1185902126~1254))) (fail~1185902126~1254)))))) (if (pair? input~1185902126~1251) (let ((temp~1185902126~1277 (car input~1185902126~1251))) (if (and ($ex:identifier? temp~1185902126~1277) ($ex:free-identifier=? temp~1185902126~1277 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1273)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1276 (cdr input~1185902126~1251))) (if (list? temp~1185902126~1276) (let ((p~1185902126~1268 temp~1185902126~1276)) (if (= lev~1185902126~1234 0) (quasilist*~1185902126~841 (map (lambda (p~1185902126~1268) (cons (quote "value") (cons p~1185902126~1268 (quote ())))) p~1185902126~1268) (quasi~1185902126~833 q~1185902126~1249 lev~1185902126~1234)) (quasicons~1185902126~837 (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1273)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 p~1185902126~1268 (- lev~1185902126~1234 1))) (quasi~1185902126~833 q~1185902126~1249 lev~1185902126~1234)))) (fail~1185902126~1253))) (fail~1185902126~1253))) (fail~1185902126~1253)))))))) (fail~1185902126~1240)))))) (if (pair? input~1185902126~1237) (let ((temp~1185902126~1287 (car input~1185902126~1237))) (if (and ($ex:identifier? temp~1185902126~1287) ($ex:free-identifier=? temp~1185902126~1287 ($ex:syntax-rename (quote quasiquote) (quote ()) (quote (env~1185902126~1282)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1284 (cdr input~1185902126~1237))) (if (pair? temp~1185902126~1284) (let ((temp~1185902126~1286 (car temp~1185902126~1284))) (let ((p~1185902126~1280 temp~1185902126~1286)) (let ((temp~1185902126~1285 (cdr temp~1185902126~1284))) (if (null? temp~1185902126~1285) (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote quasiquote) (quote ()) (quote (env~1185902126~1282)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 (cons p~1185902126~1280 (quote ())) (+ lev~1185902126~1234 1))) (fail~1185902126~1239))))) (fail~1185902126~1239))) (fail~1185902126~1239))) (fail~1185902126~1239)))))) (if (pair? input~1185902126~1237) (let ((temp~1185902126~1297 (car input~1185902126~1237))) (if (and ($ex:identifier? temp~1185902126~1297) ($ex:free-identifier=? temp~1185902126~1297 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1292)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1294 (cdr input~1185902126~1237))) (if (pair? temp~1185902126~1294) (let ((temp~1185902126~1296 (car temp~1185902126~1294))) (let ((p~1185902126~1288 temp~1185902126~1296)) (let ((temp~1185902126~1295 (cdr temp~1185902126~1294))) (if (null? temp~1185902126~1295) (if (= lev~1185902126~1234 0) (cons (quote "value") (cons p~1185902126~1288 (quote ()))) (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1292)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 (cons p~1185902126~1288 (quote ())) (- lev~1185902126~1234 1)))) (fail~1185902126~1238))))) (fail~1185902126~1238))) (fail~1185902126~1238))) (fail~1185902126~1238)))))))) (set! vquasi~1185902126~835 (lambda (p~1185902126~1192 lev~1185902126~1193) ((lambda () (let ((input~1185902126~1196 p~1185902126~1192)) (let ((fail~1185902126~1197 (lambda () (let ((fail~1185902126~1198 (lambda () ($ex:invalid-form input~1185902126~1196)))) (if (null? input~1185902126~1196) (cons (quote "quote") (cons (quote ()) (quote ()))) (fail~1185902126~1198)))))) (if (pair? input~1185902126~1196) (let ((temp~1185902126~1231 (car input~1185902126~1196))) (let ((p~1185902126~1200 temp~1185902126~1231)) (let ((temp~1185902126~1230 (cdr input~1185902126~1196))) (let ((q~1185902126~1201 temp~1185902126~1230)) (let ((input~1185902126~1203 p~1185902126~1200)) (let ((fail~1185902126~1205 (lambda () (let ((fail~1185902126~1206 (lambda () (let ((fail~1185902126~1207 (lambda () ($ex:invalid-form input~1185902126~1203)))) (quasicons~1185902126~837 (quasi~1185902126~833 p~1185902126~1200 lev~1185902126~1193) (vquasi~1185902126~835 q~1185902126~1201 lev~1185902126~1193)))))) (if (pair? input~1185902126~1203) (let ((temp~1185902126~1219 (car input~1185902126~1203))) (if (and ($ex:identifier? temp~1185902126~1219) ($ex:free-identifier=? temp~1185902126~1219 ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185902126~1215)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1218 (cdr input~1185902126~1203))) (if (list? temp~1185902126~1218) (let ((p~1185902126~1210 temp~1185902126~1218)) (if (= lev~1185902126~1193 0) (quasiappend~1185902126~839 (map (lambda (p~1185902126~1210) (cons (quote "value") (cons p~1185902126~1210 (quote ())))) p~1185902126~1210) (vquasi~1185902126~835 q~1185902126~1201 lev~1185902126~1193)) (quasicons~1185902126~837 (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote unquote-splicing) (quote ()) (quote (env~1185902126~1215)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 p~1185902126~1210 (- lev~1185902126~1193 1))) (vquasi~1185902126~835 q~1185902126~1201 lev~1185902126~1193)))) (fail~1185902126~1206))) (fail~1185902126~1206))) (fail~1185902126~1206)))))) (if (pair? input~1185902126~1203) (let ((temp~1185902126~1229 (car input~1185902126~1203))) (if (and ($ex:identifier? temp~1185902126~1229) ($ex:free-identifier=? temp~1185902126~1229 ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1225)) 0 (quote (core quasiquote))))) (let ((temp~1185902126~1228 (cdr input~1185902126~1203))) (if (list? temp~1185902126~1228) (let ((p~1185902126~1220 temp~1185902126~1228)) (if (= lev~1185902126~1193 0) (quasilist*~1185902126~841 (map (lambda (p~1185902126~1220) (cons (quote "value") (cons p~1185902126~1220 (quote ())))) p~1185902126~1220) (vquasi~1185902126~835 q~1185902126~1201 lev~1185902126~1193)) (quasicons~1185902126~837 (quasicons~1185902126~837 (cons (quote "quote") (cons ($ex:syntax-rename (quote unquote) (quote ()) (quote (env~1185902126~1225)) 0 (quote (core quasiquote))) (quote ()))) (quasi~1185902126~833 p~1185902126~1220 (- lev~1185902126~1193 1))) (vquasi~1185902126~835 q~1185902126~1201 lev~1185902126~1193)))) (fail~1185902126~1205))) (fail~1185902126~1205))) (fail~1185902126~1205)))))))) (fail~1185902126~1197)))))))) (set! quasicons~1185902126~837 (lambda (x~1185902126~1140 y~1185902126~1141) ((lambda () (let ((input~1185902126~1145 (list x~1185902126~1140 y~1185902126~1141))) (let ((fail~1185902126~1146 (lambda () ($ex:invalid-form input~1185902126~1145)))) (if (pair? input~1185902126~1145) (let ((temp~1185902126~1190 (car input~1185902126~1145))) (let ((x~1185902126~1147 temp~1185902126~1190)) (let ((temp~1185902126~1187 (cdr input~1185902126~1145))) (if (pair? temp~1185902126~1187) (let ((temp~1185902126~1189 (car temp~1185902126~1187))) (let ((y~1185902126~1148 temp~1185902126~1189)) (let ((temp~1185902126~1188 (cdr temp~1185902126~1187))) (if (null? temp~1185902126~1188) (begin (let ((input~1185902126~1152 y~1185902126~1148)) (let ((fail~1185902126~1154 (lambda () (let ((fail~1185902126~1155 (lambda () (let ((fail~1185902126~1156 (lambda () (let ((fail~1185902126~1157 (lambda () ($ex:invalid-form input~1185902126~1152)))) (cons (quote "list*") (cons x~1185902126~1147 (cons y~1185902126~1148 (quote ())))))))) (if (pair? input~1185902126~1152) (let ((temp~1185902126~1162 (car input~1185902126~1152))) (if (equal? temp~1185902126~1162 (quote "list*")) (let ((temp~1185902126~1161 (cdr input~1185902126~1152))) (let ((stuff~1185902126~1159 temp~1185902126~1161)) (cons (quote "list*") (cons x~1185902126~1147 stuff~1185902126~1159)))) (fail~1185902126~1156))) (fail~1185902126~1156)))))) (if (pair? input~1185902126~1152) (let ((temp~1185902126~1166 (car input~1185902126~1152))) (if (equal? temp~1185902126~1166 (quote "list")) (let ((temp~1185902126~1165 (cdr input~1185902126~1152))) (let ((stuff~1185902126~1163 temp~1185902126~1165)) (cons (quote "list") (cons x~1185902126~1147 stuff~1185902126~1163)))) (fail~1185902126~1155))) (fail~1185902126~1155)))))) (if (pair? input~1185902126~1152) (let ((temp~1185902126~1186 (car input~1185902126~1152))) (if (equal? temp~1185902126~1186 (quote "quote")) (let ((temp~1185902126~1183 (cdr input~1185902126~1152))) (if (pair? temp~1185902126~1183) (let ((temp~1185902126~1185 (car temp~1185902126~1183))) (let ((dy~1185902126~1167 temp~1185902126~1185)) (let ((temp~1185902126~1184 (cdr temp~1185902126~1183))) (if (null? temp~1185902126~1184) (let ((input~1185902126~1169 x~1185902126~1147)) (let ((fail~1185902126~1171 (lambda () (let ((fail~1185902126~1172 (lambda () ($ex:invalid-form input~1185902126~1169)))) (if (null? dy~1185902126~1167) (cons (quote "list") (cons x~1185902126~1147 (quote ()))) (cons (quote "list*") (cons x~1185902126~1147 (cons y~1185902126~1148 (quote ()))))))))) (if (pair? input~1185902126~1169) (let ((temp~1185902126~1182 (car input~1185902126~1169))) (if (equal? temp~1185902126~1182 (quote "quote")) (let ((temp~1185902126~1179 (cdr input~1185902126~1169))) (if (pair? temp~1185902126~1179) (let ((temp~1185902126~1181 (car temp~1185902126~1179))) (let ((dx~1185902126~1177 temp~1185902126~1181)) (let ((temp~1185902126~1180 (cdr temp~1185902126~1179))) (if (null? temp~1185902126~1180) (cons (quote "quote") (cons (cons dx~1185902126~1177 dy~1185902126~1167) (quote ()))) (fail~1185902126~1171))))) (fail~1185902126~1171))) (fail~1185902126~1171))) (fail~1185902126~1171)))) (fail~1185902126~1154))))) (fail~1185902126~1154))) (fail~1185902126~1154))) (fail~1185902126~1154))))) (fail~1185902126~1146))))) (fail~1185902126~1146))))) (fail~1185902126~1146)))))))) (set! quasiappend~1185902126~839 (lambda (x~1185902126~1093 y~1185902126~1094) ((lambda () (let ((input~1185902126~1097 y~1185902126~1094)) (let ((fail~1185902126~1098 (lambda () (let ((fail~1185902126~1099 (lambda () ($ex:invalid-form input~1185902126~1097)))) (if (null? x~1185902126~1093) (begin y~1185902126~1094) (begin (let ((input~1185902126~1107 (list x~1185902126~1093 y~1185902126~1094))) (let ((fail~1185902126~1108 (lambda () ($ex:invalid-form input~1185902126~1107)))) (if (pair? input~1185902126~1107) (let ((temp~1185902126~1117 (car input~1185902126~1107))) (if (list? temp~1185902126~1117) (let ((p~1185902126~1109 temp~1185902126~1117)) (let ((temp~1185902126~1114 (cdr input~1185902126~1107))) (if (pair? temp~1185902126~1114) (let ((temp~1185902126~1116 (car temp~1185902126~1114))) (let ((y~1185902126~1110 temp~1185902126~1116)) (let ((temp~1185902126~1115 (cdr temp~1185902126~1114))) (if (null? temp~1185902126~1115) (begin (cons (quote "append") (append p~1185902126~1109 (cons y~1185902126~1110 (quote ()))))) (fail~1185902126~1108))))) (fail~1185902126~1108)))) (fail~1185902126~1108))) (fail~1185902126~1108)))))))))) (if (pair? input~1185902126~1097) (let ((temp~1185902126~1138 (car input~1185902126~1097))) (if (equal? temp~1185902126~1138 (quote "quote")) (let ((temp~1185902126~1135 (cdr input~1185902126~1097))) (if (pair? temp~1185902126~1135) (let ((temp~1185902126~1137 (car temp~1185902126~1135))) (if (null? temp~1185902126~1137) (let ((temp~1185902126~1136 (cdr temp~1185902126~1135))) (if (null? temp~1185902126~1136) (if (null? x~1185902126~1093) (begin (cons (quote "quote") (cons (quote ()) (quote ())))) (if (null? (cdr x~1185902126~1093)) (begin (car x~1185902126~1093)) (begin (let ((input~1185902126~1129 x~1185902126~1093)) (let ((fail~1185902126~1130 (lambda () ($ex:invalid-form input~1185902126~1129)))) (if (list? input~1185902126~1129) (let ((p~1185902126~1131 input~1185902126~1129)) (begin (cons (quote "append") p~1185902126~1131))) (fail~1185902126~1130))))))) (fail~1185902126~1098))) (fail~1185902126~1098))) (fail~1185902126~1098))) (fail~1185902126~1098))) (fail~1185902126~1098)))))))) (set! quasilist*~1185902126~841 (lambda (x~1185902126~1073 y~1185902126~1074) ((lambda () (((lambda (f~1185902126~1080) ((lambda () ((lambda (gen~1185902126~1077~1185902126~1083) ((lambda () (set! f~1185902126~1080 gen~1185902126~1077~1185902126~1083) ((lambda () ((lambda () f~1185902126~1080))))))) (lambda (x~1185902126~1089) ((lambda () (if (null? x~1185902126~1089) y~1185902126~1074 (quasicons~1185902126~837 (car x~1185902126~1089) (f~1185902126~1080 (cdr x~1185902126~1089))))))))))) (unspecified~1185902126~199)) x~1185902126~1073))))) (set! quasivector~1185902126~843 (lambda (x~1185902126~991) ((lambda () (let ((input~1185902126~994 x~1185902126~991)) (let ((fail~1185902126~995 (lambda () (let ((fail~1185902126~996 (lambda () ($ex:invalid-form input~1185902126~994)))) (((lambda (f~1185902126~1002) ((lambda () ((lambda (gen~1185902126~999~1185902126~1005) ((lambda () (set! f~1185902126~1002 gen~1185902126~999~1185902126~1005) ((lambda () ((lambda () f~1185902126~1002))))))) (lambda (y~1185902126~1011 k~1185902126~1012) ((lambda () (let ((input~1185902126~1015 y~1185902126~1011)) (let ((fail~1185902126~1016 (lambda () (let ((fail~1185902126~1017 (lambda () (let ((fail~1185902126~1018 (lambda () (let ((fail~1185902126~1019 (lambda () ($ex:invalid-form input~1185902126~1015)))) (let ((else~1185902126~1020 input~1185902126~1015)) (let ((input~1185902126~1025 x~1185902126~991)) (let ((fail~1185902126~1026 (lambda () ($ex:invalid-form input~1185902126~1025)))) (let ((gen~1185902126~1022~1185902126~1027 input~1185902126~1025)) (begin (cons (quote "list->vector") (cons gen~1185902126~1022~1185902126~1027 (quote ())))))))))))) (if (pair? input~1185902126~1015) (let ((temp~1185902126~1042 (car input~1185902126~1015))) (if (equal? temp~1185902126~1042 (quote "list*")) (let ((temp~1185902126~1037 (cdr input~1185902126~1015))) (if (>= ($ex:dotted-length temp~1185902126~1037) 1) (let ((temp~1185902126~1041 ($ex:dotted-butlast temp~1185902126~1037 1))) (if (list? temp~1185902126~1041) (let ((y~1185902126~1031 temp~1185902126~1041)) (let ((temp~1185902126~1038 ($ex:dotted-last temp~1185902126~1037 1))) (if (pair? temp~1185902126~1038) (let ((temp~1185902126~1040 (car temp~1185902126~1038))) (let ((z~1185902126~1032 temp~1185902126~1040)) (let ((temp~1185902126~1039 (cdr temp~1185902126~1038))) (if (null? temp~1185902126~1039) (f~1185902126~1002 z~1185902126~1032 (lambda (ls~1185902126~1035) ((lambda () (k~1185902126~1012 (append y~1185902126~1031 ls~1185902126~1035)))))) (fail~1185902126~1018))))) (fail~1185902126~1018)))) (fail~1185902126~1018))) (fail~1185902126~1018))) (fail~1185902126~1018))) (fail~1185902126~1018)))))) (if (pair? input~1185902126~1015) (let ((temp~1185902126~1046 (car input~1185902126~1015))) (if (equal? temp~1185902126~1046 (quote "list")) (let ((temp~1185902126~1045 (cdr input~1185902126~1015))) (if (list? temp~1185902126~1045) (let ((y~1185902126~1043 temp~1185902126~1045)) (k~1185902126~1012 y~1185902126~1043)) (fail~1185902126~1017))) (fail~1185902126~1017))) (fail~1185902126~1017)))))) (if (pair? input~1185902126~1015) (let ((temp~1185902126~1052 (car input~1185902126~1015))) (if (equal? temp~1185902126~1052 (quote "quote")) (let ((temp~1185902126~1049 (cdr input~1185902126~1015))) (if (pair? temp~1185902126~1049) (let ((temp~1185902126~1051 (car temp~1185902126~1049))) (if (list? temp~1185902126~1051) (let ((y~1185902126~1047 temp~1185902126~1051)) (let ((temp~1185902126~1050 (cdr temp~1185902126~1049))) (if (null? temp~1185902126~1050) (k~1185902126~1012 (map (lambda (y~1185902126~1047) (cons (quote "quote") (cons y~1185902126~1047 (quote ())))) y~1185902126~1047)) (fail~1185902126~1016)))) (fail~1185902126~1016))) (fail~1185902126~1016))) (fail~1185902126~1016))) (fail~1185902126~1016))))))))))) (unspecified~1185902126~199)) x~1185902126~991 (lambda (ls~1185902126~1054) ((lambda () (let ((input~1185902126~1060 ls~1185902126~1054)) (let ((fail~1185902126~1061 (lambda () ($ex:invalid-form input~1185902126~1060)))) (if (list? input~1185902126~1060) (let ((gen~1185902126~1056~1185902126~1062 input~1185902126~1060)) (begin (cons (quote "vector") gen~1185902126~1056~1185902126~1062))) (fail~1185902126~1061)))))))))))) (if (pair? input~1185902126~994) (let ((temp~1185902126~1071 (car input~1185902126~994))) (if (equal? temp~1185902126~1071 (quote "quote")) (let ((temp~1185902126~1068 (cdr input~1185902126~994))) (if (pair? temp~1185902126~1068) (let ((temp~1185902126~1070 (car temp~1185902126~1068))) (if (list? temp~1185902126~1070) (let ((x~1185902126~1066 temp~1185902126~1070)) (let ((temp~1185902126~1069 (cdr temp~1185902126~1068))) (if (null? temp~1185902126~1069) (cons (quote "quote") (cons (list->vector x~1185902126~1066) (quote ()))) (fail~1185902126~995)))) (fail~1185902126~995))) (fail~1185902126~995))) (fail~1185902126~995))) (fail~1185902126~995)))))))) (set! emit~1185902126~845 (lambda (x~1185902126~860) ((lambda () (let ((input~1185902126~863 x~1185902126~860)) (let ((fail~1185902126~864 (lambda () (let ((fail~1185902126~865 (lambda () (let ((fail~1185902126~866 (lambda () (let ((fail~1185902126~867 (lambda () (let ((fail~1185902126~868 (lambda () (let ((fail~1185902126~869 (lambda () (let ((fail~1185902126~870 (lambda () ($ex:invalid-form input~1185902126~863)))) (if (pair? input~1185902126~863) (let ((temp~1185902126~876 (car input~1185902126~863))) (if (equal? temp~1185902126~876 (quote "value")) (let ((temp~1185902126~873 (cdr input~1185902126~863))) (if (pair? temp~1185902126~873) (let ((temp~1185902126~875 (car temp~1185902126~873))) (let ((x~1185902126~871 temp~1185902126~875)) (let ((temp~1185902126~874 (cdr temp~1185902126~873))) (if (null? temp~1185902126~874) x~1185902126~871 (fail~1185902126~870))))) (fail~1185902126~870))) (fail~1185902126~870))) (fail~1185902126~870)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~893 (car input~1185902126~863))) (if (equal? temp~1185902126~893 (quote "list->vector")) (let ((temp~1185902126~890 (cdr input~1185902126~863))) (if (pair? temp~1185902126~890) (let ((temp~1185902126~892 (car temp~1185902126~890))) (let ((x~1185902126~877 temp~1185902126~892)) (let ((temp~1185902126~891 (cdr temp~1185902126~890))) (if (null? temp~1185902126~891) (let ((input~1185902126~882 (emit~1185902126~845 x~1185902126~877))) (let ((fail~1185902126~884 (lambda () ($ex:invalid-form input~1185902126~882)))) (let ((gen~1185902126~879~1185902126~885 input~1185902126~882)) (begin (cons ($ex:syntax-rename (quote list->vector) (quote ()) (quote (env~1185902126~889)) 0 (quote (core quasiquote))) (cons gen~1185902126~879~1185902126~885 (quote ()))))))) (fail~1185902126~869))))) (fail~1185902126~869))) (fail~1185902126~869))) (fail~1185902126~869)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~908 (car input~1185902126~863))) (if (equal? temp~1185902126~908 (quote "vector")) (let ((temp~1185902126~907 (cdr input~1185902126~863))) (if (list? temp~1185902126~907) (let ((x~1185902126~894 temp~1185902126~907)) (let ((input~1185902126~899 (map emit~1185902126~845 x~1185902126~894))) (let ((fail~1185902126~901 (lambda () ($ex:invalid-form input~1185902126~899)))) (if (list? input~1185902126~899) (let ((gen~1185902126~896~1185902126~902 input~1185902126~899)) (begin (cons ($ex:syntax-rename (quote vector) (quote ()) (quote (env~1185902126~906)) 0 (quote (core quasiquote))) gen~1185902126~896~1185902126~902))) (fail~1185902126~901))))) (fail~1185902126~868))) (fail~1185902126~868))) (fail~1185902126~868)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~923 (car input~1185902126~863))) (if (equal? temp~1185902126~923 (quote "append")) (let ((temp~1185902126~922 (cdr input~1185902126~863))) (if (list? temp~1185902126~922) (let ((x~1185902126~909 temp~1185902126~922)) (let ((input~1185902126~914 (map emit~1185902126~845 x~1185902126~909))) (let ((fail~1185902126~916 (lambda () ($ex:invalid-form input~1185902126~914)))) (if (list? input~1185902126~914) (let ((gen~1185902126~911~1185902126~917 input~1185902126~914)) (begin (cons ($ex:syntax-rename (quote append) (quote ()) (quote (env~1185902126~921)) 0 (quote (core quasiquote))) gen~1185902126~911~1185902126~917))) (fail~1185902126~916))))) (fail~1185902126~867))) (fail~1185902126~867))) (fail~1185902126~867)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~967 (car input~1185902126~863))) (if (equal? temp~1185902126~967 (quote "list*")) (let ((temp~1185902126~962 (cdr input~1185902126~863))) (if (>= ($ex:dotted-length temp~1185902126~962) 1) (let ((temp~1185902126~966 ($ex:dotted-butlast temp~1185902126~962 1))) (if (list? temp~1185902126~966) (let ((x~1185902126~924 temp~1185902126~966)) (let ((temp~1185902126~963 ($ex:dotted-last temp~1185902126~962 1))) (if (pair? temp~1185902126~963) (let ((temp~1185902126~965 (car temp~1185902126~963))) (let ((y~1185902126~925 temp~1185902126~965)) (let ((temp~1185902126~964 (cdr temp~1185902126~963))) (if (null? temp~1185902126~964) (((lambda (f~1185902126~931) ((lambda () ((lambda (gen~1185902126~928~1185902126~934) ((lambda () (set! f~1185902126~931 gen~1185902126~928~1185902126~934) ((lambda () ((lambda () f~1185902126~931))))))) (lambda (x*~1185902126~940) ((lambda () (if (null? x*~1185902126~940) (emit~1185902126~845 y~1185902126~925) (let ((input~1185902126~949 (list (emit~1185902126~845 (car x*~1185902126~940)) (f~1185902126~931 (cdr x*~1185902126~940))))) (let ((fail~1185902126~950 (lambda () ($ex:invalid-form input~1185902126~949)))) (if (pair? input~1185902126~949) (let ((temp~1185902126~960 (car input~1185902126~949))) (let ((gen~1185902126~946~1185902126~951 temp~1185902126~960)) (let ((temp~1185902126~957 (cdr input~1185902126~949))) (if (pair? temp~1185902126~957) (let ((temp~1185902126~959 (car temp~1185902126~957))) (let ((gen~1185902126~945~1185902126~952 temp~1185902126~959)) (let ((temp~1185902126~958 (cdr temp~1185902126~957))) (if (null? temp~1185902126~958) (begin (cons ($ex:syntax-rename (quote cons) (quote ()) (quote (env~1185902126~956)) 0 (quote (core quasiquote))) (cons gen~1185902126~946~1185902126~951 (cons gen~1185902126~945~1185902126~952 (quote ()))))) (fail~1185902126~950))))) (fail~1185902126~950))))) (fail~1185902126~950)))))))))))) (unspecified~1185902126~199)) x~1185902126~924) (fail~1185902126~866))))) (fail~1185902126~866)))) (fail~1185902126~866))) (fail~1185902126~866))) (fail~1185902126~866))) (fail~1185902126~866)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~982 (car input~1185902126~863))) (if (equal? temp~1185902126~982 (quote "list")) (let ((temp~1185902126~981 (cdr input~1185902126~863))) (if (list? temp~1185902126~981) (let ((x~1185902126~968 temp~1185902126~981)) (let ((input~1185902126~973 (map emit~1185902126~845 x~1185902126~968))) (let ((fail~1185902126~975 (lambda () ($ex:invalid-form input~1185902126~973)))) (if (list? input~1185902126~973) (let ((gen~1185902126~970~1185902126~976 input~1185902126~973)) (begin (cons ($ex:syntax-rename (quote list) (quote ()) (quote (env~1185902126~980)) 0 (quote (core quasiquote))) gen~1185902126~970~1185902126~976))) (fail~1185902126~975))))) (fail~1185902126~865))) (fail~1185902126~865))) (fail~1185902126~865)))))) (if (pair? input~1185902126~863) (let ((temp~1185902126~989 (car input~1185902126~863))) (if (equal? temp~1185902126~989 (quote "quote")) (let ((temp~1185902126~986 (cdr input~1185902126~863))) (if (pair? temp~1185902126~986) (let ((temp~1185902126~988 (car temp~1185902126~986))) (let ((x~1185902126~983 temp~1185902126~988)) (let ((temp~1185902126~987 (cdr temp~1185902126~986))) (if (null? temp~1185902126~987) (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185902126~985)) 0 (quote (core quasiquote))) (cons x~1185902126~983 (quote ()))) (fail~1185902126~864))))) (fail~1185902126~864))) (fail~1185902126~864))) (fail~1185902126~864)))))))) (lambda (x~1185902126~848) ((lambda () (let ((input~1185902126~851 x~1185902126~848)) (let ((fail~1185902126~852 (lambda () ($ex:invalid-form input~1185902126~851)))) (if (pair? input~1185902126~851) (let ((temp~1185902126~858 (car input~1185902126~851))) (let ((temp~1185902126~855 (cdr input~1185902126~851))) (if (pair? temp~1185902126~855) (let ((temp~1185902126~857 (car temp~1185902126~855))) (let ((e~1185902126~853 temp~1185902126~857)) (let ((temp~1185902126~856 (cdr temp~1185902126~855))) (if (null? temp~1185902126~856) (emit~1185902126~845 (quasi~1185902126~833 e~1185902126~853 0)) (fail~1185902126~852))))) (fail~1185902126~852)))) (fail~1185902126~852)))))))) ($ex:unspecified) ($ex:unspecified) ($ex:unspecified) ($ex:unspecified) ($ex:unspecified) ($ex:unspecified) ($ex:unspecified))))) ($ex:register-macro! (quote unquote~1185902126~1299) (lambda (e~1185902126~1301) ((lambda () ($ex:syntax-violation (quote unquote) "Invalid expression" e~1185902126~1301))))) ($ex:register-macro! (quote unquote-splicing~1185902126~1304) (lambda (e~1185902126~1306) ((lambda () ($ex:syntax-violation (quote unquote-splicing) "Invalid expression" e~1185902126~1306))))) ($ex:unspecified)) (define (~core.quasiquote~invoke) ($ex:unspecified)))

(begin (define ~core.let-values~envs (quote ((env~1185902126~1481 ((((dummy c~1185902126~1454) pattern-variable dummy~1185902126~1477 (0) 0 (core let-values)) ((?body0) pattern-variable ?body0~1185902126~1478 (1) 0 (core let-values)) ((?body1) pattern-variable ?body1~1185902126~1479 (1) 1 (core let-values)))) (()) ((((x c~1185902126~1454) variable x~1185902126~1456 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1468 ((((dummy c~1185902126~1454) pattern-variable dummy~1185902126~1462 (0) 0 (core let-values)) ((?binding0) pattern-variable ?binding0~1185902126~1463 (1) 0 (core let-values)) ((?binding1) pattern-variable ?binding1~1185902126~1464 (1) 1 (core let-values)) ((?body0) pattern-variable ?body0~1185902126~1465 (1) 0 (core let-values)) ((?body1) pattern-variable ?body1~1185902126~1466 (1) 1 (core let-values)))) (()) ((((x c~1185902126~1454) variable x~1185902126~1456 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1445 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1440 (0) 0 (core let-values)) ((?binding) pattern-variable ?binding~1185902126~1441 (1) 1 (core let-values)) ((?body0) pattern-variable ?body0~1185902126~1442 (1) 0 (core let-values)) ((?body1) pattern-variable ?body1~1185902126~1443 (1) 1 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1429 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1425 (0) 0 (core let-values)) ((?tmps) pattern-variable ?tmps~1185902126~1426 (1) 0 (core let-values)) ((?body) pattern-variable ?body~1185902126~1427 (1) 0 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1408 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1401 (0) 0 (core let-values)) ((?b0) pattern-variable ?b0~1185902126~1402 (1) 0 (core let-values)) ((?e0) pattern-variable ?e0~1185902126~1403 (1) 0 (core let-values)) ((?binding) pattern-variable ?binding~1185902126~1404 (1) 1 (core let-values)) ((?tmps) pattern-variable ?tmps~1185902126~1405 (1) 0 (core let-values)) ((?body) pattern-variable ?body~1185902126~1406 (1) 0 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1384 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1377 (0) 0 (core let-values)) ((?e0) pattern-variable ?e0~1185902126~1378 (1) 0 (core let-values)) ((?args) pattern-variable ?args~1185902126~1379 (1) 0 (core let-values)) ((?bindings) pattern-variable ?bindings~1185902126~1380 (1) 0 (core let-values)) ((?tmps) pattern-variable ?tmps~1185902126~1381 (1) 0 (core let-values)) ((?body) pattern-variable ?body~1185902126~1382 (1) 0 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1358 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1349 (0) 0 (core let-values)) ((?a) pattern-variable ?a~1185902126~1350 (1) 0 (core let-values)) ((?b) pattern-variable ?b~1185902126~1351 (1) 0 (core let-values)) ((?e0) pattern-variable ?e0~1185902126~1352 (1) 0 (core let-values)) ((?arg) pattern-variable ?arg~1185902126~1353 (1) 1 (core let-values)) ((?bindings) pattern-variable ?bindings~1185902126~1354 (1) 0 (core let-values)) ((?tmp) pattern-variable ?tmp~1185902126~1355 (1) 1 (core let-values)) ((?body) pattern-variable ?body~1185902126~1356 (1) 0 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1332 ((((dummy c~1185902126~1312) pattern-variable dummy~1185902126~1324 (0) 0 (core let-values)) ((?a) pattern-variable ?a~1185902126~1325 (1) 0 (core let-values)) ((?e0) pattern-variable ?e0~1185902126~1326 (1) 0 (core let-values)) ((?arg) pattern-variable ?arg~1185902126~1327 (1) 1 (core let-values)) ((?bindings) pattern-variable ?bindings~1185902126~1328 (1) 0 (core let-values)) ((?tmp) pattern-variable ?tmp~1185902126~1329 (1) 1 (core let-values)) ((?body) pattern-variable ?body~1185902126~1330 (1) 0 (core let-values)))) (()) ((((x c~1185902126~1312) variable x~1185902126~1314 (0) #f (core let-values)))) . env~1185902126~1309) (env~1185902126~1309 ((((let*-values) macro let*-values~1185902126~1453 (0) #f (core let-values)) ((let-values) macro let-values~1185902126~1311 (0) #f (core let-values)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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 ()) ((syntax-rules) macro syntax-rules~1185902126~67 (1) #f (core syntax-rules)) ((letrec*) macro letrec*~1185902126~201 (0) #f (core let)) ((letrec) macro letrec~1185902126~165 (0) #f (core let)) ((let) macro let~1185902126~115 (0) #f (core let)))))))) (define ~core.let-values~exports (quote ((let-values macro let-values~1185902126~1311 (0) #f (core let-values)) (let*-values macro let*-values~1185902126~1453 (0) #f (core let-values))))) (define ~core.let-values~imports (quote (((core let) 0) ((core syntax-rules) 1) ((core primitives) 1 0)))) (define (~core.let-values~visit) ($ex:register-macro! (quote let-values~1185902126~1311) (lambda (x~1185902126~1314) ((lambda () (let ((input~1185902126~1317 x~1185902126~1314)) (let ((fail~1185902126~1318 (lambda () (let ((fail~1185902126~1319 (lambda () (let ((fail~1185902126~1320 (lambda () (let ((fail~1185902126~1321 (lambda () (let ((fail~1185902126~1322 (lambda () (let ((fail~1185902126~1323 (lambda () ($ex:invalid-form input~1185902126~1317)))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1348 (car input~1185902126~1317))) (let ((dummy~1185902126~1324 temp~1185902126~1348)) (let ((temp~1185902126~1333 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1333) (let ((temp~1185902126~1347 (car temp~1185902126~1333))) (if (equal? temp~1185902126~1347 (quote "mktmp")) (let ((temp~1185902126~1334 (cdr temp~1185902126~1333))) (if (pair? temp~1185902126~1334) (let ((temp~1185902126~1346 (car temp~1185902126~1334))) (let ((?a~1185902126~1325 temp~1185902126~1346)) (let ((temp~1185902126~1335 (cdr temp~1185902126~1334))) (if (pair? temp~1185902126~1335) (let ((temp~1185902126~1345 (car temp~1185902126~1335))) (let ((?e0~1185902126~1326 temp~1185902126~1345)) (let ((temp~1185902126~1336 (cdr temp~1185902126~1335))) (if (pair? temp~1185902126~1336) (let ((temp~1185902126~1344 (car temp~1185902126~1336))) (if (list? temp~1185902126~1344) (let ((?arg~1185902126~1327 temp~1185902126~1344)) (let ((temp~1185902126~1337 (cdr temp~1185902126~1336))) (if (pair? temp~1185902126~1337) (let ((temp~1185902126~1343 (car temp~1185902126~1337))) (let ((?bindings~1185902126~1328 temp~1185902126~1343)) (let ((temp~1185902126~1338 (cdr temp~1185902126~1337))) (if (pair? temp~1185902126~1338) (let ((temp~1185902126~1342 (car temp~1185902126~1338))) (if (list? temp~1185902126~1342) (let ((?tmp~1185902126~1329 temp~1185902126~1342)) (let ((temp~1185902126~1339 (cdr temp~1185902126~1338))) (if (pair? temp~1185902126~1339) (let ((temp~1185902126~1341 (car temp~1185902126~1339))) (let ((?body~1185902126~1330 temp~1185902126~1341)) (let ((temp~1185902126~1340 (cdr temp~1185902126~1339))) (if (null? temp~1185902126~1340) (cons ($ex:syntax-rename (quote call-with-values) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values))) (cons (quote ()) (cons ?e0~1185902126~1326 (quote ())))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values))) (cons (append ?arg~1185902126~1327 ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values)))) (cons (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?bindings~1185902126~1328 (cons (append ?tmp~1185902126~1329 (cons (cons ?a~1185902126~1325 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~1332)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons ?body~1185902126~1330 (quote ())))))) (quote ())))) (quote ())))) (fail~1185902126~1323))))) (fail~1185902126~1323)))) (fail~1185902126~1323))) (fail~1185902126~1323))))) (fail~1185902126~1323)))) (fail~1185902126~1323))) (fail~1185902126~1323))))) (fail~1185902126~1323))))) (fail~1185902126~1323))) (fail~1185902126~1323))) (fail~1185902126~1323))))) (fail~1185902126~1323)))))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1376 (car input~1185902126~1317))) (let ((dummy~1185902126~1349 temp~1185902126~1376)) (let ((temp~1185902126~1359 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1359) (let ((temp~1185902126~1375 (car temp~1185902126~1359))) (if (equal? temp~1185902126~1375 (quote "mktmp")) (let ((temp~1185902126~1360 (cdr temp~1185902126~1359))) (if (pair? temp~1185902126~1360) (let ((temp~1185902126~1372 (car temp~1185902126~1360))) (if (pair? temp~1185902126~1372) (let ((temp~1185902126~1374 (car temp~1185902126~1372))) (let ((?a~1185902126~1350 temp~1185902126~1374)) (let ((temp~1185902126~1373 (cdr temp~1185902126~1372))) (let ((?b~1185902126~1351 temp~1185902126~1373)) (let ((temp~1185902126~1361 (cdr temp~1185902126~1360))) (if (pair? temp~1185902126~1361) (let ((temp~1185902126~1371 (car temp~1185902126~1361))) (let ((?e0~1185902126~1352 temp~1185902126~1371)) (let ((temp~1185902126~1362 (cdr temp~1185902126~1361))) (if (pair? temp~1185902126~1362) (let ((temp~1185902126~1370 (car temp~1185902126~1362))) (if (list? temp~1185902126~1370) (let ((?arg~1185902126~1353 temp~1185902126~1370)) (let ((temp~1185902126~1363 (cdr temp~1185902126~1362))) (if (pair? temp~1185902126~1363) (let ((temp~1185902126~1369 (car temp~1185902126~1363))) (let ((?bindings~1185902126~1354 temp~1185902126~1369)) (let ((temp~1185902126~1364 (cdr temp~1185902126~1363))) (if (pair? temp~1185902126~1364) (let ((temp~1185902126~1368 (car temp~1185902126~1364))) (if (list? temp~1185902126~1368) (let ((?tmp~1185902126~1355 temp~1185902126~1368)) (let ((temp~1185902126~1365 (cdr temp~1185902126~1364))) (if (pair? temp~1185902126~1365) (let ((temp~1185902126~1367 (car temp~1185902126~1365))) (let ((?body~1185902126~1356 temp~1185902126~1367)) (let ((temp~1185902126~1366 (cdr temp~1185902126~1365))) (if (null? temp~1185902126~1366) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1358)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons ?b~1185902126~1351 (cons ?e0~1185902126~1352 (cons (append ?arg~1185902126~1353 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~1358)) 0 (quote (core let-values))) (quote ()))) (cons ?bindings~1185902126~1354 (cons (append ?tmp~1185902126~1355 (cons (cons ?a~1185902126~1350 (cons ($ex:syntax-rename (quote x) (quote ()) (quote (env~1185902126~1358)) 0 (quote (core let-values))) (quote ()))) (quote ()))) (cons ?body~1185902126~1356 (quote ()))))))))) (fail~1185902126~1322))))) (fail~1185902126~1322)))) (fail~1185902126~1322))) (fail~1185902126~1322))))) (fail~1185902126~1322)))) (fail~1185902126~1322))) (fail~1185902126~1322))))) (fail~1185902126~1322))))))) (fail~1185902126~1322))) (fail~1185902126~1322))) (fail~1185902126~1322))) (fail~1185902126~1322))))) (fail~1185902126~1322)))))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1400 (car input~1185902126~1317))) (let ((dummy~1185902126~1377 temp~1185902126~1400)) (let ((temp~1185902126~1385 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1385) (let ((temp~1185902126~1399 (car temp~1185902126~1385))) (if (equal? temp~1185902126~1399 (quote "mktmp")) (let ((temp~1185902126~1386 (cdr temp~1185902126~1385))) (if (pair? temp~1185902126~1386) (let ((temp~1185902126~1398 (car temp~1185902126~1386))) (if (null? temp~1185902126~1398) (let ((temp~1185902126~1387 (cdr temp~1185902126~1386))) (if (pair? temp~1185902126~1387) (let ((temp~1185902126~1397 (car temp~1185902126~1387))) (let ((?e0~1185902126~1378 temp~1185902126~1397)) (let ((temp~1185902126~1388 (cdr temp~1185902126~1387))) (if (pair? temp~1185902126~1388) (let ((temp~1185902126~1396 (car temp~1185902126~1388))) (let ((?args~1185902126~1379 temp~1185902126~1396)) (let ((temp~1185902126~1389 (cdr temp~1185902126~1388))) (if (pair? temp~1185902126~1389) (let ((temp~1185902126~1395 (car temp~1185902126~1389))) (let ((?bindings~1185902126~1380 temp~1185902126~1395)) (let ((temp~1185902126~1390 (cdr temp~1185902126~1389))) (if (pair? temp~1185902126~1390) (let ((temp~1185902126~1394 (car temp~1185902126~1390))) (let ((?tmps~1185902126~1381 temp~1185902126~1394)) (let ((temp~1185902126~1391 (cdr temp~1185902126~1390))) (if (pair? temp~1185902126~1391) (let ((temp~1185902126~1393 (car temp~1185902126~1391))) (let ((?body~1185902126~1382 temp~1185902126~1393)) (let ((temp~1185902126~1392 (cdr temp~1185902126~1391))) (if (null? temp~1185902126~1392) (cons ($ex:syntax-rename (quote call-with-values) (quote ()) (quote (env~1185902126~1384)) 0 (quote (core let-values))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1384)) 0 (quote (core let-values))) (cons (quote ()) (cons ?e0~1185902126~1378 (quote ())))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1384)) 0 (quote (core let-values))) (cons ?args~1185902126~1379 (cons (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1384)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?bindings~1185902126~1380 (cons ?tmps~1185902126~1381 (cons ?body~1185902126~1382 (quote ())))))) (quote ())))) (quote ())))) (fail~1185902126~1321))))) (fail~1185902126~1321))))) (fail~1185902126~1321))))) (fail~1185902126~1321))))) (fail~1185902126~1321))))) (fail~1185902126~1321))) (fail~1185902126~1321))) (fail~1185902126~1321))) (fail~1185902126~1321))) (fail~1185902126~1321))))) (fail~1185902126~1321)))))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1424 (car input~1185902126~1317))) (let ((dummy~1185902126~1401 temp~1185902126~1424)) (let ((temp~1185902126~1409 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1409) (let ((temp~1185902126~1423 (car temp~1185902126~1409))) (if (equal? temp~1185902126~1423 (quote "bind")) (let ((temp~1185902126~1410 (cdr temp~1185902126~1409))) (if (pair? temp~1185902126~1410) (let ((temp~1185902126~1416 (car temp~1185902126~1410))) (if (pair? temp~1185902126~1416) (let ((temp~1185902126~1418 (car temp~1185902126~1416))) (if (pair? temp~1185902126~1418) (let ((temp~1185902126~1422 (car temp~1185902126~1418))) (let ((?b0~1185902126~1402 temp~1185902126~1422)) (let ((temp~1185902126~1419 (cdr temp~1185902126~1418))) (if (pair? temp~1185902126~1419) (let ((temp~1185902126~1421 (car temp~1185902126~1419))) (let ((?e0~1185902126~1403 temp~1185902126~1421)) (let ((temp~1185902126~1420 (cdr temp~1185902126~1419))) (if (null? temp~1185902126~1420) (let ((temp~1185902126~1417 (cdr temp~1185902126~1416))) (if (list? temp~1185902126~1417) (let ((?binding~1185902126~1404 temp~1185902126~1417)) (let ((temp~1185902126~1411 (cdr temp~1185902126~1410))) (if (pair? temp~1185902126~1411) (let ((temp~1185902126~1415 (car temp~1185902126~1411))) (let ((?tmps~1185902126~1405 temp~1185902126~1415)) (let ((temp~1185902126~1412 (cdr temp~1185902126~1411))) (if (pair? temp~1185902126~1412) (let ((temp~1185902126~1414 (car temp~1185902126~1412))) (let ((?body~1185902126~1406 temp~1185902126~1414)) (let ((temp~1185902126~1413 (cdr temp~1185902126~1412))) (if (null? temp~1185902126~1413) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1408)) 0 (quote (core let-values))) (cons (quote "mktmp") (cons ?b0~1185902126~1402 (cons ?e0~1185902126~1403 (cons (quote ()) (cons ?binding~1185902126~1404 (cons ?tmps~1185902126~1405 (cons ?body~1185902126~1406 (quote ()))))))))) (fail~1185902126~1320))))) (fail~1185902126~1320))))) (fail~1185902126~1320)))) (fail~1185902126~1320))) (fail~1185902126~1320))))) (fail~1185902126~1320))))) (fail~1185902126~1320))) (fail~1185902126~1320))) (fail~1185902126~1320))) (fail~1185902126~1320))) (fail~1185902126~1320))))) (fail~1185902126~1320)))))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1439 (car input~1185902126~1317))) (let ((dummy~1185902126~1425 temp~1185902126~1439)) (let ((temp~1185902126~1430 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1430) (let ((temp~1185902126~1438 (car temp~1185902126~1430))) (if (equal? temp~1185902126~1438 (quote "bind")) (let ((temp~1185902126~1431 (cdr temp~1185902126~1430))) (if (pair? temp~1185902126~1431) (let ((temp~1185902126~1437 (car temp~1185902126~1431))) (if (null? temp~1185902126~1437) (let ((temp~1185902126~1432 (cdr temp~1185902126~1431))) (if (pair? temp~1185902126~1432) (let ((temp~1185902126~1436 (car temp~1185902126~1432))) (let ((?tmps~1185902126~1426 temp~1185902126~1436)) (let ((temp~1185902126~1433 (cdr temp~1185902126~1432))) (if (pair? temp~1185902126~1433) (let ((temp~1185902126~1435 (car temp~1185902126~1433))) (let ((?body~1185902126~1427 temp~1185902126~1435)) (let ((temp~1185902126~1434 (cdr temp~1185902126~1433))) (if (null? temp~1185902126~1434) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~1429)) 0 (quote (core let-values))) (cons ?tmps~1185902126~1426 (cons ?body~1185902126~1427 (quote ())))) (fail~1185902126~1319))))) (fail~1185902126~1319))))) (fail~1185902126~1319))) (fail~1185902126~1319))) (fail~1185902126~1319))) (fail~1185902126~1319))) (fail~1185902126~1319))))) (fail~1185902126~1319)))))) (if (pair? input~1185902126~1317) (let ((temp~1185902126~1451 (car input~1185902126~1317))) (let ((dummy~1185902126~1440 temp~1185902126~1451)) (let ((temp~1185902126~1446 (cdr input~1185902126~1317))) (if (pair? temp~1185902126~1446) (let ((temp~1185902126~1450 (car temp~1185902126~1446))) (if (list? temp~1185902126~1450) (let ((?binding~1185902126~1441 temp~1185902126~1450)) (let ((temp~1185902126~1447 (cdr temp~1185902126~1446))) (if (pair? temp~1185902126~1447) (let ((temp~1185902126~1449 (car temp~1185902126~1447))) (let ((?body0~1185902126~1442 temp~1185902126~1449)) (let ((temp~1185902126~1448 (cdr temp~1185902126~1447))) (if (list? temp~1185902126~1448) (let ((?body1~1185902126~1443 temp~1185902126~1448)) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1445)) 0 (quote (core let-values))) (cons (quote "bind") (cons ?binding~1185902126~1441 (cons (quote ()) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1445)) 0 (quote (core let-values))) (cons ?body0~1185902126~1442 ?body1~1185902126~1443)) (quote ()))))))) (fail~1185902126~1318))))) (fail~1185902126~1318)))) (fail~1185902126~1318))) (fail~1185902126~1318))))) (fail~1185902126~1318)))))))) ($ex:register-macro! (quote let*-values~1185902126~1453) (lambda (x~1185902126~1456) ((lambda () (let ((input~1185902126~1459 x~1185902126~1456)) (let ((fail~1185902126~1460 (lambda () (let ((fail~1185902126~1461 (lambda () ($ex:invalid-form input~1185902126~1459)))) (if (pair? input~1185902126~1459) (let ((temp~1185902126~1476 (car input~1185902126~1459))) (let ((dummy~1185902126~1462 temp~1185902126~1476)) (let ((temp~1185902126~1469 (cdr input~1185902126~1459))) (if (pair? temp~1185902126~1469) (let ((temp~1185902126~1473 (car temp~1185902126~1469))) (if (pair? temp~1185902126~1473) (let ((temp~1185902126~1475 (car temp~1185902126~1473))) (let ((?binding0~1185902126~1463 temp~1185902126~1475)) (let ((temp~1185902126~1474 (cdr temp~1185902126~1473))) (if (list? temp~1185902126~1474) (let ((?binding1~1185902126~1464 temp~1185902126~1474)) (let ((temp~1185902126~1470 (cdr temp~1185902126~1469))) (if (pair? temp~1185902126~1470) (let ((temp~1185902126~1472 (car temp~1185902126~1470))) (let ((?body0~1185902126~1465 temp~1185902126~1472)) (let ((temp~1185902126~1471 (cdr temp~1185902126~1470))) (if (list? temp~1185902126~1471) (let ((?body1~1185902126~1466 temp~1185902126~1471)) (cons ($ex:syntax-rename (quote let-values) (quote ()) (quote (env~1185902126~1468)) 0 (quote (core let-values))) (cons (cons ?binding0~1185902126~1463 (quote ())) (cons (cons ($ex:syntax-rename (quote let*-values) (quote ()) (quote (env~1185902126~1468)) 0 (quote (core let-values))) (cons ?binding1~1185902126~1464 (cons ?body0~1185902126~1465 ?body1~1185902126~1466))) (quote ()))))) (fail~1185902126~1461))))) (fail~1185902126~1461)))) (fail~1185902126~1461))))) (fail~1185902126~1461))) (fail~1185902126~1461))))) (fail~1185902126~1461)))))) (if (pair? input~1185902126~1459) (let ((temp~1185902126~1487 (car input~1185902126~1459))) (let ((dummy~1185902126~1477 temp~1185902126~1487)) (let ((temp~1185902126~1482 (cdr input~1185902126~1459))) (if (pair? temp~1185902126~1482) (let ((temp~1185902126~1486 (car temp~1185902126~1482))) (if (null? temp~1185902126~1486) (let ((temp~1185902126~1483 (cdr temp~1185902126~1482))) (if (pair? temp~1185902126~1483) (let ((temp~1185902126~1485 (car temp~1185902126~1483))) (let ((?body0~1185902126~1478 temp~1185902126~1485)) (let ((temp~1185902126~1484 (cdr temp~1185902126~1483))) (if (list? temp~1185902126~1484) (let ((?body1~1185902126~1479 temp~1185902126~1484)) (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1481)) 0 (quote (core let-values))) (cons ?body0~1185902126~1478 ?body1~1185902126~1479))) (fail~1185902126~1460))))) (fail~1185902126~1460))) (fail~1185902126~1460))) (fail~1185902126~1460))))) (fail~1185902126~1460)))))))) ($ex:unspecified)) (define (~core.let-values~invoke) ($ex:unspecified)))

(begin (define ~rnrs.control~envs (quote ((env~1185902126~1719 ((((dummy c~1185902126~1636) pattern-variable dummy~1185902126~1715 (0) 0 (rnrs control)) ((args) pattern-variable args~1185902126~1716 (1) 0 (rnrs control)) ((n) pattern-variable n~1185902126~1717 (1) 0 (rnrs control)))) (()) ((((x c~1185902126~1636) variable x~1185902126~1638 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1702 ((((dummy c~1185902126~1636) pattern-variable dummy~1185902126~1694 (0) 0 (rnrs control)) ((args) pattern-variable args~1185902126~1695 (1) 0 (rnrs control)) ((n) pattern-variable n~1185902126~1696 (1) 0 (rnrs control)) ((x) pattern-variable x~1185902126~1697 (1) 1 (rnrs control)) ((b1) pattern-variable b1~1185902126~1698 (1) 0 (rnrs control)) ((b2) pattern-variable b2~1185902126~1699 (1) 1 (rnrs control)) ((more) pattern-variable more~1185902126~1700 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1636) variable x~1185902126~1638 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1677 ((((dummy c~1185902126~1636) pattern-variable dummy~1185902126~1667 (0) 0 (rnrs control)) ((args) pattern-variable args~1185902126~1668 (1) 0 (rnrs control)) ((n) pattern-variable n~1185902126~1669 (1) 0 (rnrs control)) ((x1) pattern-variable x1~1185902126~1670 (1) 0 (rnrs control)) ((x2) pattern-variable x2~1185902126~1671 (1) 1 (rnrs control)) ((r) pattern-variable r~1185902126~1672 (1) 0 (rnrs control)) ((b1) pattern-variable b1~1185902126~1673 (1) 0 (rnrs control)) ((b2) pattern-variable b2~1185902126~1674 (1) 1 (rnrs control)) ((more) pattern-variable more~1185902126~1675 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1636) variable x~1185902126~1638 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1654 ((((dummy c~1185902126~1636) pattern-variable dummy~1185902126~1646 (0) 0 (rnrs control)) ((args) pattern-variable args~1185902126~1647 (1) 0 (rnrs control)) ((n) pattern-variable n~1185902126~1648 (1) 0 (rnrs control)) ((r) pattern-variable r~1185902126~1649 (1) 0 (rnrs control)) ((b1) pattern-variable b1~1185902126~1650 (1) 0 (rnrs control)) ((b2) pattern-variable b2~1185902126~1651 (1) 1 (rnrs control)) ((more) pattern-variable more~1185902126~1652 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1636) variable x~1185902126~1638 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1625 ((((dummy c~1185902126~1598) pattern-variable dummy~1185902126~1620 (0) 0 (rnrs control)) ((fmls) pattern-variable fmls~1185902126~1621 (1) 0 (rnrs control)) ((b1) pattern-variable b1~1185902126~1622 (1) 0 (rnrs control)) ((b2) pattern-variable b2~1185902126~1623 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1598) variable x~1185902126~1600 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1611 ((((dummy c~1185902126~1598) pattern-variable dummy~1185902126~1606 (0) 0 (rnrs control)) ((fmls) pattern-variable fmls~1185902126~1607 (1) 1 (rnrs control)) ((b1) pattern-variable b1~1185902126~1608 (1) 1 (rnrs control)) ((b2) pattern-variable b2~1185902126~1609 (1) 2 (rnrs control)))) (()) ((((x c~1185902126~1598) variable x~1185902126~1600 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1581 (()) ((((step) pattern-variable step~1185902126~1566 (1) 1 (rnrs control)))) ((((var) pattern-variable var~1185902126~1540 (1) 1 (rnrs control)) ((init) pattern-variable init~1185902126~1541 (1) 1 (rnrs control)) ((step) pattern-variable step~1185902126~1542 (1) 1 (rnrs control)) ((e0) pattern-variable e0~1185902126~1543 (1) 0 (rnrs control)) ((e1) pattern-variable e1~1185902126~1544 (1) 1 (rnrs control)) ((c) pattern-variable c~1185902126~1545 (1) 1 (rnrs control)))) (()) ((((orig-x) variable orig-x~1185902126~1535 (1) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1577 ((((e1) pattern-variable e1~1185902126~1574 (1) 0 (rnrs control)) ((e2) pattern-variable e2~1185902126~1575 (1) 1 (rnrs control)))) ((((step) pattern-variable step~1185902126~1566 (1) 1 (rnrs control)))) ((((var) pattern-variable var~1185902126~1540 (1) 1 (rnrs control)) ((init) pattern-variable init~1185902126~1541 (1) 1 (rnrs control)) ((step) pattern-variable step~1185902126~1542 (1) 1 (rnrs control)) ((e0) pattern-variable e0~1185902126~1543 (1) 0 (rnrs control)) ((e1) pattern-variable e1~1185902126~1544 (1) 1 (rnrs control)) ((c) pattern-variable c~1185902126~1545 (1) 1 (rnrs control)))) (()) ((((orig-x) variable orig-x~1185902126~1535 (1) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1525 ((((dummy c~1185902126~1513) pattern-variable dummy~1185902126~1520 (0) 0 (rnrs control)) ((test) pattern-variable test~1185902126~1521 (1) 0 (rnrs control)) ((result1) pattern-variable result1~1185902126~1522 (1) 0 (rnrs control)) ((result2) pattern-variable result2~1185902126~1523 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1513) variable x~1185902126~1515 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1504 ((((dummy c~1185902126~1492) pattern-variable dummy~1185902126~1499 (0) 0 (rnrs control)) ((test) pattern-variable test~1185902126~1500 (1) 0 (rnrs control)) ((result1) pattern-variable result1~1185902126~1501 (1) 0 (rnrs control)) ((result2) pattern-variable result2~1185902126~1502 (1) 1 (rnrs control)))) (()) ((((x c~1185902126~1492) variable x~1185902126~1494 (0) #f (rnrs control)))) . env~1185902126~1489) (env~1185902126~1489 ((((case-lambda-help) macro case-lambda-help~1185902126~1635 (0) #f (rnrs control)) ((case-lambda) macro case-lambda~1185902126~1597 (0) #f (rnrs control)) ((do) macro do~1185902126~1533 (0) #f (rnrs control)) ((unless) macro unless~1185902126~1512 (0) #f (rnrs control)) ((when) macro when~1185902126~1491 (0) #f (rnrs control)) ((eval) variable $ex:eval (1 0) #f ()) ((environment-bindings) variable $ex:environment-bindings (1 0) #f ()) ((environment) variable $ex:environment (1 0) #f ()) ((syntax-violation) variable $ex:syntax-violation (1 0) #f ()) ((syntax->datum) variable $ex:syntax->datum (1 0) #f ()) ((datum->syntax) variable $ex:datum->syntax (1 0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (1 0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (1 0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (1 0) #f ()) ((identifier?) variable $ex:identifier? (1 0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (1 0) #f ()) ((modulo) variable modulo (1 0) #f ()) ((remainder) variable remainder (1 0) #f ()) ((quotient) variable quotient (1 0) #f ()) ((inexact->exact) variable inexact->exact (1 0) #f ()) ((exact->inexact) variable exact->inexact (1 0) #f ()) ((set-cdr!) variable set-cdr! (1 0) #f ()) ((set-car!) variable set-car! (1 0) #f ()) ((string-set!) variable string-set! (1 0) #f ()) ((string-fill!) variable string-fill! (1 0) #f ()) ((string-ci>=?) variable string-ci>=? (1 0) #f ()) ((string-ci<=?) variable string-ci<=? (1 0) #f ()) ((string-ci>?) variable string-ci>? (1 0) #f ()) ((string-ci<?) variable string-ci<? (1 0) #f ()) ((string-ci=?) variable string-ci=? (1 0) #f ()) ((char-lower-case?) variable char-lower-case? (1 0) #f ()) ((char-upper-case?) variable char-upper-case? (1 0) #f ()) ((char-whitespace?) variable char-whitespace? (1 0) #f ()) ((char-numeric?) variable char-numeric? (1 0) #f ()) ((char-alphabetic?) variable char-alphabetic? (1 0) #f ()) ((char-ci>=?) variable char-ci>=? (1 0) #f ()) ((char-ci<=?) variable char-ci<=? (1 0) #f ()) ((char-ci>?) variable char-ci>? (1 0) #f ()) ((char-ci<?) variable char-ci<? (1 0) #f ()) ((char-ci=?) variable char-ci=? (1 0) #f ()) ((char-downcase) variable char-downcase (1 0) #f ()) ((char-upcase) variable char-upcase (1 0) #f ()) ((write-char) variable write-char (1 0) #f ()) ((write) variable write (1 0) #f ()) ((with-output-to-file) variable with-output-to-file (1 0) #f ()) ((with-input-from-file) variable with-input-from-file (1 0) #f ()) ((read-char) variable read-char (1 0) #f ()) ((read) variable read (1 0) #f ()) ((peek-char) variable peek-char (1 0) #f ()) ((open-output-file) variable open-output-file (1 0) #f ()) ((open-input-file) variable open-input-file (1 0) #f ()) ((newline) variable newline (1 0) #f ()) ((eof-object?) variable eof-object? (1 0) #f ()) ((display) variable display (1 0) #f ()) ((current-output-port) variable current-output-port (1 0) #f ()) ((current-input-port) variable current-input-port (1 0) #f ()) ((close-output-port) variable close-output-port (1 0) #f ()) ((close-input-port) variable close-input-port (1 0) #f ()) ((call-with-output-file) variable call-with-output-file (1 0) #f ()) ((call-with-input-file) variable call-with-input-file (1 0) #f ()) ((assq) variable assq (1 0) #f ()) ((assv) variable assv (1 0) #f ()) ((assoc) variable assoc (1 0) #f ()) ((assp) variable assp (1 0) #f ()) ((memq) variable memq (1 0) #f ()) ((memv) variable memv (1 0) #f ()) ((member) variable member (1 0) #f ()) ((memp) variable memp (1 0) #f ()) ((remv) variable remv (1 0) #f ()) ((remq) variable remq (1 0) #f ()) ((remove) variable remove (1 0) #f ()) ((remp) variable remp (1 0) #f ()) ((fold-right) variable fold-right (1 0) #f ()) ((fold-left) variable fold-left (1 0) #f ()) ((partition) variable partition (1 0) #f ()) ((filter) variable filter (1 0) #f ()) ((exists) variable exists (1 0) #f ()) ((for-all) variable for-all (1 0) #f ()) ((find) variable find (1 0) #f ()) ((call/cc) variable call/cc (1 0) #f ()) ((assertion-violation) variable assertion-violation (1 0) #f ()) ((error) variable error (1 0) #f ()) ((vector-for-each) variable vector-for-each (1 0) #f ()) ((vector-map) variable vector-map (1 0) #f ()) ((string-for-each) variable string-for-each (1 0) #f ()) ((symbol=?) variable symbol=? (1 0) #f ()) ((boolean=?) variable boolean=? (1 0) #f ()) ((exact-integer-sqrt) variable exact-integer-sqrt (1 0) #f ()) ((div0-and-mod0) variable div0-and-mod0 (1 0) #f ()) ((mod0) variable mod0 (1 0) #f ()) ((div0) variable div0 (1 0) #f ()) ((div-and-mod) variable div-and-mod (1 0) #f ()) ((mod) variable mod (1 0) #f ()) ((div) variable div (1 0) #f ()) ((nan?) variable nan? (1 0) #f ()) ((infinite?) variable infinite? (1 0) #f ()) ((finite?) variable finite? (1 0) #f ()) ((inexact) variable inexact (1 0) #f ()) ((exact) variable exact (1 0) #f ()) ((integer-valued?) variable integer-valued? (1 0) #f ()) ((rational-valued?) variable rational-valued? (1 0) #f ()) ((real-valued?) variable real-valued? (1 0) #f ()) ((zero?) variable zero? (1 0) #f ()) ((vector?) variable vector? (1 0) #f ()) ((vector-set!) variable vector-set! (1 0) #f ()) ((vector-ref) variable vector-ref (1 0) #f ()) ((vector-length) variable vector-length (1 0) #f ()) ((vector-fill!) variable vector-fill! (1 0) #f ()) ((vector->list) variable vector->list (1 0) #f ()) ((vector) variable vector (1 0) #f ()) ((values) variable values (1 0) #f ()) ((truncate) variable truncate (1 0) #f ()) ((tan) variable tan (1 0) #f ()) ((symbol?) variable symbol? (1 0) #f ()) ((symbol->string) variable symbol->string (1 0) #f ()) ((substring) variable substring (1 0) #f ()) ((string?) variable string? (1 0) #f ()) ((string>?) variable string>? (1 0) #f ()) ((string>=?) variable string>=? (1 0) #f ()) ((string=?) variable string=? (1 0) #f ()) ((string<?) variable string<? (1 0) #f ()) ((string<=?) variable string<=? (1 0) #f ()) ((string-ref) variable string-ref (1 0) #f ()) ((string-length) variable string-length (1 0) #f ()) ((string-copy) variable string-copy (1 0) #f ()) ((string-append) variable string-append (1 0) #f ()) ((string->symbol) variable string->symbol (1 0) #f ()) ((string->number) variable string->number (1 0) #f ()) ((string->list) variable string->list (1 0) #f ()) ((string) variable string (1 0) #f ()) ((sqrt) variable sqrt (1 0) #f ()) ((sin) variable sin (1 0) #f ()) ((round) variable round (1 0) #f ()) ((reverse) variable reverse (1 0) #f ()) ((real?) variable real? (1 0) #f ()) ((real-part) variable real-part (1 0) #f ()) ((rationalize) variable rationalize (1 0) #f ()) ((rational?) variable rational? (1 0) #f ()) ((procedure?) variable procedure? (1 0) #f ()) ((positive?) variable positive? (1 0) #f ()) ((pair?) variable pair? (1 0) #f ()) ((odd?) variable odd? (1 0) #f ()) ((numerator) variable numerator (1 0) #f ()) ((number?) variable number? (1 0) #f ()) ((number->string) variable number->string (1 0) #f ()) ((null?) variable null? (1 0) #f ()) ((not) variable not (1 0) #f ()) ((negative?) variable negative? (1 0) #f ()) ((min) variable min (1 0) #f ()) ((max) variable max (1 0) #f ()) ((map) variable map (1 0) #f ()) ((make-vector) variable make-vector (1 0) #f ()) ((make-string) variable make-string (1 0) #f ()) ((make-rectangular) variable make-rectangular (1 0) #f ()) ((make-polar) variable make-polar (1 0) #f ()) ((magnitude) variable magnitude (1 0) #f ()) ((log) variable log (1 0) #f ()) ((list?) variable list? (1 0) #f ()) ((list-tail) variable list-tail (1 0) #f ()) ((list-ref) variable list-ref (1 0) #f ()) ((list->vector) variable list->vector (1 0) #f ()) ((list->string) variable list->string (1 0) #f ()) ((list) variable list (1 0) #f ()) ((length) variable length (1 0) #f ()) ((lcm) variable lcm (1 0) #f ()) ((integer?) variable integer? (1 0) #f ()) ((integer->char) variable integer->char (1 0) #f ()) ((inexact?) variable inexact? (1 0) #f ()) ((imag-part) variable imag-part (1 0) #f ()) ((gcd) variable gcd (1 0) #f ()) ((for-each) variable for-each (1 0) #f ()) ((floor) variable floor (1 0) #f ()) ((expt) variable expt (1 0) #f ()) ((exp) variable exp (1 0) #f ()) ((exact?) variable exact? (1 0) #f ()) ((even?) variable even? (1 0) #f ()) ((eqv?) variable eqv? (1 0) #f ()) ((equal?) variable equal? (1 0) #f ()) ((eq?) variable eq? (1 0) #f ()) ((dynamic-wind) variable dynamic-wind (1 0) #f ()) ((denominator) variable denominator (1 0) #f ()) ((cos) variable cos (1 0) #f ()) ((cons) variable cons (1 0) #f ()) ((complex?) variable complex? (1 0) #f ()) ((char->integer) variable char->integer (1 0) #f ()) ((ceiling) variable ceiling (1 0) #f ()) ((cddddr) variable cddddr (1 0) #f ()) ((cdddar) variable cdddar (1 0) #f ()) ((cddadr) variable cddadr (1 0) #f ()) ((cddaar) variable cddaar (1 0) #f ()) ((cdaddr) variable cdaddr (1 0) #f ()) ((cdadar) variable cdadar (1 0) #f ()) ((cdaadr) variable cdaadr (1 0) #f ()) ((cdaaar) variable cdaaar (1 0) #f ()) ((cadddr) variable cadddr (1 0) #f ()) ((caddar) variable caddar (1 0) #f ()) ((cadadr) variable cadadr (1 0) #f ()) ((cadaar) variable cadaar (1 0) #f ()) ((caaddr) variable caaddr (1 0) #f ()) ((caadar) variable caadar (1 0) #f ()) ((caaadr) variable caaadr (1 0) #f ()) ((caaaar) variable caaaar (1 0) #f ()) ((cdddr) variable cdddr (1 0) #f ()) ((cddar) variable cddar (1 0) #f ()) ((cdadr) variable cdadr (1 0) #f ()) ((cdaar) variable cdaar (1 0) #f ()) ((caddr) variable caddr (1 0) #f ()) ((cadar) variable cadar (1 0) #f ()) ((caadr) variable caadr (1 0) #f ()) ((caaar) variable caaar (1 0) #f ()) ((cddr) variable cddr (1 0) #f ()) ((cdar) variable cdar (1 0) #f ()) ((cadr) variable cadr (1 0) #f ()) ((caar) variable caar (1 0) #f ()) ((cdr) variable cdr (1 0) #f ()) ((car) variable car (1 0) #f ()) ((call-with-values) variable call-with-values (1 0) #f ()) ((call-with-current-continuation) variable call-with-current-continuation (1 0) #f ()) ((boolean?) variable boolean? (1 0) #f ()) ((atan) variable atan (1 0) #f ()) ((asin) variable asin (1 0) #f ()) ((apply) variable apply (1 0) #f ()) ((append) variable append (1 0) #f ()) ((acos) variable acos (1 0) #f ()) ((abs) variable abs (1 0) #f ()) ((>=) variable >= (1 0) #f ()) ((>) variable > (1 0) #f ()) ((=) variable = (1 0) #f ()) ((<=) variable <= (1 0) #f ()) ((<) variable < (1 0) #f ()) ((/) variable / (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 ()) ((letrec-syntax) macro letrec-syntax (1 0) #f ()) ((let-syntax) macro let-syntax (1 0) #f ()) ((define-syntax) macro define-syntax (1 0) #f ()) ((define) macro define (1 0) #f ()) ((or) macro or (1 0) #f ()) ((and) macro and (1 0) #f ()) ((set!) macro set! (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*~1185902126~201 (1 0) #f (core let)) ((letrec) macro letrec~1185902126~165 (1 0) #f (core let)) ((let) macro let~1185902126~115 (1 0) #f (core let)) ((with-syntax) macro with-syntax~1185902126~9 (1) #f (core with-syntax)) ((syntax-rules) macro syntax-rules~1185902126~67 (1) #f (core syntax-rules)))))))) (define ~rnrs.control~exports (quote ((when macro when~1185902126~1491 (0) #f (rnrs control)) (unless macro unless~1185902126~1512 (0) #f (rnrs control)) (do macro do~1185902126~1533 (0) #f (rnrs control)) (case-lambda macro case-lambda~1185902126~1597 (0) #f (rnrs control))))) (define ~rnrs.control~imports (quote (((core syntax-rules) 1) ((core with-syntax) 1) ((core let) 1 0) ((core primitives) 1 0)))) (define (~rnrs.control~visit) ($ex:register-macro! (quote when~1185902126~1491) (lambda (x~1185902126~1494) ((lambda () (let ((input~1185902126~1497 x~1185902126~1494)) (let ((fail~1185902126~1498 (lambda () ($ex:invalid-form input~1185902126~1497)))) (if (pair? input~1185902126~1497) (let ((temp~1185902126~1510 (car input~1185902126~1497))) (let ((dummy~1185902126~1499 temp~1185902126~1510)) (let ((temp~1185902126~1505 (cdr input~1185902126~1497))) (if (pair? temp~1185902126~1505) (let ((temp~1185902126~1509 (car temp~1185902126~1505))) (let ((test~1185902126~1500 temp~1185902126~1509)) (let ((temp~1185902126~1506 (cdr temp~1185902126~1505))) (if (pair? temp~1185902126~1506) (let ((temp~1185902126~1508 (car temp~1185902126~1506))) (let ((result1~1185902126~1501 temp~1185902126~1508)) (let ((temp~1185902126~1507 (cdr temp~1185902126~1506))) (if (list? temp~1185902126~1507) (let ((result2~1185902126~1502 temp~1185902126~1507)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1504)) 0 (quote (rnrs control))) (cons test~1185902126~1500 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1504)) 0 (quote (rnrs control))) (cons result1~1185902126~1501 result2~1185902126~1502)) (quote ()))))) (fail~1185902126~1498))))) (fail~1185902126~1498))))) (fail~1185902126~1498))))) (fail~1185902126~1498)))))))) ($ex:register-macro! (quote unless~1185902126~1512) (lambda (x~1185902126~1515) ((lambda () (let ((input~1185902126~1518 x~1185902126~1515)) (let ((fail~1185902126~1519 (lambda () ($ex:invalid-form input~1185902126~1518)))) (if (pair? input~1185902126~1518) (let ((temp~1185902126~1531 (car input~1185902126~1518))) (let ((dummy~1185902126~1520 temp~1185902126~1531)) (let ((temp~1185902126~1526 (cdr input~1185902126~1518))) (if (pair? temp~1185902126~1526) (let ((temp~1185902126~1530 (car temp~1185902126~1526))) (let ((test~1185902126~1521 temp~1185902126~1530)) (let ((temp~1185902126~1527 (cdr temp~1185902126~1526))) (if (pair? temp~1185902126~1527) (let ((temp~1185902126~1529 (car temp~1185902126~1527))) (let ((result1~1185902126~1522 temp~1185902126~1529)) (let ((temp~1185902126~1528 (cdr temp~1185902126~1527))) (if (list? temp~1185902126~1528) (let ((result2~1185902126~1523 temp~1185902126~1528)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1525)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote not) (quote ()) (quote (env~1185902126~1525)) 0 (quote (rnrs control))) (cons test~1185902126~1521 (quote ()))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1525)) 0 (quote (rnrs control))) (cons result1~1185902126~1522 result2~1185902126~1523)) (quote ()))))) (fail~1185902126~1519))))) (fail~1185902126~1519))))) (fail~1185902126~1519))))) (fail~1185902126~1519)))))))) ($ex:register-macro! (quote do~1185902126~1533) (lambda (orig-x~1185902126~1535) ((lambda () (let ((input~1185902126~1538 orig-x~1185902126~1535)) (let ((fail~1185902126~1539 (lambda () ($ex:invalid-form input~1185902126~1538)))) (if (pair? input~1185902126~1538) (let ((temp~1185902126~1595 (car input~1185902126~1538))) (let ((temp~1185902126~1582 (cdr input~1185902126~1538))) (if (pair? temp~1185902126~1582) (let ((temp~1185902126~1588 (car temp~1185902126~1582))) ($ex:map-while (lambda (temp~1185902126~1588) (if (pair? temp~1185902126~1588) (let ((temp~1185902126~1594 (car temp~1185902126~1588))) (let ((var~1185902126~1540 temp~1185902126~1594)) (let ((temp~1185902126~1591 (cdr temp~1185902126~1588))) (if (pair? temp~1185902126~1591) (let ((temp~1185902126~1593 (car temp~1185902126~1591))) (let ((init~1185902126~1541 temp~1185902126~1593)) (let ((temp~1185902126~1592 (cdr temp~1185902126~1591))) (let ((step~1185902126~1542 temp~1185902126~1592)) (list var~1185902126~1540 init~1185902126~1541 step~1185902126~1542))))) #f)))) #f)) temp~1185902126~1588 (lambda (cols~1185902126~1589 rest~1185902126~1590) (if (null? rest~1185902126~1590) (apply (lambda (var~1185902126~1540 init~1185902126~1541 step~1185902126~1542) (let ((temp~1185902126~1583 (cdr temp~1185902126~1582))) (if (pair? temp~1185902126~1583) (let ((temp~1185902126~1585 (car temp~1185902126~1583))) (if (pair? temp~1185902126~1585) (let ((temp~1185902126~1587 (car temp~1185902126~1585))) (let ((e0~1185902126~1543 temp~1185902126~1587)) (let ((temp~1185902126~1586 (cdr temp~1185902126~1585))) (if (list? temp~1185902126~1586) (let ((e1~1185902126~1544 temp~1185902126~1586)) (let ((temp~1185902126~1584 (cdr temp~1185902126~1583))) (if (list? temp~1185902126~1584) (let ((c~1185902126~1545 temp~1185902126~1584)) (let ((input~1185902126~1548 (map (lambda (v~1185902126~1550 s~1185902126~1551) ((lambda () (let ((input~1185902126~1554 s~1185902126~1551)) (let ((fail~1185902126~1555 (lambda () (let ((fail~1185902126~1556 (lambda () (let ((fail~1185902126~1557 (lambda () ($ex:invalid-form input~1185902126~1554)))) ($ex:syntax-violation (quote do) "Invalid step" orig-x~1185902126~1535 s~1185902126~1551))))) (if (pair? input~1185902126~1554) (let ((temp~1185902126~1562 (car input~1185902126~1554))) (let ((e~1185902126~1559 temp~1185902126~1562)) (let ((temp~1185902126~1561 (cdr input~1185902126~1554))) (if (null? temp~1185902126~1561) e~1185902126~1559 (fail~1185902126~1556))))) (fail~1185902126~1556)))))) (if (null? input~1185902126~1554) v~1185902126~1550 (fail~1185902126~1555))))))) var~1185902126~1540 step~1185902126~1542))) (let ((fail~1185902126~1565 (lambda () ($ex:invalid-form input~1185902126~1548)))) (if (list? input~1185902126~1548) (let ((step~1185902126~1566 input~1185902126~1548)) (begin (let ((input~1185902126~1570 e1~1185902126~1544)) (let ((fail~1185902126~1572 (lambda () (let ((fail~1185902126~1573 (lambda () ($ex:invalid-form input~1185902126~1570)))) (if (pair? input~1185902126~1570) (let ((temp~1185902126~1579 (car input~1185902126~1570))) (let ((e1~1185902126~1574 temp~1185902126~1579)) (let ((temp~1185902126~1578 (cdr input~1185902126~1570))) (if (list? temp~1185902126~1578) (let ((e2~1185902126~1575 temp~1185902126~1578)) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) (cons (map (lambda (var~1185902126~1540 init~1185902126~1541) (cons var~1185902126~1540 (cons init~1185902126~1541 (quote ())))) var~1185902126~1540 init~1185902126~1541) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) (cons e0~1185902126~1543 (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) (cons e1~1185902126~1574 e2~1185902126~1575)) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) (append c~1185902126~1545 (cons (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185902126~1577)) 0 (quote (rnrs control))) step~1185902126~1566) (quote ())))) (quote ()))))) (quote ())))))) (fail~1185902126~1573))))) (fail~1185902126~1573)))))) (if (null? input~1185902126~1570) (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) (cons (map (lambda (var~1185902126~1540 init~1185902126~1541) (cons var~1185902126~1540 (cons init~1185902126~1541 (quote ())))) var~1185902126~1540 init~1185902126~1541) (cons (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote not) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) (cons e0~1185902126~1543 (quote ()))) (cons (cons ($ex:syntax-rename (quote begin) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) (append c~1185902126~1545 (cons (cons ($ex:syntax-rename (quote do) (quote ()) (quote (env~1185902126~1581)) 0 (quote (rnrs control))) step~1185902126~1566) (quote ())))) (quote ())))) (quote ()))))) (fail~1185902126~1572)))))) (fail~1185902126~1565))))) (fail~1185902126~1539)))) (fail~1185902126~1539))))) (fail~1185902126~1539))) (fail~1185902126~1539)))) (if (null? cols~1185902126~1589) (quote (() () ())) (apply map list cols~1185902126~1589))) (fail~1185902126~1539))))) (fail~1185902126~1539)))) (fail~1185902126~1539)))))))) ($ex:register-macro! (quote case-lambda~1185902126~1597) (lambda (x~1185902126~1600) ((lambda () (let ((input~1185902126~1603 x~1185902126~1600)) (let ((fail~1185902126~1604 (lambda () (let ((fail~1185902126~1605 (lambda () ($ex:invalid-form input~1185902126~1603)))) (if (pair? input~1185902126~1603) (let ((temp~1185902126~1619 (car input~1185902126~1603))) (let ((dummy~1185902126~1606 temp~1185902126~1619)) (let ((temp~1185902126~1612 (cdr input~1185902126~1603))) ($ex:map-while (lambda (temp~1185902126~1612) (if (pair? temp~1185902126~1612) (let ((temp~1185902126~1618 (car temp~1185902126~1612))) (let ((fmls~1185902126~1607 temp~1185902126~1618)) (let ((temp~1185902126~1615 (cdr temp~1185902126~1612))) (if (pair? temp~1185902126~1615) (let ((temp~1185902126~1617 (car temp~1185902126~1615))) (let ((b1~1185902126~1608 temp~1185902126~1617)) (let ((temp~1185902126~1616 (cdr temp~1185902126~1615))) (if (list? temp~1185902126~1616) (let ((b2~1185902126~1609 temp~1185902126~1616)) (list fmls~1185902126~1607 b1~1185902126~1608 b2~1185902126~1609)) #f)))) #f)))) #f)) temp~1185902126~1612 (lambda (cols~1185902126~1613 rest~1185902126~1614) (if (null? rest~1185902126~1614) (apply (lambda (fmls~1185902126~1607 b1~1185902126~1608 b2~1185902126~1609) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote let) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons (cons (cons ($ex:syntax-rename (quote n) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (quote ()))) (quote ()))) (quote ())) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote args) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (cons ($ex:syntax-rename (quote n) (quote ()) (quote (env~1185902126~1611)) 0 (quote (rnrs control))) (map (lambda (fmls~1185902126~1607 b1~1185902126~1608 b2~1185902126~1609) (cons fmls~1185902126~1607 (cons b1~1185902126~1608 b2~1185902126~1609))) fmls~1185902126~1607 b1~1185902126~1608 b2~1185902126~1609)))) (quote ())))) (quote ()))))) (if (null? cols~1185902126~1613) (quote (() () ())) (apply map list cols~1185902126~1613))) (fail~1185902126~1605))))))) (fail~1185902126~1605)))))) (if (pair? input~1185902126~1603) (let ((temp~1185902126~1633 (car input~1185902126~1603))) (let ((dummy~1185902126~1620 temp~1185902126~1633)) (let ((temp~1185902126~1626 (cdr input~1185902126~1603))) (if (pair? temp~1185902126~1626) (let ((temp~1185902126~1628 (car temp~1185902126~1626))) (if (pair? temp~1185902126~1628) (let ((temp~1185902126~1632 (car temp~1185902126~1628))) (let ((fmls~1185902126~1621 temp~1185902126~1632)) (let ((temp~1185902126~1629 (cdr temp~1185902126~1628))) (if (pair? temp~1185902126~1629) (let ((temp~1185902126~1631 (car temp~1185902126~1629))) (let ((b1~1185902126~1622 temp~1185902126~1631)) (let ((temp~1185902126~1630 (cdr temp~1185902126~1629))) (if (list? temp~1185902126~1630) (let ((b2~1185902126~1623 temp~1185902126~1630)) (let ((temp~1185902126~1627 (cdr temp~1185902126~1626))) (if (null? temp~1185902126~1627) (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1625)) 0 (quote (rnrs control))) (cons fmls~1185902126~1621 (cons b1~1185902126~1622 b2~1185902126~1623))) (fail~1185902126~1604)))) (fail~1185902126~1604))))) (fail~1185902126~1604))))) (fail~1185902126~1604))) (fail~1185902126~1604))))) (fail~1185902126~1604)))))))) ($ex:register-macro! (quote case-lambda-help~1185902126~1635) (lambda (x~1185902126~1638) ((lambda () (let ((input~1185902126~1641 x~1185902126~1638)) (let ((fail~1185902126~1642 (lambda () (let ((fail~1185902126~1643 (lambda () (let ((fail~1185902126~1644 (lambda () (let ((fail~1185902126~1645 (lambda () ($ex:invalid-form input~1185902126~1641)))) (if (pair? input~1185902126~1641) (let ((temp~1185902126~1666 (car input~1185902126~1641))) (let ((dummy~1185902126~1646 temp~1185902126~1666)) (let ((temp~1185902126~1655 (cdr input~1185902126~1641))) (if (pair? temp~1185902126~1655) (let ((temp~1185902126~1665 (car temp~1185902126~1655))) (let ((args~1185902126~1647 temp~1185902126~1665)) (let ((temp~1185902126~1656 (cdr temp~1185902126~1655))) (if (pair? temp~1185902126~1656) (let ((temp~1185902126~1664 (car temp~1185902126~1656))) (let ((n~1185902126~1648 temp~1185902126~1664)) (let ((temp~1185902126~1657 (cdr temp~1185902126~1656))) (if (pair? temp~1185902126~1657) (let ((temp~1185902126~1659 (car temp~1185902126~1657))) (if (pair? temp~1185902126~1659) (let ((temp~1185902126~1663 (car temp~1185902126~1659))) (let ((r~1185902126~1649 temp~1185902126~1663)) (let ((temp~1185902126~1660 (cdr temp~1185902126~1659))) (if (pair? temp~1185902126~1660) (let ((temp~1185902126~1662 (car temp~1185902126~1660))) (let ((b1~1185902126~1650 temp~1185902126~1662)) (let ((temp~1185902126~1661 (cdr temp~1185902126~1660))) (if (list? temp~1185902126~1661) (let ((b2~1185902126~1651 temp~1185902126~1661)) (let ((temp~1185902126~1658 (cdr temp~1185902126~1657))) (if (list? temp~1185902126~1658) (let ((more~1185902126~1652 temp~1185902126~1658)) (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185902126~1654)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1654)) 0 (quote (rnrs control))) (cons r~1185902126~1649 (cons b1~1185902126~1650 b2~1185902126~1651))) (cons args~1185902126~1647 (quote ()))))) (fail~1185902126~1645)))) (fail~1185902126~1645))))) (fail~1185902126~1645))))) (fail~1185902126~1645))) (fail~1185902126~1645))))) (fail~1185902126~1645))))) (fail~1185902126~1645))))) (fail~1185902126~1645)))))) (if (pair? input~1185902126~1641) (let ((temp~1185902126~1693 (car input~1185902126~1641))) (let ((dummy~1185902126~1667 temp~1185902126~1693)) (let ((temp~1185902126~1678 (cdr input~1185902126~1641))) (if (pair? temp~1185902126~1678) (let ((temp~1185902126~1692 (car temp~1185902126~1678))) (let ((args~1185902126~1668 temp~1185902126~1692)) (let ((temp~1185902126~1679 (cdr temp~1185902126~1678))) (if (pair? temp~1185902126~1679) (let ((temp~1185902126~1691 (car temp~1185902126~1679))) (let ((n~1185902126~1669 temp~1185902126~1691)) (let ((temp~1185902126~1680 (cdr temp~1185902126~1679))) (if (pair? temp~1185902126~1680) (let ((temp~1185902126~1682 (car temp~1185902126~1680))) (if (pair? temp~1185902126~1682) (let ((temp~1185902126~1686 (car temp~1185902126~1682))) (if (pair? temp~1185902126~1686) (let ((temp~1185902126~1690 (car temp~1185902126~1686))) (let ((x1~1185902126~1670 temp~1185902126~1690)) (let ((temp~1185902126~1687 (cdr temp~1185902126~1686))) (if (>= ($ex:dotted-length temp~1185902126~1687) 0) (let ((temp~1185902126~1689 ($ex:dotted-butlast temp~1185902126~1687 0))) (if (list? temp~1185902126~1689) (let ((x2~1185902126~1671 temp~1185902126~1689)) (let ((temp~1185902126~1688 ($ex:dotted-last temp~1185902126~1687 0))) (let ((r~1185902126~1672 temp~1185902126~1688)) (let ((temp~1185902126~1683 (cdr temp~1185902126~1682))) (if (pair? temp~1185902126~1683) (let ((temp~1185902126~1685 (car temp~1185902126~1683))) (let ((b1~1185902126~1673 temp~1185902126~1685)) (let ((temp~1185902126~1684 (cdr temp~1185902126~1683))) (if (list? temp~1185902126~1684) (let ((b2~1185902126~1674 temp~1185902126~1684)) (let ((temp~1185902126~1681 (cdr temp~1185902126~1680))) (if (list? temp~1185902126~1681) (let ((more~1185902126~1675 temp~1185902126~1681)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote >=) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons n~1185902126~1669 (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons (cons x1~1185902126~1670 x2~1185902126~1671) (quote ()))) (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons (cons x1~1185902126~1670 (append x2~1185902126~1671 r~1185902126~1672)) (cons b1~1185902126~1673 b2~1185902126~1674))) (cons args~1185902126~1668 (quote ())))) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185902126~1677)) 0 (quote (rnrs control))) (cons args~1185902126~1668 (cons n~1185902126~1669 more~1185902126~1675))) (quote ())))))) (fail~1185902126~1644)))) (fail~1185902126~1644))))) (fail~1185902126~1644)))))) (fail~1185902126~1644))) (fail~1185902126~1644))))) (fail~1185902126~1644))) (fail~1185902126~1644))) (fail~1185902126~1644))))) (fail~1185902126~1644))))) (fail~1185902126~1644))))) (fail~1185902126~1644)))))) (if (pair? input~1185902126~1641) (let ((temp~1185902126~1714 (car input~1185902126~1641))) (let ((dummy~1185902126~1694 temp~1185902126~1714)) (let ((temp~1185902126~1703 (cdr input~1185902126~1641))) (if (pair? temp~1185902126~1703) (let ((temp~1185902126~1713 (car temp~1185902126~1703))) (let ((args~1185902126~1695 temp~1185902126~1713)) (let ((temp~1185902126~1704 (cdr temp~1185902126~1703))) (if (pair? temp~1185902126~1704) (let ((temp~1185902126~1712 (car temp~1185902126~1704))) (let ((n~1185902126~1696 temp~1185902126~1712)) (let ((temp~1185902126~1705 (cdr temp~1185902126~1704))) (if (pair? temp~1185902126~1705) (let ((temp~1185902126~1707 (car temp~1185902126~1705))) (if (pair? temp~1185902126~1707) (let ((temp~1185902126~1711 (car temp~1185902126~1707))) (if (list? temp~1185902126~1711) (let ((x~1185902126~1697 temp~1185902126~1711)) (let ((temp~1185902126~1708 (cdr temp~1185902126~1707))) (if (pair? temp~1185902126~1708) (let ((temp~1185902126~1710 (car temp~1185902126~1708))) (let ((b1~1185902126~1698 temp~1185902126~1710)) (let ((temp~1185902126~1709 (cdr temp~1185902126~1708))) (if (list? temp~1185902126~1709) (let ((b2~1185902126~1699 temp~1185902126~1709)) (let ((temp~1185902126~1706 (cdr temp~1185902126~1705))) (if (list? temp~1185902126~1706) (let ((more~1185902126~1700 temp~1185902126~1706)) (cons ($ex:syntax-rename (quote if) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote =) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons n~1185902126~1696 (cons (cons ($ex:syntax-rename (quote length) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote quote) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons x~1185902126~1697 (quote ()))) (quote ()))) (quote ())))) (cons (cons ($ex:syntax-rename (quote apply) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons x~1185902126~1697 (cons b1~1185902126~1698 b2~1185902126~1699))) (cons args~1185902126~1695 (quote ())))) (cons (cons ($ex:syntax-rename (quote case-lambda-help) (quote ()) (quote (env~1185902126~1702)) 0 (quote (rnrs control))) (cons args~1185902126~1695 (cons n~1185902126~1696 more~1185902126~1700))) (quote ())))))) (fail~1185902126~1643)))) (fail~1185902126~1643))))) (fail~1185902126~1643)))) (fail~1185902126~1643))) (fail~1185902126~1643))) (fail~1185902126~1643))))) (fail~1185902126~1643))))) (fail~1185902126~1643))))) (fail~1185902126~1643)))))) (if (pair? input~1185902126~1641) (let ((temp~1185902126~1725 (car input~1185902126~1641))) (let ((dummy~1185902126~1715 temp~1185902126~1725)) (let ((temp~1185902126~1720 (cdr input~1185902126~1641))) (if (pair? temp~1185902126~1720) (let ((temp~1185902126~1724 (car temp~1185902126~1720))) (let ((args~1185902126~1716 temp~1185902126~1724)) (let ((temp~1185902126~1721 (cdr temp~1185902126~1720))) (if (pair? temp~1185902126~1721) (let ((temp~1185902126~1723 (car temp~1185902126~1721))) (let ((n~1185902126~1717 temp~1185902126~1723)) (let ((temp~1185902126~1722 (cdr temp~1185902126~1721))) (if (null? temp~1185902126~1722) (cons ($ex:syntax-rename (quote assertion-violation) (quote ()) (quote (env~1185902126~1719)) 0 (quote (rnrs control))) (cons (quote #f) (cons (quote "unexpected number of arguments") (quote ())))) (fail~1185902126~1642))))) (fail~1185902126~1642))))) (fail~1185902126~1642))))) (fail~1185902126~1642)))))))) ($ex:unspecified)) (define (~rnrs.control~invoke) ($ex:unspecified)))

(begin (define ~rnrs.lists~envs (quote ())) (define ~rnrs.lists~exports (quote ((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 ())))) (define ~rnrs.lists~imports (quote (((core primitives) 0)))) (define (~rnrs.lists~visit) ($ex:unspecified)) (define (~rnrs.lists~invoke) ($ex:unspecified)))

(begin (define ~rnrs.io.simple~envs (quote ())) (define ~rnrs.io.simple~exports (quote ((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 ())))) (define ~rnrs.io.simple~imports (quote (((core primitives) 0)))) (define (~rnrs.io.simple~visit) ($ex:unspecified)) (define (~rnrs.io.simple~invoke) ($ex:unspecified)))

(begin (define ~rnrs.unicode~envs (quote ())) (define ~rnrs.unicode~exports (quote ((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 ())))) (define ~rnrs.unicode~imports (quote (((core primitives) 0)))) (define (~rnrs.unicode~visit) ($ex:unspecified)) (define (~rnrs.unicode~invoke) ($ex:unspecified)))

(begin (define ~rnrs.mutable-strings~envs (quote ())) (define ~rnrs.mutable-strings~exports (quote ((string-set! variable string-set! (0) #f ()) (string-fill! variable string-fill! (0) #f ())))) (define ~rnrs.mutable-strings~imports (quote (((core primitives) 0)))) (define (~rnrs.mutable-strings~visit) ($ex:unspecified)) (define (~rnrs.mutable-strings~invoke) ($ex:unspecified)))

(begin (define ~rnrs.syntax-case~envs (quote ())) (define ~rnrs.syntax-case~exports (quote ((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~1185902126~586 (0) #f (core quasisyntax)) (unsyntax macro unsyntax~1185902126~817 (0) #f (core quasisyntax)) (unsyntax-splicing macro unsyntax-splicing~1185902126~822 (0) #f (core quasisyntax)) (with-syntax macro with-syntax~1185902126~9 (0) #f (core with-syntax)) (_ macro _ (0) #f ()) (... macro ... (0) #f ())))) (define ~rnrs.syntax-case~imports (quote (((core quasisyntax) 0) ((core with-syntax) 0) ((core primitives) 0)))) (define (~rnrs.syntax-case~visit) ($ex:unspecified)) (define (~rnrs.syntax-case~invoke) ($ex:unspecified)))

(begin (define ~rnrs.base~envs (quote ())) (define ~rnrs.base~exports (quote ((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~1185902126~115 (0) #f (core let)) (let* macro let*~1185902126~232 (0) #f (core derived)) (letrec macro letrec~1185902126~165 (0) #f (core let)) (letrec* macro letrec*~1185902126~201 (0) #f (core let)) (let-values macro let-values~1185902126~1311 (0) #f (core let-values)) (let*-values macro let*-values~1185902126~1453 (0) #f (core let-values)) (case macro case~1185902126~439 (0) #f (core derived)) (cond macro cond~1185902126~318 (0) #f (core derived)) (else macro else~1185902126~530 (0) #f (core derived)) (=> macro =>~1185902126~525 (0) #f (core derived)) (quasiquote macro quasiquote~1185902126~829 (0) #f (core quasiquote)) (unquote macro unquote~1185902126~1299 (0) #f (core quasiquote)) (unquote-splicing macro unquote-splicing~1185902126~1304 (0) #f (core quasiquote)) (syntax-rules macro syntax-rules~1185902126~67 (1) #f (core syntax-rules)) (identifier-syntax macro identifier-syntax~1185902126~537 (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->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 ())))) (define ~rnrs.base~imports (quote (((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)))) (define (~rnrs.base~visit) ($ex:unspecified)) (define (~rnrs.base~invoke) ($ex:unspecified)))

(begin (define ~rnrs~envs (quote ())) (define ~rnrs~exports (quote ((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~1185902126~115 (0 1) #f (core let)) (let* macro let*~1185902126~232 (0 1) #f (core derived)) (letrec macro letrec~1185902126~165 (0 1) #f (core let)) (letrec* macro letrec*~1185902126~201 (0 1) #f (core let)) (let-values macro let-values~1185902126~1311 (0 1) #f (core let-values)) (let*-values macro let*-values~1185902126~1453 (0 1) #f (core let-values)) (case macro case~1185902126~439 (0 1) #f (core derived)) (cond macro cond~1185902126~318 (0 1) #f (core derived)) (else macro else~1185902126~530 (0 1) #f (core derived)) (=> macro =>~1185902126~525 (0 1) #f (core derived)) (quasiquote macro quasiquote~1185902126~829 (0 1) #f (core quasiquote)) (unquote macro unquote~1185902126~1299 (0 1) #f (core quasiquote)) (unquote-splicing macro unquote-splicing~1185902126~1304 (0 1) #f (core quasiquote)) (syntax-rules macro syntax-rules~1185902126~67 (0 1) #f (core syntax-rules)) (identifier-syntax macro identifier-syntax~1185902126~537 (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->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~1185902126~586 (0 1) #f (core quasisyntax)) (unsyntax macro unsyntax~1185902126~817 (0 1) #f (core quasisyntax)) (unsyntax-splicing macro unsyntax-splicing~1185902126~822 (0 1) #f (core quasisyntax)) (with-syntax macro with-syntax~1185902126~9 (0 1) #f (core with-syntax)) (when macro when~1185902126~1491 (0 1) #f (rnrs control)) (unless macro unless~1185902126~1512 (0 1) #f (rnrs control)) (do macro do~1185902126~1533 (0 1) #f (rnrs control)) (case-lambda macro case-lambda~1185902126~1597 (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 ())))) (define ~rnrs~imports (quote (((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)))) (define (~rnrs~visit) ($ex:unspecified)) (define (~rnrs~invoke) ($ex:unspecified)))

(begin (define ~rnrs.eval~envs (quote ())) (define ~rnrs.eval~exports (quote ((eval variable $ex:eval (0) #f ()) (environment variable $ex:environment (0) #f ())))) (define ~rnrs.eval~imports (quote (((core primitives) 0)))) (define (~rnrs.eval~visit) ($ex:unspecified)) (define (~rnrs.eval~invoke) ($ex:unspecified)))

(begin (define ~rnrs.mutable-pairs~envs (quote ())) (define ~rnrs.mutable-pairs~exports (quote ((set-car! variable set-car! (0) #f ()) (set-cdr! variable set-cdr! (0) #f ())))) (define ~rnrs.mutable-pairs~imports (quote (((core primitives) 0)))) (define (~rnrs.mutable-pairs~visit) ($ex:unspecified)) (define (~rnrs.mutable-pairs~invoke) ($ex:unspecified)))

(begin (define ~rnrs.r5rs~envs (quote ((env~1185902126~1764 ((((dummy c~1185902126~1754) pattern-variable dummy~1185902126~1761 (0) 0 (rnrs r5rs)) ((expression) pattern-variable expression~1185902126~1762 (1) 0 (rnrs r5rs)))) (()) ((((x c~1185902126~1754) variable x~1185902126~1756 (0) #f (rnrs r5rs)))) . env~1185902126~1745) (env~1185902126~1745 ((((make-promise) variable make-promise~1185902126~1770 (0) #f (rnrs r5rs)) ((delay) macro delay~1185902126~1753 (0) #f (rnrs r5rs)) ((force) variable force~1185902126~1751 (0) #f (rnrs r5rs)) ((null-environment) variable null-environment~1185902126~1749 (0) #f (rnrs r5rs)) ((scheme-report-environment) variable scheme-report-environment~1185902126~1747 (0) #f (rnrs r5rs)) ((environment-bindings) variable $ex:environment-bindings (0) #f ()) ((syntax-violation) variable $ex:syntax-violation (0) #f ()) ((syntax->datum) variable $ex:syntax->datum (0) #f ()) ((datum->syntax) variable $ex:datum->syntax (0) #f ()) ((generate-temporaries) variable $ex:generate-temporaries (0) #f ()) ((free-identifier=?) variable $ex:free-identifier=? (0) #f ()) ((bound-identifier=?) variable $ex:bound-identifier=? (0) #f ()) ((identifier?) variable $ex:identifier? (0) #f ()) ((make-variable-transformer) variable $ex:make-variable-transformer (0) #f ()) ((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 ()) ((set-cdr!) variable set-cdr! (0) #f ()) ((set-car!) variable set-car! (0) #f ()) ((string-set!) variable string-set! (0) #f ()) ((string-fill!) variable string-fill! (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 ()) ((char-lower-case?) variable char-lower-case? (0) #f ()) ((char-upper-case?) variable char-upper-case? (0) #f ()) ((char-whitespace?) variable char-whitespace? (0) #f ()) ((char-numeric?) variable char-numeric? (0) #f ()) ((char-alphabetic?) variable char-alphabetic? (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-downcase) variable char-downcase (0) #f ()) ((char-upcase) variable char-upcase (0) #f ()) ((write-char) variable write-char (0) #f ()) ((write) variable write (0) #f ()) ((with-output-to-file) variable with-output-to-file (0) #f ()) ((with-input-from-file) variable with-input-from-file (0) #f ()) ((read-char) variable read-char (0) #f ()) ((read) variable read (0) #f ()) ((peek-char) variable peek-char (0) #f ()) ((open-output-file) variable open-output-file (0) #f ()) ((open-input-file) variable open-input-file (0) #f ()) ((newline) variable newline (0) #f ()) ((eof-object?) variable eof-object? (0) #f ()) ((display) variable display (0) #f ()) ((current-output-port) variable current-output-port (0) #f ()) ((current-input-port) variable current-input-port (0) #f ()) ((close-output-port) variable close-output-port (0) #f ()) ((close-input-port) variable close-input-port (0) #f ()) ((call-with-output-file) variable call-with-output-file (0) #f ()) ((call-with-input-file) variable call-with-input-file (0) #f ()) ((assq) variable assq (0) #f ()) ((assv) variable assv (0) #f ()) ((assoc) variable assoc (0) #f ()) ((assp) variable assp (0) #f ()) ((memq) variable memq (0) #f ()) ((memv) variable memv (0) #f ()) ((member) variable member (0) #f ()) ((memp) variable memp (0) #f ()) ((remv) variable remv (0) #f ()) ((remq) variable remq (0) #f ()) ((remove) variable remove (0) #f ()) ((remp) variable remp (0) #f ()) ((fold-right) variable fold-right (0) #f ()) ((fold-left) variable fold-left (0) #f ()) ((partition) variable partition (0) #f ()) ((filter) variable filter (0) #f ()) ((exists) variable exists (0) #f ()) ((for-all) variable for-all (0) #f ()) ((find) variable find (0) #f ()) ((syntax-case) macro syntax-case (0) #f ()) ((syntax) macro syntax (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 ()) ((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~1185902126~537 (1) #f (core identifier-syntax)) ((syntax-rules) macro syntax-rules~1185902126~67 (1) #f (core syntax-rules)) ((unquote-splicing) macro unquote-splicing~1185902126~1304 (0) #f (core quasiquote)) ((unquote) macro unquote~1185902126~1299 (0) #f (core quasiquote)) ((quasiquote) macro quasiquote~1185902126~829 (0) #f (core quasiquote)) ((=>) macro =>~1185902126~525 (0) #f (core derived)) ((else) macro else~1185902126~530 (0) #f (core derived)) ((cond) macro cond~1185902126~318 (0) #f (core derived)) ((case) macro case~1185902126~439 (0) #f (core derived)) ((let*-values) macro let*-values~1185902126~1453 (0) #f (core let-values)) ((let-values) macro let-values~1185902126~1311 (0) #f (core let-values)) ((letrec*) macro letrec*~1185902126~201 (0) #f (core let)) ((letrec) macro letrec~1185902126~165 (0) #f (core let)) ((let*) macro let*~1185902126~232 (0) #f (core derived)) ((let) macro let~1185902126~115 (0) #f (core let)) ((...) macro ... (1 0) #f ()) ((_) macro _ (1 0) #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~1185902126~1597 (0) #f (rnrs control)) ((do) macro do~1185902126~1533 (0) #f (rnrs control)) ((unless) macro unless~1185902126~1512 (0) #f (rnrs control)) ((when) macro when~1185902126~1491 (0) #f (rnrs control)))))))) (define ~rnrs.r5rs~exports (quote ((null-environment variable null-environment~1185902126~1749 (0) #f (rnrs r5rs)) (scheme-report-environment variable scheme-report-environment~1185902126~1747 (0) #f (rnrs r5rs)) (delay macro delay~1185902126~1753 (0) #f (rnrs r5rs)) (force variable force~1185902126~1751 (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 ())))) (define ~rnrs.r5rs~imports (quote (((rnrs control) 0) ((rnrs base) 0) ((rnrs eval) 0) ((core primitives) 0)))) (define (~rnrs.r5rs~visit) ($ex:register-macro! (quote delay~1185902126~1753) (lambda (x~1185902126~1756) ((lambda () (let ((input~1185902126~1759 x~1185902126~1756)) (let ((fail~1185902126~1760 (lambda () ($ex:invalid-form input~1185902126~1759)))) (if (pair? input~1185902126~1759) (let ((temp~1185902126~1768 (car input~1185902126~1759))) (let ((dummy~1185902126~1761 temp~1185902126~1768)) (let ((temp~1185902126~1765 (cdr input~1185902126~1759))) (if (pair? temp~1185902126~1765) (let ((temp~1185902126~1767 (car temp~1185902126~1765))) (let ((expression~1185902126~1762 temp~1185902126~1767)) (let ((temp~1185902126~1766 (cdr temp~1185902126~1765))) (if (null? temp~1185902126~1766) (cons ($ex:syntax-rename (quote make-promise) (quote ()) (quote (env~1185902126~1764)) 0 (quote (rnrs r5rs))) (cons (cons ($ex:syntax-rename (quote lambda) (quote ()) (quote (env~1185902126~1764)) 0 (quote (rnrs r5rs))) (cons (quote ()) (cons expression~1185902126~1762 (quote ())))) (quote ()))) (fail~1185902126~1760))))) (fail~1185902126~1760))))) (fail~1185902126~1760)))))))) ($ex:unspecified)) (define make-promise~1185902126~1770 ($ex:unspecified)) (define force~1185902126~1751 ($ex:unspecified)) (define null-environment~1185902126~1749 ($ex:unspecified)) (define scheme-report-environment~1185902126~1747 ($ex:unspecified)) (define (~rnrs.r5rs~invoke) (set! scheme-report-environment~1185902126~1747 ((lambda (r5rs-env~1185902126~1808) ((lambda () (lambda (n~1185902126~1811) ((lambda () (if (not (= n~1185902126~1811 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" n~1185902126~1811))) r5rs-env~1185902126~1808)))))) ($ex:environment (quote (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)) (quote (only (rnrs eval) eval)) (quote (only (rnrs control) do)) (quote (only (rnrs lists) assoc assv assq)) (quote (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)) (quote (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>=?)) (quote (only (rnrs mutable-pairs) set-car! set-cdr!)) (quote (only (rnrs lists) assoc assv assq member memv memq)) (quote (only (rnrs mutable-strings) string-set! string-fill!)) (quote (rnrs r5rs))))) (set! null-environment~1185902126~1749 ((lambda (null-env~1185902126~1795) ((lambda () (lambda (n~1185902126~1798) ((lambda () (if (not (= n~1185902126~1798 5)) (begin (assertion-violation (quote scheme-report-environment) "Argument should be 5" n~1185902126~1798))) null-env~1185902126~1795)))))) ($ex:environment (quote (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 ...)) (quote (only (rnrs control) do))))) (set! force~1185902126~1751 (lambda (object~1185902126~1792) ((lambda () (object~1185902126~1792))))) (set! make-promise~1185902126~1770 (lambda (proc~1185902126~1772) ((lambda () ((lambda (result-ready?~1185902126~1775 result~1185902126~1776) ((lambda () (lambda () ((lambda () (if result-ready?~1185902126~1775 result~1185902126~1776 ((lambda (x~1185902126~1783) ((lambda () (if result-ready?~1185902126~1775 result~1185902126~1776 (begin (set! result-ready?~1185902126~1775 #t) (set! result~1185902126~1776 x~1185902126~1783) result~1185902126~1776))))) (proc~1185902126~1772))))))))) #f #f))))) ($ex:unspecified)))

(begin (define ~rnrs.eval.reflection~envs (quote ())) (define ~rnrs.eval.reflection~exports (quote ((environment-bindings variable $ex:environment-bindings (0) #f ())))) (define ~rnrs.eval.reflection~imports (quote (((core primitives) 0)))) (define (~rnrs.eval.reflection~visit) ($ex:unspecified)) (define (~rnrs.eval.reflection~invoke) ($ex:unspecified)))