From 1487a850b9470724dd62830f8209b709a75dddd9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 8 Apr 2016 23:34:30 -0400 Subject: [PATCH] WIP --- debug/compilation/boyer/nboyer.c | 16770 ++++++++++++++++++++++++++ debug/compilation/boyer/nboyer.scm | 836 ++ debug/compilation/boyer/sboyer.c | 17115 +++++++++++++++++++++++++++ debug/compilation/boyer/sboyer.scm | 849 ++ 4 files changed, 35570 insertions(+) create mode 100644 debug/compilation/boyer/nboyer.c create mode 100644 debug/compilation/boyer/nboyer.scm create mode 100644 debug/compilation/boyer/sboyer.c create mode 100644 debug/compilation/boyer/sboyer.scm diff --git a/debug/compilation/boyer/nboyer.c b/debug/compilation/boyer/nboyer.c new file mode 100644 index 00000000..44706a09 --- /dev/null +++ b/debug/compilation/boyer/nboyer.c @@ -0,0 +1,16770 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** + ** (c) 2014-2016 Justin Ethier + ** Version 0.0.5 (Pre-release) + ** + **/ + +/* +"---------------- input program:" */ +/* +((import (scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) (define (main) (let* ((count (read)) (input (read)) (output (read)) (s2 (number->string count)) (s1 (number->string input)) (name "nboyer")) (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (and (number? rewrites) (= rewrites output)))))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define (setup-boyer . args) #t) (define (test-boyer . args) #t) (let () (define (setup) (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) (quote equal)) (pair? (cadr term))) (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas))))) (else (error #f "ADD-LEMMA did not like term: " term)))) (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) (quote ())) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) (define *symbol-records-alist* (quote ())) (define (make-symbol-record sym) (vector sym (quote ()))) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) (define (test alist term n) (let ((term (apply-subst (translate-alist alist) (translate-term (do ((term term (list (quote or) term (quote (f))) ...) (n n (- n 1) ...)) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) (quote ())) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) (quote ())) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) (quote ()) (quote ()))) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor (quote *)) (define rewrite-count 0) (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) (quote ())) (else (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst (quote *)) (define (one-way-unify term1 term2) (begin (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) (equal? term1 term2)) (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term (quote *)) (define true-term (quote *)) (define (trans-of-implies n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list (quote implies) 0 1)) (else (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))) (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) (let ((answer (test alist term n))) (if answer rewrite-count #f))))) (define (hide r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x)))) (define (run-r7rs-benchmark name count thunk ok?) (define (rounded x) (/ (round (* 1000 x)) 1000)) (display "Running ") (display name) (newline) (flush-output-port) (let* ((j/s (jiffies-per-second)) (t0 (current-second)) (j0 (current-jiffy))) (let loop ((i 0) (result (if #f #f))) (cond ((< i count) (loop (+ i 1) (thunk))) ((ok? result) (let* ((j1 (current-jiffy)) (t1 (current-second)) (jifs (- j1 j0)) (secs (inexact (/ jifs j/s))) (secs2 (rounded (- t1 t0)))) (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)) result) (else (display "ERROR: returned incorrect result: ") (write result) (newline) result))))) (main)) */ +/* +"imports:" */ +/* +((scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) */ +/* +"resolved imports:" */ +/* +((cons-source scheme base) (syntax-rules scheme base) (letrec* scheme base) (guard scheme base) (guard-aux scheme base) (receive scheme base) (abs scheme base) (max scheme base) (min scheme base) (modulo scheme base) (floor-remainder scheme base) (even? scheme base) (exact-integer? scheme base) (exact? scheme base) (inexact? scheme base) (odd? scheme base) (complex? scheme base) (rational? scheme base) (gcd scheme base) (lcm scheme base) (quotient scheme base) (remainder scheme base) (truncate-quotient scheme base) (truncate-remainder scheme base) (truncate/ scheme base) (floor-quotient scheme base) (floor-remainder scheme base) (floor/ scheme base) (square scheme base) (expt scheme base) (call-with-current-continuation scheme base) (call/cc scheme base) (call-with-values scheme base) (dynamic-wind scheme base) (values scheme base) (char=? scheme base) (char? scheme base) (char<=? scheme base) (char>=? scheme base) (string=? scheme base) (string? scheme base) (string>=? scheme base) (foldl scheme base) (foldr scheme base) (not scheme base) (list? scheme base) (zero? scheme base) (positive? scheme base) (negative? scheme base) (append scheme base) (list scheme base) (make-list scheme base) (list-copy scheme base) (map scheme base) (for-each scheme base) (list-tail scheme base) (list-ref scheme base) (list-set! scheme base) (reverse scheme base) (boolean=? scheme base) (symbol=? scheme base) (Cyc-obj=? scheme base) (vector scheme base) (vector-append scheme base) (vector-copy scheme base) (vector-copy! scheme base) (vector-fill! scheme base) (vector->list scheme base) (vector->string scheme base) (vector-map scheme base) (vector-for-each scheme base) (make-string scheme base) (string scheme base) (string-copy scheme base) (string-copy! scheme base) (string-fill! scheme base) (string->list scheme base) (string->vector scheme base) (string-map scheme base) (string-for-each scheme base) (make-parameter scheme base) (current-output-port scheme base) (current-input-port scheme base) (current-error-port scheme base) (call-with-port scheme base) (error scheme base) (raise scheme base) (raise-continuable scheme base) (with-exception-handler scheme base) (Cyc-add-exception-handler scheme base) (Cyc-remove-exception-handler scheme base) (newline scheme base) (write-char scheme base) (write-string scheme base) (flush-output-port scheme base) (read-line scheme base) (read-string scheme base) (input-port? scheme base) (output-port? scheme base) (input-port-open? scheme base) (output-port-open? scheme base) (features scheme base) (any scheme base) (every scheme base) (and scheme base) (or scheme base) (let scheme base) (let* scheme base) (letrec scheme base) (begin scheme base) (case scheme base) (cond scheme base) (cond-expand scheme base) (do scheme base) (when scheme base) (unless scheme base) (quasiquote scheme base) (floor scheme base) (ceiling scheme base) (truncate scheme base) (round scheme base) (exact scheme base) (inexact scheme base) (eof-object scheme base) (syntax-error scheme base) (bytevector-copy scheme base) (utf8->string scheme base) (string->utf8 scheme base) (denominator scheme base) (numerator scheme base) (caaaaar scheme cxr) (read scheme read) (read-all scheme read) (display scheme write) (write scheme write) (current-second scheme time) (current-jiffy scheme time) (jiffies-per-second scheme time)) */ +/* +"resolved macros:" */ +/* +() */ +/* +"---------------- after macro expansion:" */ +/* +((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "nboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define setup-boyer (lambda args #t)) (define test-boyer (lambda args #t)) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (main)) */ +/* +"---------------- after processing globals" */ +/* +((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "nboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda args #t)) (define test-boyer (lambda args #t)) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (main)))) */ +/* +"---------------- after alpha conversion:" */ +/* +((define main (lambda () ((lambda (count$254) ((lambda (input$255) ((lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () (run-r7rs-benchmark (string-append name$259 ":" s1$258 ":" s2$257) count$254 (lambda () (setup-boyer) (test-boyer alist term (hide count$254 input$255))) (lambda (rewrites$260) (if (number? rewrites$260) (= rewrites$260 output$256) #f)))))) "nboyer")) (number->string input$255))) (number->string count$254))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda args$253 #t)) (define test-boyer (lambda args$252 #t)) (define hide (lambda (r$248 x$247) (call-with-values (lambda () (values (vector values (lambda (x$251) x$251)) (if (< r$248 100) 0 1))) (lambda (v$250 i$249) ((vector-ref v$250 i$249) x$247))))) (define run-r7rs-benchmark (lambda (name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) (set! rounded$231 (lambda (x$246) (/ (round (* 1000 x$246)) 1000))) (display "Running ") (display name$229) (newline) (flush-output-port) ((lambda (j/s$233) ((lambda (t0$234) ((lambda (j0$235) ((lambda () ((lambda (i$237 result$236) ((lambda (loop$238) (set! loop$238 (lambda (i$240 result$239) (if (< i$240 count$228) ((lambda () (loop$238 (+ i$240 1) (thunk$227)))) (if (ok?$226 result$239) ((lambda () ((lambda (j1$241) ((lambda (t1$242) ((lambda (jifs$243) ((lambda (secs$244) ((lambda (secs2$245) ((lambda () (display "Elapsed time: ") (write secs$244) (display " seconds (") (write secs2$245) (display ") for ") (display name$229) (newline)))) (rounded$231 (- t1$242 t0$234)))) (inexact (/ jifs$243 j/s$233)))) (- j1$241 j0$235))) (current-second))) (current-jiffy)) result$239)) ((lambda () (display "ERROR: returned incorrect result: ") (write result$239) (newline) result$239)))))) (loop$238 i$237 result$236)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) (set! setup$157 (lambda () (add-lemma-lst$156 (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (set! add-lemma-lst$156 (lambda (lst$225) (if (null? lst$225) ((lambda () #t)) ((lambda () (add-lemma$155 (car lst$225)) (add-lemma-lst$156 (cdr lst$225))))))) (set! add-lemma$155 (lambda (term$224) (if (if (pair? term$224) (if (eq? (car term$224) (quote equal)) (pair? (cadr term$224)) #f) #f) ((lambda () (put$151 (car (cadr term$224)) (quote lemmas) (cons (translate-term$154 term$224) (get$150 (car (cadr term$224)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term$224)))))) (set! translate-term$154 (lambda (term$223) (if (pair? term$223) ((lambda () (cons (symbol->symbol-record$149 (car term$223)) (translate-args$153 (cdr term$223))))) ((lambda () term$223))))) (set! translate-args$153 (lambda (lst$222) (if (null? lst$222) ((lambda () (quote ()))) ((lambda () (cons (translate-term$154 (car lst$222)) (translate-args$153 (cdr lst$222)))))))) (set! untranslate-term$152 (lambda (term$221) (if (pair? term$221) ((lambda () (cons (get-name$144 (car term$221)) (map untranslate-term$152 (cdr term$221))))) ((lambda () term$221))))) (set! put$151 (lambda (sym$220 property$219 value$218) (put-lemmas!$146 (symbol->symbol-record$149 sym$220) value$218))) (set! get$150 (lambda (sym$217 property$216) (get-lemmas$145 (symbol->symbol-record$149 sym$217)))) (set! symbol->symbol-record$149 (lambda (sym$213) ((lambda (x$214) (if x$214 (cdr x$214) ((lambda (r$215) (set! *symbol-records-alist*$148 (cons (cons sym$213 r$215) *symbol-records-alist*$148)) r$215) (make-symbol-record$147 sym$213)))) (assq sym$213 *symbol-records-alist*$148)))) (set! *symbol-records-alist*$148 (quote ())) (set! make-symbol-record$147 (lambda (sym$212) (vector sym$212 (quote ())))) (set! put-lemmas!$146 (lambda (symbol-record$211 lemmas$210) (vector-set! symbol-record$211 1 lemmas$210))) (set! get-lemmas$145 (lambda (symbol-record$209) (vector-ref symbol-record$209 1))) (set! get-name$144 (lambda (symbol-record$208) (vector-ref symbol-record$208 0))) (set! symbol-record-equal?$143 (lambda (r1$207 r2$206) (eq? r1$207 r2$206))) (set! test$142 (lambda (alist$199 term$198 n$197) ((lambda (term$205) (tautp$138 term$205)) (apply-subst$140 (translate-alist$141 alist$199) (translate-term$154 ((lambda (term$201 n$200) ((lambda (lp$202) (set! lp$202 (lambda (term$204 n$203) (if (zero? n$203) term$204 (lp$202 (list (quote or) term$204 (quote (f))) (- n$203 1))))) (lp$202 term$201 n$200)) #f)) term$198 n$197)))))) (set! translate-alist$141 (lambda (alist$196) (if (null? alist$196) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist$196) (translate-term$154 (cdar alist$196))) (translate-alist$141 (cdr alist$196)))))))) (set! apply-subst$140 (lambda (alist$194 term$193) (if (pair? term$193) ((lambda () (cons (car term$193) (apply-subst-lst$139 alist$194 (cdr term$193))))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (cdr temp-temp$195) term$193)) (assq term$193 alist$194))))))) (set! apply-subst-lst$139 (lambda (alist$192 lst$191) (if (null? lst$191) ((lambda () (quote ()))) ((lambda () (cons (apply-subst$140 alist$192 (car lst$191)) (apply-subst-lst$139 alist$192 (cdr lst$191)))))))) (set! tautp$138 (lambda (x$190) (tautologyp$137 (rewrite$134 x$190) (quote ()) (quote ())))) (set! tautologyp$137 (lambda (x$189 true-lst$188 false-lst$187) (if (truep$126 x$189 true-lst$188) ((lambda () #t)) (if (falsep$127 x$189 false-lst$187) ((lambda () #f)) (if (pair? x$189) (if (eq? (car x$189) if-constructor$136) ((lambda () (if (truep$126 (cadr x$189) true-lst$188) ((lambda () (tautologyp$137 (caddr x$189) true-lst$188 false-lst$187))) (if (falsep$127 (cadr x$189) false-lst$187) ((lambda () (tautologyp$137 (cadddr x$189) true-lst$188 false-lst$187))) ((lambda () (if (tautologyp$137 (caddr x$189) (cons (cadr x$189) true-lst$188) false-lst$187) (tautologyp$137 (cadddr x$189) true-lst$188 (cons (cadr x$189) false-lst$187)) #f))))))) ((lambda () #f))) ((lambda () #f))))))) (set! if-constructor$136 (quote *)) (set! rewrite-count$135 0) (set! rewrite$134 (lambda (term$186) (set! rewrite-count$135 (+ rewrite-count$135 1)) (if (pair? term$186) ((lambda () (rewrite-with-lemmas$132 (cons (car term$186) (rewrite-args$133 (cdr term$186))) (get-lemmas$145 (car term$186))))) ((lambda () term$186))))) (set! rewrite-args$133 (lambda (lst$185) (if (null? lst$185) ((lambda () (quote ()))) ((lambda () (cons (rewrite$134 (car lst$185)) (rewrite-args$133 (cdr lst$185)))))))) (set! rewrite-with-lemmas$132 (lambda (term$184 lst$183) (if (null? lst$183) ((lambda () term$184)) (if (one-way-unify$130 term$184 (cadr (car lst$183))) ((lambda () (rewrite$134 (apply-subst$140 unify-subst$131 (caddr (car lst$183)))))) ((lambda () (rewrite-with-lemmas$132 term$184 (cdr lst$183)))))))) (set! unify-subst$131 (quote *)) (set! one-way-unify$130 (lambda (term1$182 term2$181) (set! unify-subst$131 (quote ())) (one-way-unify1$129 term1$182 term2$181))) (set! one-way-unify1$129 (lambda (term1$179 term2$178) (if (pair? term2$178) (if (pair? term1$179) (if (eq? (car term1$179) (car term2$178)) ((lambda () (one-way-unify1-lst$128 (cdr term1$179) (cdr term2$178)))) ((lambda () #f))) ((lambda () #f))) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () (term-equal?$121 term1$179 (cdr temp-temp$180)))) (if (number? term2$178) ((lambda () (equal? term1$179 term2$178))) ((lambda () (set! unify-subst$131 (cons (cons term2$178 term1$179) unify-subst$131)) #t))))) (assq term2$178 unify-subst$131))))))) (set! one-way-unify1-lst$128 (lambda (lst1$177 lst2$176) (if (null? lst1$177) ((lambda () (null? lst2$176))) (if (null? lst2$176) ((lambda () #f)) (if (one-way-unify1$129 (car lst1$177) (car lst2$176)) ((lambda () (one-way-unify1-lst$128 (cdr lst1$177) (cdr lst2$176)))) ((lambda () #f))))))) (set! falsep$127 (lambda (x$174 lst$173) ((lambda (tmp$175) (if tmp$175 tmp$175 (term-member?$119 x$174 lst$173))) (term-equal?$121 x$174 false-term$125)))) (set! truep$126 (lambda (x$171 lst$170) ((lambda (tmp$172) (if tmp$172 tmp$172 (term-member?$119 x$171 lst$170))) (term-equal?$121 x$171 true-term$124)))) (set! false-term$125 (quote *)) (set! true-term$124 (quote *)) (set! trans-of-implies$123 (lambda (n$169) (translate-term$154 (list (quote implies) (trans-of-implies1$122 n$169) (list (quote implies) 0 n$169))))) (set! trans-of-implies1$122 (lambda (n$168) (if (equal? n$168 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n$168 1) n$168) (trans-of-implies1$122 (- n$168 1)))))))) (set! term-equal?$121 (lambda (x$167 y$166) (if (pair? x$167) ((lambda () (if (pair? y$166) (if (symbol-record-equal?$143 (car x$167) (car y$166)) (term-args-equal?$120 (cdr x$167) (cdr y$166)) #f) #f))) ((lambda () (equal? x$167 y$166)))))) (set! term-args-equal?$120 (lambda (lst1$165 lst2$164) (if (null? lst1$165) ((lambda () (null? lst2$164))) (if (null? lst2$164) ((lambda () #f)) (if (term-equal?$121 (car lst1$165) (car lst2$164)) ((lambda () (term-args-equal?$120 (cdr lst1$165) (cdr lst2$164)))) ((lambda () #f))))))) (set! term-member?$119 (lambda (x$163 lst$162) (if (null? lst$162) ((lambda () #f)) (if (term-equal?$121 x$163 (car lst$162)) ((lambda () #t)) ((lambda () (term-member?$119 x$163 (cdr lst$162)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist*$148 (quote ())) (set! if-constructor$136 (symbol->symbol-record$149 (quote if))) (set! false-term$125 (translate-term$154 (quote (f)))) (set! true-term$124 (translate-term$154 (quote (t)))) (setup$157))) (set! test-boyer (lambda (alist$160 term$159 n$158) (set! rewrite-count$135 0) ((lambda (answer$161) (if answer$161 rewrite-count$135 #f)) (test$142 alist$160 term$159 n$158))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (main)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after CPS:" */ +/* +((define main (lambda (k$633) (read (lambda (r$634) ((lambda (count$254) (read (lambda (r$635) ((lambda (input$255) (read (lambda (r$636) ((lambda (output$256) ((lambda (r$637) ((lambda (s2$257) ((lambda (r$638) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) r$638)) (number->string input$255))) r$637)) (number->string count$254))) r$636)))) r$635)))) r$634))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (r$574) ((lambda (j/s$233) (current-second (lambda (r$575) ((lambda (t0$234) (current-jiffy (lambda (r$576) ((lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) (loop$238 k$568 i$237 result$236)) (set! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) (loop$238 k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (r$586) ((lambda (j1$241) (current-second (lambda (r$587) ((lambda (t1$242) ((lambda (r$588) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (r$589) ((lambda (secs$244) ((lambda (r$597) (rounded$231 (lambda (r$590) ((lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$590)) r$597)) (- t1$242 t0$234))) r$589)) r$598)) (/ jifs$243 j/s$233))) r$588)) (- j1$241 j0$235))) r$587)))) r$586))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) #f)) 0 r$577)))))) r$576)))) r$575)))) r$574)))))))) name$229)) "Running ")) (set! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) (test$142 (lambda (r$308) ((lambda (answer$161) (if answer$161 (k$306 rewrite-count$135) (k$306 #f))) r$308)) alist$160 term$159 n$158)) (set! rewrite-count$135 0))))) (set! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) (symbol->symbol-record$149 (lambda (r$319) ((lambda (r$312) ((lambda (r$318) (translate-term$154 (lambda (r$317) ((lambda (r$313) ((lambda (r$316) (translate-term$154 (lambda (r$315) ((lambda (r$314) (setup$157 k$310)) (set! true-term$124 r$315))) r$316)) (quote (t)))) (set! false-term$125 r$317))) r$318)) (quote (f)))) (set! if-constructor$136 r$319))) r$320)) (quote if))) (set! *symbol-records-alist*$148 r$321))) (quote ()))))) (set! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) (term-equal?$121 (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) (term-member?$119 k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) (term-equal?$121 (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) (term-args-equal?$120 k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) (symbol-record-equal?$143 (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) (term-args-equal?$120 k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) (trans-of-implies1$122 (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) (trans-of-implies1$122 (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) (translate-term$154 k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set! true-term$124 r$363))) (quote *))) (set! false-term$125 r$364))) (quote *))) (set! truep$126 r$365))) (lambda (k$366 x$171 lst$170) (term-equal?$121 (lambda (r$367) ((lambda (tmp$172) (if tmp$172 (k$366 tmp$172) (term-member?$119 k$366 x$171 lst$170))) r$367)) x$171 true-term$124)))) (set! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) (term-equal?$121 (lambda (r$370) ((lambda (tmp$175) (if tmp$175 (k$369 tmp$175) (term-member?$119 k$369 x$174 lst$173))) r$370)) x$174 false-term$125)))) (set! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) (one-way-unify1$129 (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) (one-way-unify1-lst$128 k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) (one-way-unify1-lst$128 k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (r$389) ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) (term-equal?$121 k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set! unify-subst$131 r$393))) (cons r$394 unify-subst$131))) (cons term2$178 term1$179)))))) (number? term2$178)))) r$389)) (assq term2$178 unify-subst$131)))))) (pair? term2$178))))) (set! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) (one-way-unify1$129 k$396 term1$182 term2$181)) (set! unify-subst$131 r$398))) (quote ()))))) (set! unify-subst$131 r$399))) (quote *))) (set! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) (one-way-unify$130 (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) (apply-subst$140 (lambda (r$404) (rewrite$134 k$401 r$404)) unify-subst$131 r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) (rewrite-with-lemmas$132 k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) (rewrite$134 (lambda (r$413) ((lambda (r$415) (rewrite-args$133 (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) (rewrite-args$133 (lambda (r$425) ((lambda (r$421) ((lambda (r$423) (get-lemmas$145 (lambda (r$422) (rewrite-with-lemmas$132 k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set! rewrite-count$135 r$427))) (+ rewrite-count$135 1))))) (set! rewrite-count$135 0))) (set! if-constructor$136 r$428))) (quote *))) (set! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) (truep$126 (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) (falsep$127 (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) (truep$126 (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) (tautologyp$137 k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) (falsep$127 (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) (tautologyp$137 k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) (tautologyp$137 (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) (tautologyp$137 k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 if-constructor$136))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set! tautp$138 r$449))) (lambda (k$450 x$190) (rewrite$134 (lambda (r$451) ((lambda (r$452) ((lambda (r$453) (tautologyp$137 k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) (apply-subst$140 (lambda (r$457) ((lambda (r$459) (apply-subst-lst$139 (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) (apply-subst-lst$139 (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (r$467) ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) r$467)) (assq term$193 alist$194)))))) (pair? term$193))))) (set! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) (translate-term$154 (lambda (r$475) ((lambda (r$471) ((lambda (r$473) (translate-alist$141 (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) (translate-alist$141 (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) (lp$202 (lambda (r$482) (translate-term$154 (lambda (r$481) (apply-subst$140 (lambda (r$479) ((lambda (term$205) (tautp$138 k$478 term$205)) r$479)) r$480 r$481)) r$482)) term$201 n$200)) (set! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) (lp$202 k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) #f)) term$198 n$197)) alist$199)))) (set! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set! *symbol-records-alist*$148 r$502))) (quote ()))) (set! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (r$505) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) (make-symbol-record$147 (lambda (r$506) ((lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set! *symbol-records-alist*$148 r$508))) (cons r$509 *symbol-records-alist*$148))) (cons sym$213 r$215))) r$506)) sym$213))) r$505)) (assq sym$213 *symbol-records-alist*$148))))) (set! get$150 r$510))) (lambda (k$511 sym$217 property$216) (symbol->symbol-record$149 (lambda (r$512) (get-lemmas$145 k$511 r$512)) sym$217)))) (set! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) (symbol->symbol-record$149 (lambda (r$515) (put-lemmas!$146 k$514 r$515 value$218)) sym$220)))) (set! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) (get-name$144 (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) untranslate-term$152 r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) (translate-term$154 (lambda (r$526) ((lambda (r$528) (translate-args$153 (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) (symbol->symbol-record$149 (lambda (r$533) ((lambda (r$535) (translate-args$153 (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) (translate-term$154 (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) (get$150 (lambda (r$544) ((lambda (r$542) (put$151 k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term: " term$224))))))))) (set! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) (add-lemma$155 (lambda (r$558) ((lambda (r$559) (add-lemma-lst$156 k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) (add-lemma-lst$156 k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after cps optimizations:" */ +/* +((define main (lambda (k$633) (read (lambda (count$254) (read (lambda (input$255) (read (lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) (number->string input$255))) (number->string count$254)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (j/s$233) (current-second (lambda (t0$234) (current-jiffy (lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) (loop$238 k$568 i$237 result$236)) (set! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) (loop$238 k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (j1$241) (current-second (lambda (t1$242) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (secs$244) ((lambda (r$597) (rounded$231 (lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$597)) (- t1$242 t0$234))) r$598)) (/ jifs$243 j/s$233))) (- j1$241 j0$235)))))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) #f)) 0 r$577)))))))))))))))) name$229)) "Running ")) (set! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) (test$142 (lambda (answer$161) (if answer$161 (k$306 rewrite-count$135) (k$306 #f))) alist$160 term$159 n$158)) (set! rewrite-count$135 0))))) (set! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) (symbol->symbol-record$149 (lambda (r$319) ((lambda (r$312) ((lambda (r$318) (translate-term$154 (lambda (r$317) ((lambda (r$313) ((lambda (r$316) (translate-term$154 (lambda (r$315) ((lambda (r$314) (setup$157 k$310)) (set! true-term$124 r$315))) r$316)) (quote (t)))) (set! false-term$125 r$317))) r$318)) (quote (f)))) (set! if-constructor$136 r$319))) r$320)) (quote if))) (set! *symbol-records-alist*$148 r$321))) (quote ()))))) (set! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) (term-equal?$121 (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) (term-member?$119 k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) (term-equal?$121 (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) (term-args-equal?$120 k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) (symbol-record-equal?$143 (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) (term-args-equal?$120 k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) (trans-of-implies1$122 (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) (trans-of-implies1$122 (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) (translate-term$154 k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set! true-term$124 r$363))) (quote *))) (set! false-term$125 r$364))) (quote *))) (set! truep$126 r$365))) (lambda (k$366 x$171 lst$170) (term-equal?$121 (lambda (tmp$172) (if tmp$172 (k$366 tmp$172) (term-member?$119 k$366 x$171 lst$170))) x$171 true-term$124)))) (set! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) (term-equal?$121 (lambda (tmp$175) (if tmp$175 (k$369 tmp$175) (term-member?$119 k$369 x$174 lst$173))) x$174 false-term$125)))) (set! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) (one-way-unify1$129 (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) (one-way-unify1-lst$128 k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) (one-way-unify1-lst$128 k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) (term-equal?$121 k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set! unify-subst$131 r$393))) (cons r$394 unify-subst$131))) (cons term2$178 term1$179)))))) (number? term2$178)))) (assq term2$178 unify-subst$131)))))) (pair? term2$178))))) (set! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) (one-way-unify1$129 k$396 term1$182 term2$181)) (set! unify-subst$131 r$398))) (quote ()))))) (set! unify-subst$131 r$399))) (quote *))) (set! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) (one-way-unify$130 (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) (apply-subst$140 (lambda (r$404) (rewrite$134 k$401 r$404)) unify-subst$131 r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) (rewrite-with-lemmas$132 k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) (rewrite$134 (lambda (r$413) ((lambda (r$415) (rewrite-args$133 (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) (rewrite-args$133 (lambda (r$425) ((lambda (r$421) ((lambda (r$423) (get-lemmas$145 (lambda (r$422) (rewrite-with-lemmas$132 k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set! rewrite-count$135 r$427))) (+ rewrite-count$135 1))))) (set! rewrite-count$135 0))) (set! if-constructor$136 r$428))) (quote *))) (set! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) (truep$126 (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) (falsep$127 (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) (truep$126 (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) (tautologyp$137 k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) (falsep$127 (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) (tautologyp$137 k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) (tautologyp$137 (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) (tautologyp$137 k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 if-constructor$136))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set! tautp$138 r$449))) (lambda (k$450 x$190) (rewrite$134 (lambda (r$451) ((lambda (r$452) ((lambda (r$453) (tautologyp$137 k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) (apply-subst$140 (lambda (r$457) ((lambda (r$459) (apply-subst-lst$139 (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) (apply-subst-lst$139 (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) (assq term$193 alist$194)))))) (pair? term$193))))) (set! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) (translate-term$154 (lambda (r$475) ((lambda (r$471) ((lambda (r$473) (translate-alist$141 (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) (translate-alist$141 (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) (lp$202 (lambda (r$482) (translate-term$154 (lambda (r$481) (apply-subst$140 (lambda (term$205) (tautp$138 k$478 term$205)) r$480 r$481)) r$482)) term$201 n$200)) (set! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) (lp$202 k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) #f)) term$198 n$197)) alist$199)))) (set! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set! *symbol-records-alist*$148 r$502))) (quote ()))) (set! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) (make-symbol-record$147 (lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set! *symbol-records-alist*$148 r$508))) (cons r$509 *symbol-records-alist*$148))) (cons sym$213 r$215))) sym$213))) (assq sym$213 *symbol-records-alist*$148))))) (set! get$150 r$510))) (lambda (k$511 sym$217 property$216) (symbol->symbol-record$149 (lambda (r$512) (get-lemmas$145 k$511 r$512)) sym$217)))) (set! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) (symbol->symbol-record$149 (lambda (r$515) (put-lemmas!$146 k$514 r$515 value$218)) sym$220)))) (set! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) (get-name$144 (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) untranslate-term$152 r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) (translate-term$154 (lambda (r$526) ((lambda (r$528) (translate-args$153 (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) (symbol->symbol-record$149 (lambda (r$533) ((lambda (r$535) (translate-args$153 (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) (translate-term$154 (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) (get$150 (lambda (r$544) ((lambda (r$542) (put$151 k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term: " term$224))))))))) (set! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) (add-lemma$155 (lambda (r$558) ((lambda (r$559) (add-lemma-lst$156 k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) (add-lemma-lst$156 k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after wrap-mutables:" */ +/* +((define main (lambda (k$633) (read (lambda (count$254) (read (lambda (input$255) (read (lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) (number->string input$255))) (number->string count$254)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (j/s$233) (current-second (lambda (t0$234) (current-jiffy (lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) ((cell-get loop$238) k$568 i$237 result$236)) (set-cell! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) ((cell-get loop$238) k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (j1$241) (current-second (lambda (t1$242) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (secs$244) ((lambda (r$597) ((cell-get rounded$231) (lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$597)) (- t1$242 t0$234))) r$598)) (/ jifs$243 j/s$233))) (- j1$241 j0$235)))))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) (cell loop$238))) #f)) 0 r$577)))))))))))))))) name$229)) "Running ")) (set-cell! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) (cell rounded$231))) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (setup$157) ((lambda (add-lemma-lst$156) ((lambda (add-lemma$155) ((lambda (translate-term$154) ((lambda (translate-args$153) ((lambda (untranslate-term$152) ((lambda (put$151) ((lambda (get$150) ((lambda (symbol->symbol-record$149) ((lambda (*symbol-records-alist*$148) ((lambda (make-symbol-record$147) ((lambda (put-lemmas!$146) ((lambda (get-lemmas$145) ((lambda (get-name$144) ((lambda (symbol-record-equal?$143) ((lambda (test$142) ((lambda (translate-alist$141) ((lambda (apply-subst$140) ((lambda (apply-subst-lst$139) ((lambda (tautp$138) ((lambda (tautologyp$137) ((lambda (if-constructor$136) ((lambda (rewrite-count$135) ((lambda (rewrite$134) ((lambda (rewrite-args$133) ((lambda (rewrite-with-lemmas$132) ((lambda (unify-subst$131) ((lambda (one-way-unify$130) ((lambda (one-way-unify1$129) ((lambda (one-way-unify1-lst$128) ((lambda (falsep$127) ((lambda (truep$126) ((lambda (false-term$125) ((lambda (true-term$124) ((lambda (trans-of-implies$123) ((lambda (trans-of-implies1$122) ((lambda (term-equal?$121) ((lambda (term-args-equal?$120) ((lambda (term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set-global! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) ((cell-get test$142) (lambda (answer$161) (if answer$161 (k$306 (cell-get rewrite-count$135)) (k$306 #f))) alist$160 term$159 n$158)) (set-cell! rewrite-count$135 0))))) (set-global! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) ((cell-get symbol->symbol-record$149) (lambda (r$319) ((lambda (r$312) ((lambda (r$318) ((cell-get translate-term$154) (lambda (r$317) ((lambda (r$313) ((lambda (r$316) ((cell-get translate-term$154) (lambda (r$315) ((lambda (r$314) ((cell-get setup$157) k$310)) (set-cell! true-term$124 r$315))) r$316)) (quote (t)))) (set-cell! false-term$125 r$317))) r$318)) (quote (f)))) (set-cell! if-constructor$136 r$319))) r$320)) (quote if))) (set-cell! *symbol-records-alist*$148 r$321))) (quote ()))))) (set-cell! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) ((cell-get term-equal?$121) (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) ((cell-get term-member?$119) k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set-cell! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) ((cell-get term-equal?$121) (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) ((cell-get term-args-equal?$120) k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set-cell! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) ((cell-get symbol-record-equal?$143) (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) ((cell-get term-args-equal?$120) k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set-cell! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) ((cell-get trans-of-implies1$122) (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set-cell! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) ((cell-get trans-of-implies1$122) (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) ((cell-get translate-term$154) k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set-cell! true-term$124 r$363))) (quote *))) (set-cell! false-term$125 r$364))) (quote *))) (set-cell! truep$126 r$365))) (lambda (k$366 x$171 lst$170) ((cell-get term-equal?$121) (lambda (tmp$172) (if tmp$172 (k$366 tmp$172) ((cell-get term-member?$119) k$366 x$171 lst$170))) x$171 (cell-get true-term$124))))) (set-cell! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) ((cell-get term-equal?$121) (lambda (tmp$175) (if tmp$175 (k$369 tmp$175) ((cell-get term-member?$119) k$369 x$174 lst$173))) x$174 (cell-get false-term$125))))) (set-cell! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) ((cell-get one-way-unify1$129) (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) ((cell-get one-way-unify1-lst$128) k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set-cell! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) ((cell-get one-way-unify1-lst$128) k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) ((cell-get term-equal?$121) k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set-cell! unify-subst$131 r$393))) (cons r$394 (cell-get unify-subst$131)))) (cons term2$178 term1$179)))))) (number? term2$178)))) (assq term2$178 (cell-get unify-subst$131))))))) (pair? term2$178))))) (set-cell! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) ((cell-get one-way-unify1$129) k$396 term1$182 term2$181)) (set-cell! unify-subst$131 r$398))) (quote ()))))) (set-cell! unify-subst$131 r$399))) (quote *))) (set-cell! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) ((cell-get one-way-unify$130) (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) ((cell-get apply-subst$140) (lambda (r$404) ((cell-get rewrite$134) k$401 r$404)) (cell-get unify-subst$131) r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) ((cell-get rewrite-with-lemmas$132) k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set-cell! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) ((cell-get rewrite$134) (lambda (r$413) ((lambda (r$415) ((cell-get rewrite-args$133) (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set-cell! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) ((cell-get rewrite-args$133) (lambda (r$425) ((lambda (r$421) ((lambda (r$423) ((cell-get get-lemmas$145) (lambda (r$422) ((cell-get rewrite-with-lemmas$132) k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set-cell! rewrite-count$135 r$427))) (+ (cell-get rewrite-count$135) 1))))) (set-cell! rewrite-count$135 0))) (set-cell! if-constructor$136 r$428))) (quote *))) (set-cell! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) ((cell-get truep$126) (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) ((cell-get falsep$127) (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) ((cell-get truep$126) (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) ((cell-get tautologyp$137) k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) ((cell-get falsep$127) (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) ((cell-get tautologyp$137) k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) ((cell-get tautologyp$137) (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) ((cell-get tautologyp$137) k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 (cell-get if-constructor$136)))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set-cell! tautp$138 r$449))) (lambda (k$450 x$190) ((cell-get rewrite$134) (lambda (r$451) ((lambda (r$452) ((lambda (r$453) ((cell-get tautologyp$137) k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set-cell! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) ((cell-get apply-subst$140) (lambda (r$457) ((lambda (r$459) ((cell-get apply-subst-lst$139) (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set-cell! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) ((cell-get apply-subst-lst$139) (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) (assq term$193 alist$194)))))) (pair? term$193))))) (set-cell! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) ((cell-get translate-term$154) (lambda (r$475) ((lambda (r$471) ((lambda (r$473) ((cell-get translate-alist$141) (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set-cell! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) ((cell-get translate-alist$141) (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) ((cell-get lp$202) (lambda (r$482) ((cell-get translate-term$154) (lambda (r$481) ((cell-get apply-subst$140) (lambda (term$205) ((cell-get tautp$138) k$478 term$205)) r$480 r$481)) r$482)) term$201 n$200)) (set-cell! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) ((cell-get lp$202) k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) (cell lp$202))) #f)) term$198 n$197)) alist$199)))) (set-cell! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set-cell! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set-cell! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set-cell! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set-cell! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set-cell! *symbol-records-alist*$148 r$502))) (quote ()))) (set-cell! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) ((cell-get make-symbol-record$147) (lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set-cell! *symbol-records-alist*$148 r$508))) (cons r$509 (cell-get *symbol-records-alist*$148)))) (cons sym$213 r$215))) sym$213))) (assq sym$213 (cell-get *symbol-records-alist*$148)))))) (set-cell! get$150 r$510))) (lambda (k$511 sym$217 property$216) ((cell-get symbol->symbol-record$149) (lambda (r$512) ((cell-get get-lemmas$145) k$511 r$512)) sym$217)))) (set-cell! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) ((cell-get symbol->symbol-record$149) (lambda (r$515) ((cell-get put-lemmas!$146) k$514 r$515 value$218)) sym$220)))) (set-cell! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) ((cell-get get-name$144) (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) (cell-get untranslate-term$152) r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set-cell! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) ((cell-get translate-term$154) (lambda (r$526) ((lambda (r$528) ((cell-get translate-args$153) (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set-cell! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) ((cell-get symbol->symbol-record$149) (lambda (r$533) ((lambda (r$535) ((cell-get translate-args$153) (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set-cell! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) ((cell-get translate-term$154) (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) ((cell-get get$150) (lambda (r$544) ((lambda (r$542) ((cell-get put$151) k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term: " term$224))))))))) (set-cell! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) ((cell-get add-lemma$155) (lambda (r$558) ((lambda (r$559) ((cell-get add-lemma-lst$156) k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set-cell! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) ((cell-get add-lemma-lst$156) k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) (cell term-member?$119))) (cell term-args-equal?$120))) (cell term-equal?$121))) (cell trans-of-implies1$122))) (cell trans-of-implies$123))) (cell true-term$124))) (cell false-term$125))) (cell truep$126))) (cell falsep$127))) (cell one-way-unify1-lst$128))) (cell one-way-unify1$129))) (cell one-way-unify$130))) (cell unify-subst$131))) (cell rewrite-with-lemmas$132))) (cell rewrite-args$133))) (cell rewrite$134))) (cell rewrite-count$135))) (cell if-constructor$136))) (cell tautologyp$137))) (cell tautp$138))) (cell apply-subst-lst$139))) (cell apply-subst$140))) (cell translate-alist$141))) (cell test$142))) (cell symbol-record-equal?$143))) (cell get-name$144))) (cell get-lemmas$145))) (cell put-lemmas!$146))) (cell make-symbol-record$147))) (cell *symbol-records-alist*$148))) (cell symbol->symbol-record$149))) (cell get$150))) (cell put$151))) (cell untranslate-term$152))) (cell translate-args$153))) (cell translate-term$154))) (cell add-lemma$155))) (cell add-lemma-lst$156))) (cell setup$157))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after closure-convert:" */ +/* +((define main (lambda (k$633) ((%closure-ref read 0) read (%closure (lambda (self$1099 count$254) ((%closure-ref read 0) read (%closure (lambda (self$1100 input$255) ((%closure-ref read 0) read (%closure (lambda (self$1101 output$256) ((%closure (lambda (self$1102 s2$257) ((%closure (lambda (self$1103 s1$258) ((%closure (lambda (self$1104 name$259) ((%closure (lambda (self$1105) ((%closure (lambda (self$1106 r$639) ((%closure (lambda (self$1110 r$640) ((%closure (lambda (self$1113 r$641) ((%closure-ref run-r7rs-benchmark 0) run-r7rs-benchmark (%closure-ref self$1113 2) (%closure-ref self$1113 3) (%closure-ref self$1113 1) (%closure-ref self$1113 4) r$641)) (%closure-ref self$1110 1) (%closure-ref self$1110 2) (%closure-ref self$1110 4) r$640) (%closure (lambda (self$1111 k$642 rewrites$260) ((%closure (lambda (self$1112 r$643) (if r$643 ((%closure-ref (%closure-ref self$1112 1) 0) (%closure-ref self$1112 1) (= (%closure-ref self$1112 3) (%closure-ref self$1112 2))) ((%closure-ref (%closure-ref self$1112 1) 0) (%closure-ref self$1112 1) #f))) k$642 (%closure-ref self$1111 1) rewrites$260) (number? rewrites$260))) (%closure-ref self$1110 3)))) (%closure-ref self$1106 1) (%closure-ref self$1106 3) (%closure-ref self$1106 4) r$639) (%closure (lambda (self$1107 k$644) ((%closure-ref setup-boyer 0) setup-boyer (%closure (lambda (self$1108 r$645) ((%closure-ref hide 0) hide (%closure (lambda (self$1109 r$646) ((%closure-ref test-boyer 0) test-boyer (%closure-ref self$1109 1) alist term r$646)) (%closure-ref self$1108 3)) (%closure-ref self$1108 1) (%closure-ref self$1108 2))) (%closure-ref self$1107 1) (%closure-ref self$1107 2) k$644))) (%closure-ref self$1106 1) (%closure-ref self$1106 2)))) (%closure-ref self$1105 1) (%closure-ref self$1105 2) (%closure-ref self$1105 3) (%closure-ref self$1105 5)) (string-append (%closure-ref self$1105 4) ":" (%closure-ref self$1105 6) ":" (%closure-ref self$1105 7)))) (%closure-ref self$1104 1) (%closure-ref self$1104 2) (%closure-ref self$1104 3) name$259 (%closure-ref self$1104 4) (%closure-ref self$1104 5) (%closure-ref self$1104 6)))) (%closure-ref self$1103 1) (%closure-ref self$1103 2) (%closure-ref self$1103 3) (%closure-ref self$1103 4) s1$258 (%closure-ref self$1103 5)) "nboyer")) (%closure-ref self$1102 1) (%closure-ref self$1102 2) (%closure-ref self$1102 3) (%closure-ref self$1102 4) s2$257) (number->string (%closure-ref self$1102 2)))) (%closure-ref self$1101 1) (%closure-ref self$1101 2) (%closure-ref self$1101 3) output$256) (number->string (%closure-ref self$1101 1)))) (%closure-ref self$1100 1) input$255 (%closure-ref self$1100 2)))) count$254 (%closure-ref self$1099 1)))) k$633)))) (define alist (%closure-ref #f 0) #f) (define term (%closure-ref #f 0) #f) (define setup-boyer (lambda (k$626 . args$253) ((%closure-ref k$626 0) k$626 #t))) (define test-boyer (lambda (k$623 . args$252) ((%closure-ref k$623 0) k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((%closure (lambda (self$1095 r$610) ((%closure (lambda (self$1098 r$611) ((%closure-ref call-with-values 0) call-with-values (%closure-ref self$1098 1) (%closure-ref self$1098 2) r$611)) (%closure-ref self$1095 1) r$610) (%closure (lambda (self$1096 k$612 v$250 i$249) ((%closure (lambda (self$1097 r$613) ((%closure-ref r$613 0) r$613 (%closure-ref self$1097 1) (%closure-ref self$1097 2))) k$612 (%closure-ref self$1096 1)) (vector-ref v$250 i$249))) (%closure-ref self$1095 2)))) k$609 x$247) (%closure (lambda (self$1088 k$614) ((%closure (lambda (self$1090 r$619) ((%closure-ref vector 0) vector (%closure (lambda (self$1091 r$615) ((%closure (lambda (self$1093 k$617) ((%closure (lambda (self$1094 r$618) (if r$618 ((%closure-ref (%closure-ref self$1094 1) 0) (%closure-ref self$1094 1) 0) ((%closure-ref (%closure-ref self$1094 1) 0) (%closure-ref self$1094 1) 1))) k$617) (< (%closure-ref self$1093 1) 100))) (%closure-ref self$1091 2)) (%closure (lambda (self$1092 r$616) ((%closure-ref values 0) values (%closure-ref self$1092 1) (%closure-ref self$1092 2) r$616)) (%closure-ref self$1091 1) r$615))) (%closure-ref self$1090 1) (%closure-ref self$1090 2)) values r$619)) k$614 (%closure-ref self$1088 1)) (%closure (lambda (self$1089 k$620 x$251) ((%closure-ref k$620 0) k$620 x$251))))) r$248)))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((%closure (lambda (self$1040 rounded$231) ((%closure (lambda (self$1041 rounded$231) ((%closure (lambda (self$1042 rounded$232) ((%closure (lambda (self$1046 r$603) ((%closure (lambda (self$1047 r$569) ((%closure-ref display 0) display (%closure (lambda (self$1048 r$570) ((%closure-ref display 0) display (%closure (lambda (self$1049 r$571) ((%closure-ref newline 0) newline (%closure (lambda (self$1050 r$572) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$1051 r$573) ((%closure-ref jiffies-per-second 0) jiffies-per-second (%closure (lambda (self$1052 j/s$233) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1053 t0$234) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1054 j0$235) ((%closure (lambda (self$1055) ((lambda (k$602) (if #f ((%closure-ref k$602 0) k$602 #f) ((%closure-ref k$602 0) k$602 #f))) (%closure (lambda (self$1056 r$577) ((%closure (lambda (self$1057 i$237 result$236) ((%closure (lambda (self$1058 loop$238) ((%closure (lambda (self$1059 loop$238) ((%closure (lambda (self$1086 r$579) ((%closure (lambda (self$1087 r$578) ((%closure-ref (cell-get (%closure-ref self$1087 3)) 0) (cell-get (%closure-ref self$1087 3)) (%closure-ref self$1087 2) (%closure-ref self$1087 1) (%closure-ref self$1087 4))) (%closure-ref self$1086 1) (%closure-ref self$1086 2) (%closure-ref self$1086 3) (%closure-ref self$1086 4)) (set-cell! (%closure-ref self$1086 3) r$579))) (%closure-ref self$1059 2) (%closure-ref self$1059 5) loop$238 (%closure-ref self$1059 8)) (%closure (lambda (self$1060 k$580 i$240 result$239) ((%closure (lambda (self$1061 r$581) (if r$581 ((%closure (lambda (self$1083) ((%closure (lambda (self$1084 r$582) ((%closure-ref (%closure-ref self$1084 3) 0) (%closure-ref self$1084 3) (%closure (lambda (self$1085 r$583) ((%closure-ref (cell-get (%closure-ref self$1085 2)) 0) (cell-get (%closure-ref self$1085 2)) (%closure-ref self$1085 1) (%closure-ref self$1085 3) r$583)) (%closure-ref self$1084 1) (%closure-ref self$1084 2) r$582))) (%closure-ref self$1083 2) (%closure-ref self$1083 3) (%closure-ref self$1083 4)) (+ (%closure-ref self$1083 1) 1))) (%closure-ref self$1061 1) (%closure-ref self$1061 4) (%closure-ref self$1061 5) (%closure-ref self$1061 11))) ((%closure-ref (%closure-ref self$1061 7) 0) (%closure-ref self$1061 7) (%closure (lambda (self$1062 r$584) (if r$584 ((%closure (lambda (self$1067) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1068 j1$241) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1069 t1$242) ((%closure (lambda (self$1070 jifs$243) ((%closure (lambda (self$1071 r$598) ((%closure-ref inexact 0) inexact (%closure (lambda (self$1072 secs$244) ((%closure (lambda (self$1073 r$597) ((%closure-ref (cell-get (%closure-ref self$1073 4)) 0) (cell-get (%closure-ref self$1073 4)) (%closure (lambda (self$1074 secs2$245) ((%closure (lambda (self$1075) ((%closure-ref display 0) display (%closure (lambda (self$1076 r$591) ((%closure-ref write 0) write (%closure (lambda (self$1077 r$592) ((%closure-ref display 0) display (%closure (lambda (self$1078 r$593) ((%closure-ref write 0) write (%closure (lambda (self$1079 r$594) ((%closure-ref display 0) display (%closure (lambda (self$1080 r$595) ((%closure-ref display 0) display (%closure (lambda (self$1081 r$596) ((%closure-ref newline 0) newline (%closure (lambda (self$1082 r$585) ((%closure-ref (%closure-ref self$1082 1) 0) (%closure-ref self$1082 1) (%closure-ref self$1082 2))) (%closure-ref self$1081 1) (%closure-ref self$1081 2)))) (%closure-ref self$1080 1) (%closure-ref self$1080 3)) (%closure-ref self$1080 2))) (%closure-ref self$1079 1) (%closure-ref self$1079 2) (%closure-ref self$1079 3)) ") for ")) (%closure-ref self$1078 1) (%closure-ref self$1078 2) (%closure-ref self$1078 3)) (%closure-ref self$1078 4))) (%closure-ref self$1077 1) (%closure-ref self$1077 2) (%closure-ref self$1077 3) (%closure-ref self$1077 4)) " seconds (")) (%closure-ref self$1076 1) (%closure-ref self$1076 2) (%closure-ref self$1076 3) (%closure-ref self$1076 5)) (%closure-ref self$1076 4))) (%closure-ref self$1075 1) (%closure-ref self$1075 2) (%closure-ref self$1075 3) (%closure-ref self$1075 4) (%closure-ref self$1075 5)) "Elapsed time: ")) (%closure-ref self$1074 1) (%closure-ref self$1074 2) (%closure-ref self$1074 3) (%closure-ref self$1074 4) secs2$245))) (%closure-ref self$1073 1) (%closure-ref self$1073 2) (%closure-ref self$1073 3) (%closure-ref self$1073 5)) r$597)) (%closure-ref self$1072 1) (%closure-ref self$1072 2) (%closure-ref self$1072 3) (%closure-ref self$1072 4) secs$244) (- (%closure-ref self$1072 6) (%closure-ref self$1072 5)))) (%closure-ref self$1071 1) (%closure-ref self$1071 2) (%closure-ref self$1071 3) (%closure-ref self$1071 4) (%closure-ref self$1071 5) (%closure-ref self$1071 6)) r$598)) (%closure-ref self$1070 2) (%closure-ref self$1070 3) (%closure-ref self$1070 4) (%closure-ref self$1070 5) (%closure-ref self$1070 6) (%closure-ref self$1070 7)) (/ jifs$243 (%closure-ref self$1070 1)))) (%closure-ref self$1069 1) (%closure-ref self$1069 4) (%closure-ref self$1069 5) (%closure-ref self$1069 6) (%closure-ref self$1069 7) (%closure-ref self$1069 8) t1$242) (- (%closure-ref self$1069 3) (%closure-ref self$1069 2)))) (%closure-ref self$1068 1) (%closure-ref self$1068 2) j1$241 (%closure-ref self$1068 3) (%closure-ref self$1068 4) (%closure-ref self$1068 5) (%closure-ref self$1068 6) (%closure-ref self$1068 7)))) (%closure-ref self$1067 1) (%closure-ref self$1067 2) (%closure-ref self$1067 3) (%closure-ref self$1067 4) (%closure-ref self$1067 5) (%closure-ref self$1067 6) (%closure-ref self$1067 7)))) (%closure-ref self$1062 1) (%closure-ref self$1062 2) (%closure-ref self$1062 3) (%closure-ref self$1062 4) (%closure-ref self$1062 5) (%closure-ref self$1062 6) (%closure-ref self$1062 7))) ((%closure (lambda (self$1063) ((%closure-ref display 0) display (%closure (lambda (self$1064 r$599) ((%closure-ref write 0) write (%closure (lambda (self$1065 r$600) ((%closure-ref newline 0) newline (%closure (lambda (self$1066 r$601) ((%closure-ref (%closure-ref self$1066 1) 0) (%closure-ref self$1066 1) (%closure-ref self$1066 2))) (%closure-ref self$1065 1) (%closure-ref self$1065 2)))) (%closure-ref self$1064 1) (%closure-ref self$1064 2)) (%closure-ref self$1064 2))) (%closure-ref self$1063 1) (%closure-ref self$1063 2)) "ERROR: returned incorrect result: ")) (%closure-ref self$1062 3) (%closure-ref self$1062 5))))) (%closure-ref self$1061 2) (%closure-ref self$1061 3) (%closure-ref self$1061 4) (%closure-ref self$1061 6) (%closure-ref self$1061 8) (%closure-ref self$1061 9) (%closure-ref self$1061 10)) (%closure-ref self$1061 8)))) i$240 (%closure-ref self$1060 2) (%closure-ref self$1060 3) k$580 (%closure-ref self$1060 4) (%closure-ref self$1060 5) (%closure-ref self$1060 6) result$239 (%closure-ref self$1060 7) (%closure-ref self$1060 8) (%closure-ref self$1060 9)) (< i$240 (%closure-ref self$1060 1)))) (%closure-ref self$1059 1) (%closure-ref self$1059 3) (%closure-ref self$1059 4) loop$238 (%closure-ref self$1059 6) (%closure-ref self$1059 7) (%closure-ref self$1059 9) (%closure-ref self$1059 10) (%closure-ref self$1059 11)))) (%closure-ref self$1058 1) (%closure-ref self$1058 2) (%closure-ref self$1058 3) (%closure-ref self$1058 4) (%closure-ref self$1058 5) (%closure-ref self$1058 6) (%closure-ref self$1058 7) (%closure-ref self$1058 8) (%closure-ref self$1058 9) (%closure-ref self$1058 10) (%closure-ref self$1058 11)) (cell loop$238))) (%closure-ref self$1057 1) i$237 (%closure-ref self$1057 2) (%closure-ref self$1057 3) (%closure-ref self$1057 4) (%closure-ref self$1057 5) (%closure-ref self$1057 6) result$236 (%closure-ref self$1057 7) (%closure-ref self$1057 8) (%closure-ref self$1057 9)) #f)) (%closure-ref self$1056 1) (%closure-ref self$1056 2) (%closure-ref self$1056 3) (%closure-ref self$1056 4) (%closure-ref self$1056 5) (%closure-ref self$1056 6) (%closure-ref self$1056 7) (%closure-ref self$1056 8) (%closure-ref self$1056 9)) 0 r$577)) (%closure-ref self$1055 1) (%closure-ref self$1055 2) (%closure-ref self$1055 3) (%closure-ref self$1055 4) (%closure-ref self$1055 5) (%closure-ref self$1055 6) (%closure-ref self$1055 7) (%closure-ref self$1055 8) (%closure-ref self$1055 9)))) (%closure-ref self$1054 1) (%closure-ref self$1054 2) j0$235 (%closure-ref self$1054 3) (%closure-ref self$1054 4) (%closure-ref self$1054 5) (%closure-ref self$1054 6) (%closure-ref self$1054 7) (%closure-ref self$1054 8)))) (%closure-ref self$1053 1) (%closure-ref self$1053 2) (%closure-ref self$1053 3) (%closure-ref self$1053 4) (%closure-ref self$1053 5) (%closure-ref self$1053 6) t0$234 (%closure-ref self$1053 7)))) (%closure-ref self$1052 1) j/s$233 (%closure-ref self$1052 2) (%closure-ref self$1052 3) (%closure-ref self$1052 4) (%closure-ref self$1052 5) (%closure-ref self$1052 6)))) (%closure-ref self$1051 1) (%closure-ref self$1051 2) (%closure-ref self$1051 3) (%closure-ref self$1051 4) (%closure-ref self$1051 5) (%closure-ref self$1051 6)))) (%closure-ref self$1050 1) (%closure-ref self$1050 2) (%closure-ref self$1050 3) (%closure-ref self$1050 4) (%closure-ref self$1050 5) (%closure-ref self$1050 6)))) (%closure-ref self$1049 1) (%closure-ref self$1049 2) (%closure-ref self$1049 3) (%closure-ref self$1049 4) (%closure-ref self$1049 5) (%closure-ref self$1049 6)))) (%closure-ref self$1048 1) (%closure-ref self$1048 2) (%closure-ref self$1048 3) (%closure-ref self$1048 4) (%closure-ref self$1048 5) (%closure-ref self$1048 6)) (%closure-ref self$1048 3))) (%closure-ref self$1047 1) (%closure-ref self$1047 2) (%closure-ref self$1047 3) (%closure-ref self$1047 4) (%closure-ref self$1047 5) (%closure-ref self$1047 6)) "Running ")) (%closure-ref self$1046 1) (%closure-ref self$1046 2) (%closure-ref self$1046 3) (%closure-ref self$1046 4) (%closure-ref self$1046 5) (%closure-ref self$1046 6)) (set-cell! (%closure-ref self$1046 5) r$603))) (%closure-ref self$1042 1) (%closure-ref self$1042 2) (%closure-ref self$1042 3) (%closure-ref self$1042 4) (%closure-ref self$1042 5) (%closure-ref self$1042 6)) (%closure (lambda (self$1043 k$604 x$246) ((%closure (lambda (self$1044 r$606) ((%closure-ref round 0) round (%closure (lambda (self$1045 r$605) ((%closure-ref (%closure-ref self$1045 1) 0) (%closure-ref self$1045 1) (/ r$605 1000))) (%closure-ref self$1044 1)) r$606)) k$604) (* 1000 x$246)))))) (%closure-ref self$1041 1) (%closure-ref self$1041 2) (%closure-ref self$1041 3) (%closure-ref self$1041 4) rounded$231 (%closure-ref self$1041 5)) #f)) (%closure-ref self$1040 1) (%closure-ref self$1040 2) (%closure-ref self$1040 3) (%closure-ref self$1040 4) (%closure-ref self$1040 5)) (cell rounded$231))) count$228 k$568 name$229 ok?$226 thunk$227) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((%closure (lambda (self$647 setup$157) ((%closure (lambda (self$648 add-lemma-lst$156) ((%closure (lambda (self$649 add-lemma$155) ((%closure (lambda (self$650 translate-term$154) ((%closure (lambda (self$651 translate-args$153) ((%closure (lambda (self$652 untranslate-term$152) ((%closure (lambda (self$653 put$151) ((%closure (lambda (self$654 get$150) ((%closure (lambda (self$655 symbol->symbol-record$149) ((%closure (lambda (self$656 *symbol-records-alist*$148) ((%closure (lambda (self$657 make-symbol-record$147) ((%closure (lambda (self$658 put-lemmas!$146) ((%closure (lambda (self$659 get-lemmas$145) ((%closure (lambda (self$660 get-name$144) ((%closure (lambda (self$661 symbol-record-equal?$143) ((%closure (lambda (self$662 test$142) ((%closure (lambda (self$663 translate-alist$141) ((%closure (lambda (self$664 apply-subst$140) ((%closure (lambda (self$665 apply-subst-lst$139) ((%closure (lambda (self$666 tautp$138) ((%closure (lambda (self$667 tautologyp$137) ((%closure (lambda (self$668 if-constructor$136) ((%closure (lambda (self$669 rewrite-count$135) ((%closure (lambda (self$670 rewrite$134) ((%closure (lambda (self$671 rewrite-args$133) ((%closure (lambda (self$672 rewrite-with-lemmas$132) ((%closure (lambda (self$673 unify-subst$131) ((%closure (lambda (self$674 one-way-unify$130) ((%closure (lambda (self$675 one-way-unify1$129) ((%closure (lambda (self$676 one-way-unify1-lst$128) ((%closure (lambda (self$677 falsep$127) ((%closure (lambda (self$678 truep$126) ((%closure (lambda (self$679 false-term$125) ((%closure (lambda (self$680 true-term$124) ((%closure (lambda (self$681 trans-of-implies$123) ((%closure (lambda (self$682 trans-of-implies1$122) ((%closure (lambda (self$683 term-equal?$121) ((%closure (lambda (self$684 term-args-equal?$120) ((%closure (lambda (self$685 term-member?$119) ((%closure (lambda (self$688 r$561) ((%closure (lambda (self$689 r$265) ((%closure (lambda (self$697 r$555) ((%closure (lambda (self$698 r$266) ((%closure (lambda (self$718 r$537) ((%closure (lambda (self$719 r$267) ((%closure (lambda (self$728 r$530) ((%closure (lambda (self$729 r$268) ((%closure (lambda (self$738 r$523) ((%closure (lambda (self$739 r$269) ((%closure (lambda (self$748 r$516) ((%closure (lambda (self$749 r$270) ((%closure (lambda (self$752 r$513) ((%closure (lambda (self$753 r$271) ((%closure (lambda (self$756 r$510) ((%closure (lambda (self$757 r$272) ((%closure (lambda (self$764 r$503) ((%closure (lambda (self$765 r$273) ((%closure (lambda (self$766 r$502) ((%closure (lambda (self$767 r$274) ((%closure (lambda (self$770 r$499) ((%closure (lambda (self$771 r$275) ((%closure (lambda (self$773 r$497) ((%closure (lambda (self$774 r$276) ((%closure (lambda (self$776 r$495) ((%closure (lambda (self$777 r$277) ((%closure (lambda (self$779 r$493) ((%closure (lambda (self$780 r$278) ((%closure (lambda (self$782 r$491) ((%closure (lambda (self$783 r$279) ((%closure (lambda (self$800 r$477) ((%closure (lambda (self$801 r$280) ((%closure (lambda (self$812 r$468) ((%closure (lambda (self$813 r$281) ((%closure (lambda (self$822 r$461) ((%closure (lambda (self$823 r$282) ((%closure (lambda (self$832 r$454) ((%closure (lambda (self$833 r$283) ((%closure (lambda (self$838 r$449) ((%closure (lambda (self$839 r$284) ((%closure (lambda (self$867 r$429) ((%closure (lambda (self$868 r$285) ((%closure (lambda (self$869 r$428) ((%closure (lambda (self$870 r$286) ((%closure (lambda (self$871 r$287) ((%closure (lambda (self$884 r$417) ((%closure (lambda (self$885 r$288) ((%closure (lambda (self$894 r$410) ((%closure (lambda (self$895 r$289) ((%closure (lambda (self$908 r$400) ((%closure (lambda (self$909 r$290) ((%closure (lambda (self$910 r$399) ((%closure (lambda (self$911 r$291) ((%closure (lambda (self$915 r$395) ((%closure (lambda (self$916 r$292) ((%closure (lambda (self$938 r$380) ((%closure (lambda (self$939 r$293) ((%closure (lambda (self$952 r$371) ((%closure (lambda (self$953 r$294) ((%closure (lambda (self$956 r$368) ((%closure (lambda (self$957 r$295) ((%closure (lambda (self$960 r$365) ((%closure (lambda (self$961 r$296) ((%closure (lambda (self$962 r$364) ((%closure (lambda (self$963 r$297) ((%closure (lambda (self$964 r$363) ((%closure (lambda (self$965 r$298) ((%closure (lambda (self$972 r$356) ((%closure (lambda (self$973 r$299) ((%closure (lambda (self$985 r$346) ((%closure (lambda (self$986 r$300) ((%closure (lambda (self$997 r$337) ((%closure (lambda (self$998 r$301) ((%closure (lambda (self$1011 r$328) ((%closure (lambda (self$1012 r$302) ((%closure (lambda (self$1021 r$322) ((%closure (lambda (self$1022 r$303) ((%closure (lambda (self$1035 r$309) ((%closure (lambda (self$1036 r$304) ((lambda (r$305) ((lambda (r$264) ((%closure-ref main 0) main %halt)) (set-global! test-boyer r$305))) (%closure (lambda (self$1037 k$306 alist$160 term$159 n$158) ((%closure (lambda (self$1038 r$307) ((%closure-ref (cell-get (%closure-ref self$1038 6)) 0) (cell-get (%closure-ref self$1038 6)) (%closure (lambda (self$1039 answer$161) (if answer$161 ((%closure-ref (%closure-ref self$1039 1) 0) (%closure-ref self$1039 1) (cell-get (%closure-ref self$1039 2))) ((%closure-ref (%closure-ref self$1039 1) 0) (%closure-ref self$1039 1) #f))) (%closure-ref self$1038 2) (%closure-ref self$1038 4)) (%closure-ref self$1038 1) (%closure-ref self$1038 5) (%closure-ref self$1038 3))) alist$160 k$306 n$158 (%closure-ref self$1037 1) term$159 (%closure-ref self$1037 2)) (set-cell! (%closure-ref self$1037 1) 0))) (%closure-ref self$1036 1) (%closure-ref self$1036 2)))) (%closure-ref self$1035 1) (%closure-ref self$1035 2)) (set-global! setup-boyer r$309))) (%closure-ref self$1022 4) (%closure-ref self$1022 7)) (%closure (lambda (self$1023 k$310) ((%closure (lambda (self$1024 r$321) ((%closure (lambda (self$1025 r$311) ((%closure (lambda (self$1026 r$320) ((%closure-ref (cell-get (%closure-ref self$1026 5)) 0) (cell-get (%closure-ref self$1026 5)) (%closure (lambda (self$1027 r$319) ((%closure (lambda (self$1028 r$312) ((%closure (lambda (self$1029 r$318) ((%closure-ref (cell-get (%closure-ref self$1029 4)) 0) (cell-get (%closure-ref self$1029 4)) (%closure (lambda (self$1030 r$317) ((%closure (lambda (self$1031 r$313) ((%closure (lambda (self$1032 r$316) ((%closure-ref (cell-get (%closure-ref self$1032 3)) 0) (cell-get (%closure-ref self$1032 3)) (%closure (lambda (self$1033 r$315) ((%closure (lambda (self$1034 r$314) ((%closure-ref (cell-get (%closure-ref self$1034 2)) 0) (cell-get (%closure-ref self$1034 2)) (%closure-ref self$1034 1))) (%closure-ref self$1033 1) (%closure-ref self$1033 2)) (set-cell! (%closure-ref self$1033 3) r$315))) (%closure-ref self$1032 1) (%closure-ref self$1032 2) (%closure-ref self$1032 4)) r$316)) (%closure-ref self$1031 1) (%closure-ref self$1031 2) (%closure-ref self$1031 3) (%closure-ref self$1031 4)) (quote (t)))) (%closure-ref self$1030 2) (%closure-ref self$1030 3) (%closure-ref self$1030 4) (%closure-ref self$1030 5)) (set-cell! (%closure-ref self$1030 1) r$317))) (%closure-ref self$1029 1) (%closure-ref self$1029 2) (%closure-ref self$1029 3) (%closure-ref self$1029 4) (%closure-ref self$1029 5)) r$318)) (%closure-ref self$1028 1) (%closure-ref self$1028 2) (%closure-ref self$1028 3) (%closure-ref self$1028 4) (%closure-ref self$1028 5)) (quote (f)))) (%closure-ref self$1027 1) (%closure-ref self$1027 3) (%closure-ref self$1027 4) (%closure-ref self$1027 5) (%closure-ref self$1027 6)) (set-cell! (%closure-ref self$1027 2) r$319))) (%closure-ref self$1026 1) (%closure-ref self$1026 2) (%closure-ref self$1026 3) (%closure-ref self$1026 4) (%closure-ref self$1026 6) (%closure-ref self$1026 7)) r$320)) (%closure-ref self$1025 1) (%closure-ref self$1025 2) (%closure-ref self$1025 3) (%closure-ref self$1025 4) (%closure-ref self$1025 5) (%closure-ref self$1025 6) (%closure-ref self$1025 7)) (quote if))) (%closure-ref self$1024 2) (%closure-ref self$1024 3) (%closure-ref self$1024 4) (%closure-ref self$1024 5) (%closure-ref self$1024 6) (%closure-ref self$1024 7) (%closure-ref self$1024 8)) (set-cell! (%closure-ref self$1024 1) r$321))) (%closure-ref self$1023 1) (%closure-ref self$1023 2) (%closure-ref self$1023 3) k$310 (%closure-ref self$1023 4) (%closure-ref self$1023 5) (%closure-ref self$1023 6) (%closure-ref self$1023 7)) (quote ()))) (%closure-ref self$1022 1) (%closure-ref self$1022 2) (%closure-ref self$1022 3) (%closure-ref self$1022 5) (%closure-ref self$1022 6) (%closure-ref self$1022 8) (%closure-ref self$1022 9)))) (%closure-ref self$1021 1) (%closure-ref self$1021 2) (%closure-ref self$1021 3) (%closure-ref self$1021 4) (%closure-ref self$1021 5) (%closure-ref self$1021 6) (%closure-ref self$1021 8) (%closure-ref self$1021 9) (%closure-ref self$1021 10)) (set-cell! (%closure-ref self$1021 7) r$322))) (%closure-ref self$1012 1) (%closure-ref self$1012 2) (%closure-ref self$1012 3) (%closure-ref self$1012 4) (%closure-ref self$1012 5) (%closure-ref self$1012 6) (%closure-ref self$1012 8) (%closure-ref self$1012 9) (%closure-ref self$1012 10) (%closure-ref self$1012 11)) (%closure (lambda (self$1013 k$323 x$163 lst$162) ((%closure (lambda (self$1014 r$324) (if r$324 ((%closure (lambda (self$1020) ((%closure-ref (%closure-ref self$1020 1) 0) (%closure-ref self$1020 1) #f)) (%closure-ref self$1014 1))) ((%closure (lambda (self$1015 r$327) ((%closure-ref (cell-get (%closure-ref self$1015 3)) 0) (cell-get (%closure-ref self$1015 3)) (%closure (lambda (self$1016 r$325) (if r$325 ((%closure (lambda (self$1019) ((%closure-ref (%closure-ref self$1019 1) 0) (%closure-ref self$1019 1) #t)) (%closure-ref self$1016 1))) ((%closure (lambda (self$1017) ((%closure (lambda (self$1018 r$326) ((%closure-ref (cell-get (%closure-ref self$1018 2)) 0) (cell-get (%closure-ref self$1018 2)) (%closure-ref self$1018 1) (%closure-ref self$1018 3) r$326)) (%closure-ref self$1017 1) (%closure-ref self$1017 3) (%closure-ref self$1017 4)) (cdr (%closure-ref self$1017 2)))) (%closure-ref self$1016 1) (%closure-ref self$1016 2) (%closure-ref self$1016 3) (%closure-ref self$1016 4))))) (%closure-ref self$1015 1) (%closure-ref self$1015 2) (%closure-ref self$1015 4) (%closure-ref self$1015 5)) (%closure-ref self$1015 5) r$327)) (%closure-ref self$1014 1) (%closure-ref self$1014 2) (%closure-ref self$1014 3) (%closure-ref self$1014 4) (%closure-ref self$1014 5)) (car (%closure-ref self$1014 2))))) k$323 lst$162 (%closure-ref self$1013 1) (%closure-ref self$1013 2) x$163) (null? lst$162))) (%closure-ref self$1012 7) (%closure-ref self$1012 8)))) (%closure-ref self$1011 1) (%closure-ref self$1011 2) (%closure-ref self$1011 3) (%closure-ref self$1011 4) (%closure-ref self$1011 5) (%closure-ref self$1011 6) (%closure-ref self$1011 8) (%closure-ref self$1011 9) (%closure-ref self$1011 10) (%closure-ref self$1011 11) (%closure-ref self$1011 12)) (set-cell! (%closure-ref self$1011 7) r$328))) (%closure-ref self$998 1) (%closure-ref self$998 2) (%closure-ref self$998 3) (%closure-ref self$998 4) (%closure-ref self$998 5) (%closure-ref self$998 6) (%closure-ref self$998 7) (%closure-ref self$998 8) (%closure-ref self$998 9) (%closure-ref self$998 10) (%closure-ref self$998 11) (%closure-ref self$998 12)) (%closure (lambda (self$999 k$329 lst1$165 lst2$164) ((%closure (lambda (self$1000 r$330) (if r$330 ((%closure (lambda (self$1010) ((%closure-ref (%closure-ref self$1010 1) 0) (%closure-ref self$1010 1) (null? (%closure-ref self$1010 2)))) (%closure-ref self$1000 1) (%closure-ref self$1000 3))) ((%closure (lambda (self$1001 r$331) (if r$331 ((%closure (lambda (self$1009) ((%closure-ref (%closure-ref self$1009 1) 0) (%closure-ref self$1009 1) #f)) (%closure-ref self$1001 1))) ((%closure (lambda (self$1002 r$335) ((%closure (lambda (self$1003 r$336) ((%closure-ref (cell-get (%closure-ref self$1003 6)) 0) (cell-get (%closure-ref self$1003 6)) (%closure (lambda (self$1004 r$332) (if r$332 ((%closure (lambda (self$1006) ((%closure (lambda (self$1007 r$333) ((%closure (lambda (self$1008 r$334) ((%closure-ref (cell-get (%closure-ref self$1008 3)) 0) (cell-get (%closure-ref self$1008 3)) (%closure-ref self$1008 1) (%closure-ref self$1008 2) r$334)) (%closure-ref self$1007 1) r$333 (%closure-ref self$1007 3)) (cdr (%closure-ref self$1007 2)))) (%closure-ref self$1006 1) (%closure-ref self$1006 3) (%closure-ref self$1006 4)) (cdr (%closure-ref self$1006 2)))) (%closure-ref self$1004 1) (%closure-ref self$1004 2) (%closure-ref self$1004 3) (%closure-ref self$1004 4))) ((%closure (lambda (self$1005) ((%closure-ref (%closure-ref self$1005 1) 0) (%closure-ref self$1005 1) #f)) (%closure-ref self$1004 1))))) (%closure-ref self$1003 1) (%closure-ref self$1003 2) (%closure-ref self$1003 3) (%closure-ref self$1003 5)) (%closure-ref self$1003 4) r$336)) (%closure-ref self$1002 1) (%closure-ref self$1002 2) (%closure-ref self$1002 3) r$335 (%closure-ref self$1002 4) (%closure-ref self$1002 5)) (car (%closure-ref self$1002 3)))) (%closure-ref self$1001 1) (%closure-ref self$1001 2) (%closure-ref self$1001 3) (%closure-ref self$1001 4) (%closure-ref self$1001 5)) (car (%closure-ref self$1001 2))))) (%closure-ref self$1000 1) (%closure-ref self$1000 2) (%closure-ref self$1000 3) (%closure-ref self$1000 4) (%closure-ref self$1000 5)) (null? (%closure-ref self$1000 3))))) k$329 lst1$165 lst2$164 (%closure-ref self$999 1) (%closure-ref self$999 2)) (null? lst1$165))) (%closure-ref self$998 7) (%closure-ref self$998 8)))) (%closure-ref self$997 1) (%closure-ref self$997 2) (%closure-ref self$997 3) (%closure-ref self$997 4) (%closure-ref self$997 5) (%closure-ref self$997 6) (%closure-ref self$997 7) (%closure-ref self$997 8) (%closure-ref self$997 9) (%closure-ref self$997 10) (%closure-ref self$997 11) (%closure-ref self$997 12)) (set-cell! (%closure-ref self$997 8) r$337))) (%closure-ref self$986 1) (%closure-ref self$986 2) (%closure-ref self$986 3) (%closure-ref self$986 4) (%closure-ref self$986 5) (%closure-ref self$986 6) (%closure-ref self$986 8) (%closure-ref self$986 9) (%closure-ref self$986 10) (%closure-ref self$986 11) (%closure-ref self$986 12) (%closure-ref self$986 13)) (%closure (lambda (self$987 k$338 x$167 y$166) ((%closure (lambda (self$988 r$339) (if r$339 ((%closure (lambda (self$990) ((%closure (lambda (self$991 r$340) (if r$340 ((%closure (lambda (self$992 r$344) ((%closure (lambda (self$993 r$345) ((%closure-ref (cell-get (%closure-ref self$993 3)) 0) (cell-get (%closure-ref self$993 3)) (%closure (lambda (self$994 r$341) (if r$341 ((%closure (lambda (self$995 r$342) ((%closure (lambda (self$996 r$343) ((%closure-ref (cell-get (%closure-ref self$996 3)) 0) (cell-get (%closure-ref self$996 3)) (%closure-ref self$996 1) (%closure-ref self$996 2) r$343)) (%closure-ref self$995 1) r$342 (%closure-ref self$995 2)) (cdr (%closure-ref self$995 3)))) (%closure-ref self$994 1) (%closure-ref self$994 2) (%closure-ref self$994 4)) (cdr (%closure-ref self$994 3))) ((%closure-ref (%closure-ref self$994 1) 0) (%closure-ref self$994 1) #f))) (%closure-ref self$993 1) (%closure-ref self$993 4) (%closure-ref self$993 5) (%closure-ref self$993 6)) (%closure-ref self$993 2) r$345)) (%closure-ref self$992 1) r$344 (%closure-ref self$992 2) (%closure-ref self$992 3) (%closure-ref self$992 4) (%closure-ref self$992 5)) (car (%closure-ref self$992 5)))) (%closure-ref self$991 1) (%closure-ref self$991 2) (%closure-ref self$991 3) (%closure-ref self$991 4) (%closure-ref self$991 5)) (car (%closure-ref self$991 4))) ((%closure-ref (%closure-ref self$991 1) 0) (%closure-ref self$991 1) #f))) (%closure-ref self$990 1) (%closure-ref self$990 2) (%closure-ref self$990 3) (%closure-ref self$990 4) (%closure-ref self$990 5)) (pair? (%closure-ref self$990 5)))) (%closure-ref self$988 1) (%closure-ref self$988 2) (%closure-ref self$988 3) (%closure-ref self$988 4) (%closure-ref self$988 5))) ((%closure (lambda (self$989) ((%closure-ref (%closure-ref self$989 1) 0) (%closure-ref self$989 1) (equal? (%closure-ref self$989 2) (%closure-ref self$989 3)))) (%closure-ref self$988 1) (%closure-ref self$988 4) (%closure-ref self$988 5))))) k$338 (%closure-ref self$987 1) (%closure-ref self$987 2) x$167 y$166) (pair? x$167))) (%closure-ref self$986 7) (%closure-ref self$986 8)))) (%closure-ref self$985 1) (%closure-ref self$985 2) (%closure-ref self$985 3) (%closure-ref self$985 4) (%closure-ref self$985 5) (%closure-ref self$985 6) (%closure-ref self$985 7) (%closure-ref self$985 8) (%closure-ref self$985 9) (%closure-ref self$985 10) (%closure-ref self$985 11) (%closure-ref self$985 13) (%closure-ref self$985 14)) (set-cell! (%closure-ref self$985 12) r$346))) (%closure-ref self$973 1) (%closure-ref self$973 2) (%closure-ref self$973 3) (%closure-ref self$973 4) (%closure-ref self$973 5) (%closure-ref self$973 6) (%closure-ref self$973 7) (%closure-ref self$973 8) (%closure-ref self$973 9) (%closure-ref self$973 10) (%closure-ref self$973 11) (%closure-ref self$973 12) (%closure-ref self$973 13) (%closure-ref self$973 14)) (%closure (lambda (self$974 k$347 n$168) ((%closure (lambda (self$975 r$348) (if r$348 ((%closure (lambda (self$983) ((%closure (lambda (self$984 r$349) ((%closure-ref list 0) list (%closure-ref self$984 1) r$349 0 1)) (%closure-ref self$983 1)) (quote implies))) (%closure-ref self$975 1))) ((%closure (lambda (self$976) ((%closure (lambda (self$977 r$350) ((%closure (lambda (self$978 r$354) ((%closure (lambda (self$979 r$355) ((%closure-ref list 0) list (%closure (lambda (self$980 r$351) ((%closure (lambda (self$981 r$353) ((%closure-ref (cell-get (%closure-ref self$981 4)) 0) (cell-get (%closure-ref self$981 4)) (%closure (lambda (self$982 r$352) ((%closure-ref list 0) list (%closure-ref self$982 1) (%closure-ref self$982 2) (%closure-ref self$982 3) r$352)) (%closure-ref self$981 1) (%closure-ref self$981 2) (%closure-ref self$981 3)) r$353)) (%closure-ref self$980 1) (%closure-ref self$980 3) r$351 (%closure-ref self$980 4)) (- (%closure-ref self$980 2) 1))) (%closure-ref self$979 1) (%closure-ref self$979 2) (%closure-ref self$979 3) (%closure-ref self$979 5)) (%closure-ref self$979 4) r$355 (%closure-ref self$979 2))) (%closure-ref self$978 1) (%closure-ref self$978 2) (%closure-ref self$978 3) r$354 (%closure-ref self$978 4)) (- (%closure-ref self$978 2) 1))) (%closure-ref self$977 1) (%closure-ref self$977 2) r$350 (%closure-ref self$977 3)) (quote implies))) (%closure-ref self$976 1) (%closure-ref self$976 2) (%closure-ref self$976 3)) (quote and))) (%closure-ref self$975 1) (%closure-ref self$975 2) (%closure-ref self$975 3))))) k$347 n$168 (%closure-ref self$974 1)) (equal? n$168 1))) (%closure-ref self$973 12)))) (%closure-ref self$972 1) (%closure-ref self$972 2) (%closure-ref self$972 3) (%closure-ref self$972 4) (%closure-ref self$972 5) (%closure-ref self$972 6) (%closure-ref self$972 7) (%closure-ref self$972 8) (%closure-ref self$972 9) (%closure-ref self$972 10) (%closure-ref self$972 11) (%closure-ref self$972 13) (%closure-ref self$972 14) (%closure-ref self$972 15)) (set-cell! (%closure-ref self$972 12) r$356))) (%closure-ref self$965 1) (%closure-ref self$965 2) (%closure-ref self$965 3) (%closure-ref self$965 4) (%closure-ref self$965 5) (%closure-ref self$965 6) (%closure-ref self$965 7) (%closure-ref self$965 8) (%closure-ref self$965 9) (%closure-ref self$965 10) (%closure-ref self$965 11) (%closure-ref self$965 12) (%closure-ref self$965 13) (%closure-ref self$965 14) (%closure-ref self$965 15)) (%closure (lambda (self$966 k$357 n$169) ((%closure (lambda (self$967 r$359) ((%closure-ref (cell-get (%closure-ref self$967 3)) 0) (cell-get (%closure-ref self$967 3)) (%closure (lambda (self$968 r$360) ((%closure (lambda (self$969 r$362) ((%closure-ref list 0) list (%closure (lambda (self$970 r$361) ((%closure-ref list 0) list (%closure (lambda (self$971 r$358) ((%closure-ref (cell-get (%closure-ref self$971 2)) 0) (cell-get (%closure-ref self$971 2)) (%closure-ref self$971 1) r$358)) (%closure-ref self$970 1) (%closure-ref self$970 4)) (%closure-ref self$970 2) (%closure-ref self$970 3) r$361)) (%closure-ref self$969 1) (%closure-ref self$969 3) (%closure-ref self$969 4) (%closure-ref self$969 5)) r$362 0 (%closure-ref self$969 2))) (%closure-ref self$968 1) (%closure-ref self$968 2) (%closure-ref self$968 3) r$360 (%closure-ref self$968 4)) (quote implies))) (%closure-ref self$967 1) (%closure-ref self$967 2) r$359 (%closure-ref self$967 4)) (%closure-ref self$967 2))) k$357 n$169 (%closure-ref self$966 1) (%closure-ref self$966 2)) (quote implies))) (%closure-ref self$965 13) (%closure-ref self$965 14)))) (%closure-ref self$964 1) (%closure-ref self$964 2) (%closure-ref self$964 3) (%closure-ref self$964 4) (%closure-ref self$964 5) (%closure-ref self$964 6) (%closure-ref self$964 7) (%closure-ref self$964 8) (%closure-ref self$964 9) (%closure-ref self$964 10) (%closure-ref self$964 11) (%closure-ref self$964 12) (%closure-ref self$964 13) (%closure-ref self$964 14) (%closure-ref self$964 15)) (set-cell! (%closure-ref self$964 15) r$363))) (%closure-ref self$963 1) (%closure-ref self$963 2) (%closure-ref self$963 3) (%closure-ref self$963 4) (%closure-ref self$963 5) (%closure-ref self$963 6) (%closure-ref self$963 7) (%closure-ref self$963 8) (%closure-ref self$963 9) (%closure-ref self$963 10) (%closure-ref self$963 11) (%closure-ref self$963 12) (%closure-ref self$963 13) (%closure-ref self$963 14) (%closure-ref self$963 15)) (quote *))) (%closure-ref self$962 1) (%closure-ref self$962 2) (%closure-ref self$962 3) (%closure-ref self$962 4) (%closure-ref self$962 5) (%closure-ref self$962 6) (%closure-ref self$962 7) (%closure-ref self$962 8) (%closure-ref self$962 9) (%closure-ref self$962 10) (%closure-ref self$962 11) (%closure-ref self$962 12) (%closure-ref self$962 13) (%closure-ref self$962 14) (%closure-ref self$962 15)) (set-cell! (%closure-ref self$962 2) r$364))) (%closure-ref self$961 1) (%closure-ref self$961 2) (%closure-ref self$961 3) (%closure-ref self$961 4) (%closure-ref self$961 5) (%closure-ref self$961 6) (%closure-ref self$961 7) (%closure-ref self$961 8) (%closure-ref self$961 9) (%closure-ref self$961 10) (%closure-ref self$961 11) (%closure-ref self$961 12) (%closure-ref self$961 13) (%closure-ref self$961 14) (%closure-ref self$961 15)) (quote *))) (%closure-ref self$960 1) (%closure-ref self$960 2) (%closure-ref self$960 3) (%closure-ref self$960 4) (%closure-ref self$960 5) (%closure-ref self$960 6) (%closure-ref self$960 7) (%closure-ref self$960 8) (%closure-ref self$960 9) (%closure-ref self$960 10) (%closure-ref self$960 11) (%closure-ref self$960 12) (%closure-ref self$960 13) (%closure-ref self$960 14) (%closure-ref self$960 15)) (set-cell! (%closure-ref self$960 16) r$365))) (%closure-ref self$957 1) (%closure-ref self$957 2) (%closure-ref self$957 3) (%closure-ref self$957 4) (%closure-ref self$957 5) (%closure-ref self$957 6) (%closure-ref self$957 7) (%closure-ref self$957 8) (%closure-ref self$957 9) (%closure-ref self$957 10) (%closure-ref self$957 11) (%closure-ref self$957 12) (%closure-ref self$957 13) (%closure-ref self$957 14) (%closure-ref self$957 15) (%closure-ref self$957 16)) (%closure (lambda (self$958 k$366 x$171 lst$170) ((%closure-ref (cell-get (%closure-ref self$958 1)) 0) (cell-get (%closure-ref self$958 1)) (%closure (lambda (self$959 tmp$172) (if tmp$172 ((%closure-ref (%closure-ref self$959 1) 0) (%closure-ref self$959 1) tmp$172) ((%closure-ref (cell-get (%closure-ref self$959 3)) 0) (cell-get (%closure-ref self$959 3)) (%closure-ref self$959 1) (%closure-ref self$959 4) (%closure-ref self$959 2)))) k$366 lst$170 (%closure-ref self$958 2) x$171) x$171 (cell-get (%closure-ref self$958 3)))) (%closure-ref self$957 9) (%closure-ref self$957 10) (%closure-ref self$957 15)))) (%closure-ref self$956 1) (%closure-ref self$956 2) (%closure-ref self$956 4) (%closure-ref self$956 5) (%closure-ref self$956 6) (%closure-ref self$956 7) (%closure-ref self$956 8) (%closure-ref self$956 9) (%closure-ref self$956 10) (%closure-ref self$956 11) (%closure-ref self$956 12) (%closure-ref self$956 13) (%closure-ref self$956 14) (%closure-ref self$956 15) (%closure-ref self$956 16) (%closure-ref self$956 17)) (set-cell! (%closure-ref self$956 3) r$368))) (%closure-ref self$953 1) (%closure-ref self$953 2) (%closure-ref self$953 3) (%closure-ref self$953 4) (%closure-ref self$953 5) (%closure-ref self$953 6) (%closure-ref self$953 7) (%closure-ref self$953 8) (%closure-ref self$953 9) (%closure-ref self$953 10) (%closure-ref self$953 11) (%closure-ref self$953 12) (%closure-ref self$953 13) (%closure-ref self$953 14) (%closure-ref self$953 15) (%closure-ref self$953 16) (%closure-ref self$953 17)) (%closure (lambda (self$954 k$369 x$174 lst$173) ((%closure-ref (cell-get (%closure-ref self$954 2)) 0) (cell-get (%closure-ref self$954 2)) (%closure (lambda (self$955 tmp$175) (if tmp$175 ((%closure-ref (%closure-ref self$955 1) 0) (%closure-ref self$955 1) tmp$175) ((%closure-ref (cell-get (%closure-ref self$955 3)) 0) (cell-get (%closure-ref self$955 3)) (%closure-ref self$955 1) (%closure-ref self$955 4) (%closure-ref self$955 2)))) k$369 lst$173 (%closure-ref self$954 3) x$174) x$174 (cell-get (%closure-ref self$954 1)))) (%closure-ref self$953 2) (%closure-ref self$953 10) (%closure-ref self$953 11)))) (%closure-ref self$952 1) (%closure-ref self$952 2) (%closure-ref self$952 3) (%closure-ref self$952 4) (%closure-ref self$952 6) (%closure-ref self$952 7) (%closure-ref self$952 8) (%closure-ref self$952 9) (%closure-ref self$952 10) (%closure-ref self$952 11) (%closure-ref self$952 12) (%closure-ref self$952 13) (%closure-ref self$952 14) (%closure-ref self$952 15) (%closure-ref self$952 16) (%closure-ref self$952 17) (%closure-ref self$952 18)) (set-cell! (%closure-ref self$952 5) r$371))) (%closure-ref self$939 1) (%closure-ref self$939 2) (%closure-ref self$939 3) (%closure-ref self$939 4) (%closure-ref self$939 6) (%closure-ref self$939 7) (%closure-ref self$939 8) (%closure-ref self$939 9) (%closure-ref self$939 10) (%closure-ref self$939 11) (%closure-ref self$939 12) (%closure-ref self$939 13) (%closure-ref self$939 14) (%closure-ref self$939 15) (%closure-ref self$939 16) (%closure-ref self$939 17) (%closure-ref self$939 18) (%closure-ref self$939 19)) (%closure (lambda (self$940 k$372 lst1$177 lst2$176) ((%closure (lambda (self$941 r$373) (if r$373 ((%closure (lambda (self$951) ((%closure-ref (%closure-ref self$951 1) 0) (%closure-ref self$951 1) (null? (%closure-ref self$951 2)))) (%closure-ref self$941 1) (%closure-ref self$941 3))) ((%closure (lambda (self$942 r$374) (if r$374 ((%closure (lambda (self$950) ((%closure-ref (%closure-ref self$950 1) 0) (%closure-ref self$950 1) #f)) (%closure-ref self$942 1))) ((%closure (lambda (self$943 r$378) ((%closure (lambda (self$944 r$379) ((%closure-ref (cell-get (%closure-ref self$944 4)) 0) (cell-get (%closure-ref self$944 4)) (%closure (lambda (self$945 r$375) (if r$375 ((%closure (lambda (self$947) ((%closure (lambda (self$948 r$376) ((%closure (lambda (self$949 r$377) ((%closure-ref (cell-get (%closure-ref self$949 2)) 0) (cell-get (%closure-ref self$949 2)) (%closure-ref self$949 1) (%closure-ref self$949 3) r$377)) (%closure-ref self$948 1) (%closure-ref self$948 3) r$376) (cdr (%closure-ref self$948 2)))) (%closure-ref self$947 1) (%closure-ref self$947 3) (%closure-ref self$947 4)) (cdr (%closure-ref self$947 2)))) (%closure-ref self$945 1) (%closure-ref self$945 2) (%closure-ref self$945 3) (%closure-ref self$945 4))) ((%closure (lambda (self$946) ((%closure-ref (%closure-ref self$946 1) 0) (%closure-ref self$946 1) #f)) (%closure-ref self$945 1))))) (%closure-ref self$944 1) (%closure-ref self$944 2) (%closure-ref self$944 3) (%closure-ref self$944 5)) (%closure-ref self$944 6) r$379)) (%closure-ref self$943 1) (%closure-ref self$943 2) (%closure-ref self$943 3) (%closure-ref self$943 4) (%closure-ref self$943 5) r$378) (car (%closure-ref self$943 3)))) (%closure-ref self$942 1) (%closure-ref self$942 2) (%closure-ref self$942 3) (%closure-ref self$942 4) (%closure-ref self$942 5)) (car (%closure-ref self$942 2))))) (%closure-ref self$941 1) (%closure-ref self$941 2) (%closure-ref self$941 3) (%closure-ref self$941 4) (%closure-ref self$941 5)) (null? (%closure-ref self$941 3))))) k$372 lst1$177 lst2$176 (%closure-ref self$940 1) (%closure-ref self$940 2)) (null? lst1$177))) (%closure-ref self$939 5) (%closure-ref self$939 6)))) (%closure-ref self$938 1) (%closure-ref self$938 2) (%closure-ref self$938 3) (%closure-ref self$938 4) (%closure-ref self$938 5) (%closure-ref self$938 6) (%closure-ref self$938 7) (%closure-ref self$938 8) (%closure-ref self$938 9) (%closure-ref self$938 10) (%closure-ref self$938 11) (%closure-ref self$938 12) (%closure-ref self$938 13) (%closure-ref self$938 14) (%closure-ref self$938 15) (%closure-ref self$938 16) (%closure-ref self$938 17) (%closure-ref self$938 18) (%closure-ref self$938 19)) (set-cell! (%closure-ref self$938 5) r$380))) (%closure-ref self$916 1) (%closure-ref self$916 2) (%closure-ref self$916 3) (%closure-ref self$916 4) (%closure-ref self$916 5) (%closure-ref self$916 6) (%closure-ref self$916 7) (%closure-ref self$916 8) (%closure-ref self$916 9) (%closure-ref self$916 10) (%closure-ref self$916 11) (%closure-ref self$916 12) (%closure-ref self$916 13) (%closure-ref self$916 14) (%closure-ref self$916 15) (%closure-ref self$916 16) (%closure-ref self$916 17) (%closure-ref self$916 18) (%closure-ref self$916 19)) (%closure (lambda (self$917 k$381 term1$179 term2$178) ((%closure (lambda (self$918 r$382) (if r$382 ((%closure (lambda (self$929 r$383) (if r$383 ((%closure (lambda (self$931 r$387) ((%closure (lambda (self$932 r$388) ((%closure (lambda (self$933 r$384) (if r$384 ((%closure (lambda (self$935) ((%closure (lambda (self$936 r$385) ((%closure (lambda (self$937 r$386) ((%closure-ref (cell-get (%closure-ref self$937 2)) 0) (cell-get (%closure-ref self$937 2)) (%closure-ref self$937 1) (%closure-ref self$937 3) r$386)) (%closure-ref self$936 1) (%closure-ref self$936 2) r$385) (cdr (%closure-ref self$936 3)))) (%closure-ref self$935 1) (%closure-ref self$935 2) (%closure-ref self$935 4)) (cdr (%closure-ref self$935 3)))) (%closure-ref self$933 1) (%closure-ref self$933 2) (%closure-ref self$933 3) (%closure-ref self$933 4))) ((%closure (lambda (self$934) ((%closure-ref (%closure-ref self$934 1) 0) (%closure-ref self$934 1) #f)) (%closure-ref self$933 1))))) (%closure-ref self$932 1) (%closure-ref self$932 2) (%closure-ref self$932 4) (%closure-ref self$932 5)) (eq? (%closure-ref self$932 3) r$388))) (%closure-ref self$931 1) (%closure-ref self$931 2) r$387 (%closure-ref self$931 3) (%closure-ref self$931 4)) (car (%closure-ref self$931 4)))) (%closure-ref self$929 1) (%closure-ref self$929 2) (%closure-ref self$929 3) (%closure-ref self$929 4)) (car (%closure-ref self$929 3))) ((%closure (lambda (self$930) ((%closure-ref (%closure-ref self$930 1) 0) (%closure-ref self$930 1) #f)) (%closure-ref self$929 1))))) (%closure-ref self$918 1) (%closure-ref self$918 2) (%closure-ref self$918 4) (%closure-ref self$918 5)) (pair? (%closure-ref self$918 4))) ((%closure (lambda (self$919) ((%closure (lambda (self$920 temp-temp$180) (if temp-temp$180 ((%closure (lambda (self$927) ((%closure (lambda (self$928 r$390) ((%closure-ref (cell-get (%closure-ref self$928 2)) 0) (cell-get (%closure-ref self$928 2)) (%closure-ref self$928 1) (%closure-ref self$928 3) r$390)) (%closure-ref self$927 1) (%closure-ref self$927 3) (%closure-ref self$927 4)) (cdr (%closure-ref self$927 2)))) (%closure-ref self$920 1) temp-temp$180 (%closure-ref self$920 2) (%closure-ref self$920 3))) ((%closure (lambda (self$921 r$391) (if r$391 ((%closure (lambda (self$926) ((%closure-ref (%closure-ref self$926 1) 0) (%closure-ref self$926 1) (equal? (%closure-ref self$926 2) (%closure-ref self$926 3)))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3))) ((%closure (lambda (self$922) ((%closure (lambda (self$923 r$394) ((%closure (lambda (self$924 r$393) ((%closure (lambda (self$925 r$392) ((%closure-ref (%closure-ref self$925 1) 0) (%closure-ref self$925 1) #t)) (%closure-ref self$924 1)) (set-cell! (%closure-ref self$924 2) r$393))) (%closure-ref self$923 1) (%closure-ref self$923 2)) (cons r$394 (cell-get (%closure-ref self$923 2))))) (%closure-ref self$922 1) (%closure-ref self$922 4)) (cons (%closure-ref self$922 3) (%closure-ref self$922 2)))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3) (%closure-ref self$921 4))))) (%closure-ref self$920 1) (%closure-ref self$920 3) (%closure-ref self$920 4) (%closure-ref self$920 5)) (number? (%closure-ref self$920 4))))) (%closure-ref self$919 1) (%closure-ref self$919 2) (%closure-ref self$919 3) (%closure-ref self$919 4) (%closure-ref self$919 5)) (assq (%closure-ref self$919 4) (cell-get (%closure-ref self$919 5))))) (%closure-ref self$918 1) (%closure-ref self$918 3) (%closure-ref self$918 4) (%closure-ref self$918 5) (%closure-ref self$918 6))))) k$381 (%closure-ref self$917 1) (%closure-ref self$917 2) term1$179 term2$178 (%closure-ref self$917 3)) (pair? term2$178))) (%closure-ref self$916 6) (%closure-ref self$916 12) (%closure-ref self$916 20)))) (%closure-ref self$915 1) (%closure-ref self$915 2) (%closure-ref self$915 3) (%closure-ref self$915 4) (%closure-ref self$915 6) (%closure-ref self$915 7) (%closure-ref self$915 8) (%closure-ref self$915 9) (%closure-ref self$915 10) (%closure-ref self$915 11) (%closure-ref self$915 12) (%closure-ref self$915 13) (%closure-ref self$915 14) (%closure-ref self$915 15) (%closure-ref self$915 16) (%closure-ref self$915 17) (%closure-ref self$915 18) (%closure-ref self$915 19) (%closure-ref self$915 20) (%closure-ref self$915 21)) (set-cell! (%closure-ref self$915 5) r$395))) (%closure-ref self$911 1) (%closure-ref self$911 2) (%closure-ref self$911 3) (%closure-ref self$911 4) (%closure-ref self$911 5) (%closure-ref self$911 6) (%closure-ref self$911 7) (%closure-ref self$911 8) (%closure-ref self$911 9) (%closure-ref self$911 10) (%closure-ref self$911 11) (%closure-ref self$911 12) (%closure-ref self$911 13) (%closure-ref self$911 14) (%closure-ref self$911 15) (%closure-ref self$911 16) (%closure-ref self$911 17) (%closure-ref self$911 18) (%closure-ref self$911 19) (%closure-ref self$911 20) (%closure-ref self$911 21)) (%closure (lambda (self$912 k$396 term1$182 term2$181) ((%closure (lambda (self$913 r$398) ((%closure (lambda (self$914 r$397) ((%closure-ref (cell-get (%closure-ref self$914 2)) 0) (cell-get (%closure-ref self$914 2)) (%closure-ref self$914 1) (%closure-ref self$914 3) (%closure-ref self$914 4))) (%closure-ref self$913 1) (%closure-ref self$913 2) (%closure-ref self$913 3) (%closure-ref self$913 4)) (set-cell! (%closure-ref self$913 5) r$398))) k$396 (%closure-ref self$912 1) term1$182 term2$181 (%closure-ref self$912 2)) (quote ()))) (%closure-ref self$911 6) (%closure-ref self$911 21)))) (%closure-ref self$910 1) (%closure-ref self$910 2) (%closure-ref self$910 3) (%closure-ref self$910 4) (%closure-ref self$910 5) (%closure-ref self$910 6) (%closure-ref self$910 7) (%closure-ref self$910 8) (%closure-ref self$910 9) (%closure-ref self$910 10) (%closure-ref self$910 11) (%closure-ref self$910 12) (%closure-ref self$910 13) (%closure-ref self$910 14) (%closure-ref self$910 15) (%closure-ref self$910 16) (%closure-ref self$910 17) (%closure-ref self$910 18) (%closure-ref self$910 19) (%closure-ref self$910 20) (%closure-ref self$910 21)) (set-cell! (%closure-ref self$910 21) r$399))) (%closure-ref self$909 1) (%closure-ref self$909 2) (%closure-ref self$909 3) (%closure-ref self$909 4) (%closure-ref self$909 5) (%closure-ref self$909 6) (%closure-ref self$909 7) (%closure-ref self$909 8) (%closure-ref self$909 9) (%closure-ref self$909 10) (%closure-ref self$909 11) (%closure-ref self$909 12) (%closure-ref self$909 13) (%closure-ref self$909 14) (%closure-ref self$909 15) (%closure-ref self$909 16) (%closure-ref self$909 17) (%closure-ref self$909 18) (%closure-ref self$909 19) (%closure-ref self$909 20) (%closure-ref self$909 21)) (quote *))) (%closure-ref self$908 1) (%closure-ref self$908 2) (%closure-ref self$908 3) (%closure-ref self$908 4) (%closure-ref self$908 5) (%closure-ref self$908 6) (%closure-ref self$908 7) (%closure-ref self$908 8) (%closure-ref self$908 10) (%closure-ref self$908 11) (%closure-ref self$908 12) (%closure-ref self$908 13) (%closure-ref self$908 14) (%closure-ref self$908 15) (%closure-ref self$908 16) (%closure-ref self$908 17) (%closure-ref self$908 18) (%closure-ref self$908 19) (%closure-ref self$908 20) (%closure-ref self$908 21) (%closure-ref self$908 22)) (set-cell! (%closure-ref self$908 9) r$400))) (%closure-ref self$895 1) (%closure-ref self$895 3) (%closure-ref self$895 4) (%closure-ref self$895 5) (%closure-ref self$895 6) (%closure-ref self$895 7) (%closure-ref self$895 8) (%closure-ref self$895 10) (%closure-ref self$895 11) (%closure-ref self$895 12) (%closure-ref self$895 13) (%closure-ref self$895 14) (%closure-ref self$895 15) (%closure-ref self$895 16) (%closure-ref self$895 17) (%closure-ref self$895 18) (%closure-ref self$895 19) (%closure-ref self$895 20) (%closure-ref self$895 21) (%closure-ref self$895 22) (%closure-ref self$895 23) (%closure-ref self$895 24)) (%closure (lambda (self$896 k$401 term$184 lst$183) ((%closure (lambda (self$897 r$402) (if r$402 ((%closure (lambda (self$907) ((%closure-ref (%closure-ref self$907 1) 0) (%closure-ref self$907 1) (%closure-ref self$907 2))) (%closure-ref self$897 2) (%closure-ref self$897 7))) ((%closure (lambda (self$898 r$409) ((%closure (lambda (self$899 r$408) ((%closure-ref (cell-get (%closure-ref self$899 4)) 0) (cell-get (%closure-ref self$899 4)) (%closure (lambda (self$900 r$403) (if r$403 ((%closure (lambda (self$903) ((%closure (lambda (self$904 r$406) ((%closure (lambda (self$905 r$405) ((%closure-ref (cell-get (%closure-ref self$905 1)) 0) (cell-get (%closure-ref self$905 1)) (%closure (lambda (self$906 r$404) ((%closure-ref (cell-get (%closure-ref self$906 2)) 0) (cell-get (%closure-ref self$906 2)) (%closure-ref self$906 1) r$404)) (%closure-ref self$905 2) (%closure-ref self$905 3)) (cell-get (%closure-ref self$905 4)) r$405)) (%closure-ref self$904 1) (%closure-ref self$904 2) (%closure-ref self$904 3) (%closure-ref self$904 4)) (caddr r$406))) (%closure-ref self$903 1) (%closure-ref self$903 2) (%closure-ref self$903 4) (%closure-ref self$903 5)) (car (%closure-ref self$903 3)))) (%closure-ref self$900 1) (%closure-ref self$900 2) (%closure-ref self$900 3) (%closure-ref self$900 4) (%closure-ref self$900 7))) ((%closure (lambda (self$901) ((%closure (lambda (self$902 r$407) ((%closure-ref (cell-get (%closure-ref self$902 2)) 0) (cell-get (%closure-ref self$902 2)) (%closure-ref self$902 1) (%closure-ref self$902 3) r$407)) (%closure-ref self$901 1) (%closure-ref self$901 3) (%closure-ref self$901 4)) (cdr (%closure-ref self$901 2)))) (%closure-ref self$900 2) (%closure-ref self$900 3) (%closure-ref self$900 5) (%closure-ref self$900 6))))) (%closure-ref self$899 1) (%closure-ref self$899 2) (%closure-ref self$899 3) (%closure-ref self$899 5) (%closure-ref self$899 6) (%closure-ref self$899 7) (%closure-ref self$899 8)) (%closure-ref self$899 7) r$408)) (%closure-ref self$898 1) (%closure-ref self$898 2) (%closure-ref self$898 3) (%closure-ref self$898 4) (%closure-ref self$898 5) (%closure-ref self$898 6) (%closure-ref self$898 7) (%closure-ref self$898 8)) (cadr r$409))) (%closure-ref self$897 1) (%closure-ref self$897 2) (%closure-ref self$897 3) (%closure-ref self$897 4) (%closure-ref self$897 5) (%closure-ref self$897 6) (%closure-ref self$897 7) (%closure-ref self$897 8)) (car (%closure-ref self$897 3))))) (%closure-ref self$896 1) k$401 lst$183 (%closure-ref self$896 2) (%closure-ref self$896 3) (%closure-ref self$896 4) term$184 (%closure-ref self$896 5)) (null? lst$183))) (%closure-ref self$895 2) (%closure-ref self$895 6) (%closure-ref self$895 9) (%closure-ref self$895 11) (%closure-ref self$895 24)))) (%closure-ref self$894 1) (%closure-ref self$894 2) (%closure-ref self$894 3) (%closure-ref self$894 4) (%closure-ref self$894 5) (%closure-ref self$894 6) (%closure-ref self$894 7) (%closure-ref self$894 8) (%closure-ref self$894 9) (%closure-ref self$894 11) (%closure-ref self$894 12) (%closure-ref self$894 13) (%closure-ref self$894 14) (%closure-ref self$894 15) (%closure-ref self$894 16) (%closure-ref self$894 17) (%closure-ref self$894 18) (%closure-ref self$894 19) (%closure-ref self$894 20) (%closure-ref self$894 21) (%closure-ref self$894 22) (%closure-ref self$894 23) (%closure-ref self$894 24) (%closure-ref self$894 25)) (set-cell! (%closure-ref self$894 10) r$410))) (%closure-ref self$885 1) (%closure-ref self$885 2) (%closure-ref self$885 3) (%closure-ref self$885 4) (%closure-ref self$885 5) (%closure-ref self$885 6) (%closure-ref self$885 7) (%closure-ref self$885 8) (%closure-ref self$885 9) (%closure-ref self$885 10) (%closure-ref self$885 11) (%closure-ref self$885 12) (%closure-ref self$885 13) (%closure-ref self$885 14) (%closure-ref self$885 15) (%closure-ref self$885 16) (%closure-ref self$885 17) (%closure-ref self$885 18) (%closure-ref self$885 19) (%closure-ref self$885 20) (%closure-ref self$885 21) (%closure-ref self$885 22) (%closure-ref self$885 23) (%closure-ref self$885 24) (%closure-ref self$885 25)) (%closure (lambda (self$886 k$411 lst$185) ((%closure (lambda (self$887 r$412) (if r$412 ((%closure (lambda (self$893) ((%closure-ref (%closure-ref self$893 1) 0) (%closure-ref self$893 1) (quote ()))) (%closure-ref self$887 1))) ((%closure (lambda (self$888) ((%closure (lambda (self$889 r$416) ((%closure-ref (cell-get (%closure-ref self$889 3)) 0) (cell-get (%closure-ref self$889 3)) (%closure (lambda (self$890 r$413) ((%closure (lambda (self$891 r$415) ((%closure-ref (cell-get (%closure-ref self$891 3)) 0) (cell-get (%closure-ref self$891 3)) (%closure (lambda (self$892 r$414) ((%closure-ref (%closure-ref self$892 1) 0) (%closure-ref self$892 1) (cons (%closure-ref self$892 2) r$414))) (%closure-ref self$891 1) (%closure-ref self$891 2)) r$415)) (%closure-ref self$890 1) r$413 (%closure-ref self$890 3)) (cdr (%closure-ref self$890 2)))) (%closure-ref self$889 1) (%closure-ref self$889 2) (%closure-ref self$889 4)) r$416)) (%closure-ref self$888 1) (%closure-ref self$888 2) (%closure-ref self$888 3) (%closure-ref self$888 4)) (car (%closure-ref self$888 2)))) (%closure-ref self$887 1) (%closure-ref self$887 2) (%closure-ref self$887 3) (%closure-ref self$887 4))))) k$411 lst$185 (%closure-ref self$886 1) (%closure-ref self$886 2)) (null? lst$185))) (%closure-ref self$885 9) (%closure-ref self$885 10)))) (%closure-ref self$884 1) (%closure-ref self$884 2) (%closure-ref self$884 3) (%closure-ref self$884 4) (%closure-ref self$884 5) (%closure-ref self$884 6) (%closure-ref self$884 7) (%closure-ref self$884 8) (%closure-ref self$884 9) (%closure-ref self$884 10) (%closure-ref self$884 11) (%closure-ref self$884 12) (%closure-ref self$884 13) (%closure-ref self$884 14) (%closure-ref self$884 15) (%closure-ref self$884 16) (%closure-ref self$884 17) (%closure-ref self$884 18) (%closure-ref self$884 19) (%closure-ref self$884 20) (%closure-ref self$884 21) (%closure-ref self$884 22) (%closure-ref self$884 23) (%closure-ref self$884 24) (%closure-ref self$884 25)) (set-cell! (%closure-ref self$884 9) r$417))) (%closure-ref self$871 1) (%closure-ref self$871 2) (%closure-ref self$871 3) (%closure-ref self$871 4) (%closure-ref self$871 6) (%closure-ref self$871 7) (%closure-ref self$871 8) (%closure-ref self$871 9) (%closure-ref self$871 10) (%closure-ref self$871 11) (%closure-ref self$871 12) (%closure-ref self$871 13) (%closure-ref self$871 14) (%closure-ref self$871 15) (%closure-ref self$871 16) (%closure-ref self$871 17) (%closure-ref self$871 18) (%closure-ref self$871 19) (%closure-ref self$871 20) (%closure-ref self$871 21) (%closure-ref self$871 22) (%closure-ref self$871 23) (%closure-ref self$871 24) (%closure-ref self$871 25) (%closure-ref self$871 26)) (%closure (lambda (self$872 k$418 term$186) ((%closure (lambda (self$873 r$427) ((%closure (lambda (self$874 r$419) ((%closure (lambda (self$875 r$420) (if r$420 ((%closure (lambda (self$877) ((%closure (lambda (self$878 r$424) ((%closure (lambda (self$879 r$426) ((%closure-ref (cell-get (%closure-ref self$879 4)) 0) (cell-get (%closure-ref self$879 4)) (%closure (lambda (self$880 r$425) ((%closure (lambda (self$881 r$421) ((%closure (lambda (self$882 r$423) ((%closure-ref (cell-get (%closure-ref self$882 1)) 0) (cell-get (%closure-ref self$882 1)) (%closure (lambda (self$883 r$422) ((%closure-ref (cell-get (%closure-ref self$883 3)) 0) (cell-get (%closure-ref self$883 3)) (%closure-ref self$883 1) (%closure-ref self$883 2) r$422)) (%closure-ref self$882 2) (%closure-ref self$882 3) (%closure-ref self$882 4)) r$423)) (%closure-ref self$881 1) (%closure-ref self$881 2) r$421 (%closure-ref self$881 3)) (car (%closure-ref self$881 4)))) (%closure-ref self$880 1) (%closure-ref self$880 2) (%closure-ref self$880 4) (%closure-ref self$880 5)) (cons (%closure-ref self$880 3) r$425))) (%closure-ref self$879 1) (%closure-ref self$879 2) (%closure-ref self$879 3) (%closure-ref self$879 5) (%closure-ref self$879 6)) r$426)) (%closure-ref self$878 1) (%closure-ref self$878 2) r$424 (%closure-ref self$878 3) (%closure-ref self$878 4) (%closure-ref self$878 5)) (cdr (%closure-ref self$878 5)))) (%closure-ref self$877 1) (%closure-ref self$877 2) (%closure-ref self$877 3) (%closure-ref self$877 4) (%closure-ref self$877 5)) (car (%closure-ref self$877 5)))) (%closure-ref self$875 1) (%closure-ref self$875 2) (%closure-ref self$875 3) (%closure-ref self$875 4) (%closure-ref self$875 5))) ((%closure (lambda (self$876) ((%closure-ref (%closure-ref self$876 1) 0) (%closure-ref self$876 1) (%closure-ref self$876 2))) (%closure-ref self$875 2) (%closure-ref self$875 5))))) (%closure-ref self$874 1) (%closure-ref self$874 2) (%closure-ref self$874 3) (%closure-ref self$874 4) (%closure-ref self$874 5)) (pair? (%closure-ref self$874 5)))) (%closure-ref self$873 1) (%closure-ref self$873 2) (%closure-ref self$873 3) (%closure-ref self$873 5) (%closure-ref self$873 6)) (set-cell! (%closure-ref self$873 4) r$427))) (%closure-ref self$872 1) k$418 (%closure-ref self$872 2) (%closure-ref self$872 3) (%closure-ref self$872 4) term$186) (+ (cell-get (%closure-ref self$872 3)) 1))) (%closure-ref self$871 5) (%closure-ref self$871 11) (%closure-ref self$871 12) (%closure-ref self$871 13)))) (%closure-ref self$870 1) (%closure-ref self$870 2) (%closure-ref self$870 3) (%closure-ref self$870 4) (%closure-ref self$870 5) (%closure-ref self$870 6) (%closure-ref self$870 7) (%closure-ref self$870 8) (%closure-ref self$870 9) (%closure-ref self$870 10) (%closure-ref self$870 11) (%closure-ref self$870 12) (%closure-ref self$870 13) (%closure-ref self$870 14) (%closure-ref self$870 15) (%closure-ref self$870 16) (%closure-ref self$870 17) (%closure-ref self$870 18) (%closure-ref self$870 19) (%closure-ref self$870 20) (%closure-ref self$870 21) (%closure-ref self$870 22) (%closure-ref self$870 23) (%closure-ref self$870 24) (%closure-ref self$870 25) (%closure-ref self$870 26)) (set-cell! (%closure-ref self$870 12) 0))) (%closure-ref self$869 1) (%closure-ref self$869 2) (%closure-ref self$869 3) (%closure-ref self$869 4) (%closure-ref self$869 5) (%closure-ref self$869 6) (%closure-ref self$869 7) (%closure-ref self$869 8) (%closure-ref self$869 9) (%closure-ref self$869 10) (%closure-ref self$869 11) (%closure-ref self$869 12) (%closure-ref self$869 13) (%closure-ref self$869 14) (%closure-ref self$869 15) (%closure-ref self$869 16) (%closure-ref self$869 17) (%closure-ref self$869 18) (%closure-ref self$869 19) (%closure-ref self$869 20) (%closure-ref self$869 21) (%closure-ref self$869 22) (%closure-ref self$869 23) (%closure-ref self$869 24) (%closure-ref self$869 25) (%closure-ref self$869 26)) (set-cell! (%closure-ref self$869 6) r$428))) (%closure-ref self$868 1) (%closure-ref self$868 2) (%closure-ref self$868 3) (%closure-ref self$868 4) (%closure-ref self$868 5) (%closure-ref self$868 6) (%closure-ref self$868 7) (%closure-ref self$868 8) (%closure-ref self$868 9) (%closure-ref self$868 10) (%closure-ref self$868 11) (%closure-ref self$868 12) (%closure-ref self$868 13) (%closure-ref self$868 14) (%closure-ref self$868 15) (%closure-ref self$868 16) (%closure-ref self$868 17) (%closure-ref self$868 18) (%closure-ref self$868 19) (%closure-ref self$868 20) (%closure-ref self$868 21) (%closure-ref self$868 22) (%closure-ref self$868 23) (%closure-ref self$868 24) (%closure-ref self$868 25) (%closure-ref self$868 26)) (quote *))) (%closure-ref self$867 1) (%closure-ref self$867 2) (%closure-ref self$867 3) (%closure-ref self$867 4) (%closure-ref self$867 5) (%closure-ref self$867 6) (%closure-ref self$867 7) (%closure-ref self$867 8) (%closure-ref self$867 9) (%closure-ref self$867 10) (%closure-ref self$867 11) (%closure-ref self$867 12) (%closure-ref self$867 13) (%closure-ref self$867 14) (%closure-ref self$867 15) (%closure-ref self$867 16) (%closure-ref self$867 18) (%closure-ref self$867 19) (%closure-ref self$867 20) (%closure-ref self$867 21) (%closure-ref self$867 22) (%closure-ref self$867 23) (%closure-ref self$867 24) (%closure-ref self$867 25) (%closure-ref self$867 26) (%closure-ref self$867 27)) (set-cell! (%closure-ref self$867 17) r$429))) (%closure-ref self$839 1) (%closure-ref self$839 2) (%closure-ref self$839 3) (%closure-ref self$839 4) (%closure-ref self$839 5) (%closure-ref self$839 6) (%closure-ref self$839 7) (%closure-ref self$839 8) (%closure-ref self$839 9) (%closure-ref self$839 10) (%closure-ref self$839 11) (%closure-ref self$839 12) (%closure-ref self$839 13) (%closure-ref self$839 14) (%closure-ref self$839 15) (%closure-ref self$839 16) (%closure-ref self$839 17) (%closure-ref self$839 18) (%closure-ref self$839 19) (%closure-ref self$839 20) (%closure-ref self$839 21) (%closure-ref self$839 22) (%closure-ref self$839 23) (%closure-ref self$839 24) (%closure-ref self$839 25) (%closure-ref self$839 26) (%closure-ref self$839 27)) (%closure (lambda (self$840 k$430 x$189 true-lst$188 false-lst$187) ((%closure-ref (cell-get (%closure-ref self$840 4)) 0) (cell-get (%closure-ref self$840 4)) (%closure (lambda (self$841 r$431) (if r$431 ((%closure (lambda (self$866) ((%closure-ref (%closure-ref self$866 1) 0) (%closure-ref self$866 1) #t)) (%closure-ref self$841 4))) ((%closure-ref (cell-get (%closure-ref self$841 2)) 0) (cell-get (%closure-ref self$841 2)) (%closure (lambda (self$842 r$432) (if r$432 ((%closure (lambda (self$865) ((%closure-ref (%closure-ref self$865 1) 0) (%closure-ref self$865 1) #f)) (%closure-ref self$842 4))) ((%closure (lambda (self$843 r$433) (if r$433 ((%closure (lambda (self$845 r$448) ((%closure (lambda (self$846 r$434) (if r$434 ((%closure (lambda (self$848) ((%closure (lambda (self$849 r$447) ((%closure-ref (cell-get (%closure-ref self$849 6)) 0) (cell-get (%closure-ref self$849 6)) (%closure (lambda (self$850 r$435) (if r$435 ((%closure (lambda (self$863) ((%closure (lambda (self$864 r$436) ((%closure-ref (cell-get (%closure-ref self$864 3)) 0) (cell-get (%closure-ref self$864 3)) (%closure-ref self$864 2) r$436 (%closure-ref self$864 4) (%closure-ref self$864 1))) (%closure-ref self$863 1) (%closure-ref self$863 2) (%closure-ref self$863 3) (%closure-ref self$863 4)) (caddr (%closure-ref self$863 5)))) (%closure-ref self$850 1) (%closure-ref self$850 3) (%closure-ref self$850 4) (%closure-ref self$850 5) (%closure-ref self$850 6))) ((%closure (lambda (self$851 r$446) ((%closure-ref (cell-get (%closure-ref self$851 2)) 0) (cell-get (%closure-ref self$851 2)) (%closure (lambda (self$852 r$437) (if r$437 ((%closure (lambda (self$861) ((%closure (lambda (self$862 r$438) ((%closure-ref (cell-get (%closure-ref self$862 3)) 0) (cell-get (%closure-ref self$862 3)) (%closure-ref self$862 2) r$438 (%closure-ref self$862 4) (%closure-ref self$862 1))) (%closure-ref self$861 1) (%closure-ref self$861 2) (%closure-ref self$861 3) (%closure-ref self$861 4)) (cadddr (%closure-ref self$861 5)))) (%closure-ref self$852 1) (%closure-ref self$852 2) (%closure-ref self$852 3) (%closure-ref self$852 4) (%closure-ref self$852 5))) ((%closure (lambda (self$853) ((%closure (lambda (self$854 r$443) ((%closure (lambda (self$855 r$445) ((%closure (lambda (self$856 r$444) ((%closure-ref (cell-get (%closure-ref self$856 4)) 0) (cell-get (%closure-ref self$856 4)) (%closure (lambda (self$857 r$439) (if r$439 ((%closure (lambda (self$858 r$440) ((%closure (lambda (self$859 r$442) ((%closure (lambda (self$860 r$441) ((%closure-ref (cell-get (%closure-ref self$860 3)) 0) (cell-get (%closure-ref self$860 3)) (%closure-ref self$860 1) (%closure-ref self$860 2) (%closure-ref self$860 4) r$441)) (%closure-ref self$859 2) (%closure-ref self$859 3) (%closure-ref self$859 4) (%closure-ref self$859 5)) (cons r$442 (%closure-ref self$859 1)))) (%closure-ref self$858 1) (%closure-ref self$858 2) r$440 (%closure-ref self$858 3) (%closure-ref self$858 4)) (cadr (%closure-ref self$858 5)))) (%closure-ref self$857 1) (%closure-ref self$857 2) (%closure-ref self$857 3) (%closure-ref self$857 4) (%closure-ref self$857 5)) (cadddr (%closure-ref self$857 5))) ((%closure-ref (%closure-ref self$857 2) 0) (%closure-ref self$857 2) #f))) (%closure-ref self$856 1) (%closure-ref self$856 2) (%closure-ref self$856 4) (%closure-ref self$856 5) (%closure-ref self$856 6)) (%closure-ref self$856 3) r$444 (%closure-ref self$856 1))) (%closure-ref self$855 1) (%closure-ref self$855 2) (%closure-ref self$855 3) (%closure-ref self$855 4) (%closure-ref self$855 5) (%closure-ref self$855 6)) (cons r$445 (%closure-ref self$855 5)))) (%closure-ref self$854 1) (%closure-ref self$854 2) r$443 (%closure-ref self$854 3) (%closure-ref self$854 4) (%closure-ref self$854 5)) (cadr (%closure-ref self$854 5)))) (%closure-ref self$853 1) (%closure-ref self$853 2) (%closure-ref self$853 3) (%closure-ref self$853 4) (%closure-ref self$853 5)) (caddr (%closure-ref self$853 5)))) (%closure-ref self$852 1) (%closure-ref self$852 2) (%closure-ref self$852 3) (%closure-ref self$852 4) (%closure-ref self$852 5))))) (%closure-ref self$851 1) (%closure-ref self$851 3) (%closure-ref self$851 4) (%closure-ref self$851 5) (%closure-ref self$851 6)) r$446 (%closure-ref self$851 1))) (%closure-ref self$850 1) (%closure-ref self$850 2) (%closure-ref self$850 3) (%closure-ref self$850 4) (%closure-ref self$850 5) (%closure-ref self$850 6)) (cadr (%closure-ref self$850 6))))) (%closure-ref self$849 1) (%closure-ref self$849 2) (%closure-ref self$849 3) (%closure-ref self$849 4) (%closure-ref self$849 5) (%closure-ref self$849 7)) r$447 (%closure-ref self$849 5))) (%closure-ref self$848 1) (%closure-ref self$848 2) (%closure-ref self$848 3) (%closure-ref self$848 4) (%closure-ref self$848 5) (%closure-ref self$848 6) (%closure-ref self$848 7)) (cadr (%closure-ref self$848 7)))) (%closure-ref self$846 1) (%closure-ref self$846 2) (%closure-ref self$846 3) (%closure-ref self$846 4) (%closure-ref self$846 5) (%closure-ref self$846 6) (%closure-ref self$846 7))) ((%closure (lambda (self$847) ((%closure-ref (%closure-ref self$847 1) 0) (%closure-ref self$847 1) #f)) (%closure-ref self$846 3))))) (%closure-ref self$845 1) (%closure-ref self$845 2) (%closure-ref self$845 4) (%closure-ref self$845 5) (%closure-ref self$845 6) (%closure-ref self$845 7) (%closure-ref self$845 8)) (eq? r$448 (cell-get (%closure-ref self$845 3))))) (%closure-ref self$843 1) (%closure-ref self$843 2) (%closure-ref self$843 3) (%closure-ref self$843 4) (%closure-ref self$843 5) (%closure-ref self$843 6) (%closure-ref self$843 7) (%closure-ref self$843 8)) (car (%closure-ref self$843 8))) ((%closure (lambda (self$844) ((%closure-ref (%closure-ref self$844 1) 0) (%closure-ref self$844 1) #f)) (%closure-ref self$843 4))))) (%closure-ref self$842 1) (%closure-ref self$842 2) (%closure-ref self$842 3) (%closure-ref self$842 4) (%closure-ref self$842 5) (%closure-ref self$842 6) (%closure-ref self$842 7) (%closure-ref self$842 8)) (pair? (%closure-ref self$842 8))))) (%closure-ref self$841 1) (%closure-ref self$841 2) (%closure-ref self$841 3) (%closure-ref self$841 4) (%closure-ref self$841 5) (%closure-ref self$841 6) (%closure-ref self$841 7) (%closure-ref self$841 8)) (%closure-ref self$841 8) (%closure-ref self$841 1)))) false-lst$187 (%closure-ref self$840 1) (%closure-ref self$840 2) k$430 (%closure-ref self$840 3) true-lst$188 (%closure-ref self$840 4) x$189) x$189 true-lst$188)) (%closure-ref self$839 4) (%closure-ref self$839 6) (%closure-ref self$839 17) (%closure-ref self$839 26)))) (%closure-ref self$838 1) (%closure-ref self$838 2) (%closure-ref self$838 3) (%closure-ref self$838 4) (%closure-ref self$838 5) (%closure-ref self$838 6) (%closure-ref self$838 7) (%closure-ref self$838 8) (%closure-ref self$838 9) (%closure-ref self$838 10) (%closure-ref self$838 11) (%closure-ref self$838 12) (%closure-ref self$838 13) (%closure-ref self$838 14) (%closure-ref self$838 15) (%closure-ref self$838 16) (%closure-ref self$838 17) (%closure-ref self$838 19) (%closure-ref self$838 20) (%closure-ref self$838 21) (%closure-ref self$838 22) (%closure-ref self$838 23) (%closure-ref self$838 24) (%closure-ref self$838 25) (%closure-ref self$838 26) (%closure-ref self$838 27) (%closure-ref self$838 28)) (set-cell! (%closure-ref self$838 18) r$449))) (%closure-ref self$833 1) (%closure-ref self$833 2) (%closure-ref self$833 3) (%closure-ref self$833 4) (%closure-ref self$833 5) (%closure-ref self$833 6) (%closure-ref self$833 7) (%closure-ref self$833 8) (%closure-ref self$833 9) (%closure-ref self$833 10) (%closure-ref self$833 11) (%closure-ref self$833 12) (%closure-ref self$833 13) (%closure-ref self$833 14) (%closure-ref self$833 15) (%closure-ref self$833 16) (%closure-ref self$833 17) (%closure-ref self$833 18) (%closure-ref self$833 19) (%closure-ref self$833 20) (%closure-ref self$833 21) (%closure-ref self$833 22) (%closure-ref self$833 23) (%closure-ref self$833 24) (%closure-ref self$833 25) (%closure-ref self$833 26) (%closure-ref self$833 27) (%closure-ref self$833 28)) (%closure (lambda (self$834 k$450 x$190) ((%closure-ref (cell-get (%closure-ref self$834 1)) 0) (cell-get (%closure-ref self$834 1)) (%closure (lambda (self$835 r$451) ((%closure (lambda (self$836 r$452) ((%closure (lambda (self$837 r$453) ((%closure-ref (cell-get (%closure-ref self$837 4)) 0) (cell-get (%closure-ref self$837 4)) (%closure-ref self$837 1) (%closure-ref self$837 2) (%closure-ref self$837 3) r$453)) (%closure-ref self$836 1) (%closure-ref self$836 2) r$452 (%closure-ref self$836 3)) (quote ()))) (%closure-ref self$835 1) r$451 (%closure-ref self$835 2)) (quote ()))) k$450 (%closure-ref self$834 2)) x$190)) (%closure-ref self$833 10) (%closure-ref self$833 17)))) (%closure-ref self$832 1) (%closure-ref self$832 2) (%closure-ref self$832 4) (%closure-ref self$832 5) (%closure-ref self$832 6) (%closure-ref self$832 7) (%closure-ref self$832 8) (%closure-ref self$832 9) (%closure-ref self$832 10) (%closure-ref self$832 11) (%closure-ref self$832 12) (%closure-ref self$832 13) (%closure-ref self$832 14) (%closure-ref self$832 15) (%closure-ref self$832 16) (%closure-ref self$832 17) (%closure-ref self$832 18) (%closure-ref self$832 19) (%closure-ref self$832 20) (%closure-ref self$832 21) (%closure-ref self$832 22) (%closure-ref self$832 23) (%closure-ref self$832 24) (%closure-ref self$832 25) (%closure-ref self$832 26) (%closure-ref self$832 27) (%closure-ref self$832 28) (%closure-ref self$832 29)) (set-cell! (%closure-ref self$832 3) r$454))) (%closure-ref self$823 1) (%closure-ref self$823 2) (%closure-ref self$823 3) (%closure-ref self$823 4) (%closure-ref self$823 5) (%closure-ref self$823 6) (%closure-ref self$823 7) (%closure-ref self$823 8) (%closure-ref self$823 9) (%closure-ref self$823 10) (%closure-ref self$823 11) (%closure-ref self$823 12) (%closure-ref self$823 13) (%closure-ref self$823 14) (%closure-ref self$823 15) (%closure-ref self$823 16) (%closure-ref self$823 17) (%closure-ref self$823 18) (%closure-ref self$823 19) (%closure-ref self$823 20) (%closure-ref self$823 21) (%closure-ref self$823 22) (%closure-ref self$823 23) (%closure-ref self$823 24) (%closure-ref self$823 25) (%closure-ref self$823 26) (%closure-ref self$823 27) (%closure-ref self$823 28) (%closure-ref self$823 29)) (%closure (lambda (self$824 k$455 alist$192 lst$191) ((%closure (lambda (self$825 r$456) (if r$456 ((%closure (lambda (self$831) ((%closure-ref (%closure-ref self$831 1) 0) (%closure-ref self$831 1) (quote ()))) (%closure-ref self$825 4))) ((%closure (lambda (self$826) ((%closure (lambda (self$827 r$460) ((%closure-ref (cell-get (%closure-ref self$827 2)) 0) (cell-get (%closure-ref self$827 2)) (%closure (lambda (self$828 r$457) ((%closure (lambda (self$829 r$459) ((%closure-ref (cell-get (%closure-ref self$829 2)) 0) (cell-get (%closure-ref self$829 2)) (%closure (lambda (self$830 r$458) ((%closure-ref (%closure-ref self$830 1) 0) (%closure-ref self$830 1) (cons (%closure-ref self$830 2) r$458))) (%closure-ref self$829 3) (%closure-ref self$829 4)) (%closure-ref self$829 1) r$459)) (%closure-ref self$828 1) (%closure-ref self$828 2) (%closure-ref self$828 3) r$457) (cdr (%closure-ref self$828 4)))) (%closure-ref self$827 1) (%closure-ref self$827 3) (%closure-ref self$827 4) (%closure-ref self$827 5)) (%closure-ref self$827 1) r$460)) (%closure-ref self$826 1) (%closure-ref self$826 2) (%closure-ref self$826 3) (%closure-ref self$826 4) (%closure-ref self$826 5)) (car (%closure-ref self$826 5)))) (%closure-ref self$825 1) (%closure-ref self$825 2) (%closure-ref self$825 3) (%closure-ref self$825 4) (%closure-ref self$825 5))))) alist$192 (%closure-ref self$824 1) (%closure-ref self$824 2) k$455 lst$191) (null? lst$191))) (%closure-ref self$823 2) (%closure-ref self$823 3)))) (%closure-ref self$822 1) (%closure-ref self$822 2) (%closure-ref self$822 3) (%closure-ref self$822 4) (%closure-ref self$822 5) (%closure-ref self$822 6) (%closure-ref self$822 7) (%closure-ref self$822 8) (%closure-ref self$822 9) (%closure-ref self$822 10) (%closure-ref self$822 11) (%closure-ref self$822 12) (%closure-ref self$822 13) (%closure-ref self$822 14) (%closure-ref self$822 15) (%closure-ref self$822 16) (%closure-ref self$822 17) (%closure-ref self$822 18) (%closure-ref self$822 19) (%closure-ref self$822 20) (%closure-ref self$822 21) (%closure-ref self$822 22) (%closure-ref self$822 23) (%closure-ref self$822 24) (%closure-ref self$822 25) (%closure-ref self$822 26) (%closure-ref self$822 27) (%closure-ref self$822 28) (%closure-ref self$822 29)) (set-cell! (%closure-ref self$822 2) r$461))) (%closure-ref self$813 1) (%closure-ref self$813 2) (%closure-ref self$813 3) (%closure-ref self$813 4) (%closure-ref self$813 5) (%closure-ref self$813 6) (%closure-ref self$813 7) (%closure-ref self$813 8) (%closure-ref self$813 9) (%closure-ref self$813 10) (%closure-ref self$813 11) (%closure-ref self$813 12) (%closure-ref self$813 13) (%closure-ref self$813 14) (%closure-ref self$813 15) (%closure-ref self$813 16) (%closure-ref self$813 17) (%closure-ref self$813 18) (%closure-ref self$813 19) (%closure-ref self$813 20) (%closure-ref self$813 21) (%closure-ref self$813 22) (%closure-ref self$813 23) (%closure-ref self$813 24) (%closure-ref self$813 25) (%closure-ref self$813 26) (%closure-ref self$813 27) (%closure-ref self$813 28) (%closure-ref self$813 29)) (%closure (lambda (self$814 k$462 alist$194 term$193) ((%closure (lambda (self$815 r$463) (if r$463 ((%closure (lambda (self$818) ((%closure (lambda (self$819 r$464) ((%closure (lambda (self$820 r$466) ((%closure-ref (cell-get (%closure-ref self$820 2)) 0) (cell-get (%closure-ref self$820 2)) (%closure (lambda (self$821 r$465) ((%closure-ref (%closure-ref self$821 1) 0) (%closure-ref self$821 1) (cons (%closure-ref self$821 2) r$465))) (%closure-ref self$820 3) (%closure-ref self$820 4)) (%closure-ref self$820 1) r$466)) (%closure-ref self$819 1) (%closure-ref self$819 2) (%closure-ref self$819 3) r$464) (cdr (%closure-ref self$819 4)))) (%closure-ref self$818 1) (%closure-ref self$818 2) (%closure-ref self$818 3) (%closure-ref self$818 4)) (car (%closure-ref self$818 4)))) (%closure-ref self$815 1) (%closure-ref self$815 2) (%closure-ref self$815 3) (%closure-ref self$815 4))) ((%closure (lambda (self$816) ((%closure (lambda (self$817 temp-temp$195) (if temp-temp$195 ((%closure-ref (%closure-ref self$817 1) 0) (%closure-ref self$817 1) (cdr temp-temp$195)) ((%closure-ref (%closure-ref self$817 1) 0) (%closure-ref self$817 1) (%closure-ref self$817 2)))) (%closure-ref self$816 2) (%closure-ref self$816 3)) (assq (%closure-ref self$816 3) (%closure-ref self$816 1)))) (%closure-ref self$815 1) (%closure-ref self$815 3) (%closure-ref self$815 4))))) alist$194 (%closure-ref self$814 1) k$462 term$193) (pair? term$193))) (%closure-ref self$813 3)))) (%closure-ref self$812 1) (%closure-ref self$812 2) (%closure-ref self$812 3) (%closure-ref self$812 4) (%closure-ref self$812 5) (%closure-ref self$812 6) (%closure-ref self$812 7) (%closure-ref self$812 8) (%closure-ref self$812 9) (%closure-ref self$812 10) (%closure-ref self$812 11) (%closure-ref self$812 12) (%closure-ref self$812 13) (%closure-ref self$812 14) (%closure-ref self$812 15) (%closure-ref self$812 16) (%closure-ref self$812 17) (%closure-ref self$812 18) (%closure-ref self$812 19) (%closure-ref self$812 20) (%closure-ref self$812 21) (%closure-ref self$812 22) (%closure-ref self$812 23) (%closure-ref self$812 24) (%closure-ref self$812 25) (%closure-ref self$812 27) (%closure-ref self$812 28) (%closure-ref self$812 29) (%closure-ref self$812 30)) (set-cell! (%closure-ref self$812 26) r$468))) (%closure-ref self$801 1) (%closure-ref self$801 2) (%closure-ref self$801 3) (%closure-ref self$801 4) (%closure-ref self$801 5) (%closure-ref self$801 6) (%closure-ref self$801 7) (%closure-ref self$801 8) (%closure-ref self$801 9) (%closure-ref self$801 10) (%closure-ref self$801 11) (%closure-ref self$801 12) (%closure-ref self$801 13) (%closure-ref self$801 14) (%closure-ref self$801 15) (%closure-ref self$801 16) (%closure-ref self$801 17) (%closure-ref self$801 18) (%closure-ref self$801 19) (%closure-ref self$801 20) (%closure-ref self$801 21) (%closure-ref self$801 22) (%closure-ref self$801 23) (%closure-ref self$801 24) (%closure-ref self$801 25) (%closure-ref self$801 26) (%closure-ref self$801 27) (%closure-ref self$801 28) (%closure-ref self$801 29) (%closure-ref self$801 30)) (%closure (lambda (self$802 k$469 alist$196) ((%closure (lambda (self$803 r$470) (if r$470 ((%closure (lambda (self$811) ((%closure-ref (%closure-ref self$811 1) 0) (%closure-ref self$811 1) (quote ()))) (%closure-ref self$803 2))) ((%closure (lambda (self$804) ((%closure (lambda (self$805 r$474) ((%closure (lambda (self$806 r$476) ((%closure-ref (cell-get (%closure-ref self$806 5)) 0) (cell-get (%closure-ref self$806 5)) (%closure (lambda (self$807 r$475) ((%closure (lambda (self$808 r$471) ((%closure (lambda (self$809 r$473) ((%closure-ref (cell-get (%closure-ref self$809 3)) 0) (cell-get (%closure-ref self$809 3)) (%closure (lambda (self$810 r$472) ((%closure-ref (%closure-ref self$810 1) 0) (%closure-ref self$810 1) (cons (%closure-ref self$810 2) r$472))) (%closure-ref self$809 1) (%closure-ref self$809 2)) r$473)) (%closure-ref self$808 2) r$471 (%closure-ref self$808 3)) (cdr (%closure-ref self$808 1)))) (%closure-ref self$807 1) (%closure-ref self$807 2) (%closure-ref self$807 4)) (cons (%closure-ref self$807 3) r$475))) (%closure-ref self$806 1) (%closure-ref self$806 2) (%closure-ref self$806 3) (%closure-ref self$806 4)) r$476)) (%closure-ref self$805 1) (%closure-ref self$805 2) r$474 (%closure-ref self$805 3) (%closure-ref self$805 4)) (cdar (%closure-ref self$805 1)))) (%closure-ref self$804 1) (%closure-ref self$804 2) (%closure-ref self$804 3) (%closure-ref self$804 4)) (caar (%closure-ref self$804 1)))) (%closure-ref self$803 1) (%closure-ref self$803 2) (%closure-ref self$803 3) (%closure-ref self$803 4))))) alist$196 k$469 (%closure-ref self$802 1) (%closure-ref self$802 2)) (null? alist$196))) (%closure-ref self$801 26) (%closure-ref self$801 27)))) (%closure-ref self$800 1) (%closure-ref self$800 2) (%closure-ref self$800 3) (%closure-ref self$800 4) (%closure-ref self$800 5) (%closure-ref self$800 6) (%closure-ref self$800 7) (%closure-ref self$800 8) (%closure-ref self$800 9) (%closure-ref self$800 10) (%closure-ref self$800 11) (%closure-ref self$800 12) (%closure-ref self$800 13) (%closure-ref self$800 14) (%closure-ref self$800 15) (%closure-ref self$800 16) (%closure-ref self$800 17) (%closure-ref self$800 18) (%closure-ref self$800 19) (%closure-ref self$800 20) (%closure-ref self$800 21) (%closure-ref self$800 22) (%closure-ref self$800 23) (%closure-ref self$800 24) (%closure-ref self$800 25) (%closure-ref self$800 26) (%closure-ref self$800 27) (%closure-ref self$800 28) (%closure-ref self$800 29) (%closure-ref self$800 30)) (set-cell! (%closure-ref self$800 23) r$477))) (%closure-ref self$783 1) (%closure-ref self$783 2) (%closure-ref self$783 3) (%closure-ref self$783 4) (%closure-ref self$783 5) (%closure-ref self$783 6) (%closure-ref self$783 7) (%closure-ref self$783 8) (%closure-ref self$783 9) (%closure-ref self$783 10) (%closure-ref self$783 11) (%closure-ref self$783 12) (%closure-ref self$783 13) (%closure-ref self$783 14) (%closure-ref self$783 15) (%closure-ref self$783 16) (%closure-ref self$783 17) (%closure-ref self$783 18) (%closure-ref self$783 19) (%closure-ref self$783 20) (%closure-ref self$783 21) (%closure-ref self$783 22) (%closure-ref self$783 23) (%closure-ref self$783 24) (%closure-ref self$783 25) (%closure-ref self$783 26) (%closure-ref self$783 27) (%closure-ref self$783 28) (%closure-ref self$783 29) (%closure-ref self$783 30)) (%closure (lambda (self$784 k$478 alist$199 term$198 n$197) ((%closure-ref (cell-get (%closure-ref self$784 3)) 0) (cell-get (%closure-ref self$784 3)) (%closure (lambda (self$785 r$480) ((%closure (lambda (self$786 term$201 n$200) ((%closure (lambda (self$787 lp$202) ((%closure (lambda (self$788 lp$202) ((%closure (lambda (self$795 r$484) ((%closure (lambda (self$796 r$483) ((%closure-ref (cell-get (%closure-ref self$796 3)) 0) (cell-get (%closure-ref self$796 3)) (%closure (lambda (self$797 r$482) ((%closure-ref (cell-get (%closure-ref self$797 5)) 0) (cell-get (%closure-ref self$797 5)) (%closure (lambda (self$798 r$481) ((%closure-ref (cell-get (%closure-ref self$798 1)) 0) (cell-get (%closure-ref self$798 1)) (%closure (lambda (self$799 term$205) ((%closure-ref (cell-get (%closure-ref self$799 2)) 0) (cell-get (%closure-ref self$799 2)) (%closure-ref self$799 1) term$205)) (%closure-ref self$798 2) (%closure-ref self$798 4)) (%closure-ref self$798 3) r$481)) (%closure-ref self$797 1) (%closure-ref self$797 2) (%closure-ref self$797 3) (%closure-ref self$797 4)) r$482)) (%closure-ref self$796 1) (%closure-ref self$796 2) (%closure-ref self$796 5) (%closure-ref self$796 6) (%closure-ref self$796 8)) (%closure-ref self$796 7) (%closure-ref self$796 4))) (%closure-ref self$795 1) (%closure-ref self$795 2) (%closure-ref self$795 3) (%closure-ref self$795 4) (%closure-ref self$795 5) (%closure-ref self$795 6) (%closure-ref self$795 7) (%closure-ref self$795 8)) (set-cell! (%closure-ref self$795 3) r$484))) (%closure-ref self$788 1) (%closure-ref self$788 2) lp$202 (%closure-ref self$788 3) (%closure-ref self$788 4) (%closure-ref self$788 5) (%closure-ref self$788 6) (%closure-ref self$788 7)) (%closure (lambda (self$789 k$485 term$204 n$203) ((%closure-ref zero? 0) zero? (%closure (lambda (self$790 r$486) (if r$486 ((%closure-ref (%closure-ref self$790 1) 0) (%closure-ref self$790 1) (%closure-ref self$790 4)) ((%closure (lambda (self$791 r$489) ((%closure (lambda (self$792 r$490) ((%closure-ref list 0) list (%closure (lambda (self$793 r$487) ((%closure (lambda (self$794 r$488) ((%closure-ref (cell-get (%closure-ref self$794 2)) 0) (cell-get (%closure-ref self$794 2)) (%closure-ref self$794 1) (%closure-ref self$794 3) r$488)) (%closure-ref self$793 1) (%closure-ref self$793 2) r$487) (- (%closure-ref self$793 3) 1))) (%closure-ref self$792 1) (%closure-ref self$792 2) (%closure-ref self$792 3)) (%closure-ref self$792 4) (%closure-ref self$792 5) r$490)) (%closure-ref self$791 1) (%closure-ref self$791 2) (%closure-ref self$791 3) r$489 (%closure-ref self$791 4)) (quote (f)))) (%closure-ref self$790 1) (%closure-ref self$790 2) (%closure-ref self$790 3) (%closure-ref self$790 4)) (quote or)))) k$485 (%closure-ref self$789 1) n$203 term$204) n$203)) lp$202))) (%closure-ref self$787 1) (%closure-ref self$787 2) (%closure-ref self$787 3) (%closure-ref self$787 4) (%closure-ref self$787 5) (%closure-ref self$787 6) (%closure-ref self$787 7)) (cell lp$202))) (%closure-ref self$786 1) (%closure-ref self$786 2) n$200 (%closure-ref self$786 3) (%closure-ref self$786 4) term$201 (%closure-ref self$786 5)) #f)) (%closure-ref self$785 1) (%closure-ref self$785 2) r$480 (%closure-ref self$785 4) (%closure-ref self$785 6)) (%closure-ref self$785 5) (%closure-ref self$785 3))) (%closure-ref self$784 1) k$478 n$197 (%closure-ref self$784 2) term$198 (%closure-ref self$784 4)) alist$199)) (%closure-ref self$783 2) (%closure-ref self$783 19) (%closure-ref self$783 26) (%closure-ref self$783 27)))) (%closure-ref self$782 1) (%closure-ref self$782 2) (%closure-ref self$782 3) (%closure-ref self$782 4) (%closure-ref self$782 5) (%closure-ref self$782 6) (%closure-ref self$782 7) (%closure-ref self$782 8) (%closure-ref self$782 9) (%closure-ref self$782 10) (%closure-ref self$782 11) (%closure-ref self$782 12) (%closure-ref self$782 13) (%closure-ref self$782 14) (%closure-ref self$782 15) (%closure-ref self$782 16) (%closure-ref self$782 17) (%closure-ref self$782 18) (%closure-ref self$782 19) (%closure-ref self$782 20) (%closure-ref self$782 21) (%closure-ref self$782 22) (%closure-ref self$782 23) (%closure-ref self$782 24) (%closure-ref self$782 25) (%closure-ref self$782 26) (%closure-ref self$782 27) (%closure-ref self$782 28) (%closure-ref self$782 29) (%closure-ref self$782 30)) (set-cell! (%closure-ref self$782 17) r$491))) (%closure-ref self$780 1) (%closure-ref self$780 2) (%closure-ref self$780 3) (%closure-ref self$780 4) (%closure-ref self$780 5) (%closure-ref self$780 6) (%closure-ref self$780 7) (%closure-ref self$780 8) (%closure-ref self$780 9) (%closure-ref self$780 10) (%closure-ref self$780 11) (%closure-ref self$780 12) (%closure-ref self$780 13) (%closure-ref self$780 14) (%closure-ref self$780 15) (%closure-ref self$780 16) (%closure-ref self$780 17) (%closure-ref self$780 18) (%closure-ref self$780 19) (%closure-ref self$780 20) (%closure-ref self$780 21) (%closure-ref self$780 22) (%closure-ref self$780 23) (%closure-ref self$780 24) (%closure-ref self$780 25) (%closure-ref self$780 26) (%closure-ref self$780 27) (%closure-ref self$780 28) (%closure-ref self$780 29) (%closure-ref self$780 30)) (%closure (lambda (self$781 k$492 r1$207 r2$206) ((%closure-ref k$492 0) k$492 (eq? r1$207 r2$206)))))) (%closure-ref self$779 1) (%closure-ref self$779 2) (%closure-ref self$779 3) (%closure-ref self$779 4) (%closure-ref self$779 5) (%closure-ref self$779 6) (%closure-ref self$779 8) (%closure-ref self$779 9) (%closure-ref self$779 10) (%closure-ref self$779 11) (%closure-ref self$779 12) (%closure-ref self$779 13) (%closure-ref self$779 14) (%closure-ref self$779 15) (%closure-ref self$779 16) (%closure-ref self$779 17) (%closure-ref self$779 18) (%closure-ref self$779 19) (%closure-ref self$779 20) (%closure-ref self$779 21) (%closure-ref self$779 22) (%closure-ref self$779 23) (%closure-ref self$779 24) (%closure-ref self$779 25) (%closure-ref self$779 26) (%closure-ref self$779 27) (%closure-ref self$779 28) (%closure-ref self$779 29) (%closure-ref self$779 30) (%closure-ref self$779 31)) (set-cell! (%closure-ref self$779 7) r$493))) (%closure-ref self$777 1) (%closure-ref self$777 2) (%closure-ref self$777 3) (%closure-ref self$777 4) (%closure-ref self$777 5) (%closure-ref self$777 6) (%closure-ref self$777 7) (%closure-ref self$777 8) (%closure-ref self$777 9) (%closure-ref self$777 10) (%closure-ref self$777 11) (%closure-ref self$777 12) (%closure-ref self$777 13) (%closure-ref self$777 14) (%closure-ref self$777 15) (%closure-ref self$777 16) (%closure-ref self$777 17) (%closure-ref self$777 18) (%closure-ref self$777 19) (%closure-ref self$777 20) (%closure-ref self$777 21) (%closure-ref self$777 22) (%closure-ref self$777 23) (%closure-ref self$777 24) (%closure-ref self$777 25) (%closure-ref self$777 26) (%closure-ref self$777 27) (%closure-ref self$777 28) (%closure-ref self$777 29) (%closure-ref self$777 30) (%closure-ref self$777 31)) (%closure (lambda (self$778 k$494 symbol-record$208) ((%closure-ref k$494 0) k$494 (vector-ref symbol-record$208 0)))))) (%closure-ref self$776 1) (%closure-ref self$776 2) (%closure-ref self$776 3) (%closure-ref self$776 4) (%closure-ref self$776 5) (%closure-ref self$776 6) (%closure-ref self$776 7) (%closure-ref self$776 8) (%closure-ref self$776 9) (%closure-ref self$776 10) (%closure-ref self$776 11) (%closure-ref self$776 12) (%closure-ref self$776 13) (%closure-ref self$776 14) (%closure-ref self$776 15) (%closure-ref self$776 16) (%closure-ref self$776 17) (%closure-ref self$776 18) (%closure-ref self$776 19) (%closure-ref self$776 20) (%closure-ref self$776 21) (%closure-ref self$776 22) (%closure-ref self$776 23) (%closure-ref self$776 24) (%closure-ref self$776 25) (%closure-ref self$776 26) (%closure-ref self$776 27) (%closure-ref self$776 28) (%closure-ref self$776 29) (%closure-ref self$776 30) (%closure-ref self$776 31)) (set-cell! (%closure-ref self$776 6) r$495))) (%closure-ref self$774 1) (%closure-ref self$774 2) (%closure-ref self$774 3) (%closure-ref self$774 4) (%closure-ref self$774 5) (%closure-ref self$774 6) (%closure-ref self$774 7) (%closure-ref self$774 8) (%closure-ref self$774 9) (%closure-ref self$774 10) (%closure-ref self$774 11) (%closure-ref self$774 12) (%closure-ref self$774 13) (%closure-ref self$774 14) (%closure-ref self$774 15) (%closure-ref self$774 16) (%closure-ref self$774 17) (%closure-ref self$774 18) (%closure-ref self$774 19) (%closure-ref self$774 20) (%closure-ref self$774 21) (%closure-ref self$774 22) (%closure-ref self$774 23) (%closure-ref self$774 24) (%closure-ref self$774 25) (%closure-ref self$774 26) (%closure-ref self$774 27) (%closure-ref self$774 28) (%closure-ref self$774 29) (%closure-ref self$774 30) (%closure-ref self$774 31)) (%closure (lambda (self$775 k$496 symbol-record$209) ((%closure-ref k$496 0) k$496 (vector-ref symbol-record$209 1)))))) (%closure-ref self$773 1) (%closure-ref self$773 2) (%closure-ref self$773 3) (%closure-ref self$773 4) (%closure-ref self$773 5) (%closure-ref self$773 6) (%closure-ref self$773 7) (%closure-ref self$773 8) (%closure-ref self$773 9) (%closure-ref self$773 10) (%closure-ref self$773 11) (%closure-ref self$773 13) (%closure-ref self$773 14) (%closure-ref self$773 15) (%closure-ref self$773 16) (%closure-ref self$773 17) (%closure-ref self$773 18) (%closure-ref self$773 19) (%closure-ref self$773 20) (%closure-ref self$773 21) (%closure-ref self$773 22) (%closure-ref self$773 23) (%closure-ref self$773 24) (%closure-ref self$773 25) (%closure-ref self$773 26) (%closure-ref self$773 27) (%closure-ref self$773 28) (%closure-ref self$773 29) (%closure-ref self$773 30) (%closure-ref self$773 31) (%closure-ref self$773 32)) (set-cell! (%closure-ref self$773 12) r$497))) (%closure-ref self$771 1) (%closure-ref self$771 2) (%closure-ref self$771 3) (%closure-ref self$771 4) (%closure-ref self$771 5) (%closure-ref self$771 6) (%closure-ref self$771 7) (%closure-ref self$771 8) (%closure-ref self$771 9) (%closure-ref self$771 10) (%closure-ref self$771 11) (%closure-ref self$771 12) (%closure-ref self$771 13) (%closure-ref self$771 14) (%closure-ref self$771 15) (%closure-ref self$771 16) (%closure-ref self$771 17) (%closure-ref self$771 18) (%closure-ref self$771 19) (%closure-ref self$771 20) (%closure-ref self$771 21) (%closure-ref self$771 22) (%closure-ref self$771 23) (%closure-ref self$771 24) (%closure-ref self$771 25) (%closure-ref self$771 26) (%closure-ref self$771 27) (%closure-ref self$771 28) (%closure-ref self$771 29) (%closure-ref self$771 30) (%closure-ref self$771 31) (%closure-ref self$771 32)) (%closure (lambda (self$772 k$498 symbol-record$211 lemmas$210) ((%closure-ref k$498 0) k$498 (vector-set! symbol-record$211 1 lemmas$210)))))) (%closure-ref self$770 1) (%closure-ref self$770 2) (%closure-ref self$770 3) (%closure-ref self$770 4) (%closure-ref self$770 5) (%closure-ref self$770 6) (%closure-ref self$770 7) (%closure-ref self$770 8) (%closure-ref self$770 10) (%closure-ref self$770 11) (%closure-ref self$770 12) (%closure-ref self$770 13) (%closure-ref self$770 14) (%closure-ref self$770 15) (%closure-ref self$770 16) (%closure-ref self$770 17) (%closure-ref self$770 18) (%closure-ref self$770 19) (%closure-ref self$770 20) (%closure-ref self$770 21) (%closure-ref self$770 22) (%closure-ref self$770 23) (%closure-ref self$770 24) (%closure-ref self$770 25) (%closure-ref self$770 26) (%closure-ref self$770 27) (%closure-ref self$770 28) (%closure-ref self$770 29) (%closure-ref self$770 30) (%closure-ref self$770 31) (%closure-ref self$770 32) (%closure-ref self$770 33)) (set-cell! (%closure-ref self$770 9) r$499))) (%closure-ref self$767 1) (%closure-ref self$767 2) (%closure-ref self$767 3) (%closure-ref self$767 4) (%closure-ref self$767 5) (%closure-ref self$767 6) (%closure-ref self$767 7) (%closure-ref self$767 8) (%closure-ref self$767 9) (%closure-ref self$767 10) (%closure-ref self$767 11) (%closure-ref self$767 12) (%closure-ref self$767 13) (%closure-ref self$767 14) (%closure-ref self$767 15) (%closure-ref self$767 16) (%closure-ref self$767 17) (%closure-ref self$767 18) (%closure-ref self$767 19) (%closure-ref self$767 20) (%closure-ref self$767 21) (%closure-ref self$767 22) (%closure-ref self$767 23) (%closure-ref self$767 24) (%closure-ref self$767 25) (%closure-ref self$767 26) (%closure-ref self$767 27) (%closure-ref self$767 28) (%closure-ref self$767 29) (%closure-ref self$767 30) (%closure-ref self$767 31) (%closure-ref self$767 32) (%closure-ref self$767 33)) (%closure (lambda (self$768 k$500 sym$212) ((%closure (lambda (self$769 r$501) ((%closure-ref vector 0) vector (%closure-ref self$769 1) (%closure-ref self$769 2) r$501)) k$500 sym$212) (quote ())))))) (%closure-ref self$766 1) (%closure-ref self$766 2) (%closure-ref self$766 3) (%closure-ref self$766 4) (%closure-ref self$766 5) (%closure-ref self$766 6) (%closure-ref self$766 7) (%closure-ref self$766 8) (%closure-ref self$766 9) (%closure-ref self$766 10) (%closure-ref self$766 11) (%closure-ref self$766 12) (%closure-ref self$766 13) (%closure-ref self$766 14) (%closure-ref self$766 15) (%closure-ref self$766 16) (%closure-ref self$766 17) (%closure-ref self$766 18) (%closure-ref self$766 19) (%closure-ref self$766 20) (%closure-ref self$766 21) (%closure-ref self$766 22) (%closure-ref self$766 23) (%closure-ref self$766 24) (%closure-ref self$766 25) (%closure-ref self$766 26) (%closure-ref self$766 27) (%closure-ref self$766 28) (%closure-ref self$766 29) (%closure-ref self$766 30) (%closure-ref self$766 31) (%closure-ref self$766 32) (%closure-ref self$766 33)) (set-cell! (%closure-ref self$766 1) r$502))) (%closure-ref self$765 1) (%closure-ref self$765 2) (%closure-ref self$765 3) (%closure-ref self$765 4) (%closure-ref self$765 5) (%closure-ref self$765 6) (%closure-ref self$765 7) (%closure-ref self$765 8) (%closure-ref self$765 9) (%closure-ref self$765 10) (%closure-ref self$765 11) (%closure-ref self$765 12) (%closure-ref self$765 13) (%closure-ref self$765 14) (%closure-ref self$765 15) (%closure-ref self$765 16) (%closure-ref self$765 17) (%closure-ref self$765 18) (%closure-ref self$765 19) (%closure-ref self$765 20) (%closure-ref self$765 21) (%closure-ref self$765 22) (%closure-ref self$765 23) (%closure-ref self$765 24) (%closure-ref self$765 25) (%closure-ref self$765 26) (%closure-ref self$765 27) (%closure-ref self$765 28) (%closure-ref self$765 29) (%closure-ref self$765 30) (%closure-ref self$765 31) (%closure-ref self$765 32) (%closure-ref self$765 33)) (quote ()))) (%closure-ref self$764 1) (%closure-ref self$764 2) (%closure-ref self$764 3) (%closure-ref self$764 4) (%closure-ref self$764 5) (%closure-ref self$764 6) (%closure-ref self$764 7) (%closure-ref self$764 8) (%closure-ref self$764 9) (%closure-ref self$764 10) (%closure-ref self$764 11) (%closure-ref self$764 12) (%closure-ref self$764 13) (%closure-ref self$764 14) (%closure-ref self$764 15) (%closure-ref self$764 16) (%closure-ref self$764 17) (%closure-ref self$764 18) (%closure-ref self$764 19) (%closure-ref self$764 20) (%closure-ref self$764 21) (%closure-ref self$764 22) (%closure-ref self$764 23) (%closure-ref self$764 24) (%closure-ref self$764 25) (%closure-ref self$764 26) (%closure-ref self$764 27) (%closure-ref self$764 28) (%closure-ref self$764 29) (%closure-ref self$764 30) (%closure-ref self$764 31) (%closure-ref self$764 32) (%closure-ref self$764 33)) (set-cell! (%closure-ref self$764 19) r$503))) (%closure-ref self$757 1) (%closure-ref self$757 2) (%closure-ref self$757 3) (%closure-ref self$757 4) (%closure-ref self$757 5) (%closure-ref self$757 6) (%closure-ref self$757 7) (%closure-ref self$757 8) (%closure-ref self$757 9) (%closure-ref self$757 10) (%closure-ref self$757 11) (%closure-ref self$757 12) (%closure-ref self$757 13) (%closure-ref self$757 14) (%closure-ref self$757 15) (%closure-ref self$757 16) (%closure-ref self$757 17) (%closure-ref self$757 18) (%closure-ref self$757 19) (%closure-ref self$757 20) (%closure-ref self$757 21) (%closure-ref self$757 22) (%closure-ref self$757 23) (%closure-ref self$757 24) (%closure-ref self$757 25) (%closure-ref self$757 26) (%closure-ref self$757 27) (%closure-ref self$757 28) (%closure-ref self$757 29) (%closure-ref self$757 30) (%closure-ref self$757 31) (%closure-ref self$757 32) (%closure-ref self$757 33)) (%closure (lambda (self$758 k$504 sym$213) ((%closure (lambda (self$759 x$214) (if x$214 ((%closure-ref (%closure-ref self$759 2) 0) (%closure-ref self$759 2) (cdr x$214)) ((%closure-ref (cell-get (%closure-ref self$759 3)) 0) (cell-get (%closure-ref self$759 3)) (%closure (lambda (self$760 r$215) ((%closure (lambda (self$761 r$509) ((%closure (lambda (self$762 r$508) ((%closure (lambda (self$763 r$507) ((%closure-ref (%closure-ref self$763 1) 0) (%closure-ref self$763 1) (%closure-ref self$763 2))) (%closure-ref self$762 2) (%closure-ref self$762 3)) (set-cell! (%closure-ref self$762 1) r$508))) (%closure-ref self$761 1) (%closure-ref self$761 2) (%closure-ref self$761 3)) (cons r$509 (cell-get (%closure-ref self$761 1))))) (%closure-ref self$760 1) (%closure-ref self$760 2) r$215) (cons (%closure-ref self$760 3) r$215))) (%closure-ref self$759 1) (%closure-ref self$759 2) (%closure-ref self$759 4)) (%closure-ref self$759 4)))) (%closure-ref self$758 1) k$504 (%closure-ref self$758 2) sym$213) (assq sym$213 (cell-get (%closure-ref self$758 1))))) (%closure-ref self$757 1) (%closure-ref self$757 9)))) (%closure-ref self$756 1) (%closure-ref self$756 2) (%closure-ref self$756 3) (%closure-ref self$756 4) (%closure-ref self$756 5) (%closure-ref self$756 7) (%closure-ref self$756 8) (%closure-ref self$756 9) (%closure-ref self$756 10) (%closure-ref self$756 11) (%closure-ref self$756 12) (%closure-ref self$756 13) (%closure-ref self$756 14) (%closure-ref self$756 15) (%closure-ref self$756 16) (%closure-ref self$756 17) (%closure-ref self$756 18) (%closure-ref self$756 19) (%closure-ref self$756 20) (%closure-ref self$756 21) (%closure-ref self$756 22) (%closure-ref self$756 23) (%closure-ref self$756 24) (%closure-ref self$756 25) (%closure-ref self$756 26) (%closure-ref self$756 27) (%closure-ref self$756 28) (%closure-ref self$756 29) (%closure-ref self$756 30) (%closure-ref self$756 31) (%closure-ref self$756 32) (%closure-ref self$756 33) (%closure-ref self$756 34)) (set-cell! (%closure-ref self$756 6) r$510))) (%closure-ref self$753 1) (%closure-ref self$753 2) (%closure-ref self$753 3) (%closure-ref self$753 4) (%closure-ref self$753 5) (%closure-ref self$753 6) (%closure-ref self$753 7) (%closure-ref self$753 8) (%closure-ref self$753 9) (%closure-ref self$753 10) (%closure-ref self$753 11) (%closure-ref self$753 12) (%closure-ref self$753 13) (%closure-ref self$753 14) (%closure-ref self$753 15) (%closure-ref self$753 16) (%closure-ref self$753 17) (%closure-ref self$753 18) (%closure-ref self$753 19) (%closure-ref self$753 20) (%closure-ref self$753 21) (%closure-ref self$753 22) (%closure-ref self$753 23) (%closure-ref self$753 24) (%closure-ref self$753 25) (%closure-ref self$753 26) (%closure-ref self$753 27) (%closure-ref self$753 28) (%closure-ref self$753 29) (%closure-ref self$753 30) (%closure-ref self$753 31) (%closure-ref self$753 32) (%closure-ref self$753 33) (%closure-ref self$753 34)) (%closure (lambda (self$754 k$511 sym$217 property$216) ((%closure-ref (cell-get (%closure-ref self$754 2)) 0) (cell-get (%closure-ref self$754 2)) (%closure (lambda (self$755 r$512) ((%closure-ref (cell-get (%closure-ref self$755 1)) 0) (cell-get (%closure-ref self$755 1)) (%closure-ref self$755 2) r$512)) (%closure-ref self$754 1) k$511) sym$217)) (%closure-ref self$753 7) (%closure-ref self$753 20)))) (%closure-ref self$752 1) (%closure-ref self$752 2) (%closure-ref self$752 3) (%closure-ref self$752 4) (%closure-ref self$752 5) (%closure-ref self$752 6) (%closure-ref self$752 7) (%closure-ref self$752 8) (%closure-ref self$752 9) (%closure-ref self$752 10) (%closure-ref self$752 11) (%closure-ref self$752 12) (%closure-ref self$752 13) (%closure-ref self$752 15) (%closure-ref self$752 16) (%closure-ref self$752 17) (%closure-ref self$752 18) (%closure-ref self$752 19) (%closure-ref self$752 20) (%closure-ref self$752 21) (%closure-ref self$752 22) (%closure-ref self$752 23) (%closure-ref self$752 24) (%closure-ref self$752 25) (%closure-ref self$752 26) (%closure-ref self$752 27) (%closure-ref self$752 28) (%closure-ref self$752 29) (%closure-ref self$752 30) (%closure-ref self$752 31) (%closure-ref self$752 32) (%closure-ref self$752 33) (%closure-ref self$752 34) (%closure-ref self$752 35)) (set-cell! (%closure-ref self$752 14) r$513))) (%closure-ref self$749 1) (%closure-ref self$749 2) (%closure-ref self$749 3) (%closure-ref self$749 4) (%closure-ref self$749 5) (%closure-ref self$749 6) (%closure-ref self$749 7) (%closure-ref self$749 8) (%closure-ref self$749 9) (%closure-ref self$749 10) (%closure-ref self$749 11) (%closure-ref self$749 12) (%closure-ref self$749 13) (%closure-ref self$749 14) (%closure-ref self$749 15) (%closure-ref self$749 16) (%closure-ref self$749 17) (%closure-ref self$749 18) (%closure-ref self$749 19) (%closure-ref self$749 20) (%closure-ref self$749 21) (%closure-ref self$749 22) (%closure-ref self$749 23) (%closure-ref self$749 24) (%closure-ref self$749 25) (%closure-ref self$749 26) (%closure-ref self$749 27) (%closure-ref self$749 28) (%closure-ref self$749 29) (%closure-ref self$749 30) (%closure-ref self$749 31) (%closure-ref self$749 32) (%closure-ref self$749 33) (%closure-ref self$749 34) (%closure-ref self$749 35)) (%closure (lambda (self$750 k$514 sym$220 property$219 value$218) ((%closure-ref (cell-get (%closure-ref self$750 2)) 0) (cell-get (%closure-ref self$750 2)) (%closure (lambda (self$751 r$515) ((%closure-ref (cell-get (%closure-ref self$751 2)) 0) (cell-get (%closure-ref self$751 2)) (%closure-ref self$751 1) r$515 (%closure-ref self$751 3))) k$514 (%closure-ref self$750 1) value$218) sym$220)) (%closure-ref self$749 15) (%closure-ref self$749 21)))) (%closure-ref self$748 1) (%closure-ref self$748 2) (%closure-ref self$748 3) (%closure-ref self$748 4) (%closure-ref self$748 5) (%closure-ref self$748 6) (%closure-ref self$748 7) (%closure-ref self$748 8) (%closure-ref self$748 9) (%closure-ref self$748 10) (%closure-ref self$748 11) (%closure-ref self$748 12) (%closure-ref self$748 13) (%closure-ref self$748 14) (%closure-ref self$748 15) (%closure-ref self$748 16) (%closure-ref self$748 17) (%closure-ref self$748 18) (%closure-ref self$748 19) (%closure-ref self$748 20) (%closure-ref self$748 21) (%closure-ref self$748 22) (%closure-ref self$748 23) (%closure-ref self$748 24) (%closure-ref self$748 25) (%closure-ref self$748 26) (%closure-ref self$748 27) (%closure-ref self$748 28) (%closure-ref self$748 29) (%closure-ref self$748 30) (%closure-ref self$748 31) (%closure-ref self$748 32) (%closure-ref self$748 33) (%closure-ref self$748 34) (%closure-ref self$748 35)) (set-cell! (%closure-ref self$748 36) r$516))) (%closure-ref self$739 1) (%closure-ref self$739 2) (%closure-ref self$739 3) (%closure-ref self$739 4) (%closure-ref self$739 5) (%closure-ref self$739 6) (%closure-ref self$739 7) (%closure-ref self$739 8) (%closure-ref self$739 9) (%closure-ref self$739 10) (%closure-ref self$739 11) (%closure-ref self$739 12) (%closure-ref self$739 13) (%closure-ref self$739 14) (%closure-ref self$739 15) (%closure-ref self$739 16) (%closure-ref self$739 17) (%closure-ref self$739 18) (%closure-ref self$739 19) (%closure-ref self$739 20) (%closure-ref self$739 21) (%closure-ref self$739 22) (%closure-ref self$739 23) (%closure-ref self$739 24) (%closure-ref self$739 25) (%closure-ref self$739 26) (%closure-ref self$739 27) (%closure-ref self$739 28) (%closure-ref self$739 29) (%closure-ref self$739 30) (%closure-ref self$739 31) (%closure-ref self$739 32) (%closure-ref self$739 33) (%closure-ref self$739 34) (%closure-ref self$739 35) (%closure-ref self$739 36)) (%closure (lambda (self$740 k$517 term$221) ((%closure (lambda (self$741 r$518) (if r$518 ((%closure (lambda (self$743) ((%closure (lambda (self$744 r$522) ((%closure-ref (cell-get (%closure-ref self$744 1)) 0) (cell-get (%closure-ref self$744 1)) (%closure (lambda (self$745 r$519) ((%closure (lambda (self$746 r$521) ((%closure-ref map 0) map (%closure (lambda (self$747 r$520) ((%closure-ref (%closure-ref self$747 1) 0) (%closure-ref self$747 1) (cons (%closure-ref self$747 2) r$520))) (%closure-ref self$746 1) (%closure-ref self$746 2)) (cell-get (%closure-ref self$746 3)) r$521)) (%closure-ref self$745 1) r$519 (%closure-ref self$745 3)) (cdr (%closure-ref self$745 2)))) (%closure-ref self$744 2) (%closure-ref self$744 3) (%closure-ref self$744 4)) r$522)) (%closure-ref self$743 1) (%closure-ref self$743 2) (%closure-ref self$743 3) (%closure-ref self$743 4)) (car (%closure-ref self$743 3)))) (%closure-ref self$741 1) (%closure-ref self$741 2) (%closure-ref self$741 3) (%closure-ref self$741 4))) ((%closure (lambda (self$742) ((%closure-ref (%closure-ref self$742 1) 0) (%closure-ref self$742 1) (%closure-ref self$742 2))) (%closure-ref self$741 2) (%closure-ref self$741 3))))) (%closure-ref self$740 1) k$517 term$221 (%closure-ref self$740 2)) (pair? term$221))) (%closure-ref self$739 8) (%closure-ref self$739 36)))) (%closure-ref self$738 1) (%closure-ref self$738 2) (%closure-ref self$738 3) (%closure-ref self$738 4) (%closure-ref self$738 5) (%closure-ref self$738 6) (%closure-ref self$738 7) (%closure-ref self$738 8) (%closure-ref self$738 9) (%closure-ref self$738 10) (%closure-ref self$738 11) (%closure-ref self$738 12) (%closure-ref self$738 13) (%closure-ref self$738 14) (%closure-ref self$738 15) (%closure-ref self$738 16) (%closure-ref self$738 17) (%closure-ref self$738 18) (%closure-ref self$738 19) (%closure-ref self$738 20) (%closure-ref self$738 21) (%closure-ref self$738 22) (%closure-ref self$738 23) (%closure-ref self$738 24) (%closure-ref self$738 25) (%closure-ref self$738 26) (%closure-ref self$738 27) (%closure-ref self$738 28) (%closure-ref self$738 29) (%closure-ref self$738 30) (%closure-ref self$738 31) (%closure-ref self$738 33) (%closure-ref self$738 34) (%closure-ref self$738 35) (%closure-ref self$738 36) (%closure-ref self$738 37)) (set-cell! (%closure-ref self$738 32) r$523))) (%closure-ref self$729 1) (%closure-ref self$729 2) (%closure-ref self$729 3) (%closure-ref self$729 4) (%closure-ref self$729 5) (%closure-ref self$729 6) (%closure-ref self$729 7) (%closure-ref self$729 8) (%closure-ref self$729 9) (%closure-ref self$729 10) (%closure-ref self$729 11) (%closure-ref self$729 12) (%closure-ref self$729 13) (%closure-ref self$729 14) (%closure-ref self$729 15) (%closure-ref self$729 16) (%closure-ref self$729 17) (%closure-ref self$729 18) (%closure-ref self$729 19) (%closure-ref self$729 20) (%closure-ref self$729 21) (%closure-ref self$729 22) (%closure-ref self$729 23) (%closure-ref self$729 24) (%closure-ref self$729 25) (%closure-ref self$729 26) (%closure-ref self$729 27) (%closure-ref self$729 28) (%closure-ref self$729 29) (%closure-ref self$729 30) (%closure-ref self$729 31) (%closure-ref self$729 32) (%closure-ref self$729 33) (%closure-ref self$729 34) (%closure-ref self$729 35) (%closure-ref self$729 36) (%closure-ref self$729 37)) (%closure (lambda (self$730 k$524 lst$222) ((%closure (lambda (self$731 r$525) (if r$525 ((%closure (lambda (self$737) ((%closure-ref (%closure-ref self$737 1) 0) (%closure-ref self$737 1) (quote ()))) (%closure-ref self$731 1))) ((%closure (lambda (self$732) ((%closure (lambda (self$733 r$529) ((%closure-ref (cell-get (%closure-ref self$733 4)) 0) (cell-get (%closure-ref self$733 4)) (%closure (lambda (self$734 r$526) ((%closure (lambda (self$735 r$528) ((%closure-ref (cell-get (%closure-ref self$735 3)) 0) (cell-get (%closure-ref self$735 3)) (%closure (lambda (self$736 r$527) ((%closure-ref (%closure-ref self$736 1) 0) (%closure-ref self$736 1) (cons (%closure-ref self$736 2) r$527))) (%closure-ref self$735 1) (%closure-ref self$735 2)) r$528)) (%closure-ref self$734 1) r$526 (%closure-ref self$734 3)) (cdr (%closure-ref self$734 2)))) (%closure-ref self$733 1) (%closure-ref self$733 2) (%closure-ref self$733 3)) r$529)) (%closure-ref self$732 1) (%closure-ref self$732 2) (%closure-ref self$732 3) (%closure-ref self$732 4)) (car (%closure-ref self$732 2)))) (%closure-ref self$731 1) (%closure-ref self$731 2) (%closure-ref self$731 3) (%closure-ref self$731 4))))) k$524 lst$222 (%closure-ref self$730 1) (%closure-ref self$730 2)) (null? lst$222))) (%closure-ref self$729 32) (%closure-ref self$729 33)))) (%closure-ref self$728 1) (%closure-ref self$728 2) (%closure-ref self$728 3) (%closure-ref self$728 4) (%closure-ref self$728 5) (%closure-ref self$728 6) (%closure-ref self$728 7) (%closure-ref self$728 8) (%closure-ref self$728 9) (%closure-ref self$728 10) (%closure-ref self$728 11) (%closure-ref self$728 12) (%closure-ref self$728 13) (%closure-ref self$728 14) (%closure-ref self$728 15) (%closure-ref self$728 16) (%closure-ref self$728 17) (%closure-ref self$728 18) (%closure-ref self$728 19) (%closure-ref self$728 20) (%closure-ref self$728 21) (%closure-ref self$728 22) (%closure-ref self$728 23) (%closure-ref self$728 24) (%closure-ref self$728 25) (%closure-ref self$728 26) (%closure-ref self$728 27) (%closure-ref self$728 28) (%closure-ref self$728 29) (%closure-ref self$728 30) (%closure-ref self$728 31) (%closure-ref self$728 32) (%closure-ref self$728 33) (%closure-ref self$728 34) (%closure-ref self$728 35) (%closure-ref self$728 36) (%closure-ref self$728 37)) (set-cell! (%closure-ref self$728 33) r$530))) (%closure-ref self$719 1) (%closure-ref self$719 2) (%closure-ref self$719 3) (%closure-ref self$719 4) (%closure-ref self$719 5) (%closure-ref self$719 6) (%closure-ref self$719 7) (%closure-ref self$719 8) (%closure-ref self$719 9) (%closure-ref self$719 10) (%closure-ref self$719 11) (%closure-ref self$719 12) (%closure-ref self$719 13) (%closure-ref self$719 14) (%closure-ref self$719 15) (%closure-ref self$719 16) (%closure-ref self$719 17) (%closure-ref self$719 18) (%closure-ref self$719 19) (%closure-ref self$719 20) (%closure-ref self$719 21) (%closure-ref self$719 22) (%closure-ref self$719 23) (%closure-ref self$719 24) (%closure-ref self$719 25) (%closure-ref self$719 26) (%closure-ref self$719 27) (%closure-ref self$719 28) (%closure-ref self$719 29) (%closure-ref self$719 30) (%closure-ref self$719 31) (%closure-ref self$719 32) (%closure-ref self$719 33) (%closure-ref self$719 34) (%closure-ref self$719 35) (%closure-ref self$719 36) (%closure-ref self$719 37)) (%closure (lambda (self$720 k$531 term$223) ((%closure (lambda (self$721 r$532) (if r$532 ((%closure (lambda (self$723) ((%closure (lambda (self$724 r$536) ((%closure-ref (cell-get (%closure-ref self$724 2)) 0) (cell-get (%closure-ref self$724 2)) (%closure (lambda (self$725 r$533) ((%closure (lambda (self$726 r$535) ((%closure-ref (cell-get (%closure-ref self$726 3)) 0) (cell-get (%closure-ref self$726 3)) (%closure (lambda (self$727 r$534) ((%closure-ref (%closure-ref self$727 1) 0) (%closure-ref self$727 1) (cons (%closure-ref self$727 2) r$534))) (%closure-ref self$726 1) (%closure-ref self$726 2)) r$535)) (%closure-ref self$725 1) r$533 (%closure-ref self$725 3)) (cdr (%closure-ref self$725 2)))) (%closure-ref self$724 1) (%closure-ref self$724 3) (%closure-ref self$724 4)) r$536)) (%closure-ref self$723 1) (%closure-ref self$723 2) (%closure-ref self$723 3) (%closure-ref self$723 4)) (car (%closure-ref self$723 3)))) (%closure-ref self$721 1) (%closure-ref self$721 2) (%closure-ref self$721 3) (%closure-ref self$721 4))) ((%closure (lambda (self$722) ((%closure-ref (%closure-ref self$722 1) 0) (%closure-ref self$722 1) (%closure-ref self$722 2))) (%closure-ref self$721 1) (%closure-ref self$721 3))))) k$531 (%closure-ref self$720 1) term$223 (%closure-ref self$720 2)) (pair? term$223))) (%closure-ref self$719 21) (%closure-ref self$719 32)))) (%closure-ref self$718 1) (%closure-ref self$718 3) (%closure-ref self$718 4) (%closure-ref self$718 5) (%closure-ref self$718 6) (%closure-ref self$718 7) (%closure-ref self$718 8) (%closure-ref self$718 9) (%closure-ref self$718 10) (%closure-ref self$718 11) (%closure-ref self$718 12) (%closure-ref self$718 13) (%closure-ref self$718 14) (%closure-ref self$718 15) (%closure-ref self$718 16) (%closure-ref self$718 17) (%closure-ref self$718 18) (%closure-ref self$718 19) (%closure-ref self$718 20) (%closure-ref self$718 21) (%closure-ref self$718 22) (%closure-ref self$718 23) (%closure-ref self$718 24) (%closure-ref self$718 25) (%closure-ref self$718 26) (%closure-ref self$718 27) (%closure-ref self$718 28) (%closure-ref self$718 29) (%closure-ref self$718 30) (%closure-ref self$718 31) (%closure-ref self$718 32) (%closure-ref self$718 33) (%closure-ref self$718 34) (%closure-ref self$718 35) (%closure-ref self$718 36) (%closure-ref self$718 37) (%closure-ref self$718 38)) (set-cell! (%closure-ref self$718 2) r$537))) (%closure-ref self$698 1) (%closure-ref self$698 2) (%closure-ref self$698 3) (%closure-ref self$698 4) (%closure-ref self$698 5) (%closure-ref self$698 6) (%closure-ref self$698 7) (%closure-ref self$698 8) (%closure-ref self$698 9) (%closure-ref self$698 10) (%closure-ref self$698 11) (%closure-ref self$698 12) (%closure-ref self$698 13) (%closure-ref self$698 14) (%closure-ref self$698 15) (%closure-ref self$698 16) (%closure-ref self$698 17) (%closure-ref self$698 18) (%closure-ref self$698 19) (%closure-ref self$698 20) (%closure-ref self$698 21) (%closure-ref self$698 22) (%closure-ref self$698 23) (%closure-ref self$698 24) (%closure-ref self$698 25) (%closure-ref self$698 26) (%closure-ref self$698 27) (%closure-ref self$698 28) (%closure-ref self$698 29) (%closure-ref self$698 30) (%closure-ref self$698 31) (%closure-ref self$698 32) (%closure-ref self$698 33) (%closure-ref self$698 34) (%closure-ref self$698 35) (%closure-ref self$698 36) (%closure-ref self$698 37) (%closure-ref self$698 38)) (%closure (lambda (self$699 k$538 term$224) ((%closure (lambda (self$712 k$549) ((%closure (lambda (self$713 r$550) (if r$550 ((%closure (lambda (self$714 r$553) ((%closure (lambda (self$715 r$554) ((%closure (lambda (self$716 r$551) (if r$551 ((%closure (lambda (self$717 r$552) ((%closure-ref (%closure-ref self$717 1) 0) (%closure-ref self$717 1) (pair? r$552))) (%closure-ref self$716 1)) (cadr (%closure-ref self$716 2))) ((%closure-ref (%closure-ref self$716 1) 0) (%closure-ref self$716 1) #f))) (%closure-ref self$715 1) (%closure-ref self$715 3)) (eq? (%closure-ref self$715 2) r$554))) (%closure-ref self$714 1) r$553 (%closure-ref self$714 2)) (quote equal))) (%closure-ref self$713 1) (%closure-ref self$713 2)) (car (%closure-ref self$713 2))) ((%closure-ref (%closure-ref self$713 1) 0) (%closure-ref self$713 1) #f))) k$549 (%closure-ref self$712 1)) (pair? (%closure-ref self$712 1)))) term$224) (%closure (lambda (self$700 r$539) (if r$539 ((%closure (lambda (self$702) ((%closure (lambda (self$703 r$548) ((%closure (lambda (self$704 r$540) ((%closure (lambda (self$705 r$541) ((%closure-ref (cell-get (%closure-ref self$705 6)) 0) (cell-get (%closure-ref self$705 6)) (%closure (lambda (self$706 r$543) ((%closure (lambda (self$707 r$547) ((%closure (lambda (self$708 r$545) ((%closure (lambda (self$709 r$546) ((%closure-ref (cell-get (%closure-ref self$709 1)) 0) (cell-get (%closure-ref self$709 1)) (%closure (lambda (self$710 r$544) ((%closure (lambda (self$711 r$542) ((%closure-ref (cell-get (%closure-ref self$711 2)) 0) (cell-get (%closure-ref self$711 2)) (%closure-ref self$711 1) (%closure-ref self$711 3) (%closure-ref self$711 4) r$542)) (%closure-ref self$710 1) (%closure-ref self$710 2) (%closure-ref self$710 3) (%closure-ref self$710 4)) (cons (%closure-ref self$710 5) r$544))) (%closure-ref self$709 2) (%closure-ref self$709 3) (%closure-ref self$709 4) (%closure-ref self$709 5) (%closure-ref self$709 6)) (%closure-ref self$709 7) r$546)) (%closure-ref self$708 1) (%closure-ref self$708 2) (%closure-ref self$708 3) (%closure-ref self$708 4) (%closure-ref self$708 5) (%closure-ref self$708 6) r$545) (quote lemmas))) (%closure-ref self$707 1) (%closure-ref self$707 2) (%closure-ref self$707 3) (%closure-ref self$707 4) (%closure-ref self$707 5) (%closure-ref self$707 6)) (car r$547))) (%closure-ref self$706 1) (%closure-ref self$706 2) (%closure-ref self$706 3) (%closure-ref self$706 4) (%closure-ref self$706 5) r$543) (cadr (%closure-ref self$706 6)))) (%closure-ref self$705 1) (%closure-ref self$705 2) (%closure-ref self$705 3) (%closure-ref self$705 4) r$541 (%closure-ref self$705 5)) (%closure-ref self$705 5))) (%closure-ref self$704 1) (%closure-ref self$704 2) (%closure-ref self$704 3) r$540 (%closure-ref self$704 4) (%closure-ref self$704 5)) (quote lemmas))) (%closure-ref self$703 1) (%closure-ref self$703 2) (%closure-ref self$703 3) (%closure-ref self$703 4) (%closure-ref self$703 5)) (car r$548))) (%closure-ref self$702 1) (%closure-ref self$702 2) (%closure-ref self$702 3) (%closure-ref self$702 4) (%closure-ref self$702 5)) (cadr (%closure-ref self$702 4)))) (%closure-ref self$700 1) (%closure-ref self$700 2) (%closure-ref self$700 3) (%closure-ref self$700 4) (%closure-ref self$700 5))) ((%closure (lambda (self$701) ((%closure-ref error 0) error (%closure-ref self$701 1) #f "ADD-LEMMA did not like term: " (%closure-ref self$701 2))) (%closure-ref self$700 2) (%closure-ref self$700 4))))) (%closure-ref self$699 1) k$538 (%closure-ref self$699 2) term$224 (%closure-ref self$699 3)))) (%closure-ref self$698 7) (%closure-ref self$698 15) (%closure-ref self$698 34)))) (%closure-ref self$697 1) (%closure-ref self$697 2) (%closure-ref self$697 4) (%closure-ref self$697 5) (%closure-ref self$697 6) (%closure-ref self$697 7) (%closure-ref self$697 8) (%closure-ref self$697 9) (%closure-ref self$697 10) (%closure-ref self$697 11) (%closure-ref self$697 12) (%closure-ref self$697 13) (%closure-ref self$697 14) (%closure-ref self$697 15) (%closure-ref self$697 16) (%closure-ref self$697 17) (%closure-ref self$697 18) (%closure-ref self$697 19) (%closure-ref self$697 20) (%closure-ref self$697 21) (%closure-ref self$697 22) (%closure-ref self$697 23) (%closure-ref self$697 24) (%closure-ref self$697 25) (%closure-ref self$697 26) (%closure-ref self$697 27) (%closure-ref self$697 28) (%closure-ref self$697 29) (%closure-ref self$697 30) (%closure-ref self$697 31) (%closure-ref self$697 32) (%closure-ref self$697 33) (%closure-ref self$697 34) (%closure-ref self$697 35) (%closure-ref self$697 36) (%closure-ref self$697 37) (%closure-ref self$697 38) (%closure-ref self$697 39)) (set-cell! (%closure-ref self$697 3) r$555))) (%closure-ref self$689 1) (%closure-ref self$689 2) (%closure-ref self$689 3) (%closure-ref self$689 4) (%closure-ref self$689 5) (%closure-ref self$689 6) (%closure-ref self$689 7) (%closure-ref self$689 8) (%closure-ref self$689 9) (%closure-ref self$689 10) (%closure-ref self$689 11) (%closure-ref self$689 12) (%closure-ref self$689 13) (%closure-ref self$689 14) (%closure-ref self$689 15) (%closure-ref self$689 16) (%closure-ref self$689 17) (%closure-ref self$689 18) (%closure-ref self$689 19) (%closure-ref self$689 20) (%closure-ref self$689 21) (%closure-ref self$689 22) (%closure-ref self$689 23) (%closure-ref self$689 24) (%closure-ref self$689 25) (%closure-ref self$689 26) (%closure-ref self$689 27) (%closure-ref self$689 28) (%closure-ref self$689 29) (%closure-ref self$689 30) (%closure-ref self$689 31) (%closure-ref self$689 32) (%closure-ref self$689 33) (%closure-ref self$689 34) (%closure-ref self$689 35) (%closure-ref self$689 36) (%closure-ref self$689 37) (%closure-ref self$689 38) (%closure-ref self$689 39)) (%closure (lambda (self$690 k$556 lst$225) ((%closure (lambda (self$691 r$557) (if r$557 ((%closure (lambda (self$696) ((%closure-ref (%closure-ref self$696 1) 0) (%closure-ref self$696 1) #t)) (%closure-ref self$691 3))) ((%closure (lambda (self$692) ((%closure (lambda (self$693 r$560) ((%closure-ref (cell-get (%closure-ref self$693 1)) 0) (cell-get (%closure-ref self$693 1)) (%closure (lambda (self$694 r$558) ((%closure (lambda (self$695 r$559) ((%closure-ref (cell-get (%closure-ref self$695 1)) 0) (cell-get (%closure-ref self$695 1)) (%closure-ref self$695 2) r$559)) (%closure-ref self$694 1) (%closure-ref self$694 2)) (cdr (%closure-ref self$694 3)))) (%closure-ref self$693 2) (%closure-ref self$693 3) (%closure-ref self$693 4)) r$560)) (%closure-ref self$692 1) (%closure-ref self$692 2) (%closure-ref self$692 3) (%closure-ref self$692 4)) (car (%closure-ref self$692 4)))) (%closure-ref self$691 1) (%closure-ref self$691 2) (%closure-ref self$691 3) (%closure-ref self$691 4))))) (%closure-ref self$690 1) (%closure-ref self$690 2) k$556 lst$225) (null? lst$225))) (%closure-ref self$689 2) (%closure-ref self$689 3)))) (%closure-ref self$688 1) (%closure-ref self$688 2) (%closure-ref self$688 3) (%closure-ref self$688 4) (%closure-ref self$688 5) (%closure-ref self$688 6) (%closure-ref self$688 7) (%closure-ref self$688 8) (%closure-ref self$688 9) (%closure-ref self$688 10) (%closure-ref self$688 11) (%closure-ref self$688 12) (%closure-ref self$688 13) (%closure-ref self$688 14) (%closure-ref self$688 15) (%closure-ref self$688 16) (%closure-ref self$688 17) (%closure-ref self$688 18) (%closure-ref self$688 19) (%closure-ref self$688 20) (%closure-ref self$688 21) (%closure-ref self$688 22) (%closure-ref self$688 23) (%closure-ref self$688 24) (%closure-ref self$688 25) (%closure-ref self$688 26) (%closure-ref self$688 27) (%closure-ref self$688 28) (%closure-ref self$688 29) (%closure-ref self$688 30) (%closure-ref self$688 31) (%closure-ref self$688 32) (%closure-ref self$688 33) (%closure-ref self$688 34) (%closure-ref self$688 35) (%closure-ref self$688 36) (%closure-ref self$688 37) (%closure-ref self$688 38) (%closure-ref self$688 39)) (set-cell! (%closure-ref self$688 22) r$561))) (%closure-ref self$685 1) (%closure-ref self$685 2) (%closure-ref self$685 3) (%closure-ref self$685 4) (%closure-ref self$685 5) (%closure-ref self$685 6) (%closure-ref self$685 7) (%closure-ref self$685 8) (%closure-ref self$685 9) (%closure-ref self$685 10) (%closure-ref self$685 11) (%closure-ref self$685 12) (%closure-ref self$685 13) (%closure-ref self$685 14) (%closure-ref self$685 15) (%closure-ref self$685 16) (%closure-ref self$685 17) (%closure-ref self$685 18) (%closure-ref self$685 19) (%closure-ref self$685 20) (%closure-ref self$685 21) (%closure-ref self$685 22) (%closure-ref self$685 23) (%closure-ref self$685 24) (%closure-ref self$685 25) (%closure-ref self$685 26) (%closure-ref self$685 27) (%closure-ref self$685 28) term-member?$119 (%closure-ref self$685 29) (%closure-ref self$685 30) (%closure-ref self$685 31) (%closure-ref self$685 32) (%closure-ref self$685 33) (%closure-ref self$685 34) (%closure-ref self$685 35) (%closure-ref self$685 36) (%closure-ref self$685 37) (%closure-ref self$685 38)) (%closure (lambda (self$686 k$562) ((%closure (lambda (self$687 r$563) ((%closure-ref (cell-get (%closure-ref self$687 1)) 0) (cell-get (%closure-ref self$687 1)) (%closure-ref self$687 2) r$563)) (%closure-ref self$686 1) k$562) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (%closure-ref self$685 3)))) (%closure-ref self$684 1) (%closure-ref self$684 2) (%closure-ref self$684 3) (%closure-ref self$684 4) (%closure-ref self$684 5) (%closure-ref self$684 6) (%closure-ref self$684 7) (%closure-ref self$684 8) (%closure-ref self$684 9) (%closure-ref self$684 10) (%closure-ref self$684 11) (%closure-ref self$684 12) (%closure-ref self$684 13) (%closure-ref self$684 14) (%closure-ref self$684 15) (%closure-ref self$684 16) (%closure-ref self$684 17) (%closure-ref self$684 18) (%closure-ref self$684 19) (%closure-ref self$684 20) (%closure-ref self$684 21) (%closure-ref self$684 22) (%closure-ref self$684 23) (%closure-ref self$684 24) (%closure-ref self$684 25) (%closure-ref self$684 26) term-args-equal?$120 (%closure-ref self$684 27) (%closure-ref self$684 29) (%closure-ref self$684 30) (%closure-ref self$684 31) (%closure-ref self$684 32) (%closure-ref self$684 33) (%closure-ref self$684 34) (%closure-ref self$684 35) (%closure-ref self$684 36) (%closure-ref self$684 37) (%closure-ref self$684 38)) (cell (%closure-ref self$684 28)))) (%closure-ref self$683 1) (%closure-ref self$683 2) (%closure-ref self$683 3) (%closure-ref self$683 4) (%closure-ref self$683 5) (%closure-ref self$683 6) (%closure-ref self$683 7) (%closure-ref self$683 8) (%closure-ref self$683 9) (%closure-ref self$683 10) (%closure-ref self$683 11) (%closure-ref self$683 12) (%closure-ref self$683 13) (%closure-ref self$683 14) (%closure-ref self$683 15) (%closure-ref self$683 16) (%closure-ref self$683 17) (%closure-ref self$683 18) (%closure-ref self$683 19) (%closure-ref self$683 20) (%closure-ref self$683 21) (%closure-ref self$683 22) (%closure-ref self$683 23) (%closure-ref self$683 24) (%closure-ref self$683 25) (%closure-ref self$683 26) term-equal?$121 (%closure-ref self$683 28) (%closure-ref self$683 29) (%closure-ref self$683 30) (%closure-ref self$683 31) (%closure-ref self$683 32) (%closure-ref self$683 33) (%closure-ref self$683 34) (%closure-ref self$683 35) (%closure-ref self$683 36) (%closure-ref self$683 37) (%closure-ref self$683 38)) (cell (%closure-ref self$683 27)))) (%closure-ref self$682 1) (%closure-ref self$682 2) (%closure-ref self$682 3) (%closure-ref self$682 4) (%closure-ref self$682 5) (%closure-ref self$682 6) (%closure-ref self$682 7) (%closure-ref self$682 8) (%closure-ref self$682 9) (%closure-ref self$682 10) (%closure-ref self$682 11) (%closure-ref self$682 12) (%closure-ref self$682 13) (%closure-ref self$682 14) (%closure-ref self$682 15) (%closure-ref self$682 16) (%closure-ref self$682 17) (%closure-ref self$682 18) (%closure-ref self$682 19) (%closure-ref self$682 20) (%closure-ref self$682 21) (%closure-ref self$682 22) (%closure-ref self$682 23) (%closure-ref self$682 24) (%closure-ref self$682 25) (%closure-ref self$682 26) (%closure-ref self$682 27) (%closure-ref self$682 29) (%closure-ref self$682 30) (%closure-ref self$682 31) trans-of-implies1$122 (%closure-ref self$682 32) (%closure-ref self$682 33) (%closure-ref self$682 34) (%closure-ref self$682 35) (%closure-ref self$682 36) (%closure-ref self$682 37) (%closure-ref self$682 38)) (cell (%closure-ref self$682 28)))) (%closure-ref self$681 1) (%closure-ref self$681 2) (%closure-ref self$681 3) (%closure-ref self$681 4) (%closure-ref self$681 5) (%closure-ref self$681 6) (%closure-ref self$681 7) (%closure-ref self$681 8) (%closure-ref self$681 9) (%closure-ref self$681 10) (%closure-ref self$681 11) (%closure-ref self$681 12) (%closure-ref self$681 13) (%closure-ref self$681 14) (%closure-ref self$681 15) (%closure-ref self$681 16) (%closure-ref self$681 17) (%closure-ref self$681 18) (%closure-ref self$681 19) (%closure-ref self$681 20) (%closure-ref self$681 21) (%closure-ref self$681 22) (%closure-ref self$681 23) (%closure-ref self$681 24) (%closure-ref self$681 25) (%closure-ref self$681 26) (%closure-ref self$681 27) (%closure-ref self$681 28) (%closure-ref self$681 29) (%closure-ref self$681 30) trans-of-implies$123 (%closure-ref self$681 32) (%closure-ref self$681 33) (%closure-ref self$681 34) (%closure-ref self$681 35) (%closure-ref self$681 36) (%closure-ref self$681 37) (%closure-ref self$681 38)) (cell (%closure-ref self$681 31)))) (%closure-ref self$680 1) (%closure-ref self$680 2) (%closure-ref self$680 3) (%closure-ref self$680 4) (%closure-ref self$680 5) (%closure-ref self$680 6) (%closure-ref self$680 7) (%closure-ref self$680 8) (%closure-ref self$680 9) (%closure-ref self$680 10) (%closure-ref self$680 11) (%closure-ref self$680 12) (%closure-ref self$680 13) (%closure-ref self$680 14) (%closure-ref self$680 15) (%closure-ref self$680 16) (%closure-ref self$680 17) (%closure-ref self$680 18) (%closure-ref self$680 19) (%closure-ref self$680 20) (%closure-ref self$680 21) (%closure-ref self$680 22) (%closure-ref self$680 23) (%closure-ref self$680 24) (%closure-ref self$680 25) (%closure-ref self$680 26) (%closure-ref self$680 27) (%closure-ref self$680 28) (%closure-ref self$680 29) (%closure-ref self$680 30) (%closure-ref self$680 32) (%closure-ref self$680 33) (%closure-ref self$680 34) (%closure-ref self$680 35) true-term$124 (%closure-ref self$680 36) (%closure-ref self$680 37) (%closure-ref self$680 38)) (cell (%closure-ref self$680 31)))) (%closure-ref self$679 1) (%closure-ref self$679 2) (%closure-ref self$679 3) (%closure-ref self$679 4) (%closure-ref self$679 5) false-term$125 (%closure-ref self$679 6) (%closure-ref self$679 7) (%closure-ref self$679 8) (%closure-ref self$679 9) (%closure-ref self$679 10) (%closure-ref self$679 11) (%closure-ref self$679 12) (%closure-ref self$679 13) (%closure-ref self$679 14) (%closure-ref self$679 15) (%closure-ref self$679 16) (%closure-ref self$679 17) (%closure-ref self$679 18) (%closure-ref self$679 19) (%closure-ref self$679 20) (%closure-ref self$679 21) (%closure-ref self$679 22) (%closure-ref self$679 23) (%closure-ref self$679 24) (%closure-ref self$679 25) (%closure-ref self$679 26) (%closure-ref self$679 27) (%closure-ref self$679 28) (%closure-ref self$679 29) (%closure-ref self$679 30) (%closure-ref self$679 31) (%closure-ref self$679 32) (%closure-ref self$679 33) (%closure-ref self$679 34) (%closure-ref self$679 36) (%closure-ref self$679 37) (%closure-ref self$679 38)) (cell (%closure-ref self$679 35)))) (%closure-ref self$678 1) (%closure-ref self$678 2) (%closure-ref self$678 3) (%closure-ref self$678 4) (%closure-ref self$678 5) (%closure-ref self$678 7) (%closure-ref self$678 8) (%closure-ref self$678 9) (%closure-ref self$678 10) (%closure-ref self$678 11) (%closure-ref self$678 12) (%closure-ref self$678 13) (%closure-ref self$678 14) (%closure-ref self$678 15) (%closure-ref self$678 16) (%closure-ref self$678 17) (%closure-ref self$678 18) (%closure-ref self$678 19) (%closure-ref self$678 20) (%closure-ref self$678 21) (%closure-ref self$678 22) (%closure-ref self$678 23) (%closure-ref self$678 24) (%closure-ref self$678 25) (%closure-ref self$678 26) (%closure-ref self$678 27) (%closure-ref self$678 28) (%closure-ref self$678 29) (%closure-ref self$678 30) (%closure-ref self$678 31) (%closure-ref self$678 32) (%closure-ref self$678 33) (%closure-ref self$678 34) (%closure-ref self$678 35) (%closure-ref self$678 36) truep$126 (%closure-ref self$678 37) (%closure-ref self$678 38)) (cell (%closure-ref self$678 6)))) (%closure-ref self$677 1) (%closure-ref self$677 2) (%closure-ref self$677 3) (%closure-ref self$677 4) (%closure-ref self$677 5) (%closure-ref self$677 6) falsep$127 (%closure-ref self$677 7) (%closure-ref self$677 8) (%closure-ref self$677 9) (%closure-ref self$677 10) (%closure-ref self$677 11) (%closure-ref self$677 12) (%closure-ref self$677 13) (%closure-ref self$677 14) (%closure-ref self$677 15) (%closure-ref self$677 16) (%closure-ref self$677 17) (%closure-ref self$677 18) (%closure-ref self$677 19) (%closure-ref self$677 20) (%closure-ref self$677 21) (%closure-ref self$677 22) (%closure-ref self$677 23) (%closure-ref self$677 24) (%closure-ref self$677 25) (%closure-ref self$677 26) (%closure-ref self$677 27) (%closure-ref self$677 28) (%closure-ref self$677 29) (%closure-ref self$677 30) (%closure-ref self$677 31) (%closure-ref self$677 32) (%closure-ref self$677 33) (%closure-ref self$677 34) (%closure-ref self$677 35) (%closure-ref self$677 37) (%closure-ref self$677 38)) (cell (%closure-ref self$677 36)))) (%closure-ref self$676 1) (%closure-ref self$676 2) (%closure-ref self$676 3) (%closure-ref self$676 4) (%closure-ref self$676 5) (%closure-ref self$676 6) (%closure-ref self$676 8) (%closure-ref self$676 9) (%closure-ref self$676 10) (%closure-ref self$676 11) (%closure-ref self$676 12) (%closure-ref self$676 13) (%closure-ref self$676 14) one-way-unify1-lst$128 (%closure-ref self$676 15) (%closure-ref self$676 16) (%closure-ref self$676 17) (%closure-ref self$676 18) (%closure-ref self$676 19) (%closure-ref self$676 20) (%closure-ref self$676 21) (%closure-ref self$676 22) (%closure-ref self$676 23) (%closure-ref self$676 24) (%closure-ref self$676 25) (%closure-ref self$676 26) (%closure-ref self$676 27) (%closure-ref self$676 28) (%closure-ref self$676 29) (%closure-ref self$676 30) (%closure-ref self$676 31) (%closure-ref self$676 32) (%closure-ref self$676 33) (%closure-ref self$676 34) (%closure-ref self$676 35) (%closure-ref self$676 36) (%closure-ref self$676 37) (%closure-ref self$676 38)) (cell (%closure-ref self$676 7)))) (%closure-ref self$675 1) (%closure-ref self$675 2) (%closure-ref self$675 3) (%closure-ref self$675 4) (%closure-ref self$675 5) (%closure-ref self$675 6) (%closure-ref self$675 7) (%closure-ref self$675 8) (%closure-ref self$675 9) (%closure-ref self$675 10) (%closure-ref self$675 11) (%closure-ref self$675 12) (%closure-ref self$675 13) one-way-unify1$129 (%closure-ref self$675 15) (%closure-ref self$675 16) (%closure-ref self$675 17) (%closure-ref self$675 18) (%closure-ref self$675 19) (%closure-ref self$675 20) (%closure-ref self$675 21) (%closure-ref self$675 22) (%closure-ref self$675 23) (%closure-ref self$675 24) (%closure-ref self$675 25) (%closure-ref self$675 26) (%closure-ref self$675 27) (%closure-ref self$675 28) (%closure-ref self$675 29) (%closure-ref self$675 30) (%closure-ref self$675 31) (%closure-ref self$675 32) (%closure-ref self$675 33) (%closure-ref self$675 34) (%closure-ref self$675 35) (%closure-ref self$675 36) (%closure-ref self$675 37) (%closure-ref self$675 38)) (cell (%closure-ref self$675 14)))) (%closure-ref self$674 1) (%closure-ref self$674 2) (%closure-ref self$674 3) (%closure-ref self$674 4) (%closure-ref self$674 5) (%closure-ref self$674 6) (%closure-ref self$674 7) (%closure-ref self$674 8) (%closure-ref self$674 9) (%closure-ref self$674 10) (%closure-ref self$674 11) (%closure-ref self$674 12) one-way-unify$130 (%closure-ref self$674 14) (%closure-ref self$674 15) (%closure-ref self$674 16) (%closure-ref self$674 17) (%closure-ref self$674 18) (%closure-ref self$674 19) (%closure-ref self$674 20) (%closure-ref self$674 21) (%closure-ref self$674 22) (%closure-ref self$674 23) (%closure-ref self$674 24) (%closure-ref self$674 25) (%closure-ref self$674 26) (%closure-ref self$674 27) (%closure-ref self$674 28) (%closure-ref self$674 29) (%closure-ref self$674 30) (%closure-ref self$674 31) (%closure-ref self$674 32) (%closure-ref self$674 33) (%closure-ref self$674 34) (%closure-ref self$674 35) (%closure-ref self$674 36) (%closure-ref self$674 37) (%closure-ref self$674 38)) (cell (%closure-ref self$674 13)))) (%closure-ref self$673 1) (%closure-ref self$673 2) (%closure-ref self$673 3) (%closure-ref self$673 4) (%closure-ref self$673 5) (%closure-ref self$673 6) (%closure-ref self$673 7) (%closure-ref self$673 8) (%closure-ref self$673 9) (%closure-ref self$673 10) (%closure-ref self$673 11) (%closure-ref self$673 12) (%closure-ref self$673 14) (%closure-ref self$673 15) (%closure-ref self$673 16) (%closure-ref self$673 17) (%closure-ref self$673 18) (%closure-ref self$673 19) (%closure-ref self$673 20) (%closure-ref self$673 21) (%closure-ref self$673 22) (%closure-ref self$673 23) (%closure-ref self$673 24) (%closure-ref self$673 25) (%closure-ref self$673 26) (%closure-ref self$673 27) (%closure-ref self$673 28) (%closure-ref self$673 29) (%closure-ref self$673 30) (%closure-ref self$673 31) (%closure-ref self$673 32) (%closure-ref self$673 33) (%closure-ref self$673 34) (%closure-ref self$673 35) (%closure-ref self$673 36) (%closure-ref self$673 37) unify-subst$131 (%closure-ref self$673 38)) (cell (%closure-ref self$673 13)))) (%closure-ref self$672 1) (%closure-ref self$672 2) (%closure-ref self$672 3) (%closure-ref self$672 4) (%closure-ref self$672 5) (%closure-ref self$672 6) (%closure-ref self$672 7) (%closure-ref self$672 8) (%closure-ref self$672 9) (%closure-ref self$672 10) (%closure-ref self$672 11) (%closure-ref self$672 12) (%closure-ref self$672 13) (%closure-ref self$672 14) (%closure-ref self$672 15) (%closure-ref self$672 16) (%closure-ref self$672 17) (%closure-ref self$672 18) (%closure-ref self$672 19) (%closure-ref self$672 20) rewrite-with-lemmas$132 (%closure-ref self$672 21) (%closure-ref self$672 22) (%closure-ref self$672 23) (%closure-ref self$672 24) (%closure-ref self$672 25) (%closure-ref self$672 26) (%closure-ref self$672 27) (%closure-ref self$672 28) (%closure-ref self$672 29) (%closure-ref self$672 30) (%closure-ref self$672 31) (%closure-ref self$672 32) (%closure-ref self$672 33) (%closure-ref self$672 34) (%closure-ref self$672 35) (%closure-ref self$672 36) (%closure-ref self$672 38)) (cell (%closure-ref self$672 37)))) (%closure-ref self$671 1) (%closure-ref self$671 2) (%closure-ref self$671 3) (%closure-ref self$671 4) (%closure-ref self$671 5) (%closure-ref self$671 6) (%closure-ref self$671 7) (%closure-ref self$671 8) (%closure-ref self$671 9) (%closure-ref self$671 10) (%closure-ref self$671 11) (%closure-ref self$671 12) (%closure-ref self$671 13) (%closure-ref self$671 14) (%closure-ref self$671 15) (%closure-ref self$671 16) (%closure-ref self$671 17) (%closure-ref self$671 18) rewrite-args$133 (%closure-ref self$671 19) (%closure-ref self$671 21) (%closure-ref self$671 22) (%closure-ref self$671 23) (%closure-ref self$671 24) (%closure-ref self$671 25) (%closure-ref self$671 26) (%closure-ref self$671 27) (%closure-ref self$671 28) (%closure-ref self$671 29) (%closure-ref self$671 30) (%closure-ref self$671 31) (%closure-ref self$671 32) (%closure-ref self$671 33) (%closure-ref self$671 34) (%closure-ref self$671 35) (%closure-ref self$671 36) (%closure-ref self$671 37) (%closure-ref self$671 38)) (cell (%closure-ref self$671 20)))) (%closure-ref self$670 1) (%closure-ref self$670 2) (%closure-ref self$670 3) (%closure-ref self$670 4) (%closure-ref self$670 5) (%closure-ref self$670 6) (%closure-ref self$670 7) (%closure-ref self$670 8) (%closure-ref self$670 9) (%closure-ref self$670 10) (%closure-ref self$670 11) (%closure-ref self$670 12) (%closure-ref self$670 13) (%closure-ref self$670 14) (%closure-ref self$670 15) (%closure-ref self$670 16) (%closure-ref self$670 17) rewrite$134 (%closure-ref self$670 19) (%closure-ref self$670 20) (%closure-ref self$670 21) (%closure-ref self$670 22) (%closure-ref self$670 23) (%closure-ref self$670 24) (%closure-ref self$670 25) (%closure-ref self$670 26) (%closure-ref self$670 27) (%closure-ref self$670 28) (%closure-ref self$670 29) (%closure-ref self$670 30) (%closure-ref self$670 31) (%closure-ref self$670 32) (%closure-ref self$670 33) (%closure-ref self$670 34) (%closure-ref self$670 35) (%closure-ref self$670 36) (%closure-ref self$670 37) (%closure-ref self$670 38)) (cell (%closure-ref self$670 18)))) (%closure-ref self$669 1) (%closure-ref self$669 2) (%closure-ref self$669 3) (%closure-ref self$669 4) (%closure-ref self$669 5) (%closure-ref self$669 6) (%closure-ref self$669 7) (%closure-ref self$669 8) (%closure-ref self$669 9) (%closure-ref self$669 10) (%closure-ref self$669 11) (%closure-ref self$669 12) (%closure-ref self$669 13) (%closure-ref self$669 14) (%closure-ref self$669 15) (%closure-ref self$669 16) (%closure-ref self$669 17) (%closure-ref self$669 19) rewrite-count$135 (%closure-ref self$669 20) (%closure-ref self$669 21) (%closure-ref self$669 22) (%closure-ref self$669 23) (%closure-ref self$669 24) (%closure-ref self$669 25) (%closure-ref self$669 26) (%closure-ref self$669 27) (%closure-ref self$669 28) (%closure-ref self$669 29) (%closure-ref self$669 30) (%closure-ref self$669 31) (%closure-ref self$669 32) (%closure-ref self$669 33) (%closure-ref self$669 34) (%closure-ref self$669 35) (%closure-ref self$669 36) (%closure-ref self$669 37) (%closure-ref self$669 38)) (cell (%closure-ref self$669 18)))) (%closure-ref self$668 1) (%closure-ref self$668 2) (%closure-ref self$668 3) (%closure-ref self$668 4) (%closure-ref self$668 5) (%closure-ref self$668 6) (%closure-ref self$668 7) (%closure-ref self$668 8) (%closure-ref self$668 9) (%closure-ref self$668 10) if-constructor$136 (%closure-ref self$668 11) (%closure-ref self$668 12) (%closure-ref self$668 13) (%closure-ref self$668 14) (%closure-ref self$668 15) (%closure-ref self$668 16) (%closure-ref self$668 17) (%closure-ref self$668 18) (%closure-ref self$668 20) (%closure-ref self$668 21) (%closure-ref self$668 22) (%closure-ref self$668 23) (%closure-ref self$668 24) (%closure-ref self$668 25) (%closure-ref self$668 26) (%closure-ref self$668 27) (%closure-ref self$668 28) (%closure-ref self$668 29) (%closure-ref self$668 30) (%closure-ref self$668 31) (%closure-ref self$668 32) (%closure-ref self$668 33) (%closure-ref self$668 34) (%closure-ref self$668 35) (%closure-ref self$668 36) (%closure-ref self$668 37) (%closure-ref self$668 38)) (cell (%closure-ref self$668 19)))) (%closure-ref self$667 1) (%closure-ref self$667 2) (%closure-ref self$667 3) (%closure-ref self$667 4) (%closure-ref self$667 5) (%closure-ref self$667 6) (%closure-ref self$667 7) (%closure-ref self$667 8) (%closure-ref self$667 9) (%closure-ref self$667 10) (%closure-ref self$667 12) (%closure-ref self$667 13) (%closure-ref self$667 14) (%closure-ref self$667 15) (%closure-ref self$667 16) (%closure-ref self$667 17) (%closure-ref self$667 18) (%closure-ref self$667 19) (%closure-ref self$667 20) (%closure-ref self$667 21) (%closure-ref self$667 22) (%closure-ref self$667 23) (%closure-ref self$667 24) tautologyp$137 (%closure-ref self$667 25) (%closure-ref self$667 26) (%closure-ref self$667 27) (%closure-ref self$667 28) (%closure-ref self$667 29) (%closure-ref self$667 30) (%closure-ref self$667 31) (%closure-ref self$667 32) (%closure-ref self$667 33) (%closure-ref self$667 34) (%closure-ref self$667 35) (%closure-ref self$667 36) (%closure-ref self$667 37) (%closure-ref self$667 38)) (cell (%closure-ref self$667 11)))) (%closure-ref self$666 1) (%closure-ref self$666 2) (%closure-ref self$666 3) (%closure-ref self$666 4) (%closure-ref self$666 5) (%closure-ref self$666 6) (%closure-ref self$666 7) (%closure-ref self$666 8) (%closure-ref self$666 9) (%closure-ref self$666 10) (%closure-ref self$666 11) (%closure-ref self$666 12) (%closure-ref self$666 13) (%closure-ref self$666 14) (%closure-ref self$666 15) (%closure-ref self$666 16) (%closure-ref self$666 17) (%closure-ref self$666 18) (%closure-ref self$666 19) (%closure-ref self$666 20) (%closure-ref self$666 21) (%closure-ref self$666 22) (%closure-ref self$666 23) (%closure-ref self$666 24) tautp$138 (%closure-ref self$666 26) (%closure-ref self$666 27) (%closure-ref self$666 28) (%closure-ref self$666 29) (%closure-ref self$666 30) (%closure-ref self$666 31) (%closure-ref self$666 32) (%closure-ref self$666 33) (%closure-ref self$666 34) (%closure-ref self$666 35) (%closure-ref self$666 36) (%closure-ref self$666 37) (%closure-ref self$666 38)) (cell (%closure-ref self$666 25)))) (%closure-ref self$665 1) (%closure-ref self$665 2) (%closure-ref self$665 3) (%closure-ref self$665 4) apply-subst-lst$139 (%closure-ref self$665 5) (%closure-ref self$665 6) (%closure-ref self$665 7) (%closure-ref self$665 8) (%closure-ref self$665 9) (%closure-ref self$665 10) (%closure-ref self$665 11) (%closure-ref self$665 12) (%closure-ref self$665 13) (%closure-ref self$665 14) (%closure-ref self$665 15) (%closure-ref self$665 16) (%closure-ref self$665 17) (%closure-ref self$665 18) (%closure-ref self$665 19) (%closure-ref self$665 20) (%closure-ref self$665 21) (%closure-ref self$665 22) (%closure-ref self$665 23) (%closure-ref self$665 24) (%closure-ref self$665 26) (%closure-ref self$665 27) (%closure-ref self$665 28) (%closure-ref self$665 29) (%closure-ref self$665 30) (%closure-ref self$665 31) (%closure-ref self$665 32) (%closure-ref self$665 33) (%closure-ref self$665 34) (%closure-ref self$665 35) (%closure-ref self$665 36) (%closure-ref self$665 37) (%closure-ref self$665 38)) (cell (%closure-ref self$665 25)))) (%closure-ref self$664 1) (%closure-ref self$664 2) (%closure-ref self$664 3) apply-subst$140 (%closure-ref self$664 5) (%closure-ref self$664 6) (%closure-ref self$664 7) (%closure-ref self$664 8) (%closure-ref self$664 9) (%closure-ref self$664 10) (%closure-ref self$664 11) (%closure-ref self$664 12) (%closure-ref self$664 13) (%closure-ref self$664 14) (%closure-ref self$664 15) (%closure-ref self$664 16) (%closure-ref self$664 17) (%closure-ref self$664 18) (%closure-ref self$664 19) (%closure-ref self$664 20) (%closure-ref self$664 21) (%closure-ref self$664 22) (%closure-ref self$664 23) (%closure-ref self$664 24) (%closure-ref self$664 25) (%closure-ref self$664 26) (%closure-ref self$664 27) (%closure-ref self$664 28) (%closure-ref self$664 29) (%closure-ref self$664 30) (%closure-ref self$664 31) (%closure-ref self$664 32) (%closure-ref self$664 33) (%closure-ref self$664 34) (%closure-ref self$664 35) (%closure-ref self$664 36) (%closure-ref self$664 37) (%closure-ref self$664 38)) (cell (%closure-ref self$664 4)))) (%closure-ref self$663 1) (%closure-ref self$663 2) (%closure-ref self$663 3) (%closure-ref self$663 5) (%closure-ref self$663 6) (%closure-ref self$663 7) (%closure-ref self$663 8) (%closure-ref self$663 9) (%closure-ref self$663 10) (%closure-ref self$663 11) (%closure-ref self$663 12) (%closure-ref self$663 13) (%closure-ref self$663 14) (%closure-ref self$663 15) (%closure-ref self$663 16) (%closure-ref self$663 17) (%closure-ref self$663 18) (%closure-ref self$663 19) (%closure-ref self$663 20) (%closure-ref self$663 21) (%closure-ref self$663 22) (%closure-ref self$663 23) (%closure-ref self$663 24) (%closure-ref self$663 25) (%closure-ref self$663 26) (%closure-ref self$663 27) (%closure-ref self$663 28) (%closure-ref self$663 29) (%closure-ref self$663 30) (%closure-ref self$663 31) (%closure-ref self$663 32) translate-alist$141 (%closure-ref self$663 33) (%closure-ref self$663 34) (%closure-ref self$663 35) (%closure-ref self$663 36) (%closure-ref self$663 37) (%closure-ref self$663 38)) (cell (%closure-ref self$663 4)))) (%closure-ref self$662 1) (%closure-ref self$662 2) (%closure-ref self$662 3) (%closure-ref self$662 4) (%closure-ref self$662 5) (%closure-ref self$662 6) (%closure-ref self$662 7) (%closure-ref self$662 8) (%closure-ref self$662 9) (%closure-ref self$662 10) (%closure-ref self$662 11) (%closure-ref self$662 12) (%closure-ref self$662 13) (%closure-ref self$662 14) (%closure-ref self$662 15) (%closure-ref self$662 16) (%closure-ref self$662 17) (%closure-ref self$662 18) (%closure-ref self$662 19) (%closure-ref self$662 20) (%closure-ref self$662 21) (%closure-ref self$662 22) (%closure-ref self$662 23) (%closure-ref self$662 24) (%closure-ref self$662 25) (%closure-ref self$662 26) (%closure-ref self$662 27) (%closure-ref self$662 28) (%closure-ref self$662 29) test$142 (%closure-ref self$662 30) (%closure-ref self$662 31) (%closure-ref self$662 33) (%closure-ref self$662 34) (%closure-ref self$662 35) (%closure-ref self$662 36) (%closure-ref self$662 37) (%closure-ref self$662 38)) (cell (%closure-ref self$662 32)))) (%closure-ref self$661 1) (%closure-ref self$661 2) (%closure-ref self$661 3) (%closure-ref self$661 4) (%closure-ref self$661 5) (%closure-ref self$661 6) (%closure-ref self$661 7) (%closure-ref self$661 8) (%closure-ref self$661 9) (%closure-ref self$661 10) (%closure-ref self$661 11) (%closure-ref self$661 12) (%closure-ref self$661 13) (%closure-ref self$661 14) (%closure-ref self$661 15) (%closure-ref self$661 16) (%closure-ref self$661 17) (%closure-ref self$661 18) (%closure-ref self$661 19) (%closure-ref self$661 20) (%closure-ref self$661 21) (%closure-ref self$661 22) (%closure-ref self$661 23) symbol-record-equal?$143 (%closure-ref self$661 24) (%closure-ref self$661 25) (%closure-ref self$661 26) (%closure-ref self$661 27) (%closure-ref self$661 28) (%closure-ref self$661 30) (%closure-ref self$661 31) (%closure-ref self$661 32) (%closure-ref self$661 33) (%closure-ref self$661 34) (%closure-ref self$661 35) (%closure-ref self$661 36) (%closure-ref self$661 37) (%closure-ref self$661 38)) (cell (%closure-ref self$661 29)))) (%closure-ref self$660 1) (%closure-ref self$660 2) (%closure-ref self$660 3) (%closure-ref self$660 4) (%closure-ref self$660 5) (%closure-ref self$660 6) (%closure-ref self$660 7) (%closure-ref self$660 8) (%closure-ref self$660 9) get-name$144 (%closure-ref self$660 10) (%closure-ref self$660 11) (%closure-ref self$660 12) (%closure-ref self$660 13) (%closure-ref self$660 14) (%closure-ref self$660 15) (%closure-ref self$660 16) (%closure-ref self$660 17) (%closure-ref self$660 18) (%closure-ref self$660 19) (%closure-ref self$660 20) (%closure-ref self$660 21) (%closure-ref self$660 22) (%closure-ref self$660 24) (%closure-ref self$660 25) (%closure-ref self$660 26) (%closure-ref self$660 27) (%closure-ref self$660 28) (%closure-ref self$660 29) (%closure-ref self$660 30) (%closure-ref self$660 31) (%closure-ref self$660 32) (%closure-ref self$660 33) (%closure-ref self$660 34) (%closure-ref self$660 35) (%closure-ref self$660 36) (%closure-ref self$660 37) (%closure-ref self$660 38)) (cell (%closure-ref self$660 23)))) (%closure-ref self$659 1) (%closure-ref self$659 2) (%closure-ref self$659 3) (%closure-ref self$659 4) (%closure-ref self$659 5) (%closure-ref self$659 6) (%closure-ref self$659 7) (%closure-ref self$659 8) get-lemmas$145 (%closure-ref self$659 10) (%closure-ref self$659 11) (%closure-ref self$659 12) (%closure-ref self$659 13) (%closure-ref self$659 14) (%closure-ref self$659 15) (%closure-ref self$659 16) (%closure-ref self$659 17) (%closure-ref self$659 18) (%closure-ref self$659 19) (%closure-ref self$659 20) (%closure-ref self$659 21) (%closure-ref self$659 22) (%closure-ref self$659 23) (%closure-ref self$659 24) (%closure-ref self$659 25) (%closure-ref self$659 26) (%closure-ref self$659 27) (%closure-ref self$659 28) (%closure-ref self$659 29) (%closure-ref self$659 30) (%closure-ref self$659 31) (%closure-ref self$659 32) (%closure-ref self$659 33) (%closure-ref self$659 34) (%closure-ref self$659 35) (%closure-ref self$659 36) (%closure-ref self$659 37) (%closure-ref self$659 38)) (cell (%closure-ref self$659 9)))) (%closure-ref self$658 1) (%closure-ref self$658 2) (%closure-ref self$658 3) (%closure-ref self$658 4) (%closure-ref self$658 5) (%closure-ref self$658 6) (%closure-ref self$658 7) (%closure-ref self$658 8) (%closure-ref self$658 10) (%closure-ref self$658 11) (%closure-ref self$658 12) (%closure-ref self$658 13) (%closure-ref self$658 14) (%closure-ref self$658 15) (%closure-ref self$658 16) put-lemmas!$146 (%closure-ref self$658 17) (%closure-ref self$658 18) (%closure-ref self$658 19) (%closure-ref self$658 20) (%closure-ref self$658 21) (%closure-ref self$658 22) (%closure-ref self$658 23) (%closure-ref self$658 24) (%closure-ref self$658 25) (%closure-ref self$658 26) (%closure-ref self$658 27) (%closure-ref self$658 28) (%closure-ref self$658 29) (%closure-ref self$658 30) (%closure-ref self$658 31) (%closure-ref self$658 32) (%closure-ref self$658 33) (%closure-ref self$658 34) (%closure-ref self$658 35) (%closure-ref self$658 36) (%closure-ref self$658 37) (%closure-ref self$658 38)) (cell (%closure-ref self$658 9)))) (%closure-ref self$657 1) (%closure-ref self$657 2) (%closure-ref self$657 3) (%closure-ref self$657 4) (%closure-ref self$657 5) (%closure-ref self$657 6) (%closure-ref self$657 7) (%closure-ref self$657 8) (%closure-ref self$657 9) (%closure-ref self$657 10) (%closure-ref self$657 11) make-symbol-record$147 (%closure-ref self$657 12) (%closure-ref self$657 13) (%closure-ref self$657 14) (%closure-ref self$657 15) (%closure-ref self$657 17) (%closure-ref self$657 18) (%closure-ref self$657 19) (%closure-ref self$657 20) (%closure-ref self$657 21) (%closure-ref self$657 22) (%closure-ref self$657 23) (%closure-ref self$657 24) (%closure-ref self$657 25) (%closure-ref self$657 26) (%closure-ref self$657 27) (%closure-ref self$657 28) (%closure-ref self$657 29) (%closure-ref self$657 30) (%closure-ref self$657 31) (%closure-ref self$657 32) (%closure-ref self$657 33) (%closure-ref self$657 34) (%closure-ref self$657 35) (%closure-ref self$657 36) (%closure-ref self$657 37) (%closure-ref self$657 38)) (cell (%closure-ref self$657 16)))) *symbol-records-alist*$148 (%closure-ref self$656 1) (%closure-ref self$656 2) (%closure-ref self$656 3) (%closure-ref self$656 4) (%closure-ref self$656 5) (%closure-ref self$656 6) (%closure-ref self$656 7) (%closure-ref self$656 8) (%closure-ref self$656 9) (%closure-ref self$656 10) (%closure-ref self$656 12) (%closure-ref self$656 13) (%closure-ref self$656 14) (%closure-ref self$656 15) (%closure-ref self$656 16) (%closure-ref self$656 17) (%closure-ref self$656 18) (%closure-ref self$656 19) (%closure-ref self$656 20) (%closure-ref self$656 21) (%closure-ref self$656 22) (%closure-ref self$656 23) (%closure-ref self$656 24) (%closure-ref self$656 25) (%closure-ref self$656 26) (%closure-ref self$656 27) (%closure-ref self$656 28) (%closure-ref self$656 29) (%closure-ref self$656 30) (%closure-ref self$656 31) (%closure-ref self$656 32) (%closure-ref self$656 33) (%closure-ref self$656 34) (%closure-ref self$656 35) (%closure-ref self$656 36) (%closure-ref self$656 37) (%closure-ref self$656 38)) (cell (%closure-ref self$656 11)))) (%closure-ref self$655 2) (%closure-ref self$655 3) (%closure-ref self$655 4) (%closure-ref self$655 5) (%closure-ref self$655 6) (%closure-ref self$655 7) (%closure-ref self$655 8) (%closure-ref self$655 9) (%closure-ref self$655 10) (%closure-ref self$655 11) (%closure-ref self$655 12) (%closure-ref self$655 13) (%closure-ref self$655 14) (%closure-ref self$655 15) (%closure-ref self$655 16) (%closure-ref self$655 17) (%closure-ref self$655 18) (%closure-ref self$655 19) (%closure-ref self$655 20) (%closure-ref self$655 21) (%closure-ref self$655 22) symbol->symbol-record$149 (%closure-ref self$655 23) (%closure-ref self$655 24) (%closure-ref self$655 25) (%closure-ref self$655 26) (%closure-ref self$655 27) (%closure-ref self$655 28) (%closure-ref self$655 29) (%closure-ref self$655 30) (%closure-ref self$655 31) (%closure-ref self$655 32) (%closure-ref self$655 33) (%closure-ref self$655 34) (%closure-ref self$655 35) (%closure-ref self$655 36) (%closure-ref self$655 37) (%closure-ref self$655 38)) (cell (%closure-ref self$655 1)))) (%closure-ref self$654 1) (%closure-ref self$654 2) (%closure-ref self$654 3) (%closure-ref self$654 4) (%closure-ref self$654 5) (%closure-ref self$654 6) (%closure-ref self$654 7) get$150 (%closure-ref self$654 8) (%closure-ref self$654 9) (%closure-ref self$654 10) (%closure-ref self$654 11) (%closure-ref self$654 12) (%closure-ref self$654 13) (%closure-ref self$654 14) (%closure-ref self$654 15) (%closure-ref self$654 16) (%closure-ref self$654 17) (%closure-ref self$654 18) (%closure-ref self$654 19) (%closure-ref self$654 20) (%closure-ref self$654 21) (%closure-ref self$654 23) (%closure-ref self$654 24) (%closure-ref self$654 25) (%closure-ref self$654 26) (%closure-ref self$654 27) (%closure-ref self$654 28) (%closure-ref self$654 29) (%closure-ref self$654 30) (%closure-ref self$654 31) (%closure-ref self$654 32) (%closure-ref self$654 33) (%closure-ref self$654 34) (%closure-ref self$654 35) (%closure-ref self$654 36) (%closure-ref self$654 37) (%closure-ref self$654 38)) (cell (%closure-ref self$654 22)))) (%closure-ref self$653 1) (%closure-ref self$653 2) (%closure-ref self$653 3) (%closure-ref self$653 4) (%closure-ref self$653 5) (%closure-ref self$653 6) (%closure-ref self$653 7) (%closure-ref self$653 9) (%closure-ref self$653 10) (%closure-ref self$653 11) (%closure-ref self$653 12) (%closure-ref self$653 13) (%closure-ref self$653 14) (%closure-ref self$653 15) put$151 (%closure-ref self$653 16) (%closure-ref self$653 17) (%closure-ref self$653 18) (%closure-ref self$653 19) (%closure-ref self$653 20) (%closure-ref self$653 21) (%closure-ref self$653 22) (%closure-ref self$653 23) (%closure-ref self$653 24) (%closure-ref self$653 25) (%closure-ref self$653 26) (%closure-ref self$653 27) (%closure-ref self$653 28) (%closure-ref self$653 29) (%closure-ref self$653 30) (%closure-ref self$653 31) (%closure-ref self$653 32) (%closure-ref self$653 33) (%closure-ref self$653 34) (%closure-ref self$653 35) (%closure-ref self$653 36) (%closure-ref self$653 37) (%closure-ref self$653 38)) (cell (%closure-ref self$653 8)))) (%closure-ref self$652 1) (%closure-ref self$652 2) (%closure-ref self$652 3) (%closure-ref self$652 4) (%closure-ref self$652 5) (%closure-ref self$652 6) (%closure-ref self$652 7) (%closure-ref self$652 8) (%closure-ref self$652 9) (%closure-ref self$652 10) (%closure-ref self$652 11) (%closure-ref self$652 12) (%closure-ref self$652 13) (%closure-ref self$652 14) (%closure-ref self$652 15) (%closure-ref self$652 17) (%closure-ref self$652 18) (%closure-ref self$652 19) (%closure-ref self$652 20) (%closure-ref self$652 21) (%closure-ref self$652 22) (%closure-ref self$652 23) (%closure-ref self$652 24) (%closure-ref self$652 25) (%closure-ref self$652 26) (%closure-ref self$652 27) (%closure-ref self$652 28) (%closure-ref self$652 29) (%closure-ref self$652 30) (%closure-ref self$652 31) (%closure-ref self$652 32) (%closure-ref self$652 33) (%closure-ref self$652 34) (%closure-ref self$652 35) (%closure-ref self$652 36) (%closure-ref self$652 37) (%closure-ref self$652 38) untranslate-term$152) (cell (%closure-ref self$652 16)))) (%closure-ref self$651 1) (%closure-ref self$651 2) (%closure-ref self$651 3) (%closure-ref self$651 4) (%closure-ref self$651 5) (%closure-ref self$651 6) (%closure-ref self$651 7) (%closure-ref self$651 8) (%closure-ref self$651 9) (%closure-ref self$651 10) (%closure-ref self$651 11) (%closure-ref self$651 12) (%closure-ref self$651 13) (%closure-ref self$651 14) (%closure-ref self$651 15) (%closure-ref self$651 16) (%closure-ref self$651 17) (%closure-ref self$651 18) (%closure-ref self$651 19) (%closure-ref self$651 20) (%closure-ref self$651 21) (%closure-ref self$651 22) (%closure-ref self$651 23) (%closure-ref self$651 24) (%closure-ref self$651 25) (%closure-ref self$651 26) (%closure-ref self$651 27) (%closure-ref self$651 28) (%closure-ref self$651 29) (%closure-ref self$651 30) (%closure-ref self$651 31) (%closure-ref self$651 32) (%closure-ref self$651 33) translate-args$153 (%closure-ref self$651 34) (%closure-ref self$651 35) (%closure-ref self$651 36) (%closure-ref self$651 37)) (cell (%closure-ref self$651 38)))) (%closure-ref self$650 1) (%closure-ref self$650 2) (%closure-ref self$650 3) (%closure-ref self$650 4) (%closure-ref self$650 5) (%closure-ref self$650 6) (%closure-ref self$650 7) (%closure-ref self$650 8) (%closure-ref self$650 9) (%closure-ref self$650 10) (%closure-ref self$650 11) (%closure-ref self$650 12) (%closure-ref self$650 13) (%closure-ref self$650 14) (%closure-ref self$650 15) (%closure-ref self$650 16) (%closure-ref self$650 17) (%closure-ref self$650 18) (%closure-ref self$650 19) (%closure-ref self$650 20) (%closure-ref self$650 21) (%closure-ref self$650 22) (%closure-ref self$650 23) (%closure-ref self$650 24) (%closure-ref self$650 25) (%closure-ref self$650 26) (%closure-ref self$650 27) (%closure-ref self$650 28) (%closure-ref self$650 29) (%closure-ref self$650 30) (%closure-ref self$650 31) (%closure-ref self$650 32) (%closure-ref self$650 33) translate-term$154 (%closure-ref self$650 35) (%closure-ref self$650 36) (%closure-ref self$650 37) (%closure-ref self$650 38)) (cell (%closure-ref self$650 34)))) (%closure-ref self$649 1) add-lemma$155 (%closure-ref self$649 2) (%closure-ref self$649 3) (%closure-ref self$649 4) (%closure-ref self$649 5) (%closure-ref self$649 6) (%closure-ref self$649 7) (%closure-ref self$649 8) (%closure-ref self$649 9) (%closure-ref self$649 10) (%closure-ref self$649 11) (%closure-ref self$649 12) (%closure-ref self$649 13) (%closure-ref self$649 14) (%closure-ref self$649 15) (%closure-ref self$649 16) (%closure-ref self$649 17) (%closure-ref self$649 18) (%closure-ref self$649 19) (%closure-ref self$649 20) (%closure-ref self$649 21) (%closure-ref self$649 22) (%closure-ref self$649 23) (%closure-ref self$649 24) (%closure-ref self$649 25) (%closure-ref self$649 26) (%closure-ref self$649 27) (%closure-ref self$649 28) (%closure-ref self$649 29) (%closure-ref self$649 30) (%closure-ref self$649 31) (%closure-ref self$649 32) (%closure-ref self$649 33) (%closure-ref self$649 35) (%closure-ref self$649 36) (%closure-ref self$649 37) (%closure-ref self$649 38)) (cell (%closure-ref self$649 34)))) (%closure-ref self$648 1) add-lemma-lst$156 (%closure-ref self$648 3) (%closure-ref self$648 4) (%closure-ref self$648 5) (%closure-ref self$648 6) (%closure-ref self$648 7) (%closure-ref self$648 8) (%closure-ref self$648 9) (%closure-ref self$648 10) (%closure-ref self$648 11) (%closure-ref self$648 12) (%closure-ref self$648 13) (%closure-ref self$648 14) (%closure-ref self$648 15) (%closure-ref self$648 16) (%closure-ref self$648 17) (%closure-ref self$648 18) (%closure-ref self$648 19) (%closure-ref self$648 20) (%closure-ref self$648 21) (%closure-ref self$648 22) (%closure-ref self$648 23) (%closure-ref self$648 24) (%closure-ref self$648 25) (%closure-ref self$648 26) (%closure-ref self$648 27) (%closure-ref self$648 28) (%closure-ref self$648 29) (%closure-ref self$648 30) (%closure-ref self$648 31) (%closure-ref self$648 32) (%closure-ref self$648 33) (%closure-ref self$648 34) (%closure-ref self$648 35) (%closure-ref self$648 36) (%closure-ref self$648 37) (%closure-ref self$648 38)) (cell (%closure-ref self$648 2)))) (%closure-ref self$647 1) (%closure-ref self$647 2) (%closure-ref self$647 4) (%closure-ref self$647 5) (%closure-ref self$647 6) (%closure-ref self$647 7) (%closure-ref self$647 8) (%closure-ref self$647 9) (%closure-ref self$647 10) (%closure-ref self$647 11) (%closure-ref self$647 12) (%closure-ref self$647 13) (%closure-ref self$647 14) (%closure-ref self$647 15) (%closure-ref self$647 16) (%closure-ref self$647 17) (%closure-ref self$647 18) (%closure-ref self$647 19) (%closure-ref self$647 20) (%closure-ref self$647 21) setup$157 (%closure-ref self$647 22) (%closure-ref self$647 23) (%closure-ref self$647 24) (%closure-ref self$647 25) (%closure-ref self$647 26) (%closure-ref self$647 27) (%closure-ref self$647 28) (%closure-ref self$647 29) (%closure-ref self$647 30) (%closure-ref self$647 31) (%closure-ref self$647 32) (%closure-ref self$647 33) (%closure-ref self$647 34) (%closure-ref self$647 35) (%closure-ref self$647 36) (%closure-ref self$647 37) (%closure-ref self$647 38)) (cell (%closure-ref self$647 3)))) *symbol-records-alist*$148 add-lemma$155 add-lemma-lst$156 apply-subst$140 apply-subst-lst$139 false-term$125 falsep$127 get$150 get-lemmas$145 get-name$144 if-constructor$136 make-symbol-record$147 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 put$151 put-lemmas!$146 rewrite$134 rewrite-args$133 rewrite-count$135 rewrite-with-lemmas$132 symbol->symbol-record$149 symbol-record-equal?$143 tautologyp$137 tautp$138 term-args-equal?$120 term-equal?$121 term-member?$119 test$142 trans-of-implies$123 trans-of-implies1$122 translate-alist$141 translate-args$153 translate-term$154 true-term$124 truep$126 unify-subst$131 untranslate-term$152) (cell setup$157))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- C code:" */ +#define closcall0(td,clo) ((clo)->fn)(td,0,clo) +#define return_closcall0(td, clo) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + GC(td,clo,buf,0); return; \ + } else {closcall0(td,(closure) (clo)); return;}} + +#define return_direct0(td, _fn) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 0); return; \ + } else { (_fn)(td,0,(closure)_fn); }} + +#define closcall1(td,clo,a1) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,0, (closure)(a1), clo); } else { ((clo)->fn)(td,1,clo,a1);} +#define return_closcall1(td, clo,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1;\ + GC(td,clo,buf,1); return; \ + } else {closcall1(td,(closure) (clo),a1); return;}} + +#define return_direct1(td, _fn,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 1); return; \ + } else { (_fn)(td,1,(closure)_fn,a1); }} + +#define closcall2(td,clo,a1,a2) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,1, (closure)(a1), clo,a2); } else { ((clo)->fn)(td,2,clo,a1,a2);} +#define return_closcall2(td, clo,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2;\ + GC(td,clo,buf,2); return; \ + } else {closcall2(td,(closure) (clo),a1,a2); return;}} + +#define return_direct2(td, _fn,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 2); return; \ + } else { (_fn)(td,2,(closure)_fn,a1,a2); }} + +#define closcall3(td,clo,a1,a2,a3) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,2, (closure)(a1), clo,a2,a3); } else { ((clo)->fn)(td,3,clo,a1,a2,a3);} +#define return_closcall3(td, clo,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ + GC(td,clo,buf,3); return; \ + } else {closcall3(td,(closure) (clo),a1,a2,a3); return;}} + +#define return_direct3(td, _fn,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 3); return; \ + } else { (_fn)(td,3,(closure)_fn,a1,a2,a3); }} + +#define closcall4(td,clo,a1,a2,a3,a4) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,3, (closure)(a1), clo,a2,a3,a4); } else { ((clo)->fn)(td,4,clo,a1,a2,a3,a4);} +#define return_closcall4(td, clo,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ + GC(td,clo,buf,4); return; \ + } else {closcall4(td,(closure) (clo),a1,a2,a3,a4); return;}} + +#define return_direct4(td, _fn,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 4); return; \ + } else { (_fn)(td,4,(closure)_fn,a1,a2,a3,a4); }} + +#define closcall5(td,clo,a1,a2,a3,a4,a5) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,4, (closure)(a1), clo,a2,a3,a4,a5); } else { ((clo)->fn)(td,5,clo,a1,a2,a3,a4,a5);} +#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ + GC(td,clo,buf,5); return; \ + } else {closcall5(td,(closure) (clo),a1,a2,a3,a4,a5); return;}} + +#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 5); return; \ + } else { (_fn)(td,5,(closure)_fn,a1,a2,a3,a4,a5); }} + +#define closcall39(td,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,38, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); } else { ((clo)->fn)(td,39,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39);} +#define return_closcall39(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[39]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;\ + GC(td,clo,buf,39); return; \ + } else {closcall39(td,(closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); return;}} + +#define return_direct39(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[39]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 39); return; \ + } else { (_fn)(td,39,(closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); }} + +#include "cyclone/types.h" +object __glo_run_91r7rs_91benchmark = nil; +object __glo_hide = nil; +object __glo_test_91boyer = nil; +object __glo_setup_91boyer = nil; +object __glo_term = nil; +object __glo_alist = nil; +object __glo_main = nil; +extern object __glo_cons_91source_scheme_base; +extern object __glo_syntax_91rules_scheme_base; +extern object __glo_letrec_85_scheme_base; +extern object __glo_guard_scheme_base; +extern object __glo_guard_91aux_scheme_base; +extern object __glo_receive_scheme_base; +extern object __glo_abs_scheme_base; +extern object __glo_max_scheme_base; +extern object __glo_min_scheme_base; +extern object __glo_modulo_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_even_127_scheme_base; +extern object __glo_exact_91integer_127_scheme_base; +extern object __glo_exact_127_scheme_base; +extern object __glo_inexact_127_scheme_base; +extern object __glo_odd_127_scheme_base; +extern object __glo_complex_127_scheme_base; +extern object __glo_rational_127_scheme_base; +extern object __glo_gcd_scheme_base; +extern object __glo_lcm_scheme_base; +extern object __glo_quotient_scheme_base; +extern object __glo_remainder_scheme_base; +extern object __glo_truncate_91quotient_scheme_base; +extern object __glo_truncate_91remainder_scheme_base; +extern object __glo_truncate_95_scheme_base; +extern object __glo_floor_91quotient_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_floor_95_scheme_base; +extern object __glo_square_scheme_base; +extern object __glo_expt_scheme_base; +extern object __glo_call_91with_91current_91continuation_scheme_base; +extern object __glo_call_95cc_scheme_base; +extern object __glo_call_91with_91values_scheme_base; +extern object __glo_dynamic_91wind_scheme_base; +extern object __glo_values_scheme_base; +extern object __glo_char_123_127_scheme_base; +extern object __glo_char_121_127_scheme_base; +extern object __glo_char_125_127_scheme_base; +extern object __glo_char_121_123_127_scheme_base; +extern object __glo_char_125_123_127_scheme_base; +extern object __glo_string_123_127_scheme_base; +extern object __glo_string_121_127_scheme_base; +extern object __glo_string_121_123_127_scheme_base; +extern object __glo_string_125_127_scheme_base; +extern object __glo_string_125_123_127_scheme_base; +extern object __glo_foldl_scheme_base; +extern object __glo_foldr_scheme_base; +extern object __glo_not_scheme_base; +extern object __glo_list_127_scheme_base; +extern object __glo_zero_127_scheme_base; +extern object __glo_positive_127_scheme_base; +extern object __glo_negative_127_scheme_base; +extern object __glo_append_scheme_base; +extern object __glo__list_scheme_base; +extern object __glo_make_91list_scheme_base; +extern object __glo_list_91copy_scheme_base; +extern object __glo_map_scheme_base; +extern object __glo_for_91each_scheme_base; +extern object __glo_list_91tail_scheme_base; +extern object __glo_list_91ref_scheme_base; +extern object __glo_list_91set_67_scheme_base; +extern object __glo_reverse_scheme_base; +extern object __glo_boolean_123_127_scheme_base; +extern object __glo_symbol_123_127_scheme_base; +extern object __glo_Cyc_91obj_123_127_scheme_base; +extern object __glo_vector_scheme_base; +extern object __glo_vector_91append_scheme_base; +extern object __glo_vector_91copy_scheme_base; +extern object __glo_vector_91copy_67_scheme_base; +extern object __glo_vector_91fill_67_scheme_base; +extern object __glo_vector_91_125list_scheme_base; +extern object __glo_vector_91_125string_scheme_base; +extern object __glo_vector_91map_scheme_base; +extern object __glo_vector_91for_91each_scheme_base; +extern object __glo_make_91string_scheme_base; +extern object __glo_string_scheme_base; +extern object __glo_string_91copy_scheme_base; +extern object __glo_string_91copy_67_scheme_base; +extern object __glo_string_91fill_67_scheme_base; +extern object __glo_string_91_125list_scheme_base; +extern object __glo_string_91_125vector_scheme_base; +extern object __glo_string_91map_scheme_base; +extern object __glo_string_91for_91each_scheme_base; +extern object __glo_make_91parameter_scheme_base; +extern object __glo_current_91output_91port_scheme_base; +extern object __glo_current_91input_91port_scheme_base; +extern object __glo_current_91error_91port_scheme_base; +extern object __glo_call_91with_91port_scheme_base; +extern object __glo_error_scheme_base; +extern object __glo_raise_scheme_base; +extern object __glo_raise_91continuable_scheme_base; +extern object __glo_with_91exception_91handler_scheme_base; +extern object __glo_Cyc_91add_91exception_91handler_scheme_base; +extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; +extern object __glo_newline_scheme_base; +extern object __glo_write_91char_scheme_base; +extern object __glo_write_91string_scheme_base; +extern object __glo_flush_91output_91port_scheme_base; +extern object __glo_read_91line_scheme_base; +extern object __glo_read_91string_scheme_base; +extern object __glo_input_91port_127_scheme_base; +extern object __glo_output_91port_127_scheme_base; +extern object __glo_input_91port_91open_127_scheme_base; +extern object __glo_output_91port_91open_127_scheme_base; +extern object __glo_features_scheme_base; +extern object __glo_any_scheme_base; +extern object __glo_every_scheme_base; +extern object __glo_and_scheme_base; +extern object __glo_or_scheme_base; +extern object __glo_let_scheme_base; +extern object __glo_let_85_scheme_base; +extern object __glo_letrec_scheme_base; +extern object __glo_begin_scheme_base; +extern object __glo__case_scheme_base; +extern object __glo_cond_scheme_base; +extern object __glo_cond_91expand_scheme_base; +extern object __glo__do_scheme_base; +extern object __glo_when_scheme_base; +extern object __glo_unless_scheme_base; +extern object __glo_quasiquote_scheme_base; +extern object __glo_floor_scheme_base; +extern object __glo_ceiling_scheme_base; +extern object __glo_truncate_scheme_base; +extern object __glo_round_scheme_base; +extern object __glo_exact_scheme_base; +extern object __glo_inexact_scheme_base; +extern object __glo_eof_91object_scheme_base; +extern object __glo_syntax_91error_scheme_base; +extern object __glo_bytevector_91copy_scheme_base; +extern object __glo_utf8_91_125string_scheme_base; +extern object __glo_string_91_125utf8_scheme_base; +extern object __glo_denominator_scheme_base; +extern object __glo_numerator_scheme_base; +extern object __glo_caaaaar_scheme_cxr; +extern object __glo_read_scheme_read; +extern object __glo_read_91all_scheme_read; +extern object __glo_display_scheme_write; +extern object __glo_write_scheme_write; +extern object __glo_current_91second_scheme_time; +extern object __glo_current_91jiffy_scheme_time; +extern object __glo_jiffies_91per_91second_scheme_time; +#include "cyclone/runtime.h" +#include "cyclone/runtime-main.h" +defsymbol(u); +defsymbol(mem); +defsymbol(val); +defsymbol(set); +defsymbol(get); +defsymbol(cdr); +defsymbol(assignedp); +defsymbol(assignment); +defsymbol(car); +defsymbol(last); +defsymbol(sigma); +defsymbol(x7); +defsymbol(x6); +defsymbol(x5); +defsymbol(x4); +defsymbol(x3); +defsymbol(x2); +defsymbol(x1); +defsymbol(dsort); +defsymbol(sort2); +defsymbol(delete); +defsymbol(prime_91list); +defsymbol(times_91list); +defsymbol(greatest_91factor); +defsymbol(samefringe); +defsymbol(gopher); +defsymbol(listp); +defsymbol(nlistp); +defsymbol(value); +defsymbol(w); +defsymbol(gcd); +defsymbol(power_91rep); +defsymbol(big_91plus); +defsymbol(base); +defsymbol(big_91plus1); +defsymbol(power_91eval); +defsymbol(quotient); +defsymbol(sort_91lp); +defsymbol(count_91list); +defsymbol(k); +defsymbol(j); +defsymbol(exp); +defsymbol(nth); +defsymbol(intersect); +defsymbol(length); +defsymbol(member); +defsymbol(flatten); +defsymbol(mc_91flatten); +defsymbol(envrn); +defsymbol(pds); +defsymbol(exec); +defsymbol(times); +defsymbol(plus_91fringe); +defsymbol(append); +defsymbol(plus_91tree); +defsymbol(meaning); +defsymbol(difference); +defsymbol(z); +defsymbol(plus); +defsymbol(e); +defsymbol(d); +defsymbol(c); +defsymbol(b); +defsymbol(a); +defsymbol(numberp); +defsymbol(q); +defsymbol(p); +defsymbol(prime1); +defsymbol(add1); +defsymbol(prime); +defsymbol(falsify1); +defsymbol(falsify); +defsymbol(normalize); +defsymbol(tautologyp); +defsymbol(tautology_91checker); +defsymbol(assume_91false); +defsymbol(cons); +defsymbol(alist); +defsymbol(var); +defsymbol(assume_91true); +defsymbol(remainder); +defsymbol(divides); +defsymbol(reverse_91loop); +defsymbol(reverse_91); +defsymbol(fact_91loop); +defsymbol(i); +defsymbol(fact_91); +defsymbol(zero); +defsymbol(countps_91loop); +defsymbol(pred); +defsymbol(l); +defsymbol(countps_91); +defsymbol(_1911_91); +defsymbol(odd); +defsymbol(zerop); +defsymbol(even1); +defsymbol(iff); +defsymbol(boolean); +defsymbol(greatereqp); +defsymbol(not); +defsymbol(lesseqp); +defsymbol(lessp); +defsymbol(greaterp); +defsymbol(fix); +defsymbol(y); +defsymbol(x); +defsymbol(eqp); +defsymbol(nil); +defsymbol(optimize); +defsymbol(codegen); +defsymbol(reverse); +defsymbol(form); +defsymbol(compile); +defsymbol(lemmas); +defsymbol(equal); +defsymbol(or); +defsymbol(_85); +defsymbol(and); +defsymbol(implies); +defsymbol(_if); +defsymbol(f); +defsymbol(t); +static void __lambda_483(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73118, object add_91lemma_73117, object add_91lemma_91lst_73116, object apply_91subst_73115, object apply_91subst_91lst_73114, object false_91term_73113, object falsep_73112, object get_73111, object get_91lemmas_73110, object get_91name_73109, object if_91constructor_73108, object make_91symbol_91record_73107, object one_91way_91unify_73106, object one_91way_91unify1_73105, object one_91way_91unify1_91lst_73104, object put_73103, object put_91lemmas_67_73102, object rewrite_73101, object rewrite_91args_73100, object rewrite_91count_7399, object rewrite_91with_91lemmas_7398, object setup_7397, object symbol_91_125symbol_91record_7396, object symbol_91record_91equal_127_7395, object tautologyp_7394, object tautp_7393, object term_91args_91equal_127_7392, object term_91equal_127_7391, object term_91member_127_7390, object test_7389, object trans_91of_91implies_7388, object trans_91of_91implies1_7387, object translate_91alist_7386, object translate_91args_7385, object translate_91term_7384, object true_91term_7383, object truep_7382, object unify_91subst_7381, object untranslate_91term_7380) ; +static void __lambda_482(void *data, int argc, closure _) ; +static void __lambda_481(void *data, int argc, closure _,object r_73261) ; +static void __lambda_480(void *data, int argc, closure _,object r_73565) ; +static void __lambda_479(void *data, int argc, closure _,object r_73262) ; +static void __lambda_478(void *data, int argc, closure _,object r_73564) ; +static void __lambda_477(void *data, int argc, closure _,object r_73263) ; +static void __lambda_476(void *data, int argc, closure _) ; +static void __lambda_475(void *data, int argc, closure _,object setup_73157, object add_91lemma_91lst_73156, object add_91lemma_73155, object translate_91term_73154, object translate_91args_73153, object untranslate_91term_73152, object put_73151, object get_73150, object symbol_91_125symbol_91record_73149, object _85symbol_91records_91alist_85_73148, object make_91symbol_91record_73147, object put_91lemmas_67_73146, object get_91lemmas_73145, object get_91name_73144, object symbol_91record_91equal_127_73143, object test_73142, object translate_91alist_73141, object apply_91subst_73140, object apply_91subst_91lst_73139, object tautp_73138, object tautologyp_73137, object if_91constructor_73136, object rewrite_91count_73135, object rewrite_73134, object rewrite_91args_73133, object rewrite_91with_91lemmas_73132, object unify_91subst_73131, object one_91way_91unify_73130, object one_91way_91unify1_73129, object one_91way_91unify1_91lst_73128, object falsep_73127, object truep_73126, object false_91term_73125, object true_91term_73124, object trans_91of_91implies_73123, object trans_91of_91implies1_73122, object term_91equal_127_73121, object term_91args_91equal_127_73120, object term_91member_127_73119) ; +static void __lambda_474(void *data, int argc, object self_73647, object setup_73157) ; +static void __lambda_473(void *data, int argc, object self_73648, object add_91lemma_91lst_73156) ; +static void __lambda_472(void *data, int argc, object self_73649, object add_91lemma_73155) ; +static void __lambda_471(void *data, int argc, object self_73650, object translate_91term_73154) ; +static void __lambda_470(void *data, int argc, object self_73651, object translate_91args_73153) ; +static void __lambda_469(void *data, int argc, object self_73652, object untranslate_91term_73152) ; +static void __lambda_468(void *data, int argc, object self_73653, object put_73151) ; +static void __lambda_467(void *data, int argc, object self_73654, object get_73150) ; +static void __lambda_466(void *data, int argc, object self_73655, object symbol_91_125symbol_91record_73149) ; +static void __lambda_465(void *data, int argc, object self_73656, object _85symbol_91records_91alist_85_73148) ; +static void __lambda_464(void *data, int argc, object self_73657, object make_91symbol_91record_73147) ; +static void __lambda_463(void *data, int argc, object self_73658, object put_91lemmas_67_73146) ; +static void __lambda_462(void *data, int argc, object self_73659, object get_91lemmas_73145) ; +static void __lambda_461(void *data, int argc, object self_73660, object get_91name_73144) ; +static void __lambda_460(void *data, int argc, object self_73661, object symbol_91record_91equal_127_73143) ; +static void __lambda_459(void *data, int argc, object self_73662, object test_73142) ; +static void __lambda_458(void *data, int argc, object self_73663, object translate_91alist_73141) ; +static void __lambda_457(void *data, int argc, object self_73664, object apply_91subst_73140) ; +static void __lambda_456(void *data, int argc, object self_73665, object apply_91subst_91lst_73139) ; +static void __lambda_455(void *data, int argc, object self_73666, object tautp_73138) ; +static void __lambda_454(void *data, int argc, object self_73667, object tautologyp_73137) ; +static void __lambda_453(void *data, int argc, object self_73668, object if_91constructor_73136) ; +static void __lambda_452(void *data, int argc, object self_73669, object rewrite_91count_73135) ; +static void __lambda_451(void *data, int argc, object self_73670, object rewrite_73134) ; +static void __lambda_450(void *data, int argc, object self_73671, object rewrite_91args_73133) ; +static void __lambda_449(void *data, int argc, object self_73672, object rewrite_91with_91lemmas_73132) ; +static void __lambda_448(void *data, int argc, object self_73673, object unify_91subst_73131) ; +static void __lambda_447(void *data, int argc, object self_73674, object one_91way_91unify_73130) ; +static void __lambda_446(void *data, int argc, object self_73675, object one_91way_91unify1_73129) ; +static void __lambda_445(void *data, int argc, object self_73676, object one_91way_91unify1_91lst_73128) ; +static void __lambda_444(void *data, int argc, object self_73677, object falsep_73127) ; +static void __lambda_443(void *data, int argc, object self_73678, object truep_73126) ; +static void __lambda_442(void *data, int argc, object self_73679, object false_91term_73125) ; +static void __lambda_441(void *data, int argc, object self_73680, object true_91term_73124) ; +static void __lambda_440(void *data, int argc, object self_73681, object trans_91of_91implies_73123) ; +static void __lambda_439(void *data, int argc, object self_73682, object trans_91of_91implies1_73122) ; +static void __lambda_438(void *data, int argc, object self_73683, object term_91equal_127_73121) ; +static void __lambda_437(void *data, int argc, object self_73684, object term_91args_91equal_127_73120) ; +static void __lambda_436(void *data, int argc, object self_73685, object term_91member_127_73119) ; +static void __lambda_435(void *data, int argc, object self_73686, object k_73562) ; +static void __lambda_434(void *data, int argc, object self_73687, object r_73563) ; +static void __lambda_433(void *data, int argc, object self_73688, object r_73561) ; +static void __lambda_432(void *data, int argc, object self_73689, object r_73265) ; +static void __lambda_431(void *data, int argc, object self_73690, object k_73556, object lst_73225) ; +static void __lambda_430(void *data, int argc, object self_73691, object r_73557) ; +static void __lambda_429(void *data, int argc, object self_73692) ; +static void __lambda_428(void *data, int argc, object self_73693, object r_73560) ; +static void __lambda_427(void *data, int argc, object self_73694, object r_73558) ; +static void __lambda_426(void *data, int argc, object self_73695, object r_73559) ; +static void __lambda_425(void *data, int argc, object self_73696) ; +static void __lambda_424(void *data, int argc, object self_73697, object r_73555) ; +static void __lambda_423(void *data, int argc, object self_73698, object r_73266) ; +static void __lambda_422(void *data, int argc, object self_73699, object k_73538, object term_73224) ; +static void __lambda_421(void *data, int argc, object self_73700, object r_73539) ; +static void __lambda_420(void *data, int argc, object self_73701) ; +static void __lambda_419(void *data, int argc, object self_73702) ; +static void __lambda_418(void *data, int argc, object self_73703, object r_73548) ; +static void __lambda_417(void *data, int argc, object self_73704, object r_73540) ; +static void __lambda_416(void *data, int argc, object self_73705, object r_73541) ; +static void __lambda_415(void *data, int argc, object self_73706, object r_73543) ; +static void __lambda_414(void *data, int argc, object self_73707, object r_73547) ; +static void __lambda_413(void *data, int argc, object self_73708, object r_73545) ; +static void __lambda_412(void *data, int argc, object self_73709, object r_73546) ; +static void __lambda_411(void *data, int argc, object self_73710, object r_73544) ; +static void __lambda_410(void *data, int argc, object self_73711, object r_73542) ; +static void __lambda_409(void *data, int argc, object self_73712, object k_73549) ; +static void __lambda_408(void *data, int argc, object self_73713, object r_73550) ; +static void __lambda_407(void *data, int argc, object self_73714, object r_73553) ; +static void __lambda_406(void *data, int argc, object self_73715, object r_73554) ; +static void __lambda_405(void *data, int argc, object self_73716, object r_73551) ; +static void __lambda_404(void *data, int argc, object self_73717, object r_73552) ; +static void __lambda_403(void *data, int argc, object self_73718, object r_73537) ; +static void __lambda_402(void *data, int argc, object self_73719, object r_73267) ; +static void __lambda_401(void *data, int argc, object self_73720, object k_73531, object term_73223) ; +static void __lambda_400(void *data, int argc, object self_73721, object r_73532) ; +static void __lambda_399(void *data, int argc, object self_73722) ; +static void __lambda_398(void *data, int argc, object self_73723) ; +static void __lambda_397(void *data, int argc, object self_73724, object r_73536) ; +static void __lambda_396(void *data, int argc, object self_73725, object r_73533) ; +static void __lambda_395(void *data, int argc, object self_73726, object r_73535) ; +static void __lambda_394(void *data, int argc, object self_73727, object r_73534) ; +static void __lambda_393(void *data, int argc, object self_73728, object r_73530) ; +static void __lambda_392(void *data, int argc, object self_73729, object r_73268) ; +static void __lambda_391(void *data, int argc, object self_73730, object k_73524, object lst_73222) ; +static void __lambda_390(void *data, int argc, object self_73731, object r_73525) ; +static void __lambda_389(void *data, int argc, object self_73732) ; +static void __lambda_388(void *data, int argc, object self_73733, object r_73529) ; +static void __lambda_387(void *data, int argc, object self_73734, object r_73526) ; +static void __lambda_386(void *data, int argc, object self_73735, object r_73528) ; +static void __lambda_385(void *data, int argc, object self_73736, object r_73527) ; +static void __lambda_384(void *data, int argc, object self_73737) ; +static void __lambda_383(void *data, int argc, object self_73738, object r_73523) ; +static void __lambda_382(void *data, int argc, object self_73739, object r_73269) ; +static void __lambda_381(void *data, int argc, object self_73740, object k_73517, object term_73221) ; +static void __lambda_380(void *data, int argc, object self_73741, object r_73518) ; +static void __lambda_379(void *data, int argc, object self_73742) ; +static void __lambda_378(void *data, int argc, object self_73743) ; +static void __lambda_377(void *data, int argc, object self_73744, object r_73522) ; +static void __lambda_376(void *data, int argc, object self_73745, object r_73519) ; +static void __lambda_375(void *data, int argc, object self_73746, object r_73521) ; +static void __lambda_374(void *data, int argc, object self_73747, object r_73520) ; +static void __lambda_373(void *data, int argc, object self_73748, object r_73516) ; +static void __lambda_372(void *data, int argc, object self_73749, object r_73270) ; +static void __lambda_371(void *data, int argc, object self_73750, object k_73514, object sym_73220, object property_73219, object value_73218) ; +static void __lambda_370(void *data, int argc, object self_73751, object r_73515) ; +static void __lambda_369(void *data, int argc, object self_73752, object r_73513) ; +static void __lambda_368(void *data, int argc, object self_73753, object r_73271) ; +static void __lambda_367(void *data, int argc, object self_73754, object k_73511, object sym_73217, object property_73216) ; +static void __lambda_366(void *data, int argc, object self_73755, object r_73512) ; +static void __lambda_365(void *data, int argc, object self_73756, object r_73510) ; +static void __lambda_364(void *data, int argc, object self_73757, object r_73272) ; +static void __lambda_363(void *data, int argc, object self_73758, object k_73504, object sym_73213) ; +static void __lambda_362(void *data, int argc, object self_73759, object x_73214) ; +static void __lambda_361(void *data, int argc, object self_73760, object r_73215) ; +static void __lambda_360(void *data, int argc, object self_73761, object r_73509) ; +static void __lambda_359(void *data, int argc, object self_73762, object r_73508) ; +static void __lambda_358(void *data, int argc, object self_73763, object r_73507) ; +static void __lambda_357(void *data, int argc, object self_73764, object r_73503) ; +static void __lambda_356(void *data, int argc, object self_73765, object r_73273) ; +static void __lambda_355(void *data, int argc, object self_73766, object r_73502) ; +static void __lambda_354(void *data, int argc, object self_73767, object r_73274) ; +static void __lambda_353(void *data, int argc, object self_73768, object k_73500, object sym_73212) ; +static void __lambda_352(void *data, int argc, object self_73769, object r_73501) ; +static void __lambda_351(void *data, int argc, object self_73770, object r_73499) ; +static void __lambda_350(void *data, int argc, object self_73771, object r_73275) ; +static void __lambda_349(void *data, int argc, object self_73772, object k_73498, object symbol_91record_73211, object lemmas_73210) ; +static void __lambda_348(void *data, int argc, object self_73773, object r_73497) ; +static void __lambda_347(void *data, int argc, object self_73774, object r_73276) ; +static void __lambda_346(void *data, int argc, object self_73775, object k_73496, object symbol_91record_73209) ; +static void __lambda_345(void *data, int argc, object self_73776, object r_73495) ; +static void __lambda_344(void *data, int argc, object self_73777, object r_73277) ; +static void __lambda_343(void *data, int argc, object self_73778, object k_73494, object symbol_91record_73208) ; +static void __lambda_342(void *data, int argc, object self_73779, object r_73493) ; +static void __lambda_341(void *data, int argc, object self_73780, object r_73278) ; +static void __lambda_340(void *data, int argc, object self_73781, object k_73492, object r1_73207, object r2_73206) ; +static void __lambda_339(void *data, int argc, object self_73782, object r_73491) ; +static void __lambda_338(void *data, int argc, object self_73783, object r_73279) ; +static void __lambda_337(void *data, int argc, object self_73784, object k_73478, object alist_73199, object term_73198, object n_73197) ; +static void __lambda_336(void *data, int argc, object self_73785, object r_73480) ; +static void __lambda_335(void *data, int argc, object self_73786, object term_73201, object n_73200) ; +static void __lambda_334(void *data, int argc, object self_73787, object lp_73202) ; +static void __lambda_333(void *data, int argc, object self_73788, object lp_73202) ; +static void __lambda_332(void *data, int argc, object self_73789, object k_73485, object term_73204, object n_73203) ; +static void __lambda_331(void *data, int argc, object self_73790, object r_73486) ; +static void __lambda_330(void *data, int argc, object self_73791, object r_73489) ; +static void __lambda_329(void *data, int argc, object self_73792, object r_73490) ; +static void __lambda_328(void *data, int argc, object self_73793, object r_73487) ; +static void __lambda_327(void *data, int argc, object self_73794, object r_73488) ; +static void __lambda_326(void *data, int argc, object self_73795, object r_73484) ; +static void __lambda_325(void *data, int argc, object self_73796, object r_73483) ; +static void __lambda_324(void *data, int argc, object self_73797, object r_73482) ; +static void __lambda_323(void *data, int argc, object self_73798, object r_73481) ; +static void __lambda_322(void *data, int argc, object self_73799, object term_73205) ; +static void __lambda_321(void *data, int argc, object self_73800, object r_73477) ; +static void __lambda_320(void *data, int argc, object self_73801, object r_73280) ; +static void __lambda_319(void *data, int argc, object self_73802, object k_73469, object alist_73196) ; +static void __lambda_318(void *data, int argc, object self_73803, object r_73470) ; +static void __lambda_317(void *data, int argc, object self_73804) ; +static void __lambda_316(void *data, int argc, object self_73805, object r_73474) ; +static void __lambda_315(void *data, int argc, object self_73806, object r_73476) ; +static void __lambda_314(void *data, int argc, object self_73807, object r_73475) ; +static void __lambda_313(void *data, int argc, object self_73808, object r_73471) ; +static void __lambda_312(void *data, int argc, object self_73809, object r_73473) ; +static void __lambda_311(void *data, int argc, object self_73810, object r_73472) ; +static void __lambda_310(void *data, int argc, object self_73811) ; +static void __lambda_309(void *data, int argc, object self_73812, object r_73468) ; +static void __lambda_308(void *data, int argc, object self_73813, object r_73281) ; +static void __lambda_307(void *data, int argc, object self_73814, object k_73462, object alist_73194, object term_73193) ; +static void __lambda_306(void *data, int argc, object self_73815, object r_73463) ; +static void __lambda_305(void *data, int argc, object self_73816) ; +static void __lambda_304(void *data, int argc, object self_73817, object temp_91temp_73195) ; +static void __lambda_303(void *data, int argc, object self_73818) ; +static void __lambda_302(void *data, int argc, object self_73819, object r_73464) ; +static void __lambda_301(void *data, int argc, object self_73820, object r_73466) ; +static void __lambda_300(void *data, int argc, object self_73821, object r_73465) ; +static void __lambda_299(void *data, int argc, object self_73822, object r_73461) ; +static void __lambda_298(void *data, int argc, object self_73823, object r_73282) ; +static void __lambda_297(void *data, int argc, object self_73824, object k_73455, object alist_73192, object lst_73191) ; +static void __lambda_296(void *data, int argc, object self_73825, object r_73456) ; +static void __lambda_295(void *data, int argc, object self_73826) ; +static void __lambda_294(void *data, int argc, object self_73827, object r_73460) ; +static void __lambda_293(void *data, int argc, object self_73828, object r_73457) ; +static void __lambda_292(void *data, int argc, object self_73829, object r_73459) ; +static void __lambda_291(void *data, int argc, object self_73830, object r_73458) ; +static void __lambda_290(void *data, int argc, object self_73831) ; +static void __lambda_289(void *data, int argc, object self_73832, object r_73454) ; +static void __lambda_288(void *data, int argc, object self_73833, object r_73283) ; +static void __lambda_287(void *data, int argc, object self_73834, object k_73450, object x_73190) ; +static void __lambda_286(void *data, int argc, object self_73835, object r_73451) ; +static void __lambda_285(void *data, int argc, object self_73836, object r_73452) ; +static void __lambda_284(void *data, int argc, object self_73837, object r_73453) ; +static void __lambda_283(void *data, int argc, object self_73838, object r_73449) ; +static void __lambda_282(void *data, int argc, object self_73839, object r_73284) ; +static void __lambda_281(void *data, int argc, object self_73840, object k_73430, object x_73189, object true_91lst_73188, object false_91lst_73187) ; +static void __lambda_280(void *data, int argc, object self_73841, object r_73431) ; +static void __lambda_279(void *data, int argc, object self_73842, object r_73432) ; +static void __lambda_278(void *data, int argc, object self_73843, object r_73433) ; +static void __lambda_277(void *data, int argc, object self_73844) ; +static void __lambda_276(void *data, int argc, object self_73845, object r_73448) ; +static void __lambda_275(void *data, int argc, object self_73846, object r_73434) ; +static void __lambda_274(void *data, int argc, object self_73847) ; +static void __lambda_273(void *data, int argc, object self_73848) ; +static void __lambda_272(void *data, int argc, object self_73849, object r_73447) ; +static void __lambda_271(void *data, int argc, object self_73850, object r_73435) ; +static void __lambda_270(void *data, int argc, object self_73851, object r_73446) ; +static void __lambda_269(void *data, int argc, object self_73852, object r_73437) ; +static void __lambda_268(void *data, int argc, object self_73853) ; +static void __lambda_267(void *data, int argc, object self_73854, object r_73443) ; +static void __lambda_266(void *data, int argc, object self_73855, object r_73445) ; +static void __lambda_265(void *data, int argc, object self_73856, object r_73444) ; +static void __lambda_264(void *data, int argc, object self_73857, object r_73439) ; +static void __lambda_263(void *data, int argc, object self_73858, object r_73440) ; +static void __lambda_262(void *data, int argc, object self_73859, object r_73442) ; +static void __lambda_261(void *data, int argc, object self_73860, object r_73441) ; +static void __lambda_260(void *data, int argc, object self_73861) ; +static void __lambda_259(void *data, int argc, object self_73862, object r_73438) ; +static void __lambda_258(void *data, int argc, object self_73863) ; +static void __lambda_257(void *data, int argc, object self_73864, object r_73436) ; +static void __lambda_256(void *data, int argc, object self_73865) ; +static void __lambda_255(void *data, int argc, object self_73866) ; +static void __lambda_254(void *data, int argc, object self_73867, object r_73429) ; +static void __lambda_253(void *data, int argc, object self_73868, object r_73285) ; +static void __lambda_252(void *data, int argc, object self_73869, object r_73428) ; +static void __lambda_251(void *data, int argc, object self_73870, object r_73286) ; +static void __lambda_250(void *data, int argc, object self_73871, object r_73287) ; +static void __lambda_249(void *data, int argc, object self_73872, object k_73418, object term_73186) ; +static void __lambda_248(void *data, int argc, object self_73873, object r_73427) ; +static void __lambda_247(void *data, int argc, object self_73874, object r_73419) ; +static void __lambda_246(void *data, int argc, object self_73875, object r_73420) ; +static void __lambda_245(void *data, int argc, object self_73876) ; +static void __lambda_244(void *data, int argc, object self_73877) ; +static void __lambda_243(void *data, int argc, object self_73878, object r_73424) ; +static void __lambda_242(void *data, int argc, object self_73879, object r_73426) ; +static void __lambda_241(void *data, int argc, object self_73880, object r_73425) ; +static void __lambda_240(void *data, int argc, object self_73881, object r_73421) ; +static void __lambda_239(void *data, int argc, object self_73882, object r_73423) ; +static void __lambda_238(void *data, int argc, object self_73883, object r_73422) ; +static void __lambda_237(void *data, int argc, object self_73884, object r_73417) ; +static void __lambda_236(void *data, int argc, object self_73885, object r_73288) ; +static void __lambda_235(void *data, int argc, object self_73886, object k_73411, object lst_73185) ; +static void __lambda_234(void *data, int argc, object self_73887, object r_73412) ; +static void __lambda_233(void *data, int argc, object self_73888) ; +static void __lambda_232(void *data, int argc, object self_73889, object r_73416) ; +static void __lambda_231(void *data, int argc, object self_73890, object r_73413) ; +static void __lambda_230(void *data, int argc, object self_73891, object r_73415) ; +static void __lambda_229(void *data, int argc, object self_73892, object r_73414) ; +static void __lambda_228(void *data, int argc, object self_73893) ; +static void __lambda_227(void *data, int argc, object self_73894, object r_73410) ; +static void __lambda_226(void *data, int argc, object self_73895, object r_73289) ; +static void __lambda_225(void *data, int argc, object self_73896, object k_73401, object term_73184, object lst_73183) ; +static void __lambda_224(void *data, int argc, object self_73897, object r_73402) ; +static void __lambda_223(void *data, int argc, object self_73898, object r_73409) ; +static void __lambda_222(void *data, int argc, object self_73899, object r_73408) ; +static void __lambda_221(void *data, int argc, object self_73900, object r_73403) ; +static void __lambda_220(void *data, int argc, object self_73901) ; +static void __lambda_219(void *data, int argc, object self_73902, object r_73407) ; +static void __lambda_218(void *data, int argc, object self_73903) ; +static void __lambda_217(void *data, int argc, object self_73904, object r_73406) ; +static void __lambda_216(void *data, int argc, object self_73905, object r_73405) ; +static void __lambda_215(void *data, int argc, object self_73906, object r_73404) ; +static void __lambda_214(void *data, int argc, object self_73907) ; +static void __lambda_213(void *data, int argc, object self_73908, object r_73400) ; +static void __lambda_212(void *data, int argc, object self_73909, object r_73290) ; +static void __lambda_211(void *data, int argc, object self_73910, object r_73399) ; +static void __lambda_210(void *data, int argc, object self_73911, object r_73291) ; +static void __lambda_209(void *data, int argc, object self_73912, object k_73396, object term1_73182, object term2_73181) ; +static void __lambda_208(void *data, int argc, object self_73913, object r_73398) ; +static void __lambda_207(void *data, int argc, object self_73914, object r_73397) ; +static void __lambda_206(void *data, int argc, object self_73915, object r_73395) ; +static void __lambda_205(void *data, int argc, object self_73916, object r_73292) ; +static void __lambda_204(void *data, int argc, object self_73917, object k_73381, object term1_73179, object term2_73178) ; +static void __lambda_203(void *data, int argc, object self_73918, object r_73382) ; +static void __lambda_202(void *data, int argc, object self_73919) ; +static void __lambda_201(void *data, int argc, object self_73920, object temp_91temp_73180) ; +static void __lambda_200(void *data, int argc, object self_73921, object r_73391) ; +static void __lambda_199(void *data, int argc, object self_73922) ; +static void __lambda_198(void *data, int argc, object self_73923, object r_73394) ; +static void __lambda_197(void *data, int argc, object self_73924, object r_73393) ; +static void __lambda_196(void *data, int argc, object self_73925, object r_73392) ; +static void __lambda_195(void *data, int argc, object self_73926) ; +static void __lambda_194(void *data, int argc, object self_73927) ; +static void __lambda_193(void *data, int argc, object self_73928, object r_73390) ; +static void __lambda_192(void *data, int argc, object self_73929, object r_73383) ; +static void __lambda_191(void *data, int argc, object self_73930) ; +static void __lambda_190(void *data, int argc, object self_73931, object r_73387) ; +static void __lambda_189(void *data, int argc, object self_73932, object r_73388) ; +static void __lambda_188(void *data, int argc, object self_73933, object r_73384) ; +static void __lambda_187(void *data, int argc, object self_73934) ; +static void __lambda_186(void *data, int argc, object self_73935) ; +static void __lambda_185(void *data, int argc, object self_73936, object r_73385) ; +static void __lambda_184(void *data, int argc, object self_73937, object r_73386) ; +static void __lambda_183(void *data, int argc, object self_73938, object r_73380) ; +static void __lambda_182(void *data, int argc, object self_73939, object r_73293) ; +static void __lambda_181(void *data, int argc, object self_73940, object k_73372, object lst1_73177, object lst2_73176) ; +static void __lambda_180(void *data, int argc, object self_73941, object r_73373) ; +static void __lambda_179(void *data, int argc, object self_73942, object r_73374) ; +static void __lambda_178(void *data, int argc, object self_73943, object r_73378) ; +static void __lambda_177(void *data, int argc, object self_73944, object r_73379) ; +static void __lambda_176(void *data, int argc, object self_73945, object r_73375) ; +static void __lambda_175(void *data, int argc, object self_73946) ; +static void __lambda_174(void *data, int argc, object self_73947) ; +static void __lambda_173(void *data, int argc, object self_73948, object r_73376) ; +static void __lambda_172(void *data, int argc, object self_73949, object r_73377) ; +static void __lambda_171(void *data, int argc, object self_73950) ; +static void __lambda_170(void *data, int argc, object self_73951) ; +static void __lambda_169(void *data, int argc, object self_73952, object r_73371) ; +static void __lambda_168(void *data, int argc, object self_73953, object r_73294) ; +static void __lambda_167(void *data, int argc, object self_73954, object k_73369, object x_73174, object lst_73173) ; +static void __lambda_166(void *data, int argc, object self_73955, object tmp_73175) ; +static void __lambda_165(void *data, int argc, object self_73956, object r_73368) ; +static void __lambda_164(void *data, int argc, object self_73957, object r_73295) ; +static void __lambda_163(void *data, int argc, object self_73958, object k_73366, object x_73171, object lst_73170) ; +static void __lambda_162(void *data, int argc, object self_73959, object tmp_73172) ; +static void __lambda_161(void *data, int argc, object self_73960, object r_73365) ; +static void __lambda_160(void *data, int argc, object self_73961, object r_73296) ; +static void __lambda_159(void *data, int argc, object self_73962, object r_73364) ; +static void __lambda_158(void *data, int argc, object self_73963, object r_73297) ; +static void __lambda_157(void *data, int argc, object self_73964, object r_73363) ; +static void __lambda_156(void *data, int argc, object self_73965, object r_73298) ; +static void __lambda_155(void *data, int argc, object self_73966, object k_73357, object n_73169) ; +static void __lambda_154(void *data, int argc, object self_73967, object r_73359) ; +static void __lambda_153(void *data, int argc, object self_73968, object r_73360) ; +static void __lambda_152(void *data, int argc, object self_73969, object r_73362) ; +static void __lambda_151(void *data, int argc, object self_73970, object r_73361) ; +static void __lambda_150(void *data, int argc, object self_73971, object r_73358) ; +static void __lambda_149(void *data, int argc, object self_73972, object r_73356) ; +static void __lambda_148(void *data, int argc, object self_73973, object r_73299) ; +static void __lambda_147(void *data, int argc, object self_73974, object k_73347, object n_73168) ; +static void __lambda_146(void *data, int argc, object self_73975, object r_73348) ; +static void __lambda_145(void *data, int argc, object self_73976) ; +static void __lambda_144(void *data, int argc, object self_73977, object r_73350) ; +static void __lambda_143(void *data, int argc, object self_73978, object r_73354) ; +static void __lambda_142(void *data, int argc, object self_73979, object r_73355) ; +static void __lambda_141(void *data, int argc, object self_73980, object r_73351) ; +static void __lambda_140(void *data, int argc, object self_73981, object r_73353) ; +static void __lambda_139(void *data, int argc, object self_73982, object r_73352) ; +static void __lambda_138(void *data, int argc, object self_73983) ; +static void __lambda_137(void *data, int argc, object self_73984, object r_73349) ; +static void __lambda_136(void *data, int argc, object self_73985, object r_73346) ; +static void __lambda_135(void *data, int argc, object self_73986, object r_73300) ; +static void __lambda_134(void *data, int argc, object self_73987, object k_73338, object x_73167, object y_73166) ; +static void __lambda_133(void *data, int argc, object self_73988, object r_73339) ; +static void __lambda_132(void *data, int argc, object self_73989) ; +static void __lambda_131(void *data, int argc, object self_73990) ; +static void __lambda_130(void *data, int argc, object self_73991, object r_73340) ; +static void __lambda_129(void *data, int argc, object self_73992, object r_73344) ; +static void __lambda_128(void *data, int argc, object self_73993, object r_73345) ; +static void __lambda_127(void *data, int argc, object self_73994, object r_73341) ; +static void __lambda_126(void *data, int argc, object self_73995, object r_73342) ; +static void __lambda_125(void *data, int argc, object self_73996, object r_73343) ; +static void __lambda_124(void *data, int argc, object self_73997, object r_73337) ; +static void __lambda_123(void *data, int argc, object self_73998, object r_73301) ; +static void __lambda_122(void *data, int argc, object self_73999, object k_73329, object lst1_73165, object lst2_73164) ; +static void __lambda_121(void *data, int argc, object self_731000, object r_73330) ; +static void __lambda_120(void *data, int argc, object self_731001, object r_73331) ; +static void __lambda_119(void *data, int argc, object self_731002, object r_73335) ; +static void __lambda_118(void *data, int argc, object self_731003, object r_73336) ; +static void __lambda_117(void *data, int argc, object self_731004, object r_73332) ; +static void __lambda_116(void *data, int argc, object self_731005) ; +static void __lambda_115(void *data, int argc, object self_731006) ; +static void __lambda_114(void *data, int argc, object self_731007, object r_73333) ; +static void __lambda_113(void *data, int argc, object self_731008, object r_73334) ; +static void __lambda_112(void *data, int argc, object self_731009) ; +static void __lambda_111(void *data, int argc, object self_731010) ; +static void __lambda_110(void *data, int argc, object self_731011, object r_73328) ; +static void __lambda_109(void *data, int argc, object self_731012, object r_73302) ; +static void __lambda_108(void *data, int argc, object self_731013, object k_73323, object x_73163, object lst_73162) ; +static void __lambda_107(void *data, int argc, object self_731014, object r_73324) ; +static void __lambda_106(void *data, int argc, object self_731015, object r_73327) ; +static void __lambda_105(void *data, int argc, object self_731016, object r_73325) ; +static void __lambda_104(void *data, int argc, object self_731017) ; +static void __lambda_103(void *data, int argc, object self_731018, object r_73326) ; +static void __lambda_102(void *data, int argc, object self_731019) ; +static void __lambda_101(void *data, int argc, object self_731020) ; +static void __lambda_100(void *data, int argc, object self_731021, object r_73322) ; +static void __lambda_99(void *data, int argc, object self_731022, object r_73303) ; +static void __lambda_98(void *data, int argc, object self_731023, object k_73310) ; +static void __lambda_97(void *data, int argc, object self_731024, object r_73321) ; +static void __lambda_96(void *data, int argc, object self_731025, object r_73311) ; +static void __lambda_95(void *data, int argc, object self_731026, object r_73320) ; +static void __lambda_94(void *data, int argc, object self_731027, object r_73319) ; +static void __lambda_93(void *data, int argc, object self_731028, object r_73312) ; +static void __lambda_92(void *data, int argc, object self_731029, object r_73318) ; +static void __lambda_91(void *data, int argc, object self_731030, object r_73317) ; +static void __lambda_90(void *data, int argc, object self_731031, object r_73313) ; +static void __lambda_89(void *data, int argc, object self_731032, object r_73316) ; +static void __lambda_88(void *data, int argc, object self_731033, object r_73315) ; +static void __lambda_87(void *data, int argc, object self_731034, object r_73314) ; +static void __lambda_86(void *data, int argc, object self_731035, object r_73309) ; +static void __lambda_85(void *data, int argc, object self_731036, object r_73304) ; +static void __lambda_84(void *data, int argc, object self_731037, object k_73306, object alist_73160, object term_73159, object n_73158) ; +static void __lambda_83(void *data, int argc, object self_731038, object r_73307) ; +static void __lambda_82(void *data, int argc, object self_731039, object answer_73161) ; +static void __lambda_81(void *data, int argc, closure _,object r_73305) ; +static void __lambda_80(void *data, int argc, closure _,object r_73264) ; +static void __lambda_79(void *data, int argc, closure _,object k_73568, object name_73229, object count_73228, object thunk_73227, object ok_127_73226) ; +static void __lambda_78(void *data, int argc, object self_731040, object rounded_73231) ; +static void __lambda_77(void *data, int argc, object self_731041, object rounded_73231) ; +static void __lambda_76(void *data, int argc, object self_731042, object rounded_73232) ; +static void __lambda_75(void *data, int argc, object self_731043, object k_73604, object x_73246) ; +static void __lambda_74(void *data, int argc, object self_731044, object r_73606) ; +static void __lambda_73(void *data, int argc, object self_731045, object r_73605) ; +static void __lambda_72(void *data, int argc, object self_731046, object r_73603) ; +static void __lambda_71(void *data, int argc, object self_731047, object r_73569) ; +static void __lambda_70(void *data, int argc, object self_731048, object r_73570) ; +static void __lambda_69(void *data, int argc, object self_731049, object r_73571) ; +static void __lambda_68(void *data, int argc, object self_731050, object r_73572) ; +static void __lambda_67(void *data, int argc, object self_731051, object r_73573) ; +static void __lambda_66(void *data, int argc, object self_731052, object j_95s_73233) ; +static void __lambda_65(void *data, int argc, object self_731053, object t0_73234) ; +static void __lambda_64(void *data, int argc, object self_731054, object j0_73235) ; +static void __lambda_63(void *data, int argc, object self_731055) ; +static void __lambda_62(void *data, int argc, object self_731056, object r_73577) ; +static void __lambda_61(void *data, int argc, object self_731057, object i_73237, object result_73236) ; +static void __lambda_60(void *data, int argc, object self_731058, object loop_73238) ; +static void __lambda_59(void *data, int argc, object self_731059, object loop_73238) ; +static void __lambda_58(void *data, int argc, object self_731060, object k_73580, object i_73240, object result_73239) ; +static void __lambda_57(void *data, int argc, object self_731061, object r_73581) ; +static void __lambda_56(void *data, int argc, object self_731062, object r_73584) ; +static void __lambda_55(void *data, int argc, object self_731063) ; +static void __lambda_54(void *data, int argc, object self_731064, object r_73599) ; +static void __lambda_53(void *data, int argc, object self_731065, object r_73600) ; +static void __lambda_52(void *data, int argc, object self_731066, object r_73601) ; +static void __lambda_51(void *data, int argc, object self_731067) ; +static void __lambda_50(void *data, int argc, object self_731068, object j1_73241) ; +static void __lambda_49(void *data, int argc, object self_731069, object t1_73242) ; +static void __lambda_48(void *data, int argc, object self_731070, object jifs_73243) ; +static void __lambda_47(void *data, int argc, object self_731071, object r_73598) ; +static void __lambda_46(void *data, int argc, object self_731072, object secs_73244) ; +static void __lambda_45(void *data, int argc, object self_731073, object r_73597) ; +static void __lambda_44(void *data, int argc, object self_731074, object secs2_73245) ; +static void __lambda_43(void *data, int argc, object self_731075) ; +static void __lambda_42(void *data, int argc, object self_731076, object r_73591) ; +static void __lambda_41(void *data, int argc, object self_731077, object r_73592) ; +static void __lambda_40(void *data, int argc, object self_731078, object r_73593) ; +static void __lambda_39(void *data, int argc, object self_731079, object r_73594) ; +static void __lambda_38(void *data, int argc, object self_731080, object r_73595) ; +static void __lambda_37(void *data, int argc, object self_731081, object r_73596) ; +static void __lambda_36(void *data, int argc, object self_731082, object r_73585) ; +static void __lambda_35(void *data, int argc, object self_731083) ; +static void __lambda_34(void *data, int argc, object self_731084, object r_73582) ; +static void __lambda_33(void *data, int argc, object self_731085, object r_73583) ; +static void __lambda_32(void *data, int argc, object self_731086, object r_73579) ; +static void __lambda_31(void *data, int argc, object self_731087, object r_73578) ; +static void __lambda_30(void *data, int argc, closure _,object k_73602) ; +static void __lambda_29(void *data, int argc, closure _,object k_73609, object r_73248, object x_73247) ; +static void __lambda_28(void *data, int argc, object self_731088, object k_73614) ; +static void __lambda_27(void *data, int argc, object self_731089, object k_73620, object x_73251) ; +static void __lambda_26(void *data, int argc, object self_731090, object r_73619) ; +static void __lambda_25(void *data, int argc, object self_731091, object r_73615) ; +static void __lambda_24(void *data, int argc, object self_731092, object r_73616) ; +static void __lambda_23(void *data, int argc, object self_731093, object k_73617) ; +static void __lambda_22(void *data, int argc, object self_731094, object r_73618) ; +static void __lambda_21(void *data, int argc, object self_731095, object r_73610) ; +static void __lambda_20(void *data, int argc, object self_731096, object k_73612, object v_73250, object i_73249) ; +static void __lambda_19(void *data, int argc, object self_731097, object r_73613) ; +static void __lambda_18(void *data, int argc, object self_731098, object r_73611) ; +static void __lambda_17(void *data, int argc, closure _,object k_73623, object args_73252_raw, ...) ; +static void __lambda_16(void *data, int argc, closure _,object k_73626, object args_73253_raw, ...) ; +static void __lambda_15(void *data, int argc, closure _,object k_73633) ; +static void __lambda_14(void *data, int argc, object self_731099, object count_73254) ; +static void __lambda_13(void *data, int argc, object self_731100, object input_73255) ; +static void __lambda_12(void *data, int argc, object self_731101, object output_73256) ; +static void __lambda_11(void *data, int argc, object self_731102, object s2_73257) ; +static void __lambda_10(void *data, int argc, object self_731103, object s1_73258) ; +static void __lambda_9(void *data, int argc, object self_731104, object name_73259) ; +static void __lambda_8(void *data, int argc, object self_731105) ; +static void __lambda_7(void *data, int argc, object self_731106, object r_73639) ; +static void __lambda_6(void *data, int argc, object self_731107, object k_73644) ; +static void __lambda_5(void *data, int argc, object self_731108, object r_73645) ; +static void __lambda_4(void *data, int argc, object self_731109, object r_73646) ; +static void __lambda_3(void *data, int argc, object self_731110, object r_73640) ; +static void __lambda_2(void *data, int argc, object self_731111, object k_73642, object rewrites_73260) ; +static void __lambda_1(void *data, int argc, object self_731112, object r_73643) ; +static void __lambda_0(void *data, int argc, object self_731113, object r_73641) ; + +static void __lambda_483(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73118, object add_91lemma_73117, object add_91lemma_91lst_73116, object apply_91subst_73115, object apply_91subst_91lst_73114, object false_91term_73113, object falsep_73112, object get_73111, object get_91lemmas_73110, object get_91name_73109, object if_91constructor_73108, object make_91symbol_91record_73107, object one_91way_91unify_73106, object one_91way_91unify1_73105, object one_91way_91unify1_91lst_73104, object put_73103, object put_91lemmas_67_73102, object rewrite_73101, object rewrite_91args_73100, object rewrite_91count_7399, object rewrite_91with_91lemmas_7398, object setup_7397, object symbol_91_125symbol_91record_7396, object symbol_91record_91equal_127_7395, object tautologyp_7394, object tautp_7393, object term_91args_91equal_127_7392, object term_91equal_127_7391, object term_91member_127_7390, object test_7389, object trans_91of_91implies_7388, object trans_91of_91implies1_7387, object translate_91alist_7386, object translate_91args_7385, object translate_91term_7384, object true_91term_7383, object truep_7382, object unify_91subst_7381, object untranslate_91term_7380) { + return_direct0(data,__lambda_482);; +} + +static void __lambda_482(void *data, int argc, closure _) { + return_direct1(data,__lambda_481,obj_int2obj(0));; +} + +static void __lambda_481(void *data, int argc, closure _,object r_73261) { + make_cons(c_735175,quote_b,nil); +make_cons(c_735174,quote_a,&c_735175); +make_cons(c_735173,quote_plus,&c_735174); +make_cons(c_735180,quote_zero,nil); +make_cons(c_735179,&c_735180,nil); +make_cons(c_735178,quote_c,&c_735179); +make_cons(c_735177,quote_plus,&c_735178); +make_cons(c_735176,&c_735177,nil); +make_cons(c_735172,&c_735173,&c_735176); +make_cons(c_735171,quote_plus,&c_735172); +make_cons(c_735170,&c_735171,nil); +make_cons(c_735169,quote_f,&c_735170); +make_cons(c_735168,quote_x,&c_735169); +make_cons(c_735189,quote_b,nil); +make_cons(c_735188,quote_a,&c_735189); +make_cons(c_735187,quote_times,&c_735188); +make_cons(c_735193,quote_d,nil); +make_cons(c_735192,quote_c,&c_735193); +make_cons(c_735191,quote_plus,&c_735192); +make_cons(c_735190,&c_735191,nil); +make_cons(c_735186,&c_735187,&c_735190); +make_cons(c_735185,quote_times,&c_735186); +make_cons(c_735184,&c_735185,nil); +make_cons(c_735183,quote_f,&c_735184); +make_cons(c_735182,quote_y,&c_735183); +make_cons(c_735204,quote_b,nil); +make_cons(c_735203,quote_a,&c_735204); +make_cons(c_735202,quote_append,&c_735203); +make_cons(c_735206,quote_nil,nil); +make_cons(c_735205,&c_735206,nil); +make_cons(c_735201,&c_735202,&c_735205); +make_cons(c_735200,quote_append,&c_735201); +make_cons(c_735199,&c_735200,nil); +make_cons(c_735198,quote_reverse,&c_735199); +make_cons(c_735197,&c_735198,nil); +make_cons(c_735196,quote_f,&c_735197); +make_cons(c_735195,quote_z,&c_735196); +make_cons(c_735213,quote_b,nil); +make_cons(c_735212,quote_a,&c_735213); +make_cons(c_735211,quote_plus,&c_735212); +make_cons(c_735217,quote_y,nil); +make_cons(c_735216,quote_x,&c_735217); +make_cons(c_735215,quote_difference,&c_735216); +make_cons(c_735214,&c_735215,nil); +make_cons(c_735210,&c_735211,&c_735214); +make_cons(c_735209,quote_equal,&c_735210); +make_cons(c_735208,quote_u,&c_735209); +make_cons(c_735224,quote_b,nil); +make_cons(c_735223,quote_a,&c_735224); +make_cons(c_735222,quote_remainder,&c_735223); +make_cons(c_735230,quote_b,nil); +make_cons(c_735229,quote_length,&c_735230); +make_cons(c_735228,&c_735229,nil); +make_cons(c_735227,quote_a,&c_735228); +make_cons(c_735226,quote_member,&c_735227); +make_cons(c_735225,&c_735226,nil); +make_cons(c_735221,&c_735222,&c_735225); +make_cons(c_735220,quote_lessp,&c_735221); +make_cons(c_735219,quote_w,&c_735220); +make_cons(c_735218,&c_735219,nil); +make_cons(c_735207,&c_735208,&c_735218); +make_cons(c_735194,&c_735195,&c_735207); +make_cons(c_735181,&c_735182,&c_735194); +make_cons(c_735167,&c_735168,&c_735181); +return_direct1(data,__lambda_480,&c_735167);; +} + +static void __lambda_480(void *data, int argc, closure _,object r_73565) { + return_direct1(data,__lambda_479,global_set(__glo_alist, r_73565));; +} + +static void __lambda_479(void *data, int argc, closure _,object r_73262) { + make_cons(c_735144,quote_y,nil); +make_cons(c_735143,quote_x,&c_735144); +make_cons(c_735142,quote_implies,&c_735143); +make_cons(c_735150,quote_z,nil); +make_cons(c_735149,quote_y,&c_735150); +make_cons(c_735148,quote_implies,&c_735149); +make_cons(c_735156,quote_u,nil); +make_cons(c_735155,quote_z,&c_735156); +make_cons(c_735154,quote_implies,&c_735155); +make_cons(c_735160,quote_w,nil); +make_cons(c_735159,quote_u,&c_735160); +make_cons(c_735158,quote_implies,&c_735159); +make_cons(c_735157,&c_735158,nil); +make_cons(c_735153,&c_735154,&c_735157); +make_cons(c_735152,quote_and,&c_735153); +make_cons(c_735151,&c_735152,nil); +make_cons(c_735147,&c_735148,&c_735151); +make_cons(c_735146,quote_and,&c_735147); +make_cons(c_735145,&c_735146,nil); +make_cons(c_735141,&c_735142,&c_735145); +make_cons(c_735140,quote_and,&c_735141); +make_cons(c_735164,quote_w,nil); +make_cons(c_735163,quote_x,&c_735164); +make_cons(c_735162,quote_implies,&c_735163); +make_cons(c_735161,&c_735162,nil); +make_cons(c_735139,&c_735140,&c_735161); +make_cons(c_735138,quote_implies,&c_735139); +return_direct1(data,__lambda_478,&c_735138);; +} + +static void __lambda_478(void *data, int argc, closure _,object r_73564) { + return_direct1(data,__lambda_477,global_set(__glo_term, r_73564));; +} + +static void __lambda_477(void *data, int argc, closure _,object r_73263) { + return_direct0(data,__lambda_476);; +} + +static void __lambda_476(void *data, int argc, closure _) { + return_direct39(data,__lambda_475,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; +} + +static void __lambda_475(void *data, int argc, closure _,object setup_73157, object add_91lemma_91lst_73156, object add_91lemma_73155, object translate_91term_73154, object translate_91args_73153, object untranslate_91term_73152, object put_73151, object get_73150, object symbol_91_125symbol_91record_73149, object _85symbol_91records_91alist_85_73148, object make_91symbol_91record_73147, object put_91lemmas_67_73146, object get_91lemmas_73145, object get_91name_73144, object symbol_91record_91equal_127_73143, object test_73142, object translate_91alist_73141, object apply_91subst_73140, object apply_91subst_91lst_73139, object tautp_73138, object tautologyp_73137, object if_91constructor_73136, object rewrite_91count_73135, object rewrite_73134, object rewrite_91args_73133, object rewrite_91with_91lemmas_73132, object unify_91subst_73131, object one_91way_91unify_73130, object one_91way_91unify1_73129, object one_91way_91unify1_91lst_73128, object falsep_73127, object truep_73126, object false_91term_73125, object true_91term_73124, object trans_91of_91implies_73123, object trans_91of_91implies1_73122, object term_91equal_127_73121, object term_91args_91equal_127_73120, object term_91member_127_73119) { + +closureN_type c_731407; +c_731407.hdr.mark = gc_color_red; + c_731407.hdr.grayed = 0; +c_731407.tag = closureN_tag; + c_731407.fn = (function_type)__lambda_474; +c_731407.num_args = 1; +c_731407.num_elt = 38; +c_731407.elts = (object *)alloca(sizeof(object) * 38); +c_731407.elts[0] = _85symbol_91records_91alist_85_73148; +c_731407.elts[1] = add_91lemma_73155; +c_731407.elts[2] = add_91lemma_91lst_73156; +c_731407.elts[3] = apply_91subst_73140; +c_731407.elts[4] = apply_91subst_91lst_73139; +c_731407.elts[5] = false_91term_73125; +c_731407.elts[6] = falsep_73127; +c_731407.elts[7] = get_73150; +c_731407.elts[8] = get_91lemmas_73145; +c_731407.elts[9] = get_91name_73144; +c_731407.elts[10] = if_91constructor_73136; +c_731407.elts[11] = make_91symbol_91record_73147; +c_731407.elts[12] = one_91way_91unify_73130; +c_731407.elts[13] = one_91way_91unify1_73129; +c_731407.elts[14] = one_91way_91unify1_91lst_73128; +c_731407.elts[15] = put_73151; +c_731407.elts[16] = put_91lemmas_67_73146; +c_731407.elts[17] = rewrite_73134; +c_731407.elts[18] = rewrite_91args_73133; +c_731407.elts[19] = rewrite_91count_73135; +c_731407.elts[20] = rewrite_91with_91lemmas_73132; +c_731407.elts[21] = symbol_91_125symbol_91record_73149; +c_731407.elts[22] = symbol_91record_91equal_127_73143; +c_731407.elts[23] = tautologyp_73137; +c_731407.elts[24] = tautp_73138; +c_731407.elts[25] = term_91args_91equal_127_73120; +c_731407.elts[26] = term_91equal_127_73121; +c_731407.elts[27] = term_91member_127_73119; +c_731407.elts[28] = test_73142; +c_731407.elts[29] = trans_91of_91implies_73123; +c_731407.elts[30] = trans_91of_91implies1_73122; +c_731407.elts[31] = translate_91alist_73141; +c_731407.elts[32] = translate_91args_73153; +c_731407.elts[33] = translate_91term_73154; +c_731407.elts[34] = true_91term_73124; +c_731407.elts[35] = truep_73126; +c_731407.elts[36] = unify_91subst_73131; +c_731407.elts[37] = untranslate_91term_73152; + + +make_cell(c_735135,setup_73157); +return_closcall1(data,(closure)&c_731407, &c_735135);; +} + +static void __lambda_474(void *data, int argc, object self_73647, object setup_73157) { + +closureN_type c_731409; +c_731409.hdr.mark = gc_color_red; + c_731409.hdr.grayed = 0; +c_731409.tag = closureN_tag; + c_731409.fn = (function_type)__lambda_473; +c_731409.num_args = 1; +c_731409.num_elt = 38; +c_731409.elts = (object *)alloca(sizeof(object) * 38); +c_731409.elts[0] = ((closureN)self_73647)->elts[0]; +c_731409.elts[1] = ((closureN)self_73647)->elts[1]; +c_731409.elts[2] = ((closureN)self_73647)->elts[3]; +c_731409.elts[3] = ((closureN)self_73647)->elts[4]; +c_731409.elts[4] = ((closureN)self_73647)->elts[5]; +c_731409.elts[5] = ((closureN)self_73647)->elts[6]; +c_731409.elts[6] = ((closureN)self_73647)->elts[7]; +c_731409.elts[7] = ((closureN)self_73647)->elts[8]; +c_731409.elts[8] = ((closureN)self_73647)->elts[9]; +c_731409.elts[9] = ((closureN)self_73647)->elts[10]; +c_731409.elts[10] = ((closureN)self_73647)->elts[11]; +c_731409.elts[11] = ((closureN)self_73647)->elts[12]; +c_731409.elts[12] = ((closureN)self_73647)->elts[13]; +c_731409.elts[13] = ((closureN)self_73647)->elts[14]; +c_731409.elts[14] = ((closureN)self_73647)->elts[15]; +c_731409.elts[15] = ((closureN)self_73647)->elts[16]; +c_731409.elts[16] = ((closureN)self_73647)->elts[17]; +c_731409.elts[17] = ((closureN)self_73647)->elts[18]; +c_731409.elts[18] = ((closureN)self_73647)->elts[19]; +c_731409.elts[19] = ((closureN)self_73647)->elts[20]; +c_731409.elts[20] = setup_73157; +c_731409.elts[21] = ((closureN)self_73647)->elts[21]; +c_731409.elts[22] = ((closureN)self_73647)->elts[22]; +c_731409.elts[23] = ((closureN)self_73647)->elts[23]; +c_731409.elts[24] = ((closureN)self_73647)->elts[24]; +c_731409.elts[25] = ((closureN)self_73647)->elts[25]; +c_731409.elts[26] = ((closureN)self_73647)->elts[26]; +c_731409.elts[27] = ((closureN)self_73647)->elts[27]; +c_731409.elts[28] = ((closureN)self_73647)->elts[28]; +c_731409.elts[29] = ((closureN)self_73647)->elts[29]; +c_731409.elts[30] = ((closureN)self_73647)->elts[30]; +c_731409.elts[31] = ((closureN)self_73647)->elts[31]; +c_731409.elts[32] = ((closureN)self_73647)->elts[32]; +c_731409.elts[33] = ((closureN)self_73647)->elts[33]; +c_731409.elts[34] = ((closureN)self_73647)->elts[34]; +c_731409.elts[35] = ((closureN)self_73647)->elts[35]; +c_731409.elts[36] = ((closureN)self_73647)->elts[36]; +c_731409.elts[37] = ((closureN)self_73647)->elts[37]; + + +make_cell(c_735131,((closureN)self_73647)->elts[2]); +return_closcall1(data,(closure)&c_731409, &c_735131);; +} + +static void __lambda_473(void *data, int argc, object self_73648, object add_91lemma_91lst_73156) { + +closureN_type c_731411; +c_731411.hdr.mark = gc_color_red; + c_731411.hdr.grayed = 0; +c_731411.tag = closureN_tag; + c_731411.fn = (function_type)__lambda_472; +c_731411.num_args = 1; +c_731411.num_elt = 38; +c_731411.elts = (object *)alloca(sizeof(object) * 38); +c_731411.elts[0] = ((closureN)self_73648)->elts[0]; +c_731411.elts[1] = add_91lemma_91lst_73156; +c_731411.elts[2] = ((closureN)self_73648)->elts[2]; +c_731411.elts[3] = ((closureN)self_73648)->elts[3]; +c_731411.elts[4] = ((closureN)self_73648)->elts[4]; +c_731411.elts[5] = ((closureN)self_73648)->elts[5]; +c_731411.elts[6] = ((closureN)self_73648)->elts[6]; +c_731411.elts[7] = ((closureN)self_73648)->elts[7]; +c_731411.elts[8] = ((closureN)self_73648)->elts[8]; +c_731411.elts[9] = ((closureN)self_73648)->elts[9]; +c_731411.elts[10] = ((closureN)self_73648)->elts[10]; +c_731411.elts[11] = ((closureN)self_73648)->elts[11]; +c_731411.elts[12] = ((closureN)self_73648)->elts[12]; +c_731411.elts[13] = ((closureN)self_73648)->elts[13]; +c_731411.elts[14] = ((closureN)self_73648)->elts[14]; +c_731411.elts[15] = ((closureN)self_73648)->elts[15]; +c_731411.elts[16] = ((closureN)self_73648)->elts[16]; +c_731411.elts[17] = ((closureN)self_73648)->elts[17]; +c_731411.elts[18] = ((closureN)self_73648)->elts[18]; +c_731411.elts[19] = ((closureN)self_73648)->elts[19]; +c_731411.elts[20] = ((closureN)self_73648)->elts[20]; +c_731411.elts[21] = ((closureN)self_73648)->elts[21]; +c_731411.elts[22] = ((closureN)self_73648)->elts[22]; +c_731411.elts[23] = ((closureN)self_73648)->elts[23]; +c_731411.elts[24] = ((closureN)self_73648)->elts[24]; +c_731411.elts[25] = ((closureN)self_73648)->elts[25]; +c_731411.elts[26] = ((closureN)self_73648)->elts[26]; +c_731411.elts[27] = ((closureN)self_73648)->elts[27]; +c_731411.elts[28] = ((closureN)self_73648)->elts[28]; +c_731411.elts[29] = ((closureN)self_73648)->elts[29]; +c_731411.elts[30] = ((closureN)self_73648)->elts[30]; +c_731411.elts[31] = ((closureN)self_73648)->elts[31]; +c_731411.elts[32] = ((closureN)self_73648)->elts[32]; +c_731411.elts[33] = ((closureN)self_73648)->elts[33]; +c_731411.elts[34] = ((closureN)self_73648)->elts[34]; +c_731411.elts[35] = ((closureN)self_73648)->elts[35]; +c_731411.elts[36] = ((closureN)self_73648)->elts[36]; +c_731411.elts[37] = ((closureN)self_73648)->elts[37]; + + +make_cell(c_735127,((closureN)self_73648)->elts[1]); +return_closcall1(data,(closure)&c_731411, &c_735127);; +} + +static void __lambda_472(void *data, int argc, object self_73649, object add_91lemma_73155) { + +closureN_type c_731413; +c_731413.hdr.mark = gc_color_red; + c_731413.hdr.grayed = 0; +c_731413.tag = closureN_tag; + c_731413.fn = (function_type)__lambda_471; +c_731413.num_args = 1; +c_731413.num_elt = 38; +c_731413.elts = (object *)alloca(sizeof(object) * 38); +c_731413.elts[0] = ((closureN)self_73649)->elts[0]; +c_731413.elts[1] = add_91lemma_73155; +c_731413.elts[2] = ((closureN)self_73649)->elts[1]; +c_731413.elts[3] = ((closureN)self_73649)->elts[2]; +c_731413.elts[4] = ((closureN)self_73649)->elts[3]; +c_731413.elts[5] = ((closureN)self_73649)->elts[4]; +c_731413.elts[6] = ((closureN)self_73649)->elts[5]; +c_731413.elts[7] = ((closureN)self_73649)->elts[6]; +c_731413.elts[8] = ((closureN)self_73649)->elts[7]; +c_731413.elts[9] = ((closureN)self_73649)->elts[8]; +c_731413.elts[10] = ((closureN)self_73649)->elts[9]; +c_731413.elts[11] = ((closureN)self_73649)->elts[10]; +c_731413.elts[12] = ((closureN)self_73649)->elts[11]; +c_731413.elts[13] = ((closureN)self_73649)->elts[12]; +c_731413.elts[14] = ((closureN)self_73649)->elts[13]; +c_731413.elts[15] = ((closureN)self_73649)->elts[14]; +c_731413.elts[16] = ((closureN)self_73649)->elts[15]; +c_731413.elts[17] = ((closureN)self_73649)->elts[16]; +c_731413.elts[18] = ((closureN)self_73649)->elts[17]; +c_731413.elts[19] = ((closureN)self_73649)->elts[18]; +c_731413.elts[20] = ((closureN)self_73649)->elts[19]; +c_731413.elts[21] = ((closureN)self_73649)->elts[20]; +c_731413.elts[22] = ((closureN)self_73649)->elts[21]; +c_731413.elts[23] = ((closureN)self_73649)->elts[22]; +c_731413.elts[24] = ((closureN)self_73649)->elts[23]; +c_731413.elts[25] = ((closureN)self_73649)->elts[24]; +c_731413.elts[26] = ((closureN)self_73649)->elts[25]; +c_731413.elts[27] = ((closureN)self_73649)->elts[26]; +c_731413.elts[28] = ((closureN)self_73649)->elts[27]; +c_731413.elts[29] = ((closureN)self_73649)->elts[28]; +c_731413.elts[30] = ((closureN)self_73649)->elts[29]; +c_731413.elts[31] = ((closureN)self_73649)->elts[30]; +c_731413.elts[32] = ((closureN)self_73649)->elts[31]; +c_731413.elts[33] = ((closureN)self_73649)->elts[32]; +c_731413.elts[34] = ((closureN)self_73649)->elts[34]; +c_731413.elts[35] = ((closureN)self_73649)->elts[35]; +c_731413.elts[36] = ((closureN)self_73649)->elts[36]; +c_731413.elts[37] = ((closureN)self_73649)->elts[37]; + + +make_cell(c_735123,((closureN)self_73649)->elts[33]); +return_closcall1(data,(closure)&c_731413, &c_735123);; +} + +static void __lambda_471(void *data, int argc, object self_73650, object translate_91term_73154) { + +closureN_type c_731415; +c_731415.hdr.mark = gc_color_red; + c_731415.hdr.grayed = 0; +c_731415.tag = closureN_tag; + c_731415.fn = (function_type)__lambda_470; +c_731415.num_args = 1; +c_731415.num_elt = 38; +c_731415.elts = (object *)alloca(sizeof(object) * 38); +c_731415.elts[0] = ((closureN)self_73650)->elts[0]; +c_731415.elts[1] = ((closureN)self_73650)->elts[1]; +c_731415.elts[2] = ((closureN)self_73650)->elts[2]; +c_731415.elts[3] = ((closureN)self_73650)->elts[3]; +c_731415.elts[4] = ((closureN)self_73650)->elts[4]; +c_731415.elts[5] = ((closureN)self_73650)->elts[5]; +c_731415.elts[6] = ((closureN)self_73650)->elts[6]; +c_731415.elts[7] = ((closureN)self_73650)->elts[7]; +c_731415.elts[8] = ((closureN)self_73650)->elts[8]; +c_731415.elts[9] = ((closureN)self_73650)->elts[9]; +c_731415.elts[10] = ((closureN)self_73650)->elts[10]; +c_731415.elts[11] = ((closureN)self_73650)->elts[11]; +c_731415.elts[12] = ((closureN)self_73650)->elts[12]; +c_731415.elts[13] = ((closureN)self_73650)->elts[13]; +c_731415.elts[14] = ((closureN)self_73650)->elts[14]; +c_731415.elts[15] = ((closureN)self_73650)->elts[15]; +c_731415.elts[16] = ((closureN)self_73650)->elts[16]; +c_731415.elts[17] = ((closureN)self_73650)->elts[17]; +c_731415.elts[18] = ((closureN)self_73650)->elts[18]; +c_731415.elts[19] = ((closureN)self_73650)->elts[19]; +c_731415.elts[20] = ((closureN)self_73650)->elts[20]; +c_731415.elts[21] = ((closureN)self_73650)->elts[21]; +c_731415.elts[22] = ((closureN)self_73650)->elts[22]; +c_731415.elts[23] = ((closureN)self_73650)->elts[23]; +c_731415.elts[24] = ((closureN)self_73650)->elts[24]; +c_731415.elts[25] = ((closureN)self_73650)->elts[25]; +c_731415.elts[26] = ((closureN)self_73650)->elts[26]; +c_731415.elts[27] = ((closureN)self_73650)->elts[27]; +c_731415.elts[28] = ((closureN)self_73650)->elts[28]; +c_731415.elts[29] = ((closureN)self_73650)->elts[29]; +c_731415.elts[30] = ((closureN)self_73650)->elts[30]; +c_731415.elts[31] = ((closureN)self_73650)->elts[31]; +c_731415.elts[32] = ((closureN)self_73650)->elts[32]; +c_731415.elts[33] = translate_91term_73154; +c_731415.elts[34] = ((closureN)self_73650)->elts[34]; +c_731415.elts[35] = ((closureN)self_73650)->elts[35]; +c_731415.elts[36] = ((closureN)self_73650)->elts[36]; +c_731415.elts[37] = ((closureN)self_73650)->elts[37]; + + +make_cell(c_735119,((closureN)self_73650)->elts[33]); +return_closcall1(data,(closure)&c_731415, &c_735119);; +} + +static void __lambda_470(void *data, int argc, object self_73651, object translate_91args_73153) { + +closureN_type c_731417; +c_731417.hdr.mark = gc_color_red; + c_731417.hdr.grayed = 0; +c_731417.tag = closureN_tag; + c_731417.fn = (function_type)__lambda_469; +c_731417.num_args = 1; +c_731417.num_elt = 38; +c_731417.elts = (object *)alloca(sizeof(object) * 38); +c_731417.elts[0] = ((closureN)self_73651)->elts[0]; +c_731417.elts[1] = ((closureN)self_73651)->elts[1]; +c_731417.elts[2] = ((closureN)self_73651)->elts[2]; +c_731417.elts[3] = ((closureN)self_73651)->elts[3]; +c_731417.elts[4] = ((closureN)self_73651)->elts[4]; +c_731417.elts[5] = ((closureN)self_73651)->elts[5]; +c_731417.elts[6] = ((closureN)self_73651)->elts[6]; +c_731417.elts[7] = ((closureN)self_73651)->elts[7]; +c_731417.elts[8] = ((closureN)self_73651)->elts[8]; +c_731417.elts[9] = ((closureN)self_73651)->elts[9]; +c_731417.elts[10] = ((closureN)self_73651)->elts[10]; +c_731417.elts[11] = ((closureN)self_73651)->elts[11]; +c_731417.elts[12] = ((closureN)self_73651)->elts[12]; +c_731417.elts[13] = ((closureN)self_73651)->elts[13]; +c_731417.elts[14] = ((closureN)self_73651)->elts[14]; +c_731417.elts[15] = ((closureN)self_73651)->elts[15]; +c_731417.elts[16] = ((closureN)self_73651)->elts[16]; +c_731417.elts[17] = ((closureN)self_73651)->elts[17]; +c_731417.elts[18] = ((closureN)self_73651)->elts[18]; +c_731417.elts[19] = ((closureN)self_73651)->elts[19]; +c_731417.elts[20] = ((closureN)self_73651)->elts[20]; +c_731417.elts[21] = ((closureN)self_73651)->elts[21]; +c_731417.elts[22] = ((closureN)self_73651)->elts[22]; +c_731417.elts[23] = ((closureN)self_73651)->elts[23]; +c_731417.elts[24] = ((closureN)self_73651)->elts[24]; +c_731417.elts[25] = ((closureN)self_73651)->elts[25]; +c_731417.elts[26] = ((closureN)self_73651)->elts[26]; +c_731417.elts[27] = ((closureN)self_73651)->elts[27]; +c_731417.elts[28] = ((closureN)self_73651)->elts[28]; +c_731417.elts[29] = ((closureN)self_73651)->elts[29]; +c_731417.elts[30] = ((closureN)self_73651)->elts[30]; +c_731417.elts[31] = ((closureN)self_73651)->elts[31]; +c_731417.elts[32] = ((closureN)self_73651)->elts[32]; +c_731417.elts[33] = translate_91args_73153; +c_731417.elts[34] = ((closureN)self_73651)->elts[33]; +c_731417.elts[35] = ((closureN)self_73651)->elts[34]; +c_731417.elts[36] = ((closureN)self_73651)->elts[35]; +c_731417.elts[37] = ((closureN)self_73651)->elts[36]; + + +make_cell(c_735115,((closureN)self_73651)->elts[37]); +return_closcall1(data,(closure)&c_731417, &c_735115);; +} + +static void __lambda_469(void *data, int argc, object self_73652, object untranslate_91term_73152) { + +closureN_type c_731419; +c_731419.hdr.mark = gc_color_red; + c_731419.hdr.grayed = 0; +c_731419.tag = closureN_tag; + c_731419.fn = (function_type)__lambda_468; +c_731419.num_args = 1; +c_731419.num_elt = 38; +c_731419.elts = (object *)alloca(sizeof(object) * 38); +c_731419.elts[0] = ((closureN)self_73652)->elts[0]; +c_731419.elts[1] = ((closureN)self_73652)->elts[1]; +c_731419.elts[2] = ((closureN)self_73652)->elts[2]; +c_731419.elts[3] = ((closureN)self_73652)->elts[3]; +c_731419.elts[4] = ((closureN)self_73652)->elts[4]; +c_731419.elts[5] = ((closureN)self_73652)->elts[5]; +c_731419.elts[6] = ((closureN)self_73652)->elts[6]; +c_731419.elts[7] = ((closureN)self_73652)->elts[7]; +c_731419.elts[8] = ((closureN)self_73652)->elts[8]; +c_731419.elts[9] = ((closureN)self_73652)->elts[9]; +c_731419.elts[10] = ((closureN)self_73652)->elts[10]; +c_731419.elts[11] = ((closureN)self_73652)->elts[11]; +c_731419.elts[12] = ((closureN)self_73652)->elts[12]; +c_731419.elts[13] = ((closureN)self_73652)->elts[13]; +c_731419.elts[14] = ((closureN)self_73652)->elts[14]; +c_731419.elts[15] = ((closureN)self_73652)->elts[16]; +c_731419.elts[16] = ((closureN)self_73652)->elts[17]; +c_731419.elts[17] = ((closureN)self_73652)->elts[18]; +c_731419.elts[18] = ((closureN)self_73652)->elts[19]; +c_731419.elts[19] = ((closureN)self_73652)->elts[20]; +c_731419.elts[20] = ((closureN)self_73652)->elts[21]; +c_731419.elts[21] = ((closureN)self_73652)->elts[22]; +c_731419.elts[22] = ((closureN)self_73652)->elts[23]; +c_731419.elts[23] = ((closureN)self_73652)->elts[24]; +c_731419.elts[24] = ((closureN)self_73652)->elts[25]; +c_731419.elts[25] = ((closureN)self_73652)->elts[26]; +c_731419.elts[26] = ((closureN)self_73652)->elts[27]; +c_731419.elts[27] = ((closureN)self_73652)->elts[28]; +c_731419.elts[28] = ((closureN)self_73652)->elts[29]; +c_731419.elts[29] = ((closureN)self_73652)->elts[30]; +c_731419.elts[30] = ((closureN)self_73652)->elts[31]; +c_731419.elts[31] = ((closureN)self_73652)->elts[32]; +c_731419.elts[32] = ((closureN)self_73652)->elts[33]; +c_731419.elts[33] = ((closureN)self_73652)->elts[34]; +c_731419.elts[34] = ((closureN)self_73652)->elts[35]; +c_731419.elts[35] = ((closureN)self_73652)->elts[36]; +c_731419.elts[36] = ((closureN)self_73652)->elts[37]; +c_731419.elts[37] = untranslate_91term_73152; + + +make_cell(c_735111,((closureN)self_73652)->elts[15]); +return_closcall1(data,(closure)&c_731419, &c_735111);; +} + +static void __lambda_468(void *data, int argc, object self_73653, object put_73151) { + +closureN_type c_731421; +c_731421.hdr.mark = gc_color_red; + c_731421.hdr.grayed = 0; +c_731421.tag = closureN_tag; + c_731421.fn = (function_type)__lambda_467; +c_731421.num_args = 1; +c_731421.num_elt = 38; +c_731421.elts = (object *)alloca(sizeof(object) * 38); +c_731421.elts[0] = ((closureN)self_73653)->elts[0]; +c_731421.elts[1] = ((closureN)self_73653)->elts[1]; +c_731421.elts[2] = ((closureN)self_73653)->elts[2]; +c_731421.elts[3] = ((closureN)self_73653)->elts[3]; +c_731421.elts[4] = ((closureN)self_73653)->elts[4]; +c_731421.elts[5] = ((closureN)self_73653)->elts[5]; +c_731421.elts[6] = ((closureN)self_73653)->elts[6]; +c_731421.elts[7] = ((closureN)self_73653)->elts[8]; +c_731421.elts[8] = ((closureN)self_73653)->elts[9]; +c_731421.elts[9] = ((closureN)self_73653)->elts[10]; +c_731421.elts[10] = ((closureN)self_73653)->elts[11]; +c_731421.elts[11] = ((closureN)self_73653)->elts[12]; +c_731421.elts[12] = ((closureN)self_73653)->elts[13]; +c_731421.elts[13] = ((closureN)self_73653)->elts[14]; +c_731421.elts[14] = put_73151; +c_731421.elts[15] = ((closureN)self_73653)->elts[15]; +c_731421.elts[16] = ((closureN)self_73653)->elts[16]; +c_731421.elts[17] = ((closureN)self_73653)->elts[17]; +c_731421.elts[18] = ((closureN)self_73653)->elts[18]; +c_731421.elts[19] = ((closureN)self_73653)->elts[19]; +c_731421.elts[20] = ((closureN)self_73653)->elts[20]; +c_731421.elts[21] = ((closureN)self_73653)->elts[21]; +c_731421.elts[22] = ((closureN)self_73653)->elts[22]; +c_731421.elts[23] = ((closureN)self_73653)->elts[23]; +c_731421.elts[24] = ((closureN)self_73653)->elts[24]; +c_731421.elts[25] = ((closureN)self_73653)->elts[25]; +c_731421.elts[26] = ((closureN)self_73653)->elts[26]; +c_731421.elts[27] = ((closureN)self_73653)->elts[27]; +c_731421.elts[28] = ((closureN)self_73653)->elts[28]; +c_731421.elts[29] = ((closureN)self_73653)->elts[29]; +c_731421.elts[30] = ((closureN)self_73653)->elts[30]; +c_731421.elts[31] = ((closureN)self_73653)->elts[31]; +c_731421.elts[32] = ((closureN)self_73653)->elts[32]; +c_731421.elts[33] = ((closureN)self_73653)->elts[33]; +c_731421.elts[34] = ((closureN)self_73653)->elts[34]; +c_731421.elts[35] = ((closureN)self_73653)->elts[35]; +c_731421.elts[36] = ((closureN)self_73653)->elts[36]; +c_731421.elts[37] = ((closureN)self_73653)->elts[37]; + + +make_cell(c_735107,((closureN)self_73653)->elts[7]); +return_closcall1(data,(closure)&c_731421, &c_735107);; +} + +static void __lambda_467(void *data, int argc, object self_73654, object get_73150) { + +closureN_type c_731423; +c_731423.hdr.mark = gc_color_red; + c_731423.hdr.grayed = 0; +c_731423.tag = closureN_tag; + c_731423.fn = (function_type)__lambda_466; +c_731423.num_args = 1; +c_731423.num_elt = 38; +c_731423.elts = (object *)alloca(sizeof(object) * 38); +c_731423.elts[0] = ((closureN)self_73654)->elts[0]; +c_731423.elts[1] = ((closureN)self_73654)->elts[1]; +c_731423.elts[2] = ((closureN)self_73654)->elts[2]; +c_731423.elts[3] = ((closureN)self_73654)->elts[3]; +c_731423.elts[4] = ((closureN)self_73654)->elts[4]; +c_731423.elts[5] = ((closureN)self_73654)->elts[5]; +c_731423.elts[6] = ((closureN)self_73654)->elts[6]; +c_731423.elts[7] = get_73150; +c_731423.elts[8] = ((closureN)self_73654)->elts[7]; +c_731423.elts[9] = ((closureN)self_73654)->elts[8]; +c_731423.elts[10] = ((closureN)self_73654)->elts[9]; +c_731423.elts[11] = ((closureN)self_73654)->elts[10]; +c_731423.elts[12] = ((closureN)self_73654)->elts[11]; +c_731423.elts[13] = ((closureN)self_73654)->elts[12]; +c_731423.elts[14] = ((closureN)self_73654)->elts[13]; +c_731423.elts[15] = ((closureN)self_73654)->elts[14]; +c_731423.elts[16] = ((closureN)self_73654)->elts[15]; +c_731423.elts[17] = ((closureN)self_73654)->elts[16]; +c_731423.elts[18] = ((closureN)self_73654)->elts[17]; +c_731423.elts[19] = ((closureN)self_73654)->elts[18]; +c_731423.elts[20] = ((closureN)self_73654)->elts[19]; +c_731423.elts[21] = ((closureN)self_73654)->elts[20]; +c_731423.elts[22] = ((closureN)self_73654)->elts[22]; +c_731423.elts[23] = ((closureN)self_73654)->elts[23]; +c_731423.elts[24] = ((closureN)self_73654)->elts[24]; +c_731423.elts[25] = ((closureN)self_73654)->elts[25]; +c_731423.elts[26] = ((closureN)self_73654)->elts[26]; +c_731423.elts[27] = ((closureN)self_73654)->elts[27]; +c_731423.elts[28] = ((closureN)self_73654)->elts[28]; +c_731423.elts[29] = ((closureN)self_73654)->elts[29]; +c_731423.elts[30] = ((closureN)self_73654)->elts[30]; +c_731423.elts[31] = ((closureN)self_73654)->elts[31]; +c_731423.elts[32] = ((closureN)self_73654)->elts[32]; +c_731423.elts[33] = ((closureN)self_73654)->elts[33]; +c_731423.elts[34] = ((closureN)self_73654)->elts[34]; +c_731423.elts[35] = ((closureN)self_73654)->elts[35]; +c_731423.elts[36] = ((closureN)self_73654)->elts[36]; +c_731423.elts[37] = ((closureN)self_73654)->elts[37]; + + +make_cell(c_735103,((closureN)self_73654)->elts[21]); +return_closcall1(data,(closure)&c_731423, &c_735103);; +} + +static void __lambda_466(void *data, int argc, object self_73655, object symbol_91_125symbol_91record_73149) { + +closureN_type c_731425; +c_731425.hdr.mark = gc_color_red; + c_731425.hdr.grayed = 0; +c_731425.tag = closureN_tag; + c_731425.fn = (function_type)__lambda_465; +c_731425.num_args = 1; +c_731425.num_elt = 38; +c_731425.elts = (object *)alloca(sizeof(object) * 38); +c_731425.elts[0] = ((closureN)self_73655)->elts[1]; +c_731425.elts[1] = ((closureN)self_73655)->elts[2]; +c_731425.elts[2] = ((closureN)self_73655)->elts[3]; +c_731425.elts[3] = ((closureN)self_73655)->elts[4]; +c_731425.elts[4] = ((closureN)self_73655)->elts[5]; +c_731425.elts[5] = ((closureN)self_73655)->elts[6]; +c_731425.elts[6] = ((closureN)self_73655)->elts[7]; +c_731425.elts[7] = ((closureN)self_73655)->elts[8]; +c_731425.elts[8] = ((closureN)self_73655)->elts[9]; +c_731425.elts[9] = ((closureN)self_73655)->elts[10]; +c_731425.elts[10] = ((closureN)self_73655)->elts[11]; +c_731425.elts[11] = ((closureN)self_73655)->elts[12]; +c_731425.elts[12] = ((closureN)self_73655)->elts[13]; +c_731425.elts[13] = ((closureN)self_73655)->elts[14]; +c_731425.elts[14] = ((closureN)self_73655)->elts[15]; +c_731425.elts[15] = ((closureN)self_73655)->elts[16]; +c_731425.elts[16] = ((closureN)self_73655)->elts[17]; +c_731425.elts[17] = ((closureN)self_73655)->elts[18]; +c_731425.elts[18] = ((closureN)self_73655)->elts[19]; +c_731425.elts[19] = ((closureN)self_73655)->elts[20]; +c_731425.elts[20] = ((closureN)self_73655)->elts[21]; +c_731425.elts[21] = symbol_91_125symbol_91record_73149; +c_731425.elts[22] = ((closureN)self_73655)->elts[22]; +c_731425.elts[23] = ((closureN)self_73655)->elts[23]; +c_731425.elts[24] = ((closureN)self_73655)->elts[24]; +c_731425.elts[25] = ((closureN)self_73655)->elts[25]; +c_731425.elts[26] = ((closureN)self_73655)->elts[26]; +c_731425.elts[27] = ((closureN)self_73655)->elts[27]; +c_731425.elts[28] = ((closureN)self_73655)->elts[28]; +c_731425.elts[29] = ((closureN)self_73655)->elts[29]; +c_731425.elts[30] = ((closureN)self_73655)->elts[30]; +c_731425.elts[31] = ((closureN)self_73655)->elts[31]; +c_731425.elts[32] = ((closureN)self_73655)->elts[32]; +c_731425.elts[33] = ((closureN)self_73655)->elts[33]; +c_731425.elts[34] = ((closureN)self_73655)->elts[34]; +c_731425.elts[35] = ((closureN)self_73655)->elts[35]; +c_731425.elts[36] = ((closureN)self_73655)->elts[36]; +c_731425.elts[37] = ((closureN)self_73655)->elts[37]; + + +make_cell(c_735099,((closureN)self_73655)->elts[0]); +return_closcall1(data,(closure)&c_731425, &c_735099);; +} + +static void __lambda_465(void *data, int argc, object self_73656, object _85symbol_91records_91alist_85_73148) { + +closureN_type c_731427; +c_731427.hdr.mark = gc_color_red; + c_731427.hdr.grayed = 0; +c_731427.tag = closureN_tag; + c_731427.fn = (function_type)__lambda_464; +c_731427.num_args = 1; +c_731427.num_elt = 38; +c_731427.elts = (object *)alloca(sizeof(object) * 38); +c_731427.elts[0] = _85symbol_91records_91alist_85_73148; +c_731427.elts[1] = ((closureN)self_73656)->elts[0]; +c_731427.elts[2] = ((closureN)self_73656)->elts[1]; +c_731427.elts[3] = ((closureN)self_73656)->elts[2]; +c_731427.elts[4] = ((closureN)self_73656)->elts[3]; +c_731427.elts[5] = ((closureN)self_73656)->elts[4]; +c_731427.elts[6] = ((closureN)self_73656)->elts[5]; +c_731427.elts[7] = ((closureN)self_73656)->elts[6]; +c_731427.elts[8] = ((closureN)self_73656)->elts[7]; +c_731427.elts[9] = ((closureN)self_73656)->elts[8]; +c_731427.elts[10] = ((closureN)self_73656)->elts[9]; +c_731427.elts[11] = ((closureN)self_73656)->elts[11]; +c_731427.elts[12] = ((closureN)self_73656)->elts[12]; +c_731427.elts[13] = ((closureN)self_73656)->elts[13]; +c_731427.elts[14] = ((closureN)self_73656)->elts[14]; +c_731427.elts[15] = ((closureN)self_73656)->elts[15]; +c_731427.elts[16] = ((closureN)self_73656)->elts[16]; +c_731427.elts[17] = ((closureN)self_73656)->elts[17]; +c_731427.elts[18] = ((closureN)self_73656)->elts[18]; +c_731427.elts[19] = ((closureN)self_73656)->elts[19]; +c_731427.elts[20] = ((closureN)self_73656)->elts[20]; +c_731427.elts[21] = ((closureN)self_73656)->elts[21]; +c_731427.elts[22] = ((closureN)self_73656)->elts[22]; +c_731427.elts[23] = ((closureN)self_73656)->elts[23]; +c_731427.elts[24] = ((closureN)self_73656)->elts[24]; +c_731427.elts[25] = ((closureN)self_73656)->elts[25]; +c_731427.elts[26] = ((closureN)self_73656)->elts[26]; +c_731427.elts[27] = ((closureN)self_73656)->elts[27]; +c_731427.elts[28] = ((closureN)self_73656)->elts[28]; +c_731427.elts[29] = ((closureN)self_73656)->elts[29]; +c_731427.elts[30] = ((closureN)self_73656)->elts[30]; +c_731427.elts[31] = ((closureN)self_73656)->elts[31]; +c_731427.elts[32] = ((closureN)self_73656)->elts[32]; +c_731427.elts[33] = ((closureN)self_73656)->elts[33]; +c_731427.elts[34] = ((closureN)self_73656)->elts[34]; +c_731427.elts[35] = ((closureN)self_73656)->elts[35]; +c_731427.elts[36] = ((closureN)self_73656)->elts[36]; +c_731427.elts[37] = ((closureN)self_73656)->elts[37]; + + +make_cell(c_735095,((closureN)self_73656)->elts[10]); +return_closcall1(data,(closure)&c_731427, &c_735095);; +} + +static void __lambda_464(void *data, int argc, object self_73657, object make_91symbol_91record_73147) { + +closureN_type c_731429; +c_731429.hdr.mark = gc_color_red; + c_731429.hdr.grayed = 0; +c_731429.tag = closureN_tag; + c_731429.fn = (function_type)__lambda_463; +c_731429.num_args = 1; +c_731429.num_elt = 38; +c_731429.elts = (object *)alloca(sizeof(object) * 38); +c_731429.elts[0] = ((closureN)self_73657)->elts[0]; +c_731429.elts[1] = ((closureN)self_73657)->elts[1]; +c_731429.elts[2] = ((closureN)self_73657)->elts[2]; +c_731429.elts[3] = ((closureN)self_73657)->elts[3]; +c_731429.elts[4] = ((closureN)self_73657)->elts[4]; +c_731429.elts[5] = ((closureN)self_73657)->elts[5]; +c_731429.elts[6] = ((closureN)self_73657)->elts[6]; +c_731429.elts[7] = ((closureN)self_73657)->elts[7]; +c_731429.elts[8] = ((closureN)self_73657)->elts[8]; +c_731429.elts[9] = ((closureN)self_73657)->elts[9]; +c_731429.elts[10] = ((closureN)self_73657)->elts[10]; +c_731429.elts[11] = make_91symbol_91record_73147; +c_731429.elts[12] = ((closureN)self_73657)->elts[11]; +c_731429.elts[13] = ((closureN)self_73657)->elts[12]; +c_731429.elts[14] = ((closureN)self_73657)->elts[13]; +c_731429.elts[15] = ((closureN)self_73657)->elts[14]; +c_731429.elts[16] = ((closureN)self_73657)->elts[16]; +c_731429.elts[17] = ((closureN)self_73657)->elts[17]; +c_731429.elts[18] = ((closureN)self_73657)->elts[18]; +c_731429.elts[19] = ((closureN)self_73657)->elts[19]; +c_731429.elts[20] = ((closureN)self_73657)->elts[20]; +c_731429.elts[21] = ((closureN)self_73657)->elts[21]; +c_731429.elts[22] = ((closureN)self_73657)->elts[22]; +c_731429.elts[23] = ((closureN)self_73657)->elts[23]; +c_731429.elts[24] = ((closureN)self_73657)->elts[24]; +c_731429.elts[25] = ((closureN)self_73657)->elts[25]; +c_731429.elts[26] = ((closureN)self_73657)->elts[26]; +c_731429.elts[27] = ((closureN)self_73657)->elts[27]; +c_731429.elts[28] = ((closureN)self_73657)->elts[28]; +c_731429.elts[29] = ((closureN)self_73657)->elts[29]; +c_731429.elts[30] = ((closureN)self_73657)->elts[30]; +c_731429.elts[31] = ((closureN)self_73657)->elts[31]; +c_731429.elts[32] = ((closureN)self_73657)->elts[32]; +c_731429.elts[33] = ((closureN)self_73657)->elts[33]; +c_731429.elts[34] = ((closureN)self_73657)->elts[34]; +c_731429.elts[35] = ((closureN)self_73657)->elts[35]; +c_731429.elts[36] = ((closureN)self_73657)->elts[36]; +c_731429.elts[37] = ((closureN)self_73657)->elts[37]; + + +make_cell(c_735091,((closureN)self_73657)->elts[15]); +return_closcall1(data,(closure)&c_731429, &c_735091);; +} + +static void __lambda_463(void *data, int argc, object self_73658, object put_91lemmas_67_73146) { + +closureN_type c_731431; +c_731431.hdr.mark = gc_color_red; + c_731431.hdr.grayed = 0; +c_731431.tag = closureN_tag; + c_731431.fn = (function_type)__lambda_462; +c_731431.num_args = 1; +c_731431.num_elt = 38; +c_731431.elts = (object *)alloca(sizeof(object) * 38); +c_731431.elts[0] = ((closureN)self_73658)->elts[0]; +c_731431.elts[1] = ((closureN)self_73658)->elts[1]; +c_731431.elts[2] = ((closureN)self_73658)->elts[2]; +c_731431.elts[3] = ((closureN)self_73658)->elts[3]; +c_731431.elts[4] = ((closureN)self_73658)->elts[4]; +c_731431.elts[5] = ((closureN)self_73658)->elts[5]; +c_731431.elts[6] = ((closureN)self_73658)->elts[6]; +c_731431.elts[7] = ((closureN)self_73658)->elts[7]; +c_731431.elts[8] = ((closureN)self_73658)->elts[9]; +c_731431.elts[9] = ((closureN)self_73658)->elts[10]; +c_731431.elts[10] = ((closureN)self_73658)->elts[11]; +c_731431.elts[11] = ((closureN)self_73658)->elts[12]; +c_731431.elts[12] = ((closureN)self_73658)->elts[13]; +c_731431.elts[13] = ((closureN)self_73658)->elts[14]; +c_731431.elts[14] = ((closureN)self_73658)->elts[15]; +c_731431.elts[15] = put_91lemmas_67_73146; +c_731431.elts[16] = ((closureN)self_73658)->elts[16]; +c_731431.elts[17] = ((closureN)self_73658)->elts[17]; +c_731431.elts[18] = ((closureN)self_73658)->elts[18]; +c_731431.elts[19] = ((closureN)self_73658)->elts[19]; +c_731431.elts[20] = ((closureN)self_73658)->elts[20]; +c_731431.elts[21] = ((closureN)self_73658)->elts[21]; +c_731431.elts[22] = ((closureN)self_73658)->elts[22]; +c_731431.elts[23] = ((closureN)self_73658)->elts[23]; +c_731431.elts[24] = ((closureN)self_73658)->elts[24]; +c_731431.elts[25] = ((closureN)self_73658)->elts[25]; +c_731431.elts[26] = ((closureN)self_73658)->elts[26]; +c_731431.elts[27] = ((closureN)self_73658)->elts[27]; +c_731431.elts[28] = ((closureN)self_73658)->elts[28]; +c_731431.elts[29] = ((closureN)self_73658)->elts[29]; +c_731431.elts[30] = ((closureN)self_73658)->elts[30]; +c_731431.elts[31] = ((closureN)self_73658)->elts[31]; +c_731431.elts[32] = ((closureN)self_73658)->elts[32]; +c_731431.elts[33] = ((closureN)self_73658)->elts[33]; +c_731431.elts[34] = ((closureN)self_73658)->elts[34]; +c_731431.elts[35] = ((closureN)self_73658)->elts[35]; +c_731431.elts[36] = ((closureN)self_73658)->elts[36]; +c_731431.elts[37] = ((closureN)self_73658)->elts[37]; + + +make_cell(c_735087,((closureN)self_73658)->elts[8]); +return_closcall1(data,(closure)&c_731431, &c_735087);; +} + +static void __lambda_462(void *data, int argc, object self_73659, object get_91lemmas_73145) { + +closureN_type c_731433; +c_731433.hdr.mark = gc_color_red; + c_731433.hdr.grayed = 0; +c_731433.tag = closureN_tag; + c_731433.fn = (function_type)__lambda_461; +c_731433.num_args = 1; +c_731433.num_elt = 38; +c_731433.elts = (object *)alloca(sizeof(object) * 38); +c_731433.elts[0] = ((closureN)self_73659)->elts[0]; +c_731433.elts[1] = ((closureN)self_73659)->elts[1]; +c_731433.elts[2] = ((closureN)self_73659)->elts[2]; +c_731433.elts[3] = ((closureN)self_73659)->elts[3]; +c_731433.elts[4] = ((closureN)self_73659)->elts[4]; +c_731433.elts[5] = ((closureN)self_73659)->elts[5]; +c_731433.elts[6] = ((closureN)self_73659)->elts[6]; +c_731433.elts[7] = ((closureN)self_73659)->elts[7]; +c_731433.elts[8] = get_91lemmas_73145; +c_731433.elts[9] = ((closureN)self_73659)->elts[9]; +c_731433.elts[10] = ((closureN)self_73659)->elts[10]; +c_731433.elts[11] = ((closureN)self_73659)->elts[11]; +c_731433.elts[12] = ((closureN)self_73659)->elts[12]; +c_731433.elts[13] = ((closureN)self_73659)->elts[13]; +c_731433.elts[14] = ((closureN)self_73659)->elts[14]; +c_731433.elts[15] = ((closureN)self_73659)->elts[15]; +c_731433.elts[16] = ((closureN)self_73659)->elts[16]; +c_731433.elts[17] = ((closureN)self_73659)->elts[17]; +c_731433.elts[18] = ((closureN)self_73659)->elts[18]; +c_731433.elts[19] = ((closureN)self_73659)->elts[19]; +c_731433.elts[20] = ((closureN)self_73659)->elts[20]; +c_731433.elts[21] = ((closureN)self_73659)->elts[21]; +c_731433.elts[22] = ((closureN)self_73659)->elts[22]; +c_731433.elts[23] = ((closureN)self_73659)->elts[23]; +c_731433.elts[24] = ((closureN)self_73659)->elts[24]; +c_731433.elts[25] = ((closureN)self_73659)->elts[25]; +c_731433.elts[26] = ((closureN)self_73659)->elts[26]; +c_731433.elts[27] = ((closureN)self_73659)->elts[27]; +c_731433.elts[28] = ((closureN)self_73659)->elts[28]; +c_731433.elts[29] = ((closureN)self_73659)->elts[29]; +c_731433.elts[30] = ((closureN)self_73659)->elts[30]; +c_731433.elts[31] = ((closureN)self_73659)->elts[31]; +c_731433.elts[32] = ((closureN)self_73659)->elts[32]; +c_731433.elts[33] = ((closureN)self_73659)->elts[33]; +c_731433.elts[34] = ((closureN)self_73659)->elts[34]; +c_731433.elts[35] = ((closureN)self_73659)->elts[35]; +c_731433.elts[36] = ((closureN)self_73659)->elts[36]; +c_731433.elts[37] = ((closureN)self_73659)->elts[37]; + + +make_cell(c_735083,((closureN)self_73659)->elts[8]); +return_closcall1(data,(closure)&c_731433, &c_735083);; +} + +static void __lambda_461(void *data, int argc, object self_73660, object get_91name_73144) { + +closureN_type c_731435; +c_731435.hdr.mark = gc_color_red; + c_731435.hdr.grayed = 0; +c_731435.tag = closureN_tag; + c_731435.fn = (function_type)__lambda_460; +c_731435.num_args = 1; +c_731435.num_elt = 38; +c_731435.elts = (object *)alloca(sizeof(object) * 38); +c_731435.elts[0] = ((closureN)self_73660)->elts[0]; +c_731435.elts[1] = ((closureN)self_73660)->elts[1]; +c_731435.elts[2] = ((closureN)self_73660)->elts[2]; +c_731435.elts[3] = ((closureN)self_73660)->elts[3]; +c_731435.elts[4] = ((closureN)self_73660)->elts[4]; +c_731435.elts[5] = ((closureN)self_73660)->elts[5]; +c_731435.elts[6] = ((closureN)self_73660)->elts[6]; +c_731435.elts[7] = ((closureN)self_73660)->elts[7]; +c_731435.elts[8] = ((closureN)self_73660)->elts[8]; +c_731435.elts[9] = get_91name_73144; +c_731435.elts[10] = ((closureN)self_73660)->elts[9]; +c_731435.elts[11] = ((closureN)self_73660)->elts[10]; +c_731435.elts[12] = ((closureN)self_73660)->elts[11]; +c_731435.elts[13] = ((closureN)self_73660)->elts[12]; +c_731435.elts[14] = ((closureN)self_73660)->elts[13]; +c_731435.elts[15] = ((closureN)self_73660)->elts[14]; +c_731435.elts[16] = ((closureN)self_73660)->elts[15]; +c_731435.elts[17] = ((closureN)self_73660)->elts[16]; +c_731435.elts[18] = ((closureN)self_73660)->elts[17]; +c_731435.elts[19] = ((closureN)self_73660)->elts[18]; +c_731435.elts[20] = ((closureN)self_73660)->elts[19]; +c_731435.elts[21] = ((closureN)self_73660)->elts[20]; +c_731435.elts[22] = ((closureN)self_73660)->elts[21]; +c_731435.elts[23] = ((closureN)self_73660)->elts[23]; +c_731435.elts[24] = ((closureN)self_73660)->elts[24]; +c_731435.elts[25] = ((closureN)self_73660)->elts[25]; +c_731435.elts[26] = ((closureN)self_73660)->elts[26]; +c_731435.elts[27] = ((closureN)self_73660)->elts[27]; +c_731435.elts[28] = ((closureN)self_73660)->elts[28]; +c_731435.elts[29] = ((closureN)self_73660)->elts[29]; +c_731435.elts[30] = ((closureN)self_73660)->elts[30]; +c_731435.elts[31] = ((closureN)self_73660)->elts[31]; +c_731435.elts[32] = ((closureN)self_73660)->elts[32]; +c_731435.elts[33] = ((closureN)self_73660)->elts[33]; +c_731435.elts[34] = ((closureN)self_73660)->elts[34]; +c_731435.elts[35] = ((closureN)self_73660)->elts[35]; +c_731435.elts[36] = ((closureN)self_73660)->elts[36]; +c_731435.elts[37] = ((closureN)self_73660)->elts[37]; + + +make_cell(c_735079,((closureN)self_73660)->elts[22]); +return_closcall1(data,(closure)&c_731435, &c_735079);; +} + +static void __lambda_460(void *data, int argc, object self_73661, object symbol_91record_91equal_127_73143) { + +closureN_type c_731437; +c_731437.hdr.mark = gc_color_red; + c_731437.hdr.grayed = 0; +c_731437.tag = closureN_tag; + c_731437.fn = (function_type)__lambda_459; +c_731437.num_args = 1; +c_731437.num_elt = 38; +c_731437.elts = (object *)alloca(sizeof(object) * 38); +c_731437.elts[0] = ((closureN)self_73661)->elts[0]; +c_731437.elts[1] = ((closureN)self_73661)->elts[1]; +c_731437.elts[2] = ((closureN)self_73661)->elts[2]; +c_731437.elts[3] = ((closureN)self_73661)->elts[3]; +c_731437.elts[4] = ((closureN)self_73661)->elts[4]; +c_731437.elts[5] = ((closureN)self_73661)->elts[5]; +c_731437.elts[6] = ((closureN)self_73661)->elts[6]; +c_731437.elts[7] = ((closureN)self_73661)->elts[7]; +c_731437.elts[8] = ((closureN)self_73661)->elts[8]; +c_731437.elts[9] = ((closureN)self_73661)->elts[9]; +c_731437.elts[10] = ((closureN)self_73661)->elts[10]; +c_731437.elts[11] = ((closureN)self_73661)->elts[11]; +c_731437.elts[12] = ((closureN)self_73661)->elts[12]; +c_731437.elts[13] = ((closureN)self_73661)->elts[13]; +c_731437.elts[14] = ((closureN)self_73661)->elts[14]; +c_731437.elts[15] = ((closureN)self_73661)->elts[15]; +c_731437.elts[16] = ((closureN)self_73661)->elts[16]; +c_731437.elts[17] = ((closureN)self_73661)->elts[17]; +c_731437.elts[18] = ((closureN)self_73661)->elts[18]; +c_731437.elts[19] = ((closureN)self_73661)->elts[19]; +c_731437.elts[20] = ((closureN)self_73661)->elts[20]; +c_731437.elts[21] = ((closureN)self_73661)->elts[21]; +c_731437.elts[22] = ((closureN)self_73661)->elts[22]; +c_731437.elts[23] = symbol_91record_91equal_127_73143; +c_731437.elts[24] = ((closureN)self_73661)->elts[23]; +c_731437.elts[25] = ((closureN)self_73661)->elts[24]; +c_731437.elts[26] = ((closureN)self_73661)->elts[25]; +c_731437.elts[27] = ((closureN)self_73661)->elts[26]; +c_731437.elts[28] = ((closureN)self_73661)->elts[27]; +c_731437.elts[29] = ((closureN)self_73661)->elts[29]; +c_731437.elts[30] = ((closureN)self_73661)->elts[30]; +c_731437.elts[31] = ((closureN)self_73661)->elts[31]; +c_731437.elts[32] = ((closureN)self_73661)->elts[32]; +c_731437.elts[33] = ((closureN)self_73661)->elts[33]; +c_731437.elts[34] = ((closureN)self_73661)->elts[34]; +c_731437.elts[35] = ((closureN)self_73661)->elts[35]; +c_731437.elts[36] = ((closureN)self_73661)->elts[36]; +c_731437.elts[37] = ((closureN)self_73661)->elts[37]; + + +make_cell(c_735075,((closureN)self_73661)->elts[28]); +return_closcall1(data,(closure)&c_731437, &c_735075);; +} + +static void __lambda_459(void *data, int argc, object self_73662, object test_73142) { + +closureN_type c_731439; +c_731439.hdr.mark = gc_color_red; + c_731439.hdr.grayed = 0; +c_731439.tag = closureN_tag; + c_731439.fn = (function_type)__lambda_458; +c_731439.num_args = 1; +c_731439.num_elt = 38; +c_731439.elts = (object *)alloca(sizeof(object) * 38); +c_731439.elts[0] = ((closureN)self_73662)->elts[0]; +c_731439.elts[1] = ((closureN)self_73662)->elts[1]; +c_731439.elts[2] = ((closureN)self_73662)->elts[2]; +c_731439.elts[3] = ((closureN)self_73662)->elts[3]; +c_731439.elts[4] = ((closureN)self_73662)->elts[4]; +c_731439.elts[5] = ((closureN)self_73662)->elts[5]; +c_731439.elts[6] = ((closureN)self_73662)->elts[6]; +c_731439.elts[7] = ((closureN)self_73662)->elts[7]; +c_731439.elts[8] = ((closureN)self_73662)->elts[8]; +c_731439.elts[9] = ((closureN)self_73662)->elts[9]; +c_731439.elts[10] = ((closureN)self_73662)->elts[10]; +c_731439.elts[11] = ((closureN)self_73662)->elts[11]; +c_731439.elts[12] = ((closureN)self_73662)->elts[12]; +c_731439.elts[13] = ((closureN)self_73662)->elts[13]; +c_731439.elts[14] = ((closureN)self_73662)->elts[14]; +c_731439.elts[15] = ((closureN)self_73662)->elts[15]; +c_731439.elts[16] = ((closureN)self_73662)->elts[16]; +c_731439.elts[17] = ((closureN)self_73662)->elts[17]; +c_731439.elts[18] = ((closureN)self_73662)->elts[18]; +c_731439.elts[19] = ((closureN)self_73662)->elts[19]; +c_731439.elts[20] = ((closureN)self_73662)->elts[20]; +c_731439.elts[21] = ((closureN)self_73662)->elts[21]; +c_731439.elts[22] = ((closureN)self_73662)->elts[22]; +c_731439.elts[23] = ((closureN)self_73662)->elts[23]; +c_731439.elts[24] = ((closureN)self_73662)->elts[24]; +c_731439.elts[25] = ((closureN)self_73662)->elts[25]; +c_731439.elts[26] = ((closureN)self_73662)->elts[26]; +c_731439.elts[27] = ((closureN)self_73662)->elts[27]; +c_731439.elts[28] = ((closureN)self_73662)->elts[28]; +c_731439.elts[29] = test_73142; +c_731439.elts[30] = ((closureN)self_73662)->elts[29]; +c_731439.elts[31] = ((closureN)self_73662)->elts[30]; +c_731439.elts[32] = ((closureN)self_73662)->elts[32]; +c_731439.elts[33] = ((closureN)self_73662)->elts[33]; +c_731439.elts[34] = ((closureN)self_73662)->elts[34]; +c_731439.elts[35] = ((closureN)self_73662)->elts[35]; +c_731439.elts[36] = ((closureN)self_73662)->elts[36]; +c_731439.elts[37] = ((closureN)self_73662)->elts[37]; + + +make_cell(c_735071,((closureN)self_73662)->elts[31]); +return_closcall1(data,(closure)&c_731439, &c_735071);; +} + +static void __lambda_458(void *data, int argc, object self_73663, object translate_91alist_73141) { + +closureN_type c_731441; +c_731441.hdr.mark = gc_color_red; + c_731441.hdr.grayed = 0; +c_731441.tag = closureN_tag; + c_731441.fn = (function_type)__lambda_457; +c_731441.num_args = 1; +c_731441.num_elt = 38; +c_731441.elts = (object *)alloca(sizeof(object) * 38); +c_731441.elts[0] = ((closureN)self_73663)->elts[0]; +c_731441.elts[1] = ((closureN)self_73663)->elts[1]; +c_731441.elts[2] = ((closureN)self_73663)->elts[2]; +c_731441.elts[3] = ((closureN)self_73663)->elts[4]; +c_731441.elts[4] = ((closureN)self_73663)->elts[5]; +c_731441.elts[5] = ((closureN)self_73663)->elts[6]; +c_731441.elts[6] = ((closureN)self_73663)->elts[7]; +c_731441.elts[7] = ((closureN)self_73663)->elts[8]; +c_731441.elts[8] = ((closureN)self_73663)->elts[9]; +c_731441.elts[9] = ((closureN)self_73663)->elts[10]; +c_731441.elts[10] = ((closureN)self_73663)->elts[11]; +c_731441.elts[11] = ((closureN)self_73663)->elts[12]; +c_731441.elts[12] = ((closureN)self_73663)->elts[13]; +c_731441.elts[13] = ((closureN)self_73663)->elts[14]; +c_731441.elts[14] = ((closureN)self_73663)->elts[15]; +c_731441.elts[15] = ((closureN)self_73663)->elts[16]; +c_731441.elts[16] = ((closureN)self_73663)->elts[17]; +c_731441.elts[17] = ((closureN)self_73663)->elts[18]; +c_731441.elts[18] = ((closureN)self_73663)->elts[19]; +c_731441.elts[19] = ((closureN)self_73663)->elts[20]; +c_731441.elts[20] = ((closureN)self_73663)->elts[21]; +c_731441.elts[21] = ((closureN)self_73663)->elts[22]; +c_731441.elts[22] = ((closureN)self_73663)->elts[23]; +c_731441.elts[23] = ((closureN)self_73663)->elts[24]; +c_731441.elts[24] = ((closureN)self_73663)->elts[25]; +c_731441.elts[25] = ((closureN)self_73663)->elts[26]; +c_731441.elts[26] = ((closureN)self_73663)->elts[27]; +c_731441.elts[27] = ((closureN)self_73663)->elts[28]; +c_731441.elts[28] = ((closureN)self_73663)->elts[29]; +c_731441.elts[29] = ((closureN)self_73663)->elts[30]; +c_731441.elts[30] = ((closureN)self_73663)->elts[31]; +c_731441.elts[31] = translate_91alist_73141; +c_731441.elts[32] = ((closureN)self_73663)->elts[32]; +c_731441.elts[33] = ((closureN)self_73663)->elts[33]; +c_731441.elts[34] = ((closureN)self_73663)->elts[34]; +c_731441.elts[35] = ((closureN)self_73663)->elts[35]; +c_731441.elts[36] = ((closureN)self_73663)->elts[36]; +c_731441.elts[37] = ((closureN)self_73663)->elts[37]; + + +make_cell(c_735067,((closureN)self_73663)->elts[3]); +return_closcall1(data,(closure)&c_731441, &c_735067);; +} + +static void __lambda_457(void *data, int argc, object self_73664, object apply_91subst_73140) { + +closureN_type c_731443; +c_731443.hdr.mark = gc_color_red; + c_731443.hdr.grayed = 0; +c_731443.tag = closureN_tag; + c_731443.fn = (function_type)__lambda_456; +c_731443.num_args = 1; +c_731443.num_elt = 38; +c_731443.elts = (object *)alloca(sizeof(object) * 38); +c_731443.elts[0] = ((closureN)self_73664)->elts[0]; +c_731443.elts[1] = ((closureN)self_73664)->elts[1]; +c_731443.elts[2] = ((closureN)self_73664)->elts[2]; +c_731443.elts[3] = apply_91subst_73140; +c_731443.elts[4] = ((closureN)self_73664)->elts[4]; +c_731443.elts[5] = ((closureN)self_73664)->elts[5]; +c_731443.elts[6] = ((closureN)self_73664)->elts[6]; +c_731443.elts[7] = ((closureN)self_73664)->elts[7]; +c_731443.elts[8] = ((closureN)self_73664)->elts[8]; +c_731443.elts[9] = ((closureN)self_73664)->elts[9]; +c_731443.elts[10] = ((closureN)self_73664)->elts[10]; +c_731443.elts[11] = ((closureN)self_73664)->elts[11]; +c_731443.elts[12] = ((closureN)self_73664)->elts[12]; +c_731443.elts[13] = ((closureN)self_73664)->elts[13]; +c_731443.elts[14] = ((closureN)self_73664)->elts[14]; +c_731443.elts[15] = ((closureN)self_73664)->elts[15]; +c_731443.elts[16] = ((closureN)self_73664)->elts[16]; +c_731443.elts[17] = ((closureN)self_73664)->elts[17]; +c_731443.elts[18] = ((closureN)self_73664)->elts[18]; +c_731443.elts[19] = ((closureN)self_73664)->elts[19]; +c_731443.elts[20] = ((closureN)self_73664)->elts[20]; +c_731443.elts[21] = ((closureN)self_73664)->elts[21]; +c_731443.elts[22] = ((closureN)self_73664)->elts[22]; +c_731443.elts[23] = ((closureN)self_73664)->elts[23]; +c_731443.elts[24] = ((closureN)self_73664)->elts[24]; +c_731443.elts[25] = ((closureN)self_73664)->elts[25]; +c_731443.elts[26] = ((closureN)self_73664)->elts[26]; +c_731443.elts[27] = ((closureN)self_73664)->elts[27]; +c_731443.elts[28] = ((closureN)self_73664)->elts[28]; +c_731443.elts[29] = ((closureN)self_73664)->elts[29]; +c_731443.elts[30] = ((closureN)self_73664)->elts[30]; +c_731443.elts[31] = ((closureN)self_73664)->elts[31]; +c_731443.elts[32] = ((closureN)self_73664)->elts[32]; +c_731443.elts[33] = ((closureN)self_73664)->elts[33]; +c_731443.elts[34] = ((closureN)self_73664)->elts[34]; +c_731443.elts[35] = ((closureN)self_73664)->elts[35]; +c_731443.elts[36] = ((closureN)self_73664)->elts[36]; +c_731443.elts[37] = ((closureN)self_73664)->elts[37]; + + +make_cell(c_735063,((closureN)self_73664)->elts[3]); +return_closcall1(data,(closure)&c_731443, &c_735063);; +} + +static void __lambda_456(void *data, int argc, object self_73665, object apply_91subst_91lst_73139) { + +closureN_type c_731445; +c_731445.hdr.mark = gc_color_red; + c_731445.hdr.grayed = 0; +c_731445.tag = closureN_tag; + c_731445.fn = (function_type)__lambda_455; +c_731445.num_args = 1; +c_731445.num_elt = 38; +c_731445.elts = (object *)alloca(sizeof(object) * 38); +c_731445.elts[0] = ((closureN)self_73665)->elts[0]; +c_731445.elts[1] = ((closureN)self_73665)->elts[1]; +c_731445.elts[2] = ((closureN)self_73665)->elts[2]; +c_731445.elts[3] = ((closureN)self_73665)->elts[3]; +c_731445.elts[4] = apply_91subst_91lst_73139; +c_731445.elts[5] = ((closureN)self_73665)->elts[4]; +c_731445.elts[6] = ((closureN)self_73665)->elts[5]; +c_731445.elts[7] = ((closureN)self_73665)->elts[6]; +c_731445.elts[8] = ((closureN)self_73665)->elts[7]; +c_731445.elts[9] = ((closureN)self_73665)->elts[8]; +c_731445.elts[10] = ((closureN)self_73665)->elts[9]; +c_731445.elts[11] = ((closureN)self_73665)->elts[10]; +c_731445.elts[12] = ((closureN)self_73665)->elts[11]; +c_731445.elts[13] = ((closureN)self_73665)->elts[12]; +c_731445.elts[14] = ((closureN)self_73665)->elts[13]; +c_731445.elts[15] = ((closureN)self_73665)->elts[14]; +c_731445.elts[16] = ((closureN)self_73665)->elts[15]; +c_731445.elts[17] = ((closureN)self_73665)->elts[16]; +c_731445.elts[18] = ((closureN)self_73665)->elts[17]; +c_731445.elts[19] = ((closureN)self_73665)->elts[18]; +c_731445.elts[20] = ((closureN)self_73665)->elts[19]; +c_731445.elts[21] = ((closureN)self_73665)->elts[20]; +c_731445.elts[22] = ((closureN)self_73665)->elts[21]; +c_731445.elts[23] = ((closureN)self_73665)->elts[22]; +c_731445.elts[24] = ((closureN)self_73665)->elts[23]; +c_731445.elts[25] = ((closureN)self_73665)->elts[25]; +c_731445.elts[26] = ((closureN)self_73665)->elts[26]; +c_731445.elts[27] = ((closureN)self_73665)->elts[27]; +c_731445.elts[28] = ((closureN)self_73665)->elts[28]; +c_731445.elts[29] = ((closureN)self_73665)->elts[29]; +c_731445.elts[30] = ((closureN)self_73665)->elts[30]; +c_731445.elts[31] = ((closureN)self_73665)->elts[31]; +c_731445.elts[32] = ((closureN)self_73665)->elts[32]; +c_731445.elts[33] = ((closureN)self_73665)->elts[33]; +c_731445.elts[34] = ((closureN)self_73665)->elts[34]; +c_731445.elts[35] = ((closureN)self_73665)->elts[35]; +c_731445.elts[36] = ((closureN)self_73665)->elts[36]; +c_731445.elts[37] = ((closureN)self_73665)->elts[37]; + + +make_cell(c_735059,((closureN)self_73665)->elts[24]); +return_closcall1(data,(closure)&c_731445, &c_735059);; +} + +static void __lambda_455(void *data, int argc, object self_73666, object tautp_73138) { + +closureN_type c_731447; +c_731447.hdr.mark = gc_color_red; + c_731447.hdr.grayed = 0; +c_731447.tag = closureN_tag; + c_731447.fn = (function_type)__lambda_454; +c_731447.num_args = 1; +c_731447.num_elt = 38; +c_731447.elts = (object *)alloca(sizeof(object) * 38); +c_731447.elts[0] = ((closureN)self_73666)->elts[0]; +c_731447.elts[1] = ((closureN)self_73666)->elts[1]; +c_731447.elts[2] = ((closureN)self_73666)->elts[2]; +c_731447.elts[3] = ((closureN)self_73666)->elts[3]; +c_731447.elts[4] = ((closureN)self_73666)->elts[4]; +c_731447.elts[5] = ((closureN)self_73666)->elts[5]; +c_731447.elts[6] = ((closureN)self_73666)->elts[6]; +c_731447.elts[7] = ((closureN)self_73666)->elts[7]; +c_731447.elts[8] = ((closureN)self_73666)->elts[8]; +c_731447.elts[9] = ((closureN)self_73666)->elts[9]; +c_731447.elts[10] = ((closureN)self_73666)->elts[10]; +c_731447.elts[11] = ((closureN)self_73666)->elts[11]; +c_731447.elts[12] = ((closureN)self_73666)->elts[12]; +c_731447.elts[13] = ((closureN)self_73666)->elts[13]; +c_731447.elts[14] = ((closureN)self_73666)->elts[14]; +c_731447.elts[15] = ((closureN)self_73666)->elts[15]; +c_731447.elts[16] = ((closureN)self_73666)->elts[16]; +c_731447.elts[17] = ((closureN)self_73666)->elts[17]; +c_731447.elts[18] = ((closureN)self_73666)->elts[18]; +c_731447.elts[19] = ((closureN)self_73666)->elts[19]; +c_731447.elts[20] = ((closureN)self_73666)->elts[20]; +c_731447.elts[21] = ((closureN)self_73666)->elts[21]; +c_731447.elts[22] = ((closureN)self_73666)->elts[22]; +c_731447.elts[23] = ((closureN)self_73666)->elts[23]; +c_731447.elts[24] = tautp_73138; +c_731447.elts[25] = ((closureN)self_73666)->elts[25]; +c_731447.elts[26] = ((closureN)self_73666)->elts[26]; +c_731447.elts[27] = ((closureN)self_73666)->elts[27]; +c_731447.elts[28] = ((closureN)self_73666)->elts[28]; +c_731447.elts[29] = ((closureN)self_73666)->elts[29]; +c_731447.elts[30] = ((closureN)self_73666)->elts[30]; +c_731447.elts[31] = ((closureN)self_73666)->elts[31]; +c_731447.elts[32] = ((closureN)self_73666)->elts[32]; +c_731447.elts[33] = ((closureN)self_73666)->elts[33]; +c_731447.elts[34] = ((closureN)self_73666)->elts[34]; +c_731447.elts[35] = ((closureN)self_73666)->elts[35]; +c_731447.elts[36] = ((closureN)self_73666)->elts[36]; +c_731447.elts[37] = ((closureN)self_73666)->elts[37]; + + +make_cell(c_735055,((closureN)self_73666)->elts[24]); +return_closcall1(data,(closure)&c_731447, &c_735055);; +} + +static void __lambda_454(void *data, int argc, object self_73667, object tautologyp_73137) { + +closureN_type c_731449; +c_731449.hdr.mark = gc_color_red; + c_731449.hdr.grayed = 0; +c_731449.tag = closureN_tag; + c_731449.fn = (function_type)__lambda_453; +c_731449.num_args = 1; +c_731449.num_elt = 38; +c_731449.elts = (object *)alloca(sizeof(object) * 38); +c_731449.elts[0] = ((closureN)self_73667)->elts[0]; +c_731449.elts[1] = ((closureN)self_73667)->elts[1]; +c_731449.elts[2] = ((closureN)self_73667)->elts[2]; +c_731449.elts[3] = ((closureN)self_73667)->elts[3]; +c_731449.elts[4] = ((closureN)self_73667)->elts[4]; +c_731449.elts[5] = ((closureN)self_73667)->elts[5]; +c_731449.elts[6] = ((closureN)self_73667)->elts[6]; +c_731449.elts[7] = ((closureN)self_73667)->elts[7]; +c_731449.elts[8] = ((closureN)self_73667)->elts[8]; +c_731449.elts[9] = ((closureN)self_73667)->elts[9]; +c_731449.elts[10] = ((closureN)self_73667)->elts[11]; +c_731449.elts[11] = ((closureN)self_73667)->elts[12]; +c_731449.elts[12] = ((closureN)self_73667)->elts[13]; +c_731449.elts[13] = ((closureN)self_73667)->elts[14]; +c_731449.elts[14] = ((closureN)self_73667)->elts[15]; +c_731449.elts[15] = ((closureN)self_73667)->elts[16]; +c_731449.elts[16] = ((closureN)self_73667)->elts[17]; +c_731449.elts[17] = ((closureN)self_73667)->elts[18]; +c_731449.elts[18] = ((closureN)self_73667)->elts[19]; +c_731449.elts[19] = ((closureN)self_73667)->elts[20]; +c_731449.elts[20] = ((closureN)self_73667)->elts[21]; +c_731449.elts[21] = ((closureN)self_73667)->elts[22]; +c_731449.elts[22] = ((closureN)self_73667)->elts[23]; +c_731449.elts[23] = tautologyp_73137; +c_731449.elts[24] = ((closureN)self_73667)->elts[24]; +c_731449.elts[25] = ((closureN)self_73667)->elts[25]; +c_731449.elts[26] = ((closureN)self_73667)->elts[26]; +c_731449.elts[27] = ((closureN)self_73667)->elts[27]; +c_731449.elts[28] = ((closureN)self_73667)->elts[28]; +c_731449.elts[29] = ((closureN)self_73667)->elts[29]; +c_731449.elts[30] = ((closureN)self_73667)->elts[30]; +c_731449.elts[31] = ((closureN)self_73667)->elts[31]; +c_731449.elts[32] = ((closureN)self_73667)->elts[32]; +c_731449.elts[33] = ((closureN)self_73667)->elts[33]; +c_731449.elts[34] = ((closureN)self_73667)->elts[34]; +c_731449.elts[35] = ((closureN)self_73667)->elts[35]; +c_731449.elts[36] = ((closureN)self_73667)->elts[36]; +c_731449.elts[37] = ((closureN)self_73667)->elts[37]; + + +make_cell(c_735051,((closureN)self_73667)->elts[10]); +return_closcall1(data,(closure)&c_731449, &c_735051);; +} + +static void __lambda_453(void *data, int argc, object self_73668, object if_91constructor_73136) { + +closureN_type c_731451; +c_731451.hdr.mark = gc_color_red; + c_731451.hdr.grayed = 0; +c_731451.tag = closureN_tag; + c_731451.fn = (function_type)__lambda_452; +c_731451.num_args = 1; +c_731451.num_elt = 38; +c_731451.elts = (object *)alloca(sizeof(object) * 38); +c_731451.elts[0] = ((closureN)self_73668)->elts[0]; +c_731451.elts[1] = ((closureN)self_73668)->elts[1]; +c_731451.elts[2] = ((closureN)self_73668)->elts[2]; +c_731451.elts[3] = ((closureN)self_73668)->elts[3]; +c_731451.elts[4] = ((closureN)self_73668)->elts[4]; +c_731451.elts[5] = ((closureN)self_73668)->elts[5]; +c_731451.elts[6] = ((closureN)self_73668)->elts[6]; +c_731451.elts[7] = ((closureN)self_73668)->elts[7]; +c_731451.elts[8] = ((closureN)self_73668)->elts[8]; +c_731451.elts[9] = ((closureN)self_73668)->elts[9]; +c_731451.elts[10] = if_91constructor_73136; +c_731451.elts[11] = ((closureN)self_73668)->elts[10]; +c_731451.elts[12] = ((closureN)self_73668)->elts[11]; +c_731451.elts[13] = ((closureN)self_73668)->elts[12]; +c_731451.elts[14] = ((closureN)self_73668)->elts[13]; +c_731451.elts[15] = ((closureN)self_73668)->elts[14]; +c_731451.elts[16] = ((closureN)self_73668)->elts[15]; +c_731451.elts[17] = ((closureN)self_73668)->elts[16]; +c_731451.elts[18] = ((closureN)self_73668)->elts[17]; +c_731451.elts[19] = ((closureN)self_73668)->elts[19]; +c_731451.elts[20] = ((closureN)self_73668)->elts[20]; +c_731451.elts[21] = ((closureN)self_73668)->elts[21]; +c_731451.elts[22] = ((closureN)self_73668)->elts[22]; +c_731451.elts[23] = ((closureN)self_73668)->elts[23]; +c_731451.elts[24] = ((closureN)self_73668)->elts[24]; +c_731451.elts[25] = ((closureN)self_73668)->elts[25]; +c_731451.elts[26] = ((closureN)self_73668)->elts[26]; +c_731451.elts[27] = ((closureN)self_73668)->elts[27]; +c_731451.elts[28] = ((closureN)self_73668)->elts[28]; +c_731451.elts[29] = ((closureN)self_73668)->elts[29]; +c_731451.elts[30] = ((closureN)self_73668)->elts[30]; +c_731451.elts[31] = ((closureN)self_73668)->elts[31]; +c_731451.elts[32] = ((closureN)self_73668)->elts[32]; +c_731451.elts[33] = ((closureN)self_73668)->elts[33]; +c_731451.elts[34] = ((closureN)self_73668)->elts[34]; +c_731451.elts[35] = ((closureN)self_73668)->elts[35]; +c_731451.elts[36] = ((closureN)self_73668)->elts[36]; +c_731451.elts[37] = ((closureN)self_73668)->elts[37]; + + +make_cell(c_735047,((closureN)self_73668)->elts[18]); +return_closcall1(data,(closure)&c_731451, &c_735047);; +} + +static void __lambda_452(void *data, int argc, object self_73669, object rewrite_91count_73135) { + +closureN_type c_731453; +c_731453.hdr.mark = gc_color_red; + c_731453.hdr.grayed = 0; +c_731453.tag = closureN_tag; + c_731453.fn = (function_type)__lambda_451; +c_731453.num_args = 1; +c_731453.num_elt = 38; +c_731453.elts = (object *)alloca(sizeof(object) * 38); +c_731453.elts[0] = ((closureN)self_73669)->elts[0]; +c_731453.elts[1] = ((closureN)self_73669)->elts[1]; +c_731453.elts[2] = ((closureN)self_73669)->elts[2]; +c_731453.elts[3] = ((closureN)self_73669)->elts[3]; +c_731453.elts[4] = ((closureN)self_73669)->elts[4]; +c_731453.elts[5] = ((closureN)self_73669)->elts[5]; +c_731453.elts[6] = ((closureN)self_73669)->elts[6]; +c_731453.elts[7] = ((closureN)self_73669)->elts[7]; +c_731453.elts[8] = ((closureN)self_73669)->elts[8]; +c_731453.elts[9] = ((closureN)self_73669)->elts[9]; +c_731453.elts[10] = ((closureN)self_73669)->elts[10]; +c_731453.elts[11] = ((closureN)self_73669)->elts[11]; +c_731453.elts[12] = ((closureN)self_73669)->elts[12]; +c_731453.elts[13] = ((closureN)self_73669)->elts[13]; +c_731453.elts[14] = ((closureN)self_73669)->elts[14]; +c_731453.elts[15] = ((closureN)self_73669)->elts[15]; +c_731453.elts[16] = ((closureN)self_73669)->elts[16]; +c_731453.elts[17] = ((closureN)self_73669)->elts[18]; +c_731453.elts[18] = rewrite_91count_73135; +c_731453.elts[19] = ((closureN)self_73669)->elts[19]; +c_731453.elts[20] = ((closureN)self_73669)->elts[20]; +c_731453.elts[21] = ((closureN)self_73669)->elts[21]; +c_731453.elts[22] = ((closureN)self_73669)->elts[22]; +c_731453.elts[23] = ((closureN)self_73669)->elts[23]; +c_731453.elts[24] = ((closureN)self_73669)->elts[24]; +c_731453.elts[25] = ((closureN)self_73669)->elts[25]; +c_731453.elts[26] = ((closureN)self_73669)->elts[26]; +c_731453.elts[27] = ((closureN)self_73669)->elts[27]; +c_731453.elts[28] = ((closureN)self_73669)->elts[28]; +c_731453.elts[29] = ((closureN)self_73669)->elts[29]; +c_731453.elts[30] = ((closureN)self_73669)->elts[30]; +c_731453.elts[31] = ((closureN)self_73669)->elts[31]; +c_731453.elts[32] = ((closureN)self_73669)->elts[32]; +c_731453.elts[33] = ((closureN)self_73669)->elts[33]; +c_731453.elts[34] = ((closureN)self_73669)->elts[34]; +c_731453.elts[35] = ((closureN)self_73669)->elts[35]; +c_731453.elts[36] = ((closureN)self_73669)->elts[36]; +c_731453.elts[37] = ((closureN)self_73669)->elts[37]; + + +make_cell(c_735043,((closureN)self_73669)->elts[17]); +return_closcall1(data,(closure)&c_731453, &c_735043);; +} + +static void __lambda_451(void *data, int argc, object self_73670, object rewrite_73134) { + +closureN_type c_731455; +c_731455.hdr.mark = gc_color_red; + c_731455.hdr.grayed = 0; +c_731455.tag = closureN_tag; + c_731455.fn = (function_type)__lambda_450; +c_731455.num_args = 1; +c_731455.num_elt = 38; +c_731455.elts = (object *)alloca(sizeof(object) * 38); +c_731455.elts[0] = ((closureN)self_73670)->elts[0]; +c_731455.elts[1] = ((closureN)self_73670)->elts[1]; +c_731455.elts[2] = ((closureN)self_73670)->elts[2]; +c_731455.elts[3] = ((closureN)self_73670)->elts[3]; +c_731455.elts[4] = ((closureN)self_73670)->elts[4]; +c_731455.elts[5] = ((closureN)self_73670)->elts[5]; +c_731455.elts[6] = ((closureN)self_73670)->elts[6]; +c_731455.elts[7] = ((closureN)self_73670)->elts[7]; +c_731455.elts[8] = ((closureN)self_73670)->elts[8]; +c_731455.elts[9] = ((closureN)self_73670)->elts[9]; +c_731455.elts[10] = ((closureN)self_73670)->elts[10]; +c_731455.elts[11] = ((closureN)self_73670)->elts[11]; +c_731455.elts[12] = ((closureN)self_73670)->elts[12]; +c_731455.elts[13] = ((closureN)self_73670)->elts[13]; +c_731455.elts[14] = ((closureN)self_73670)->elts[14]; +c_731455.elts[15] = ((closureN)self_73670)->elts[15]; +c_731455.elts[16] = ((closureN)self_73670)->elts[16]; +c_731455.elts[17] = rewrite_73134; +c_731455.elts[18] = ((closureN)self_73670)->elts[18]; +c_731455.elts[19] = ((closureN)self_73670)->elts[19]; +c_731455.elts[20] = ((closureN)self_73670)->elts[20]; +c_731455.elts[21] = ((closureN)self_73670)->elts[21]; +c_731455.elts[22] = ((closureN)self_73670)->elts[22]; +c_731455.elts[23] = ((closureN)self_73670)->elts[23]; +c_731455.elts[24] = ((closureN)self_73670)->elts[24]; +c_731455.elts[25] = ((closureN)self_73670)->elts[25]; +c_731455.elts[26] = ((closureN)self_73670)->elts[26]; +c_731455.elts[27] = ((closureN)self_73670)->elts[27]; +c_731455.elts[28] = ((closureN)self_73670)->elts[28]; +c_731455.elts[29] = ((closureN)self_73670)->elts[29]; +c_731455.elts[30] = ((closureN)self_73670)->elts[30]; +c_731455.elts[31] = ((closureN)self_73670)->elts[31]; +c_731455.elts[32] = ((closureN)self_73670)->elts[32]; +c_731455.elts[33] = ((closureN)self_73670)->elts[33]; +c_731455.elts[34] = ((closureN)self_73670)->elts[34]; +c_731455.elts[35] = ((closureN)self_73670)->elts[35]; +c_731455.elts[36] = ((closureN)self_73670)->elts[36]; +c_731455.elts[37] = ((closureN)self_73670)->elts[37]; + + +make_cell(c_735039,((closureN)self_73670)->elts[17]); +return_closcall1(data,(closure)&c_731455, &c_735039);; +} + +static void __lambda_450(void *data, int argc, object self_73671, object rewrite_91args_73133) { + +closureN_type c_731457; +c_731457.hdr.mark = gc_color_red; + c_731457.hdr.grayed = 0; +c_731457.tag = closureN_tag; + c_731457.fn = (function_type)__lambda_449; +c_731457.num_args = 1; +c_731457.num_elt = 38; +c_731457.elts = (object *)alloca(sizeof(object) * 38); +c_731457.elts[0] = ((closureN)self_73671)->elts[0]; +c_731457.elts[1] = ((closureN)self_73671)->elts[1]; +c_731457.elts[2] = ((closureN)self_73671)->elts[2]; +c_731457.elts[3] = ((closureN)self_73671)->elts[3]; +c_731457.elts[4] = ((closureN)self_73671)->elts[4]; +c_731457.elts[5] = ((closureN)self_73671)->elts[5]; +c_731457.elts[6] = ((closureN)self_73671)->elts[6]; +c_731457.elts[7] = ((closureN)self_73671)->elts[7]; +c_731457.elts[8] = ((closureN)self_73671)->elts[8]; +c_731457.elts[9] = ((closureN)self_73671)->elts[9]; +c_731457.elts[10] = ((closureN)self_73671)->elts[10]; +c_731457.elts[11] = ((closureN)self_73671)->elts[11]; +c_731457.elts[12] = ((closureN)self_73671)->elts[12]; +c_731457.elts[13] = ((closureN)self_73671)->elts[13]; +c_731457.elts[14] = ((closureN)self_73671)->elts[14]; +c_731457.elts[15] = ((closureN)self_73671)->elts[15]; +c_731457.elts[16] = ((closureN)self_73671)->elts[16]; +c_731457.elts[17] = ((closureN)self_73671)->elts[17]; +c_731457.elts[18] = rewrite_91args_73133; +c_731457.elts[19] = ((closureN)self_73671)->elts[18]; +c_731457.elts[20] = ((closureN)self_73671)->elts[20]; +c_731457.elts[21] = ((closureN)self_73671)->elts[21]; +c_731457.elts[22] = ((closureN)self_73671)->elts[22]; +c_731457.elts[23] = ((closureN)self_73671)->elts[23]; +c_731457.elts[24] = ((closureN)self_73671)->elts[24]; +c_731457.elts[25] = ((closureN)self_73671)->elts[25]; +c_731457.elts[26] = ((closureN)self_73671)->elts[26]; +c_731457.elts[27] = ((closureN)self_73671)->elts[27]; +c_731457.elts[28] = ((closureN)self_73671)->elts[28]; +c_731457.elts[29] = ((closureN)self_73671)->elts[29]; +c_731457.elts[30] = ((closureN)self_73671)->elts[30]; +c_731457.elts[31] = ((closureN)self_73671)->elts[31]; +c_731457.elts[32] = ((closureN)self_73671)->elts[32]; +c_731457.elts[33] = ((closureN)self_73671)->elts[33]; +c_731457.elts[34] = ((closureN)self_73671)->elts[34]; +c_731457.elts[35] = ((closureN)self_73671)->elts[35]; +c_731457.elts[36] = ((closureN)self_73671)->elts[36]; +c_731457.elts[37] = ((closureN)self_73671)->elts[37]; + + +make_cell(c_735035,((closureN)self_73671)->elts[19]); +return_closcall1(data,(closure)&c_731457, &c_735035);; +} + +static void __lambda_449(void *data, int argc, object self_73672, object rewrite_91with_91lemmas_73132) { + +closureN_type c_731459; +c_731459.hdr.mark = gc_color_red; + c_731459.hdr.grayed = 0; +c_731459.tag = closureN_tag; + c_731459.fn = (function_type)__lambda_448; +c_731459.num_args = 1; +c_731459.num_elt = 38; +c_731459.elts = (object *)alloca(sizeof(object) * 38); +c_731459.elts[0] = ((closureN)self_73672)->elts[0]; +c_731459.elts[1] = ((closureN)self_73672)->elts[1]; +c_731459.elts[2] = ((closureN)self_73672)->elts[2]; +c_731459.elts[3] = ((closureN)self_73672)->elts[3]; +c_731459.elts[4] = ((closureN)self_73672)->elts[4]; +c_731459.elts[5] = ((closureN)self_73672)->elts[5]; +c_731459.elts[6] = ((closureN)self_73672)->elts[6]; +c_731459.elts[7] = ((closureN)self_73672)->elts[7]; +c_731459.elts[8] = ((closureN)self_73672)->elts[8]; +c_731459.elts[9] = ((closureN)self_73672)->elts[9]; +c_731459.elts[10] = ((closureN)self_73672)->elts[10]; +c_731459.elts[11] = ((closureN)self_73672)->elts[11]; +c_731459.elts[12] = ((closureN)self_73672)->elts[12]; +c_731459.elts[13] = ((closureN)self_73672)->elts[13]; +c_731459.elts[14] = ((closureN)self_73672)->elts[14]; +c_731459.elts[15] = ((closureN)self_73672)->elts[15]; +c_731459.elts[16] = ((closureN)self_73672)->elts[16]; +c_731459.elts[17] = ((closureN)self_73672)->elts[17]; +c_731459.elts[18] = ((closureN)self_73672)->elts[18]; +c_731459.elts[19] = ((closureN)self_73672)->elts[19]; +c_731459.elts[20] = rewrite_91with_91lemmas_73132; +c_731459.elts[21] = ((closureN)self_73672)->elts[20]; +c_731459.elts[22] = ((closureN)self_73672)->elts[21]; +c_731459.elts[23] = ((closureN)self_73672)->elts[22]; +c_731459.elts[24] = ((closureN)self_73672)->elts[23]; +c_731459.elts[25] = ((closureN)self_73672)->elts[24]; +c_731459.elts[26] = ((closureN)self_73672)->elts[25]; +c_731459.elts[27] = ((closureN)self_73672)->elts[26]; +c_731459.elts[28] = ((closureN)self_73672)->elts[27]; +c_731459.elts[29] = ((closureN)self_73672)->elts[28]; +c_731459.elts[30] = ((closureN)self_73672)->elts[29]; +c_731459.elts[31] = ((closureN)self_73672)->elts[30]; +c_731459.elts[32] = ((closureN)self_73672)->elts[31]; +c_731459.elts[33] = ((closureN)self_73672)->elts[32]; +c_731459.elts[34] = ((closureN)self_73672)->elts[33]; +c_731459.elts[35] = ((closureN)self_73672)->elts[34]; +c_731459.elts[36] = ((closureN)self_73672)->elts[35]; +c_731459.elts[37] = ((closureN)self_73672)->elts[37]; + + +make_cell(c_735031,((closureN)self_73672)->elts[36]); +return_closcall1(data,(closure)&c_731459, &c_735031);; +} + +static void __lambda_448(void *data, int argc, object self_73673, object unify_91subst_73131) { + +closureN_type c_731461; +c_731461.hdr.mark = gc_color_red; + c_731461.hdr.grayed = 0; +c_731461.tag = closureN_tag; + c_731461.fn = (function_type)__lambda_447; +c_731461.num_args = 1; +c_731461.num_elt = 38; +c_731461.elts = (object *)alloca(sizeof(object) * 38); +c_731461.elts[0] = ((closureN)self_73673)->elts[0]; +c_731461.elts[1] = ((closureN)self_73673)->elts[1]; +c_731461.elts[2] = ((closureN)self_73673)->elts[2]; +c_731461.elts[3] = ((closureN)self_73673)->elts[3]; +c_731461.elts[4] = ((closureN)self_73673)->elts[4]; +c_731461.elts[5] = ((closureN)self_73673)->elts[5]; +c_731461.elts[6] = ((closureN)self_73673)->elts[6]; +c_731461.elts[7] = ((closureN)self_73673)->elts[7]; +c_731461.elts[8] = ((closureN)self_73673)->elts[8]; +c_731461.elts[9] = ((closureN)self_73673)->elts[9]; +c_731461.elts[10] = ((closureN)self_73673)->elts[10]; +c_731461.elts[11] = ((closureN)self_73673)->elts[11]; +c_731461.elts[12] = ((closureN)self_73673)->elts[13]; +c_731461.elts[13] = ((closureN)self_73673)->elts[14]; +c_731461.elts[14] = ((closureN)self_73673)->elts[15]; +c_731461.elts[15] = ((closureN)self_73673)->elts[16]; +c_731461.elts[16] = ((closureN)self_73673)->elts[17]; +c_731461.elts[17] = ((closureN)self_73673)->elts[18]; +c_731461.elts[18] = ((closureN)self_73673)->elts[19]; +c_731461.elts[19] = ((closureN)self_73673)->elts[20]; +c_731461.elts[20] = ((closureN)self_73673)->elts[21]; +c_731461.elts[21] = ((closureN)self_73673)->elts[22]; +c_731461.elts[22] = ((closureN)self_73673)->elts[23]; +c_731461.elts[23] = ((closureN)self_73673)->elts[24]; +c_731461.elts[24] = ((closureN)self_73673)->elts[25]; +c_731461.elts[25] = ((closureN)self_73673)->elts[26]; +c_731461.elts[26] = ((closureN)self_73673)->elts[27]; +c_731461.elts[27] = ((closureN)self_73673)->elts[28]; +c_731461.elts[28] = ((closureN)self_73673)->elts[29]; +c_731461.elts[29] = ((closureN)self_73673)->elts[30]; +c_731461.elts[30] = ((closureN)self_73673)->elts[31]; +c_731461.elts[31] = ((closureN)self_73673)->elts[32]; +c_731461.elts[32] = ((closureN)self_73673)->elts[33]; +c_731461.elts[33] = ((closureN)self_73673)->elts[34]; +c_731461.elts[34] = ((closureN)self_73673)->elts[35]; +c_731461.elts[35] = ((closureN)self_73673)->elts[36]; +c_731461.elts[36] = unify_91subst_73131; +c_731461.elts[37] = ((closureN)self_73673)->elts[37]; + + +make_cell(c_735027,((closureN)self_73673)->elts[12]); +return_closcall1(data,(closure)&c_731461, &c_735027);; +} + +static void __lambda_447(void *data, int argc, object self_73674, object one_91way_91unify_73130) { + +closureN_type c_731463; +c_731463.hdr.mark = gc_color_red; + c_731463.hdr.grayed = 0; +c_731463.tag = closureN_tag; + c_731463.fn = (function_type)__lambda_446; +c_731463.num_args = 1; +c_731463.num_elt = 38; +c_731463.elts = (object *)alloca(sizeof(object) * 38); +c_731463.elts[0] = ((closureN)self_73674)->elts[0]; +c_731463.elts[1] = ((closureN)self_73674)->elts[1]; +c_731463.elts[2] = ((closureN)self_73674)->elts[2]; +c_731463.elts[3] = ((closureN)self_73674)->elts[3]; +c_731463.elts[4] = ((closureN)self_73674)->elts[4]; +c_731463.elts[5] = ((closureN)self_73674)->elts[5]; +c_731463.elts[6] = ((closureN)self_73674)->elts[6]; +c_731463.elts[7] = ((closureN)self_73674)->elts[7]; +c_731463.elts[8] = ((closureN)self_73674)->elts[8]; +c_731463.elts[9] = ((closureN)self_73674)->elts[9]; +c_731463.elts[10] = ((closureN)self_73674)->elts[10]; +c_731463.elts[11] = ((closureN)self_73674)->elts[11]; +c_731463.elts[12] = one_91way_91unify_73130; +c_731463.elts[13] = ((closureN)self_73674)->elts[13]; +c_731463.elts[14] = ((closureN)self_73674)->elts[14]; +c_731463.elts[15] = ((closureN)self_73674)->elts[15]; +c_731463.elts[16] = ((closureN)self_73674)->elts[16]; +c_731463.elts[17] = ((closureN)self_73674)->elts[17]; +c_731463.elts[18] = ((closureN)self_73674)->elts[18]; +c_731463.elts[19] = ((closureN)self_73674)->elts[19]; +c_731463.elts[20] = ((closureN)self_73674)->elts[20]; +c_731463.elts[21] = ((closureN)self_73674)->elts[21]; +c_731463.elts[22] = ((closureN)self_73674)->elts[22]; +c_731463.elts[23] = ((closureN)self_73674)->elts[23]; +c_731463.elts[24] = ((closureN)self_73674)->elts[24]; +c_731463.elts[25] = ((closureN)self_73674)->elts[25]; +c_731463.elts[26] = ((closureN)self_73674)->elts[26]; +c_731463.elts[27] = ((closureN)self_73674)->elts[27]; +c_731463.elts[28] = ((closureN)self_73674)->elts[28]; +c_731463.elts[29] = ((closureN)self_73674)->elts[29]; +c_731463.elts[30] = ((closureN)self_73674)->elts[30]; +c_731463.elts[31] = ((closureN)self_73674)->elts[31]; +c_731463.elts[32] = ((closureN)self_73674)->elts[32]; +c_731463.elts[33] = ((closureN)self_73674)->elts[33]; +c_731463.elts[34] = ((closureN)self_73674)->elts[34]; +c_731463.elts[35] = ((closureN)self_73674)->elts[35]; +c_731463.elts[36] = ((closureN)self_73674)->elts[36]; +c_731463.elts[37] = ((closureN)self_73674)->elts[37]; + + +make_cell(c_735023,((closureN)self_73674)->elts[12]); +return_closcall1(data,(closure)&c_731463, &c_735023);; +} + +static void __lambda_446(void *data, int argc, object self_73675, object one_91way_91unify1_73129) { + +closureN_type c_731465; +c_731465.hdr.mark = gc_color_red; + c_731465.hdr.grayed = 0; +c_731465.tag = closureN_tag; + c_731465.fn = (function_type)__lambda_445; +c_731465.num_args = 1; +c_731465.num_elt = 38; +c_731465.elts = (object *)alloca(sizeof(object) * 38); +c_731465.elts[0] = ((closureN)self_73675)->elts[0]; +c_731465.elts[1] = ((closureN)self_73675)->elts[1]; +c_731465.elts[2] = ((closureN)self_73675)->elts[2]; +c_731465.elts[3] = ((closureN)self_73675)->elts[3]; +c_731465.elts[4] = ((closureN)self_73675)->elts[4]; +c_731465.elts[5] = ((closureN)self_73675)->elts[5]; +c_731465.elts[6] = ((closureN)self_73675)->elts[6]; +c_731465.elts[7] = ((closureN)self_73675)->elts[7]; +c_731465.elts[8] = ((closureN)self_73675)->elts[8]; +c_731465.elts[9] = ((closureN)self_73675)->elts[9]; +c_731465.elts[10] = ((closureN)self_73675)->elts[10]; +c_731465.elts[11] = ((closureN)self_73675)->elts[11]; +c_731465.elts[12] = ((closureN)self_73675)->elts[12]; +c_731465.elts[13] = one_91way_91unify1_73129; +c_731465.elts[14] = ((closureN)self_73675)->elts[14]; +c_731465.elts[15] = ((closureN)self_73675)->elts[15]; +c_731465.elts[16] = ((closureN)self_73675)->elts[16]; +c_731465.elts[17] = ((closureN)self_73675)->elts[17]; +c_731465.elts[18] = ((closureN)self_73675)->elts[18]; +c_731465.elts[19] = ((closureN)self_73675)->elts[19]; +c_731465.elts[20] = ((closureN)self_73675)->elts[20]; +c_731465.elts[21] = ((closureN)self_73675)->elts[21]; +c_731465.elts[22] = ((closureN)self_73675)->elts[22]; +c_731465.elts[23] = ((closureN)self_73675)->elts[23]; +c_731465.elts[24] = ((closureN)self_73675)->elts[24]; +c_731465.elts[25] = ((closureN)self_73675)->elts[25]; +c_731465.elts[26] = ((closureN)self_73675)->elts[26]; +c_731465.elts[27] = ((closureN)self_73675)->elts[27]; +c_731465.elts[28] = ((closureN)self_73675)->elts[28]; +c_731465.elts[29] = ((closureN)self_73675)->elts[29]; +c_731465.elts[30] = ((closureN)self_73675)->elts[30]; +c_731465.elts[31] = ((closureN)self_73675)->elts[31]; +c_731465.elts[32] = ((closureN)self_73675)->elts[32]; +c_731465.elts[33] = ((closureN)self_73675)->elts[33]; +c_731465.elts[34] = ((closureN)self_73675)->elts[34]; +c_731465.elts[35] = ((closureN)self_73675)->elts[35]; +c_731465.elts[36] = ((closureN)self_73675)->elts[36]; +c_731465.elts[37] = ((closureN)self_73675)->elts[37]; + + +make_cell(c_735019,((closureN)self_73675)->elts[13]); +return_closcall1(data,(closure)&c_731465, &c_735019);; +} + +static void __lambda_445(void *data, int argc, object self_73676, object one_91way_91unify1_91lst_73128) { + +closureN_type c_731467; +c_731467.hdr.mark = gc_color_red; + c_731467.hdr.grayed = 0; +c_731467.tag = closureN_tag; + c_731467.fn = (function_type)__lambda_444; +c_731467.num_args = 1; +c_731467.num_elt = 38; +c_731467.elts = (object *)alloca(sizeof(object) * 38); +c_731467.elts[0] = ((closureN)self_73676)->elts[0]; +c_731467.elts[1] = ((closureN)self_73676)->elts[1]; +c_731467.elts[2] = ((closureN)self_73676)->elts[2]; +c_731467.elts[3] = ((closureN)self_73676)->elts[3]; +c_731467.elts[4] = ((closureN)self_73676)->elts[4]; +c_731467.elts[5] = ((closureN)self_73676)->elts[5]; +c_731467.elts[6] = ((closureN)self_73676)->elts[7]; +c_731467.elts[7] = ((closureN)self_73676)->elts[8]; +c_731467.elts[8] = ((closureN)self_73676)->elts[9]; +c_731467.elts[9] = ((closureN)self_73676)->elts[10]; +c_731467.elts[10] = ((closureN)self_73676)->elts[11]; +c_731467.elts[11] = ((closureN)self_73676)->elts[12]; +c_731467.elts[12] = ((closureN)self_73676)->elts[13]; +c_731467.elts[13] = one_91way_91unify1_91lst_73128; +c_731467.elts[14] = ((closureN)self_73676)->elts[14]; +c_731467.elts[15] = ((closureN)self_73676)->elts[15]; +c_731467.elts[16] = ((closureN)self_73676)->elts[16]; +c_731467.elts[17] = ((closureN)self_73676)->elts[17]; +c_731467.elts[18] = ((closureN)self_73676)->elts[18]; +c_731467.elts[19] = ((closureN)self_73676)->elts[19]; +c_731467.elts[20] = ((closureN)self_73676)->elts[20]; +c_731467.elts[21] = ((closureN)self_73676)->elts[21]; +c_731467.elts[22] = ((closureN)self_73676)->elts[22]; +c_731467.elts[23] = ((closureN)self_73676)->elts[23]; +c_731467.elts[24] = ((closureN)self_73676)->elts[24]; +c_731467.elts[25] = ((closureN)self_73676)->elts[25]; +c_731467.elts[26] = ((closureN)self_73676)->elts[26]; +c_731467.elts[27] = ((closureN)self_73676)->elts[27]; +c_731467.elts[28] = ((closureN)self_73676)->elts[28]; +c_731467.elts[29] = ((closureN)self_73676)->elts[29]; +c_731467.elts[30] = ((closureN)self_73676)->elts[30]; +c_731467.elts[31] = ((closureN)self_73676)->elts[31]; +c_731467.elts[32] = ((closureN)self_73676)->elts[32]; +c_731467.elts[33] = ((closureN)self_73676)->elts[33]; +c_731467.elts[34] = ((closureN)self_73676)->elts[34]; +c_731467.elts[35] = ((closureN)self_73676)->elts[35]; +c_731467.elts[36] = ((closureN)self_73676)->elts[36]; +c_731467.elts[37] = ((closureN)self_73676)->elts[37]; + + +make_cell(c_735015,((closureN)self_73676)->elts[6]); +return_closcall1(data,(closure)&c_731467, &c_735015);; +} + +static void __lambda_444(void *data, int argc, object self_73677, object falsep_73127) { + +closureN_type c_731469; +c_731469.hdr.mark = gc_color_red; + c_731469.hdr.grayed = 0; +c_731469.tag = closureN_tag; + c_731469.fn = (function_type)__lambda_443; +c_731469.num_args = 1; +c_731469.num_elt = 38; +c_731469.elts = (object *)alloca(sizeof(object) * 38); +c_731469.elts[0] = ((closureN)self_73677)->elts[0]; +c_731469.elts[1] = ((closureN)self_73677)->elts[1]; +c_731469.elts[2] = ((closureN)self_73677)->elts[2]; +c_731469.elts[3] = ((closureN)self_73677)->elts[3]; +c_731469.elts[4] = ((closureN)self_73677)->elts[4]; +c_731469.elts[5] = ((closureN)self_73677)->elts[5]; +c_731469.elts[6] = falsep_73127; +c_731469.elts[7] = ((closureN)self_73677)->elts[6]; +c_731469.elts[8] = ((closureN)self_73677)->elts[7]; +c_731469.elts[9] = ((closureN)self_73677)->elts[8]; +c_731469.elts[10] = ((closureN)self_73677)->elts[9]; +c_731469.elts[11] = ((closureN)self_73677)->elts[10]; +c_731469.elts[12] = ((closureN)self_73677)->elts[11]; +c_731469.elts[13] = ((closureN)self_73677)->elts[12]; +c_731469.elts[14] = ((closureN)self_73677)->elts[13]; +c_731469.elts[15] = ((closureN)self_73677)->elts[14]; +c_731469.elts[16] = ((closureN)self_73677)->elts[15]; +c_731469.elts[17] = ((closureN)self_73677)->elts[16]; +c_731469.elts[18] = ((closureN)self_73677)->elts[17]; +c_731469.elts[19] = ((closureN)self_73677)->elts[18]; +c_731469.elts[20] = ((closureN)self_73677)->elts[19]; +c_731469.elts[21] = ((closureN)self_73677)->elts[20]; +c_731469.elts[22] = ((closureN)self_73677)->elts[21]; +c_731469.elts[23] = ((closureN)self_73677)->elts[22]; +c_731469.elts[24] = ((closureN)self_73677)->elts[23]; +c_731469.elts[25] = ((closureN)self_73677)->elts[24]; +c_731469.elts[26] = ((closureN)self_73677)->elts[25]; +c_731469.elts[27] = ((closureN)self_73677)->elts[26]; +c_731469.elts[28] = ((closureN)self_73677)->elts[27]; +c_731469.elts[29] = ((closureN)self_73677)->elts[28]; +c_731469.elts[30] = ((closureN)self_73677)->elts[29]; +c_731469.elts[31] = ((closureN)self_73677)->elts[30]; +c_731469.elts[32] = ((closureN)self_73677)->elts[31]; +c_731469.elts[33] = ((closureN)self_73677)->elts[32]; +c_731469.elts[34] = ((closureN)self_73677)->elts[33]; +c_731469.elts[35] = ((closureN)self_73677)->elts[34]; +c_731469.elts[36] = ((closureN)self_73677)->elts[36]; +c_731469.elts[37] = ((closureN)self_73677)->elts[37]; + + +make_cell(c_735011,((closureN)self_73677)->elts[35]); +return_closcall1(data,(closure)&c_731469, &c_735011);; +} + +static void __lambda_443(void *data, int argc, object self_73678, object truep_73126) { + +closureN_type c_731471; +c_731471.hdr.mark = gc_color_red; + c_731471.hdr.grayed = 0; +c_731471.tag = closureN_tag; + c_731471.fn = (function_type)__lambda_442; +c_731471.num_args = 1; +c_731471.num_elt = 38; +c_731471.elts = (object *)alloca(sizeof(object) * 38); +c_731471.elts[0] = ((closureN)self_73678)->elts[0]; +c_731471.elts[1] = ((closureN)self_73678)->elts[1]; +c_731471.elts[2] = ((closureN)self_73678)->elts[2]; +c_731471.elts[3] = ((closureN)self_73678)->elts[3]; +c_731471.elts[4] = ((closureN)self_73678)->elts[4]; +c_731471.elts[5] = ((closureN)self_73678)->elts[6]; +c_731471.elts[6] = ((closureN)self_73678)->elts[7]; +c_731471.elts[7] = ((closureN)self_73678)->elts[8]; +c_731471.elts[8] = ((closureN)self_73678)->elts[9]; +c_731471.elts[9] = ((closureN)self_73678)->elts[10]; +c_731471.elts[10] = ((closureN)self_73678)->elts[11]; +c_731471.elts[11] = ((closureN)self_73678)->elts[12]; +c_731471.elts[12] = ((closureN)self_73678)->elts[13]; +c_731471.elts[13] = ((closureN)self_73678)->elts[14]; +c_731471.elts[14] = ((closureN)self_73678)->elts[15]; +c_731471.elts[15] = ((closureN)self_73678)->elts[16]; +c_731471.elts[16] = ((closureN)self_73678)->elts[17]; +c_731471.elts[17] = ((closureN)self_73678)->elts[18]; +c_731471.elts[18] = ((closureN)self_73678)->elts[19]; +c_731471.elts[19] = ((closureN)self_73678)->elts[20]; +c_731471.elts[20] = ((closureN)self_73678)->elts[21]; +c_731471.elts[21] = ((closureN)self_73678)->elts[22]; +c_731471.elts[22] = ((closureN)self_73678)->elts[23]; +c_731471.elts[23] = ((closureN)self_73678)->elts[24]; +c_731471.elts[24] = ((closureN)self_73678)->elts[25]; +c_731471.elts[25] = ((closureN)self_73678)->elts[26]; +c_731471.elts[26] = ((closureN)self_73678)->elts[27]; +c_731471.elts[27] = ((closureN)self_73678)->elts[28]; +c_731471.elts[28] = ((closureN)self_73678)->elts[29]; +c_731471.elts[29] = ((closureN)self_73678)->elts[30]; +c_731471.elts[30] = ((closureN)self_73678)->elts[31]; +c_731471.elts[31] = ((closureN)self_73678)->elts[32]; +c_731471.elts[32] = ((closureN)self_73678)->elts[33]; +c_731471.elts[33] = ((closureN)self_73678)->elts[34]; +c_731471.elts[34] = ((closureN)self_73678)->elts[35]; +c_731471.elts[35] = truep_73126; +c_731471.elts[36] = ((closureN)self_73678)->elts[36]; +c_731471.elts[37] = ((closureN)self_73678)->elts[37]; + + +make_cell(c_735007,((closureN)self_73678)->elts[5]); +return_closcall1(data,(closure)&c_731471, &c_735007);; +} + +static void __lambda_442(void *data, int argc, object self_73679, object false_91term_73125) { + +closureN_type c_731473; +c_731473.hdr.mark = gc_color_red; + c_731473.hdr.grayed = 0; +c_731473.tag = closureN_tag; + c_731473.fn = (function_type)__lambda_441; +c_731473.num_args = 1; +c_731473.num_elt = 38; +c_731473.elts = (object *)alloca(sizeof(object) * 38); +c_731473.elts[0] = ((closureN)self_73679)->elts[0]; +c_731473.elts[1] = ((closureN)self_73679)->elts[1]; +c_731473.elts[2] = ((closureN)self_73679)->elts[2]; +c_731473.elts[3] = ((closureN)self_73679)->elts[3]; +c_731473.elts[4] = ((closureN)self_73679)->elts[4]; +c_731473.elts[5] = false_91term_73125; +c_731473.elts[6] = ((closureN)self_73679)->elts[5]; +c_731473.elts[7] = ((closureN)self_73679)->elts[6]; +c_731473.elts[8] = ((closureN)self_73679)->elts[7]; +c_731473.elts[9] = ((closureN)self_73679)->elts[8]; +c_731473.elts[10] = ((closureN)self_73679)->elts[9]; +c_731473.elts[11] = ((closureN)self_73679)->elts[10]; +c_731473.elts[12] = ((closureN)self_73679)->elts[11]; +c_731473.elts[13] = ((closureN)self_73679)->elts[12]; +c_731473.elts[14] = ((closureN)self_73679)->elts[13]; +c_731473.elts[15] = ((closureN)self_73679)->elts[14]; +c_731473.elts[16] = ((closureN)self_73679)->elts[15]; +c_731473.elts[17] = ((closureN)self_73679)->elts[16]; +c_731473.elts[18] = ((closureN)self_73679)->elts[17]; +c_731473.elts[19] = ((closureN)self_73679)->elts[18]; +c_731473.elts[20] = ((closureN)self_73679)->elts[19]; +c_731473.elts[21] = ((closureN)self_73679)->elts[20]; +c_731473.elts[22] = ((closureN)self_73679)->elts[21]; +c_731473.elts[23] = ((closureN)self_73679)->elts[22]; +c_731473.elts[24] = ((closureN)self_73679)->elts[23]; +c_731473.elts[25] = ((closureN)self_73679)->elts[24]; +c_731473.elts[26] = ((closureN)self_73679)->elts[25]; +c_731473.elts[27] = ((closureN)self_73679)->elts[26]; +c_731473.elts[28] = ((closureN)self_73679)->elts[27]; +c_731473.elts[29] = ((closureN)self_73679)->elts[28]; +c_731473.elts[30] = ((closureN)self_73679)->elts[29]; +c_731473.elts[31] = ((closureN)self_73679)->elts[30]; +c_731473.elts[32] = ((closureN)self_73679)->elts[31]; +c_731473.elts[33] = ((closureN)self_73679)->elts[32]; +c_731473.elts[34] = ((closureN)self_73679)->elts[33]; +c_731473.elts[35] = ((closureN)self_73679)->elts[35]; +c_731473.elts[36] = ((closureN)self_73679)->elts[36]; +c_731473.elts[37] = ((closureN)self_73679)->elts[37]; + + +make_cell(c_735003,((closureN)self_73679)->elts[34]); +return_closcall1(data,(closure)&c_731473, &c_735003);; +} + +static void __lambda_441(void *data, int argc, object self_73680, object true_91term_73124) { + +closureN_type c_731475; +c_731475.hdr.mark = gc_color_red; + c_731475.hdr.grayed = 0; +c_731475.tag = closureN_tag; + c_731475.fn = (function_type)__lambda_440; +c_731475.num_args = 1; +c_731475.num_elt = 38; +c_731475.elts = (object *)alloca(sizeof(object) * 38); +c_731475.elts[0] = ((closureN)self_73680)->elts[0]; +c_731475.elts[1] = ((closureN)self_73680)->elts[1]; +c_731475.elts[2] = ((closureN)self_73680)->elts[2]; +c_731475.elts[3] = ((closureN)self_73680)->elts[3]; +c_731475.elts[4] = ((closureN)self_73680)->elts[4]; +c_731475.elts[5] = ((closureN)self_73680)->elts[5]; +c_731475.elts[6] = ((closureN)self_73680)->elts[6]; +c_731475.elts[7] = ((closureN)self_73680)->elts[7]; +c_731475.elts[8] = ((closureN)self_73680)->elts[8]; +c_731475.elts[9] = ((closureN)self_73680)->elts[9]; +c_731475.elts[10] = ((closureN)self_73680)->elts[10]; +c_731475.elts[11] = ((closureN)self_73680)->elts[11]; +c_731475.elts[12] = ((closureN)self_73680)->elts[12]; +c_731475.elts[13] = ((closureN)self_73680)->elts[13]; +c_731475.elts[14] = ((closureN)self_73680)->elts[14]; +c_731475.elts[15] = ((closureN)self_73680)->elts[15]; +c_731475.elts[16] = ((closureN)self_73680)->elts[16]; +c_731475.elts[17] = ((closureN)self_73680)->elts[17]; +c_731475.elts[18] = ((closureN)self_73680)->elts[18]; +c_731475.elts[19] = ((closureN)self_73680)->elts[19]; +c_731475.elts[20] = ((closureN)self_73680)->elts[20]; +c_731475.elts[21] = ((closureN)self_73680)->elts[21]; +c_731475.elts[22] = ((closureN)self_73680)->elts[22]; +c_731475.elts[23] = ((closureN)self_73680)->elts[23]; +c_731475.elts[24] = ((closureN)self_73680)->elts[24]; +c_731475.elts[25] = ((closureN)self_73680)->elts[25]; +c_731475.elts[26] = ((closureN)self_73680)->elts[26]; +c_731475.elts[27] = ((closureN)self_73680)->elts[27]; +c_731475.elts[28] = ((closureN)self_73680)->elts[28]; +c_731475.elts[29] = ((closureN)self_73680)->elts[29]; +c_731475.elts[30] = ((closureN)self_73680)->elts[31]; +c_731475.elts[31] = ((closureN)self_73680)->elts[32]; +c_731475.elts[32] = ((closureN)self_73680)->elts[33]; +c_731475.elts[33] = ((closureN)self_73680)->elts[34]; +c_731475.elts[34] = true_91term_73124; +c_731475.elts[35] = ((closureN)self_73680)->elts[35]; +c_731475.elts[36] = ((closureN)self_73680)->elts[36]; +c_731475.elts[37] = ((closureN)self_73680)->elts[37]; + + +make_cell(c_734999,((closureN)self_73680)->elts[30]); +return_closcall1(data,(closure)&c_731475, &c_734999);; +} + +static void __lambda_440(void *data, int argc, object self_73681, object trans_91of_91implies_73123) { + +closureN_type c_731477; +c_731477.hdr.mark = gc_color_red; + c_731477.hdr.grayed = 0; +c_731477.tag = closureN_tag; + c_731477.fn = (function_type)__lambda_439; +c_731477.num_args = 1; +c_731477.num_elt = 38; +c_731477.elts = (object *)alloca(sizeof(object) * 38); +c_731477.elts[0] = ((closureN)self_73681)->elts[0]; +c_731477.elts[1] = ((closureN)self_73681)->elts[1]; +c_731477.elts[2] = ((closureN)self_73681)->elts[2]; +c_731477.elts[3] = ((closureN)self_73681)->elts[3]; +c_731477.elts[4] = ((closureN)self_73681)->elts[4]; +c_731477.elts[5] = ((closureN)self_73681)->elts[5]; +c_731477.elts[6] = ((closureN)self_73681)->elts[6]; +c_731477.elts[7] = ((closureN)self_73681)->elts[7]; +c_731477.elts[8] = ((closureN)self_73681)->elts[8]; +c_731477.elts[9] = ((closureN)self_73681)->elts[9]; +c_731477.elts[10] = ((closureN)self_73681)->elts[10]; +c_731477.elts[11] = ((closureN)self_73681)->elts[11]; +c_731477.elts[12] = ((closureN)self_73681)->elts[12]; +c_731477.elts[13] = ((closureN)self_73681)->elts[13]; +c_731477.elts[14] = ((closureN)self_73681)->elts[14]; +c_731477.elts[15] = ((closureN)self_73681)->elts[15]; +c_731477.elts[16] = ((closureN)self_73681)->elts[16]; +c_731477.elts[17] = ((closureN)self_73681)->elts[17]; +c_731477.elts[18] = ((closureN)self_73681)->elts[18]; +c_731477.elts[19] = ((closureN)self_73681)->elts[19]; +c_731477.elts[20] = ((closureN)self_73681)->elts[20]; +c_731477.elts[21] = ((closureN)self_73681)->elts[21]; +c_731477.elts[22] = ((closureN)self_73681)->elts[22]; +c_731477.elts[23] = ((closureN)self_73681)->elts[23]; +c_731477.elts[24] = ((closureN)self_73681)->elts[24]; +c_731477.elts[25] = ((closureN)self_73681)->elts[25]; +c_731477.elts[26] = ((closureN)self_73681)->elts[26]; +c_731477.elts[27] = ((closureN)self_73681)->elts[27]; +c_731477.elts[28] = ((closureN)self_73681)->elts[28]; +c_731477.elts[29] = ((closureN)self_73681)->elts[29]; +c_731477.elts[30] = trans_91of_91implies_73123; +c_731477.elts[31] = ((closureN)self_73681)->elts[31]; +c_731477.elts[32] = ((closureN)self_73681)->elts[32]; +c_731477.elts[33] = ((closureN)self_73681)->elts[33]; +c_731477.elts[34] = ((closureN)self_73681)->elts[34]; +c_731477.elts[35] = ((closureN)self_73681)->elts[35]; +c_731477.elts[36] = ((closureN)self_73681)->elts[36]; +c_731477.elts[37] = ((closureN)self_73681)->elts[37]; + + +make_cell(c_734995,((closureN)self_73681)->elts[30]); +return_closcall1(data,(closure)&c_731477, &c_734995);; +} + +static void __lambda_439(void *data, int argc, object self_73682, object trans_91of_91implies1_73122) { + +closureN_type c_731479; +c_731479.hdr.mark = gc_color_red; + c_731479.hdr.grayed = 0; +c_731479.tag = closureN_tag; + c_731479.fn = (function_type)__lambda_438; +c_731479.num_args = 1; +c_731479.num_elt = 38; +c_731479.elts = (object *)alloca(sizeof(object) * 38); +c_731479.elts[0] = ((closureN)self_73682)->elts[0]; +c_731479.elts[1] = ((closureN)self_73682)->elts[1]; +c_731479.elts[2] = ((closureN)self_73682)->elts[2]; +c_731479.elts[3] = ((closureN)self_73682)->elts[3]; +c_731479.elts[4] = ((closureN)self_73682)->elts[4]; +c_731479.elts[5] = ((closureN)self_73682)->elts[5]; +c_731479.elts[6] = ((closureN)self_73682)->elts[6]; +c_731479.elts[7] = ((closureN)self_73682)->elts[7]; +c_731479.elts[8] = ((closureN)self_73682)->elts[8]; +c_731479.elts[9] = ((closureN)self_73682)->elts[9]; +c_731479.elts[10] = ((closureN)self_73682)->elts[10]; +c_731479.elts[11] = ((closureN)self_73682)->elts[11]; +c_731479.elts[12] = ((closureN)self_73682)->elts[12]; +c_731479.elts[13] = ((closureN)self_73682)->elts[13]; +c_731479.elts[14] = ((closureN)self_73682)->elts[14]; +c_731479.elts[15] = ((closureN)self_73682)->elts[15]; +c_731479.elts[16] = ((closureN)self_73682)->elts[16]; +c_731479.elts[17] = ((closureN)self_73682)->elts[17]; +c_731479.elts[18] = ((closureN)self_73682)->elts[18]; +c_731479.elts[19] = ((closureN)self_73682)->elts[19]; +c_731479.elts[20] = ((closureN)self_73682)->elts[20]; +c_731479.elts[21] = ((closureN)self_73682)->elts[21]; +c_731479.elts[22] = ((closureN)self_73682)->elts[22]; +c_731479.elts[23] = ((closureN)self_73682)->elts[23]; +c_731479.elts[24] = ((closureN)self_73682)->elts[24]; +c_731479.elts[25] = ((closureN)self_73682)->elts[25]; +c_731479.elts[26] = ((closureN)self_73682)->elts[26]; +c_731479.elts[27] = ((closureN)self_73682)->elts[28]; +c_731479.elts[28] = ((closureN)self_73682)->elts[29]; +c_731479.elts[29] = ((closureN)self_73682)->elts[30]; +c_731479.elts[30] = trans_91of_91implies1_73122; +c_731479.elts[31] = ((closureN)self_73682)->elts[31]; +c_731479.elts[32] = ((closureN)self_73682)->elts[32]; +c_731479.elts[33] = ((closureN)self_73682)->elts[33]; +c_731479.elts[34] = ((closureN)self_73682)->elts[34]; +c_731479.elts[35] = ((closureN)self_73682)->elts[35]; +c_731479.elts[36] = ((closureN)self_73682)->elts[36]; +c_731479.elts[37] = ((closureN)self_73682)->elts[37]; + + +make_cell(c_734991,((closureN)self_73682)->elts[27]); +return_closcall1(data,(closure)&c_731479, &c_734991);; +} + +static void __lambda_438(void *data, int argc, object self_73683, object term_91equal_127_73121) { + +closureN_type c_731481; +c_731481.hdr.mark = gc_color_red; + c_731481.hdr.grayed = 0; +c_731481.tag = closureN_tag; + c_731481.fn = (function_type)__lambda_437; +c_731481.num_args = 1; +c_731481.num_elt = 38; +c_731481.elts = (object *)alloca(sizeof(object) * 38); +c_731481.elts[0] = ((closureN)self_73683)->elts[0]; +c_731481.elts[1] = ((closureN)self_73683)->elts[1]; +c_731481.elts[2] = ((closureN)self_73683)->elts[2]; +c_731481.elts[3] = ((closureN)self_73683)->elts[3]; +c_731481.elts[4] = ((closureN)self_73683)->elts[4]; +c_731481.elts[5] = ((closureN)self_73683)->elts[5]; +c_731481.elts[6] = ((closureN)self_73683)->elts[6]; +c_731481.elts[7] = ((closureN)self_73683)->elts[7]; +c_731481.elts[8] = ((closureN)self_73683)->elts[8]; +c_731481.elts[9] = ((closureN)self_73683)->elts[9]; +c_731481.elts[10] = ((closureN)self_73683)->elts[10]; +c_731481.elts[11] = ((closureN)self_73683)->elts[11]; +c_731481.elts[12] = ((closureN)self_73683)->elts[12]; +c_731481.elts[13] = ((closureN)self_73683)->elts[13]; +c_731481.elts[14] = ((closureN)self_73683)->elts[14]; +c_731481.elts[15] = ((closureN)self_73683)->elts[15]; +c_731481.elts[16] = ((closureN)self_73683)->elts[16]; +c_731481.elts[17] = ((closureN)self_73683)->elts[17]; +c_731481.elts[18] = ((closureN)self_73683)->elts[18]; +c_731481.elts[19] = ((closureN)self_73683)->elts[19]; +c_731481.elts[20] = ((closureN)self_73683)->elts[20]; +c_731481.elts[21] = ((closureN)self_73683)->elts[21]; +c_731481.elts[22] = ((closureN)self_73683)->elts[22]; +c_731481.elts[23] = ((closureN)self_73683)->elts[23]; +c_731481.elts[24] = ((closureN)self_73683)->elts[24]; +c_731481.elts[25] = ((closureN)self_73683)->elts[25]; +c_731481.elts[26] = term_91equal_127_73121; +c_731481.elts[27] = ((closureN)self_73683)->elts[27]; +c_731481.elts[28] = ((closureN)self_73683)->elts[28]; +c_731481.elts[29] = ((closureN)self_73683)->elts[29]; +c_731481.elts[30] = ((closureN)self_73683)->elts[30]; +c_731481.elts[31] = ((closureN)self_73683)->elts[31]; +c_731481.elts[32] = ((closureN)self_73683)->elts[32]; +c_731481.elts[33] = ((closureN)self_73683)->elts[33]; +c_731481.elts[34] = ((closureN)self_73683)->elts[34]; +c_731481.elts[35] = ((closureN)self_73683)->elts[35]; +c_731481.elts[36] = ((closureN)self_73683)->elts[36]; +c_731481.elts[37] = ((closureN)self_73683)->elts[37]; + + +make_cell(c_734987,((closureN)self_73683)->elts[26]); +return_closcall1(data,(closure)&c_731481, &c_734987);; +} + +static void __lambda_437(void *data, int argc, object self_73684, object term_91args_91equal_127_73120) { + +closureN_type c_731483; +c_731483.hdr.mark = gc_color_red; + c_731483.hdr.grayed = 0; +c_731483.tag = closureN_tag; + c_731483.fn = (function_type)__lambda_436; +c_731483.num_args = 1; +c_731483.num_elt = 38; +c_731483.elts = (object *)alloca(sizeof(object) * 38); +c_731483.elts[0] = ((closureN)self_73684)->elts[0]; +c_731483.elts[1] = ((closureN)self_73684)->elts[1]; +c_731483.elts[2] = ((closureN)self_73684)->elts[2]; +c_731483.elts[3] = ((closureN)self_73684)->elts[3]; +c_731483.elts[4] = ((closureN)self_73684)->elts[4]; +c_731483.elts[5] = ((closureN)self_73684)->elts[5]; +c_731483.elts[6] = ((closureN)self_73684)->elts[6]; +c_731483.elts[7] = ((closureN)self_73684)->elts[7]; +c_731483.elts[8] = ((closureN)self_73684)->elts[8]; +c_731483.elts[9] = ((closureN)self_73684)->elts[9]; +c_731483.elts[10] = ((closureN)self_73684)->elts[10]; +c_731483.elts[11] = ((closureN)self_73684)->elts[11]; +c_731483.elts[12] = ((closureN)self_73684)->elts[12]; +c_731483.elts[13] = ((closureN)self_73684)->elts[13]; +c_731483.elts[14] = ((closureN)self_73684)->elts[14]; +c_731483.elts[15] = ((closureN)self_73684)->elts[15]; +c_731483.elts[16] = ((closureN)self_73684)->elts[16]; +c_731483.elts[17] = ((closureN)self_73684)->elts[17]; +c_731483.elts[18] = ((closureN)self_73684)->elts[18]; +c_731483.elts[19] = ((closureN)self_73684)->elts[19]; +c_731483.elts[20] = ((closureN)self_73684)->elts[20]; +c_731483.elts[21] = ((closureN)self_73684)->elts[21]; +c_731483.elts[22] = ((closureN)self_73684)->elts[22]; +c_731483.elts[23] = ((closureN)self_73684)->elts[23]; +c_731483.elts[24] = ((closureN)self_73684)->elts[24]; +c_731483.elts[25] = ((closureN)self_73684)->elts[25]; +c_731483.elts[26] = term_91args_91equal_127_73120; +c_731483.elts[27] = ((closureN)self_73684)->elts[26]; +c_731483.elts[28] = ((closureN)self_73684)->elts[28]; +c_731483.elts[29] = ((closureN)self_73684)->elts[29]; +c_731483.elts[30] = ((closureN)self_73684)->elts[30]; +c_731483.elts[31] = ((closureN)self_73684)->elts[31]; +c_731483.elts[32] = ((closureN)self_73684)->elts[32]; +c_731483.elts[33] = ((closureN)self_73684)->elts[33]; +c_731483.elts[34] = ((closureN)self_73684)->elts[34]; +c_731483.elts[35] = ((closureN)self_73684)->elts[35]; +c_731483.elts[36] = ((closureN)self_73684)->elts[36]; +c_731483.elts[37] = ((closureN)self_73684)->elts[37]; + + +make_cell(c_734983,((closureN)self_73684)->elts[27]); +return_closcall1(data,(closure)&c_731483, &c_734983);; +} + +static void __lambda_436(void *data, int argc, object self_73685, object term_91member_127_73119) { + +closureN_type c_731485; +c_731485.hdr.mark = gc_color_red; + c_731485.hdr.grayed = 0; +c_731485.tag = closureN_tag; + c_731485.fn = (function_type)__lambda_433; +c_731485.num_args = 1; +c_731485.num_elt = 39; +c_731485.elts = (object *)alloca(sizeof(object) * 39); +c_731485.elts[0] = ((closureN)self_73685)->elts[0]; +c_731485.elts[1] = ((closureN)self_73685)->elts[1]; +c_731485.elts[2] = ((closureN)self_73685)->elts[2]; +c_731485.elts[3] = ((closureN)self_73685)->elts[3]; +c_731485.elts[4] = ((closureN)self_73685)->elts[4]; +c_731485.elts[5] = ((closureN)self_73685)->elts[5]; +c_731485.elts[6] = ((closureN)self_73685)->elts[6]; +c_731485.elts[7] = ((closureN)self_73685)->elts[7]; +c_731485.elts[8] = ((closureN)self_73685)->elts[8]; +c_731485.elts[9] = ((closureN)self_73685)->elts[9]; +c_731485.elts[10] = ((closureN)self_73685)->elts[10]; +c_731485.elts[11] = ((closureN)self_73685)->elts[11]; +c_731485.elts[12] = ((closureN)self_73685)->elts[12]; +c_731485.elts[13] = ((closureN)self_73685)->elts[13]; +c_731485.elts[14] = ((closureN)self_73685)->elts[14]; +c_731485.elts[15] = ((closureN)self_73685)->elts[15]; +c_731485.elts[16] = ((closureN)self_73685)->elts[16]; +c_731485.elts[17] = ((closureN)self_73685)->elts[17]; +c_731485.elts[18] = ((closureN)self_73685)->elts[18]; +c_731485.elts[19] = ((closureN)self_73685)->elts[19]; +c_731485.elts[20] = ((closureN)self_73685)->elts[20]; +c_731485.elts[21] = ((closureN)self_73685)->elts[21]; +c_731485.elts[22] = ((closureN)self_73685)->elts[22]; +c_731485.elts[23] = ((closureN)self_73685)->elts[23]; +c_731485.elts[24] = ((closureN)self_73685)->elts[24]; +c_731485.elts[25] = ((closureN)self_73685)->elts[25]; +c_731485.elts[26] = ((closureN)self_73685)->elts[26]; +c_731485.elts[27] = ((closureN)self_73685)->elts[27]; +c_731485.elts[28] = term_91member_127_73119; +c_731485.elts[29] = ((closureN)self_73685)->elts[28]; +c_731485.elts[30] = ((closureN)self_73685)->elts[29]; +c_731485.elts[31] = ((closureN)self_73685)->elts[30]; +c_731485.elts[32] = ((closureN)self_73685)->elts[31]; +c_731485.elts[33] = ((closureN)self_73685)->elts[32]; +c_731485.elts[34] = ((closureN)self_73685)->elts[33]; +c_731485.elts[35] = ((closureN)self_73685)->elts[34]; +c_731485.elts[36] = ((closureN)self_73685)->elts[35]; +c_731485.elts[37] = ((closureN)self_73685)->elts[36]; +c_731485.elts[38] = ((closureN)self_73685)->elts[37]; + + +closureN_type c_733126; +c_733126.hdr.mark = gc_color_red; + c_733126.hdr.grayed = 0; +c_733126.tag = closureN_tag; + c_733126.fn = (function_type)__lambda_435; +c_733126.num_args = 0; +c_733126.num_elt = 1; +c_733126.elts = (object *)alloca(sizeof(object) * 1); +c_733126.elts[0] = ((closureN)self_73685)->elts[2]; + +return_closcall1(data,(closure)&c_731485, &c_733126);; +} + +static void __lambda_435(void *data, int argc, object self_73686, object k_73562) { + +closureN_type c_733128; +c_733128.hdr.mark = gc_color_red; + c_733128.hdr.grayed = 0; +c_733128.tag = closureN_tag; + c_733128.fn = (function_type)__lambda_434; +c_733128.num_args = 1; +c_733128.num_elt = 2; +c_733128.elts = (object *)alloca(sizeof(object) * 2); +c_733128.elts[0] = ((closureN)self_73686)->elts[0]; +c_733128.elts[1] = k_73562; + + +make_cons(c_733138,quote_form,nil); + +make_cons(c_733137,quote_compile,&c_733138); + +make_cons(c_733145,quote_form,nil); + +make_cons(c_733144,quote_optimize,&c_733145); + +make_cons(c_733147,quote_nil,nil); + +make_cons(c_733146,&c_733147,nil); + +make_cons(c_733143,&c_733144,&c_733146); + +make_cons(c_733142,quote_codegen,&c_733143); + +make_cons(c_733141,&c_733142,nil); + +make_cons(c_733140,quote_reverse,&c_733141); + +make_cons(c_733139,&c_733140,nil); + +make_cons(c_733136,&c_733137,&c_733139); + +make_cons(c_733135,quote_equal,&c_733136); + +make_cons(c_733153,quote_y,nil); + +make_cons(c_733152,quote_x,&c_733153); + +make_cons(c_733151,quote_eqp,&c_733152); + +make_cons(c_733158,quote_x,nil); + +make_cons(c_733157,quote_fix,&c_733158); + +make_cons(c_733161,quote_y,nil); + +make_cons(c_733160,quote_fix,&c_733161); + +make_cons(c_733159,&c_733160,nil); + +make_cons(c_733156,&c_733157,&c_733159); + +make_cons(c_733155,quote_equal,&c_733156); + +make_cons(c_733154,&c_733155,nil); + +make_cons(c_733150,&c_733151,&c_733154); + +make_cons(c_733149,quote_equal,&c_733150); + +make_cons(c_733167,quote_y,nil); + +make_cons(c_733166,quote_x,&c_733167); + +make_cons(c_733165,quote_greaterp,&c_733166); + +make_cons(c_733171,quote_x,nil); + +make_cons(c_733170,quote_y,&c_733171); + +make_cons(c_733169,quote_lessp,&c_733170); + +make_cons(c_733168,&c_733169,nil); + +make_cons(c_733164,&c_733165,&c_733168); + +make_cons(c_733163,quote_equal,&c_733164); + +make_cons(c_733177,quote_y,nil); + +make_cons(c_733176,quote_x,&c_733177); + +make_cons(c_733175,quote_lesseqp,&c_733176); + +make_cons(c_733183,quote_x,nil); + +make_cons(c_733182,quote_y,&c_733183); + +make_cons(c_733181,quote_lessp,&c_733182); + +make_cons(c_733180,&c_733181,nil); + +make_cons(c_733179,quote_not,&c_733180); + +make_cons(c_733178,&c_733179,nil); + +make_cons(c_733174,&c_733175,&c_733178); + +make_cons(c_733173,quote_equal,&c_733174); + +make_cons(c_733189,quote_y,nil); + +make_cons(c_733188,quote_x,&c_733189); + +make_cons(c_733187,quote_greatereqp,&c_733188); + +make_cons(c_733195,quote_y,nil); + +make_cons(c_733194,quote_x,&c_733195); + +make_cons(c_733193,quote_lessp,&c_733194); + +make_cons(c_733192,&c_733193,nil); + +make_cons(c_733191,quote_not,&c_733192); + +make_cons(c_733190,&c_733191,nil); + +make_cons(c_733186,&c_733187,&c_733190); + +make_cons(c_733185,quote_equal,&c_733186); + +make_cons(c_733200,quote_x,nil); + +make_cons(c_733199,quote_boolean,&c_733200); + +make_cons(c_733207,quote_t,nil); + +make_cons(c_733206,&c_733207,nil); + +make_cons(c_733205,quote_x,&c_733206); + +make_cons(c_733204,quote_equal,&c_733205); + +make_cons(c_733212,quote_f,nil); + +make_cons(c_733211,&c_733212,nil); + +make_cons(c_733210,quote_x,&c_733211); + +make_cons(c_733209,quote_equal,&c_733210); + +make_cons(c_733208,&c_733209,nil); + +make_cons(c_733203,&c_733204,&c_733208); + +make_cons(c_733202,quote_or,&c_733203); + +make_cons(c_733201,&c_733202,nil); + +make_cons(c_733198,&c_733199,&c_733201); + +make_cons(c_733197,quote_equal,&c_733198); + +make_cons(c_733218,quote_y,nil); + +make_cons(c_733217,quote_x,&c_733218); + +make_cons(c_733216,quote_iff,&c_733217); + +make_cons(c_733224,quote_y,nil); + +make_cons(c_733223,quote_x,&c_733224); + +make_cons(c_733222,quote_implies,&c_733223); + +make_cons(c_733228,quote_x,nil); + +make_cons(c_733227,quote_y,&c_733228); + +make_cons(c_733226,quote_implies,&c_733227); + +make_cons(c_733225,&c_733226,nil); + +make_cons(c_733221,&c_733222,&c_733225); + +make_cons(c_733220,quote_and,&c_733221); + +make_cons(c_733219,&c_733220,nil); + +make_cons(c_733215,&c_733216,&c_733219); + +make_cons(c_733214,quote_equal,&c_733215); + +make_cons(c_733233,quote_x,nil); + +make_cons(c_733232,quote_even1,&c_733233); + +make_cons(c_733238,quote_x,nil); + +make_cons(c_733237,quote_zerop,&c_733238); + +make_cons(c_733240,quote_t,nil); + +make_cons(c_733245,quote_x,nil); + +make_cons(c_733244,quote__1911_91,&c_733245); + +make_cons(c_733243,&c_733244,nil); + +make_cons(c_733242,quote_odd,&c_733243); + +make_cons(c_733241,&c_733242,nil); + +make_cons(c_733239,&c_733240,&c_733241); + +make_cons(c_733236,&c_733237,&c_733239); + +make_cons(c_733235,quote__if,&c_733236); + +make_cons(c_733234,&c_733235,nil); + +make_cons(c_733231,&c_733232,&c_733234); + +make_cons(c_733230,quote_equal,&c_733231); + +make_cons(c_733251,quote_pred,nil); + +make_cons(c_733250,quote_l,&c_733251); + +make_cons(c_733249,quote_countps_91,&c_733250); + +make_cons(c_733257,quote_zero,nil); + +make_cons(c_733256,&c_733257,nil); + +make_cons(c_733255,quote_pred,&c_733256); + +make_cons(c_733254,quote_l,&c_733255); + +make_cons(c_733253,quote_countps_91loop,&c_733254); + +make_cons(c_733252,&c_733253,nil); + +make_cons(c_733248,&c_733249,&c_733252); + +make_cons(c_733247,quote_equal,&c_733248); + +make_cons(c_733262,quote_i,nil); + +make_cons(c_733261,quote_fact_91,&c_733262); + +make_cons(c_733266,obj_int2obj(1),nil); + +make_cons(c_733265,quote_i,&c_733266); + +make_cons(c_733264,quote_fact_91loop,&c_733265); + +make_cons(c_733263,&c_733264,nil); + +make_cons(c_733260,&c_733261,&c_733263); + +make_cons(c_733259,quote_equal,&c_733260); + +make_cons(c_733271,quote_x,nil); + +make_cons(c_733270,quote_reverse_91,&c_733271); + +make_cons(c_733276,quote_nil,nil); + +make_cons(c_733275,&c_733276,nil); + +make_cons(c_733274,quote_x,&c_733275); + +make_cons(c_733273,quote_reverse_91loop,&c_733274); + +make_cons(c_733272,&c_733273,nil); + +make_cons(c_733269,&c_733270,&c_733272); + +make_cons(c_733268,quote_equal,&c_733269); + +make_cons(c_733282,quote_y,nil); + +make_cons(c_733281,quote_x,&c_733282); + +make_cons(c_733280,quote_divides,&c_733281); + +make_cons(c_733288,quote_x,nil); + +make_cons(c_733287,quote_y,&c_733288); + +make_cons(c_733286,quote_remainder,&c_733287); + +make_cons(c_733285,&c_733286,nil); + +make_cons(c_733284,quote_zerop,&c_733285); + +make_cons(c_733283,&c_733284,nil); + +make_cons(c_733279,&c_733280,&c_733283); + +make_cons(c_733278,quote_equal,&c_733279); + +make_cons(c_733294,quote_alist,nil); + +make_cons(c_733293,quote_var,&c_733294); + +make_cons(c_733292,quote_assume_91true,&c_733293); + +make_cons(c_733301,quote_t,nil); + +make_cons(c_733300,&c_733301,nil); + +make_cons(c_733299,quote_var,&c_733300); + +make_cons(c_733298,quote_cons,&c_733299); + +make_cons(c_733302,quote_alist,nil); + +make_cons(c_733297,&c_733298,&c_733302); + +make_cons(c_733296,quote_cons,&c_733297); + +make_cons(c_733295,&c_733296,nil); + +make_cons(c_733291,&c_733292,&c_733295); + +make_cons(c_733290,quote_equal,&c_733291); + +make_cons(c_733308,quote_alist,nil); + +make_cons(c_733307,quote_var,&c_733308); + +make_cons(c_733306,quote_assume_91false,&c_733307); + +make_cons(c_733315,quote_f,nil); + +make_cons(c_733314,&c_733315,nil); + +make_cons(c_733313,quote_var,&c_733314); + +make_cons(c_733312,quote_cons,&c_733313); + +make_cons(c_733316,quote_alist,nil); + +make_cons(c_733311,&c_733312,&c_733316); + +make_cons(c_733310,quote_cons,&c_733311); + +make_cons(c_733309,&c_733310,nil); + +make_cons(c_733305,&c_733306,&c_733309); + +make_cons(c_733304,quote_equal,&c_733305); + +make_cons(c_733321,quote_x,nil); + +make_cons(c_733320,quote_tautology_91checker,&c_733321); + +make_cons(c_733326,quote_x,nil); + +make_cons(c_733325,quote_normalize,&c_733326); + +make_cons(c_733328,quote_nil,nil); + +make_cons(c_733327,&c_733328,nil); + +make_cons(c_733324,&c_733325,&c_733327); + +make_cons(c_733323,quote_tautologyp,&c_733324); + +make_cons(c_733322,&c_733323,nil); + +make_cons(c_733319,&c_733320,&c_733322); + +make_cons(c_733318,quote_equal,&c_733319); + +make_cons(c_733333,quote_x,nil); + +make_cons(c_733332,quote_falsify,&c_733333); + +make_cons(c_733338,quote_x,nil); + +make_cons(c_733337,quote_normalize,&c_733338); + +make_cons(c_733340,quote_nil,nil); + +make_cons(c_733339,&c_733340,nil); + +make_cons(c_733336,&c_733337,&c_733339); + +make_cons(c_733335,quote_falsify1,&c_733336); + +make_cons(c_733334,&c_733335,nil); + +make_cons(c_733331,&c_733332,&c_733334); + +make_cons(c_733330,quote_equal,&c_733331); + +make_cons(c_733345,quote_x,nil); + +make_cons(c_733344,quote_prime,&c_733345); + +make_cons(c_733352,quote_x,nil); + +make_cons(c_733351,quote_zerop,&c_733352); + +make_cons(c_733350,&c_733351,nil); + +make_cons(c_733349,quote_not,&c_733350); + +make_cons(c_733361,quote_zero,nil); + +make_cons(c_733360,&c_733361,nil); + +make_cons(c_733359,quote_add1,&c_733360); + +make_cons(c_733358,&c_733359,nil); + +make_cons(c_733357,quote_x,&c_733358); + +make_cons(c_733356,quote_equal,&c_733357); + +make_cons(c_733355,&c_733356,nil); + +make_cons(c_733354,quote_not,&c_733355); + +make_cons(c_733367,quote_x,nil); + +make_cons(c_733366,quote__1911_91,&c_733367); + +make_cons(c_733365,&c_733366,nil); + +make_cons(c_733364,quote_x,&c_733365); + +make_cons(c_733363,quote_prime1,&c_733364); + +make_cons(c_733362,&c_733363,nil); + +make_cons(c_733353,&c_733354,&c_733362); + +make_cons(c_733348,&c_733349,&c_733353); + +make_cons(c_733347,quote_and,&c_733348); + +make_cons(c_733346,&c_733347,nil); + +make_cons(c_733343,&c_733344,&c_733346); + +make_cons(c_733342,quote_equal,&c_733343); + +make_cons(c_733373,quote_q,nil); + +make_cons(c_733372,quote_p,&c_733373); + +make_cons(c_733371,quote_and,&c_733372); + +make_cons(c_733381,quote_t,nil); + +make_cons(c_733383,quote_f,nil); + +make_cons(c_733382,&c_733383,nil); + +make_cons(c_733380,&c_733381,&c_733382); + +make_cons(c_733379,quote_q,&c_733380); + +make_cons(c_733378,quote__if,&c_733379); + +make_cons(c_733385,quote_f,nil); + +make_cons(c_733384,&c_733385,nil); + +make_cons(c_733377,&c_733378,&c_733384); + +make_cons(c_733376,quote_p,&c_733377); + +make_cons(c_733375,quote__if,&c_733376); + +make_cons(c_733374,&c_733375,nil); + +make_cons(c_733370,&c_733371,&c_733374); + +make_cons(c_733369,quote_equal,&c_733370); + +make_cons(c_733391,quote_q,nil); + +make_cons(c_733390,quote_p,&c_733391); + +make_cons(c_733389,quote_or,&c_733390); + +make_cons(c_733396,quote_t,nil); + +make_cons(c_733401,quote_t,nil); + +make_cons(c_733403,quote_f,nil); + +make_cons(c_733402,&c_733403,nil); + +make_cons(c_733400,&c_733401,&c_733402); + +make_cons(c_733399,quote_q,&c_733400); + +make_cons(c_733398,quote__if,&c_733399); + +make_cons(c_733397,&c_733398,nil); + +make_cons(c_733395,&c_733396,&c_733397); + +make_cons(c_733394,quote_p,&c_733395); + +make_cons(c_733393,quote__if,&c_733394); + +make_cons(c_733392,&c_733393,nil); + +make_cons(c_733388,&c_733389,&c_733392); + +make_cons(c_733387,quote_equal,&c_733388); + +make_cons(c_733408,quote_p,nil); + +make_cons(c_733407,quote_not,&c_733408); + +make_cons(c_733413,quote_f,nil); + +make_cons(c_733415,quote_t,nil); + +make_cons(c_733414,&c_733415,nil); + +make_cons(c_733412,&c_733413,&c_733414); + +make_cons(c_733411,quote_p,&c_733412); + +make_cons(c_733410,quote__if,&c_733411); + +make_cons(c_733409,&c_733410,nil); + +make_cons(c_733406,&c_733407,&c_733409); + +make_cons(c_733405,quote_equal,&c_733406); + +make_cons(c_733421,quote_q,nil); + +make_cons(c_733420,quote_p,&c_733421); + +make_cons(c_733419,quote_implies,&c_733420); + +make_cons(c_733429,quote_t,nil); + +make_cons(c_733431,quote_f,nil); + +make_cons(c_733430,&c_733431,nil); + +make_cons(c_733428,&c_733429,&c_733430); + +make_cons(c_733427,quote_q,&c_733428); + +make_cons(c_733426,quote__if,&c_733427); + +make_cons(c_733433,quote_t,nil); + +make_cons(c_733432,&c_733433,nil); + +make_cons(c_733425,&c_733426,&c_733432); + +make_cons(c_733424,quote_p,&c_733425); + +make_cons(c_733423,quote__if,&c_733424); + +make_cons(c_733422,&c_733423,nil); + +make_cons(c_733418,&c_733419,&c_733422); + +make_cons(c_733417,quote_equal,&c_733418); + +make_cons(c_733438,quote_x,nil); + +make_cons(c_733437,quote_fix,&c_733438); + +make_cons(c_733443,quote_x,nil); + +make_cons(c_733442,quote_numberp,&c_733443); + +make_cons(c_733446,quote_zero,nil); + +make_cons(c_733445,&c_733446,nil); + +make_cons(c_733444,quote_x,&c_733445); + +make_cons(c_733441,&c_733442,&c_733444); + +make_cons(c_733440,quote__if,&c_733441); + +make_cons(c_733439,&c_733440,nil); + +make_cons(c_733436,&c_733437,&c_733439); + +make_cons(c_733435,quote_equal,&c_733436); + +make_cons(c_733455,quote_c,nil); + +make_cons(c_733454,quote_b,&c_733455); + +make_cons(c_733453,quote_a,&c_733454); + +make_cons(c_733452,quote__if,&c_733453); + +make_cons(c_733457,quote_e,nil); + +make_cons(c_733456,quote_d,&c_733457); + +make_cons(c_733451,&c_733452,&c_733456); + +make_cons(c_733450,quote__if,&c_733451); + +make_cons(c_733465,quote_e,nil); + +make_cons(c_733464,quote_d,&c_733465); + +make_cons(c_733463,quote_b,&c_733464); + +make_cons(c_733462,quote__if,&c_733463); + +make_cons(c_733470,quote_e,nil); + +make_cons(c_733469,quote_d,&c_733470); + +make_cons(c_733468,quote_c,&c_733469); + +make_cons(c_733467,quote__if,&c_733468); + +make_cons(c_733466,&c_733467,nil); + +make_cons(c_733461,&c_733462,&c_733466); + +make_cons(c_733460,quote_a,&c_733461); + +make_cons(c_733459,quote__if,&c_733460); + +make_cons(c_733458,&c_733459,nil); + +make_cons(c_733449,&c_733450,&c_733458); + +make_cons(c_733448,quote_equal,&c_733449); + +make_cons(c_733475,quote_x,nil); + +make_cons(c_733474,quote_zerop,&c_733475); + +make_cons(c_733482,quote_zero,nil); + +make_cons(c_733481,&c_733482,nil); + +make_cons(c_733480,quote_x,&c_733481); + +make_cons(c_733479,quote_equal,&c_733480); + +make_cons(c_733487,quote_x,nil); + +make_cons(c_733486,quote_numberp,&c_733487); + +make_cons(c_733485,&c_733486,nil); + +make_cons(c_733484,quote_not,&c_733485); + +make_cons(c_733483,&c_733484,nil); + +make_cons(c_733478,&c_733479,&c_733483); + +make_cons(c_733477,quote_or,&c_733478); + +make_cons(c_733476,&c_733477,nil); + +make_cons(c_733473,&c_733474,&c_733476); + +make_cons(c_733472,quote_equal,&c_733473); + +make_cons(c_733495,quote_y,nil); + +make_cons(c_733494,quote_x,&c_733495); + +make_cons(c_733493,quote_plus,&c_733494); + +make_cons(c_733496,quote_z,nil); + +make_cons(c_733492,&c_733493,&c_733496); + +make_cons(c_733491,quote_plus,&c_733492); + +make_cons(c_733503,quote_z,nil); + +make_cons(c_733502,quote_y,&c_733503); + +make_cons(c_733501,quote_plus,&c_733502); + +make_cons(c_733500,&c_733501,nil); + +make_cons(c_733499,quote_x,&c_733500); + +make_cons(c_733498,quote_plus,&c_733499); + +make_cons(c_733497,&c_733498,nil); + +make_cons(c_733490,&c_733491,&c_733497); + +make_cons(c_733489,quote_equal,&c_733490); + +make_cons(c_733511,quote_b,nil); + +make_cons(c_733510,quote_a,&c_733511); + +make_cons(c_733509,quote_plus,&c_733510); + +make_cons(c_733513,quote_zero,nil); + +make_cons(c_733512,&c_733513,nil); + +make_cons(c_733508,&c_733509,&c_733512); + +make_cons(c_733507,quote_equal,&c_733508); + +make_cons(c_733518,quote_a,nil); + +make_cons(c_733517,quote_zerop,&c_733518); + +make_cons(c_733521,quote_b,nil); + +make_cons(c_733520,quote_zerop,&c_733521); + +make_cons(c_733519,&c_733520,nil); + +make_cons(c_733516,&c_733517,&c_733519); + +make_cons(c_733515,quote_and,&c_733516); + +make_cons(c_733514,&c_733515,nil); + +make_cons(c_733506,&c_733507,&c_733514); + +make_cons(c_733505,quote_equal,&c_733506); + +make_cons(c_733527,quote_x,nil); + +make_cons(c_733526,quote_x,&c_733527); + +make_cons(c_733525,quote_difference,&c_733526); + +make_cons(c_733529,quote_zero,nil); + +make_cons(c_733528,&c_733529,nil); + +make_cons(c_733524,&c_733525,&c_733528); + +make_cons(c_733523,quote_equal,&c_733524); + +make_cons(c_733537,quote_b,nil); + +make_cons(c_733536,quote_a,&c_733537); + +make_cons(c_733535,quote_plus,&c_733536); + +make_cons(c_733541,quote_c,nil); + +make_cons(c_733540,quote_a,&c_733541); + +make_cons(c_733539,quote_plus,&c_733540); + +make_cons(c_733538,&c_733539,nil); + +make_cons(c_733534,&c_733535,&c_733538); + +make_cons(c_733533,quote_equal,&c_733534); + +make_cons(c_733546,quote_b,nil); + +make_cons(c_733545,quote_fix,&c_733546); + +make_cons(c_733549,quote_c,nil); + +make_cons(c_733548,quote_fix,&c_733549); + +make_cons(c_733547,&c_733548,nil); + +make_cons(c_733544,&c_733545,&c_733547); + +make_cons(c_733543,quote_equal,&c_733544); + +make_cons(c_733542,&c_733543,nil); + +make_cons(c_733532,&c_733533,&c_733542); + +make_cons(c_733531,quote_equal,&c_733532); + +make_cons(c_733555,quote_zero,nil); + +make_cons(c_733559,quote_y,nil); + +make_cons(c_733558,quote_x,&c_733559); + +make_cons(c_733557,quote_difference,&c_733558); + +make_cons(c_733556,&c_733557,nil); + +make_cons(c_733554,&c_733555,&c_733556); + +make_cons(c_733553,quote_equal,&c_733554); + +make_cons(c_733565,quote_x,nil); + +make_cons(c_733564,quote_y,&c_733565); + +make_cons(c_733563,quote_lessp,&c_733564); + +make_cons(c_733562,&c_733563,nil); + +make_cons(c_733561,quote_not,&c_733562); + +make_cons(c_733560,&c_733561,nil); + +make_cons(c_733552,&c_733553,&c_733560); + +make_cons(c_733551,quote_equal,&c_733552); + +make_cons(c_733574,quote_y,nil); + +make_cons(c_733573,quote_x,&c_733574); + +make_cons(c_733572,quote_difference,&c_733573); + +make_cons(c_733571,&c_733572,nil); + +make_cons(c_733570,quote_x,&c_733571); + +make_cons(c_733569,quote_equal,&c_733570); + +make_cons(c_733579,quote_x,nil); + +make_cons(c_733578,quote_numberp,&c_733579); + +make_cons(c_733586,quote_zero,nil); + +make_cons(c_733585,&c_733586,nil); + +make_cons(c_733584,quote_x,&c_733585); + +make_cons(c_733583,quote_equal,&c_733584); + +make_cons(c_733589,quote_y,nil); + +make_cons(c_733588,quote_zerop,&c_733589); + +make_cons(c_733587,&c_733588,nil); + +make_cons(c_733582,&c_733583,&c_733587); + +make_cons(c_733581,quote_or,&c_733582); + +make_cons(c_733580,&c_733581,nil); + +make_cons(c_733577,&c_733578,&c_733580); + +make_cons(c_733576,quote_and,&c_733577); + +make_cons(c_733575,&c_733576,nil); + +make_cons(c_733568,&c_733569,&c_733575); + +make_cons(c_733567,quote_equal,&c_733568); + +make_cons(c_733599,quote_y,nil); + +make_cons(c_733598,quote_x,&c_733599); + +make_cons(c_733597,quote_append,&c_733598); + +make_cons(c_733596,&c_733597,nil); + +make_cons(c_733595,quote_plus_91tree,&c_733596); + +make_cons(c_733600,quote_a,nil); + +make_cons(c_733594,&c_733595,&c_733600); + +make_cons(c_733593,quote_meaning,&c_733594); + +make_cons(c_733607,quote_x,nil); + +make_cons(c_733606,quote_plus_91tree,&c_733607); + +make_cons(c_733608,quote_a,nil); + +make_cons(c_733605,&c_733606,&c_733608); + +make_cons(c_733604,quote_meaning,&c_733605); + +make_cons(c_733613,quote_y,nil); + +make_cons(c_733612,quote_plus_91tree,&c_733613); + +make_cons(c_733614,quote_a,nil); + +make_cons(c_733611,&c_733612,&c_733614); + +make_cons(c_733610,quote_meaning,&c_733611); + +make_cons(c_733609,&c_733610,nil); + +make_cons(c_733603,&c_733604,&c_733609); + +make_cons(c_733602,quote_plus,&c_733603); + +make_cons(c_733601,&c_733602,nil); + +make_cons(c_733592,&c_733593,&c_733601); + +make_cons(c_733591,quote_equal,&c_733592); + +make_cons(c_733623,quote_x,nil); + +make_cons(c_733622,quote_plus_91fringe,&c_733623); + +make_cons(c_733621,&c_733622,nil); + +make_cons(c_733620,quote_plus_91tree,&c_733621); + +make_cons(c_733624,quote_a,nil); + +make_cons(c_733619,&c_733620,&c_733624); + +make_cons(c_733618,quote_meaning,&c_733619); + +make_cons(c_733630,quote_a,nil); + +make_cons(c_733629,quote_x,&c_733630); + +make_cons(c_733628,quote_meaning,&c_733629); + +make_cons(c_733627,&c_733628,nil); + +make_cons(c_733626,quote_fix,&c_733627); + +make_cons(c_733625,&c_733626,nil); + +make_cons(c_733617,&c_733618,&c_733625); + +make_cons(c_733616,quote_equal,&c_733617); + +make_cons(c_733638,quote_y,nil); + +make_cons(c_733637,quote_x,&c_733638); + +make_cons(c_733636,quote_append,&c_733637); + +make_cons(c_733639,quote_z,nil); + +make_cons(c_733635,&c_733636,&c_733639); + +make_cons(c_733634,quote_append,&c_733635); + +make_cons(c_733646,quote_z,nil); + +make_cons(c_733645,quote_y,&c_733646); + +make_cons(c_733644,quote_append,&c_733645); + +make_cons(c_733643,&c_733644,nil); + +make_cons(c_733642,quote_x,&c_733643); + +make_cons(c_733641,quote_append,&c_733642); + +make_cons(c_733640,&c_733641,nil); + +make_cons(c_733633,&c_733634,&c_733640); + +make_cons(c_733632,quote_equal,&c_733633); + +make_cons(c_733654,quote_b,nil); + +make_cons(c_733653,quote_a,&c_733654); + +make_cons(c_733652,quote_append,&c_733653); + +make_cons(c_733651,&c_733652,nil); + +make_cons(c_733650,quote_reverse,&c_733651); + +make_cons(c_733659,quote_b,nil); + +make_cons(c_733658,quote_reverse,&c_733659); + +make_cons(c_733662,quote_a,nil); + +make_cons(c_733661,quote_reverse,&c_733662); + +make_cons(c_733660,&c_733661,nil); + +make_cons(c_733657,&c_733658,&c_733660); + +make_cons(c_733656,quote_append,&c_733657); + +make_cons(c_733655,&c_733656,nil); + +make_cons(c_733649,&c_733650,&c_733655); + +make_cons(c_733648,quote_equal,&c_733649); + +make_cons(c_733671,quote_z,nil); + +make_cons(c_733670,quote_y,&c_733671); + +make_cons(c_733669,quote_plus,&c_733670); + +make_cons(c_733668,&c_733669,nil); + +make_cons(c_733667,quote_x,&c_733668); + +make_cons(c_733666,quote_times,&c_733667); + +make_cons(c_733677,quote_y,nil); + +make_cons(c_733676,quote_x,&c_733677); + +make_cons(c_733675,quote_times,&c_733676); + +make_cons(c_733681,quote_z,nil); + +make_cons(c_733680,quote_x,&c_733681); + +make_cons(c_733679,quote_times,&c_733680); + +make_cons(c_733678,&c_733679,nil); + +make_cons(c_733674,&c_733675,&c_733678); + +make_cons(c_733673,quote_plus,&c_733674); + +make_cons(c_733672,&c_733673,nil); + +make_cons(c_733665,&c_733666,&c_733672); + +make_cons(c_733664,quote_equal,&c_733665); + +make_cons(c_733689,quote_y,nil); + +make_cons(c_733688,quote_x,&c_733689); + +make_cons(c_733687,quote_times,&c_733688); + +make_cons(c_733690,quote_z,nil); + +make_cons(c_733686,&c_733687,&c_733690); + +make_cons(c_733685,quote_times,&c_733686); + +make_cons(c_733697,quote_z,nil); + +make_cons(c_733696,quote_y,&c_733697); + +make_cons(c_733695,quote_times,&c_733696); + +make_cons(c_733694,&c_733695,nil); + +make_cons(c_733693,quote_x,&c_733694); + +make_cons(c_733692,quote_times,&c_733693); + +make_cons(c_733691,&c_733692,nil); + +make_cons(c_733684,&c_733685,&c_733691); + +make_cons(c_733683,quote_equal,&c_733684); + +make_cons(c_733705,quote_y,nil); + +make_cons(c_733704,quote_x,&c_733705); + +make_cons(c_733703,quote_times,&c_733704); + +make_cons(c_733707,quote_zero,nil); + +make_cons(c_733706,&c_733707,nil); + +make_cons(c_733702,&c_733703,&c_733706); + +make_cons(c_733701,quote_equal,&c_733702); + +make_cons(c_733712,quote_x,nil); + +make_cons(c_733711,quote_zerop,&c_733712); + +make_cons(c_733715,quote_y,nil); + +make_cons(c_733714,quote_zerop,&c_733715); + +make_cons(c_733713,&c_733714,nil); + +make_cons(c_733710,&c_733711,&c_733713); + +make_cons(c_733709,quote_or,&c_733710); + +make_cons(c_733708,&c_733709,nil); + +make_cons(c_733700,&c_733701,&c_733708); + +make_cons(c_733699,quote_equal,&c_733700); + +make_cons(c_733723,quote_y,nil); + +make_cons(c_733722,quote_x,&c_733723); + +make_cons(c_733721,quote_append,&c_733722); + +make_cons(c_733725,quote_envrn,nil); + +make_cons(c_733724,quote_pds,&c_733725); + +make_cons(c_733720,&c_733721,&c_733724); + +make_cons(c_733719,quote_exec,&c_733720); + +make_cons(c_733733,quote_envrn,nil); + +make_cons(c_733732,quote_pds,&c_733733); + +make_cons(c_733731,quote_x,&c_733732); + +make_cons(c_733730,quote_exec,&c_733731); + +make_cons(c_733734,quote_envrn,nil); + +make_cons(c_733729,&c_733730,&c_733734); + +make_cons(c_733728,quote_y,&c_733729); + +make_cons(c_733727,quote_exec,&c_733728); + +make_cons(c_733726,&c_733727,nil); + +make_cons(c_733718,&c_733719,&c_733726); + +make_cons(c_733717,quote_equal,&c_733718); + +make_cons(c_733740,quote_y,nil); + +make_cons(c_733739,quote_x,&c_733740); + +make_cons(c_733738,quote_mc_91flatten,&c_733739); + +make_cons(c_733745,quote_x,nil); + +make_cons(c_733744,quote_flatten,&c_733745); + +make_cons(c_733746,quote_y,nil); + +make_cons(c_733743,&c_733744,&c_733746); + +make_cons(c_733742,quote_append,&c_733743); + +make_cons(c_733741,&c_733742,nil); + +make_cons(c_733737,&c_733738,&c_733741); + +make_cons(c_733736,quote_equal,&c_733737); + +make_cons(c_733755,quote_b,nil); + +make_cons(c_733754,quote_a,&c_733755); + +make_cons(c_733753,quote_append,&c_733754); + +make_cons(c_733752,&c_733753,nil); + +make_cons(c_733751,quote_x,&c_733752); + +make_cons(c_733750,quote_member,&c_733751); + +make_cons(c_733761,quote_a,nil); + +make_cons(c_733760,quote_x,&c_733761); + +make_cons(c_733759,quote_member,&c_733760); + +make_cons(c_733765,quote_b,nil); + +make_cons(c_733764,quote_x,&c_733765); + +make_cons(c_733763,quote_member,&c_733764); + +make_cons(c_733762,&c_733763,nil); + +make_cons(c_733758,&c_733759,&c_733762); + +make_cons(c_733757,quote_or,&c_733758); + +make_cons(c_733756,&c_733757,nil); + +make_cons(c_733749,&c_733750,&c_733756); + +make_cons(c_733748,quote_equal,&c_733749); + +make_cons(c_733773,quote_y,nil); + +make_cons(c_733772,quote_reverse,&c_733773); + +make_cons(c_733771,&c_733772,nil); + +make_cons(c_733770,quote_x,&c_733771); + +make_cons(c_733769,quote_member,&c_733770); + +make_cons(c_733777,quote_y,nil); + +make_cons(c_733776,quote_x,&c_733777); + +make_cons(c_733775,quote_member,&c_733776); + +make_cons(c_733774,&c_733775,nil); + +make_cons(c_733768,&c_733769,&c_733774); + +make_cons(c_733767,quote_equal,&c_733768); + +make_cons(c_733784,quote_x,nil); + +make_cons(c_733783,quote_reverse,&c_733784); + +make_cons(c_733782,&c_733783,nil); + +make_cons(c_733781,quote_length,&c_733782); + +make_cons(c_733787,quote_x,nil); + +make_cons(c_733786,quote_length,&c_733787); + +make_cons(c_733785,&c_733786,nil); + +make_cons(c_733780,&c_733781,&c_733785); + +make_cons(c_733779,quote_equal,&c_733780); + +make_cons(c_733796,quote_c,nil); + +make_cons(c_733795,quote_b,&c_733796); + +make_cons(c_733794,quote_intersect,&c_733795); + +make_cons(c_733793,&c_733794,nil); + +make_cons(c_733792,quote_a,&c_733793); + +make_cons(c_733791,quote_member,&c_733792); + +make_cons(c_733802,quote_b,nil); + +make_cons(c_733801,quote_a,&c_733802); + +make_cons(c_733800,quote_member,&c_733801); + +make_cons(c_733806,quote_c,nil); + +make_cons(c_733805,quote_a,&c_733806); + +make_cons(c_733804,quote_member,&c_733805); + +make_cons(c_733803,&c_733804,nil); + +make_cons(c_733799,&c_733800,&c_733803); + +make_cons(c_733798,quote_and,&c_733799); + +make_cons(c_733797,&c_733798,nil); + +make_cons(c_733790,&c_733791,&c_733797); + +make_cons(c_733789,quote_equal,&c_733790); + +make_cons(c_733812,quote_zero,nil); + +make_cons(c_733813,quote_i,nil); + +make_cons(c_733811,&c_733812,&c_733813); + +make_cons(c_733810,quote_nth,&c_733811); + +make_cons(c_733815,quote_zero,nil); + +make_cons(c_733814,&c_733815,nil); + +make_cons(c_733809,&c_733810,&c_733814); + +make_cons(c_733808,quote_equal,&c_733809); + +make_cons(c_733824,quote_k,nil); + +make_cons(c_733823,quote_j,&c_733824); + +make_cons(c_733822,quote_plus,&c_733823); + +make_cons(c_733821,&c_733822,nil); + +make_cons(c_733820,quote_i,&c_733821); + +make_cons(c_733819,quote_exp,&c_733820); + +make_cons(c_733830,quote_j,nil); + +make_cons(c_733829,quote_i,&c_733830); + +make_cons(c_733828,quote_exp,&c_733829); + +make_cons(c_733834,quote_k,nil); + +make_cons(c_733833,quote_i,&c_733834); + +make_cons(c_733832,quote_exp,&c_733833); + +make_cons(c_733831,&c_733832,nil); + +make_cons(c_733827,&c_733828,&c_733831); + +make_cons(c_733826,quote_times,&c_733827); + +make_cons(c_733825,&c_733826,nil); + +make_cons(c_733818,&c_733819,&c_733825); + +make_cons(c_733817,quote_equal,&c_733818); + +make_cons(c_733843,quote_k,nil); + +make_cons(c_733842,quote_j,&c_733843); + +make_cons(c_733841,quote_times,&c_733842); + +make_cons(c_733840,&c_733841,nil); + +make_cons(c_733839,quote_i,&c_733840); + +make_cons(c_733838,quote_exp,&c_733839); + +make_cons(c_733849,quote_j,nil); + +make_cons(c_733848,quote_i,&c_733849); + +make_cons(c_733847,quote_exp,&c_733848); + +make_cons(c_733850,quote_k,nil); + +make_cons(c_733846,&c_733847,&c_733850); + +make_cons(c_733845,quote_exp,&c_733846); + +make_cons(c_733844,&c_733845,nil); + +make_cons(c_733837,&c_733838,&c_733844); + +make_cons(c_733836,quote_equal,&c_733837); + +make_cons(c_733856,quote_y,nil); + +make_cons(c_733855,quote_x,&c_733856); + +make_cons(c_733854,quote_reverse_91loop,&c_733855); + +make_cons(c_733861,quote_x,nil); + +make_cons(c_733860,quote_reverse,&c_733861); + +make_cons(c_733862,quote_y,nil); + +make_cons(c_733859,&c_733860,&c_733862); + +make_cons(c_733858,quote_append,&c_733859); + +make_cons(c_733857,&c_733858,nil); + +make_cons(c_733853,&c_733854,&c_733857); + +make_cons(c_733852,quote_equal,&c_733853); + +make_cons(c_733869,quote_nil,nil); + +make_cons(c_733868,&c_733869,nil); + +make_cons(c_733867,quote_x,&c_733868); + +make_cons(c_733866,quote_reverse_91loop,&c_733867); + +make_cons(c_733872,quote_x,nil); + +make_cons(c_733871,quote_reverse,&c_733872); + +make_cons(c_733870,&c_733871,nil); + +make_cons(c_733865,&c_733866,&c_733870); + +make_cons(c_733864,quote_equal,&c_733865); + +make_cons(c_733881,quote_y,nil); + +make_cons(c_733880,quote_x,&c_733881); + +make_cons(c_733879,quote_sort_91lp,&c_733880); + +make_cons(c_733878,&c_733879,nil); + +make_cons(c_733877,quote_z,&c_733878); + +make_cons(c_733876,quote_count_91list,&c_733877); + +make_cons(c_733887,quote_x,nil); + +make_cons(c_733886,quote_z,&c_733887); + +make_cons(c_733885,quote_count_91list,&c_733886); + +make_cons(c_733891,quote_y,nil); + +make_cons(c_733890,quote_z,&c_733891); + +make_cons(c_733889,quote_count_91list,&c_733890); + +make_cons(c_733888,&c_733889,nil); + +make_cons(c_733884,&c_733885,&c_733888); + +make_cons(c_733883,quote_plus,&c_733884); + +make_cons(c_733882,&c_733883,nil); + +make_cons(c_733875,&c_733876,&c_733882); + +make_cons(c_733874,quote_equal,&c_733875); + +make_cons(c_733899,quote_b,nil); + +make_cons(c_733898,quote_a,&c_733899); + +make_cons(c_733897,quote_append,&c_733898); + +make_cons(c_733903,quote_c,nil); + +make_cons(c_733902,quote_a,&c_733903); + +make_cons(c_733901,quote_append,&c_733902); + +make_cons(c_733900,&c_733901,nil); + +make_cons(c_733896,&c_733897,&c_733900); + +make_cons(c_733895,quote_equal,&c_733896); + +make_cons(c_733907,quote_c,nil); + +make_cons(c_733906,quote_b,&c_733907); + +make_cons(c_733905,quote_equal,&c_733906); + +make_cons(c_733904,&c_733905,nil); + +make_cons(c_733894,&c_733895,&c_733904); + +make_cons(c_733893,quote_equal,&c_733894); + +make_cons(c_733915,quote_y,nil); + +make_cons(c_733914,quote_x,&c_733915); + +make_cons(c_733913,quote_remainder,&c_733914); + +make_cons(c_733922,quote_y,nil); + +make_cons(c_733921,quote_x,&c_733922); + +make_cons(c_733920,quote_quotient,&c_733921); + +make_cons(c_733919,&c_733920,nil); + +make_cons(c_733918,quote_y,&c_733919); + +make_cons(c_733917,quote_times,&c_733918); + +make_cons(c_733916,&c_733917,nil); + +make_cons(c_733912,&c_733913,&c_733916); + +make_cons(c_733911,quote_plus,&c_733912); + +make_cons(c_733925,quote_x,nil); + +make_cons(c_733924,quote_fix,&c_733925); + +make_cons(c_733923,&c_733924,nil); + +make_cons(c_733910,&c_733911,&c_733923); + +make_cons(c_733909,quote_equal,&c_733910); + +make_cons(c_733934,quote_base,nil); + +make_cons(c_733933,quote_i,&c_733934); + +make_cons(c_733932,quote_l,&c_733933); + +make_cons(c_733931,quote_big_91plus1,&c_733932); + +make_cons(c_733935,quote_base,nil); + +make_cons(c_733930,&c_733931,&c_733935); + +make_cons(c_733929,quote_power_91eval,&c_733930); + +make_cons(c_733941,quote_base,nil); + +make_cons(c_733940,quote_l,&c_733941); + +make_cons(c_733939,quote_power_91eval,&c_733940); + +make_cons(c_733942,quote_i,nil); + +make_cons(c_733938,&c_733939,&c_733942); + +make_cons(c_733937,quote_plus,&c_733938); + +make_cons(c_733936,&c_733937,nil); + +make_cons(c_733928,&c_733929,&c_733936); + +make_cons(c_733927,quote_equal,&c_733928); + +make_cons(c_733952,quote_base,nil); + +make_cons(c_733951,quote_i,&c_733952); + +make_cons(c_733950,quote_y,&c_733951); + +make_cons(c_733949,quote_x,&c_733950); + +make_cons(c_733948,quote_big_91plus,&c_733949); + +make_cons(c_733953,quote_base,nil); + +make_cons(c_733947,&c_733948,&c_733953); + +make_cons(c_733946,quote_power_91eval,&c_733947); + +make_cons(c_733962,quote_base,nil); + +make_cons(c_733961,quote_x,&c_733962); + +make_cons(c_733960,quote_power_91eval,&c_733961); + +make_cons(c_733966,quote_base,nil); + +make_cons(c_733965,quote_y,&c_733966); + +make_cons(c_733964,quote_power_91eval,&c_733965); + +make_cons(c_733963,&c_733964,nil); + +make_cons(c_733959,&c_733960,&c_733963); + +make_cons(c_733958,quote_plus,&c_733959); + +make_cons(c_733957,&c_733958,nil); + +make_cons(c_733956,quote_i,&c_733957); + +make_cons(c_733955,quote_plus,&c_733956); + +make_cons(c_733954,&c_733955,nil); + +make_cons(c_733945,&c_733946,&c_733954); + +make_cons(c_733944,quote_equal,&c_733945); + +make_cons(c_733972,obj_int2obj(1),nil); + +make_cons(c_733971,quote_y,&c_733972); + +make_cons(c_733970,quote_remainder,&c_733971); + +make_cons(c_733974,quote_zero,nil); + +make_cons(c_733973,&c_733974,nil); + +make_cons(c_733969,&c_733970,&c_733973); + +make_cons(c_733968,quote_equal,&c_733969); + +make_cons(c_733982,quote_y,nil); + +make_cons(c_733981,quote_x,&c_733982); + +make_cons(c_733980,quote_remainder,&c_733981); + +make_cons(c_733983,quote_y,nil); + +make_cons(c_733979,&c_733980,&c_733983); + +make_cons(c_733978,quote_lessp,&c_733979); + +make_cons(c_733988,quote_y,nil); + +make_cons(c_733987,quote_zerop,&c_733988); + +make_cons(c_733986,&c_733987,nil); + +make_cons(c_733985,quote_not,&c_733986); + +make_cons(c_733984,&c_733985,nil); + +make_cons(c_733977,&c_733978,&c_733984); + +make_cons(c_733976,quote_equal,&c_733977); + +make_cons(c_733994,quote_x,nil); + +make_cons(c_733993,quote_x,&c_733994); + +make_cons(c_733992,quote_remainder,&c_733993); + +make_cons(c_733996,quote_zero,nil); + +make_cons(c_733995,&c_733996,nil); + +make_cons(c_733991,&c_733992,&c_733995); + +make_cons(c_733990,quote_equal,&c_733991); + +make_cons(c_734004,quote_j,nil); + +make_cons(c_734003,quote_i,&c_734004); + +make_cons(c_734002,quote_quotient,&c_734003); + +make_cons(c_734005,quote_i,nil); + +make_cons(c_734001,&c_734002,&c_734005); + +make_cons(c_734000,quote_lessp,&c_734001); + +make_cons(c_734012,quote_i,nil); + +make_cons(c_734011,quote_zerop,&c_734012); + +make_cons(c_734010,&c_734011,nil); + +make_cons(c_734009,quote_not,&c_734010); + +make_cons(c_734017,quote_j,nil); + +make_cons(c_734016,quote_zerop,&c_734017); + +make_cons(c_734023,obj_int2obj(1),nil); + +make_cons(c_734022,quote_j,&c_734023); + +make_cons(c_734021,quote_equal,&c_734022); + +make_cons(c_734020,&c_734021,nil); + +make_cons(c_734019,quote_not,&c_734020); + +make_cons(c_734018,&c_734019,nil); + +make_cons(c_734015,&c_734016,&c_734018); + +make_cons(c_734014,quote_or,&c_734015); + +make_cons(c_734013,&c_734014,nil); + +make_cons(c_734008,&c_734009,&c_734013); + +make_cons(c_734007,quote_and,&c_734008); + +make_cons(c_734006,&c_734007,nil); + +make_cons(c_733999,&c_734000,&c_734006); + +make_cons(c_733998,quote_equal,&c_733999); + +make_cons(c_734031,quote_y,nil); + +make_cons(c_734030,quote_x,&c_734031); + +make_cons(c_734029,quote_remainder,&c_734030); + +make_cons(c_734032,quote_x,nil); + +make_cons(c_734028,&c_734029,&c_734032); + +make_cons(c_734027,quote_lessp,&c_734028); + +make_cons(c_734039,quote_y,nil); + +make_cons(c_734038,quote_zerop,&c_734039); + +make_cons(c_734037,&c_734038,nil); + +make_cons(c_734036,quote_not,&c_734037); + +make_cons(c_734044,quote_x,nil); + +make_cons(c_734043,quote_zerop,&c_734044); + +make_cons(c_734042,&c_734043,nil); + +make_cons(c_734041,quote_not,&c_734042); + +make_cons(c_734050,quote_y,nil); + +make_cons(c_734049,quote_x,&c_734050); + +make_cons(c_734048,quote_lessp,&c_734049); + +make_cons(c_734047,&c_734048,nil); + +make_cons(c_734046,quote_not,&c_734047); + +make_cons(c_734045,&c_734046,nil); + +make_cons(c_734040,&c_734041,&c_734045); + +make_cons(c_734035,&c_734036,&c_734040); + +make_cons(c_734034,quote_and,&c_734035); + +make_cons(c_734033,&c_734034,nil); + +make_cons(c_734026,&c_734027,&c_734033); + +make_cons(c_734025,quote_equal,&c_734026); + +make_cons(c_734058,quote_base,nil); + +make_cons(c_734057,quote_i,&c_734058); + +make_cons(c_734056,quote_power_91rep,&c_734057); + +make_cons(c_734059,quote_base,nil); + +make_cons(c_734055,&c_734056,&c_734059); + +make_cons(c_734054,quote_power_91eval,&c_734055); + +make_cons(c_734062,quote_i,nil); + +make_cons(c_734061,quote_fix,&c_734062); + +make_cons(c_734060,&c_734061,nil); + +make_cons(c_734053,&c_734054,&c_734060); + +make_cons(c_734052,quote_equal,&c_734053); + +make_cons(c_734072,quote_base,nil); + +make_cons(c_734071,quote_i,&c_734072); + +make_cons(c_734070,quote_power_91rep,&c_734071); + +make_cons(c_734076,quote_base,nil); + +make_cons(c_734075,quote_j,&c_734076); + +make_cons(c_734074,quote_power_91rep,&c_734075); + +make_cons(c_734078,quote_zero,nil); + +make_cons(c_734079,quote_base,nil); + +make_cons(c_734077,&c_734078,&c_734079); + +make_cons(c_734073,&c_734074,&c_734077); + +make_cons(c_734069,&c_734070,&c_734073); + +make_cons(c_734068,quote_big_91plus,&c_734069); + +make_cons(c_734080,quote_base,nil); + +make_cons(c_734067,&c_734068,&c_734080); + +make_cons(c_734066,quote_power_91eval,&c_734067); + +make_cons(c_734084,quote_j,nil); + +make_cons(c_734083,quote_i,&c_734084); + +make_cons(c_734082,quote_plus,&c_734083); + +make_cons(c_734081,&c_734082,nil); + +make_cons(c_734065,&c_734066,&c_734081); + +make_cons(c_734064,quote_equal,&c_734065); + +make_cons(c_734090,quote_y,nil); + +make_cons(c_734089,quote_x,&c_734090); + +make_cons(c_734088,quote_gcd,&c_734089); + +make_cons(c_734094,quote_x,nil); + +make_cons(c_734093,quote_y,&c_734094); + +make_cons(c_734092,quote_gcd,&c_734093); + +make_cons(c_734091,&c_734092,nil); + +make_cons(c_734087,&c_734088,&c_734091); + +make_cons(c_734086,quote_equal,&c_734087); + +make_cons(c_734102,quote_b,nil); + +make_cons(c_734101,quote_a,&c_734102); + +make_cons(c_734100,quote_append,&c_734101); + +make_cons(c_734103,quote_i,nil); + +make_cons(c_734099,&c_734100,&c_734103); + +make_cons(c_734098,quote_nth,&c_734099); + +make_cons(c_734109,quote_i,nil); + +make_cons(c_734108,quote_a,&c_734109); + +make_cons(c_734107,quote_nth,&c_734108); + +make_cons(c_734118,quote_a,nil); + +make_cons(c_734117,quote_length,&c_734118); + +make_cons(c_734116,&c_734117,nil); + +make_cons(c_734115,quote_i,&c_734116); + +make_cons(c_734114,quote_difference,&c_734115); + +make_cons(c_734113,&c_734114,nil); + +make_cons(c_734112,quote_b,&c_734113); + +make_cons(c_734111,quote_nth,&c_734112); + +make_cons(c_734110,&c_734111,nil); + +make_cons(c_734106,&c_734107,&c_734110); + +make_cons(c_734105,quote_append,&c_734106); + +make_cons(c_734104,&c_734105,nil); + +make_cons(c_734097,&c_734098,&c_734104); + +make_cons(c_734096,quote_equal,&c_734097); + +make_cons(c_734126,quote_y,nil); + +make_cons(c_734125,quote_x,&c_734126); + +make_cons(c_734124,quote_plus,&c_734125); + +make_cons(c_734127,quote_x,nil); + +make_cons(c_734123,&c_734124,&c_734127); + +make_cons(c_734122,quote_difference,&c_734123); + +make_cons(c_734130,quote_y,nil); + +make_cons(c_734129,quote_fix,&c_734130); + +make_cons(c_734128,&c_734129,nil); + +make_cons(c_734121,&c_734122,&c_734128); + +make_cons(c_734120,quote_equal,&c_734121); + +make_cons(c_734138,quote_x,nil); + +make_cons(c_734137,quote_y,&c_734138); + +make_cons(c_734136,quote_plus,&c_734137); + +make_cons(c_734139,quote_x,nil); + +make_cons(c_734135,&c_734136,&c_734139); + +make_cons(c_734134,quote_difference,&c_734135); + +make_cons(c_734142,quote_y,nil); + +make_cons(c_734141,quote_fix,&c_734142); + +make_cons(c_734140,&c_734141,nil); + +make_cons(c_734133,&c_734134,&c_734140); + +make_cons(c_734132,quote_equal,&c_734133); + +make_cons(c_734150,quote_y,nil); + +make_cons(c_734149,quote_x,&c_734150); + +make_cons(c_734148,quote_plus,&c_734149); + +make_cons(c_734154,quote_z,nil); + +make_cons(c_734153,quote_x,&c_734154); + +make_cons(c_734152,quote_plus,&c_734153); + +make_cons(c_734151,&c_734152,nil); + +make_cons(c_734147,&c_734148,&c_734151); + +make_cons(c_734146,quote_difference,&c_734147); + +make_cons(c_734158,quote_z,nil); + +make_cons(c_734157,quote_y,&c_734158); + +make_cons(c_734156,quote_difference,&c_734157); + +make_cons(c_734155,&c_734156,nil); + +make_cons(c_734145,&c_734146,&c_734155); + +make_cons(c_734144,quote_equal,&c_734145); + +make_cons(c_734167,quote_w,nil); + +make_cons(c_734166,quote_c,&c_734167); + +make_cons(c_734165,quote_difference,&c_734166); + +make_cons(c_734164,&c_734165,nil); + +make_cons(c_734163,quote_x,&c_734164); + +make_cons(c_734162,quote_times,&c_734163); + +make_cons(c_734173,quote_x,nil); + +make_cons(c_734172,quote_c,&c_734173); + +make_cons(c_734171,quote_times,&c_734172); + +make_cons(c_734177,quote_x,nil); + +make_cons(c_734176,quote_w,&c_734177); + +make_cons(c_734175,quote_times,&c_734176); + +make_cons(c_734174,&c_734175,nil); + +make_cons(c_734170,&c_734171,&c_734174); + +make_cons(c_734169,quote_difference,&c_734170); + +make_cons(c_734168,&c_734169,nil); + +make_cons(c_734161,&c_734162,&c_734168); + +make_cons(c_734160,quote_equal,&c_734161); + +make_cons(c_734185,quote_z,nil); + +make_cons(c_734184,quote_x,&c_734185); + +make_cons(c_734183,quote_times,&c_734184); + +make_cons(c_734186,quote_z,nil); + +make_cons(c_734182,&c_734183,&c_734186); + +make_cons(c_734181,quote_remainder,&c_734182); + +make_cons(c_734188,quote_zero,nil); + +make_cons(c_734187,&c_734188,nil); + +make_cons(c_734180,&c_734181,&c_734187); + +make_cons(c_734179,quote_equal,&c_734180); + +make_cons(c_734199,quote_c,nil); + +make_cons(c_734198,quote_a,&c_734199); + +make_cons(c_734197,quote_plus,&c_734198); + +make_cons(c_734196,&c_734197,nil); + +make_cons(c_734195,quote_b,&c_734196); + +make_cons(c_734194,quote_plus,&c_734195); + +make_cons(c_734200,quote_a,nil); + +make_cons(c_734193,&c_734194,&c_734200); + +make_cons(c_734192,quote_difference,&c_734193); + +make_cons(c_734204,quote_c,nil); + +make_cons(c_734203,quote_b,&c_734204); + +make_cons(c_734202,quote_plus,&c_734203); + +make_cons(c_734201,&c_734202,nil); + +make_cons(c_734191,&c_734192,&c_734201); + +make_cons(c_734190,quote_equal,&c_734191); + +make_cons(c_734214,quote_z,nil); + +make_cons(c_734213,quote_y,&c_734214); + +make_cons(c_734212,quote_plus,&c_734213); + +make_cons(c_734211,&c_734212,nil); + +make_cons(c_734210,quote_add1,&c_734211); + +make_cons(c_734215,quote_z,nil); + +make_cons(c_734209,&c_734210,&c_734215); + +make_cons(c_734208,quote_difference,&c_734209); + +make_cons(c_734218,quote_y,nil); + +make_cons(c_734217,quote_add1,&c_734218); + +make_cons(c_734216,&c_734217,nil); + +make_cons(c_734207,&c_734208,&c_734216); + +make_cons(c_734206,quote_equal,&c_734207); + +make_cons(c_734226,quote_y,nil); + +make_cons(c_734225,quote_x,&c_734226); + +make_cons(c_734224,quote_plus,&c_734225); + +make_cons(c_734230,quote_z,nil); + +make_cons(c_734229,quote_x,&c_734230); + +make_cons(c_734228,quote_plus,&c_734229); + +make_cons(c_734227,&c_734228,nil); + +make_cons(c_734223,&c_734224,&c_734227); + +make_cons(c_734222,quote_lessp,&c_734223); + +make_cons(c_734234,quote_z,nil); + +make_cons(c_734233,quote_y,&c_734234); + +make_cons(c_734232,quote_lessp,&c_734233); + +make_cons(c_734231,&c_734232,nil); + +make_cons(c_734221,&c_734222,&c_734231); + +make_cons(c_734220,quote_equal,&c_734221); + +make_cons(c_734242,quote_z,nil); + +make_cons(c_734241,quote_x,&c_734242); + +make_cons(c_734240,quote_times,&c_734241); + +make_cons(c_734246,quote_z,nil); + +make_cons(c_734245,quote_y,&c_734246); + +make_cons(c_734244,quote_times,&c_734245); + +make_cons(c_734243,&c_734244,nil); + +make_cons(c_734239,&c_734240,&c_734243); + +make_cons(c_734238,quote_lessp,&c_734239); + +make_cons(c_734253,quote_z,nil); + +make_cons(c_734252,quote_zerop,&c_734253); + +make_cons(c_734251,&c_734252,nil); + +make_cons(c_734250,quote_not,&c_734251); + +make_cons(c_734257,quote_y,nil); + +make_cons(c_734256,quote_x,&c_734257); + +make_cons(c_734255,quote_lessp,&c_734256); + +make_cons(c_734254,&c_734255,nil); + +make_cons(c_734249,&c_734250,&c_734254); + +make_cons(c_734248,quote_and,&c_734249); + +make_cons(c_734247,&c_734248,nil); + +make_cons(c_734237,&c_734238,&c_734247); + +make_cons(c_734236,quote_equal,&c_734237); + +make_cons(c_734266,quote_y,nil); + +make_cons(c_734265,quote_x,&c_734266); + +make_cons(c_734264,quote_plus,&c_734265); + +make_cons(c_734263,&c_734264,nil); + +make_cons(c_734262,quote_y,&c_734263); + +make_cons(c_734261,quote_lessp,&c_734262); + +make_cons(c_734271,quote_x,nil); + +make_cons(c_734270,quote_zerop,&c_734271); + +make_cons(c_734269,&c_734270,nil); + +make_cons(c_734268,quote_not,&c_734269); + +make_cons(c_734267,&c_734268,nil); + +make_cons(c_734260,&c_734261,&c_734267); + +make_cons(c_734259,quote_equal,&c_734260); + +make_cons(c_734279,quote_z,nil); + +make_cons(c_734278,quote_x,&c_734279); + +make_cons(c_734277,quote_times,&c_734278); + +make_cons(c_734283,quote_z,nil); + +make_cons(c_734282,quote_y,&c_734283); + +make_cons(c_734281,quote_times,&c_734282); + +make_cons(c_734280,&c_734281,nil); + +make_cons(c_734276,&c_734277,&c_734280); + +make_cons(c_734275,quote_gcd,&c_734276); + +make_cons(c_734290,quote_y,nil); + +make_cons(c_734289,quote_x,&c_734290); + +make_cons(c_734288,quote_gcd,&c_734289); + +make_cons(c_734287,&c_734288,nil); + +make_cons(c_734286,quote_z,&c_734287); + +make_cons(c_734285,quote_times,&c_734286); + +make_cons(c_734284,&c_734285,nil); + +make_cons(c_734274,&c_734275,&c_734284); + +make_cons(c_734273,quote_equal,&c_734274); + +make_cons(c_734297,quote_x,nil); + +make_cons(c_734296,quote_normalize,&c_734297); + +make_cons(c_734298,quote_a,nil); + +make_cons(c_734295,&c_734296,&c_734298); + +make_cons(c_734294,quote_value,&c_734295); + +make_cons(c_734302,quote_a,nil); + +make_cons(c_734301,quote_x,&c_734302); + +make_cons(c_734300,quote_value,&c_734301); + +make_cons(c_734299,&c_734300,nil); + +make_cons(c_734293,&c_734294,&c_734299); + +make_cons(c_734292,quote_equal,&c_734293); + +make_cons(c_734309,quote_x,nil); + +make_cons(c_734308,quote_flatten,&c_734309); + +make_cons(c_734314,quote_nil,nil); + +make_cons(c_734313,&c_734314,nil); + +make_cons(c_734312,quote_y,&c_734313); + +make_cons(c_734311,quote_cons,&c_734312); + +make_cons(c_734310,&c_734311,nil); + +make_cons(c_734307,&c_734308,&c_734310); + +make_cons(c_734306,quote_equal,&c_734307); + +make_cons(c_734319,quote_x,nil); + +make_cons(c_734318,quote_nlistp,&c_734319); + +make_cons(c_734323,quote_y,nil); + +make_cons(c_734322,quote_x,&c_734323); + +make_cons(c_734321,quote_equal,&c_734322); + +make_cons(c_734320,&c_734321,nil); + +make_cons(c_734317,&c_734318,&c_734320); + +make_cons(c_734316,quote_and,&c_734317); + +make_cons(c_734315,&c_734316,nil); + +make_cons(c_734305,&c_734306,&c_734315); + +make_cons(c_734304,quote_equal,&c_734305); + +make_cons(c_734330,quote_x,nil); + +make_cons(c_734329,quote_gopher,&c_734330); + +make_cons(c_734328,&c_734329,nil); + +make_cons(c_734327,quote_listp,&c_734328); + +make_cons(c_734333,quote_x,nil); + +make_cons(c_734332,quote_listp,&c_734333); + +make_cons(c_734331,&c_734332,nil); + +make_cons(c_734326,&c_734327,&c_734331); + +make_cons(c_734325,quote_equal,&c_734326); + +make_cons(c_734339,quote_y,nil); + +make_cons(c_734338,quote_x,&c_734339); + +make_cons(c_734337,quote_samefringe,&c_734338); + +make_cons(c_734344,quote_x,nil); + +make_cons(c_734343,quote_flatten,&c_734344); + +make_cons(c_734347,quote_y,nil); + +make_cons(c_734346,quote_flatten,&c_734347); + +make_cons(c_734345,&c_734346,nil); + +make_cons(c_734342,&c_734343,&c_734345); + +make_cons(c_734341,quote_equal,&c_734342); + +make_cons(c_734340,&c_734341,nil); + +make_cons(c_734336,&c_734337,&c_734340); + +make_cons(c_734335,quote_equal,&c_734336); + +make_cons(c_734355,quote_y,nil); + +make_cons(c_734354,quote_x,&c_734355); + +make_cons(c_734353,quote_greatest_91factor,&c_734354); + +make_cons(c_734357,quote_zero,nil); + +make_cons(c_734356,&c_734357,nil); + +make_cons(c_734352,&c_734353,&c_734356); + +make_cons(c_734351,quote_equal,&c_734352); + +make_cons(c_734364,quote_y,nil); + +make_cons(c_734363,quote_zerop,&c_734364); + +make_cons(c_734368,obj_int2obj(1),nil); + +make_cons(c_734367,quote_y,&c_734368); + +make_cons(c_734366,quote_equal,&c_734367); + +make_cons(c_734365,&c_734366,nil); + +make_cons(c_734362,&c_734363,&c_734365); + +make_cons(c_734361,quote_or,&c_734362); + +make_cons(c_734373,quote_zero,nil); + +make_cons(c_734372,&c_734373,nil); + +make_cons(c_734371,quote_x,&c_734372); + +make_cons(c_734370,quote_equal,&c_734371); + +make_cons(c_734369,&c_734370,nil); + +make_cons(c_734360,&c_734361,&c_734369); + +make_cons(c_734359,quote_and,&c_734360); + +make_cons(c_734358,&c_734359,nil); + +make_cons(c_734350,&c_734351,&c_734358); + +make_cons(c_734349,quote_equal,&c_734350); + +make_cons(c_734381,quote_y,nil); + +make_cons(c_734380,quote_x,&c_734381); + +make_cons(c_734379,quote_greatest_91factor,&c_734380); + +make_cons(c_734382,obj_int2obj(1),nil); + +make_cons(c_734378,&c_734379,&c_734382); + +make_cons(c_734377,quote_equal,&c_734378); + +make_cons(c_734386,obj_int2obj(1),nil); + +make_cons(c_734385,quote_x,&c_734386); + +make_cons(c_734384,quote_equal,&c_734385); + +make_cons(c_734383,&c_734384,nil); + +make_cons(c_734376,&c_734377,&c_734383); + +make_cons(c_734375,quote_equal,&c_734376); + +make_cons(c_734394,quote_y,nil); + +make_cons(c_734393,quote_x,&c_734394); + +make_cons(c_734392,quote_greatest_91factor,&c_734393); + +make_cons(c_734391,&c_734392,nil); + +make_cons(c_734390,quote_numberp,&c_734391); + +make_cons(c_734403,quote_y,nil); + +make_cons(c_734402,quote_zerop,&c_734403); + +make_cons(c_734407,obj_int2obj(1),nil); + +make_cons(c_734406,quote_y,&c_734407); + +make_cons(c_734405,quote_equal,&c_734406); + +make_cons(c_734404,&c_734405,nil); + +make_cons(c_734401,&c_734402,&c_734404); + +make_cons(c_734400,quote_or,&c_734401); + +make_cons(c_734412,quote_x,nil); + +make_cons(c_734411,quote_numberp,&c_734412); + +make_cons(c_734410,&c_734411,nil); + +make_cons(c_734409,quote_not,&c_734410); + +make_cons(c_734408,&c_734409,nil); + +make_cons(c_734399,&c_734400,&c_734408); + +make_cons(c_734398,quote_and,&c_734399); + +make_cons(c_734397,&c_734398,nil); + +make_cons(c_734396,quote_not,&c_734397); + +make_cons(c_734395,&c_734396,nil); + +make_cons(c_734389,&c_734390,&c_734395); + +make_cons(c_734388,quote_equal,&c_734389); + +make_cons(c_734420,quote_y,nil); + +make_cons(c_734419,quote_x,&c_734420); + +make_cons(c_734418,quote_append,&c_734419); + +make_cons(c_734417,&c_734418,nil); + +make_cons(c_734416,quote_times_91list,&c_734417); + +make_cons(c_734425,quote_x,nil); + +make_cons(c_734424,quote_times_91list,&c_734425); + +make_cons(c_734428,quote_y,nil); + +make_cons(c_734427,quote_times_91list,&c_734428); + +make_cons(c_734426,&c_734427,nil); + +make_cons(c_734423,&c_734424,&c_734426); + +make_cons(c_734422,quote_times,&c_734423); + +make_cons(c_734421,&c_734422,nil); + +make_cons(c_734415,&c_734416,&c_734421); + +make_cons(c_734414,quote_equal,&c_734415); + +make_cons(c_734436,quote_y,nil); + +make_cons(c_734435,quote_x,&c_734436); + +make_cons(c_734434,quote_append,&c_734435); + +make_cons(c_734433,&c_734434,nil); + +make_cons(c_734432,quote_prime_91list,&c_734433); + +make_cons(c_734441,quote_x,nil); + +make_cons(c_734440,quote_prime_91list,&c_734441); + +make_cons(c_734444,quote_y,nil); + +make_cons(c_734443,quote_prime_91list,&c_734444); + +make_cons(c_734442,&c_734443,nil); + +make_cons(c_734439,&c_734440,&c_734442); + +make_cons(c_734438,quote_and,&c_734439); + +make_cons(c_734437,&c_734438,nil); + +make_cons(c_734431,&c_734432,&c_734437); + +make_cons(c_734430,quote_equal,&c_734431); + +make_cons(c_734453,quote_z,nil); + +make_cons(c_734452,quote_w,&c_734453); + +make_cons(c_734451,quote_times,&c_734452); + +make_cons(c_734450,&c_734451,nil); + +make_cons(c_734449,quote_z,&c_734450); + +make_cons(c_734448,quote_equal,&c_734449); + +make_cons(c_734458,quote_z,nil); + +make_cons(c_734457,quote_numberp,&c_734458); + +make_cons(c_734465,quote_zero,nil); + +make_cons(c_734464,&c_734465,nil); + +make_cons(c_734463,quote_z,&c_734464); + +make_cons(c_734462,quote_equal,&c_734463); + +make_cons(c_734469,obj_int2obj(1),nil); + +make_cons(c_734468,quote_w,&c_734469); + +make_cons(c_734467,quote_equal,&c_734468); + +make_cons(c_734466,&c_734467,nil); + +make_cons(c_734461,&c_734462,&c_734466); + +make_cons(c_734460,quote_or,&c_734461); + +make_cons(c_734459,&c_734460,nil); + +make_cons(c_734456,&c_734457,&c_734459); + +make_cons(c_734455,quote_and,&c_734456); + +make_cons(c_734454,&c_734455,nil); + +make_cons(c_734447,&c_734448,&c_734454); + +make_cons(c_734446,quote_equal,&c_734447); + +make_cons(c_734475,quote_y,nil); + +make_cons(c_734474,quote_x,&c_734475); + +make_cons(c_734473,quote_greatereqp,&c_734474); + +make_cons(c_734481,quote_y,nil); + +make_cons(c_734480,quote_x,&c_734481); + +make_cons(c_734479,quote_lessp,&c_734480); + +make_cons(c_734478,&c_734479,nil); + +make_cons(c_734477,quote_not,&c_734478); + +make_cons(c_734476,&c_734477,nil); + +make_cons(c_734472,&c_734473,&c_734476); + +make_cons(c_734471,quote_equal,&c_734472); + +make_cons(c_734490,quote_y,nil); + +make_cons(c_734489,quote_x,&c_734490); + +make_cons(c_734488,quote_times,&c_734489); + +make_cons(c_734487,&c_734488,nil); + +make_cons(c_734486,quote_x,&c_734487); + +make_cons(c_734485,quote_equal,&c_734486); + +make_cons(c_734497,quote_zero,nil); + +make_cons(c_734496,&c_734497,nil); + +make_cons(c_734495,quote_x,&c_734496); + +make_cons(c_734494,quote_equal,&c_734495); + +make_cons(c_734502,quote_x,nil); + +make_cons(c_734501,quote_numberp,&c_734502); + +make_cons(c_734506,obj_int2obj(1),nil); + +make_cons(c_734505,quote_y,&c_734506); + +make_cons(c_734504,quote_equal,&c_734505); + +make_cons(c_734503,&c_734504,nil); + +make_cons(c_734500,&c_734501,&c_734503); + +make_cons(c_734499,quote_and,&c_734500); + +make_cons(c_734498,&c_734499,nil); + +make_cons(c_734493,&c_734494,&c_734498); + +make_cons(c_734492,quote_or,&c_734493); + +make_cons(c_734491,&c_734492,nil); + +make_cons(c_734484,&c_734485,&c_734491); + +make_cons(c_734483,quote_equal,&c_734484); + +make_cons(c_734514,quote_x,nil); + +make_cons(c_734513,quote_y,&c_734514); + +make_cons(c_734512,quote_times,&c_734513); + +make_cons(c_734515,quote_y,nil); + +make_cons(c_734511,&c_734512,&c_734515); + +make_cons(c_734510,quote_remainder,&c_734511); + +make_cons(c_734517,quote_zero,nil); + +make_cons(c_734516,&c_734517,nil); + +make_cons(c_734509,&c_734510,&c_734516); + +make_cons(c_734508,quote_equal,&c_734509); + +make_cons(c_734525,quote_b,nil); + +make_cons(c_734524,quote_a,&c_734525); + +make_cons(c_734523,quote_times,&c_734524); + +make_cons(c_734526,obj_int2obj(1),nil); + +make_cons(c_734522,&c_734523,&c_734526); + +make_cons(c_734521,quote_equal,&c_734522); + +make_cons(c_734535,quote_zero,nil); + +make_cons(c_734534,&c_734535,nil); + +make_cons(c_734533,quote_a,&c_734534); + +make_cons(c_734532,quote_equal,&c_734533); + +make_cons(c_734531,&c_734532,nil); + +make_cons(c_734530,quote_not,&c_734531); + +make_cons(c_734542,quote_zero,nil); + +make_cons(c_734541,&c_734542,nil); + +make_cons(c_734540,quote_b,&c_734541); + +make_cons(c_734539,quote_equal,&c_734540); + +make_cons(c_734538,&c_734539,nil); + +make_cons(c_734537,quote_not,&c_734538); + +make_cons(c_734545,quote_a,nil); + +make_cons(c_734544,quote_numberp,&c_734545); + +make_cons(c_734548,quote_b,nil); + +make_cons(c_734547,quote_numberp,&c_734548); + +make_cons(c_734553,quote_a,nil); + +make_cons(c_734552,quote__1911_91,&c_734553); + +make_cons(c_734555,quote_zero,nil); + +make_cons(c_734554,&c_734555,nil); + +make_cons(c_734551,&c_734552,&c_734554); + +make_cons(c_734550,quote_equal,&c_734551); + +make_cons(c_734560,quote_b,nil); + +make_cons(c_734559,quote__1911_91,&c_734560); + +make_cons(c_734562,quote_zero,nil); + +make_cons(c_734561,&c_734562,nil); + +make_cons(c_734558,&c_734559,&c_734561); + +make_cons(c_734557,quote_equal,&c_734558); + +make_cons(c_734556,&c_734557,nil); + +make_cons(c_734549,&c_734550,&c_734556); + +make_cons(c_734546,&c_734547,&c_734549); + +make_cons(c_734543,&c_734544,&c_734546); + +make_cons(c_734536,&c_734537,&c_734543); + +make_cons(c_734529,&c_734530,&c_734536); + +make_cons(c_734528,quote_and,&c_734529); + +make_cons(c_734527,&c_734528,nil); + +make_cons(c_734520,&c_734521,&c_734527); + +make_cons(c_734519,quote_equal,&c_734520); + +make_cons(c_734572,quote_l,nil); + +make_cons(c_734571,quote_x,&c_734572); + +make_cons(c_734570,quote_delete,&c_734571); + +make_cons(c_734569,&c_734570,nil); + +make_cons(c_734568,quote_length,&c_734569); + +make_cons(c_734575,quote_l,nil); + +make_cons(c_734574,quote_length,&c_734575); + +make_cons(c_734573,&c_734574,nil); + +make_cons(c_734567,&c_734568,&c_734573); + +make_cons(c_734566,quote_lessp,&c_734567); + +make_cons(c_734579,quote_l,nil); + +make_cons(c_734578,quote_x,&c_734579); + +make_cons(c_734577,quote_member,&c_734578); + +make_cons(c_734576,&c_734577,nil); + +make_cons(c_734565,&c_734566,&c_734576); + +make_cons(c_734564,quote_equal,&c_734565); + +make_cons(c_734587,quote_l,nil); + +make_cons(c_734586,quote_x,&c_734587); + +make_cons(c_734585,quote_delete,&c_734586); + +make_cons(c_734584,&c_734585,nil); + +make_cons(c_734583,quote_sort2,&c_734584); + +make_cons(c_734593,quote_l,nil); + +make_cons(c_734592,quote_sort2,&c_734593); + +make_cons(c_734591,&c_734592,nil); + +make_cons(c_734590,quote_x,&c_734591); + +make_cons(c_734589,quote_delete,&c_734590); + +make_cons(c_734588,&c_734589,nil); + +make_cons(c_734582,&c_734583,&c_734588); + +make_cons(c_734581,quote_equal,&c_734582); + +make_cons(c_734598,quote_x,nil); + +make_cons(c_734597,quote_dsort,&c_734598); + +make_cons(c_734601,quote_x,nil); + +make_cons(c_734600,quote_sort2,&c_734601); + +make_cons(c_734599,&c_734600,nil); + +make_cons(c_734596,&c_734597,&c_734599); + +make_cons(c_734595,quote_equal,&c_734596); + +make_cons(c_734624,quote_x7,nil); + +make_cons(c_734623,quote_x6,&c_734624); + +make_cons(c_734622,quote_cons,&c_734623); + +make_cons(c_734621,&c_734622,nil); + +make_cons(c_734620,quote_x5,&c_734621); + +make_cons(c_734619,quote_cons,&c_734620); + +make_cons(c_734618,&c_734619,nil); + +make_cons(c_734617,quote_x4,&c_734618); + +make_cons(c_734616,quote_cons,&c_734617); + +make_cons(c_734615,&c_734616,nil); + +make_cons(c_734614,quote_x3,&c_734615); + +make_cons(c_734613,quote_cons,&c_734614); + +make_cons(c_734612,&c_734613,nil); + +make_cons(c_734611,quote_x2,&c_734612); + +make_cons(c_734610,quote_cons,&c_734611); + +make_cons(c_734609,&c_734610,nil); + +make_cons(c_734608,quote_x1,&c_734609); + +make_cons(c_734607,quote_cons,&c_734608); + +make_cons(c_734606,&c_734607,nil); + +make_cons(c_734605,quote_length,&c_734606); + +make_cons(c_734630,quote_x7,nil); + +make_cons(c_734629,quote_length,&c_734630); + +make_cons(c_734628,&c_734629,nil); + +make_cons(c_734627,obj_int2obj(6),&c_734628); + +make_cons(c_734626,quote_plus,&c_734627); + +make_cons(c_734625,&c_734626,nil); + +make_cons(c_734604,&c_734605,&c_734625); + +make_cons(c_734603,quote_equal,&c_734604); + +make_cons(c_734639,quote_x,nil); + +make_cons(c_734638,quote_add1,&c_734639); + +make_cons(c_734637,&c_734638,nil); + +make_cons(c_734636,quote_add1,&c_734637); + +make_cons(c_734640,obj_int2obj(2),nil); + +make_cons(c_734635,&c_734636,&c_734640); + +make_cons(c_734634,quote_difference,&c_734635); + +make_cons(c_734643,quote_x,nil); + +make_cons(c_734642,quote_fix,&c_734643); + +make_cons(c_734641,&c_734642,nil); + +make_cons(c_734633,&c_734634,&c_734641); + +make_cons(c_734632,quote_equal,&c_734633); + +make_cons(c_734654,quote_y,nil); + +make_cons(c_734653,quote_x,&c_734654); + +make_cons(c_734652,quote_plus,&c_734653); + +make_cons(c_734651,&c_734652,nil); + +make_cons(c_734650,quote_x,&c_734651); + +make_cons(c_734649,quote_plus,&c_734650); + +make_cons(c_734655,obj_int2obj(2),nil); + +make_cons(c_734648,&c_734649,&c_734655); + +make_cons(c_734647,quote_quotient,&c_734648); + +make_cons(c_734662,obj_int2obj(2),nil); + +make_cons(c_734661,quote_y,&c_734662); + +make_cons(c_734660,quote_quotient,&c_734661); + +make_cons(c_734659,&c_734660,nil); + +make_cons(c_734658,quote_x,&c_734659); + +make_cons(c_734657,quote_plus,&c_734658); + +make_cons(c_734656,&c_734657,nil); + +make_cons(c_734646,&c_734647,&c_734656); + +make_cons(c_734645,quote_equal,&c_734646); + +make_cons(c_734668,quote_zero,nil); + +make_cons(c_734669,quote_i,nil); + +make_cons(c_734667,&c_734668,&c_734669); + +make_cons(c_734666,quote_sigma,&c_734667); + +make_cons(c_734677,quote_i,nil); + +make_cons(c_734676,quote_add1,&c_734677); + +make_cons(c_734675,&c_734676,nil); + +make_cons(c_734674,quote_i,&c_734675); + +make_cons(c_734673,quote_times,&c_734674); + +make_cons(c_734678,obj_int2obj(2),nil); + +make_cons(c_734672,&c_734673,&c_734678); + +make_cons(c_734671,quote_quotient,&c_734672); + +make_cons(c_734670,&c_734671,nil); + +make_cons(c_734665,&c_734666,&c_734670); + +make_cons(c_734664,quote_equal,&c_734665); + +make_cons(c_734686,quote_y,nil); + +make_cons(c_734685,quote_add1,&c_734686); + +make_cons(c_734684,&c_734685,nil); + +make_cons(c_734683,quote_x,&c_734684); + +make_cons(c_734682,quote_plus,&c_734683); + +make_cons(c_734691,quote_y,nil); + +make_cons(c_734690,quote_numberp,&c_734691); + +make_cons(c_734697,quote_y,nil); + +make_cons(c_734696,quote_x,&c_734697); + +make_cons(c_734695,quote_plus,&c_734696); + +make_cons(c_734694,&c_734695,nil); + +make_cons(c_734693,quote_add1,&c_734694); + +make_cons(c_734700,quote_x,nil); + +make_cons(c_734699,quote_add1,&c_734700); + +make_cons(c_734698,&c_734699,nil); + +make_cons(c_734692,&c_734693,&c_734698); + +make_cons(c_734689,&c_734690,&c_734692); + +make_cons(c_734688,quote__if,&c_734689); + +make_cons(c_734687,&c_734688,nil); + +make_cons(c_734681,&c_734682,&c_734687); + +make_cons(c_734680,quote_equal,&c_734681); + +make_cons(c_734708,quote_y,nil); + +make_cons(c_734707,quote_x,&c_734708); + +make_cons(c_734706,quote_difference,&c_734707); + +make_cons(c_734712,quote_y,nil); + +make_cons(c_734711,quote_z,&c_734712); + +make_cons(c_734710,quote_difference,&c_734711); + +make_cons(c_734709,&c_734710,nil); + +make_cons(c_734705,&c_734706,&c_734709); + +make_cons(c_734704,quote_equal,&c_734705); + +make_cons(c_734718,quote_y,nil); + +make_cons(c_734717,quote_x,&c_734718); + +make_cons(c_734716,quote_lessp,&c_734717); + +make_cons(c_734724,quote_z,nil); + +make_cons(c_734723,quote_y,&c_734724); + +make_cons(c_734722,quote_lessp,&c_734723); + +make_cons(c_734721,&c_734722,nil); + +make_cons(c_734720,quote_not,&c_734721); + +make_cons(c_734730,quote_y,nil); + +make_cons(c_734729,quote_z,&c_734730); + +make_cons(c_734728,quote_lessp,&c_734729); + +make_cons(c_734736,quote_x,nil); + +make_cons(c_734735,quote_y,&c_734736); + +make_cons(c_734734,quote_lessp,&c_734735); + +make_cons(c_734733,&c_734734,nil); + +make_cons(c_734732,quote_not,&c_734733); + +make_cons(c_734741,quote_x,nil); + +make_cons(c_734740,quote_fix,&c_734741); + +make_cons(c_734744,quote_z,nil); + +make_cons(c_734743,quote_fix,&c_734744); + +make_cons(c_734742,&c_734743,nil); + +make_cons(c_734739,&c_734740,&c_734742); + +make_cons(c_734738,quote_equal,&c_734739); + +make_cons(c_734737,&c_734738,nil); + +make_cons(c_734731,&c_734732,&c_734737); + +make_cons(c_734727,&c_734728,&c_734731); + +make_cons(c_734726,quote__if,&c_734727); + +make_cons(c_734725,&c_734726,nil); + +make_cons(c_734719,&c_734720,&c_734725); + +make_cons(c_734715,&c_734716,&c_734719); + +make_cons(c_734714,quote__if,&c_734715); + +make_cons(c_734713,&c_734714,nil); + +make_cons(c_734703,&c_734704,&c_734713); + +make_cons(c_734702,quote_equal,&c_734703); + +make_cons(c_734754,quote_y,nil); + +make_cons(c_734753,quote_x,&c_734754); + +make_cons(c_734752,quote_delete,&c_734753); + +make_cons(c_734751,&c_734752,nil); + +make_cons(c_734750,quote_plus_91tree,&c_734751); + +make_cons(c_734755,quote_a,nil); + +make_cons(c_734749,&c_734750,&c_734755); + +make_cons(c_734748,quote_meaning,&c_734749); + +make_cons(c_734761,quote_y,nil); + +make_cons(c_734760,quote_x,&c_734761); + +make_cons(c_734759,quote_member,&c_734760); + +make_cons(c_734768,quote_y,nil); + +make_cons(c_734767,quote_plus_91tree,&c_734768); + +make_cons(c_734769,quote_a,nil); + +make_cons(c_734766,&c_734767,&c_734769); + +make_cons(c_734765,quote_meaning,&c_734766); + +make_cons(c_734773,quote_a,nil); + +make_cons(c_734772,quote_x,&c_734773); + +make_cons(c_734771,quote_meaning,&c_734772); + +make_cons(c_734770,&c_734771,nil); + +make_cons(c_734764,&c_734765,&c_734770); + +make_cons(c_734763,quote_difference,&c_734764); + +make_cons(c_734778,quote_y,nil); + +make_cons(c_734777,quote_plus_91tree,&c_734778); + +make_cons(c_734779,quote_a,nil); + +make_cons(c_734776,&c_734777,&c_734779); + +make_cons(c_734775,quote_meaning,&c_734776); + +make_cons(c_734774,&c_734775,nil); + +make_cons(c_734762,&c_734763,&c_734774); + +make_cons(c_734758,&c_734759,&c_734762); + +make_cons(c_734757,quote__if,&c_734758); + +make_cons(c_734756,&c_734757,nil); + +make_cons(c_734747,&c_734748,&c_734756); + +make_cons(c_734746,quote_equal,&c_734747); + +make_cons(c_734787,quote_y,nil); + +make_cons(c_734786,quote_add1,&c_734787); + +make_cons(c_734785,&c_734786,nil); + +make_cons(c_734784,quote_x,&c_734785); + +make_cons(c_734783,quote_times,&c_734784); + +make_cons(c_734792,quote_y,nil); + +make_cons(c_734791,quote_numberp,&c_734792); + +make_cons(c_734799,quote_y,nil); + +make_cons(c_734798,quote_x,&c_734799); + +make_cons(c_734797,quote_times,&c_734798); + +make_cons(c_734796,&c_734797,nil); + +make_cons(c_734795,quote_x,&c_734796); + +make_cons(c_734794,quote_plus,&c_734795); + +make_cons(c_734802,quote_x,nil); + +make_cons(c_734801,quote_fix,&c_734802); + +make_cons(c_734800,&c_734801,nil); + +make_cons(c_734793,&c_734794,&c_734800); + +make_cons(c_734790,&c_734791,&c_734793); + +make_cons(c_734789,quote__if,&c_734790); + +make_cons(c_734788,&c_734789,nil); + +make_cons(c_734782,&c_734783,&c_734788); + +make_cons(c_734781,quote_equal,&c_734782); + +make_cons(c_734808,quote_nil,nil); + +make_cons(c_734809,quote_i,nil); + +make_cons(c_734807,&c_734808,&c_734809); + +make_cons(c_734806,quote_nth,&c_734807); + +make_cons(c_734814,quote_i,nil); + +make_cons(c_734813,quote_zerop,&c_734814); + +make_cons(c_734816,quote_nil,nil); + +make_cons(c_734818,quote_zero,nil); + +make_cons(c_734817,&c_734818,nil); + +make_cons(c_734815,&c_734816,&c_734817); + +make_cons(c_734812,&c_734813,&c_734815); + +make_cons(c_734811,quote__if,&c_734812); + +make_cons(c_734810,&c_734811,nil); + +make_cons(c_734805,&c_734806,&c_734810); + +make_cons(c_734804,quote_equal,&c_734805); + +make_cons(c_734826,quote_b,nil); + +make_cons(c_734825,quote_a,&c_734826); + +make_cons(c_734824,quote_append,&c_734825); + +make_cons(c_734823,&c_734824,nil); + +make_cons(c_734822,quote_last,&c_734823); + +make_cons(c_734831,quote_b,nil); + +make_cons(c_734830,quote_listp,&c_734831); + +make_cons(c_734834,quote_b,nil); + +make_cons(c_734833,quote_last,&c_734834); + +make_cons(c_734839,quote_a,nil); + +make_cons(c_734838,quote_listp,&c_734839); + +make_cons(c_734846,quote_a,nil); + +make_cons(c_734845,quote_last,&c_734846); + +make_cons(c_734844,&c_734845,nil); + +make_cons(c_734843,quote_car,&c_734844); + +make_cons(c_734847,quote_b,nil); + +make_cons(c_734842,&c_734843,&c_734847); + +make_cons(c_734841,quote_cons,&c_734842); + +make_cons(c_734848,quote_b,nil); + +make_cons(c_734840,&c_734841,&c_734848); + +make_cons(c_734837,&c_734838,&c_734840); + +make_cons(c_734836,quote__if,&c_734837); + +make_cons(c_734835,&c_734836,nil); + +make_cons(c_734832,&c_734833,&c_734835); + +make_cons(c_734829,&c_734830,&c_734832); + +make_cons(c_734828,quote__if,&c_734829); + +make_cons(c_734827,&c_734828,nil); + +make_cons(c_734821,&c_734822,&c_734827); + +make_cons(c_734820,quote_equal,&c_734821); + +make_cons(c_734856,quote_y,nil); + +make_cons(c_734855,quote_x,&c_734856); + +make_cons(c_734854,quote_lessp,&c_734855); + +make_cons(c_734857,quote_z,nil); + +make_cons(c_734853,&c_734854,&c_734857); + +make_cons(c_734852,quote_equal,&c_734853); + +make_cons(c_734863,quote_y,nil); + +make_cons(c_734862,quote_x,&c_734863); + +make_cons(c_734861,quote_lessp,&c_734862); + +make_cons(c_734867,quote_t,nil); + +make_cons(c_734868,quote_z,nil); + +make_cons(c_734866,&c_734867,&c_734868); + +make_cons(c_734865,quote_equal,&c_734866); + +make_cons(c_734872,quote_f,nil); + +make_cons(c_734873,quote_z,nil); + +make_cons(c_734871,&c_734872,&c_734873); + +make_cons(c_734870,quote_equal,&c_734871); + +make_cons(c_734869,&c_734870,nil); + +make_cons(c_734864,&c_734865,&c_734869); + +make_cons(c_734860,&c_734861,&c_734864); + +make_cons(c_734859,quote__if,&c_734860); + +make_cons(c_734858,&c_734859,nil); + +make_cons(c_734851,&c_734852,&c_734858); + +make_cons(c_734850,quote_equal,&c_734851); + +make_cons(c_734882,quote_b,nil); + +make_cons(c_734881,quote_a,&c_734882); + +make_cons(c_734880,quote_append,&c_734881); + +make_cons(c_734879,&c_734880,nil); + +make_cons(c_734878,quote_x,&c_734879); + +make_cons(c_734877,quote_assignment,&c_734878); + +make_cons(c_734888,quote_a,nil); + +make_cons(c_734887,quote_x,&c_734888); + +make_cons(c_734886,quote_assignedp,&c_734887); + +make_cons(c_734892,quote_a,nil); + +make_cons(c_734891,quote_x,&c_734892); + +make_cons(c_734890,quote_assignment,&c_734891); + +make_cons(c_734896,quote_b,nil); + +make_cons(c_734895,quote_x,&c_734896); + +make_cons(c_734894,quote_assignment,&c_734895); + +make_cons(c_734893,&c_734894,nil); + +make_cons(c_734889,&c_734890,&c_734893); + +make_cons(c_734885,&c_734886,&c_734889); + +make_cons(c_734884,quote__if,&c_734885); + +make_cons(c_734883,&c_734884,nil); + +make_cons(c_734876,&c_734877,&c_734883); + +make_cons(c_734875,quote_equal,&c_734876); + +make_cons(c_734903,quote_x,nil); + +make_cons(c_734902,quote_gopher,&c_734903); + +make_cons(c_734901,&c_734902,nil); + +make_cons(c_734900,quote_car,&c_734901); + +make_cons(c_734908,quote_x,nil); + +make_cons(c_734907,quote_listp,&c_734908); + +make_cons(c_734913,quote_x,nil); + +make_cons(c_734912,quote_flatten,&c_734913); + +make_cons(c_734911,&c_734912,nil); + +make_cons(c_734910,quote_car,&c_734911); + +make_cons(c_734915,quote_zero,nil); + +make_cons(c_734914,&c_734915,nil); + +make_cons(c_734909,&c_734910,&c_734914); + +make_cons(c_734906,&c_734907,&c_734909); + +make_cons(c_734905,quote__if,&c_734906); + +make_cons(c_734904,&c_734905,nil); + +make_cons(c_734899,&c_734900,&c_734904); + +make_cons(c_734898,quote_equal,&c_734899); + +make_cons(c_734924,quote_x,nil); + +make_cons(c_734923,quote_gopher,&c_734924); + +make_cons(c_734922,&c_734923,nil); + +make_cons(c_734921,quote_cdr,&c_734922); + +make_cons(c_734920,&c_734921,nil); + +make_cons(c_734919,quote_flatten,&c_734920); + +make_cons(c_734929,quote_x,nil); + +make_cons(c_734928,quote_listp,&c_734929); + +make_cons(c_734934,quote_x,nil); + +make_cons(c_734933,quote_flatten,&c_734934); + +make_cons(c_734932,&c_734933,nil); + +make_cons(c_734931,quote_cdr,&c_734932); + +make_cons(c_734938,quote_zero,nil); + +make_cons(c_734940,quote_nil,nil); + +make_cons(c_734939,&c_734940,nil); + +make_cons(c_734937,&c_734938,&c_734939); + +make_cons(c_734936,quote_cons,&c_734937); + +make_cons(c_734935,&c_734936,nil); + +make_cons(c_734930,&c_734931,&c_734935); + +make_cons(c_734927,&c_734928,&c_734930); + +make_cons(c_734926,quote__if,&c_734927); + +make_cons(c_734925,&c_734926,nil); + +make_cons(c_734918,&c_734919,&c_734925); + +make_cons(c_734917,quote_equal,&c_734918); + +make_cons(c_734948,quote_x,nil); + +make_cons(c_734947,quote_y,&c_734948); + +make_cons(c_734946,quote_times,&c_734947); + +make_cons(c_734949,quote_y,nil); + +make_cons(c_734945,&c_734946,&c_734949); + +make_cons(c_734944,quote_quotient,&c_734945); + +make_cons(c_734954,quote_y,nil); + +make_cons(c_734953,quote_zerop,&c_734954); + +make_cons(c_734956,quote_zero,nil); + +make_cons(c_734959,quote_x,nil); + +make_cons(c_734958,quote_fix,&c_734959); + +make_cons(c_734957,&c_734958,nil); + +make_cons(c_734955,&c_734956,&c_734957); + +make_cons(c_734952,&c_734953,&c_734955); + +make_cons(c_734951,quote__if,&c_734952); + +make_cons(c_734950,&c_734951,nil); + +make_cons(c_734943,&c_734944,&c_734950); + +make_cons(c_734942,quote_equal,&c_734943); + +make_cons(c_734969,quote_mem,nil); + +make_cons(c_734968,quote_val,&c_734969); + +make_cons(c_734967,quote_i,&c_734968); + +make_cons(c_734966,quote_set,&c_734967); + +make_cons(c_734965,&c_734966,nil); + +make_cons(c_734964,quote_j,&c_734965); + +make_cons(c_734963,quote_get,&c_734964); + +make_cons(c_734975,quote_i,nil); + +make_cons(c_734974,quote_j,&c_734975); + +make_cons(c_734973,quote_eqp,&c_734974); + +make_cons(c_734980,quote_mem,nil); + +make_cons(c_734979,quote_j,&c_734980); + +make_cons(c_734978,quote_get,&c_734979); + +make_cons(c_734977,&c_734978,nil); + +make_cons(c_734976,quote_val,&c_734977); + +make_cons(c_734972,&c_734973,&c_734976); + +make_cons(c_734971,quote__if,&c_734972); + +make_cons(c_734970,&c_734971,nil); + +make_cons(c_734962,&c_734963,&c_734970); + +make_cons(c_734961,quote_equal,&c_734962); + +make_cons(c_734960,&c_734961,nil); + +make_cons(c_734941,&c_734942,&c_734960); + +make_cons(c_734916,&c_734917,&c_734941); + +make_cons(c_734897,&c_734898,&c_734916); + +make_cons(c_734874,&c_734875,&c_734897); + +make_cons(c_734849,&c_734850,&c_734874); + +make_cons(c_734819,&c_734820,&c_734849); + +make_cons(c_734803,&c_734804,&c_734819); + +make_cons(c_734780,&c_734781,&c_734803); + +make_cons(c_734745,&c_734746,&c_734780); + +make_cons(c_734701,&c_734702,&c_734745); + +make_cons(c_734679,&c_734680,&c_734701); + +make_cons(c_734663,&c_734664,&c_734679); + +make_cons(c_734644,&c_734645,&c_734663); + +make_cons(c_734631,&c_734632,&c_734644); + +make_cons(c_734602,&c_734603,&c_734631); + +make_cons(c_734594,&c_734595,&c_734602); + +make_cons(c_734580,&c_734581,&c_734594); + +make_cons(c_734563,&c_734564,&c_734580); + +make_cons(c_734518,&c_734519,&c_734563); + +make_cons(c_734507,&c_734508,&c_734518); + +make_cons(c_734482,&c_734483,&c_734507); + +make_cons(c_734470,&c_734471,&c_734482); + +make_cons(c_734445,&c_734446,&c_734470); + +make_cons(c_734429,&c_734430,&c_734445); + +make_cons(c_734413,&c_734414,&c_734429); + +make_cons(c_734387,&c_734388,&c_734413); + +make_cons(c_734374,&c_734375,&c_734387); + +make_cons(c_734348,&c_734349,&c_734374); + +make_cons(c_734334,&c_734335,&c_734348); + +make_cons(c_734324,&c_734325,&c_734334); + +make_cons(c_734303,&c_734304,&c_734324); + +make_cons(c_734291,&c_734292,&c_734303); + +make_cons(c_734272,&c_734273,&c_734291); + +make_cons(c_734258,&c_734259,&c_734272); + +make_cons(c_734235,&c_734236,&c_734258); + +make_cons(c_734219,&c_734220,&c_734235); + +make_cons(c_734205,&c_734206,&c_734219); + +make_cons(c_734189,&c_734190,&c_734205); + +make_cons(c_734178,&c_734179,&c_734189); + +make_cons(c_734159,&c_734160,&c_734178); + +make_cons(c_734143,&c_734144,&c_734159); + +make_cons(c_734131,&c_734132,&c_734143); + +make_cons(c_734119,&c_734120,&c_734131); + +make_cons(c_734095,&c_734096,&c_734119); + +make_cons(c_734085,&c_734086,&c_734095); + +make_cons(c_734063,&c_734064,&c_734085); + +make_cons(c_734051,&c_734052,&c_734063); + +make_cons(c_734024,&c_734025,&c_734051); + +make_cons(c_733997,&c_733998,&c_734024); + +make_cons(c_733989,&c_733990,&c_733997); + +make_cons(c_733975,&c_733976,&c_733989); + +make_cons(c_733967,&c_733968,&c_733975); + +make_cons(c_733943,&c_733944,&c_733967); + +make_cons(c_733926,&c_733927,&c_733943); + +make_cons(c_733908,&c_733909,&c_733926); + +make_cons(c_733892,&c_733893,&c_733908); + +make_cons(c_733873,&c_733874,&c_733892); + +make_cons(c_733863,&c_733864,&c_733873); + +make_cons(c_733851,&c_733852,&c_733863); + +make_cons(c_733835,&c_733836,&c_733851); + +make_cons(c_733816,&c_733817,&c_733835); + +make_cons(c_733807,&c_733808,&c_733816); + +make_cons(c_733788,&c_733789,&c_733807); + +make_cons(c_733778,&c_733779,&c_733788); + +make_cons(c_733766,&c_733767,&c_733778); + +make_cons(c_733747,&c_733748,&c_733766); + +make_cons(c_733735,&c_733736,&c_733747); + +make_cons(c_733716,&c_733717,&c_733735); + +make_cons(c_733698,&c_733699,&c_733716); + +make_cons(c_733682,&c_733683,&c_733698); + +make_cons(c_733663,&c_733664,&c_733682); + +make_cons(c_733647,&c_733648,&c_733663); + +make_cons(c_733631,&c_733632,&c_733647); + +make_cons(c_733615,&c_733616,&c_733631); + +make_cons(c_733590,&c_733591,&c_733615); + +make_cons(c_733566,&c_733567,&c_733590); + +make_cons(c_733550,&c_733551,&c_733566); + +make_cons(c_733530,&c_733531,&c_733550); + +make_cons(c_733522,&c_733523,&c_733530); + +make_cons(c_733504,&c_733505,&c_733522); + +make_cons(c_733488,&c_733489,&c_733504); + +make_cons(c_733471,&c_733472,&c_733488); + +make_cons(c_733447,&c_733448,&c_733471); + +make_cons(c_733434,&c_733435,&c_733447); + +make_cons(c_733416,&c_733417,&c_733434); + +make_cons(c_733404,&c_733405,&c_733416); + +make_cons(c_733386,&c_733387,&c_733404); + +make_cons(c_733368,&c_733369,&c_733386); + +make_cons(c_733341,&c_733342,&c_733368); + +make_cons(c_733329,&c_733330,&c_733341); + +make_cons(c_733317,&c_733318,&c_733329); + +make_cons(c_733303,&c_733304,&c_733317); + +make_cons(c_733289,&c_733290,&c_733303); + +make_cons(c_733277,&c_733278,&c_733289); + +make_cons(c_733267,&c_733268,&c_733277); + +make_cons(c_733258,&c_733259,&c_733267); + +make_cons(c_733246,&c_733247,&c_733258); + +make_cons(c_733229,&c_733230,&c_733246); + +make_cons(c_733213,&c_733214,&c_733229); + +make_cons(c_733196,&c_733197,&c_733213); + +make_cons(c_733184,&c_733185,&c_733196); + +make_cons(c_733172,&c_733173,&c_733184); + +make_cons(c_733162,&c_733163,&c_733172); + +make_cons(c_733148,&c_733149,&c_733162); + +make_cons(c_733134,&c_733135,&c_733148); +return_closcall1(data,(closure)&c_733128, &c_733134);; +} + +static void __lambda_434(void *data, int argc, object self_73687, object r_73563) { + return_closcall2(data, cell_get(((closureN)self_73687)->elts[0]), ((closureN)self_73687)->elts[1], r_73563);; +} + +static void __lambda_433(void *data, int argc, object self_73688, object r_73561) { + +closureN_type c_731487; +c_731487.hdr.mark = gc_color_red; + c_731487.hdr.grayed = 0; +c_731487.tag = closureN_tag; + c_731487.fn = (function_type)__lambda_432; +c_731487.num_args = 1; +c_731487.num_elt = 39; +c_731487.elts = (object *)alloca(sizeof(object) * 39); +c_731487.elts[0] = ((closureN)self_73688)->elts[0]; +c_731487.elts[1] = ((closureN)self_73688)->elts[1]; +c_731487.elts[2] = ((closureN)self_73688)->elts[2]; +c_731487.elts[3] = ((closureN)self_73688)->elts[3]; +c_731487.elts[4] = ((closureN)self_73688)->elts[4]; +c_731487.elts[5] = ((closureN)self_73688)->elts[5]; +c_731487.elts[6] = ((closureN)self_73688)->elts[6]; +c_731487.elts[7] = ((closureN)self_73688)->elts[7]; +c_731487.elts[8] = ((closureN)self_73688)->elts[8]; +c_731487.elts[9] = ((closureN)self_73688)->elts[9]; +c_731487.elts[10] = ((closureN)self_73688)->elts[10]; +c_731487.elts[11] = ((closureN)self_73688)->elts[11]; +c_731487.elts[12] = ((closureN)self_73688)->elts[12]; +c_731487.elts[13] = ((closureN)self_73688)->elts[13]; +c_731487.elts[14] = ((closureN)self_73688)->elts[14]; +c_731487.elts[15] = ((closureN)self_73688)->elts[15]; +c_731487.elts[16] = ((closureN)self_73688)->elts[16]; +c_731487.elts[17] = ((closureN)self_73688)->elts[17]; +c_731487.elts[18] = ((closureN)self_73688)->elts[18]; +c_731487.elts[19] = ((closureN)self_73688)->elts[19]; +c_731487.elts[20] = ((closureN)self_73688)->elts[20]; +c_731487.elts[21] = ((closureN)self_73688)->elts[21]; +c_731487.elts[22] = ((closureN)self_73688)->elts[22]; +c_731487.elts[23] = ((closureN)self_73688)->elts[23]; +c_731487.elts[24] = ((closureN)self_73688)->elts[24]; +c_731487.elts[25] = ((closureN)self_73688)->elts[25]; +c_731487.elts[26] = ((closureN)self_73688)->elts[26]; +c_731487.elts[27] = ((closureN)self_73688)->elts[27]; +c_731487.elts[28] = ((closureN)self_73688)->elts[28]; +c_731487.elts[29] = ((closureN)self_73688)->elts[29]; +c_731487.elts[30] = ((closureN)self_73688)->elts[30]; +c_731487.elts[31] = ((closureN)self_73688)->elts[31]; +c_731487.elts[32] = ((closureN)self_73688)->elts[32]; +c_731487.elts[33] = ((closureN)self_73688)->elts[33]; +c_731487.elts[34] = ((closureN)self_73688)->elts[34]; +c_731487.elts[35] = ((closureN)self_73688)->elts[35]; +c_731487.elts[36] = ((closureN)self_73688)->elts[36]; +c_731487.elts[37] = ((closureN)self_73688)->elts[37]; +c_731487.elts[38] = ((closureN)self_73688)->elts[38]; + +return_closcall1(data,(closure)&c_731487, Cyc_set_car(data, ((closureN)self_73688)->elts[21], r_73561));; +} + +static void __lambda_432(void *data, int argc, object self_73689, object r_73265) { + +closureN_type c_731489; +c_731489.hdr.mark = gc_color_red; + c_731489.hdr.grayed = 0; +c_731489.tag = closureN_tag; + c_731489.fn = (function_type)__lambda_424; +c_731489.num_args = 1; +c_731489.num_elt = 39; +c_731489.elts = (object *)alloca(sizeof(object) * 39); +c_731489.elts[0] = ((closureN)self_73689)->elts[0]; +c_731489.elts[1] = ((closureN)self_73689)->elts[1]; +c_731489.elts[2] = ((closureN)self_73689)->elts[2]; +c_731489.elts[3] = ((closureN)self_73689)->elts[3]; +c_731489.elts[4] = ((closureN)self_73689)->elts[4]; +c_731489.elts[5] = ((closureN)self_73689)->elts[5]; +c_731489.elts[6] = ((closureN)self_73689)->elts[6]; +c_731489.elts[7] = ((closureN)self_73689)->elts[7]; +c_731489.elts[8] = ((closureN)self_73689)->elts[8]; +c_731489.elts[9] = ((closureN)self_73689)->elts[9]; +c_731489.elts[10] = ((closureN)self_73689)->elts[10]; +c_731489.elts[11] = ((closureN)self_73689)->elts[11]; +c_731489.elts[12] = ((closureN)self_73689)->elts[12]; +c_731489.elts[13] = ((closureN)self_73689)->elts[13]; +c_731489.elts[14] = ((closureN)self_73689)->elts[14]; +c_731489.elts[15] = ((closureN)self_73689)->elts[15]; +c_731489.elts[16] = ((closureN)self_73689)->elts[16]; +c_731489.elts[17] = ((closureN)self_73689)->elts[17]; +c_731489.elts[18] = ((closureN)self_73689)->elts[18]; +c_731489.elts[19] = ((closureN)self_73689)->elts[19]; +c_731489.elts[20] = ((closureN)self_73689)->elts[20]; +c_731489.elts[21] = ((closureN)self_73689)->elts[21]; +c_731489.elts[22] = ((closureN)self_73689)->elts[22]; +c_731489.elts[23] = ((closureN)self_73689)->elts[23]; +c_731489.elts[24] = ((closureN)self_73689)->elts[24]; +c_731489.elts[25] = ((closureN)self_73689)->elts[25]; +c_731489.elts[26] = ((closureN)self_73689)->elts[26]; +c_731489.elts[27] = ((closureN)self_73689)->elts[27]; +c_731489.elts[28] = ((closureN)self_73689)->elts[28]; +c_731489.elts[29] = ((closureN)self_73689)->elts[29]; +c_731489.elts[30] = ((closureN)self_73689)->elts[30]; +c_731489.elts[31] = ((closureN)self_73689)->elts[31]; +c_731489.elts[32] = ((closureN)self_73689)->elts[32]; +c_731489.elts[33] = ((closureN)self_73689)->elts[33]; +c_731489.elts[34] = ((closureN)self_73689)->elts[34]; +c_731489.elts[35] = ((closureN)self_73689)->elts[35]; +c_731489.elts[36] = ((closureN)self_73689)->elts[36]; +c_731489.elts[37] = ((closureN)self_73689)->elts[37]; +c_731489.elts[38] = ((closureN)self_73689)->elts[38]; + + +closureN_type c_733092; +c_733092.hdr.mark = gc_color_red; + c_733092.hdr.grayed = 0; +c_733092.tag = closureN_tag; + c_733092.fn = (function_type)__lambda_431; +c_733092.num_args = 1; +c_733092.num_elt = 2; +c_733092.elts = (object *)alloca(sizeof(object) * 2); +c_733092.elts[0] = ((closureN)self_73689)->elts[1]; +c_733092.elts[1] = ((closureN)self_73689)->elts[2]; + +return_closcall1(data,(closure)&c_731489, &c_733092);; +} + +static void __lambda_431(void *data, int argc, object self_73690, object k_73556, object lst_73225) { + +closureN_type c_733094; +c_733094.hdr.mark = gc_color_red; + c_733094.hdr.grayed = 0; +c_733094.tag = closureN_tag; + c_733094.fn = (function_type)__lambda_430; +c_733094.num_args = 1; +c_733094.num_elt = 4; +c_733094.elts = (object *)alloca(sizeof(object) * 4); +c_733094.elts[0] = ((closureN)self_73690)->elts[0]; +c_733094.elts[1] = ((closureN)self_73690)->elts[1]; +c_733094.elts[2] = k_73556; +c_733094.elts[3] = lst_73225; + +return_closcall1(data,(closure)&c_733094, Cyc_is_null(lst_73225));; +} + +static void __lambda_430(void *data, int argc, object self_73691, object r_73557) { + if( !eq(boolean_f, r_73557) ){ + +closureN_type c_733096; +c_733096.hdr.mark = gc_color_red; + c_733096.hdr.grayed = 0; +c_733096.tag = closureN_tag; + c_733096.fn = (function_type)__lambda_425; +c_733096.num_args = 0; +c_733096.num_elt = 1; +c_733096.elts = (object *)alloca(sizeof(object) * 1); +c_733096.elts[0] = ((closureN)self_73691)->elts[2]; + +return_closcall0(data,(closure)&c_733096); +} else { + +closureN_type c_733100; +c_733100.hdr.mark = gc_color_red; + c_733100.hdr.grayed = 0; +c_733100.tag = closureN_tag; + c_733100.fn = (function_type)__lambda_429; +c_733100.num_args = 0; +c_733100.num_elt = 4; +c_733100.elts = (object *)alloca(sizeof(object) * 4); +c_733100.elts[0] = ((closureN)self_73691)->elts[0]; +c_733100.elts[1] = ((closureN)self_73691)->elts[1]; +c_733100.elts[2] = ((closureN)self_73691)->elts[2]; +c_733100.elts[3] = ((closureN)self_73691)->elts[3]; + +return_closcall0(data,(closure)&c_733100);} +; +} + +static void __lambda_429(void *data, int argc, object self_73692) { + +closureN_type c_733102; +c_733102.hdr.mark = gc_color_red; + c_733102.hdr.grayed = 0; +c_733102.tag = closureN_tag; + c_733102.fn = (function_type)__lambda_428; +c_733102.num_args = 1; +c_733102.num_elt = 4; +c_733102.elts = (object *)alloca(sizeof(object) * 4); +c_733102.elts[0] = ((closureN)self_73692)->elts[0]; +c_733102.elts[1] = ((closureN)self_73692)->elts[1]; +c_733102.elts[2] = ((closureN)self_73692)->elts[2]; +c_733102.elts[3] = ((closureN)self_73692)->elts[3]; + +return_closcall1(data,(closure)&c_733102, car(((closureN)self_73692)->elts[3]));; +} + +static void __lambda_428(void *data, int argc, object self_73693, object r_73560) { + +closureN_type c_733107; +c_733107.hdr.mark = gc_color_red; + c_733107.hdr.grayed = 0; +c_733107.tag = closureN_tag; + c_733107.fn = (function_type)__lambda_427; +c_733107.num_args = 1; +c_733107.num_elt = 3; +c_733107.elts = (object *)alloca(sizeof(object) * 3); +c_733107.elts[0] = ((closureN)self_73693)->elts[1]; +c_733107.elts[1] = ((closureN)self_73693)->elts[2]; +c_733107.elts[2] = ((closureN)self_73693)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73693)->elts[0]), &c_733107, r_73560);; +} + +static void __lambda_427(void *data, int argc, object self_73694, object r_73558) { + +closureN_type c_733109; +c_733109.hdr.mark = gc_color_red; + c_733109.hdr.grayed = 0; +c_733109.tag = closureN_tag; + c_733109.fn = (function_type)__lambda_426; +c_733109.num_args = 1; +c_733109.num_elt = 2; +c_733109.elts = (object *)alloca(sizeof(object) * 2); +c_733109.elts[0] = ((closureN)self_73694)->elts[0]; +c_733109.elts[1] = ((closureN)self_73694)->elts[1]; + +return_closcall1(data,(closure)&c_733109, cdr(((closureN)self_73694)->elts[2]));; +} + +static void __lambda_426(void *data, int argc, object self_73695, object r_73559) { + return_closcall2(data, cell_get(((closureN)self_73695)->elts[0]), ((closureN)self_73695)->elts[1], r_73559);; +} + +static void __lambda_425(void *data, int argc, object self_73696) { + return_closcall1(data, ((closureN)self_73696)->elts[0], boolean_t);; +} + +static void __lambda_424(void *data, int argc, object self_73697, object r_73555) { + +closureN_type c_731491; +c_731491.hdr.mark = gc_color_red; + c_731491.hdr.grayed = 0; +c_731491.tag = closureN_tag; + c_731491.fn = (function_type)__lambda_423; +c_731491.num_args = 1; +c_731491.num_elt = 38; +c_731491.elts = (object *)alloca(sizeof(object) * 38); +c_731491.elts[0] = ((closureN)self_73697)->elts[0]; +c_731491.elts[1] = ((closureN)self_73697)->elts[1]; +c_731491.elts[2] = ((closureN)self_73697)->elts[3]; +c_731491.elts[3] = ((closureN)self_73697)->elts[4]; +c_731491.elts[4] = ((closureN)self_73697)->elts[5]; +c_731491.elts[5] = ((closureN)self_73697)->elts[6]; +c_731491.elts[6] = ((closureN)self_73697)->elts[7]; +c_731491.elts[7] = ((closureN)self_73697)->elts[8]; +c_731491.elts[8] = ((closureN)self_73697)->elts[9]; +c_731491.elts[9] = ((closureN)self_73697)->elts[10]; +c_731491.elts[10] = ((closureN)self_73697)->elts[11]; +c_731491.elts[11] = ((closureN)self_73697)->elts[12]; +c_731491.elts[12] = ((closureN)self_73697)->elts[13]; +c_731491.elts[13] = ((closureN)self_73697)->elts[14]; +c_731491.elts[14] = ((closureN)self_73697)->elts[15]; +c_731491.elts[15] = ((closureN)self_73697)->elts[16]; +c_731491.elts[16] = ((closureN)self_73697)->elts[17]; +c_731491.elts[17] = ((closureN)self_73697)->elts[18]; +c_731491.elts[18] = ((closureN)self_73697)->elts[19]; +c_731491.elts[19] = ((closureN)self_73697)->elts[20]; +c_731491.elts[20] = ((closureN)self_73697)->elts[21]; +c_731491.elts[21] = ((closureN)self_73697)->elts[22]; +c_731491.elts[22] = ((closureN)self_73697)->elts[23]; +c_731491.elts[23] = ((closureN)self_73697)->elts[24]; +c_731491.elts[24] = ((closureN)self_73697)->elts[25]; +c_731491.elts[25] = ((closureN)self_73697)->elts[26]; +c_731491.elts[26] = ((closureN)self_73697)->elts[27]; +c_731491.elts[27] = ((closureN)self_73697)->elts[28]; +c_731491.elts[28] = ((closureN)self_73697)->elts[29]; +c_731491.elts[29] = ((closureN)self_73697)->elts[30]; +c_731491.elts[30] = ((closureN)self_73697)->elts[31]; +c_731491.elts[31] = ((closureN)self_73697)->elts[32]; +c_731491.elts[32] = ((closureN)self_73697)->elts[33]; +c_731491.elts[33] = ((closureN)self_73697)->elts[34]; +c_731491.elts[34] = ((closureN)self_73697)->elts[35]; +c_731491.elts[35] = ((closureN)self_73697)->elts[36]; +c_731491.elts[36] = ((closureN)self_73697)->elts[37]; +c_731491.elts[37] = ((closureN)self_73697)->elts[38]; + +return_closcall1(data,(closure)&c_731491, Cyc_set_car(data, ((closureN)self_73697)->elts[2], r_73555));; +} + +static void __lambda_423(void *data, int argc, object self_73698, object r_73266) { + +closureN_type c_731493; +c_731493.hdr.mark = gc_color_red; + c_731493.hdr.grayed = 0; +c_731493.tag = closureN_tag; + c_731493.fn = (function_type)__lambda_403; +c_731493.num_args = 1; +c_731493.num_elt = 38; +c_731493.elts = (object *)alloca(sizeof(object) * 38); +c_731493.elts[0] = ((closureN)self_73698)->elts[0]; +c_731493.elts[1] = ((closureN)self_73698)->elts[1]; +c_731493.elts[2] = ((closureN)self_73698)->elts[2]; +c_731493.elts[3] = ((closureN)self_73698)->elts[3]; +c_731493.elts[4] = ((closureN)self_73698)->elts[4]; +c_731493.elts[5] = ((closureN)self_73698)->elts[5]; +c_731493.elts[6] = ((closureN)self_73698)->elts[6]; +c_731493.elts[7] = ((closureN)self_73698)->elts[7]; +c_731493.elts[8] = ((closureN)self_73698)->elts[8]; +c_731493.elts[9] = ((closureN)self_73698)->elts[9]; +c_731493.elts[10] = ((closureN)self_73698)->elts[10]; +c_731493.elts[11] = ((closureN)self_73698)->elts[11]; +c_731493.elts[12] = ((closureN)self_73698)->elts[12]; +c_731493.elts[13] = ((closureN)self_73698)->elts[13]; +c_731493.elts[14] = ((closureN)self_73698)->elts[14]; +c_731493.elts[15] = ((closureN)self_73698)->elts[15]; +c_731493.elts[16] = ((closureN)self_73698)->elts[16]; +c_731493.elts[17] = ((closureN)self_73698)->elts[17]; +c_731493.elts[18] = ((closureN)self_73698)->elts[18]; +c_731493.elts[19] = ((closureN)self_73698)->elts[19]; +c_731493.elts[20] = ((closureN)self_73698)->elts[20]; +c_731493.elts[21] = ((closureN)self_73698)->elts[21]; +c_731493.elts[22] = ((closureN)self_73698)->elts[22]; +c_731493.elts[23] = ((closureN)self_73698)->elts[23]; +c_731493.elts[24] = ((closureN)self_73698)->elts[24]; +c_731493.elts[25] = ((closureN)self_73698)->elts[25]; +c_731493.elts[26] = ((closureN)self_73698)->elts[26]; +c_731493.elts[27] = ((closureN)self_73698)->elts[27]; +c_731493.elts[28] = ((closureN)self_73698)->elts[28]; +c_731493.elts[29] = ((closureN)self_73698)->elts[29]; +c_731493.elts[30] = ((closureN)self_73698)->elts[30]; +c_731493.elts[31] = ((closureN)self_73698)->elts[31]; +c_731493.elts[32] = ((closureN)self_73698)->elts[32]; +c_731493.elts[33] = ((closureN)self_73698)->elts[33]; +c_731493.elts[34] = ((closureN)self_73698)->elts[34]; +c_731493.elts[35] = ((closureN)self_73698)->elts[35]; +c_731493.elts[36] = ((closureN)self_73698)->elts[36]; +c_731493.elts[37] = ((closureN)self_73698)->elts[37]; + + +closureN_type c_733000; +c_733000.hdr.mark = gc_color_red; + c_733000.hdr.grayed = 0; +c_733000.tag = closureN_tag; + c_733000.fn = (function_type)__lambda_422; +c_733000.num_args = 1; +c_733000.num_elt = 3; +c_733000.elts = (object *)alloca(sizeof(object) * 3); +c_733000.elts[0] = ((closureN)self_73698)->elts[6]; +c_733000.elts[1] = ((closureN)self_73698)->elts[14]; +c_733000.elts[2] = ((closureN)self_73698)->elts[33]; + +return_closcall1(data,(closure)&c_731493, &c_733000);; +} + +static void __lambda_422(void *data, int argc, object self_73699, object k_73538, object term_73224) { + +closureN_type c_733002; +c_733002.hdr.mark = gc_color_red; + c_733002.hdr.grayed = 0; +c_733002.tag = closureN_tag; + c_733002.fn = (function_type)__lambda_409; +c_733002.num_args = 0; +c_733002.num_elt = 1; +c_733002.elts = (object *)alloca(sizeof(object) * 1); +c_733002.elts[0] = term_73224; + + +closureN_type c_733033; +c_733033.hdr.mark = gc_color_red; + c_733033.hdr.grayed = 0; +c_733033.tag = closureN_tag; + c_733033.fn = (function_type)__lambda_421; +c_733033.num_args = 1; +c_733033.num_elt = 5; +c_733033.elts = (object *)alloca(sizeof(object) * 5); +c_733033.elts[0] = ((closureN)self_73699)->elts[0]; +c_733033.elts[1] = k_73538; +c_733033.elts[2] = ((closureN)self_73699)->elts[1]; +c_733033.elts[3] = term_73224; +c_733033.elts[4] = ((closureN)self_73699)->elts[2]; + +return_closcall1(data,(closure)&c_733002, &c_733033);; +} + +static void __lambda_421(void *data, int argc, object self_73700, object r_73539) { + if( !eq(boolean_f, r_73539) ){ + +closureN_type c_733035; +c_733035.hdr.mark = gc_color_red; + c_733035.hdr.grayed = 0; +c_733035.tag = closureN_tag; + c_733035.fn = (function_type)__lambda_419; +c_733035.num_args = 0; +c_733035.num_elt = 5; +c_733035.elts = (object *)alloca(sizeof(object) * 5); +c_733035.elts[0] = ((closureN)self_73700)->elts[0]; +c_733035.elts[1] = ((closureN)self_73700)->elts[1]; +c_733035.elts[2] = ((closureN)self_73700)->elts[2]; +c_733035.elts[3] = ((closureN)self_73700)->elts[3]; +c_733035.elts[4] = ((closureN)self_73700)->elts[4]; + +return_closcall0(data,(closure)&c_733035); +} else { + +closureN_type c_733084; +c_733084.hdr.mark = gc_color_red; + c_733084.hdr.grayed = 0; +c_733084.tag = closureN_tag; + c_733084.fn = (function_type)__lambda_420; +c_733084.num_args = 0; +c_733084.num_elt = 2; +c_733084.elts = (object *)alloca(sizeof(object) * 2); +c_733084.elts[0] = ((closureN)self_73700)->elts[1]; +c_733084.elts[1] = ((closureN)self_73700)->elts[3]; + +return_closcall0(data,(closure)&c_733084);} +; +} + +static void __lambda_420(void *data, int argc, object self_73701) { + +make_string(c_733087, "ADD-LEMMA did not like term: "); +return_closcall4(data, __glo_error_scheme_base, ((closureN)self_73701)->elts[0], boolean_f, &c_733087, ((closureN)self_73701)->elts[1]);; +} + +static void __lambda_419(void *data, int argc, object self_73702) { + +closureN_type c_733037; +c_733037.hdr.mark = gc_color_red; + c_733037.hdr.grayed = 0; +c_733037.tag = closureN_tag; + c_733037.fn = (function_type)__lambda_418; +c_733037.num_args = 1; +c_733037.num_elt = 5; +c_733037.elts = (object *)alloca(sizeof(object) * 5); +c_733037.elts[0] = ((closureN)self_73702)->elts[0]; +c_733037.elts[1] = ((closureN)self_73702)->elts[1]; +c_733037.elts[2] = ((closureN)self_73702)->elts[2]; +c_733037.elts[3] = ((closureN)self_73702)->elts[3]; +c_733037.elts[4] = ((closureN)self_73702)->elts[4]; + +return_closcall1(data,(closure)&c_733037, cadr(((closureN)self_73702)->elts[3]));; +} + +static void __lambda_418(void *data, int argc, object self_73703, object r_73548) { + +closureN_type c_733039; +c_733039.hdr.mark = gc_color_red; + c_733039.hdr.grayed = 0; +c_733039.tag = closureN_tag; + c_733039.fn = (function_type)__lambda_417; +c_733039.num_args = 1; +c_733039.num_elt = 5; +c_733039.elts = (object *)alloca(sizeof(object) * 5); +c_733039.elts[0] = ((closureN)self_73703)->elts[0]; +c_733039.elts[1] = ((closureN)self_73703)->elts[1]; +c_733039.elts[2] = ((closureN)self_73703)->elts[2]; +c_733039.elts[3] = ((closureN)self_73703)->elts[3]; +c_733039.elts[4] = ((closureN)self_73703)->elts[4]; + +return_closcall1(data,(closure)&c_733039, car(r_73548));; +} + +static void __lambda_417(void *data, int argc, object self_73704, object r_73540) { + +closureN_type c_733041; +c_733041.hdr.mark = gc_color_red; + c_733041.hdr.grayed = 0; +c_733041.tag = closureN_tag; + c_733041.fn = (function_type)__lambda_416; +c_733041.num_args = 1; +c_733041.num_elt = 6; +c_733041.elts = (object *)alloca(sizeof(object) * 6); +c_733041.elts[0] = ((closureN)self_73704)->elts[0]; +c_733041.elts[1] = ((closureN)self_73704)->elts[1]; +c_733041.elts[2] = ((closureN)self_73704)->elts[2]; +c_733041.elts[3] = r_73540; +c_733041.elts[4] = ((closureN)self_73704)->elts[3]; +c_733041.elts[5] = ((closureN)self_73704)->elts[4]; + +return_closcall1(data,(closure)&c_733041, quote_lemmas);; +} + +static void __lambda_416(void *data, int argc, object self_73705, object r_73541) { + +closureN_type c_733046; +c_733046.hdr.mark = gc_color_red; + c_733046.hdr.grayed = 0; +c_733046.tag = closureN_tag; + c_733046.fn = (function_type)__lambda_415; +c_733046.num_args = 1; +c_733046.num_elt = 6; +c_733046.elts = (object *)alloca(sizeof(object) * 6); +c_733046.elts[0] = ((closureN)self_73705)->elts[0]; +c_733046.elts[1] = ((closureN)self_73705)->elts[1]; +c_733046.elts[2] = ((closureN)self_73705)->elts[2]; +c_733046.elts[3] = ((closureN)self_73705)->elts[3]; +c_733046.elts[4] = r_73541; +c_733046.elts[5] = ((closureN)self_73705)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_73705)->elts[5]), &c_733046, ((closureN)self_73705)->elts[4]);; +} + +static void __lambda_415(void *data, int argc, object self_73706, object r_73543) { + +closureN_type c_733048; +c_733048.hdr.mark = gc_color_red; + c_733048.hdr.grayed = 0; +c_733048.tag = closureN_tag; + c_733048.fn = (function_type)__lambda_414; +c_733048.num_args = 1; +c_733048.num_elt = 6; +c_733048.elts = (object *)alloca(sizeof(object) * 6); +c_733048.elts[0] = ((closureN)self_73706)->elts[0]; +c_733048.elts[1] = ((closureN)self_73706)->elts[1]; +c_733048.elts[2] = ((closureN)self_73706)->elts[2]; +c_733048.elts[3] = ((closureN)self_73706)->elts[3]; +c_733048.elts[4] = ((closureN)self_73706)->elts[4]; +c_733048.elts[5] = r_73543; + +return_closcall1(data,(closure)&c_733048, cadr(((closureN)self_73706)->elts[5]));; +} + +static void __lambda_414(void *data, int argc, object self_73707, object r_73547) { + +closureN_type c_733050; +c_733050.hdr.mark = gc_color_red; + c_733050.hdr.grayed = 0; +c_733050.tag = closureN_tag; + c_733050.fn = (function_type)__lambda_413; +c_733050.num_args = 1; +c_733050.num_elt = 6; +c_733050.elts = (object *)alloca(sizeof(object) * 6); +c_733050.elts[0] = ((closureN)self_73707)->elts[0]; +c_733050.elts[1] = ((closureN)self_73707)->elts[1]; +c_733050.elts[2] = ((closureN)self_73707)->elts[2]; +c_733050.elts[3] = ((closureN)self_73707)->elts[3]; +c_733050.elts[4] = ((closureN)self_73707)->elts[4]; +c_733050.elts[5] = ((closureN)self_73707)->elts[5]; + +return_closcall1(data,(closure)&c_733050, car(r_73547));; +} + +static void __lambda_413(void *data, int argc, object self_73708, object r_73545) { + +closureN_type c_733052; +c_733052.hdr.mark = gc_color_red; + c_733052.hdr.grayed = 0; +c_733052.tag = closureN_tag; + c_733052.fn = (function_type)__lambda_412; +c_733052.num_args = 1; +c_733052.num_elt = 7; +c_733052.elts = (object *)alloca(sizeof(object) * 7); +c_733052.elts[0] = ((closureN)self_73708)->elts[0]; +c_733052.elts[1] = ((closureN)self_73708)->elts[1]; +c_733052.elts[2] = ((closureN)self_73708)->elts[2]; +c_733052.elts[3] = ((closureN)self_73708)->elts[3]; +c_733052.elts[4] = ((closureN)self_73708)->elts[4]; +c_733052.elts[5] = ((closureN)self_73708)->elts[5]; +c_733052.elts[6] = r_73545; + +return_closcall1(data,(closure)&c_733052, quote_lemmas);; +} + +static void __lambda_412(void *data, int argc, object self_73709, object r_73546) { + +closureN_type c_733057; +c_733057.hdr.mark = gc_color_red; + c_733057.hdr.grayed = 0; +c_733057.tag = closureN_tag; + c_733057.fn = (function_type)__lambda_411; +c_733057.num_args = 1; +c_733057.num_elt = 5; +c_733057.elts = (object *)alloca(sizeof(object) * 5); +c_733057.elts[0] = ((closureN)self_73709)->elts[1]; +c_733057.elts[1] = ((closureN)self_73709)->elts[2]; +c_733057.elts[2] = ((closureN)self_73709)->elts[3]; +c_733057.elts[3] = ((closureN)self_73709)->elts[4]; +c_733057.elts[4] = ((closureN)self_73709)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_73709)->elts[0]), &c_733057, ((closureN)self_73709)->elts[6], r_73546);; +} + +static void __lambda_411(void *data, int argc, object self_73710, object r_73544) { + +closureN_type c_733059; +c_733059.hdr.mark = gc_color_red; + c_733059.hdr.grayed = 0; +c_733059.tag = closureN_tag; + c_733059.fn = (function_type)__lambda_410; +c_733059.num_args = 1; +c_733059.num_elt = 4; +c_733059.elts = (object *)alloca(sizeof(object) * 4); +c_733059.elts[0] = ((closureN)self_73710)->elts[0]; +c_733059.elts[1] = ((closureN)self_73710)->elts[1]; +c_733059.elts[2] = ((closureN)self_73710)->elts[2]; +c_733059.elts[3] = ((closureN)self_73710)->elts[3]; + + +make_cons(c_733069,((closureN)self_73710)->elts[4], r_73544); +return_closcall1(data,(closure)&c_733059, &c_733069);; +} + +static void __lambda_410(void *data, int argc, object self_73711, object r_73542) { + return_closcall4(data, cell_get(((closureN)self_73711)->elts[1]), ((closureN)self_73711)->elts[0], ((closureN)self_73711)->elts[2], ((closureN)self_73711)->elts[3], r_73542);; +} + +static void __lambda_409(void *data, int argc, object self_73712, object k_73549) { + +closureN_type c_733004; +c_733004.hdr.mark = gc_color_red; + c_733004.hdr.grayed = 0; +c_733004.tag = closureN_tag; + c_733004.fn = (function_type)__lambda_408; +c_733004.num_args = 1; +c_733004.num_elt = 2; +c_733004.elts = (object *)alloca(sizeof(object) * 2); +c_733004.elts[0] = k_73549; +c_733004.elts[1] = ((closureN)self_73712)->elts[0]; + +return_closcall1(data,(closure)&c_733004, Cyc_is_cons(((closureN)self_73712)->elts[0]));; +} + +static void __lambda_408(void *data, int argc, object self_73713, object r_73550) { + if( !eq(boolean_f, r_73550) ){ + +closureN_type c_733006; +c_733006.hdr.mark = gc_color_red; + c_733006.hdr.grayed = 0; +c_733006.tag = closureN_tag; + c_733006.fn = (function_type)__lambda_407; +c_733006.num_args = 1; +c_733006.num_elt = 2; +c_733006.elts = (object *)alloca(sizeof(object) * 2); +c_733006.elts[0] = ((closureN)self_73713)->elts[0]; +c_733006.elts[1] = ((closureN)self_73713)->elts[1]; + +return_closcall1(data,(closure)&c_733006, car(((closureN)self_73713)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_73713)->elts[0], boolean_f);} +; +} + +static void __lambda_407(void *data, int argc, object self_73714, object r_73553) { + +closureN_type c_733008; +c_733008.hdr.mark = gc_color_red; + c_733008.hdr.grayed = 0; +c_733008.tag = closureN_tag; + c_733008.fn = (function_type)__lambda_406; +c_733008.num_args = 1; +c_733008.num_elt = 3; +c_733008.elts = (object *)alloca(sizeof(object) * 3); +c_733008.elts[0] = ((closureN)self_73714)->elts[0]; +c_733008.elts[1] = r_73553; +c_733008.elts[2] = ((closureN)self_73714)->elts[1]; + +return_closcall1(data,(closure)&c_733008, quote_equal);; +} + +static void __lambda_406(void *data, int argc, object self_73715, object r_73554) { + +closureN_type c_733010; +c_733010.hdr.mark = gc_color_red; + c_733010.hdr.grayed = 0; +c_733010.tag = closureN_tag; + c_733010.fn = (function_type)__lambda_405; +c_733010.num_args = 1; +c_733010.num_elt = 2; +c_733010.elts = (object *)alloca(sizeof(object) * 2); +c_733010.elts[0] = ((closureN)self_73715)->elts[0]; +c_733010.elts[1] = ((closureN)self_73715)->elts[2]; + +return_closcall1(data,(closure)&c_733010, Cyc_eq(((closureN)self_73715)->elts[1], r_73554));; +} + +static void __lambda_405(void *data, int argc, object self_73716, object r_73551) { + if( !eq(boolean_f, r_73551) ){ + +closureN_type c_733012; +c_733012.hdr.mark = gc_color_red; + c_733012.hdr.grayed = 0; +c_733012.tag = closureN_tag; + c_733012.fn = (function_type)__lambda_404; +c_733012.num_args = 1; +c_733012.num_elt = 1; +c_733012.elts = (object *)alloca(sizeof(object) * 1); +c_733012.elts[0] = ((closureN)self_73716)->elts[0]; + +return_closcall1(data,(closure)&c_733012, cadr(((closureN)self_73716)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_73716)->elts[0], boolean_f);} +; +} + +static void __lambda_404(void *data, int argc, object self_73717, object r_73552) { + return_closcall1(data, ((closureN)self_73717)->elts[0], Cyc_is_cons(r_73552));; +} + +static void __lambda_403(void *data, int argc, object self_73718, object r_73537) { + +closureN_type c_731495; +c_731495.hdr.mark = gc_color_red; + c_731495.hdr.grayed = 0; +c_731495.tag = closureN_tag; + c_731495.fn = (function_type)__lambda_402; +c_731495.num_args = 1; +c_731495.num_elt = 37; +c_731495.elts = (object *)alloca(sizeof(object) * 37); +c_731495.elts[0] = ((closureN)self_73718)->elts[0]; +c_731495.elts[1] = ((closureN)self_73718)->elts[2]; +c_731495.elts[2] = ((closureN)self_73718)->elts[3]; +c_731495.elts[3] = ((closureN)self_73718)->elts[4]; +c_731495.elts[4] = ((closureN)self_73718)->elts[5]; +c_731495.elts[5] = ((closureN)self_73718)->elts[6]; +c_731495.elts[6] = ((closureN)self_73718)->elts[7]; +c_731495.elts[7] = ((closureN)self_73718)->elts[8]; +c_731495.elts[8] = ((closureN)self_73718)->elts[9]; +c_731495.elts[9] = ((closureN)self_73718)->elts[10]; +c_731495.elts[10] = ((closureN)self_73718)->elts[11]; +c_731495.elts[11] = ((closureN)self_73718)->elts[12]; +c_731495.elts[12] = ((closureN)self_73718)->elts[13]; +c_731495.elts[13] = ((closureN)self_73718)->elts[14]; +c_731495.elts[14] = ((closureN)self_73718)->elts[15]; +c_731495.elts[15] = ((closureN)self_73718)->elts[16]; +c_731495.elts[16] = ((closureN)self_73718)->elts[17]; +c_731495.elts[17] = ((closureN)self_73718)->elts[18]; +c_731495.elts[18] = ((closureN)self_73718)->elts[19]; +c_731495.elts[19] = ((closureN)self_73718)->elts[20]; +c_731495.elts[20] = ((closureN)self_73718)->elts[21]; +c_731495.elts[21] = ((closureN)self_73718)->elts[22]; +c_731495.elts[22] = ((closureN)self_73718)->elts[23]; +c_731495.elts[23] = ((closureN)self_73718)->elts[24]; +c_731495.elts[24] = ((closureN)self_73718)->elts[25]; +c_731495.elts[25] = ((closureN)self_73718)->elts[26]; +c_731495.elts[26] = ((closureN)self_73718)->elts[27]; +c_731495.elts[27] = ((closureN)self_73718)->elts[28]; +c_731495.elts[28] = ((closureN)self_73718)->elts[29]; +c_731495.elts[29] = ((closureN)self_73718)->elts[30]; +c_731495.elts[30] = ((closureN)self_73718)->elts[31]; +c_731495.elts[31] = ((closureN)self_73718)->elts[32]; +c_731495.elts[32] = ((closureN)self_73718)->elts[33]; +c_731495.elts[33] = ((closureN)self_73718)->elts[34]; +c_731495.elts[34] = ((closureN)self_73718)->elts[35]; +c_731495.elts[35] = ((closureN)self_73718)->elts[36]; +c_731495.elts[36] = ((closureN)self_73718)->elts[37]; + +return_closcall1(data,(closure)&c_731495, Cyc_set_car(data, ((closureN)self_73718)->elts[1], r_73537));; +} + +static void __lambda_402(void *data, int argc, object self_73719, object r_73267) { + +closureN_type c_731497; +c_731497.hdr.mark = gc_color_red; + c_731497.hdr.grayed = 0; +c_731497.tag = closureN_tag; + c_731497.fn = (function_type)__lambda_393; +c_731497.num_args = 1; +c_731497.num_elt = 37; +c_731497.elts = (object *)alloca(sizeof(object) * 37); +c_731497.elts[0] = ((closureN)self_73719)->elts[0]; +c_731497.elts[1] = ((closureN)self_73719)->elts[1]; +c_731497.elts[2] = ((closureN)self_73719)->elts[2]; +c_731497.elts[3] = ((closureN)self_73719)->elts[3]; +c_731497.elts[4] = ((closureN)self_73719)->elts[4]; +c_731497.elts[5] = ((closureN)self_73719)->elts[5]; +c_731497.elts[6] = ((closureN)self_73719)->elts[6]; +c_731497.elts[7] = ((closureN)self_73719)->elts[7]; +c_731497.elts[8] = ((closureN)self_73719)->elts[8]; +c_731497.elts[9] = ((closureN)self_73719)->elts[9]; +c_731497.elts[10] = ((closureN)self_73719)->elts[10]; +c_731497.elts[11] = ((closureN)self_73719)->elts[11]; +c_731497.elts[12] = ((closureN)self_73719)->elts[12]; +c_731497.elts[13] = ((closureN)self_73719)->elts[13]; +c_731497.elts[14] = ((closureN)self_73719)->elts[14]; +c_731497.elts[15] = ((closureN)self_73719)->elts[15]; +c_731497.elts[16] = ((closureN)self_73719)->elts[16]; +c_731497.elts[17] = ((closureN)self_73719)->elts[17]; +c_731497.elts[18] = ((closureN)self_73719)->elts[18]; +c_731497.elts[19] = ((closureN)self_73719)->elts[19]; +c_731497.elts[20] = ((closureN)self_73719)->elts[20]; +c_731497.elts[21] = ((closureN)self_73719)->elts[21]; +c_731497.elts[22] = ((closureN)self_73719)->elts[22]; +c_731497.elts[23] = ((closureN)self_73719)->elts[23]; +c_731497.elts[24] = ((closureN)self_73719)->elts[24]; +c_731497.elts[25] = ((closureN)self_73719)->elts[25]; +c_731497.elts[26] = ((closureN)self_73719)->elts[26]; +c_731497.elts[27] = ((closureN)self_73719)->elts[27]; +c_731497.elts[28] = ((closureN)self_73719)->elts[28]; +c_731497.elts[29] = ((closureN)self_73719)->elts[29]; +c_731497.elts[30] = ((closureN)self_73719)->elts[30]; +c_731497.elts[31] = ((closureN)self_73719)->elts[31]; +c_731497.elts[32] = ((closureN)self_73719)->elts[32]; +c_731497.elts[33] = ((closureN)self_73719)->elts[33]; +c_731497.elts[34] = ((closureN)self_73719)->elts[34]; +c_731497.elts[35] = ((closureN)self_73719)->elts[35]; +c_731497.elts[36] = ((closureN)self_73719)->elts[36]; + + +closureN_type c_732959; +c_732959.hdr.mark = gc_color_red; + c_732959.hdr.grayed = 0; +c_732959.tag = closureN_tag; + c_732959.fn = (function_type)__lambda_401; +c_732959.num_args = 1; +c_732959.num_elt = 2; +c_732959.elts = (object *)alloca(sizeof(object) * 2); +c_732959.elts[0] = ((closureN)self_73719)->elts[20]; +c_732959.elts[1] = ((closureN)self_73719)->elts[31]; + +return_closcall1(data,(closure)&c_731497, &c_732959);; +} + +static void __lambda_401(void *data, int argc, object self_73720, object k_73531, object term_73223) { + +closureN_type c_732961; +c_732961.hdr.mark = gc_color_red; + c_732961.hdr.grayed = 0; +c_732961.tag = closureN_tag; + c_732961.fn = (function_type)__lambda_400; +c_732961.num_args = 1; +c_732961.num_elt = 4; +c_732961.elts = (object *)alloca(sizeof(object) * 4); +c_732961.elts[0] = k_73531; +c_732961.elts[1] = ((closureN)self_73720)->elts[0]; +c_732961.elts[2] = term_73223; +c_732961.elts[3] = ((closureN)self_73720)->elts[1]; + +return_closcall1(data,(closure)&c_732961, Cyc_is_cons(term_73223));; +} + +static void __lambda_400(void *data, int argc, object self_73721, object r_73532) { + if( !eq(boolean_f, r_73532) ){ + +closureN_type c_732963; +c_732963.hdr.mark = gc_color_red; + c_732963.hdr.grayed = 0; +c_732963.tag = closureN_tag; + c_732963.fn = (function_type)__lambda_398; +c_732963.num_args = 0; +c_732963.num_elt = 4; +c_732963.elts = (object *)alloca(sizeof(object) * 4); +c_732963.elts[0] = ((closureN)self_73721)->elts[0]; +c_732963.elts[1] = ((closureN)self_73721)->elts[1]; +c_732963.elts[2] = ((closureN)self_73721)->elts[2]; +c_732963.elts[3] = ((closureN)self_73721)->elts[3]; + +return_closcall0(data,(closure)&c_732963); +} else { + +closureN_type c_732991; +c_732991.hdr.mark = gc_color_red; + c_732991.hdr.grayed = 0; +c_732991.tag = closureN_tag; + c_732991.fn = (function_type)__lambda_399; +c_732991.num_args = 0; +c_732991.num_elt = 2; +c_732991.elts = (object *)alloca(sizeof(object) * 2); +c_732991.elts[0] = ((closureN)self_73721)->elts[0]; +c_732991.elts[1] = ((closureN)self_73721)->elts[2]; + +return_closcall0(data,(closure)&c_732991);} +; +} + +static void __lambda_399(void *data, int argc, object self_73722) { + return_closcall1(data, ((closureN)self_73722)->elts[0], ((closureN)self_73722)->elts[1]);; +} + +static void __lambda_398(void *data, int argc, object self_73723) { + +closureN_type c_732965; +c_732965.hdr.mark = gc_color_red; + c_732965.hdr.grayed = 0; +c_732965.tag = closureN_tag; + c_732965.fn = (function_type)__lambda_397; +c_732965.num_args = 1; +c_732965.num_elt = 4; +c_732965.elts = (object *)alloca(sizeof(object) * 4); +c_732965.elts[0] = ((closureN)self_73723)->elts[0]; +c_732965.elts[1] = ((closureN)self_73723)->elts[1]; +c_732965.elts[2] = ((closureN)self_73723)->elts[2]; +c_732965.elts[3] = ((closureN)self_73723)->elts[3]; + +return_closcall1(data,(closure)&c_732965, car(((closureN)self_73723)->elts[2]));; +} + +static void __lambda_397(void *data, int argc, object self_73724, object r_73536) { + +closureN_type c_732970; +c_732970.hdr.mark = gc_color_red; + c_732970.hdr.grayed = 0; +c_732970.tag = closureN_tag; + c_732970.fn = (function_type)__lambda_396; +c_732970.num_args = 1; +c_732970.num_elt = 3; +c_732970.elts = (object *)alloca(sizeof(object) * 3); +c_732970.elts[0] = ((closureN)self_73724)->elts[0]; +c_732970.elts[1] = ((closureN)self_73724)->elts[2]; +c_732970.elts[2] = ((closureN)self_73724)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73724)->elts[1]), &c_732970, r_73536);; +} + +static void __lambda_396(void *data, int argc, object self_73725, object r_73533) { + +closureN_type c_732972; +c_732972.hdr.mark = gc_color_red; + c_732972.hdr.grayed = 0; +c_732972.tag = closureN_tag; + c_732972.fn = (function_type)__lambda_395; +c_732972.num_args = 1; +c_732972.num_elt = 3; +c_732972.elts = (object *)alloca(sizeof(object) * 3); +c_732972.elts[0] = ((closureN)self_73725)->elts[0]; +c_732972.elts[1] = r_73533; +c_732972.elts[2] = ((closureN)self_73725)->elts[2]; + +return_closcall1(data,(closure)&c_732972, cdr(((closureN)self_73725)->elts[1]));; +} + +static void __lambda_395(void *data, int argc, object self_73726, object r_73535) { + +closureN_type c_732977; +c_732977.hdr.mark = gc_color_red; + c_732977.hdr.grayed = 0; +c_732977.tag = closureN_tag; + c_732977.fn = (function_type)__lambda_394; +c_732977.num_args = 1; +c_732977.num_elt = 2; +c_732977.elts = (object *)alloca(sizeof(object) * 2); +c_732977.elts[0] = ((closureN)self_73726)->elts[0]; +c_732977.elts[1] = ((closureN)self_73726)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73726)->elts[2]), &c_732977, r_73535);; +} + +static void __lambda_394(void *data, int argc, object self_73727, object r_73534) { + +make_cons(c_732982,((closureN)self_73727)->elts[1], r_73534); +return_closcall1(data, ((closureN)self_73727)->elts[0], &c_732982);; +} + +static void __lambda_393(void *data, int argc, object self_73728, object r_73530) { + +closureN_type c_731499; +c_731499.hdr.mark = gc_color_red; + c_731499.hdr.grayed = 0; +c_731499.tag = closureN_tag; + c_731499.fn = (function_type)__lambda_392; +c_731499.num_args = 1; +c_731499.num_elt = 37; +c_731499.elts = (object *)alloca(sizeof(object) * 37); +c_731499.elts[0] = ((closureN)self_73728)->elts[0]; +c_731499.elts[1] = ((closureN)self_73728)->elts[1]; +c_731499.elts[2] = ((closureN)self_73728)->elts[2]; +c_731499.elts[3] = ((closureN)self_73728)->elts[3]; +c_731499.elts[4] = ((closureN)self_73728)->elts[4]; +c_731499.elts[5] = ((closureN)self_73728)->elts[5]; +c_731499.elts[6] = ((closureN)self_73728)->elts[6]; +c_731499.elts[7] = ((closureN)self_73728)->elts[7]; +c_731499.elts[8] = ((closureN)self_73728)->elts[8]; +c_731499.elts[9] = ((closureN)self_73728)->elts[9]; +c_731499.elts[10] = ((closureN)self_73728)->elts[10]; +c_731499.elts[11] = ((closureN)self_73728)->elts[11]; +c_731499.elts[12] = ((closureN)self_73728)->elts[12]; +c_731499.elts[13] = ((closureN)self_73728)->elts[13]; +c_731499.elts[14] = ((closureN)self_73728)->elts[14]; +c_731499.elts[15] = ((closureN)self_73728)->elts[15]; +c_731499.elts[16] = ((closureN)self_73728)->elts[16]; +c_731499.elts[17] = ((closureN)self_73728)->elts[17]; +c_731499.elts[18] = ((closureN)self_73728)->elts[18]; +c_731499.elts[19] = ((closureN)self_73728)->elts[19]; +c_731499.elts[20] = ((closureN)self_73728)->elts[20]; +c_731499.elts[21] = ((closureN)self_73728)->elts[21]; +c_731499.elts[22] = ((closureN)self_73728)->elts[22]; +c_731499.elts[23] = ((closureN)self_73728)->elts[23]; +c_731499.elts[24] = ((closureN)self_73728)->elts[24]; +c_731499.elts[25] = ((closureN)self_73728)->elts[25]; +c_731499.elts[26] = ((closureN)self_73728)->elts[26]; +c_731499.elts[27] = ((closureN)self_73728)->elts[27]; +c_731499.elts[28] = ((closureN)self_73728)->elts[28]; +c_731499.elts[29] = ((closureN)self_73728)->elts[29]; +c_731499.elts[30] = ((closureN)self_73728)->elts[30]; +c_731499.elts[31] = ((closureN)self_73728)->elts[31]; +c_731499.elts[32] = ((closureN)self_73728)->elts[32]; +c_731499.elts[33] = ((closureN)self_73728)->elts[33]; +c_731499.elts[34] = ((closureN)self_73728)->elts[34]; +c_731499.elts[35] = ((closureN)self_73728)->elts[35]; +c_731499.elts[36] = ((closureN)self_73728)->elts[36]; + +return_closcall1(data,(closure)&c_731499, Cyc_set_car(data, ((closureN)self_73728)->elts[32], r_73530));; +} + +static void __lambda_392(void *data, int argc, object self_73729, object r_73268) { + +closureN_type c_731501; +c_731501.hdr.mark = gc_color_red; + c_731501.hdr.grayed = 0; +c_731501.tag = closureN_tag; + c_731501.fn = (function_type)__lambda_383; +c_731501.num_args = 1; +c_731501.num_elt = 37; +c_731501.elts = (object *)alloca(sizeof(object) * 37); +c_731501.elts[0] = ((closureN)self_73729)->elts[0]; +c_731501.elts[1] = ((closureN)self_73729)->elts[1]; +c_731501.elts[2] = ((closureN)self_73729)->elts[2]; +c_731501.elts[3] = ((closureN)self_73729)->elts[3]; +c_731501.elts[4] = ((closureN)self_73729)->elts[4]; +c_731501.elts[5] = ((closureN)self_73729)->elts[5]; +c_731501.elts[6] = ((closureN)self_73729)->elts[6]; +c_731501.elts[7] = ((closureN)self_73729)->elts[7]; +c_731501.elts[8] = ((closureN)self_73729)->elts[8]; +c_731501.elts[9] = ((closureN)self_73729)->elts[9]; +c_731501.elts[10] = ((closureN)self_73729)->elts[10]; +c_731501.elts[11] = ((closureN)self_73729)->elts[11]; +c_731501.elts[12] = ((closureN)self_73729)->elts[12]; +c_731501.elts[13] = ((closureN)self_73729)->elts[13]; +c_731501.elts[14] = ((closureN)self_73729)->elts[14]; +c_731501.elts[15] = ((closureN)self_73729)->elts[15]; +c_731501.elts[16] = ((closureN)self_73729)->elts[16]; +c_731501.elts[17] = ((closureN)self_73729)->elts[17]; +c_731501.elts[18] = ((closureN)self_73729)->elts[18]; +c_731501.elts[19] = ((closureN)self_73729)->elts[19]; +c_731501.elts[20] = ((closureN)self_73729)->elts[20]; +c_731501.elts[21] = ((closureN)self_73729)->elts[21]; +c_731501.elts[22] = ((closureN)self_73729)->elts[22]; +c_731501.elts[23] = ((closureN)self_73729)->elts[23]; +c_731501.elts[24] = ((closureN)self_73729)->elts[24]; +c_731501.elts[25] = ((closureN)self_73729)->elts[25]; +c_731501.elts[26] = ((closureN)self_73729)->elts[26]; +c_731501.elts[27] = ((closureN)self_73729)->elts[27]; +c_731501.elts[28] = ((closureN)self_73729)->elts[28]; +c_731501.elts[29] = ((closureN)self_73729)->elts[29]; +c_731501.elts[30] = ((closureN)self_73729)->elts[30]; +c_731501.elts[31] = ((closureN)self_73729)->elts[31]; +c_731501.elts[32] = ((closureN)self_73729)->elts[32]; +c_731501.elts[33] = ((closureN)self_73729)->elts[33]; +c_731501.elts[34] = ((closureN)self_73729)->elts[34]; +c_731501.elts[35] = ((closureN)self_73729)->elts[35]; +c_731501.elts[36] = ((closureN)self_73729)->elts[36]; + + +closureN_type c_732919; +c_732919.hdr.mark = gc_color_red; + c_732919.hdr.grayed = 0; +c_732919.tag = closureN_tag; + c_732919.fn = (function_type)__lambda_391; +c_732919.num_args = 1; +c_732919.num_elt = 2; +c_732919.elts = (object *)alloca(sizeof(object) * 2); +c_732919.elts[0] = ((closureN)self_73729)->elts[31]; +c_732919.elts[1] = ((closureN)self_73729)->elts[32]; + +return_closcall1(data,(closure)&c_731501, &c_732919);; +} + +static void __lambda_391(void *data, int argc, object self_73730, object k_73524, object lst_73222) { + +closureN_type c_732921; +c_732921.hdr.mark = gc_color_red; + c_732921.hdr.grayed = 0; +c_732921.tag = closureN_tag; + c_732921.fn = (function_type)__lambda_390; +c_732921.num_args = 1; +c_732921.num_elt = 4; +c_732921.elts = (object *)alloca(sizeof(object) * 4); +c_732921.elts[0] = k_73524; +c_732921.elts[1] = lst_73222; +c_732921.elts[2] = ((closureN)self_73730)->elts[0]; +c_732921.elts[3] = ((closureN)self_73730)->elts[1]; + +return_closcall1(data,(closure)&c_732921, Cyc_is_null(lst_73222));; +} + +static void __lambda_390(void *data, int argc, object self_73731, object r_73525) { + if( !eq(boolean_f, r_73525) ){ + +closureN_type c_732923; +c_732923.hdr.mark = gc_color_red; + c_732923.hdr.grayed = 0; +c_732923.tag = closureN_tag; + c_732923.fn = (function_type)__lambda_384; +c_732923.num_args = 0; +c_732923.num_elt = 1; +c_732923.elts = (object *)alloca(sizeof(object) * 1); +c_732923.elts[0] = ((closureN)self_73731)->elts[0]; + +return_closcall0(data,(closure)&c_732923); +} else { + +closureN_type c_732927; +c_732927.hdr.mark = gc_color_red; + c_732927.hdr.grayed = 0; +c_732927.tag = closureN_tag; + c_732927.fn = (function_type)__lambda_389; +c_732927.num_args = 0; +c_732927.num_elt = 4; +c_732927.elts = (object *)alloca(sizeof(object) * 4); +c_732927.elts[0] = ((closureN)self_73731)->elts[0]; +c_732927.elts[1] = ((closureN)self_73731)->elts[1]; +c_732927.elts[2] = ((closureN)self_73731)->elts[2]; +c_732927.elts[3] = ((closureN)self_73731)->elts[3]; + +return_closcall0(data,(closure)&c_732927);} +; +} + +static void __lambda_389(void *data, int argc, object self_73732) { + +closureN_type c_732929; +c_732929.hdr.mark = gc_color_red; + c_732929.hdr.grayed = 0; +c_732929.tag = closureN_tag; + c_732929.fn = (function_type)__lambda_388; +c_732929.num_args = 1; +c_732929.num_elt = 4; +c_732929.elts = (object *)alloca(sizeof(object) * 4); +c_732929.elts[0] = ((closureN)self_73732)->elts[0]; +c_732929.elts[1] = ((closureN)self_73732)->elts[1]; +c_732929.elts[2] = ((closureN)self_73732)->elts[2]; +c_732929.elts[3] = ((closureN)self_73732)->elts[3]; + +return_closcall1(data,(closure)&c_732929, car(((closureN)self_73732)->elts[1]));; +} + +static void __lambda_388(void *data, int argc, object self_73733, object r_73529) { + +closureN_type c_732934; +c_732934.hdr.mark = gc_color_red; + c_732934.hdr.grayed = 0; +c_732934.tag = closureN_tag; + c_732934.fn = (function_type)__lambda_387; +c_732934.num_args = 1; +c_732934.num_elt = 3; +c_732934.elts = (object *)alloca(sizeof(object) * 3); +c_732934.elts[0] = ((closureN)self_73733)->elts[0]; +c_732934.elts[1] = ((closureN)self_73733)->elts[1]; +c_732934.elts[2] = ((closureN)self_73733)->elts[2]; + +return_closcall2(data, cell_get(((closureN)self_73733)->elts[3]), &c_732934, r_73529);; +} + +static void __lambda_387(void *data, int argc, object self_73734, object r_73526) { + +closureN_type c_732936; +c_732936.hdr.mark = gc_color_red; + c_732936.hdr.grayed = 0; +c_732936.tag = closureN_tag; + c_732936.fn = (function_type)__lambda_386; +c_732936.num_args = 1; +c_732936.num_elt = 3; +c_732936.elts = (object *)alloca(sizeof(object) * 3); +c_732936.elts[0] = ((closureN)self_73734)->elts[0]; +c_732936.elts[1] = r_73526; +c_732936.elts[2] = ((closureN)self_73734)->elts[2]; + +return_closcall1(data,(closure)&c_732936, cdr(((closureN)self_73734)->elts[1]));; +} + +static void __lambda_386(void *data, int argc, object self_73735, object r_73528) { + +closureN_type c_732941; +c_732941.hdr.mark = gc_color_red; + c_732941.hdr.grayed = 0; +c_732941.tag = closureN_tag; + c_732941.fn = (function_type)__lambda_385; +c_732941.num_args = 1; +c_732941.num_elt = 2; +c_732941.elts = (object *)alloca(sizeof(object) * 2); +c_732941.elts[0] = ((closureN)self_73735)->elts[0]; +c_732941.elts[1] = ((closureN)self_73735)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73735)->elts[2]), &c_732941, r_73528);; +} + +static void __lambda_385(void *data, int argc, object self_73736, object r_73527) { + +make_cons(c_732946,((closureN)self_73736)->elts[1], r_73527); +return_closcall1(data, ((closureN)self_73736)->elts[0], &c_732946);; +} + +static void __lambda_384(void *data, int argc, object self_73737) { + return_closcall1(data, ((closureN)self_73737)->elts[0], nil);; +} + +static void __lambda_383(void *data, int argc, object self_73738, object r_73523) { + +closureN_type c_731503; +c_731503.hdr.mark = gc_color_red; + c_731503.hdr.grayed = 0; +c_731503.tag = closureN_tag; + c_731503.fn = (function_type)__lambda_382; +c_731503.num_args = 1; +c_731503.num_elt = 36; +c_731503.elts = (object *)alloca(sizeof(object) * 36); +c_731503.elts[0] = ((closureN)self_73738)->elts[0]; +c_731503.elts[1] = ((closureN)self_73738)->elts[1]; +c_731503.elts[2] = ((closureN)self_73738)->elts[2]; +c_731503.elts[3] = ((closureN)self_73738)->elts[3]; +c_731503.elts[4] = ((closureN)self_73738)->elts[4]; +c_731503.elts[5] = ((closureN)self_73738)->elts[5]; +c_731503.elts[6] = ((closureN)self_73738)->elts[6]; +c_731503.elts[7] = ((closureN)self_73738)->elts[7]; +c_731503.elts[8] = ((closureN)self_73738)->elts[8]; +c_731503.elts[9] = ((closureN)self_73738)->elts[9]; +c_731503.elts[10] = ((closureN)self_73738)->elts[10]; +c_731503.elts[11] = ((closureN)self_73738)->elts[11]; +c_731503.elts[12] = ((closureN)self_73738)->elts[12]; +c_731503.elts[13] = ((closureN)self_73738)->elts[13]; +c_731503.elts[14] = ((closureN)self_73738)->elts[14]; +c_731503.elts[15] = ((closureN)self_73738)->elts[15]; +c_731503.elts[16] = ((closureN)self_73738)->elts[16]; +c_731503.elts[17] = ((closureN)self_73738)->elts[17]; +c_731503.elts[18] = ((closureN)self_73738)->elts[18]; +c_731503.elts[19] = ((closureN)self_73738)->elts[19]; +c_731503.elts[20] = ((closureN)self_73738)->elts[20]; +c_731503.elts[21] = ((closureN)self_73738)->elts[21]; +c_731503.elts[22] = ((closureN)self_73738)->elts[22]; +c_731503.elts[23] = ((closureN)self_73738)->elts[23]; +c_731503.elts[24] = ((closureN)self_73738)->elts[24]; +c_731503.elts[25] = ((closureN)self_73738)->elts[25]; +c_731503.elts[26] = ((closureN)self_73738)->elts[26]; +c_731503.elts[27] = ((closureN)self_73738)->elts[27]; +c_731503.elts[28] = ((closureN)self_73738)->elts[28]; +c_731503.elts[29] = ((closureN)self_73738)->elts[29]; +c_731503.elts[30] = ((closureN)self_73738)->elts[30]; +c_731503.elts[31] = ((closureN)self_73738)->elts[32]; +c_731503.elts[32] = ((closureN)self_73738)->elts[33]; +c_731503.elts[33] = ((closureN)self_73738)->elts[34]; +c_731503.elts[34] = ((closureN)self_73738)->elts[35]; +c_731503.elts[35] = ((closureN)self_73738)->elts[36]; + +return_closcall1(data,(closure)&c_731503, Cyc_set_car(data, ((closureN)self_73738)->elts[31], r_73523));; +} + +static void __lambda_382(void *data, int argc, object self_73739, object r_73269) { + +closureN_type c_731505; +c_731505.hdr.mark = gc_color_red; + c_731505.hdr.grayed = 0; +c_731505.tag = closureN_tag; + c_731505.fn = (function_type)__lambda_373; +c_731505.num_args = 1; +c_731505.num_elt = 36; +c_731505.elts = (object *)alloca(sizeof(object) * 36); +c_731505.elts[0] = ((closureN)self_73739)->elts[0]; +c_731505.elts[1] = ((closureN)self_73739)->elts[1]; +c_731505.elts[2] = ((closureN)self_73739)->elts[2]; +c_731505.elts[3] = ((closureN)self_73739)->elts[3]; +c_731505.elts[4] = ((closureN)self_73739)->elts[4]; +c_731505.elts[5] = ((closureN)self_73739)->elts[5]; +c_731505.elts[6] = ((closureN)self_73739)->elts[6]; +c_731505.elts[7] = ((closureN)self_73739)->elts[7]; +c_731505.elts[8] = ((closureN)self_73739)->elts[8]; +c_731505.elts[9] = ((closureN)self_73739)->elts[9]; +c_731505.elts[10] = ((closureN)self_73739)->elts[10]; +c_731505.elts[11] = ((closureN)self_73739)->elts[11]; +c_731505.elts[12] = ((closureN)self_73739)->elts[12]; +c_731505.elts[13] = ((closureN)self_73739)->elts[13]; +c_731505.elts[14] = ((closureN)self_73739)->elts[14]; +c_731505.elts[15] = ((closureN)self_73739)->elts[15]; +c_731505.elts[16] = ((closureN)self_73739)->elts[16]; +c_731505.elts[17] = ((closureN)self_73739)->elts[17]; +c_731505.elts[18] = ((closureN)self_73739)->elts[18]; +c_731505.elts[19] = ((closureN)self_73739)->elts[19]; +c_731505.elts[20] = ((closureN)self_73739)->elts[20]; +c_731505.elts[21] = ((closureN)self_73739)->elts[21]; +c_731505.elts[22] = ((closureN)self_73739)->elts[22]; +c_731505.elts[23] = ((closureN)self_73739)->elts[23]; +c_731505.elts[24] = ((closureN)self_73739)->elts[24]; +c_731505.elts[25] = ((closureN)self_73739)->elts[25]; +c_731505.elts[26] = ((closureN)self_73739)->elts[26]; +c_731505.elts[27] = ((closureN)self_73739)->elts[27]; +c_731505.elts[28] = ((closureN)self_73739)->elts[28]; +c_731505.elts[29] = ((closureN)self_73739)->elts[29]; +c_731505.elts[30] = ((closureN)self_73739)->elts[30]; +c_731505.elts[31] = ((closureN)self_73739)->elts[31]; +c_731505.elts[32] = ((closureN)self_73739)->elts[32]; +c_731505.elts[33] = ((closureN)self_73739)->elts[33]; +c_731505.elts[34] = ((closureN)self_73739)->elts[34]; +c_731505.elts[35] = ((closureN)self_73739)->elts[35]; + + +closureN_type c_732878; +c_732878.hdr.mark = gc_color_red; + c_732878.hdr.grayed = 0; +c_732878.tag = closureN_tag; + c_732878.fn = (function_type)__lambda_381; +c_732878.num_args = 1; +c_732878.num_elt = 2; +c_732878.elts = (object *)alloca(sizeof(object) * 2); +c_732878.elts[0] = ((closureN)self_73739)->elts[7]; +c_732878.elts[1] = ((closureN)self_73739)->elts[35]; + +return_closcall1(data,(closure)&c_731505, &c_732878);; +} + +static void __lambda_381(void *data, int argc, object self_73740, object k_73517, object term_73221) { + +closureN_type c_732880; +c_732880.hdr.mark = gc_color_red; + c_732880.hdr.grayed = 0; +c_732880.tag = closureN_tag; + c_732880.fn = (function_type)__lambda_380; +c_732880.num_args = 1; +c_732880.num_elt = 4; +c_732880.elts = (object *)alloca(sizeof(object) * 4); +c_732880.elts[0] = ((closureN)self_73740)->elts[0]; +c_732880.elts[1] = k_73517; +c_732880.elts[2] = term_73221; +c_732880.elts[3] = ((closureN)self_73740)->elts[1]; + +return_closcall1(data,(closure)&c_732880, Cyc_is_cons(term_73221));; +} + +static void __lambda_380(void *data, int argc, object self_73741, object r_73518) { + if( !eq(boolean_f, r_73518) ){ + +closureN_type c_732882; +c_732882.hdr.mark = gc_color_red; + c_732882.hdr.grayed = 0; +c_732882.tag = closureN_tag; + c_732882.fn = (function_type)__lambda_378; +c_732882.num_args = 0; +c_732882.num_elt = 4; +c_732882.elts = (object *)alloca(sizeof(object) * 4); +c_732882.elts[0] = ((closureN)self_73741)->elts[0]; +c_732882.elts[1] = ((closureN)self_73741)->elts[1]; +c_732882.elts[2] = ((closureN)self_73741)->elts[2]; +c_732882.elts[3] = ((closureN)self_73741)->elts[3]; + +return_closcall0(data,(closure)&c_732882); +} else { + +closureN_type c_732910; +c_732910.hdr.mark = gc_color_red; + c_732910.hdr.grayed = 0; +c_732910.tag = closureN_tag; + c_732910.fn = (function_type)__lambda_379; +c_732910.num_args = 0; +c_732910.num_elt = 2; +c_732910.elts = (object *)alloca(sizeof(object) * 2); +c_732910.elts[0] = ((closureN)self_73741)->elts[1]; +c_732910.elts[1] = ((closureN)self_73741)->elts[2]; + +return_closcall0(data,(closure)&c_732910);} +; +} + +static void __lambda_379(void *data, int argc, object self_73742) { + return_closcall1(data, ((closureN)self_73742)->elts[0], ((closureN)self_73742)->elts[1]);; +} + +static void __lambda_378(void *data, int argc, object self_73743) { + +closureN_type c_732884; +c_732884.hdr.mark = gc_color_red; + c_732884.hdr.grayed = 0; +c_732884.tag = closureN_tag; + c_732884.fn = (function_type)__lambda_377; +c_732884.num_args = 1; +c_732884.num_elt = 4; +c_732884.elts = (object *)alloca(sizeof(object) * 4); +c_732884.elts[0] = ((closureN)self_73743)->elts[0]; +c_732884.elts[1] = ((closureN)self_73743)->elts[1]; +c_732884.elts[2] = ((closureN)self_73743)->elts[2]; +c_732884.elts[3] = ((closureN)self_73743)->elts[3]; + +return_closcall1(data,(closure)&c_732884, car(((closureN)self_73743)->elts[2]));; +} + +static void __lambda_377(void *data, int argc, object self_73744, object r_73522) { + +closureN_type c_732889; +c_732889.hdr.mark = gc_color_red; + c_732889.hdr.grayed = 0; +c_732889.tag = closureN_tag; + c_732889.fn = (function_type)__lambda_376; +c_732889.num_args = 1; +c_732889.num_elt = 3; +c_732889.elts = (object *)alloca(sizeof(object) * 3); +c_732889.elts[0] = ((closureN)self_73744)->elts[1]; +c_732889.elts[1] = ((closureN)self_73744)->elts[2]; +c_732889.elts[2] = ((closureN)self_73744)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73744)->elts[0]), &c_732889, r_73522);; +} + +static void __lambda_376(void *data, int argc, object self_73745, object r_73519) { + +closureN_type c_732891; +c_732891.hdr.mark = gc_color_red; + c_732891.hdr.grayed = 0; +c_732891.tag = closureN_tag; + c_732891.fn = (function_type)__lambda_375; +c_732891.num_args = 1; +c_732891.num_elt = 3; +c_732891.elts = (object *)alloca(sizeof(object) * 3); +c_732891.elts[0] = ((closureN)self_73745)->elts[0]; +c_732891.elts[1] = r_73519; +c_732891.elts[2] = ((closureN)self_73745)->elts[2]; + +return_closcall1(data,(closure)&c_732891, cdr(((closureN)self_73745)->elts[1]));; +} + +static void __lambda_375(void *data, int argc, object self_73746, object r_73521) { + +closureN_type c_732893; +c_732893.hdr.mark = gc_color_red; + c_732893.hdr.grayed = 0; +c_732893.tag = closureN_tag; + c_732893.fn = (function_type)__lambda_374; +c_732893.num_args = 1; +c_732893.num_elt = 2; +c_732893.elts = (object *)alloca(sizeof(object) * 2); +c_732893.elts[0] = ((closureN)self_73746)->elts[0]; +c_732893.elts[1] = ((closureN)self_73746)->elts[1]; + +return_closcall3(data, __glo_map_scheme_base, &c_732893, cell_get(((closureN)self_73746)->elts[2]), r_73521);; +} + +static void __lambda_374(void *data, int argc, object self_73747, object r_73520) { + +make_cons(c_732898,((closureN)self_73747)->elts[1], r_73520); +return_closcall1(data, ((closureN)self_73747)->elts[0], &c_732898);; +} + +static void __lambda_373(void *data, int argc, object self_73748, object r_73516) { + +closureN_type c_731507; +c_731507.hdr.mark = gc_color_red; + c_731507.hdr.grayed = 0; +c_731507.tag = closureN_tag; + c_731507.fn = (function_type)__lambda_372; +c_731507.num_args = 1; +c_731507.num_elt = 35; +c_731507.elts = (object *)alloca(sizeof(object) * 35); +c_731507.elts[0] = ((closureN)self_73748)->elts[0]; +c_731507.elts[1] = ((closureN)self_73748)->elts[1]; +c_731507.elts[2] = ((closureN)self_73748)->elts[2]; +c_731507.elts[3] = ((closureN)self_73748)->elts[3]; +c_731507.elts[4] = ((closureN)self_73748)->elts[4]; +c_731507.elts[5] = ((closureN)self_73748)->elts[5]; +c_731507.elts[6] = ((closureN)self_73748)->elts[6]; +c_731507.elts[7] = ((closureN)self_73748)->elts[7]; +c_731507.elts[8] = ((closureN)self_73748)->elts[8]; +c_731507.elts[9] = ((closureN)self_73748)->elts[9]; +c_731507.elts[10] = ((closureN)self_73748)->elts[10]; +c_731507.elts[11] = ((closureN)self_73748)->elts[11]; +c_731507.elts[12] = ((closureN)self_73748)->elts[12]; +c_731507.elts[13] = ((closureN)self_73748)->elts[13]; +c_731507.elts[14] = ((closureN)self_73748)->elts[14]; +c_731507.elts[15] = ((closureN)self_73748)->elts[15]; +c_731507.elts[16] = ((closureN)self_73748)->elts[16]; +c_731507.elts[17] = ((closureN)self_73748)->elts[17]; +c_731507.elts[18] = ((closureN)self_73748)->elts[18]; +c_731507.elts[19] = ((closureN)self_73748)->elts[19]; +c_731507.elts[20] = ((closureN)self_73748)->elts[20]; +c_731507.elts[21] = ((closureN)self_73748)->elts[21]; +c_731507.elts[22] = ((closureN)self_73748)->elts[22]; +c_731507.elts[23] = ((closureN)self_73748)->elts[23]; +c_731507.elts[24] = ((closureN)self_73748)->elts[24]; +c_731507.elts[25] = ((closureN)self_73748)->elts[25]; +c_731507.elts[26] = ((closureN)self_73748)->elts[26]; +c_731507.elts[27] = ((closureN)self_73748)->elts[27]; +c_731507.elts[28] = ((closureN)self_73748)->elts[28]; +c_731507.elts[29] = ((closureN)self_73748)->elts[29]; +c_731507.elts[30] = ((closureN)self_73748)->elts[30]; +c_731507.elts[31] = ((closureN)self_73748)->elts[31]; +c_731507.elts[32] = ((closureN)self_73748)->elts[32]; +c_731507.elts[33] = ((closureN)self_73748)->elts[33]; +c_731507.elts[34] = ((closureN)self_73748)->elts[34]; + +return_closcall1(data,(closure)&c_731507, Cyc_set_car(data, ((closureN)self_73748)->elts[35], r_73516));; +} + +static void __lambda_372(void *data, int argc, object self_73749, object r_73270) { + +closureN_type c_731509; +c_731509.hdr.mark = gc_color_red; + c_731509.hdr.grayed = 0; +c_731509.tag = closureN_tag; + c_731509.fn = (function_type)__lambda_369; +c_731509.num_args = 1; +c_731509.num_elt = 35; +c_731509.elts = (object *)alloca(sizeof(object) * 35); +c_731509.elts[0] = ((closureN)self_73749)->elts[0]; +c_731509.elts[1] = ((closureN)self_73749)->elts[1]; +c_731509.elts[2] = ((closureN)self_73749)->elts[2]; +c_731509.elts[3] = ((closureN)self_73749)->elts[3]; +c_731509.elts[4] = ((closureN)self_73749)->elts[4]; +c_731509.elts[5] = ((closureN)self_73749)->elts[5]; +c_731509.elts[6] = ((closureN)self_73749)->elts[6]; +c_731509.elts[7] = ((closureN)self_73749)->elts[7]; +c_731509.elts[8] = ((closureN)self_73749)->elts[8]; +c_731509.elts[9] = ((closureN)self_73749)->elts[9]; +c_731509.elts[10] = ((closureN)self_73749)->elts[10]; +c_731509.elts[11] = ((closureN)self_73749)->elts[11]; +c_731509.elts[12] = ((closureN)self_73749)->elts[12]; +c_731509.elts[13] = ((closureN)self_73749)->elts[13]; +c_731509.elts[14] = ((closureN)self_73749)->elts[14]; +c_731509.elts[15] = ((closureN)self_73749)->elts[15]; +c_731509.elts[16] = ((closureN)self_73749)->elts[16]; +c_731509.elts[17] = ((closureN)self_73749)->elts[17]; +c_731509.elts[18] = ((closureN)self_73749)->elts[18]; +c_731509.elts[19] = ((closureN)self_73749)->elts[19]; +c_731509.elts[20] = ((closureN)self_73749)->elts[20]; +c_731509.elts[21] = ((closureN)self_73749)->elts[21]; +c_731509.elts[22] = ((closureN)self_73749)->elts[22]; +c_731509.elts[23] = ((closureN)self_73749)->elts[23]; +c_731509.elts[24] = ((closureN)self_73749)->elts[24]; +c_731509.elts[25] = ((closureN)self_73749)->elts[25]; +c_731509.elts[26] = ((closureN)self_73749)->elts[26]; +c_731509.elts[27] = ((closureN)self_73749)->elts[27]; +c_731509.elts[28] = ((closureN)self_73749)->elts[28]; +c_731509.elts[29] = ((closureN)self_73749)->elts[29]; +c_731509.elts[30] = ((closureN)self_73749)->elts[30]; +c_731509.elts[31] = ((closureN)self_73749)->elts[31]; +c_731509.elts[32] = ((closureN)self_73749)->elts[32]; +c_731509.elts[33] = ((closureN)self_73749)->elts[33]; +c_731509.elts[34] = ((closureN)self_73749)->elts[34]; + + +closureN_type c_732863; +c_732863.hdr.mark = gc_color_red; + c_732863.hdr.grayed = 0; +c_732863.tag = closureN_tag; + c_732863.fn = (function_type)__lambda_371; +c_732863.num_args = 3; +c_732863.num_elt = 2; +c_732863.elts = (object *)alloca(sizeof(object) * 2); +c_732863.elts[0] = ((closureN)self_73749)->elts[14]; +c_732863.elts[1] = ((closureN)self_73749)->elts[20]; + +return_closcall1(data,(closure)&c_731509, &c_732863);; +} + +static void __lambda_371(void *data, int argc, object self_73750, object k_73514, object sym_73220, object property_73219, object value_73218) { + +closureN_type c_732868; +c_732868.hdr.mark = gc_color_red; + c_732868.hdr.grayed = 0; +c_732868.tag = closureN_tag; + c_732868.fn = (function_type)__lambda_370; +c_732868.num_args = 1; +c_732868.num_elt = 3; +c_732868.elts = (object *)alloca(sizeof(object) * 3); +c_732868.elts[0] = k_73514; +c_732868.elts[1] = ((closureN)self_73750)->elts[0]; +c_732868.elts[2] = value_73218; + +return_closcall2(data, cell_get(((closureN)self_73750)->elts[1]), &c_732868, sym_73220);; +} + +static void __lambda_370(void *data, int argc, object self_73751, object r_73515) { + return_closcall3(data, cell_get(((closureN)self_73751)->elts[1]), ((closureN)self_73751)->elts[0], r_73515, ((closureN)self_73751)->elts[2]);; +} + +static void __lambda_369(void *data, int argc, object self_73752, object r_73513) { + +closureN_type c_731511; +c_731511.hdr.mark = gc_color_red; + c_731511.hdr.grayed = 0; +c_731511.tag = closureN_tag; + c_731511.fn = (function_type)__lambda_368; +c_731511.num_args = 1; +c_731511.num_elt = 34; +c_731511.elts = (object *)alloca(sizeof(object) * 34); +c_731511.elts[0] = ((closureN)self_73752)->elts[0]; +c_731511.elts[1] = ((closureN)self_73752)->elts[1]; +c_731511.elts[2] = ((closureN)self_73752)->elts[2]; +c_731511.elts[3] = ((closureN)self_73752)->elts[3]; +c_731511.elts[4] = ((closureN)self_73752)->elts[4]; +c_731511.elts[5] = ((closureN)self_73752)->elts[5]; +c_731511.elts[6] = ((closureN)self_73752)->elts[6]; +c_731511.elts[7] = ((closureN)self_73752)->elts[7]; +c_731511.elts[8] = ((closureN)self_73752)->elts[8]; +c_731511.elts[9] = ((closureN)self_73752)->elts[9]; +c_731511.elts[10] = ((closureN)self_73752)->elts[10]; +c_731511.elts[11] = ((closureN)self_73752)->elts[11]; +c_731511.elts[12] = ((closureN)self_73752)->elts[12]; +c_731511.elts[13] = ((closureN)self_73752)->elts[14]; +c_731511.elts[14] = ((closureN)self_73752)->elts[15]; +c_731511.elts[15] = ((closureN)self_73752)->elts[16]; +c_731511.elts[16] = ((closureN)self_73752)->elts[17]; +c_731511.elts[17] = ((closureN)self_73752)->elts[18]; +c_731511.elts[18] = ((closureN)self_73752)->elts[19]; +c_731511.elts[19] = ((closureN)self_73752)->elts[20]; +c_731511.elts[20] = ((closureN)self_73752)->elts[21]; +c_731511.elts[21] = ((closureN)self_73752)->elts[22]; +c_731511.elts[22] = ((closureN)self_73752)->elts[23]; +c_731511.elts[23] = ((closureN)self_73752)->elts[24]; +c_731511.elts[24] = ((closureN)self_73752)->elts[25]; +c_731511.elts[25] = ((closureN)self_73752)->elts[26]; +c_731511.elts[26] = ((closureN)self_73752)->elts[27]; +c_731511.elts[27] = ((closureN)self_73752)->elts[28]; +c_731511.elts[28] = ((closureN)self_73752)->elts[29]; +c_731511.elts[29] = ((closureN)self_73752)->elts[30]; +c_731511.elts[30] = ((closureN)self_73752)->elts[31]; +c_731511.elts[31] = ((closureN)self_73752)->elts[32]; +c_731511.elts[32] = ((closureN)self_73752)->elts[33]; +c_731511.elts[33] = ((closureN)self_73752)->elts[34]; + +return_closcall1(data,(closure)&c_731511, Cyc_set_car(data, ((closureN)self_73752)->elts[13], r_73513));; +} + +static void __lambda_368(void *data, int argc, object self_73753, object r_73271) { + +closureN_type c_731513; +c_731513.hdr.mark = gc_color_red; + c_731513.hdr.grayed = 0; +c_731513.tag = closureN_tag; + c_731513.fn = (function_type)__lambda_365; +c_731513.num_args = 1; +c_731513.num_elt = 34; +c_731513.elts = (object *)alloca(sizeof(object) * 34); +c_731513.elts[0] = ((closureN)self_73753)->elts[0]; +c_731513.elts[1] = ((closureN)self_73753)->elts[1]; +c_731513.elts[2] = ((closureN)self_73753)->elts[2]; +c_731513.elts[3] = ((closureN)self_73753)->elts[3]; +c_731513.elts[4] = ((closureN)self_73753)->elts[4]; +c_731513.elts[5] = ((closureN)self_73753)->elts[5]; +c_731513.elts[6] = ((closureN)self_73753)->elts[6]; +c_731513.elts[7] = ((closureN)self_73753)->elts[7]; +c_731513.elts[8] = ((closureN)self_73753)->elts[8]; +c_731513.elts[9] = ((closureN)self_73753)->elts[9]; +c_731513.elts[10] = ((closureN)self_73753)->elts[10]; +c_731513.elts[11] = ((closureN)self_73753)->elts[11]; +c_731513.elts[12] = ((closureN)self_73753)->elts[12]; +c_731513.elts[13] = ((closureN)self_73753)->elts[13]; +c_731513.elts[14] = ((closureN)self_73753)->elts[14]; +c_731513.elts[15] = ((closureN)self_73753)->elts[15]; +c_731513.elts[16] = ((closureN)self_73753)->elts[16]; +c_731513.elts[17] = ((closureN)self_73753)->elts[17]; +c_731513.elts[18] = ((closureN)self_73753)->elts[18]; +c_731513.elts[19] = ((closureN)self_73753)->elts[19]; +c_731513.elts[20] = ((closureN)self_73753)->elts[20]; +c_731513.elts[21] = ((closureN)self_73753)->elts[21]; +c_731513.elts[22] = ((closureN)self_73753)->elts[22]; +c_731513.elts[23] = ((closureN)self_73753)->elts[23]; +c_731513.elts[24] = ((closureN)self_73753)->elts[24]; +c_731513.elts[25] = ((closureN)self_73753)->elts[25]; +c_731513.elts[26] = ((closureN)self_73753)->elts[26]; +c_731513.elts[27] = ((closureN)self_73753)->elts[27]; +c_731513.elts[28] = ((closureN)self_73753)->elts[28]; +c_731513.elts[29] = ((closureN)self_73753)->elts[29]; +c_731513.elts[30] = ((closureN)self_73753)->elts[30]; +c_731513.elts[31] = ((closureN)self_73753)->elts[31]; +c_731513.elts[32] = ((closureN)self_73753)->elts[32]; +c_731513.elts[33] = ((closureN)self_73753)->elts[33]; + + +closureN_type c_732849; +c_732849.hdr.mark = gc_color_red; + c_732849.hdr.grayed = 0; +c_732849.tag = closureN_tag; + c_732849.fn = (function_type)__lambda_367; +c_732849.num_args = 2; +c_732849.num_elt = 2; +c_732849.elts = (object *)alloca(sizeof(object) * 2); +c_732849.elts[0] = ((closureN)self_73753)->elts[6]; +c_732849.elts[1] = ((closureN)self_73753)->elts[19]; + +return_closcall1(data,(closure)&c_731513, &c_732849);; +} + +static void __lambda_367(void *data, int argc, object self_73754, object k_73511, object sym_73217, object property_73216) { + +closureN_type c_732854; +c_732854.hdr.mark = gc_color_red; + c_732854.hdr.grayed = 0; +c_732854.tag = closureN_tag; + c_732854.fn = (function_type)__lambda_366; +c_732854.num_args = 1; +c_732854.num_elt = 2; +c_732854.elts = (object *)alloca(sizeof(object) * 2); +c_732854.elts[0] = ((closureN)self_73754)->elts[0]; +c_732854.elts[1] = k_73511; + +return_closcall2(data, cell_get(((closureN)self_73754)->elts[1]), &c_732854, sym_73217);; +} + +static void __lambda_366(void *data, int argc, object self_73755, object r_73512) { + return_closcall2(data, cell_get(((closureN)self_73755)->elts[0]), ((closureN)self_73755)->elts[1], r_73512);; +} + +static void __lambda_365(void *data, int argc, object self_73756, object r_73510) { + +closureN_type c_731515; +c_731515.hdr.mark = gc_color_red; + c_731515.hdr.grayed = 0; +c_731515.tag = closureN_tag; + c_731515.fn = (function_type)__lambda_364; +c_731515.num_args = 1; +c_731515.num_elt = 33; +c_731515.elts = (object *)alloca(sizeof(object) * 33); +c_731515.elts[0] = ((closureN)self_73756)->elts[0]; +c_731515.elts[1] = ((closureN)self_73756)->elts[1]; +c_731515.elts[2] = ((closureN)self_73756)->elts[2]; +c_731515.elts[3] = ((closureN)self_73756)->elts[3]; +c_731515.elts[4] = ((closureN)self_73756)->elts[4]; +c_731515.elts[5] = ((closureN)self_73756)->elts[6]; +c_731515.elts[6] = ((closureN)self_73756)->elts[7]; +c_731515.elts[7] = ((closureN)self_73756)->elts[8]; +c_731515.elts[8] = ((closureN)self_73756)->elts[9]; +c_731515.elts[9] = ((closureN)self_73756)->elts[10]; +c_731515.elts[10] = ((closureN)self_73756)->elts[11]; +c_731515.elts[11] = ((closureN)self_73756)->elts[12]; +c_731515.elts[12] = ((closureN)self_73756)->elts[13]; +c_731515.elts[13] = ((closureN)self_73756)->elts[14]; +c_731515.elts[14] = ((closureN)self_73756)->elts[15]; +c_731515.elts[15] = ((closureN)self_73756)->elts[16]; +c_731515.elts[16] = ((closureN)self_73756)->elts[17]; +c_731515.elts[17] = ((closureN)self_73756)->elts[18]; +c_731515.elts[18] = ((closureN)self_73756)->elts[19]; +c_731515.elts[19] = ((closureN)self_73756)->elts[20]; +c_731515.elts[20] = ((closureN)self_73756)->elts[21]; +c_731515.elts[21] = ((closureN)self_73756)->elts[22]; +c_731515.elts[22] = ((closureN)self_73756)->elts[23]; +c_731515.elts[23] = ((closureN)self_73756)->elts[24]; +c_731515.elts[24] = ((closureN)self_73756)->elts[25]; +c_731515.elts[25] = ((closureN)self_73756)->elts[26]; +c_731515.elts[26] = ((closureN)self_73756)->elts[27]; +c_731515.elts[27] = ((closureN)self_73756)->elts[28]; +c_731515.elts[28] = ((closureN)self_73756)->elts[29]; +c_731515.elts[29] = ((closureN)self_73756)->elts[30]; +c_731515.elts[30] = ((closureN)self_73756)->elts[31]; +c_731515.elts[31] = ((closureN)self_73756)->elts[32]; +c_731515.elts[32] = ((closureN)self_73756)->elts[33]; + +return_closcall1(data,(closure)&c_731515, Cyc_set_car(data, ((closureN)self_73756)->elts[5], r_73510));; +} + +static void __lambda_364(void *data, int argc, object self_73757, object r_73272) { + +closureN_type c_731517; +c_731517.hdr.mark = gc_color_red; + c_731517.hdr.grayed = 0; +c_731517.tag = closureN_tag; + c_731517.fn = (function_type)__lambda_357; +c_731517.num_args = 1; +c_731517.num_elt = 33; +c_731517.elts = (object *)alloca(sizeof(object) * 33); +c_731517.elts[0] = ((closureN)self_73757)->elts[0]; +c_731517.elts[1] = ((closureN)self_73757)->elts[1]; +c_731517.elts[2] = ((closureN)self_73757)->elts[2]; +c_731517.elts[3] = ((closureN)self_73757)->elts[3]; +c_731517.elts[4] = ((closureN)self_73757)->elts[4]; +c_731517.elts[5] = ((closureN)self_73757)->elts[5]; +c_731517.elts[6] = ((closureN)self_73757)->elts[6]; +c_731517.elts[7] = ((closureN)self_73757)->elts[7]; +c_731517.elts[8] = ((closureN)self_73757)->elts[8]; +c_731517.elts[9] = ((closureN)self_73757)->elts[9]; +c_731517.elts[10] = ((closureN)self_73757)->elts[10]; +c_731517.elts[11] = ((closureN)self_73757)->elts[11]; +c_731517.elts[12] = ((closureN)self_73757)->elts[12]; +c_731517.elts[13] = ((closureN)self_73757)->elts[13]; +c_731517.elts[14] = ((closureN)self_73757)->elts[14]; +c_731517.elts[15] = ((closureN)self_73757)->elts[15]; +c_731517.elts[16] = ((closureN)self_73757)->elts[16]; +c_731517.elts[17] = ((closureN)self_73757)->elts[17]; +c_731517.elts[18] = ((closureN)self_73757)->elts[18]; +c_731517.elts[19] = ((closureN)self_73757)->elts[19]; +c_731517.elts[20] = ((closureN)self_73757)->elts[20]; +c_731517.elts[21] = ((closureN)self_73757)->elts[21]; +c_731517.elts[22] = ((closureN)self_73757)->elts[22]; +c_731517.elts[23] = ((closureN)self_73757)->elts[23]; +c_731517.elts[24] = ((closureN)self_73757)->elts[24]; +c_731517.elts[25] = ((closureN)self_73757)->elts[25]; +c_731517.elts[26] = ((closureN)self_73757)->elts[26]; +c_731517.elts[27] = ((closureN)self_73757)->elts[27]; +c_731517.elts[28] = ((closureN)self_73757)->elts[28]; +c_731517.elts[29] = ((closureN)self_73757)->elts[29]; +c_731517.elts[30] = ((closureN)self_73757)->elts[30]; +c_731517.elts[31] = ((closureN)self_73757)->elts[31]; +c_731517.elts[32] = ((closureN)self_73757)->elts[32]; + + +closureN_type c_732806; +c_732806.hdr.mark = gc_color_red; + c_732806.hdr.grayed = 0; +c_732806.tag = closureN_tag; + c_732806.fn = (function_type)__lambda_363; +c_732806.num_args = 1; +c_732806.num_elt = 2; +c_732806.elts = (object *)alloca(sizeof(object) * 2); +c_732806.elts[0] = ((closureN)self_73757)->elts[0]; +c_732806.elts[1] = ((closureN)self_73757)->elts[8]; + +return_closcall1(data,(closure)&c_731517, &c_732806);; +} + +static void __lambda_363(void *data, int argc, object self_73758, object k_73504, object sym_73213) { + +closureN_type c_732808; +c_732808.hdr.mark = gc_color_red; + c_732808.hdr.grayed = 0; +c_732808.tag = closureN_tag; + c_732808.fn = (function_type)__lambda_362; +c_732808.num_args = 1; +c_732808.num_elt = 4; +c_732808.elts = (object *)alloca(sizeof(object) * 4); +c_732808.elts[0] = ((closureN)self_73758)->elts[0]; +c_732808.elts[1] = k_73504; +c_732808.elts[2] = ((closureN)self_73758)->elts[1]; +c_732808.elts[3] = sym_73213; + +return_closcall1(data,(closure)&c_732808, assq(data, sym_73213, cell_get(((closureN)self_73758)->elts[0])));; +} + +static void __lambda_362(void *data, int argc, object self_73759, object x_73214) { + if( !eq(boolean_f, x_73214) ){ + return_closcall1(data, ((closureN)self_73759)->elts[1], cdr(x_73214)); +} else { + +closureN_type c_732817; +c_732817.hdr.mark = gc_color_red; + c_732817.hdr.grayed = 0; +c_732817.tag = closureN_tag; + c_732817.fn = (function_type)__lambda_361; +c_732817.num_args = 1; +c_732817.num_elt = 3; +c_732817.elts = (object *)alloca(sizeof(object) * 3); +c_732817.elts[0] = ((closureN)self_73759)->elts[0]; +c_732817.elts[1] = ((closureN)self_73759)->elts[1]; +c_732817.elts[2] = ((closureN)self_73759)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73759)->elts[2]), &c_732817, ((closureN)self_73759)->elts[3]);} +; +} + +static void __lambda_361(void *data, int argc, object self_73760, object r_73215) { + +closureN_type c_732819; +c_732819.hdr.mark = gc_color_red; + c_732819.hdr.grayed = 0; +c_732819.tag = closureN_tag; + c_732819.fn = (function_type)__lambda_360; +c_732819.num_args = 1; +c_732819.num_elt = 3; +c_732819.elts = (object *)alloca(sizeof(object) * 3); +c_732819.elts[0] = ((closureN)self_73760)->elts[0]; +c_732819.elts[1] = ((closureN)self_73760)->elts[1]; +c_732819.elts[2] = r_73215; + + +make_cons(c_732838,((closureN)self_73760)->elts[2], r_73215); +return_closcall1(data,(closure)&c_732819, &c_732838);; +} + +static void __lambda_360(void *data, int argc, object self_73761, object r_73509) { + +closureN_type c_732821; +c_732821.hdr.mark = gc_color_red; + c_732821.hdr.grayed = 0; +c_732821.tag = closureN_tag; + c_732821.fn = (function_type)__lambda_359; +c_732821.num_args = 1; +c_732821.num_elt = 3; +c_732821.elts = (object *)alloca(sizeof(object) * 3); +c_732821.elts[0] = ((closureN)self_73761)->elts[0]; +c_732821.elts[1] = ((closureN)self_73761)->elts[1]; +c_732821.elts[2] = ((closureN)self_73761)->elts[2]; + + +make_cons(c_732832,r_73509, cell_get(((closureN)self_73761)->elts[0])); +return_closcall1(data,(closure)&c_732821, &c_732832);; +} + +static void __lambda_359(void *data, int argc, object self_73762, object r_73508) { + +closureN_type c_732823; +c_732823.hdr.mark = gc_color_red; + c_732823.hdr.grayed = 0; +c_732823.tag = closureN_tag; + c_732823.fn = (function_type)__lambda_358; +c_732823.num_args = 1; +c_732823.num_elt = 2; +c_732823.elts = (object *)alloca(sizeof(object) * 2); +c_732823.elts[0] = ((closureN)self_73762)->elts[1]; +c_732823.elts[1] = ((closureN)self_73762)->elts[2]; + +return_closcall1(data,(closure)&c_732823, Cyc_set_car(data, ((closureN)self_73762)->elts[0], r_73508));; +} + +static void __lambda_358(void *data, int argc, object self_73763, object r_73507) { + return_closcall1(data, ((closureN)self_73763)->elts[0], ((closureN)self_73763)->elts[1]);; +} + +static void __lambda_357(void *data, int argc, object self_73764, object r_73503) { + +closureN_type c_731519; +c_731519.hdr.mark = gc_color_red; + c_731519.hdr.grayed = 0; +c_731519.tag = closureN_tag; + c_731519.fn = (function_type)__lambda_356; +c_731519.num_args = 1; +c_731519.num_elt = 33; +c_731519.elts = (object *)alloca(sizeof(object) * 33); +c_731519.elts[0] = ((closureN)self_73764)->elts[0]; +c_731519.elts[1] = ((closureN)self_73764)->elts[1]; +c_731519.elts[2] = ((closureN)self_73764)->elts[2]; +c_731519.elts[3] = ((closureN)self_73764)->elts[3]; +c_731519.elts[4] = ((closureN)self_73764)->elts[4]; +c_731519.elts[5] = ((closureN)self_73764)->elts[5]; +c_731519.elts[6] = ((closureN)self_73764)->elts[6]; +c_731519.elts[7] = ((closureN)self_73764)->elts[7]; +c_731519.elts[8] = ((closureN)self_73764)->elts[8]; +c_731519.elts[9] = ((closureN)self_73764)->elts[9]; +c_731519.elts[10] = ((closureN)self_73764)->elts[10]; +c_731519.elts[11] = ((closureN)self_73764)->elts[11]; +c_731519.elts[12] = ((closureN)self_73764)->elts[12]; +c_731519.elts[13] = ((closureN)self_73764)->elts[13]; +c_731519.elts[14] = ((closureN)self_73764)->elts[14]; +c_731519.elts[15] = ((closureN)self_73764)->elts[15]; +c_731519.elts[16] = ((closureN)self_73764)->elts[16]; +c_731519.elts[17] = ((closureN)self_73764)->elts[17]; +c_731519.elts[18] = ((closureN)self_73764)->elts[18]; +c_731519.elts[19] = ((closureN)self_73764)->elts[19]; +c_731519.elts[20] = ((closureN)self_73764)->elts[20]; +c_731519.elts[21] = ((closureN)self_73764)->elts[21]; +c_731519.elts[22] = ((closureN)self_73764)->elts[22]; +c_731519.elts[23] = ((closureN)self_73764)->elts[23]; +c_731519.elts[24] = ((closureN)self_73764)->elts[24]; +c_731519.elts[25] = ((closureN)self_73764)->elts[25]; +c_731519.elts[26] = ((closureN)self_73764)->elts[26]; +c_731519.elts[27] = ((closureN)self_73764)->elts[27]; +c_731519.elts[28] = ((closureN)self_73764)->elts[28]; +c_731519.elts[29] = ((closureN)self_73764)->elts[29]; +c_731519.elts[30] = ((closureN)self_73764)->elts[30]; +c_731519.elts[31] = ((closureN)self_73764)->elts[31]; +c_731519.elts[32] = ((closureN)self_73764)->elts[32]; + +return_closcall1(data,(closure)&c_731519, Cyc_set_car(data, ((closureN)self_73764)->elts[18], r_73503));; +} + +static void __lambda_356(void *data, int argc, object self_73765, object r_73273) { + +closureN_type c_731521; +c_731521.hdr.mark = gc_color_red; + c_731521.hdr.grayed = 0; +c_731521.tag = closureN_tag; + c_731521.fn = (function_type)__lambda_355; +c_731521.num_args = 1; +c_731521.num_elt = 33; +c_731521.elts = (object *)alloca(sizeof(object) * 33); +c_731521.elts[0] = ((closureN)self_73765)->elts[0]; +c_731521.elts[1] = ((closureN)self_73765)->elts[1]; +c_731521.elts[2] = ((closureN)self_73765)->elts[2]; +c_731521.elts[3] = ((closureN)self_73765)->elts[3]; +c_731521.elts[4] = ((closureN)self_73765)->elts[4]; +c_731521.elts[5] = ((closureN)self_73765)->elts[5]; +c_731521.elts[6] = ((closureN)self_73765)->elts[6]; +c_731521.elts[7] = ((closureN)self_73765)->elts[7]; +c_731521.elts[8] = ((closureN)self_73765)->elts[8]; +c_731521.elts[9] = ((closureN)self_73765)->elts[9]; +c_731521.elts[10] = ((closureN)self_73765)->elts[10]; +c_731521.elts[11] = ((closureN)self_73765)->elts[11]; +c_731521.elts[12] = ((closureN)self_73765)->elts[12]; +c_731521.elts[13] = ((closureN)self_73765)->elts[13]; +c_731521.elts[14] = ((closureN)self_73765)->elts[14]; +c_731521.elts[15] = ((closureN)self_73765)->elts[15]; +c_731521.elts[16] = ((closureN)self_73765)->elts[16]; +c_731521.elts[17] = ((closureN)self_73765)->elts[17]; +c_731521.elts[18] = ((closureN)self_73765)->elts[18]; +c_731521.elts[19] = ((closureN)self_73765)->elts[19]; +c_731521.elts[20] = ((closureN)self_73765)->elts[20]; +c_731521.elts[21] = ((closureN)self_73765)->elts[21]; +c_731521.elts[22] = ((closureN)self_73765)->elts[22]; +c_731521.elts[23] = ((closureN)self_73765)->elts[23]; +c_731521.elts[24] = ((closureN)self_73765)->elts[24]; +c_731521.elts[25] = ((closureN)self_73765)->elts[25]; +c_731521.elts[26] = ((closureN)self_73765)->elts[26]; +c_731521.elts[27] = ((closureN)self_73765)->elts[27]; +c_731521.elts[28] = ((closureN)self_73765)->elts[28]; +c_731521.elts[29] = ((closureN)self_73765)->elts[29]; +c_731521.elts[30] = ((closureN)self_73765)->elts[30]; +c_731521.elts[31] = ((closureN)self_73765)->elts[31]; +c_731521.elts[32] = ((closureN)self_73765)->elts[32]; + +return_closcall1(data,(closure)&c_731521, nil);; +} + +static void __lambda_355(void *data, int argc, object self_73766, object r_73502) { + +closureN_type c_731523; +c_731523.hdr.mark = gc_color_red; + c_731523.hdr.grayed = 0; +c_731523.tag = closureN_tag; + c_731523.fn = (function_type)__lambda_354; +c_731523.num_args = 1; +c_731523.num_elt = 33; +c_731523.elts = (object *)alloca(sizeof(object) * 33); +c_731523.elts[0] = ((closureN)self_73766)->elts[0]; +c_731523.elts[1] = ((closureN)self_73766)->elts[1]; +c_731523.elts[2] = ((closureN)self_73766)->elts[2]; +c_731523.elts[3] = ((closureN)self_73766)->elts[3]; +c_731523.elts[4] = ((closureN)self_73766)->elts[4]; +c_731523.elts[5] = ((closureN)self_73766)->elts[5]; +c_731523.elts[6] = ((closureN)self_73766)->elts[6]; +c_731523.elts[7] = ((closureN)self_73766)->elts[7]; +c_731523.elts[8] = ((closureN)self_73766)->elts[8]; +c_731523.elts[9] = ((closureN)self_73766)->elts[9]; +c_731523.elts[10] = ((closureN)self_73766)->elts[10]; +c_731523.elts[11] = ((closureN)self_73766)->elts[11]; +c_731523.elts[12] = ((closureN)self_73766)->elts[12]; +c_731523.elts[13] = ((closureN)self_73766)->elts[13]; +c_731523.elts[14] = ((closureN)self_73766)->elts[14]; +c_731523.elts[15] = ((closureN)self_73766)->elts[15]; +c_731523.elts[16] = ((closureN)self_73766)->elts[16]; +c_731523.elts[17] = ((closureN)self_73766)->elts[17]; +c_731523.elts[18] = ((closureN)self_73766)->elts[18]; +c_731523.elts[19] = ((closureN)self_73766)->elts[19]; +c_731523.elts[20] = ((closureN)self_73766)->elts[20]; +c_731523.elts[21] = ((closureN)self_73766)->elts[21]; +c_731523.elts[22] = ((closureN)self_73766)->elts[22]; +c_731523.elts[23] = ((closureN)self_73766)->elts[23]; +c_731523.elts[24] = ((closureN)self_73766)->elts[24]; +c_731523.elts[25] = ((closureN)self_73766)->elts[25]; +c_731523.elts[26] = ((closureN)self_73766)->elts[26]; +c_731523.elts[27] = ((closureN)self_73766)->elts[27]; +c_731523.elts[28] = ((closureN)self_73766)->elts[28]; +c_731523.elts[29] = ((closureN)self_73766)->elts[29]; +c_731523.elts[30] = ((closureN)self_73766)->elts[30]; +c_731523.elts[31] = ((closureN)self_73766)->elts[31]; +c_731523.elts[32] = ((closureN)self_73766)->elts[32]; + +return_closcall1(data,(closure)&c_731523, Cyc_set_car(data, ((closureN)self_73766)->elts[0], r_73502));; +} + +static void __lambda_354(void *data, int argc, object self_73767, object r_73274) { + +closureN_type c_731525; +c_731525.hdr.mark = gc_color_red; + c_731525.hdr.grayed = 0; +c_731525.tag = closureN_tag; + c_731525.fn = (function_type)__lambda_351; +c_731525.num_args = 1; +c_731525.num_elt = 33; +c_731525.elts = (object *)alloca(sizeof(object) * 33); +c_731525.elts[0] = ((closureN)self_73767)->elts[0]; +c_731525.elts[1] = ((closureN)self_73767)->elts[1]; +c_731525.elts[2] = ((closureN)self_73767)->elts[2]; +c_731525.elts[3] = ((closureN)self_73767)->elts[3]; +c_731525.elts[4] = ((closureN)self_73767)->elts[4]; +c_731525.elts[5] = ((closureN)self_73767)->elts[5]; +c_731525.elts[6] = ((closureN)self_73767)->elts[6]; +c_731525.elts[7] = ((closureN)self_73767)->elts[7]; +c_731525.elts[8] = ((closureN)self_73767)->elts[8]; +c_731525.elts[9] = ((closureN)self_73767)->elts[9]; +c_731525.elts[10] = ((closureN)self_73767)->elts[10]; +c_731525.elts[11] = ((closureN)self_73767)->elts[11]; +c_731525.elts[12] = ((closureN)self_73767)->elts[12]; +c_731525.elts[13] = ((closureN)self_73767)->elts[13]; +c_731525.elts[14] = ((closureN)self_73767)->elts[14]; +c_731525.elts[15] = ((closureN)self_73767)->elts[15]; +c_731525.elts[16] = ((closureN)self_73767)->elts[16]; +c_731525.elts[17] = ((closureN)self_73767)->elts[17]; +c_731525.elts[18] = ((closureN)self_73767)->elts[18]; +c_731525.elts[19] = ((closureN)self_73767)->elts[19]; +c_731525.elts[20] = ((closureN)self_73767)->elts[20]; +c_731525.elts[21] = ((closureN)self_73767)->elts[21]; +c_731525.elts[22] = ((closureN)self_73767)->elts[22]; +c_731525.elts[23] = ((closureN)self_73767)->elts[23]; +c_731525.elts[24] = ((closureN)self_73767)->elts[24]; +c_731525.elts[25] = ((closureN)self_73767)->elts[25]; +c_731525.elts[26] = ((closureN)self_73767)->elts[26]; +c_731525.elts[27] = ((closureN)self_73767)->elts[27]; +c_731525.elts[28] = ((closureN)self_73767)->elts[28]; +c_731525.elts[29] = ((closureN)self_73767)->elts[29]; +c_731525.elts[30] = ((closureN)self_73767)->elts[30]; +c_731525.elts[31] = ((closureN)self_73767)->elts[31]; +c_731525.elts[32] = ((closureN)self_73767)->elts[32]; + + +mclosure0(c_732794, (function_type)__lambda_353);c_732794.num_args = 1; +return_closcall1(data,(closure)&c_731525, &c_732794);; +} + +static void __lambda_353(void *data, int argc, object self_73768, object k_73500, object sym_73212) { + +closureN_type c_732796; +c_732796.hdr.mark = gc_color_red; + c_732796.hdr.grayed = 0; +c_732796.tag = closureN_tag; + c_732796.fn = (function_type)__lambda_352; +c_732796.num_args = 1; +c_732796.num_elt = 2; +c_732796.elts = (object *)alloca(sizeof(object) * 2); +c_732796.elts[0] = k_73500; +c_732796.elts[1] = sym_73212; + +return_closcall1(data,(closure)&c_732796, nil);; +} + +static void __lambda_352(void *data, int argc, object self_73769, object r_73501) { + return_closcall3(data, __glo_vector_scheme_base, ((closureN)self_73769)->elts[0], ((closureN)self_73769)->elts[1], r_73501);; +} + +static void __lambda_351(void *data, int argc, object self_73770, object r_73499) { + +closureN_type c_731527; +c_731527.hdr.mark = gc_color_red; + c_731527.hdr.grayed = 0; +c_731527.tag = closureN_tag; + c_731527.fn = (function_type)__lambda_350; +c_731527.num_args = 1; +c_731527.num_elt = 32; +c_731527.elts = (object *)alloca(sizeof(object) * 32); +c_731527.elts[0] = ((closureN)self_73770)->elts[0]; +c_731527.elts[1] = ((closureN)self_73770)->elts[1]; +c_731527.elts[2] = ((closureN)self_73770)->elts[2]; +c_731527.elts[3] = ((closureN)self_73770)->elts[3]; +c_731527.elts[4] = ((closureN)self_73770)->elts[4]; +c_731527.elts[5] = ((closureN)self_73770)->elts[5]; +c_731527.elts[6] = ((closureN)self_73770)->elts[6]; +c_731527.elts[7] = ((closureN)self_73770)->elts[7]; +c_731527.elts[8] = ((closureN)self_73770)->elts[9]; +c_731527.elts[9] = ((closureN)self_73770)->elts[10]; +c_731527.elts[10] = ((closureN)self_73770)->elts[11]; +c_731527.elts[11] = ((closureN)self_73770)->elts[12]; +c_731527.elts[12] = ((closureN)self_73770)->elts[13]; +c_731527.elts[13] = ((closureN)self_73770)->elts[14]; +c_731527.elts[14] = ((closureN)self_73770)->elts[15]; +c_731527.elts[15] = ((closureN)self_73770)->elts[16]; +c_731527.elts[16] = ((closureN)self_73770)->elts[17]; +c_731527.elts[17] = ((closureN)self_73770)->elts[18]; +c_731527.elts[18] = ((closureN)self_73770)->elts[19]; +c_731527.elts[19] = ((closureN)self_73770)->elts[20]; +c_731527.elts[20] = ((closureN)self_73770)->elts[21]; +c_731527.elts[21] = ((closureN)self_73770)->elts[22]; +c_731527.elts[22] = ((closureN)self_73770)->elts[23]; +c_731527.elts[23] = ((closureN)self_73770)->elts[24]; +c_731527.elts[24] = ((closureN)self_73770)->elts[25]; +c_731527.elts[25] = ((closureN)self_73770)->elts[26]; +c_731527.elts[26] = ((closureN)self_73770)->elts[27]; +c_731527.elts[27] = ((closureN)self_73770)->elts[28]; +c_731527.elts[28] = ((closureN)self_73770)->elts[29]; +c_731527.elts[29] = ((closureN)self_73770)->elts[30]; +c_731527.elts[30] = ((closureN)self_73770)->elts[31]; +c_731527.elts[31] = ((closureN)self_73770)->elts[32]; + +return_closcall1(data,(closure)&c_731527, Cyc_set_car(data, ((closureN)self_73770)->elts[8], r_73499));; +} + +static void __lambda_350(void *data, int argc, object self_73771, object r_73275) { + +closureN_type c_731529; +c_731529.hdr.mark = gc_color_red; + c_731529.hdr.grayed = 0; +c_731529.tag = closureN_tag; + c_731529.fn = (function_type)__lambda_348; +c_731529.num_args = 1; +c_731529.num_elt = 32; +c_731529.elts = (object *)alloca(sizeof(object) * 32); +c_731529.elts[0] = ((closureN)self_73771)->elts[0]; +c_731529.elts[1] = ((closureN)self_73771)->elts[1]; +c_731529.elts[2] = ((closureN)self_73771)->elts[2]; +c_731529.elts[3] = ((closureN)self_73771)->elts[3]; +c_731529.elts[4] = ((closureN)self_73771)->elts[4]; +c_731529.elts[5] = ((closureN)self_73771)->elts[5]; +c_731529.elts[6] = ((closureN)self_73771)->elts[6]; +c_731529.elts[7] = ((closureN)self_73771)->elts[7]; +c_731529.elts[8] = ((closureN)self_73771)->elts[8]; +c_731529.elts[9] = ((closureN)self_73771)->elts[9]; +c_731529.elts[10] = ((closureN)self_73771)->elts[10]; +c_731529.elts[11] = ((closureN)self_73771)->elts[11]; +c_731529.elts[12] = ((closureN)self_73771)->elts[12]; +c_731529.elts[13] = ((closureN)self_73771)->elts[13]; +c_731529.elts[14] = ((closureN)self_73771)->elts[14]; +c_731529.elts[15] = ((closureN)self_73771)->elts[15]; +c_731529.elts[16] = ((closureN)self_73771)->elts[16]; +c_731529.elts[17] = ((closureN)self_73771)->elts[17]; +c_731529.elts[18] = ((closureN)self_73771)->elts[18]; +c_731529.elts[19] = ((closureN)self_73771)->elts[19]; +c_731529.elts[20] = ((closureN)self_73771)->elts[20]; +c_731529.elts[21] = ((closureN)self_73771)->elts[21]; +c_731529.elts[22] = ((closureN)self_73771)->elts[22]; +c_731529.elts[23] = ((closureN)self_73771)->elts[23]; +c_731529.elts[24] = ((closureN)self_73771)->elts[24]; +c_731529.elts[25] = ((closureN)self_73771)->elts[25]; +c_731529.elts[26] = ((closureN)self_73771)->elts[26]; +c_731529.elts[27] = ((closureN)self_73771)->elts[27]; +c_731529.elts[28] = ((closureN)self_73771)->elts[28]; +c_731529.elts[29] = ((closureN)self_73771)->elts[29]; +c_731529.elts[30] = ((closureN)self_73771)->elts[30]; +c_731529.elts[31] = ((closureN)self_73771)->elts[31]; + + +mclosure0(c_732787, (function_type)__lambda_349);c_732787.num_args = 2; +return_closcall1(data,(closure)&c_731529, &c_732787);; +} + +static void __lambda_349(void *data, int argc, object self_73772, object k_73498, object symbol_91record_73211, object lemmas_73210) { + return_closcall1(data, k_73498, Cyc_vector_set(data, symbol_91record_73211, obj_int2obj(1), lemmas_73210));; +} + +static void __lambda_348(void *data, int argc, object self_73773, object r_73497) { + +closureN_type c_731531; +c_731531.hdr.mark = gc_color_red; + c_731531.hdr.grayed = 0; +c_731531.tag = closureN_tag; + c_731531.fn = (function_type)__lambda_347; +c_731531.num_args = 1; +c_731531.num_elt = 31; +c_731531.elts = (object *)alloca(sizeof(object) * 31); +c_731531.elts[0] = ((closureN)self_73773)->elts[0]; +c_731531.elts[1] = ((closureN)self_73773)->elts[1]; +c_731531.elts[2] = ((closureN)self_73773)->elts[2]; +c_731531.elts[3] = ((closureN)self_73773)->elts[3]; +c_731531.elts[4] = ((closureN)self_73773)->elts[4]; +c_731531.elts[5] = ((closureN)self_73773)->elts[5]; +c_731531.elts[6] = ((closureN)self_73773)->elts[6]; +c_731531.elts[7] = ((closureN)self_73773)->elts[7]; +c_731531.elts[8] = ((closureN)self_73773)->elts[8]; +c_731531.elts[9] = ((closureN)self_73773)->elts[9]; +c_731531.elts[10] = ((closureN)self_73773)->elts[10]; +c_731531.elts[11] = ((closureN)self_73773)->elts[12]; +c_731531.elts[12] = ((closureN)self_73773)->elts[13]; +c_731531.elts[13] = ((closureN)self_73773)->elts[14]; +c_731531.elts[14] = ((closureN)self_73773)->elts[15]; +c_731531.elts[15] = ((closureN)self_73773)->elts[16]; +c_731531.elts[16] = ((closureN)self_73773)->elts[17]; +c_731531.elts[17] = ((closureN)self_73773)->elts[18]; +c_731531.elts[18] = ((closureN)self_73773)->elts[19]; +c_731531.elts[19] = ((closureN)self_73773)->elts[20]; +c_731531.elts[20] = ((closureN)self_73773)->elts[21]; +c_731531.elts[21] = ((closureN)self_73773)->elts[22]; +c_731531.elts[22] = ((closureN)self_73773)->elts[23]; +c_731531.elts[23] = ((closureN)self_73773)->elts[24]; +c_731531.elts[24] = ((closureN)self_73773)->elts[25]; +c_731531.elts[25] = ((closureN)self_73773)->elts[26]; +c_731531.elts[26] = ((closureN)self_73773)->elts[27]; +c_731531.elts[27] = ((closureN)self_73773)->elts[28]; +c_731531.elts[28] = ((closureN)self_73773)->elts[29]; +c_731531.elts[29] = ((closureN)self_73773)->elts[30]; +c_731531.elts[30] = ((closureN)self_73773)->elts[31]; + +return_closcall1(data,(closure)&c_731531, Cyc_set_car(data, ((closureN)self_73773)->elts[11], r_73497));; +} + +static void __lambda_347(void *data, int argc, object self_73774, object r_73276) { + +closureN_type c_731533; +c_731533.hdr.mark = gc_color_red; + c_731533.hdr.grayed = 0; +c_731533.tag = closureN_tag; + c_731533.fn = (function_type)__lambda_345; +c_731533.num_args = 1; +c_731533.num_elt = 31; +c_731533.elts = (object *)alloca(sizeof(object) * 31); +c_731533.elts[0] = ((closureN)self_73774)->elts[0]; +c_731533.elts[1] = ((closureN)self_73774)->elts[1]; +c_731533.elts[2] = ((closureN)self_73774)->elts[2]; +c_731533.elts[3] = ((closureN)self_73774)->elts[3]; +c_731533.elts[4] = ((closureN)self_73774)->elts[4]; +c_731533.elts[5] = ((closureN)self_73774)->elts[5]; +c_731533.elts[6] = ((closureN)self_73774)->elts[6]; +c_731533.elts[7] = ((closureN)self_73774)->elts[7]; +c_731533.elts[8] = ((closureN)self_73774)->elts[8]; +c_731533.elts[9] = ((closureN)self_73774)->elts[9]; +c_731533.elts[10] = ((closureN)self_73774)->elts[10]; +c_731533.elts[11] = ((closureN)self_73774)->elts[11]; +c_731533.elts[12] = ((closureN)self_73774)->elts[12]; +c_731533.elts[13] = ((closureN)self_73774)->elts[13]; +c_731533.elts[14] = ((closureN)self_73774)->elts[14]; +c_731533.elts[15] = ((closureN)self_73774)->elts[15]; +c_731533.elts[16] = ((closureN)self_73774)->elts[16]; +c_731533.elts[17] = ((closureN)self_73774)->elts[17]; +c_731533.elts[18] = ((closureN)self_73774)->elts[18]; +c_731533.elts[19] = ((closureN)self_73774)->elts[19]; +c_731533.elts[20] = ((closureN)self_73774)->elts[20]; +c_731533.elts[21] = ((closureN)self_73774)->elts[21]; +c_731533.elts[22] = ((closureN)self_73774)->elts[22]; +c_731533.elts[23] = ((closureN)self_73774)->elts[23]; +c_731533.elts[24] = ((closureN)self_73774)->elts[24]; +c_731533.elts[25] = ((closureN)self_73774)->elts[25]; +c_731533.elts[26] = ((closureN)self_73774)->elts[26]; +c_731533.elts[27] = ((closureN)self_73774)->elts[27]; +c_731533.elts[28] = ((closureN)self_73774)->elts[28]; +c_731533.elts[29] = ((closureN)self_73774)->elts[29]; +c_731533.elts[30] = ((closureN)self_73774)->elts[30]; + + +mclosure0(c_732780, (function_type)__lambda_346);c_732780.num_args = 1; +return_closcall1(data,(closure)&c_731533, &c_732780);; +} + +static void __lambda_346(void *data, int argc, object self_73775, object k_73496, object symbol_91record_73209) { + return_closcall1(data, k_73496, Cyc_vector_ref(data, symbol_91record_73209, obj_int2obj(1)));; +} + +static void __lambda_345(void *data, int argc, object self_73776, object r_73495) { + +closureN_type c_731535; +c_731535.hdr.mark = gc_color_red; + c_731535.hdr.grayed = 0; +c_731535.tag = closureN_tag; + c_731535.fn = (function_type)__lambda_344; +c_731535.num_args = 1; +c_731535.num_elt = 31; +c_731535.elts = (object *)alloca(sizeof(object) * 31); +c_731535.elts[0] = ((closureN)self_73776)->elts[0]; +c_731535.elts[1] = ((closureN)self_73776)->elts[1]; +c_731535.elts[2] = ((closureN)self_73776)->elts[2]; +c_731535.elts[3] = ((closureN)self_73776)->elts[3]; +c_731535.elts[4] = ((closureN)self_73776)->elts[4]; +c_731535.elts[5] = ((closureN)self_73776)->elts[5]; +c_731535.elts[6] = ((closureN)self_73776)->elts[6]; +c_731535.elts[7] = ((closureN)self_73776)->elts[7]; +c_731535.elts[8] = ((closureN)self_73776)->elts[8]; +c_731535.elts[9] = ((closureN)self_73776)->elts[9]; +c_731535.elts[10] = ((closureN)self_73776)->elts[10]; +c_731535.elts[11] = ((closureN)self_73776)->elts[11]; +c_731535.elts[12] = ((closureN)self_73776)->elts[12]; +c_731535.elts[13] = ((closureN)self_73776)->elts[13]; +c_731535.elts[14] = ((closureN)self_73776)->elts[14]; +c_731535.elts[15] = ((closureN)self_73776)->elts[15]; +c_731535.elts[16] = ((closureN)self_73776)->elts[16]; +c_731535.elts[17] = ((closureN)self_73776)->elts[17]; +c_731535.elts[18] = ((closureN)self_73776)->elts[18]; +c_731535.elts[19] = ((closureN)self_73776)->elts[19]; +c_731535.elts[20] = ((closureN)self_73776)->elts[20]; +c_731535.elts[21] = ((closureN)self_73776)->elts[21]; +c_731535.elts[22] = ((closureN)self_73776)->elts[22]; +c_731535.elts[23] = ((closureN)self_73776)->elts[23]; +c_731535.elts[24] = ((closureN)self_73776)->elts[24]; +c_731535.elts[25] = ((closureN)self_73776)->elts[25]; +c_731535.elts[26] = ((closureN)self_73776)->elts[26]; +c_731535.elts[27] = ((closureN)self_73776)->elts[27]; +c_731535.elts[28] = ((closureN)self_73776)->elts[28]; +c_731535.elts[29] = ((closureN)self_73776)->elts[29]; +c_731535.elts[30] = ((closureN)self_73776)->elts[30]; + +return_closcall1(data,(closure)&c_731535, Cyc_set_car(data, ((closureN)self_73776)->elts[5], r_73495));; +} + +static void __lambda_344(void *data, int argc, object self_73777, object r_73277) { + +closureN_type c_731537; +c_731537.hdr.mark = gc_color_red; + c_731537.hdr.grayed = 0; +c_731537.tag = closureN_tag; + c_731537.fn = (function_type)__lambda_342; +c_731537.num_args = 1; +c_731537.num_elt = 31; +c_731537.elts = (object *)alloca(sizeof(object) * 31); +c_731537.elts[0] = ((closureN)self_73777)->elts[0]; +c_731537.elts[1] = ((closureN)self_73777)->elts[1]; +c_731537.elts[2] = ((closureN)self_73777)->elts[2]; +c_731537.elts[3] = ((closureN)self_73777)->elts[3]; +c_731537.elts[4] = ((closureN)self_73777)->elts[4]; +c_731537.elts[5] = ((closureN)self_73777)->elts[5]; +c_731537.elts[6] = ((closureN)self_73777)->elts[6]; +c_731537.elts[7] = ((closureN)self_73777)->elts[7]; +c_731537.elts[8] = ((closureN)self_73777)->elts[8]; +c_731537.elts[9] = ((closureN)self_73777)->elts[9]; +c_731537.elts[10] = ((closureN)self_73777)->elts[10]; +c_731537.elts[11] = ((closureN)self_73777)->elts[11]; +c_731537.elts[12] = ((closureN)self_73777)->elts[12]; +c_731537.elts[13] = ((closureN)self_73777)->elts[13]; +c_731537.elts[14] = ((closureN)self_73777)->elts[14]; +c_731537.elts[15] = ((closureN)self_73777)->elts[15]; +c_731537.elts[16] = ((closureN)self_73777)->elts[16]; +c_731537.elts[17] = ((closureN)self_73777)->elts[17]; +c_731537.elts[18] = ((closureN)self_73777)->elts[18]; +c_731537.elts[19] = ((closureN)self_73777)->elts[19]; +c_731537.elts[20] = ((closureN)self_73777)->elts[20]; +c_731537.elts[21] = ((closureN)self_73777)->elts[21]; +c_731537.elts[22] = ((closureN)self_73777)->elts[22]; +c_731537.elts[23] = ((closureN)self_73777)->elts[23]; +c_731537.elts[24] = ((closureN)self_73777)->elts[24]; +c_731537.elts[25] = ((closureN)self_73777)->elts[25]; +c_731537.elts[26] = ((closureN)self_73777)->elts[26]; +c_731537.elts[27] = ((closureN)self_73777)->elts[27]; +c_731537.elts[28] = ((closureN)self_73777)->elts[28]; +c_731537.elts[29] = ((closureN)self_73777)->elts[29]; +c_731537.elts[30] = ((closureN)self_73777)->elts[30]; + + +mclosure0(c_732773, (function_type)__lambda_343);c_732773.num_args = 1; +return_closcall1(data,(closure)&c_731537, &c_732773);; +} + +static void __lambda_343(void *data, int argc, object self_73778, object k_73494, object symbol_91record_73208) { + return_closcall1(data, k_73494, Cyc_vector_ref(data, symbol_91record_73208, obj_int2obj(0)));; +} + +static void __lambda_342(void *data, int argc, object self_73779, object r_73493) { + +closureN_type c_731539; +c_731539.hdr.mark = gc_color_red; + c_731539.hdr.grayed = 0; +c_731539.tag = closureN_tag; + c_731539.fn = (function_type)__lambda_341; +c_731539.num_args = 1; +c_731539.num_elt = 30; +c_731539.elts = (object *)alloca(sizeof(object) * 30); +c_731539.elts[0] = ((closureN)self_73779)->elts[0]; +c_731539.elts[1] = ((closureN)self_73779)->elts[1]; +c_731539.elts[2] = ((closureN)self_73779)->elts[2]; +c_731539.elts[3] = ((closureN)self_73779)->elts[3]; +c_731539.elts[4] = ((closureN)self_73779)->elts[4]; +c_731539.elts[5] = ((closureN)self_73779)->elts[5]; +c_731539.elts[6] = ((closureN)self_73779)->elts[7]; +c_731539.elts[7] = ((closureN)self_73779)->elts[8]; +c_731539.elts[8] = ((closureN)self_73779)->elts[9]; +c_731539.elts[9] = ((closureN)self_73779)->elts[10]; +c_731539.elts[10] = ((closureN)self_73779)->elts[11]; +c_731539.elts[11] = ((closureN)self_73779)->elts[12]; +c_731539.elts[12] = ((closureN)self_73779)->elts[13]; +c_731539.elts[13] = ((closureN)self_73779)->elts[14]; +c_731539.elts[14] = ((closureN)self_73779)->elts[15]; +c_731539.elts[15] = ((closureN)self_73779)->elts[16]; +c_731539.elts[16] = ((closureN)self_73779)->elts[17]; +c_731539.elts[17] = ((closureN)self_73779)->elts[18]; +c_731539.elts[18] = ((closureN)self_73779)->elts[19]; +c_731539.elts[19] = ((closureN)self_73779)->elts[20]; +c_731539.elts[20] = ((closureN)self_73779)->elts[21]; +c_731539.elts[21] = ((closureN)self_73779)->elts[22]; +c_731539.elts[22] = ((closureN)self_73779)->elts[23]; +c_731539.elts[23] = ((closureN)self_73779)->elts[24]; +c_731539.elts[24] = ((closureN)self_73779)->elts[25]; +c_731539.elts[25] = ((closureN)self_73779)->elts[26]; +c_731539.elts[26] = ((closureN)self_73779)->elts[27]; +c_731539.elts[27] = ((closureN)self_73779)->elts[28]; +c_731539.elts[28] = ((closureN)self_73779)->elts[29]; +c_731539.elts[29] = ((closureN)self_73779)->elts[30]; + +return_closcall1(data,(closure)&c_731539, Cyc_set_car(data, ((closureN)self_73779)->elts[6], r_73493));; +} + +static void __lambda_341(void *data, int argc, object self_73780, object r_73278) { + +closureN_type c_731541; +c_731541.hdr.mark = gc_color_red; + c_731541.hdr.grayed = 0; +c_731541.tag = closureN_tag; + c_731541.fn = (function_type)__lambda_339; +c_731541.num_args = 1; +c_731541.num_elt = 30; +c_731541.elts = (object *)alloca(sizeof(object) * 30); +c_731541.elts[0] = ((closureN)self_73780)->elts[0]; +c_731541.elts[1] = ((closureN)self_73780)->elts[1]; +c_731541.elts[2] = ((closureN)self_73780)->elts[2]; +c_731541.elts[3] = ((closureN)self_73780)->elts[3]; +c_731541.elts[4] = ((closureN)self_73780)->elts[4]; +c_731541.elts[5] = ((closureN)self_73780)->elts[5]; +c_731541.elts[6] = ((closureN)self_73780)->elts[6]; +c_731541.elts[7] = ((closureN)self_73780)->elts[7]; +c_731541.elts[8] = ((closureN)self_73780)->elts[8]; +c_731541.elts[9] = ((closureN)self_73780)->elts[9]; +c_731541.elts[10] = ((closureN)self_73780)->elts[10]; +c_731541.elts[11] = ((closureN)self_73780)->elts[11]; +c_731541.elts[12] = ((closureN)self_73780)->elts[12]; +c_731541.elts[13] = ((closureN)self_73780)->elts[13]; +c_731541.elts[14] = ((closureN)self_73780)->elts[14]; +c_731541.elts[15] = ((closureN)self_73780)->elts[15]; +c_731541.elts[16] = ((closureN)self_73780)->elts[16]; +c_731541.elts[17] = ((closureN)self_73780)->elts[17]; +c_731541.elts[18] = ((closureN)self_73780)->elts[18]; +c_731541.elts[19] = ((closureN)self_73780)->elts[19]; +c_731541.elts[20] = ((closureN)self_73780)->elts[20]; +c_731541.elts[21] = ((closureN)self_73780)->elts[21]; +c_731541.elts[22] = ((closureN)self_73780)->elts[22]; +c_731541.elts[23] = ((closureN)self_73780)->elts[23]; +c_731541.elts[24] = ((closureN)self_73780)->elts[24]; +c_731541.elts[25] = ((closureN)self_73780)->elts[25]; +c_731541.elts[26] = ((closureN)self_73780)->elts[26]; +c_731541.elts[27] = ((closureN)self_73780)->elts[27]; +c_731541.elts[28] = ((closureN)self_73780)->elts[28]; +c_731541.elts[29] = ((closureN)self_73780)->elts[29]; + + +mclosure0(c_732766, (function_type)__lambda_340);c_732766.num_args = 2; +return_closcall1(data,(closure)&c_731541, &c_732766);; +} + +static void __lambda_340(void *data, int argc, object self_73781, object k_73492, object r1_73207, object r2_73206) { + return_closcall1(data, k_73492, Cyc_eq(r1_73207, r2_73206));; +} + +static void __lambda_339(void *data, int argc, object self_73782, object r_73491) { + +closureN_type c_731543; +c_731543.hdr.mark = gc_color_red; + c_731543.hdr.grayed = 0; +c_731543.tag = closureN_tag; + c_731543.fn = (function_type)__lambda_338; +c_731543.num_args = 1; +c_731543.num_elt = 30; +c_731543.elts = (object *)alloca(sizeof(object) * 30); +c_731543.elts[0] = ((closureN)self_73782)->elts[0]; +c_731543.elts[1] = ((closureN)self_73782)->elts[1]; +c_731543.elts[2] = ((closureN)self_73782)->elts[2]; +c_731543.elts[3] = ((closureN)self_73782)->elts[3]; +c_731543.elts[4] = ((closureN)self_73782)->elts[4]; +c_731543.elts[5] = ((closureN)self_73782)->elts[5]; +c_731543.elts[6] = ((closureN)self_73782)->elts[6]; +c_731543.elts[7] = ((closureN)self_73782)->elts[7]; +c_731543.elts[8] = ((closureN)self_73782)->elts[8]; +c_731543.elts[9] = ((closureN)self_73782)->elts[9]; +c_731543.elts[10] = ((closureN)self_73782)->elts[10]; +c_731543.elts[11] = ((closureN)self_73782)->elts[11]; +c_731543.elts[12] = ((closureN)self_73782)->elts[12]; +c_731543.elts[13] = ((closureN)self_73782)->elts[13]; +c_731543.elts[14] = ((closureN)self_73782)->elts[14]; +c_731543.elts[15] = ((closureN)self_73782)->elts[15]; +c_731543.elts[16] = ((closureN)self_73782)->elts[16]; +c_731543.elts[17] = ((closureN)self_73782)->elts[17]; +c_731543.elts[18] = ((closureN)self_73782)->elts[18]; +c_731543.elts[19] = ((closureN)self_73782)->elts[19]; +c_731543.elts[20] = ((closureN)self_73782)->elts[20]; +c_731543.elts[21] = ((closureN)self_73782)->elts[21]; +c_731543.elts[22] = ((closureN)self_73782)->elts[22]; +c_731543.elts[23] = ((closureN)self_73782)->elts[23]; +c_731543.elts[24] = ((closureN)self_73782)->elts[24]; +c_731543.elts[25] = ((closureN)self_73782)->elts[25]; +c_731543.elts[26] = ((closureN)self_73782)->elts[26]; +c_731543.elts[27] = ((closureN)self_73782)->elts[27]; +c_731543.elts[28] = ((closureN)self_73782)->elts[28]; +c_731543.elts[29] = ((closureN)self_73782)->elts[29]; + +return_closcall1(data,(closure)&c_731543, Cyc_set_car(data, ((closureN)self_73782)->elts[16], r_73491));; +} + +static void __lambda_338(void *data, int argc, object self_73783, object r_73279) { + +closureN_type c_731545; +c_731545.hdr.mark = gc_color_red; + c_731545.hdr.grayed = 0; +c_731545.tag = closureN_tag; + c_731545.fn = (function_type)__lambda_321; +c_731545.num_args = 1; +c_731545.num_elt = 30; +c_731545.elts = (object *)alloca(sizeof(object) * 30); +c_731545.elts[0] = ((closureN)self_73783)->elts[0]; +c_731545.elts[1] = ((closureN)self_73783)->elts[1]; +c_731545.elts[2] = ((closureN)self_73783)->elts[2]; +c_731545.elts[3] = ((closureN)self_73783)->elts[3]; +c_731545.elts[4] = ((closureN)self_73783)->elts[4]; +c_731545.elts[5] = ((closureN)self_73783)->elts[5]; +c_731545.elts[6] = ((closureN)self_73783)->elts[6]; +c_731545.elts[7] = ((closureN)self_73783)->elts[7]; +c_731545.elts[8] = ((closureN)self_73783)->elts[8]; +c_731545.elts[9] = ((closureN)self_73783)->elts[9]; +c_731545.elts[10] = ((closureN)self_73783)->elts[10]; +c_731545.elts[11] = ((closureN)self_73783)->elts[11]; +c_731545.elts[12] = ((closureN)self_73783)->elts[12]; +c_731545.elts[13] = ((closureN)self_73783)->elts[13]; +c_731545.elts[14] = ((closureN)self_73783)->elts[14]; +c_731545.elts[15] = ((closureN)self_73783)->elts[15]; +c_731545.elts[16] = ((closureN)self_73783)->elts[16]; +c_731545.elts[17] = ((closureN)self_73783)->elts[17]; +c_731545.elts[18] = ((closureN)self_73783)->elts[18]; +c_731545.elts[19] = ((closureN)self_73783)->elts[19]; +c_731545.elts[20] = ((closureN)self_73783)->elts[20]; +c_731545.elts[21] = ((closureN)self_73783)->elts[21]; +c_731545.elts[22] = ((closureN)self_73783)->elts[22]; +c_731545.elts[23] = ((closureN)self_73783)->elts[23]; +c_731545.elts[24] = ((closureN)self_73783)->elts[24]; +c_731545.elts[25] = ((closureN)self_73783)->elts[25]; +c_731545.elts[26] = ((closureN)self_73783)->elts[26]; +c_731545.elts[27] = ((closureN)self_73783)->elts[27]; +c_731545.elts[28] = ((closureN)self_73783)->elts[28]; +c_731545.elts[29] = ((closureN)self_73783)->elts[29]; + + +closureN_type c_732689; +c_732689.hdr.mark = gc_color_red; + c_732689.hdr.grayed = 0; +c_732689.tag = closureN_tag; + c_732689.fn = (function_type)__lambda_337; +c_732689.num_args = 3; +c_732689.num_elt = 4; +c_732689.elts = (object *)alloca(sizeof(object) * 4); +c_732689.elts[0] = ((closureN)self_73783)->elts[1]; +c_732689.elts[1] = ((closureN)self_73783)->elts[18]; +c_732689.elts[2] = ((closureN)self_73783)->elts[25]; +c_732689.elts[3] = ((closureN)self_73783)->elts[26]; + +return_closcall1(data,(closure)&c_731545, &c_732689);; +} + +static void __lambda_337(void *data, int argc, object self_73784, object k_73478, object alist_73199, object term_73198, object n_73197) { + +closureN_type c_732694; +c_732694.hdr.mark = gc_color_red; + c_732694.hdr.grayed = 0; +c_732694.tag = closureN_tag; + c_732694.fn = (function_type)__lambda_336; +c_732694.num_args = 1; +c_732694.num_elt = 6; +c_732694.elts = (object *)alloca(sizeof(object) * 6); +c_732694.elts[0] = ((closureN)self_73784)->elts[0]; +c_732694.elts[1] = k_73478; +c_732694.elts[2] = n_73197; +c_732694.elts[3] = ((closureN)self_73784)->elts[1]; +c_732694.elts[4] = term_73198; +c_732694.elts[5] = ((closureN)self_73784)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73784)->elts[2]), &c_732694, alist_73199);; +} + +static void __lambda_336(void *data, int argc, object self_73785, object r_73480) { + +closureN_type c_732696; +c_732696.hdr.mark = gc_color_red; + c_732696.hdr.grayed = 0; +c_732696.tag = closureN_tag; + c_732696.fn = (function_type)__lambda_335; +c_732696.num_args = 2; +c_732696.num_elt = 5; +c_732696.elts = (object *)alloca(sizeof(object) * 5); +c_732696.elts[0] = ((closureN)self_73785)->elts[0]; +c_732696.elts[1] = ((closureN)self_73785)->elts[1]; +c_732696.elts[2] = r_73480; +c_732696.elts[3] = ((closureN)self_73785)->elts[3]; +c_732696.elts[4] = ((closureN)self_73785)->elts[5]; + +return_closcall2(data,(closure)&c_732696, ((closureN)self_73785)->elts[4], ((closureN)self_73785)->elts[2]);; +} + +static void __lambda_335(void *data, int argc, object self_73786, object term_73201, object n_73200) { + +closureN_type c_732698; +c_732698.hdr.mark = gc_color_red; + c_732698.hdr.grayed = 0; +c_732698.tag = closureN_tag; + c_732698.fn = (function_type)__lambda_334; +c_732698.num_args = 1; +c_732698.num_elt = 7; +c_732698.elts = (object *)alloca(sizeof(object) * 7); +c_732698.elts[0] = ((closureN)self_73786)->elts[0]; +c_732698.elts[1] = ((closureN)self_73786)->elts[1]; +c_732698.elts[2] = n_73200; +c_732698.elts[3] = ((closureN)self_73786)->elts[2]; +c_732698.elts[4] = ((closureN)self_73786)->elts[3]; +c_732698.elts[5] = term_73201; +c_732698.elts[6] = ((closureN)self_73786)->elts[4]; + +return_closcall1(data,(closure)&c_732698, boolean_f);; +} + +static void __lambda_334(void *data, int argc, object self_73787, object lp_73202) { + +closureN_type c_732700; +c_732700.hdr.mark = gc_color_red; + c_732700.hdr.grayed = 0; +c_732700.tag = closureN_tag; + c_732700.fn = (function_type)__lambda_333; +c_732700.num_args = 1; +c_732700.num_elt = 7; +c_732700.elts = (object *)alloca(sizeof(object) * 7); +c_732700.elts[0] = ((closureN)self_73787)->elts[0]; +c_732700.elts[1] = ((closureN)self_73787)->elts[1]; +c_732700.elts[2] = ((closureN)self_73787)->elts[2]; +c_732700.elts[3] = ((closureN)self_73787)->elts[3]; +c_732700.elts[4] = ((closureN)self_73787)->elts[4]; +c_732700.elts[5] = ((closureN)self_73787)->elts[5]; +c_732700.elts[6] = ((closureN)self_73787)->elts[6]; + + +make_cell(c_732760,lp_73202); +return_closcall1(data,(closure)&c_732700, &c_732760);; +} + +static void __lambda_333(void *data, int argc, object self_73788, object lp_73202) { + +closureN_type c_732702; +c_732702.hdr.mark = gc_color_red; + c_732702.hdr.grayed = 0; +c_732702.tag = closureN_tag; + c_732702.fn = (function_type)__lambda_326; +c_732702.num_args = 1; +c_732702.num_elt = 8; +c_732702.elts = (object *)alloca(sizeof(object) * 8); +c_732702.elts[0] = ((closureN)self_73788)->elts[0]; +c_732702.elts[1] = ((closureN)self_73788)->elts[1]; +c_732702.elts[2] = lp_73202; +c_732702.elts[3] = ((closureN)self_73788)->elts[2]; +c_732702.elts[4] = ((closureN)self_73788)->elts[3]; +c_732702.elts[5] = ((closureN)self_73788)->elts[4]; +c_732702.elts[6] = ((closureN)self_73788)->elts[5]; +c_732702.elts[7] = ((closureN)self_73788)->elts[6]; + + +closureN_type c_732731; +c_732731.hdr.mark = gc_color_red; + c_732731.hdr.grayed = 0; +c_732731.tag = closureN_tag; + c_732731.fn = (function_type)__lambda_332; +c_732731.num_args = 2; +c_732731.num_elt = 1; +c_732731.elts = (object *)alloca(sizeof(object) * 1); +c_732731.elts[0] = lp_73202; + +return_closcall1(data,(closure)&c_732702, &c_732731);; +} + +static void __lambda_332(void *data, int argc, object self_73789, object k_73485, object term_73204, object n_73203) { + +closureN_type c_732733; +c_732733.hdr.mark = gc_color_red; + c_732733.hdr.grayed = 0; +c_732733.tag = closureN_tag; + c_732733.fn = (function_type)__lambda_331; +c_732733.num_args = 1; +c_732733.num_elt = 4; +c_732733.elts = (object *)alloca(sizeof(object) * 4); +c_732733.elts[0] = k_73485; +c_732733.elts[1] = ((closureN)self_73789)->elts[0]; +c_732733.elts[2] = n_73203; +c_732733.elts[3] = term_73204; + +return_closcall2(data, __glo_zero_127_scheme_base, &c_732733, n_73203);; +} + +static void __lambda_331(void *data, int argc, object self_73790, object r_73486) { + if( !eq(boolean_f, r_73486) ){ + return_closcall1(data, ((closureN)self_73790)->elts[0], ((closureN)self_73790)->elts[3]); +} else { + +closureN_type c_732738; +c_732738.hdr.mark = gc_color_red; + c_732738.hdr.grayed = 0; +c_732738.tag = closureN_tag; + c_732738.fn = (function_type)__lambda_330; +c_732738.num_args = 1; +c_732738.num_elt = 4; +c_732738.elts = (object *)alloca(sizeof(object) * 4); +c_732738.elts[0] = ((closureN)self_73790)->elts[0]; +c_732738.elts[1] = ((closureN)self_73790)->elts[1]; +c_732738.elts[2] = ((closureN)self_73790)->elts[2]; +c_732738.elts[3] = ((closureN)self_73790)->elts[3]; + +return_closcall1(data,(closure)&c_732738, quote_or);} +; +} + +static void __lambda_330(void *data, int argc, object self_73791, object r_73489) { + +closureN_type c_732740; +c_732740.hdr.mark = gc_color_red; + c_732740.hdr.grayed = 0; +c_732740.tag = closureN_tag; + c_732740.fn = (function_type)__lambda_329; +c_732740.num_args = 1; +c_732740.num_elt = 5; +c_732740.elts = (object *)alloca(sizeof(object) * 5); +c_732740.elts[0] = ((closureN)self_73791)->elts[0]; +c_732740.elts[1] = ((closureN)self_73791)->elts[1]; +c_732740.elts[2] = ((closureN)self_73791)->elts[2]; +c_732740.elts[3] = r_73489; +c_732740.elts[4] = ((closureN)self_73791)->elts[3]; + + +make_cons(c_732757,quote_f,nil); +return_closcall1(data,(closure)&c_732740, &c_732757);; +} + +static void __lambda_329(void *data, int argc, object self_73792, object r_73490) { + +closureN_type c_732742; +c_732742.hdr.mark = gc_color_red; + c_732742.hdr.grayed = 0; +c_732742.tag = closureN_tag; + c_732742.fn = (function_type)__lambda_328; +c_732742.num_args = 1; +c_732742.num_elt = 3; +c_732742.elts = (object *)alloca(sizeof(object) * 3); +c_732742.elts[0] = ((closureN)self_73792)->elts[0]; +c_732742.elts[1] = ((closureN)self_73792)->elts[1]; +c_732742.elts[2] = ((closureN)self_73792)->elts[2]; + +return_closcall4(data, __glo__list_scheme_base, &c_732742, ((closureN)self_73792)->elts[3], ((closureN)self_73792)->elts[4], r_73490);; +} + +static void __lambda_328(void *data, int argc, object self_73793, object r_73487) { + +closureN_type c_732744; +c_732744.hdr.mark = gc_color_red; + c_732744.hdr.grayed = 0; +c_732744.tag = closureN_tag; + c_732744.fn = (function_type)__lambda_327; +c_732744.num_args = 1; +c_732744.num_elt = 3; +c_732744.elts = (object *)alloca(sizeof(object) * 3); +c_732744.elts[0] = ((closureN)self_73793)->elts[0]; +c_732744.elts[1] = ((closureN)self_73793)->elts[1]; +c_732744.elts[2] = r_73487; + + +object c_732753 = Cyc_sub(data,(closure)&c_732744,2,((closureN)self_73793)->elts[2], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732744, c_732753);; +} + +static void __lambda_327(void *data, int argc, object self_73794, object r_73488) { + return_closcall3(data, cell_get(((closureN)self_73794)->elts[1]), ((closureN)self_73794)->elts[0], ((closureN)self_73794)->elts[2], r_73488);; +} + +static void __lambda_326(void *data, int argc, object self_73795, object r_73484) { + +closureN_type c_732704; +c_732704.hdr.mark = gc_color_red; + c_732704.hdr.grayed = 0; +c_732704.tag = closureN_tag; + c_732704.fn = (function_type)__lambda_325; +c_732704.num_args = 1; +c_732704.num_elt = 8; +c_732704.elts = (object *)alloca(sizeof(object) * 8); +c_732704.elts[0] = ((closureN)self_73795)->elts[0]; +c_732704.elts[1] = ((closureN)self_73795)->elts[1]; +c_732704.elts[2] = ((closureN)self_73795)->elts[2]; +c_732704.elts[3] = ((closureN)self_73795)->elts[3]; +c_732704.elts[4] = ((closureN)self_73795)->elts[4]; +c_732704.elts[5] = ((closureN)self_73795)->elts[5]; +c_732704.elts[6] = ((closureN)self_73795)->elts[6]; +c_732704.elts[7] = ((closureN)self_73795)->elts[7]; + +return_closcall1(data,(closure)&c_732704, Cyc_set_car(data, ((closureN)self_73795)->elts[2], r_73484));; +} + +static void __lambda_325(void *data, int argc, object self_73796, object r_73483) { + +closureN_type c_732709; +c_732709.hdr.mark = gc_color_red; + c_732709.hdr.grayed = 0; +c_732709.tag = closureN_tag; + c_732709.fn = (function_type)__lambda_324; +c_732709.num_args = 1; +c_732709.num_elt = 5; +c_732709.elts = (object *)alloca(sizeof(object) * 5); +c_732709.elts[0] = ((closureN)self_73796)->elts[0]; +c_732709.elts[1] = ((closureN)self_73796)->elts[1]; +c_732709.elts[2] = ((closureN)self_73796)->elts[4]; +c_732709.elts[3] = ((closureN)self_73796)->elts[5]; +c_732709.elts[4] = ((closureN)self_73796)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73796)->elts[2]), &c_732709, ((closureN)self_73796)->elts[6], ((closureN)self_73796)->elts[3]);; +} + +static void __lambda_324(void *data, int argc, object self_73797, object r_73482) { + +closureN_type c_732714; +c_732714.hdr.mark = gc_color_red; + c_732714.hdr.grayed = 0; +c_732714.tag = closureN_tag; + c_732714.fn = (function_type)__lambda_323; +c_732714.num_args = 1; +c_732714.num_elt = 4; +c_732714.elts = (object *)alloca(sizeof(object) * 4); +c_732714.elts[0] = ((closureN)self_73797)->elts[0]; +c_732714.elts[1] = ((closureN)self_73797)->elts[1]; +c_732714.elts[2] = ((closureN)self_73797)->elts[2]; +c_732714.elts[3] = ((closureN)self_73797)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73797)->elts[4]), &c_732714, r_73482);; +} + +static void __lambda_323(void *data, int argc, object self_73798, object r_73481) { + +closureN_type c_732719; +c_732719.hdr.mark = gc_color_red; + c_732719.hdr.grayed = 0; +c_732719.tag = closureN_tag; + c_732719.fn = (function_type)__lambda_322; +c_732719.num_args = 1; +c_732719.num_elt = 2; +c_732719.elts = (object *)alloca(sizeof(object) * 2); +c_732719.elts[0] = ((closureN)self_73798)->elts[1]; +c_732719.elts[1] = ((closureN)self_73798)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73798)->elts[0]), &c_732719, ((closureN)self_73798)->elts[2], r_73481);; +} + +static void __lambda_322(void *data, int argc, object self_73799, object term_73205) { + return_closcall2(data, cell_get(((closureN)self_73799)->elts[1]), ((closureN)self_73799)->elts[0], term_73205);; +} + +static void __lambda_321(void *data, int argc, object self_73800, object r_73477) { + +closureN_type c_731547; +c_731547.hdr.mark = gc_color_red; + c_731547.hdr.grayed = 0; +c_731547.tag = closureN_tag; + c_731547.fn = (function_type)__lambda_320; +c_731547.num_args = 1; +c_731547.num_elt = 30; +c_731547.elts = (object *)alloca(sizeof(object) * 30); +c_731547.elts[0] = ((closureN)self_73800)->elts[0]; +c_731547.elts[1] = ((closureN)self_73800)->elts[1]; +c_731547.elts[2] = ((closureN)self_73800)->elts[2]; +c_731547.elts[3] = ((closureN)self_73800)->elts[3]; +c_731547.elts[4] = ((closureN)self_73800)->elts[4]; +c_731547.elts[5] = ((closureN)self_73800)->elts[5]; +c_731547.elts[6] = ((closureN)self_73800)->elts[6]; +c_731547.elts[7] = ((closureN)self_73800)->elts[7]; +c_731547.elts[8] = ((closureN)self_73800)->elts[8]; +c_731547.elts[9] = ((closureN)self_73800)->elts[9]; +c_731547.elts[10] = ((closureN)self_73800)->elts[10]; +c_731547.elts[11] = ((closureN)self_73800)->elts[11]; +c_731547.elts[12] = ((closureN)self_73800)->elts[12]; +c_731547.elts[13] = ((closureN)self_73800)->elts[13]; +c_731547.elts[14] = ((closureN)self_73800)->elts[14]; +c_731547.elts[15] = ((closureN)self_73800)->elts[15]; +c_731547.elts[16] = ((closureN)self_73800)->elts[16]; +c_731547.elts[17] = ((closureN)self_73800)->elts[17]; +c_731547.elts[18] = ((closureN)self_73800)->elts[18]; +c_731547.elts[19] = ((closureN)self_73800)->elts[19]; +c_731547.elts[20] = ((closureN)self_73800)->elts[20]; +c_731547.elts[21] = ((closureN)self_73800)->elts[21]; +c_731547.elts[22] = ((closureN)self_73800)->elts[22]; +c_731547.elts[23] = ((closureN)self_73800)->elts[23]; +c_731547.elts[24] = ((closureN)self_73800)->elts[24]; +c_731547.elts[25] = ((closureN)self_73800)->elts[25]; +c_731547.elts[26] = ((closureN)self_73800)->elts[26]; +c_731547.elts[27] = ((closureN)self_73800)->elts[27]; +c_731547.elts[28] = ((closureN)self_73800)->elts[28]; +c_731547.elts[29] = ((closureN)self_73800)->elts[29]; + +return_closcall1(data,(closure)&c_731547, Cyc_set_car(data, ((closureN)self_73800)->elts[22], r_73477));; +} + +static void __lambda_320(void *data, int argc, object self_73801, object r_73280) { + +closureN_type c_731549; +c_731549.hdr.mark = gc_color_red; + c_731549.hdr.grayed = 0; +c_731549.tag = closureN_tag; + c_731549.fn = (function_type)__lambda_309; +c_731549.num_args = 1; +c_731549.num_elt = 30; +c_731549.elts = (object *)alloca(sizeof(object) * 30); +c_731549.elts[0] = ((closureN)self_73801)->elts[0]; +c_731549.elts[1] = ((closureN)self_73801)->elts[1]; +c_731549.elts[2] = ((closureN)self_73801)->elts[2]; +c_731549.elts[3] = ((closureN)self_73801)->elts[3]; +c_731549.elts[4] = ((closureN)self_73801)->elts[4]; +c_731549.elts[5] = ((closureN)self_73801)->elts[5]; +c_731549.elts[6] = ((closureN)self_73801)->elts[6]; +c_731549.elts[7] = ((closureN)self_73801)->elts[7]; +c_731549.elts[8] = ((closureN)self_73801)->elts[8]; +c_731549.elts[9] = ((closureN)self_73801)->elts[9]; +c_731549.elts[10] = ((closureN)self_73801)->elts[10]; +c_731549.elts[11] = ((closureN)self_73801)->elts[11]; +c_731549.elts[12] = ((closureN)self_73801)->elts[12]; +c_731549.elts[13] = ((closureN)self_73801)->elts[13]; +c_731549.elts[14] = ((closureN)self_73801)->elts[14]; +c_731549.elts[15] = ((closureN)self_73801)->elts[15]; +c_731549.elts[16] = ((closureN)self_73801)->elts[16]; +c_731549.elts[17] = ((closureN)self_73801)->elts[17]; +c_731549.elts[18] = ((closureN)self_73801)->elts[18]; +c_731549.elts[19] = ((closureN)self_73801)->elts[19]; +c_731549.elts[20] = ((closureN)self_73801)->elts[20]; +c_731549.elts[21] = ((closureN)self_73801)->elts[21]; +c_731549.elts[22] = ((closureN)self_73801)->elts[22]; +c_731549.elts[23] = ((closureN)self_73801)->elts[23]; +c_731549.elts[24] = ((closureN)self_73801)->elts[24]; +c_731549.elts[25] = ((closureN)self_73801)->elts[25]; +c_731549.elts[26] = ((closureN)self_73801)->elts[26]; +c_731549.elts[27] = ((closureN)self_73801)->elts[27]; +c_731549.elts[28] = ((closureN)self_73801)->elts[28]; +c_731549.elts[29] = ((closureN)self_73801)->elts[29]; + + +closureN_type c_732638; +c_732638.hdr.mark = gc_color_red; + c_732638.hdr.grayed = 0; +c_732638.tag = closureN_tag; + c_732638.fn = (function_type)__lambda_319; +c_732638.num_args = 1; +c_732638.num_elt = 2; +c_732638.elts = (object *)alloca(sizeof(object) * 2); +c_732638.elts[0] = ((closureN)self_73801)->elts[25]; +c_732638.elts[1] = ((closureN)self_73801)->elts[26]; + +return_closcall1(data,(closure)&c_731549, &c_732638);; +} + +static void __lambda_319(void *data, int argc, object self_73802, object k_73469, object alist_73196) { + +closureN_type c_732640; +c_732640.hdr.mark = gc_color_red; + c_732640.hdr.grayed = 0; +c_732640.tag = closureN_tag; + c_732640.fn = (function_type)__lambda_318; +c_732640.num_args = 1; +c_732640.num_elt = 4; +c_732640.elts = (object *)alloca(sizeof(object) * 4); +c_732640.elts[0] = alist_73196; +c_732640.elts[1] = k_73469; +c_732640.elts[2] = ((closureN)self_73802)->elts[0]; +c_732640.elts[3] = ((closureN)self_73802)->elts[1]; + +return_closcall1(data,(closure)&c_732640, Cyc_is_null(alist_73196));; +} + +static void __lambda_318(void *data, int argc, object self_73803, object r_73470) { + if( !eq(boolean_f, r_73470) ){ + +closureN_type c_732642; +c_732642.hdr.mark = gc_color_red; + c_732642.hdr.grayed = 0; +c_732642.tag = closureN_tag; + c_732642.fn = (function_type)__lambda_310; +c_732642.num_args = 0; +c_732642.num_elt = 1; +c_732642.elts = (object *)alloca(sizeof(object) * 1); +c_732642.elts[0] = ((closureN)self_73803)->elts[1]; + +return_closcall0(data,(closure)&c_732642); +} else { + +closureN_type c_732646; +c_732646.hdr.mark = gc_color_red; + c_732646.hdr.grayed = 0; +c_732646.tag = closureN_tag; + c_732646.fn = (function_type)__lambda_317; +c_732646.num_args = 0; +c_732646.num_elt = 4; +c_732646.elts = (object *)alloca(sizeof(object) * 4); +c_732646.elts[0] = ((closureN)self_73803)->elts[0]; +c_732646.elts[1] = ((closureN)self_73803)->elts[1]; +c_732646.elts[2] = ((closureN)self_73803)->elts[2]; +c_732646.elts[3] = ((closureN)self_73803)->elts[3]; + +return_closcall0(data,(closure)&c_732646);} +; +} + +static void __lambda_317(void *data, int argc, object self_73804) { + +closureN_type c_732648; +c_732648.hdr.mark = gc_color_red; + c_732648.hdr.grayed = 0; +c_732648.tag = closureN_tag; + c_732648.fn = (function_type)__lambda_316; +c_732648.num_args = 1; +c_732648.num_elt = 4; +c_732648.elts = (object *)alloca(sizeof(object) * 4); +c_732648.elts[0] = ((closureN)self_73804)->elts[0]; +c_732648.elts[1] = ((closureN)self_73804)->elts[1]; +c_732648.elts[2] = ((closureN)self_73804)->elts[2]; +c_732648.elts[3] = ((closureN)self_73804)->elts[3]; + +return_closcall1(data,(closure)&c_732648, caar(((closureN)self_73804)->elts[0]));; +} + +static void __lambda_316(void *data, int argc, object self_73805, object r_73474) { + +closureN_type c_732650; +c_732650.hdr.mark = gc_color_red; + c_732650.hdr.grayed = 0; +c_732650.tag = closureN_tag; + c_732650.fn = (function_type)__lambda_315; +c_732650.num_args = 1; +c_732650.num_elt = 5; +c_732650.elts = (object *)alloca(sizeof(object) * 5); +c_732650.elts[0] = ((closureN)self_73805)->elts[0]; +c_732650.elts[1] = ((closureN)self_73805)->elts[1]; +c_732650.elts[2] = r_73474; +c_732650.elts[3] = ((closureN)self_73805)->elts[2]; +c_732650.elts[4] = ((closureN)self_73805)->elts[3]; + +return_closcall1(data,(closure)&c_732650, cdar(((closureN)self_73805)->elts[0]));; +} + +static void __lambda_315(void *data, int argc, object self_73806, object r_73476) { + +closureN_type c_732655; +c_732655.hdr.mark = gc_color_red; + c_732655.hdr.grayed = 0; +c_732655.tag = closureN_tag; + c_732655.fn = (function_type)__lambda_314; +c_732655.num_args = 1; +c_732655.num_elt = 4; +c_732655.elts = (object *)alloca(sizeof(object) * 4); +c_732655.elts[0] = ((closureN)self_73806)->elts[0]; +c_732655.elts[1] = ((closureN)self_73806)->elts[1]; +c_732655.elts[2] = ((closureN)self_73806)->elts[2]; +c_732655.elts[3] = ((closureN)self_73806)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73806)->elts[4]), &c_732655, r_73476);; +} + +static void __lambda_314(void *data, int argc, object self_73807, object r_73475) { + +closureN_type c_732657; +c_732657.hdr.mark = gc_color_red; + c_732657.hdr.grayed = 0; +c_732657.tag = closureN_tag; + c_732657.fn = (function_type)__lambda_313; +c_732657.num_args = 1; +c_732657.num_elt = 3; +c_732657.elts = (object *)alloca(sizeof(object) * 3); +c_732657.elts[0] = ((closureN)self_73807)->elts[0]; +c_732657.elts[1] = ((closureN)self_73807)->elts[1]; +c_732657.elts[2] = ((closureN)self_73807)->elts[3]; + + +make_cons(c_732676,((closureN)self_73807)->elts[2], r_73475); +return_closcall1(data,(closure)&c_732657, &c_732676);; +} + +static void __lambda_313(void *data, int argc, object self_73808, object r_73471) { + +closureN_type c_732659; +c_732659.hdr.mark = gc_color_red; + c_732659.hdr.grayed = 0; +c_732659.tag = closureN_tag; + c_732659.fn = (function_type)__lambda_312; +c_732659.num_args = 1; +c_732659.num_elt = 3; +c_732659.elts = (object *)alloca(sizeof(object) * 3); +c_732659.elts[0] = ((closureN)self_73808)->elts[1]; +c_732659.elts[1] = r_73471; +c_732659.elts[2] = ((closureN)self_73808)->elts[2]; + +return_closcall1(data,(closure)&c_732659, cdr(((closureN)self_73808)->elts[0]));; +} + +static void __lambda_312(void *data, int argc, object self_73809, object r_73473) { + +closureN_type c_732664; +c_732664.hdr.mark = gc_color_red; + c_732664.hdr.grayed = 0; +c_732664.tag = closureN_tag; + c_732664.fn = (function_type)__lambda_311; +c_732664.num_args = 1; +c_732664.num_elt = 2; +c_732664.elts = (object *)alloca(sizeof(object) * 2); +c_732664.elts[0] = ((closureN)self_73809)->elts[0]; +c_732664.elts[1] = ((closureN)self_73809)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73809)->elts[2]), &c_732664, r_73473);; +} + +static void __lambda_311(void *data, int argc, object self_73810, object r_73472) { + +make_cons(c_732669,((closureN)self_73810)->elts[1], r_73472); +return_closcall1(data, ((closureN)self_73810)->elts[0], &c_732669);; +} + +static void __lambda_310(void *data, int argc, object self_73811) { + return_closcall1(data, ((closureN)self_73811)->elts[0], nil);; +} + +static void __lambda_309(void *data, int argc, object self_73812, object r_73468) { + +closureN_type c_731551; +c_731551.hdr.mark = gc_color_red; + c_731551.hdr.grayed = 0; +c_731551.tag = closureN_tag; + c_731551.fn = (function_type)__lambda_308; +c_731551.num_args = 1; +c_731551.num_elt = 29; +c_731551.elts = (object *)alloca(sizeof(object) * 29); +c_731551.elts[0] = ((closureN)self_73812)->elts[0]; +c_731551.elts[1] = ((closureN)self_73812)->elts[1]; +c_731551.elts[2] = ((closureN)self_73812)->elts[2]; +c_731551.elts[3] = ((closureN)self_73812)->elts[3]; +c_731551.elts[4] = ((closureN)self_73812)->elts[4]; +c_731551.elts[5] = ((closureN)self_73812)->elts[5]; +c_731551.elts[6] = ((closureN)self_73812)->elts[6]; +c_731551.elts[7] = ((closureN)self_73812)->elts[7]; +c_731551.elts[8] = ((closureN)self_73812)->elts[8]; +c_731551.elts[9] = ((closureN)self_73812)->elts[9]; +c_731551.elts[10] = ((closureN)self_73812)->elts[10]; +c_731551.elts[11] = ((closureN)self_73812)->elts[11]; +c_731551.elts[12] = ((closureN)self_73812)->elts[12]; +c_731551.elts[13] = ((closureN)self_73812)->elts[13]; +c_731551.elts[14] = ((closureN)self_73812)->elts[14]; +c_731551.elts[15] = ((closureN)self_73812)->elts[15]; +c_731551.elts[16] = ((closureN)self_73812)->elts[16]; +c_731551.elts[17] = ((closureN)self_73812)->elts[17]; +c_731551.elts[18] = ((closureN)self_73812)->elts[18]; +c_731551.elts[19] = ((closureN)self_73812)->elts[19]; +c_731551.elts[20] = ((closureN)self_73812)->elts[20]; +c_731551.elts[21] = ((closureN)self_73812)->elts[21]; +c_731551.elts[22] = ((closureN)self_73812)->elts[22]; +c_731551.elts[23] = ((closureN)self_73812)->elts[23]; +c_731551.elts[24] = ((closureN)self_73812)->elts[24]; +c_731551.elts[25] = ((closureN)self_73812)->elts[26]; +c_731551.elts[26] = ((closureN)self_73812)->elts[27]; +c_731551.elts[27] = ((closureN)self_73812)->elts[28]; +c_731551.elts[28] = ((closureN)self_73812)->elts[29]; + +return_closcall1(data,(closure)&c_731551, Cyc_set_car(data, ((closureN)self_73812)->elts[25], r_73468));; +} + +static void __lambda_308(void *data, int argc, object self_73813, object r_73281) { + +closureN_type c_731553; +c_731553.hdr.mark = gc_color_red; + c_731553.hdr.grayed = 0; +c_731553.tag = closureN_tag; + c_731553.fn = (function_type)__lambda_299; +c_731553.num_args = 1; +c_731553.num_elt = 29; +c_731553.elts = (object *)alloca(sizeof(object) * 29); +c_731553.elts[0] = ((closureN)self_73813)->elts[0]; +c_731553.elts[1] = ((closureN)self_73813)->elts[1]; +c_731553.elts[2] = ((closureN)self_73813)->elts[2]; +c_731553.elts[3] = ((closureN)self_73813)->elts[3]; +c_731553.elts[4] = ((closureN)self_73813)->elts[4]; +c_731553.elts[5] = ((closureN)self_73813)->elts[5]; +c_731553.elts[6] = ((closureN)self_73813)->elts[6]; +c_731553.elts[7] = ((closureN)self_73813)->elts[7]; +c_731553.elts[8] = ((closureN)self_73813)->elts[8]; +c_731553.elts[9] = ((closureN)self_73813)->elts[9]; +c_731553.elts[10] = ((closureN)self_73813)->elts[10]; +c_731553.elts[11] = ((closureN)self_73813)->elts[11]; +c_731553.elts[12] = ((closureN)self_73813)->elts[12]; +c_731553.elts[13] = ((closureN)self_73813)->elts[13]; +c_731553.elts[14] = ((closureN)self_73813)->elts[14]; +c_731553.elts[15] = ((closureN)self_73813)->elts[15]; +c_731553.elts[16] = ((closureN)self_73813)->elts[16]; +c_731553.elts[17] = ((closureN)self_73813)->elts[17]; +c_731553.elts[18] = ((closureN)self_73813)->elts[18]; +c_731553.elts[19] = ((closureN)self_73813)->elts[19]; +c_731553.elts[20] = ((closureN)self_73813)->elts[20]; +c_731553.elts[21] = ((closureN)self_73813)->elts[21]; +c_731553.elts[22] = ((closureN)self_73813)->elts[22]; +c_731553.elts[23] = ((closureN)self_73813)->elts[23]; +c_731553.elts[24] = ((closureN)self_73813)->elts[24]; +c_731553.elts[25] = ((closureN)self_73813)->elts[25]; +c_731553.elts[26] = ((closureN)self_73813)->elts[26]; +c_731553.elts[27] = ((closureN)self_73813)->elts[27]; +c_731553.elts[28] = ((closureN)self_73813)->elts[28]; + + +closureN_type c_732591; +c_732591.hdr.mark = gc_color_red; + c_732591.hdr.grayed = 0; +c_732591.tag = closureN_tag; + c_732591.fn = (function_type)__lambda_307; +c_732591.num_args = 2; +c_732591.num_elt = 1; +c_732591.elts = (object *)alloca(sizeof(object) * 1); +c_732591.elts[0] = ((closureN)self_73813)->elts[2]; + +return_closcall1(data,(closure)&c_731553, &c_732591);; +} + +static void __lambda_307(void *data, int argc, object self_73814, object k_73462, object alist_73194, object term_73193) { + +closureN_type c_732593; +c_732593.hdr.mark = gc_color_red; + c_732593.hdr.grayed = 0; +c_732593.tag = closureN_tag; + c_732593.fn = (function_type)__lambda_306; +c_732593.num_args = 1; +c_732593.num_elt = 4; +c_732593.elts = (object *)alloca(sizeof(object) * 4); +c_732593.elts[0] = alist_73194; +c_732593.elts[1] = ((closureN)self_73814)->elts[0]; +c_732593.elts[2] = k_73462; +c_732593.elts[3] = term_73193; + +return_closcall1(data,(closure)&c_732593, Cyc_is_cons(term_73193));; +} + +static void __lambda_306(void *data, int argc, object self_73815, object r_73463) { + if( !eq(boolean_f, r_73463) ){ + +closureN_type c_732595; +c_732595.hdr.mark = gc_color_red; + c_732595.hdr.grayed = 0; +c_732595.tag = closureN_tag; + c_732595.fn = (function_type)__lambda_303; +c_732595.num_args = 0; +c_732595.num_elt = 4; +c_732595.elts = (object *)alloca(sizeof(object) * 4); +c_732595.elts[0] = ((closureN)self_73815)->elts[0]; +c_732595.elts[1] = ((closureN)self_73815)->elts[1]; +c_732595.elts[2] = ((closureN)self_73815)->elts[2]; +c_732595.elts[3] = ((closureN)self_73815)->elts[3]; + +return_closcall0(data,(closure)&c_732595); +} else { + +closureN_type c_732619; +c_732619.hdr.mark = gc_color_red; + c_732619.hdr.grayed = 0; +c_732619.tag = closureN_tag; + c_732619.fn = (function_type)__lambda_305; +c_732619.num_args = 0; +c_732619.num_elt = 3; +c_732619.elts = (object *)alloca(sizeof(object) * 3); +c_732619.elts[0] = ((closureN)self_73815)->elts[0]; +c_732619.elts[1] = ((closureN)self_73815)->elts[2]; +c_732619.elts[2] = ((closureN)self_73815)->elts[3]; + +return_closcall0(data,(closure)&c_732619);} +; +} + +static void __lambda_305(void *data, int argc, object self_73816) { + +closureN_type c_732621; +c_732621.hdr.mark = gc_color_red; + c_732621.hdr.grayed = 0; +c_732621.tag = closureN_tag; + c_732621.fn = (function_type)__lambda_304; +c_732621.num_args = 1; +c_732621.num_elt = 2; +c_732621.elts = (object *)alloca(sizeof(object) * 2); +c_732621.elts[0] = ((closureN)self_73816)->elts[1]; +c_732621.elts[1] = ((closureN)self_73816)->elts[2]; + +return_closcall1(data,(closure)&c_732621, assq(data, ((closureN)self_73816)->elts[2], ((closureN)self_73816)->elts[0]));; +} + +static void __lambda_304(void *data, int argc, object self_73817, object temp_91temp_73195) { + if( !eq(boolean_f, temp_91temp_73195) ){ + return_closcall1(data, ((closureN)self_73817)->elts[0], cdr(temp_91temp_73195)); +} else { + return_closcall1(data, ((closureN)self_73817)->elts[0], ((closureN)self_73817)->elts[1]);} +; +} + +static void __lambda_303(void *data, int argc, object self_73818) { + +closureN_type c_732597; +c_732597.hdr.mark = gc_color_red; + c_732597.hdr.grayed = 0; +c_732597.tag = closureN_tag; + c_732597.fn = (function_type)__lambda_302; +c_732597.num_args = 1; +c_732597.num_elt = 4; +c_732597.elts = (object *)alloca(sizeof(object) * 4); +c_732597.elts[0] = ((closureN)self_73818)->elts[0]; +c_732597.elts[1] = ((closureN)self_73818)->elts[1]; +c_732597.elts[2] = ((closureN)self_73818)->elts[2]; +c_732597.elts[3] = ((closureN)self_73818)->elts[3]; + +return_closcall1(data,(closure)&c_732597, car(((closureN)self_73818)->elts[3]));; +} + +static void __lambda_302(void *data, int argc, object self_73819, object r_73464) { + +closureN_type c_732599; +c_732599.hdr.mark = gc_color_red; + c_732599.hdr.grayed = 0; +c_732599.tag = closureN_tag; + c_732599.fn = (function_type)__lambda_301; +c_732599.num_args = 1; +c_732599.num_elt = 4; +c_732599.elts = (object *)alloca(sizeof(object) * 4); +c_732599.elts[0] = ((closureN)self_73819)->elts[0]; +c_732599.elts[1] = ((closureN)self_73819)->elts[1]; +c_732599.elts[2] = ((closureN)self_73819)->elts[2]; +c_732599.elts[3] = r_73464; + +return_closcall1(data,(closure)&c_732599, cdr(((closureN)self_73819)->elts[3]));; +} + +static void __lambda_301(void *data, int argc, object self_73820, object r_73466) { + +closureN_type c_732604; +c_732604.hdr.mark = gc_color_red; + c_732604.hdr.grayed = 0; +c_732604.tag = closureN_tag; + c_732604.fn = (function_type)__lambda_300; +c_732604.num_args = 1; +c_732604.num_elt = 2; +c_732604.elts = (object *)alloca(sizeof(object) * 2); +c_732604.elts[0] = ((closureN)self_73820)->elts[2]; +c_732604.elts[1] = ((closureN)self_73820)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73820)->elts[1]), &c_732604, ((closureN)self_73820)->elts[0], r_73466);; +} + +static void __lambda_300(void *data, int argc, object self_73821, object r_73465) { + +make_cons(c_732609,((closureN)self_73821)->elts[1], r_73465); +return_closcall1(data, ((closureN)self_73821)->elts[0], &c_732609);; +} + +static void __lambda_299(void *data, int argc, object self_73822, object r_73461) { + +closureN_type c_731555; +c_731555.hdr.mark = gc_color_red; + c_731555.hdr.grayed = 0; +c_731555.tag = closureN_tag; + c_731555.fn = (function_type)__lambda_298; +c_731555.num_args = 1; +c_731555.num_elt = 29; +c_731555.elts = (object *)alloca(sizeof(object) * 29); +c_731555.elts[0] = ((closureN)self_73822)->elts[0]; +c_731555.elts[1] = ((closureN)self_73822)->elts[1]; +c_731555.elts[2] = ((closureN)self_73822)->elts[2]; +c_731555.elts[3] = ((closureN)self_73822)->elts[3]; +c_731555.elts[4] = ((closureN)self_73822)->elts[4]; +c_731555.elts[5] = ((closureN)self_73822)->elts[5]; +c_731555.elts[6] = ((closureN)self_73822)->elts[6]; +c_731555.elts[7] = ((closureN)self_73822)->elts[7]; +c_731555.elts[8] = ((closureN)self_73822)->elts[8]; +c_731555.elts[9] = ((closureN)self_73822)->elts[9]; +c_731555.elts[10] = ((closureN)self_73822)->elts[10]; +c_731555.elts[11] = ((closureN)self_73822)->elts[11]; +c_731555.elts[12] = ((closureN)self_73822)->elts[12]; +c_731555.elts[13] = ((closureN)self_73822)->elts[13]; +c_731555.elts[14] = ((closureN)self_73822)->elts[14]; +c_731555.elts[15] = ((closureN)self_73822)->elts[15]; +c_731555.elts[16] = ((closureN)self_73822)->elts[16]; +c_731555.elts[17] = ((closureN)self_73822)->elts[17]; +c_731555.elts[18] = ((closureN)self_73822)->elts[18]; +c_731555.elts[19] = ((closureN)self_73822)->elts[19]; +c_731555.elts[20] = ((closureN)self_73822)->elts[20]; +c_731555.elts[21] = ((closureN)self_73822)->elts[21]; +c_731555.elts[22] = ((closureN)self_73822)->elts[22]; +c_731555.elts[23] = ((closureN)self_73822)->elts[23]; +c_731555.elts[24] = ((closureN)self_73822)->elts[24]; +c_731555.elts[25] = ((closureN)self_73822)->elts[25]; +c_731555.elts[26] = ((closureN)self_73822)->elts[26]; +c_731555.elts[27] = ((closureN)self_73822)->elts[27]; +c_731555.elts[28] = ((closureN)self_73822)->elts[28]; + +return_closcall1(data,(closure)&c_731555, Cyc_set_car(data, ((closureN)self_73822)->elts[1], r_73461));; +} + +static void __lambda_298(void *data, int argc, object self_73823, object r_73282) { + +closureN_type c_731557; +c_731557.hdr.mark = gc_color_red; + c_731557.hdr.grayed = 0; +c_731557.tag = closureN_tag; + c_731557.fn = (function_type)__lambda_289; +c_731557.num_args = 1; +c_731557.num_elt = 29; +c_731557.elts = (object *)alloca(sizeof(object) * 29); +c_731557.elts[0] = ((closureN)self_73823)->elts[0]; +c_731557.elts[1] = ((closureN)self_73823)->elts[1]; +c_731557.elts[2] = ((closureN)self_73823)->elts[2]; +c_731557.elts[3] = ((closureN)self_73823)->elts[3]; +c_731557.elts[4] = ((closureN)self_73823)->elts[4]; +c_731557.elts[5] = ((closureN)self_73823)->elts[5]; +c_731557.elts[6] = ((closureN)self_73823)->elts[6]; +c_731557.elts[7] = ((closureN)self_73823)->elts[7]; +c_731557.elts[8] = ((closureN)self_73823)->elts[8]; +c_731557.elts[9] = ((closureN)self_73823)->elts[9]; +c_731557.elts[10] = ((closureN)self_73823)->elts[10]; +c_731557.elts[11] = ((closureN)self_73823)->elts[11]; +c_731557.elts[12] = ((closureN)self_73823)->elts[12]; +c_731557.elts[13] = ((closureN)self_73823)->elts[13]; +c_731557.elts[14] = ((closureN)self_73823)->elts[14]; +c_731557.elts[15] = ((closureN)self_73823)->elts[15]; +c_731557.elts[16] = ((closureN)self_73823)->elts[16]; +c_731557.elts[17] = ((closureN)self_73823)->elts[17]; +c_731557.elts[18] = ((closureN)self_73823)->elts[18]; +c_731557.elts[19] = ((closureN)self_73823)->elts[19]; +c_731557.elts[20] = ((closureN)self_73823)->elts[20]; +c_731557.elts[21] = ((closureN)self_73823)->elts[21]; +c_731557.elts[22] = ((closureN)self_73823)->elts[22]; +c_731557.elts[23] = ((closureN)self_73823)->elts[23]; +c_731557.elts[24] = ((closureN)self_73823)->elts[24]; +c_731557.elts[25] = ((closureN)self_73823)->elts[25]; +c_731557.elts[26] = ((closureN)self_73823)->elts[26]; +c_731557.elts[27] = ((closureN)self_73823)->elts[27]; +c_731557.elts[28] = ((closureN)self_73823)->elts[28]; + + +closureN_type c_732549; +c_732549.hdr.mark = gc_color_red; + c_732549.hdr.grayed = 0; +c_732549.tag = closureN_tag; + c_732549.fn = (function_type)__lambda_297; +c_732549.num_args = 2; +c_732549.num_elt = 2; +c_732549.elts = (object *)alloca(sizeof(object) * 2); +c_732549.elts[0] = ((closureN)self_73823)->elts[1]; +c_732549.elts[1] = ((closureN)self_73823)->elts[2]; + +return_closcall1(data,(closure)&c_731557, &c_732549);; +} + +static void __lambda_297(void *data, int argc, object self_73824, object k_73455, object alist_73192, object lst_73191) { + +closureN_type c_732551; +c_732551.hdr.mark = gc_color_red; + c_732551.hdr.grayed = 0; +c_732551.tag = closureN_tag; + c_732551.fn = (function_type)__lambda_296; +c_732551.num_args = 1; +c_732551.num_elt = 5; +c_732551.elts = (object *)alloca(sizeof(object) * 5); +c_732551.elts[0] = alist_73192; +c_732551.elts[1] = ((closureN)self_73824)->elts[0]; +c_732551.elts[2] = ((closureN)self_73824)->elts[1]; +c_732551.elts[3] = k_73455; +c_732551.elts[4] = lst_73191; + +return_closcall1(data,(closure)&c_732551, Cyc_is_null(lst_73191));; +} + +static void __lambda_296(void *data, int argc, object self_73825, object r_73456) { + if( !eq(boolean_f, r_73456) ){ + +closureN_type c_732553; +c_732553.hdr.mark = gc_color_red; + c_732553.hdr.grayed = 0; +c_732553.tag = closureN_tag; + c_732553.fn = (function_type)__lambda_290; +c_732553.num_args = 0; +c_732553.num_elt = 1; +c_732553.elts = (object *)alloca(sizeof(object) * 1); +c_732553.elts[0] = ((closureN)self_73825)->elts[3]; + +return_closcall0(data,(closure)&c_732553); +} else { + +closureN_type c_732557; +c_732557.hdr.mark = gc_color_red; + c_732557.hdr.grayed = 0; +c_732557.tag = closureN_tag; + c_732557.fn = (function_type)__lambda_295; +c_732557.num_args = 0; +c_732557.num_elt = 5; +c_732557.elts = (object *)alloca(sizeof(object) * 5); +c_732557.elts[0] = ((closureN)self_73825)->elts[0]; +c_732557.elts[1] = ((closureN)self_73825)->elts[1]; +c_732557.elts[2] = ((closureN)self_73825)->elts[2]; +c_732557.elts[3] = ((closureN)self_73825)->elts[3]; +c_732557.elts[4] = ((closureN)self_73825)->elts[4]; + +return_closcall0(data,(closure)&c_732557);} +; +} + +static void __lambda_295(void *data, int argc, object self_73826) { + +closureN_type c_732559; +c_732559.hdr.mark = gc_color_red; + c_732559.hdr.grayed = 0; +c_732559.tag = closureN_tag; + c_732559.fn = (function_type)__lambda_294; +c_732559.num_args = 1; +c_732559.num_elt = 5; +c_732559.elts = (object *)alloca(sizeof(object) * 5); +c_732559.elts[0] = ((closureN)self_73826)->elts[0]; +c_732559.elts[1] = ((closureN)self_73826)->elts[1]; +c_732559.elts[2] = ((closureN)self_73826)->elts[2]; +c_732559.elts[3] = ((closureN)self_73826)->elts[3]; +c_732559.elts[4] = ((closureN)self_73826)->elts[4]; + +return_closcall1(data,(closure)&c_732559, car(((closureN)self_73826)->elts[4]));; +} + +static void __lambda_294(void *data, int argc, object self_73827, object r_73460) { + +closureN_type c_732564; +c_732564.hdr.mark = gc_color_red; + c_732564.hdr.grayed = 0; +c_732564.tag = closureN_tag; + c_732564.fn = (function_type)__lambda_293; +c_732564.num_args = 1; +c_732564.num_elt = 4; +c_732564.elts = (object *)alloca(sizeof(object) * 4); +c_732564.elts[0] = ((closureN)self_73827)->elts[0]; +c_732564.elts[1] = ((closureN)self_73827)->elts[2]; +c_732564.elts[2] = ((closureN)self_73827)->elts[3]; +c_732564.elts[3] = ((closureN)self_73827)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_73827)->elts[1]), &c_732564, ((closureN)self_73827)->elts[0], r_73460);; +} + +static void __lambda_293(void *data, int argc, object self_73828, object r_73457) { + +closureN_type c_732566; +c_732566.hdr.mark = gc_color_red; + c_732566.hdr.grayed = 0; +c_732566.tag = closureN_tag; + c_732566.fn = (function_type)__lambda_292; +c_732566.num_args = 1; +c_732566.num_elt = 4; +c_732566.elts = (object *)alloca(sizeof(object) * 4); +c_732566.elts[0] = ((closureN)self_73828)->elts[0]; +c_732566.elts[1] = ((closureN)self_73828)->elts[1]; +c_732566.elts[2] = ((closureN)self_73828)->elts[2]; +c_732566.elts[3] = r_73457; + +return_closcall1(data,(closure)&c_732566, cdr(((closureN)self_73828)->elts[3]));; +} + +static void __lambda_292(void *data, int argc, object self_73829, object r_73459) { + +closureN_type c_732571; +c_732571.hdr.mark = gc_color_red; + c_732571.hdr.grayed = 0; +c_732571.tag = closureN_tag; + c_732571.fn = (function_type)__lambda_291; +c_732571.num_args = 1; +c_732571.num_elt = 2; +c_732571.elts = (object *)alloca(sizeof(object) * 2); +c_732571.elts[0] = ((closureN)self_73829)->elts[2]; +c_732571.elts[1] = ((closureN)self_73829)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73829)->elts[1]), &c_732571, ((closureN)self_73829)->elts[0], r_73459);; +} + +static void __lambda_291(void *data, int argc, object self_73830, object r_73458) { + +make_cons(c_732576,((closureN)self_73830)->elts[1], r_73458); +return_closcall1(data, ((closureN)self_73830)->elts[0], &c_732576);; +} + +static void __lambda_290(void *data, int argc, object self_73831) { + return_closcall1(data, ((closureN)self_73831)->elts[0], nil);; +} + +static void __lambda_289(void *data, int argc, object self_73832, object r_73454) { + +closureN_type c_731559; +c_731559.hdr.mark = gc_color_red; + c_731559.hdr.grayed = 0; +c_731559.tag = closureN_tag; + c_731559.fn = (function_type)__lambda_288; +c_731559.num_args = 1; +c_731559.num_elt = 28; +c_731559.elts = (object *)alloca(sizeof(object) * 28); +c_731559.elts[0] = ((closureN)self_73832)->elts[0]; +c_731559.elts[1] = ((closureN)self_73832)->elts[1]; +c_731559.elts[2] = ((closureN)self_73832)->elts[3]; +c_731559.elts[3] = ((closureN)self_73832)->elts[4]; +c_731559.elts[4] = ((closureN)self_73832)->elts[5]; +c_731559.elts[5] = ((closureN)self_73832)->elts[6]; +c_731559.elts[6] = ((closureN)self_73832)->elts[7]; +c_731559.elts[7] = ((closureN)self_73832)->elts[8]; +c_731559.elts[8] = ((closureN)self_73832)->elts[9]; +c_731559.elts[9] = ((closureN)self_73832)->elts[10]; +c_731559.elts[10] = ((closureN)self_73832)->elts[11]; +c_731559.elts[11] = ((closureN)self_73832)->elts[12]; +c_731559.elts[12] = ((closureN)self_73832)->elts[13]; +c_731559.elts[13] = ((closureN)self_73832)->elts[14]; +c_731559.elts[14] = ((closureN)self_73832)->elts[15]; +c_731559.elts[15] = ((closureN)self_73832)->elts[16]; +c_731559.elts[16] = ((closureN)self_73832)->elts[17]; +c_731559.elts[17] = ((closureN)self_73832)->elts[18]; +c_731559.elts[18] = ((closureN)self_73832)->elts[19]; +c_731559.elts[19] = ((closureN)self_73832)->elts[20]; +c_731559.elts[20] = ((closureN)self_73832)->elts[21]; +c_731559.elts[21] = ((closureN)self_73832)->elts[22]; +c_731559.elts[22] = ((closureN)self_73832)->elts[23]; +c_731559.elts[23] = ((closureN)self_73832)->elts[24]; +c_731559.elts[24] = ((closureN)self_73832)->elts[25]; +c_731559.elts[25] = ((closureN)self_73832)->elts[26]; +c_731559.elts[26] = ((closureN)self_73832)->elts[27]; +c_731559.elts[27] = ((closureN)self_73832)->elts[28]; + +return_closcall1(data,(closure)&c_731559, Cyc_set_car(data, ((closureN)self_73832)->elts[2], r_73454));; +} + +static void __lambda_288(void *data, int argc, object self_73833, object r_73283) { + +closureN_type c_731561; +c_731561.hdr.mark = gc_color_red; + c_731561.hdr.grayed = 0; +c_731561.tag = closureN_tag; + c_731561.fn = (function_type)__lambda_283; +c_731561.num_args = 1; +c_731561.num_elt = 28; +c_731561.elts = (object *)alloca(sizeof(object) * 28); +c_731561.elts[0] = ((closureN)self_73833)->elts[0]; +c_731561.elts[1] = ((closureN)self_73833)->elts[1]; +c_731561.elts[2] = ((closureN)self_73833)->elts[2]; +c_731561.elts[3] = ((closureN)self_73833)->elts[3]; +c_731561.elts[4] = ((closureN)self_73833)->elts[4]; +c_731561.elts[5] = ((closureN)self_73833)->elts[5]; +c_731561.elts[6] = ((closureN)self_73833)->elts[6]; +c_731561.elts[7] = ((closureN)self_73833)->elts[7]; +c_731561.elts[8] = ((closureN)self_73833)->elts[8]; +c_731561.elts[9] = ((closureN)self_73833)->elts[9]; +c_731561.elts[10] = ((closureN)self_73833)->elts[10]; +c_731561.elts[11] = ((closureN)self_73833)->elts[11]; +c_731561.elts[12] = ((closureN)self_73833)->elts[12]; +c_731561.elts[13] = ((closureN)self_73833)->elts[13]; +c_731561.elts[14] = ((closureN)self_73833)->elts[14]; +c_731561.elts[15] = ((closureN)self_73833)->elts[15]; +c_731561.elts[16] = ((closureN)self_73833)->elts[16]; +c_731561.elts[17] = ((closureN)self_73833)->elts[17]; +c_731561.elts[18] = ((closureN)self_73833)->elts[18]; +c_731561.elts[19] = ((closureN)self_73833)->elts[19]; +c_731561.elts[20] = ((closureN)self_73833)->elts[20]; +c_731561.elts[21] = ((closureN)self_73833)->elts[21]; +c_731561.elts[22] = ((closureN)self_73833)->elts[22]; +c_731561.elts[23] = ((closureN)self_73833)->elts[23]; +c_731561.elts[24] = ((closureN)self_73833)->elts[24]; +c_731561.elts[25] = ((closureN)self_73833)->elts[25]; +c_731561.elts[26] = ((closureN)self_73833)->elts[26]; +c_731561.elts[27] = ((closureN)self_73833)->elts[27]; + + +closureN_type c_732529; +c_732529.hdr.mark = gc_color_red; + c_732529.hdr.grayed = 0; +c_732529.tag = closureN_tag; + c_732529.fn = (function_type)__lambda_287; +c_732529.num_args = 1; +c_732529.num_elt = 2; +c_732529.elts = (object *)alloca(sizeof(object) * 2); +c_732529.elts[0] = ((closureN)self_73833)->elts[9]; +c_732529.elts[1] = ((closureN)self_73833)->elts[16]; + +return_closcall1(data,(closure)&c_731561, &c_732529);; +} + +static void __lambda_287(void *data, int argc, object self_73834, object k_73450, object x_73190) { + +closureN_type c_732534; +c_732534.hdr.mark = gc_color_red; + c_732534.hdr.grayed = 0; +c_732534.tag = closureN_tag; + c_732534.fn = (function_type)__lambda_286; +c_732534.num_args = 1; +c_732534.num_elt = 2; +c_732534.elts = (object *)alloca(sizeof(object) * 2); +c_732534.elts[0] = k_73450; +c_732534.elts[1] = ((closureN)self_73834)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73834)->elts[0]), &c_732534, x_73190);; +} + +static void __lambda_286(void *data, int argc, object self_73835, object r_73451) { + +closureN_type c_732536; +c_732536.hdr.mark = gc_color_red; + c_732536.hdr.grayed = 0; +c_732536.tag = closureN_tag; + c_732536.fn = (function_type)__lambda_285; +c_732536.num_args = 1; +c_732536.num_elt = 3; +c_732536.elts = (object *)alloca(sizeof(object) * 3); +c_732536.elts[0] = ((closureN)self_73835)->elts[0]; +c_732536.elts[1] = r_73451; +c_732536.elts[2] = ((closureN)self_73835)->elts[1]; + +return_closcall1(data,(closure)&c_732536, nil);; +} + +static void __lambda_285(void *data, int argc, object self_73836, object r_73452) { + +closureN_type c_732538; +c_732538.hdr.mark = gc_color_red; + c_732538.hdr.grayed = 0; +c_732538.tag = closureN_tag; + c_732538.fn = (function_type)__lambda_284; +c_732538.num_args = 1; +c_732538.num_elt = 4; +c_732538.elts = (object *)alloca(sizeof(object) * 4); +c_732538.elts[0] = ((closureN)self_73836)->elts[0]; +c_732538.elts[1] = ((closureN)self_73836)->elts[1]; +c_732538.elts[2] = r_73452; +c_732538.elts[3] = ((closureN)self_73836)->elts[2]; + +return_closcall1(data,(closure)&c_732538, nil);; +} + +static void __lambda_284(void *data, int argc, object self_73837, object r_73453) { + return_closcall4(data, cell_get(((closureN)self_73837)->elts[3]), ((closureN)self_73837)->elts[0], ((closureN)self_73837)->elts[1], ((closureN)self_73837)->elts[2], r_73453);; +} + +static void __lambda_283(void *data, int argc, object self_73838, object r_73449) { + +closureN_type c_731563; +c_731563.hdr.mark = gc_color_red; + c_731563.hdr.grayed = 0; +c_731563.tag = closureN_tag; + c_731563.fn = (function_type)__lambda_282; +c_731563.num_args = 1; +c_731563.num_elt = 27; +c_731563.elts = (object *)alloca(sizeof(object) * 27); +c_731563.elts[0] = ((closureN)self_73838)->elts[0]; +c_731563.elts[1] = ((closureN)self_73838)->elts[1]; +c_731563.elts[2] = ((closureN)self_73838)->elts[2]; +c_731563.elts[3] = ((closureN)self_73838)->elts[3]; +c_731563.elts[4] = ((closureN)self_73838)->elts[4]; +c_731563.elts[5] = ((closureN)self_73838)->elts[5]; +c_731563.elts[6] = ((closureN)self_73838)->elts[6]; +c_731563.elts[7] = ((closureN)self_73838)->elts[7]; +c_731563.elts[8] = ((closureN)self_73838)->elts[8]; +c_731563.elts[9] = ((closureN)self_73838)->elts[9]; +c_731563.elts[10] = ((closureN)self_73838)->elts[10]; +c_731563.elts[11] = ((closureN)self_73838)->elts[11]; +c_731563.elts[12] = ((closureN)self_73838)->elts[12]; +c_731563.elts[13] = ((closureN)self_73838)->elts[13]; +c_731563.elts[14] = ((closureN)self_73838)->elts[14]; +c_731563.elts[15] = ((closureN)self_73838)->elts[15]; +c_731563.elts[16] = ((closureN)self_73838)->elts[16]; +c_731563.elts[17] = ((closureN)self_73838)->elts[18]; +c_731563.elts[18] = ((closureN)self_73838)->elts[19]; +c_731563.elts[19] = ((closureN)self_73838)->elts[20]; +c_731563.elts[20] = ((closureN)self_73838)->elts[21]; +c_731563.elts[21] = ((closureN)self_73838)->elts[22]; +c_731563.elts[22] = ((closureN)self_73838)->elts[23]; +c_731563.elts[23] = ((closureN)self_73838)->elts[24]; +c_731563.elts[24] = ((closureN)self_73838)->elts[25]; +c_731563.elts[25] = ((closureN)self_73838)->elts[26]; +c_731563.elts[26] = ((closureN)self_73838)->elts[27]; + +return_closcall1(data,(closure)&c_731563, Cyc_set_car(data, ((closureN)self_73838)->elts[17], r_73449));; +} + +static void __lambda_282(void *data, int argc, object self_73839, object r_73284) { + +closureN_type c_731565; +c_731565.hdr.mark = gc_color_red; + c_731565.hdr.grayed = 0; +c_731565.tag = closureN_tag; + c_731565.fn = (function_type)__lambda_254; +c_731565.num_args = 1; +c_731565.num_elt = 27; +c_731565.elts = (object *)alloca(sizeof(object) * 27); +c_731565.elts[0] = ((closureN)self_73839)->elts[0]; +c_731565.elts[1] = ((closureN)self_73839)->elts[1]; +c_731565.elts[2] = ((closureN)self_73839)->elts[2]; +c_731565.elts[3] = ((closureN)self_73839)->elts[3]; +c_731565.elts[4] = ((closureN)self_73839)->elts[4]; +c_731565.elts[5] = ((closureN)self_73839)->elts[5]; +c_731565.elts[6] = ((closureN)self_73839)->elts[6]; +c_731565.elts[7] = ((closureN)self_73839)->elts[7]; +c_731565.elts[8] = ((closureN)self_73839)->elts[8]; +c_731565.elts[9] = ((closureN)self_73839)->elts[9]; +c_731565.elts[10] = ((closureN)self_73839)->elts[10]; +c_731565.elts[11] = ((closureN)self_73839)->elts[11]; +c_731565.elts[12] = ((closureN)self_73839)->elts[12]; +c_731565.elts[13] = ((closureN)self_73839)->elts[13]; +c_731565.elts[14] = ((closureN)self_73839)->elts[14]; +c_731565.elts[15] = ((closureN)self_73839)->elts[15]; +c_731565.elts[16] = ((closureN)self_73839)->elts[16]; +c_731565.elts[17] = ((closureN)self_73839)->elts[17]; +c_731565.elts[18] = ((closureN)self_73839)->elts[18]; +c_731565.elts[19] = ((closureN)self_73839)->elts[19]; +c_731565.elts[20] = ((closureN)self_73839)->elts[20]; +c_731565.elts[21] = ((closureN)self_73839)->elts[21]; +c_731565.elts[22] = ((closureN)self_73839)->elts[22]; +c_731565.elts[23] = ((closureN)self_73839)->elts[23]; +c_731565.elts[24] = ((closureN)self_73839)->elts[24]; +c_731565.elts[25] = ((closureN)self_73839)->elts[25]; +c_731565.elts[26] = ((closureN)self_73839)->elts[26]; + + +closureN_type c_732378; +c_732378.hdr.mark = gc_color_red; + c_732378.hdr.grayed = 0; +c_732378.tag = closureN_tag; + c_732378.fn = (function_type)__lambda_281; +c_732378.num_args = 3; +c_732378.num_elt = 4; +c_732378.elts = (object *)alloca(sizeof(object) * 4); +c_732378.elts[0] = ((closureN)self_73839)->elts[3]; +c_732378.elts[1] = ((closureN)self_73839)->elts[5]; +c_732378.elts[2] = ((closureN)self_73839)->elts[16]; +c_732378.elts[3] = ((closureN)self_73839)->elts[25]; + +return_closcall1(data,(closure)&c_731565, &c_732378);; +} + +static void __lambda_281(void *data, int argc, object self_73840, object k_73430, object x_73189, object true_91lst_73188, object false_91lst_73187) { + +closureN_type c_732383; +c_732383.hdr.mark = gc_color_red; + c_732383.hdr.grayed = 0; +c_732383.tag = closureN_tag; + c_732383.fn = (function_type)__lambda_280; +c_732383.num_args = 1; +c_732383.num_elt = 8; +c_732383.elts = (object *)alloca(sizeof(object) * 8); +c_732383.elts[0] = false_91lst_73187; +c_732383.elts[1] = ((closureN)self_73840)->elts[0]; +c_732383.elts[2] = ((closureN)self_73840)->elts[1]; +c_732383.elts[3] = k_73430; +c_732383.elts[4] = ((closureN)self_73840)->elts[2]; +c_732383.elts[5] = true_91lst_73188; +c_732383.elts[6] = ((closureN)self_73840)->elts[3]; +c_732383.elts[7] = x_73189; + +return_closcall3(data, cell_get(((closureN)self_73840)->elts[3]), &c_732383, x_73189, true_91lst_73188);; +} + +static void __lambda_280(void *data, int argc, object self_73841, object r_73431) { + if( !eq(boolean_f, r_73431) ){ + +closureN_type c_732385; +c_732385.hdr.mark = gc_color_red; + c_732385.hdr.grayed = 0; +c_732385.tag = closureN_tag; + c_732385.fn = (function_type)__lambda_255; +c_732385.num_args = 0; +c_732385.num_elt = 1; +c_732385.elts = (object *)alloca(sizeof(object) * 1); +c_732385.elts[0] = ((closureN)self_73841)->elts[3]; + +return_closcall0(data,(closure)&c_732385); +} else { + +closureN_type c_732392; +c_732392.hdr.mark = gc_color_red; + c_732392.hdr.grayed = 0; +c_732392.tag = closureN_tag; + c_732392.fn = (function_type)__lambda_279; +c_732392.num_args = 1; +c_732392.num_elt = 8; +c_732392.elts = (object *)alloca(sizeof(object) * 8); +c_732392.elts[0] = ((closureN)self_73841)->elts[0]; +c_732392.elts[1] = ((closureN)self_73841)->elts[1]; +c_732392.elts[2] = ((closureN)self_73841)->elts[2]; +c_732392.elts[3] = ((closureN)self_73841)->elts[3]; +c_732392.elts[4] = ((closureN)self_73841)->elts[4]; +c_732392.elts[5] = ((closureN)self_73841)->elts[5]; +c_732392.elts[6] = ((closureN)self_73841)->elts[6]; +c_732392.elts[7] = ((closureN)self_73841)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73841)->elts[1]), &c_732392, ((closureN)self_73841)->elts[7], ((closureN)self_73841)->elts[0]);} +; +} + +static void __lambda_279(void *data, int argc, object self_73842, object r_73432) { + if( !eq(boolean_f, r_73432) ){ + +closureN_type c_732394; +c_732394.hdr.mark = gc_color_red; + c_732394.hdr.grayed = 0; +c_732394.tag = closureN_tag; + c_732394.fn = (function_type)__lambda_256; +c_732394.num_args = 0; +c_732394.num_elt = 1; +c_732394.elts = (object *)alloca(sizeof(object) * 1); +c_732394.elts[0] = ((closureN)self_73842)->elts[3]; + +return_closcall0(data,(closure)&c_732394); +} else { + +closureN_type c_732398; +c_732398.hdr.mark = gc_color_red; + c_732398.hdr.grayed = 0; +c_732398.tag = closureN_tag; + c_732398.fn = (function_type)__lambda_278; +c_732398.num_args = 1; +c_732398.num_elt = 8; +c_732398.elts = (object *)alloca(sizeof(object) * 8); +c_732398.elts[0] = ((closureN)self_73842)->elts[0]; +c_732398.elts[1] = ((closureN)self_73842)->elts[1]; +c_732398.elts[2] = ((closureN)self_73842)->elts[2]; +c_732398.elts[3] = ((closureN)self_73842)->elts[3]; +c_732398.elts[4] = ((closureN)self_73842)->elts[4]; +c_732398.elts[5] = ((closureN)self_73842)->elts[5]; +c_732398.elts[6] = ((closureN)self_73842)->elts[6]; +c_732398.elts[7] = ((closureN)self_73842)->elts[7]; + +return_closcall1(data,(closure)&c_732398, Cyc_is_cons(((closureN)self_73842)->elts[7]));} +; +} + +static void __lambda_278(void *data, int argc, object self_73843, object r_73433) { + if( !eq(boolean_f, r_73433) ){ + +closureN_type c_732400; +c_732400.hdr.mark = gc_color_red; + c_732400.hdr.grayed = 0; +c_732400.tag = closureN_tag; + c_732400.fn = (function_type)__lambda_276; +c_732400.num_args = 1; +c_732400.num_elt = 8; +c_732400.elts = (object *)alloca(sizeof(object) * 8); +c_732400.elts[0] = ((closureN)self_73843)->elts[0]; +c_732400.elts[1] = ((closureN)self_73843)->elts[1]; +c_732400.elts[2] = ((closureN)self_73843)->elts[2]; +c_732400.elts[3] = ((closureN)self_73843)->elts[3]; +c_732400.elts[4] = ((closureN)self_73843)->elts[4]; +c_732400.elts[5] = ((closureN)self_73843)->elts[5]; +c_732400.elts[6] = ((closureN)self_73843)->elts[6]; +c_732400.elts[7] = ((closureN)self_73843)->elts[7]; + +return_closcall1(data,(closure)&c_732400, car(((closureN)self_73843)->elts[7])); +} else { + +closureN_type c_732518; +c_732518.hdr.mark = gc_color_red; + c_732518.hdr.grayed = 0; +c_732518.tag = closureN_tag; + c_732518.fn = (function_type)__lambda_277; +c_732518.num_args = 0; +c_732518.num_elt = 1; +c_732518.elts = (object *)alloca(sizeof(object) * 1); +c_732518.elts[0] = ((closureN)self_73843)->elts[3]; + +return_closcall0(data,(closure)&c_732518);} +; +} + +static void __lambda_277(void *data, int argc, object self_73844) { + return_closcall1(data, ((closureN)self_73844)->elts[0], boolean_f);; +} + +static void __lambda_276(void *data, int argc, object self_73845, object r_73448) { + +closureN_type c_732402; +c_732402.hdr.mark = gc_color_red; + c_732402.hdr.grayed = 0; +c_732402.tag = closureN_tag; + c_732402.fn = (function_type)__lambda_275; +c_732402.num_args = 1; +c_732402.num_elt = 7; +c_732402.elts = (object *)alloca(sizeof(object) * 7); +c_732402.elts[0] = ((closureN)self_73845)->elts[0]; +c_732402.elts[1] = ((closureN)self_73845)->elts[1]; +c_732402.elts[2] = ((closureN)self_73845)->elts[3]; +c_732402.elts[3] = ((closureN)self_73845)->elts[4]; +c_732402.elts[4] = ((closureN)self_73845)->elts[5]; +c_732402.elts[5] = ((closureN)self_73845)->elts[6]; +c_732402.elts[6] = ((closureN)self_73845)->elts[7]; + +return_closcall1(data,(closure)&c_732402, Cyc_eq(r_73448, cell_get(((closureN)self_73845)->elts[2])));; +} + +static void __lambda_275(void *data, int argc, object self_73846, object r_73434) { + if( !eq(boolean_f, r_73434) ){ + +closureN_type c_732404; +c_732404.hdr.mark = gc_color_red; + c_732404.hdr.grayed = 0; +c_732404.tag = closureN_tag; + c_732404.fn = (function_type)__lambda_273; +c_732404.num_args = 0; +c_732404.num_elt = 7; +c_732404.elts = (object *)alloca(sizeof(object) * 7); +c_732404.elts[0] = ((closureN)self_73846)->elts[0]; +c_732404.elts[1] = ((closureN)self_73846)->elts[1]; +c_732404.elts[2] = ((closureN)self_73846)->elts[2]; +c_732404.elts[3] = ((closureN)self_73846)->elts[3]; +c_732404.elts[4] = ((closureN)self_73846)->elts[4]; +c_732404.elts[5] = ((closureN)self_73846)->elts[5]; +c_732404.elts[6] = ((closureN)self_73846)->elts[6]; + +return_closcall0(data,(closure)&c_732404); +} else { + +closureN_type c_732506; +c_732506.hdr.mark = gc_color_red; + c_732506.hdr.grayed = 0; +c_732506.tag = closureN_tag; + c_732506.fn = (function_type)__lambda_274; +c_732506.num_args = 0; +c_732506.num_elt = 1; +c_732506.elts = (object *)alloca(sizeof(object) * 1); +c_732506.elts[0] = ((closureN)self_73846)->elts[2]; + +return_closcall0(data,(closure)&c_732506);} +; +} + +static void __lambda_274(void *data, int argc, object self_73847) { + return_closcall1(data, ((closureN)self_73847)->elts[0], boolean_f);; +} + +static void __lambda_273(void *data, int argc, object self_73848) { + +closureN_type c_732406; +c_732406.hdr.mark = gc_color_red; + c_732406.hdr.grayed = 0; +c_732406.tag = closureN_tag; + c_732406.fn = (function_type)__lambda_272; +c_732406.num_args = 1; +c_732406.num_elt = 7; +c_732406.elts = (object *)alloca(sizeof(object) * 7); +c_732406.elts[0] = ((closureN)self_73848)->elts[0]; +c_732406.elts[1] = ((closureN)self_73848)->elts[1]; +c_732406.elts[2] = ((closureN)self_73848)->elts[2]; +c_732406.elts[3] = ((closureN)self_73848)->elts[3]; +c_732406.elts[4] = ((closureN)self_73848)->elts[4]; +c_732406.elts[5] = ((closureN)self_73848)->elts[5]; +c_732406.elts[6] = ((closureN)self_73848)->elts[6]; + +return_closcall1(data,(closure)&c_732406, cadr(((closureN)self_73848)->elts[6]));; +} + +static void __lambda_272(void *data, int argc, object self_73849, object r_73447) { + +closureN_type c_732411; +c_732411.hdr.mark = gc_color_red; + c_732411.hdr.grayed = 0; +c_732411.tag = closureN_tag; + c_732411.fn = (function_type)__lambda_271; +c_732411.num_args = 1; +c_732411.num_elt = 6; +c_732411.elts = (object *)alloca(sizeof(object) * 6); +c_732411.elts[0] = ((closureN)self_73849)->elts[0]; +c_732411.elts[1] = ((closureN)self_73849)->elts[1]; +c_732411.elts[2] = ((closureN)self_73849)->elts[2]; +c_732411.elts[3] = ((closureN)self_73849)->elts[3]; +c_732411.elts[4] = ((closureN)self_73849)->elts[4]; +c_732411.elts[5] = ((closureN)self_73849)->elts[6]; + +return_closcall3(data, cell_get(((closureN)self_73849)->elts[5]), &c_732411, r_73447, ((closureN)self_73849)->elts[4]);; +} + +static void __lambda_271(void *data, int argc, object self_73850, object r_73435) { + if( !eq(boolean_f, r_73435) ){ + +closureN_type c_732413; +c_732413.hdr.mark = gc_color_red; + c_732413.hdr.grayed = 0; +c_732413.tag = closureN_tag; + c_732413.fn = (function_type)__lambda_258; +c_732413.num_args = 0; +c_732413.num_elt = 5; +c_732413.elts = (object *)alloca(sizeof(object) * 5); +c_732413.elts[0] = ((closureN)self_73850)->elts[0]; +c_732413.elts[1] = ((closureN)self_73850)->elts[2]; +c_732413.elts[2] = ((closureN)self_73850)->elts[3]; +c_732413.elts[3] = ((closureN)self_73850)->elts[4]; +c_732413.elts[4] = ((closureN)self_73850)->elts[5]; + +return_closcall0(data,(closure)&c_732413); +} else { + +closureN_type c_732427; +c_732427.hdr.mark = gc_color_red; + c_732427.hdr.grayed = 0; +c_732427.tag = closureN_tag; + c_732427.fn = (function_type)__lambda_270; +c_732427.num_args = 1; +c_732427.num_elt = 6; +c_732427.elts = (object *)alloca(sizeof(object) * 6); +c_732427.elts[0] = ((closureN)self_73850)->elts[0]; +c_732427.elts[1] = ((closureN)self_73850)->elts[1]; +c_732427.elts[2] = ((closureN)self_73850)->elts[2]; +c_732427.elts[3] = ((closureN)self_73850)->elts[3]; +c_732427.elts[4] = ((closureN)self_73850)->elts[4]; +c_732427.elts[5] = ((closureN)self_73850)->elts[5]; + +return_closcall1(data,(closure)&c_732427, cadr(((closureN)self_73850)->elts[5]));} +; +} + +static void __lambda_270(void *data, int argc, object self_73851, object r_73446) { + +closureN_type c_732432; +c_732432.hdr.mark = gc_color_red; + c_732432.hdr.grayed = 0; +c_732432.tag = closureN_tag; + c_732432.fn = (function_type)__lambda_269; +c_732432.num_args = 1; +c_732432.num_elt = 5; +c_732432.elts = (object *)alloca(sizeof(object) * 5); +c_732432.elts[0] = ((closureN)self_73851)->elts[0]; +c_732432.elts[1] = ((closureN)self_73851)->elts[2]; +c_732432.elts[2] = ((closureN)self_73851)->elts[3]; +c_732432.elts[3] = ((closureN)self_73851)->elts[4]; +c_732432.elts[4] = ((closureN)self_73851)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_73851)->elts[1]), &c_732432, r_73446, ((closureN)self_73851)->elts[0]);; +} + +static void __lambda_269(void *data, int argc, object self_73852, object r_73437) { + if( !eq(boolean_f, r_73437) ){ + +closureN_type c_732434; +c_732434.hdr.mark = gc_color_red; + c_732434.hdr.grayed = 0; +c_732434.tag = closureN_tag; + c_732434.fn = (function_type)__lambda_260; +c_732434.num_args = 0; +c_732434.num_elt = 5; +c_732434.elts = (object *)alloca(sizeof(object) * 5); +c_732434.elts[0] = ((closureN)self_73852)->elts[0]; +c_732434.elts[1] = ((closureN)self_73852)->elts[1]; +c_732434.elts[2] = ((closureN)self_73852)->elts[2]; +c_732434.elts[3] = ((closureN)self_73852)->elts[3]; +c_732434.elts[4] = ((closureN)self_73852)->elts[4]; + +return_closcall0(data,(closure)&c_732434); +} else { + +closureN_type c_732448; +c_732448.hdr.mark = gc_color_red; + c_732448.hdr.grayed = 0; +c_732448.tag = closureN_tag; + c_732448.fn = (function_type)__lambda_268; +c_732448.num_args = 0; +c_732448.num_elt = 5; +c_732448.elts = (object *)alloca(sizeof(object) * 5); +c_732448.elts[0] = ((closureN)self_73852)->elts[0]; +c_732448.elts[1] = ((closureN)self_73852)->elts[1]; +c_732448.elts[2] = ((closureN)self_73852)->elts[2]; +c_732448.elts[3] = ((closureN)self_73852)->elts[3]; +c_732448.elts[4] = ((closureN)self_73852)->elts[4]; + +return_closcall0(data,(closure)&c_732448);} +; +} + +static void __lambda_268(void *data, int argc, object self_73853) { + +closureN_type c_732450; +c_732450.hdr.mark = gc_color_red; + c_732450.hdr.grayed = 0; +c_732450.tag = closureN_tag; + c_732450.fn = (function_type)__lambda_267; +c_732450.num_args = 1; +c_732450.num_elt = 5; +c_732450.elts = (object *)alloca(sizeof(object) * 5); +c_732450.elts[0] = ((closureN)self_73853)->elts[0]; +c_732450.elts[1] = ((closureN)self_73853)->elts[1]; +c_732450.elts[2] = ((closureN)self_73853)->elts[2]; +c_732450.elts[3] = ((closureN)self_73853)->elts[3]; +c_732450.elts[4] = ((closureN)self_73853)->elts[4]; + +return_closcall1(data,(closure)&c_732450, caddr(((closureN)self_73853)->elts[4]));; +} + +static void __lambda_267(void *data, int argc, object self_73854, object r_73443) { + +closureN_type c_732452; +c_732452.hdr.mark = gc_color_red; + c_732452.hdr.grayed = 0; +c_732452.tag = closureN_tag; + c_732452.fn = (function_type)__lambda_266; +c_732452.num_args = 1; +c_732452.num_elt = 6; +c_732452.elts = (object *)alloca(sizeof(object) * 6); +c_732452.elts[0] = ((closureN)self_73854)->elts[0]; +c_732452.elts[1] = ((closureN)self_73854)->elts[1]; +c_732452.elts[2] = r_73443; +c_732452.elts[3] = ((closureN)self_73854)->elts[2]; +c_732452.elts[4] = ((closureN)self_73854)->elts[3]; +c_732452.elts[5] = ((closureN)self_73854)->elts[4]; + +return_closcall1(data,(closure)&c_732452, cadr(((closureN)self_73854)->elts[4]));; +} + +static void __lambda_266(void *data, int argc, object self_73855, object r_73445) { + +closureN_type c_732454; +c_732454.hdr.mark = gc_color_red; + c_732454.hdr.grayed = 0; +c_732454.tag = closureN_tag; + c_732454.fn = (function_type)__lambda_265; +c_732454.num_args = 1; +c_732454.num_elt = 6; +c_732454.elts = (object *)alloca(sizeof(object) * 6); +c_732454.elts[0] = ((closureN)self_73855)->elts[0]; +c_732454.elts[1] = ((closureN)self_73855)->elts[1]; +c_732454.elts[2] = ((closureN)self_73855)->elts[2]; +c_732454.elts[3] = ((closureN)self_73855)->elts[3]; +c_732454.elts[4] = ((closureN)self_73855)->elts[4]; +c_732454.elts[5] = ((closureN)self_73855)->elts[5]; + + +make_cons(c_732489,r_73445, ((closureN)self_73855)->elts[4]); +return_closcall1(data,(closure)&c_732454, &c_732489);; +} + +static void __lambda_265(void *data, int argc, object self_73856, object r_73444) { + +closureN_type c_732459; +c_732459.hdr.mark = gc_color_red; + c_732459.hdr.grayed = 0; +c_732459.tag = closureN_tag; + c_732459.fn = (function_type)__lambda_264; +c_732459.num_args = 1; +c_732459.num_elt = 5; +c_732459.elts = (object *)alloca(sizeof(object) * 5); +c_732459.elts[0] = ((closureN)self_73856)->elts[0]; +c_732459.elts[1] = ((closureN)self_73856)->elts[1]; +c_732459.elts[2] = ((closureN)self_73856)->elts[3]; +c_732459.elts[3] = ((closureN)self_73856)->elts[4]; +c_732459.elts[4] = ((closureN)self_73856)->elts[5]; + +return_closcall4(data, cell_get(((closureN)self_73856)->elts[3]), &c_732459, ((closureN)self_73856)->elts[2], r_73444, ((closureN)self_73856)->elts[0]);; +} + +static void __lambda_264(void *data, int argc, object self_73857, object r_73439) { + if( !eq(boolean_f, r_73439) ){ + +closureN_type c_732461; +c_732461.hdr.mark = gc_color_red; + c_732461.hdr.grayed = 0; +c_732461.tag = closureN_tag; + c_732461.fn = (function_type)__lambda_263; +c_732461.num_args = 1; +c_732461.num_elt = 5; +c_732461.elts = (object *)alloca(sizeof(object) * 5); +c_732461.elts[0] = ((closureN)self_73857)->elts[0]; +c_732461.elts[1] = ((closureN)self_73857)->elts[1]; +c_732461.elts[2] = ((closureN)self_73857)->elts[2]; +c_732461.elts[3] = ((closureN)self_73857)->elts[3]; +c_732461.elts[4] = ((closureN)self_73857)->elts[4]; + +return_closcall1(data,(closure)&c_732461, cadddr(((closureN)self_73857)->elts[4])); +} else { + return_closcall1(data, ((closureN)self_73857)->elts[1], boolean_f);} +; +} + +static void __lambda_263(void *data, int argc, object self_73858, object r_73440) { + +closureN_type c_732463; +c_732463.hdr.mark = gc_color_red; + c_732463.hdr.grayed = 0; +c_732463.tag = closureN_tag; + c_732463.fn = (function_type)__lambda_262; +c_732463.num_args = 1; +c_732463.num_elt = 5; +c_732463.elts = (object *)alloca(sizeof(object) * 5); +c_732463.elts[0] = ((closureN)self_73858)->elts[0]; +c_732463.elts[1] = ((closureN)self_73858)->elts[1]; +c_732463.elts[2] = r_73440; +c_732463.elts[3] = ((closureN)self_73858)->elts[2]; +c_732463.elts[4] = ((closureN)self_73858)->elts[3]; + +return_closcall1(data,(closure)&c_732463, cadr(((closureN)self_73858)->elts[4]));; +} + +static void __lambda_262(void *data, int argc, object self_73859, object r_73442) { + +closureN_type c_732465; +c_732465.hdr.mark = gc_color_red; + c_732465.hdr.grayed = 0; +c_732465.tag = closureN_tag; + c_732465.fn = (function_type)__lambda_261; +c_732465.num_args = 1; +c_732465.num_elt = 4; +c_732465.elts = (object *)alloca(sizeof(object) * 4); +c_732465.elts[0] = ((closureN)self_73859)->elts[1]; +c_732465.elts[1] = ((closureN)self_73859)->elts[2]; +c_732465.elts[2] = ((closureN)self_73859)->elts[3]; +c_732465.elts[3] = ((closureN)self_73859)->elts[4]; + + +make_cons(c_732475,r_73442, ((closureN)self_73859)->elts[0]); +return_closcall1(data,(closure)&c_732465, &c_732475);; +} + +static void __lambda_261(void *data, int argc, object self_73860, object r_73441) { + return_closcall4(data, cell_get(((closureN)self_73860)->elts[2]), ((closureN)self_73860)->elts[0], ((closureN)self_73860)->elts[1], ((closureN)self_73860)->elts[3], r_73441);; +} + +static void __lambda_260(void *data, int argc, object self_73861) { + +closureN_type c_732436; +c_732436.hdr.mark = gc_color_red; + c_732436.hdr.grayed = 0; +c_732436.tag = closureN_tag; + c_732436.fn = (function_type)__lambda_259; +c_732436.num_args = 1; +c_732436.num_elt = 4; +c_732436.elts = (object *)alloca(sizeof(object) * 4); +c_732436.elts[0] = ((closureN)self_73861)->elts[0]; +c_732436.elts[1] = ((closureN)self_73861)->elts[1]; +c_732436.elts[2] = ((closureN)self_73861)->elts[2]; +c_732436.elts[3] = ((closureN)self_73861)->elts[3]; + +return_closcall1(data,(closure)&c_732436, cadddr(((closureN)self_73861)->elts[4]));; +} + +static void __lambda_259(void *data, int argc, object self_73862, object r_73438) { + return_closcall4(data, cell_get(((closureN)self_73862)->elts[2]), ((closureN)self_73862)->elts[1], r_73438, ((closureN)self_73862)->elts[3], ((closureN)self_73862)->elts[0]);; +} + +static void __lambda_258(void *data, int argc, object self_73863) { + +closureN_type c_732415; +c_732415.hdr.mark = gc_color_red; + c_732415.hdr.grayed = 0; +c_732415.tag = closureN_tag; + c_732415.fn = (function_type)__lambda_257; +c_732415.num_args = 1; +c_732415.num_elt = 4; +c_732415.elts = (object *)alloca(sizeof(object) * 4); +c_732415.elts[0] = ((closureN)self_73863)->elts[0]; +c_732415.elts[1] = ((closureN)self_73863)->elts[1]; +c_732415.elts[2] = ((closureN)self_73863)->elts[2]; +c_732415.elts[3] = ((closureN)self_73863)->elts[3]; + +return_closcall1(data,(closure)&c_732415, caddr(((closureN)self_73863)->elts[4]));; +} + +static void __lambda_257(void *data, int argc, object self_73864, object r_73436) { + return_closcall4(data, cell_get(((closureN)self_73864)->elts[2]), ((closureN)self_73864)->elts[1], r_73436, ((closureN)self_73864)->elts[3], ((closureN)self_73864)->elts[0]);; +} + +static void __lambda_256(void *data, int argc, object self_73865) { + return_closcall1(data, ((closureN)self_73865)->elts[0], boolean_f);; +} + +static void __lambda_255(void *data, int argc, object self_73866) { + return_closcall1(data, ((closureN)self_73866)->elts[0], boolean_t);; +} + +static void __lambda_254(void *data, int argc, object self_73867, object r_73429) { + +closureN_type c_731567; +c_731567.hdr.mark = gc_color_red; + c_731567.hdr.grayed = 0; +c_731567.tag = closureN_tag; + c_731567.fn = (function_type)__lambda_253; +c_731567.num_args = 1; +c_731567.num_elt = 26; +c_731567.elts = (object *)alloca(sizeof(object) * 26); +c_731567.elts[0] = ((closureN)self_73867)->elts[0]; +c_731567.elts[1] = ((closureN)self_73867)->elts[1]; +c_731567.elts[2] = ((closureN)self_73867)->elts[2]; +c_731567.elts[3] = ((closureN)self_73867)->elts[3]; +c_731567.elts[4] = ((closureN)self_73867)->elts[4]; +c_731567.elts[5] = ((closureN)self_73867)->elts[5]; +c_731567.elts[6] = ((closureN)self_73867)->elts[6]; +c_731567.elts[7] = ((closureN)self_73867)->elts[7]; +c_731567.elts[8] = ((closureN)self_73867)->elts[8]; +c_731567.elts[9] = ((closureN)self_73867)->elts[9]; +c_731567.elts[10] = ((closureN)self_73867)->elts[10]; +c_731567.elts[11] = ((closureN)self_73867)->elts[11]; +c_731567.elts[12] = ((closureN)self_73867)->elts[12]; +c_731567.elts[13] = ((closureN)self_73867)->elts[13]; +c_731567.elts[14] = ((closureN)self_73867)->elts[14]; +c_731567.elts[15] = ((closureN)self_73867)->elts[15]; +c_731567.elts[16] = ((closureN)self_73867)->elts[17]; +c_731567.elts[17] = ((closureN)self_73867)->elts[18]; +c_731567.elts[18] = ((closureN)self_73867)->elts[19]; +c_731567.elts[19] = ((closureN)self_73867)->elts[20]; +c_731567.elts[20] = ((closureN)self_73867)->elts[21]; +c_731567.elts[21] = ((closureN)self_73867)->elts[22]; +c_731567.elts[22] = ((closureN)self_73867)->elts[23]; +c_731567.elts[23] = ((closureN)self_73867)->elts[24]; +c_731567.elts[24] = ((closureN)self_73867)->elts[25]; +c_731567.elts[25] = ((closureN)self_73867)->elts[26]; + +return_closcall1(data,(closure)&c_731567, Cyc_set_car(data, ((closureN)self_73867)->elts[16], r_73429));; +} + +static void __lambda_253(void *data, int argc, object self_73868, object r_73285) { + +closureN_type c_731569; +c_731569.hdr.mark = gc_color_red; + c_731569.hdr.grayed = 0; +c_731569.tag = closureN_tag; + c_731569.fn = (function_type)__lambda_252; +c_731569.num_args = 1; +c_731569.num_elt = 26; +c_731569.elts = (object *)alloca(sizeof(object) * 26); +c_731569.elts[0] = ((closureN)self_73868)->elts[0]; +c_731569.elts[1] = ((closureN)self_73868)->elts[1]; +c_731569.elts[2] = ((closureN)self_73868)->elts[2]; +c_731569.elts[3] = ((closureN)self_73868)->elts[3]; +c_731569.elts[4] = ((closureN)self_73868)->elts[4]; +c_731569.elts[5] = ((closureN)self_73868)->elts[5]; +c_731569.elts[6] = ((closureN)self_73868)->elts[6]; +c_731569.elts[7] = ((closureN)self_73868)->elts[7]; +c_731569.elts[8] = ((closureN)self_73868)->elts[8]; +c_731569.elts[9] = ((closureN)self_73868)->elts[9]; +c_731569.elts[10] = ((closureN)self_73868)->elts[10]; +c_731569.elts[11] = ((closureN)self_73868)->elts[11]; +c_731569.elts[12] = ((closureN)self_73868)->elts[12]; +c_731569.elts[13] = ((closureN)self_73868)->elts[13]; +c_731569.elts[14] = ((closureN)self_73868)->elts[14]; +c_731569.elts[15] = ((closureN)self_73868)->elts[15]; +c_731569.elts[16] = ((closureN)self_73868)->elts[16]; +c_731569.elts[17] = ((closureN)self_73868)->elts[17]; +c_731569.elts[18] = ((closureN)self_73868)->elts[18]; +c_731569.elts[19] = ((closureN)self_73868)->elts[19]; +c_731569.elts[20] = ((closureN)self_73868)->elts[20]; +c_731569.elts[21] = ((closureN)self_73868)->elts[21]; +c_731569.elts[22] = ((closureN)self_73868)->elts[22]; +c_731569.elts[23] = ((closureN)self_73868)->elts[23]; +c_731569.elts[24] = ((closureN)self_73868)->elts[24]; +c_731569.elts[25] = ((closureN)self_73868)->elts[25]; + +return_closcall1(data,(closure)&c_731569, quote__85);; +} + +static void __lambda_252(void *data, int argc, object self_73869, object r_73428) { + +closureN_type c_731571; +c_731571.hdr.mark = gc_color_red; + c_731571.hdr.grayed = 0; +c_731571.tag = closureN_tag; + c_731571.fn = (function_type)__lambda_251; +c_731571.num_args = 1; +c_731571.num_elt = 26; +c_731571.elts = (object *)alloca(sizeof(object) * 26); +c_731571.elts[0] = ((closureN)self_73869)->elts[0]; +c_731571.elts[1] = ((closureN)self_73869)->elts[1]; +c_731571.elts[2] = ((closureN)self_73869)->elts[2]; +c_731571.elts[3] = ((closureN)self_73869)->elts[3]; +c_731571.elts[4] = ((closureN)self_73869)->elts[4]; +c_731571.elts[5] = ((closureN)self_73869)->elts[5]; +c_731571.elts[6] = ((closureN)self_73869)->elts[6]; +c_731571.elts[7] = ((closureN)self_73869)->elts[7]; +c_731571.elts[8] = ((closureN)self_73869)->elts[8]; +c_731571.elts[9] = ((closureN)self_73869)->elts[9]; +c_731571.elts[10] = ((closureN)self_73869)->elts[10]; +c_731571.elts[11] = ((closureN)self_73869)->elts[11]; +c_731571.elts[12] = ((closureN)self_73869)->elts[12]; +c_731571.elts[13] = ((closureN)self_73869)->elts[13]; +c_731571.elts[14] = ((closureN)self_73869)->elts[14]; +c_731571.elts[15] = ((closureN)self_73869)->elts[15]; +c_731571.elts[16] = ((closureN)self_73869)->elts[16]; +c_731571.elts[17] = ((closureN)self_73869)->elts[17]; +c_731571.elts[18] = ((closureN)self_73869)->elts[18]; +c_731571.elts[19] = ((closureN)self_73869)->elts[19]; +c_731571.elts[20] = ((closureN)self_73869)->elts[20]; +c_731571.elts[21] = ((closureN)self_73869)->elts[21]; +c_731571.elts[22] = ((closureN)self_73869)->elts[22]; +c_731571.elts[23] = ((closureN)self_73869)->elts[23]; +c_731571.elts[24] = ((closureN)self_73869)->elts[24]; +c_731571.elts[25] = ((closureN)self_73869)->elts[25]; + +return_closcall1(data,(closure)&c_731571, Cyc_set_car(data, ((closureN)self_73869)->elts[5], r_73428));; +} + +static void __lambda_251(void *data, int argc, object self_73870, object r_73286) { + +closureN_type c_731573; +c_731573.hdr.mark = gc_color_red; + c_731573.hdr.grayed = 0; +c_731573.tag = closureN_tag; + c_731573.fn = (function_type)__lambda_250; +c_731573.num_args = 1; +c_731573.num_elt = 26; +c_731573.elts = (object *)alloca(sizeof(object) * 26); +c_731573.elts[0] = ((closureN)self_73870)->elts[0]; +c_731573.elts[1] = ((closureN)self_73870)->elts[1]; +c_731573.elts[2] = ((closureN)self_73870)->elts[2]; +c_731573.elts[3] = ((closureN)self_73870)->elts[3]; +c_731573.elts[4] = ((closureN)self_73870)->elts[4]; +c_731573.elts[5] = ((closureN)self_73870)->elts[5]; +c_731573.elts[6] = ((closureN)self_73870)->elts[6]; +c_731573.elts[7] = ((closureN)self_73870)->elts[7]; +c_731573.elts[8] = ((closureN)self_73870)->elts[8]; +c_731573.elts[9] = ((closureN)self_73870)->elts[9]; +c_731573.elts[10] = ((closureN)self_73870)->elts[10]; +c_731573.elts[11] = ((closureN)self_73870)->elts[11]; +c_731573.elts[12] = ((closureN)self_73870)->elts[12]; +c_731573.elts[13] = ((closureN)self_73870)->elts[13]; +c_731573.elts[14] = ((closureN)self_73870)->elts[14]; +c_731573.elts[15] = ((closureN)self_73870)->elts[15]; +c_731573.elts[16] = ((closureN)self_73870)->elts[16]; +c_731573.elts[17] = ((closureN)self_73870)->elts[17]; +c_731573.elts[18] = ((closureN)self_73870)->elts[18]; +c_731573.elts[19] = ((closureN)self_73870)->elts[19]; +c_731573.elts[20] = ((closureN)self_73870)->elts[20]; +c_731573.elts[21] = ((closureN)self_73870)->elts[21]; +c_731573.elts[22] = ((closureN)self_73870)->elts[22]; +c_731573.elts[23] = ((closureN)self_73870)->elts[23]; +c_731573.elts[24] = ((closureN)self_73870)->elts[24]; +c_731573.elts[25] = ((closureN)self_73870)->elts[25]; + +return_closcall1(data,(closure)&c_731573, Cyc_set_car(data, ((closureN)self_73870)->elts[11], obj_int2obj(0)));; +} + +static void __lambda_250(void *data, int argc, object self_73871, object r_73287) { + +closureN_type c_731575; +c_731575.hdr.mark = gc_color_red; + c_731575.hdr.grayed = 0; +c_731575.tag = closureN_tag; + c_731575.fn = (function_type)__lambda_237; +c_731575.num_args = 1; +c_731575.num_elt = 25; +c_731575.elts = (object *)alloca(sizeof(object) * 25); +c_731575.elts[0] = ((closureN)self_73871)->elts[0]; +c_731575.elts[1] = ((closureN)self_73871)->elts[1]; +c_731575.elts[2] = ((closureN)self_73871)->elts[2]; +c_731575.elts[3] = ((closureN)self_73871)->elts[3]; +c_731575.elts[4] = ((closureN)self_73871)->elts[5]; +c_731575.elts[5] = ((closureN)self_73871)->elts[6]; +c_731575.elts[6] = ((closureN)self_73871)->elts[7]; +c_731575.elts[7] = ((closureN)self_73871)->elts[8]; +c_731575.elts[8] = ((closureN)self_73871)->elts[9]; +c_731575.elts[9] = ((closureN)self_73871)->elts[10]; +c_731575.elts[10] = ((closureN)self_73871)->elts[11]; +c_731575.elts[11] = ((closureN)self_73871)->elts[12]; +c_731575.elts[12] = ((closureN)self_73871)->elts[13]; +c_731575.elts[13] = ((closureN)self_73871)->elts[14]; +c_731575.elts[14] = ((closureN)self_73871)->elts[15]; +c_731575.elts[15] = ((closureN)self_73871)->elts[16]; +c_731575.elts[16] = ((closureN)self_73871)->elts[17]; +c_731575.elts[17] = ((closureN)self_73871)->elts[18]; +c_731575.elts[18] = ((closureN)self_73871)->elts[19]; +c_731575.elts[19] = ((closureN)self_73871)->elts[20]; +c_731575.elts[20] = ((closureN)self_73871)->elts[21]; +c_731575.elts[21] = ((closureN)self_73871)->elts[22]; +c_731575.elts[22] = ((closureN)self_73871)->elts[23]; +c_731575.elts[23] = ((closureN)self_73871)->elts[24]; +c_731575.elts[24] = ((closureN)self_73871)->elts[25]; + + +closureN_type c_732306; +c_732306.hdr.mark = gc_color_red; + c_732306.hdr.grayed = 0; +c_732306.tag = closureN_tag; + c_732306.fn = (function_type)__lambda_249; +c_732306.num_args = 1; +c_732306.num_elt = 4; +c_732306.elts = (object *)alloca(sizeof(object) * 4); +c_732306.elts[0] = ((closureN)self_73871)->elts[4]; +c_732306.elts[1] = ((closureN)self_73871)->elts[10]; +c_732306.elts[2] = ((closureN)self_73871)->elts[11]; +c_732306.elts[3] = ((closureN)self_73871)->elts[12]; + +return_closcall1(data,(closure)&c_731575, &c_732306);; +} + +static void __lambda_249(void *data, int argc, object self_73872, object k_73418, object term_73186) { + +closureN_type c_732308; +c_732308.hdr.mark = gc_color_red; + c_732308.hdr.grayed = 0; +c_732308.tag = closureN_tag; + c_732308.fn = (function_type)__lambda_248; +c_732308.num_args = 1; +c_732308.num_elt = 6; +c_732308.elts = (object *)alloca(sizeof(object) * 6); +c_732308.elts[0] = ((closureN)self_73872)->elts[0]; +c_732308.elts[1] = k_73418; +c_732308.elts[2] = ((closureN)self_73872)->elts[1]; +c_732308.elts[3] = ((closureN)self_73872)->elts[2]; +c_732308.elts[4] = ((closureN)self_73872)->elts[3]; +c_732308.elts[5] = term_73186; + + +object c_732365 = Cyc_sum(data,(closure)&c_732308,2,cell_get(((closureN)self_73872)->elts[2]), obj_int2obj(1)); +return_closcall1(data,(closure)&c_732308, c_732365);; +} + +static void __lambda_248(void *data, int argc, object self_73873, object r_73427) { + +closureN_type c_732310; +c_732310.hdr.mark = gc_color_red; + c_732310.hdr.grayed = 0; +c_732310.tag = closureN_tag; + c_732310.fn = (function_type)__lambda_247; +c_732310.num_args = 1; +c_732310.num_elt = 5; +c_732310.elts = (object *)alloca(sizeof(object) * 5); +c_732310.elts[0] = ((closureN)self_73873)->elts[0]; +c_732310.elts[1] = ((closureN)self_73873)->elts[1]; +c_732310.elts[2] = ((closureN)self_73873)->elts[2]; +c_732310.elts[3] = ((closureN)self_73873)->elts[4]; +c_732310.elts[4] = ((closureN)self_73873)->elts[5]; + +return_closcall1(data,(closure)&c_732310, Cyc_set_car(data, ((closureN)self_73873)->elts[3], r_73427));; +} + +static void __lambda_247(void *data, int argc, object self_73874, object r_73419) { + +closureN_type c_732312; +c_732312.hdr.mark = gc_color_red; + c_732312.hdr.grayed = 0; +c_732312.tag = closureN_tag; + c_732312.fn = (function_type)__lambda_246; +c_732312.num_args = 1; +c_732312.num_elt = 5; +c_732312.elts = (object *)alloca(sizeof(object) * 5); +c_732312.elts[0] = ((closureN)self_73874)->elts[0]; +c_732312.elts[1] = ((closureN)self_73874)->elts[1]; +c_732312.elts[2] = ((closureN)self_73874)->elts[2]; +c_732312.elts[3] = ((closureN)self_73874)->elts[3]; +c_732312.elts[4] = ((closureN)self_73874)->elts[4]; + +return_closcall1(data,(closure)&c_732312, Cyc_is_cons(((closureN)self_73874)->elts[4]));; +} + +static void __lambda_246(void *data, int argc, object self_73875, object r_73420) { + if( !eq(boolean_f, r_73420) ){ + +closureN_type c_732314; +c_732314.hdr.mark = gc_color_red; + c_732314.hdr.grayed = 0; +c_732314.tag = closureN_tag; + c_732314.fn = (function_type)__lambda_244; +c_732314.num_args = 0; +c_732314.num_elt = 5; +c_732314.elts = (object *)alloca(sizeof(object) * 5); +c_732314.elts[0] = ((closureN)self_73875)->elts[0]; +c_732314.elts[1] = ((closureN)self_73875)->elts[1]; +c_732314.elts[2] = ((closureN)self_73875)->elts[2]; +c_732314.elts[3] = ((closureN)self_73875)->elts[3]; +c_732314.elts[4] = ((closureN)self_73875)->elts[4]; + +return_closcall0(data,(closure)&c_732314); +} else { + +closureN_type c_732353; +c_732353.hdr.mark = gc_color_red; + c_732353.hdr.grayed = 0; +c_732353.tag = closureN_tag; + c_732353.fn = (function_type)__lambda_245; +c_732353.num_args = 0; +c_732353.num_elt = 2; +c_732353.elts = (object *)alloca(sizeof(object) * 2); +c_732353.elts[0] = ((closureN)self_73875)->elts[1]; +c_732353.elts[1] = ((closureN)self_73875)->elts[4]; + +return_closcall0(data,(closure)&c_732353);} +; +} + +static void __lambda_245(void *data, int argc, object self_73876) { + return_closcall1(data, ((closureN)self_73876)->elts[0], ((closureN)self_73876)->elts[1]);; +} + +static void __lambda_244(void *data, int argc, object self_73877) { + +closureN_type c_732316; +c_732316.hdr.mark = gc_color_red; + c_732316.hdr.grayed = 0; +c_732316.tag = closureN_tag; + c_732316.fn = (function_type)__lambda_243; +c_732316.num_args = 1; +c_732316.num_elt = 5; +c_732316.elts = (object *)alloca(sizeof(object) * 5); +c_732316.elts[0] = ((closureN)self_73877)->elts[0]; +c_732316.elts[1] = ((closureN)self_73877)->elts[1]; +c_732316.elts[2] = ((closureN)self_73877)->elts[2]; +c_732316.elts[3] = ((closureN)self_73877)->elts[3]; +c_732316.elts[4] = ((closureN)self_73877)->elts[4]; + +return_closcall1(data,(closure)&c_732316, car(((closureN)self_73877)->elts[4]));; +} + +static void __lambda_243(void *data, int argc, object self_73878, object r_73424) { + +closureN_type c_732318; +c_732318.hdr.mark = gc_color_red; + c_732318.hdr.grayed = 0; +c_732318.tag = closureN_tag; + c_732318.fn = (function_type)__lambda_242; +c_732318.num_args = 1; +c_732318.num_elt = 6; +c_732318.elts = (object *)alloca(sizeof(object) * 6); +c_732318.elts[0] = ((closureN)self_73878)->elts[0]; +c_732318.elts[1] = ((closureN)self_73878)->elts[1]; +c_732318.elts[2] = r_73424; +c_732318.elts[3] = ((closureN)self_73878)->elts[2]; +c_732318.elts[4] = ((closureN)self_73878)->elts[3]; +c_732318.elts[5] = ((closureN)self_73878)->elts[4]; + +return_closcall1(data,(closure)&c_732318, cdr(((closureN)self_73878)->elts[4]));; +} + +static void __lambda_242(void *data, int argc, object self_73879, object r_73426) { + +closureN_type c_732323; +c_732323.hdr.mark = gc_color_red; + c_732323.hdr.grayed = 0; +c_732323.tag = closureN_tag; + c_732323.fn = (function_type)__lambda_241; +c_732323.num_args = 1; +c_732323.num_elt = 5; +c_732323.elts = (object *)alloca(sizeof(object) * 5); +c_732323.elts[0] = ((closureN)self_73879)->elts[0]; +c_732323.elts[1] = ((closureN)self_73879)->elts[1]; +c_732323.elts[2] = ((closureN)self_73879)->elts[2]; +c_732323.elts[3] = ((closureN)self_73879)->elts[4]; +c_732323.elts[4] = ((closureN)self_73879)->elts[5]; + +return_closcall2(data, cell_get(((closureN)self_73879)->elts[3]), &c_732323, r_73426);; +} + +static void __lambda_241(void *data, int argc, object self_73880, object r_73425) { + +closureN_type c_732325; +c_732325.hdr.mark = gc_color_red; + c_732325.hdr.grayed = 0; +c_732325.tag = closureN_tag; + c_732325.fn = (function_type)__lambda_240; +c_732325.num_args = 1; +c_732325.num_elt = 4; +c_732325.elts = (object *)alloca(sizeof(object) * 4); +c_732325.elts[0] = ((closureN)self_73880)->elts[0]; +c_732325.elts[1] = ((closureN)self_73880)->elts[1]; +c_732325.elts[2] = ((closureN)self_73880)->elts[3]; +c_732325.elts[3] = ((closureN)self_73880)->elts[4]; + + +make_cons(c_732344,((closureN)self_73880)->elts[2], r_73425); +return_closcall1(data,(closure)&c_732325, &c_732344);; +} + +static void __lambda_240(void *data, int argc, object self_73881, object r_73421) { + +closureN_type c_732327; +c_732327.hdr.mark = gc_color_red; + c_732327.hdr.grayed = 0; +c_732327.tag = closureN_tag; + c_732327.fn = (function_type)__lambda_239; +c_732327.num_args = 1; +c_732327.num_elt = 4; +c_732327.elts = (object *)alloca(sizeof(object) * 4); +c_732327.elts[0] = ((closureN)self_73881)->elts[0]; +c_732327.elts[1] = ((closureN)self_73881)->elts[1]; +c_732327.elts[2] = r_73421; +c_732327.elts[3] = ((closureN)self_73881)->elts[2]; + +return_closcall1(data,(closure)&c_732327, car(((closureN)self_73881)->elts[3]));; +} + +static void __lambda_239(void *data, int argc, object self_73882, object r_73423) { + +closureN_type c_732332; +c_732332.hdr.mark = gc_color_red; + c_732332.hdr.grayed = 0; +c_732332.tag = closureN_tag; + c_732332.fn = (function_type)__lambda_238; +c_732332.num_args = 1; +c_732332.num_elt = 3; +c_732332.elts = (object *)alloca(sizeof(object) * 3); +c_732332.elts[0] = ((closureN)self_73882)->elts[1]; +c_732332.elts[1] = ((closureN)self_73882)->elts[2]; +c_732332.elts[2] = ((closureN)self_73882)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73882)->elts[0]), &c_732332, r_73423);; +} + +static void __lambda_238(void *data, int argc, object self_73883, object r_73422) { + return_closcall3(data, cell_get(((closureN)self_73883)->elts[2]), ((closureN)self_73883)->elts[0], ((closureN)self_73883)->elts[1], r_73422);; +} + +static void __lambda_237(void *data, int argc, object self_73884, object r_73417) { + +closureN_type c_731577; +c_731577.hdr.mark = gc_color_red; + c_731577.hdr.grayed = 0; +c_731577.tag = closureN_tag; + c_731577.fn = (function_type)__lambda_236; +c_731577.num_args = 1; +c_731577.num_elt = 25; +c_731577.elts = (object *)alloca(sizeof(object) * 25); +c_731577.elts[0] = ((closureN)self_73884)->elts[0]; +c_731577.elts[1] = ((closureN)self_73884)->elts[1]; +c_731577.elts[2] = ((closureN)self_73884)->elts[2]; +c_731577.elts[3] = ((closureN)self_73884)->elts[3]; +c_731577.elts[4] = ((closureN)self_73884)->elts[4]; +c_731577.elts[5] = ((closureN)self_73884)->elts[5]; +c_731577.elts[6] = ((closureN)self_73884)->elts[6]; +c_731577.elts[7] = ((closureN)self_73884)->elts[7]; +c_731577.elts[8] = ((closureN)self_73884)->elts[8]; +c_731577.elts[9] = ((closureN)self_73884)->elts[9]; +c_731577.elts[10] = ((closureN)self_73884)->elts[10]; +c_731577.elts[11] = ((closureN)self_73884)->elts[11]; +c_731577.elts[12] = ((closureN)self_73884)->elts[12]; +c_731577.elts[13] = ((closureN)self_73884)->elts[13]; +c_731577.elts[14] = ((closureN)self_73884)->elts[14]; +c_731577.elts[15] = ((closureN)self_73884)->elts[15]; +c_731577.elts[16] = ((closureN)self_73884)->elts[16]; +c_731577.elts[17] = ((closureN)self_73884)->elts[17]; +c_731577.elts[18] = ((closureN)self_73884)->elts[18]; +c_731577.elts[19] = ((closureN)self_73884)->elts[19]; +c_731577.elts[20] = ((closureN)self_73884)->elts[20]; +c_731577.elts[21] = ((closureN)self_73884)->elts[21]; +c_731577.elts[22] = ((closureN)self_73884)->elts[22]; +c_731577.elts[23] = ((closureN)self_73884)->elts[23]; +c_731577.elts[24] = ((closureN)self_73884)->elts[24]; + +return_closcall1(data,(closure)&c_731577, Cyc_set_car(data, ((closureN)self_73884)->elts[8], r_73417));; +} + +static void __lambda_236(void *data, int argc, object self_73885, object r_73288) { + +closureN_type c_731579; +c_731579.hdr.mark = gc_color_red; + c_731579.hdr.grayed = 0; +c_731579.tag = closureN_tag; + c_731579.fn = (function_type)__lambda_227; +c_731579.num_args = 1; +c_731579.num_elt = 25; +c_731579.elts = (object *)alloca(sizeof(object) * 25); +c_731579.elts[0] = ((closureN)self_73885)->elts[0]; +c_731579.elts[1] = ((closureN)self_73885)->elts[1]; +c_731579.elts[2] = ((closureN)self_73885)->elts[2]; +c_731579.elts[3] = ((closureN)self_73885)->elts[3]; +c_731579.elts[4] = ((closureN)self_73885)->elts[4]; +c_731579.elts[5] = ((closureN)self_73885)->elts[5]; +c_731579.elts[6] = ((closureN)self_73885)->elts[6]; +c_731579.elts[7] = ((closureN)self_73885)->elts[7]; +c_731579.elts[8] = ((closureN)self_73885)->elts[8]; +c_731579.elts[9] = ((closureN)self_73885)->elts[9]; +c_731579.elts[10] = ((closureN)self_73885)->elts[10]; +c_731579.elts[11] = ((closureN)self_73885)->elts[11]; +c_731579.elts[12] = ((closureN)self_73885)->elts[12]; +c_731579.elts[13] = ((closureN)self_73885)->elts[13]; +c_731579.elts[14] = ((closureN)self_73885)->elts[14]; +c_731579.elts[15] = ((closureN)self_73885)->elts[15]; +c_731579.elts[16] = ((closureN)self_73885)->elts[16]; +c_731579.elts[17] = ((closureN)self_73885)->elts[17]; +c_731579.elts[18] = ((closureN)self_73885)->elts[18]; +c_731579.elts[19] = ((closureN)self_73885)->elts[19]; +c_731579.elts[20] = ((closureN)self_73885)->elts[20]; +c_731579.elts[21] = ((closureN)self_73885)->elts[21]; +c_731579.elts[22] = ((closureN)self_73885)->elts[22]; +c_731579.elts[23] = ((closureN)self_73885)->elts[23]; +c_731579.elts[24] = ((closureN)self_73885)->elts[24]; + + +closureN_type c_732266; +c_732266.hdr.mark = gc_color_red; + c_732266.hdr.grayed = 0; +c_732266.tag = closureN_tag; + c_732266.fn = (function_type)__lambda_235; +c_732266.num_args = 1; +c_732266.num_elt = 2; +c_732266.elts = (object *)alloca(sizeof(object) * 2); +c_732266.elts[0] = ((closureN)self_73885)->elts[8]; +c_732266.elts[1] = ((closureN)self_73885)->elts[9]; + +return_closcall1(data,(closure)&c_731579, &c_732266);; +} + +static void __lambda_235(void *data, int argc, object self_73886, object k_73411, object lst_73185) { + +closureN_type c_732268; +c_732268.hdr.mark = gc_color_red; + c_732268.hdr.grayed = 0; +c_732268.tag = closureN_tag; + c_732268.fn = (function_type)__lambda_234; +c_732268.num_args = 1; +c_732268.num_elt = 4; +c_732268.elts = (object *)alloca(sizeof(object) * 4); +c_732268.elts[0] = k_73411; +c_732268.elts[1] = lst_73185; +c_732268.elts[2] = ((closureN)self_73886)->elts[0]; +c_732268.elts[3] = ((closureN)self_73886)->elts[1]; + +return_closcall1(data,(closure)&c_732268, Cyc_is_null(lst_73185));; +} + +static void __lambda_234(void *data, int argc, object self_73887, object r_73412) { + if( !eq(boolean_f, r_73412) ){ + +closureN_type c_732270; +c_732270.hdr.mark = gc_color_red; + c_732270.hdr.grayed = 0; +c_732270.tag = closureN_tag; + c_732270.fn = (function_type)__lambda_228; +c_732270.num_args = 0; +c_732270.num_elt = 1; +c_732270.elts = (object *)alloca(sizeof(object) * 1); +c_732270.elts[0] = ((closureN)self_73887)->elts[0]; + +return_closcall0(data,(closure)&c_732270); +} else { + +closureN_type c_732274; +c_732274.hdr.mark = gc_color_red; + c_732274.hdr.grayed = 0; +c_732274.tag = closureN_tag; + c_732274.fn = (function_type)__lambda_233; +c_732274.num_args = 0; +c_732274.num_elt = 4; +c_732274.elts = (object *)alloca(sizeof(object) * 4); +c_732274.elts[0] = ((closureN)self_73887)->elts[0]; +c_732274.elts[1] = ((closureN)self_73887)->elts[1]; +c_732274.elts[2] = ((closureN)self_73887)->elts[2]; +c_732274.elts[3] = ((closureN)self_73887)->elts[3]; + +return_closcall0(data,(closure)&c_732274);} +; +} + +static void __lambda_233(void *data, int argc, object self_73888) { + +closureN_type c_732276; +c_732276.hdr.mark = gc_color_red; + c_732276.hdr.grayed = 0; +c_732276.tag = closureN_tag; + c_732276.fn = (function_type)__lambda_232; +c_732276.num_args = 1; +c_732276.num_elt = 4; +c_732276.elts = (object *)alloca(sizeof(object) * 4); +c_732276.elts[0] = ((closureN)self_73888)->elts[0]; +c_732276.elts[1] = ((closureN)self_73888)->elts[1]; +c_732276.elts[2] = ((closureN)self_73888)->elts[2]; +c_732276.elts[3] = ((closureN)self_73888)->elts[3]; + +return_closcall1(data,(closure)&c_732276, car(((closureN)self_73888)->elts[1]));; +} + +static void __lambda_232(void *data, int argc, object self_73889, object r_73416) { + +closureN_type c_732281; +c_732281.hdr.mark = gc_color_red; + c_732281.hdr.grayed = 0; +c_732281.tag = closureN_tag; + c_732281.fn = (function_type)__lambda_231; +c_732281.num_args = 1; +c_732281.num_elt = 3; +c_732281.elts = (object *)alloca(sizeof(object) * 3); +c_732281.elts[0] = ((closureN)self_73889)->elts[0]; +c_732281.elts[1] = ((closureN)self_73889)->elts[1]; +c_732281.elts[2] = ((closureN)self_73889)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73889)->elts[2]), &c_732281, r_73416);; +} + +static void __lambda_231(void *data, int argc, object self_73890, object r_73413) { + +closureN_type c_732283; +c_732283.hdr.mark = gc_color_red; + c_732283.hdr.grayed = 0; +c_732283.tag = closureN_tag; + c_732283.fn = (function_type)__lambda_230; +c_732283.num_args = 1; +c_732283.num_elt = 3; +c_732283.elts = (object *)alloca(sizeof(object) * 3); +c_732283.elts[0] = ((closureN)self_73890)->elts[0]; +c_732283.elts[1] = r_73413; +c_732283.elts[2] = ((closureN)self_73890)->elts[2]; + +return_closcall1(data,(closure)&c_732283, cdr(((closureN)self_73890)->elts[1]));; +} + +static void __lambda_230(void *data, int argc, object self_73891, object r_73415) { + +closureN_type c_732288; +c_732288.hdr.mark = gc_color_red; + c_732288.hdr.grayed = 0; +c_732288.tag = closureN_tag; + c_732288.fn = (function_type)__lambda_229; +c_732288.num_args = 1; +c_732288.num_elt = 2; +c_732288.elts = (object *)alloca(sizeof(object) * 2); +c_732288.elts[0] = ((closureN)self_73891)->elts[0]; +c_732288.elts[1] = ((closureN)self_73891)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73891)->elts[2]), &c_732288, r_73415);; +} + +static void __lambda_229(void *data, int argc, object self_73892, object r_73414) { + +make_cons(c_732293,((closureN)self_73892)->elts[1], r_73414); +return_closcall1(data, ((closureN)self_73892)->elts[0], &c_732293);; +} + +static void __lambda_228(void *data, int argc, object self_73893) { + return_closcall1(data, ((closureN)self_73893)->elts[0], nil);; +} + +static void __lambda_227(void *data, int argc, object self_73894, object r_73410) { + +closureN_type c_731581; +c_731581.hdr.mark = gc_color_red; + c_731581.hdr.grayed = 0; +c_731581.tag = closureN_tag; + c_731581.fn = (function_type)__lambda_226; +c_731581.num_args = 1; +c_731581.num_elt = 24; +c_731581.elts = (object *)alloca(sizeof(object) * 24); +c_731581.elts[0] = ((closureN)self_73894)->elts[0]; +c_731581.elts[1] = ((closureN)self_73894)->elts[1]; +c_731581.elts[2] = ((closureN)self_73894)->elts[2]; +c_731581.elts[3] = ((closureN)self_73894)->elts[3]; +c_731581.elts[4] = ((closureN)self_73894)->elts[4]; +c_731581.elts[5] = ((closureN)self_73894)->elts[5]; +c_731581.elts[6] = ((closureN)self_73894)->elts[6]; +c_731581.elts[7] = ((closureN)self_73894)->elts[7]; +c_731581.elts[8] = ((closureN)self_73894)->elts[8]; +c_731581.elts[9] = ((closureN)self_73894)->elts[10]; +c_731581.elts[10] = ((closureN)self_73894)->elts[11]; +c_731581.elts[11] = ((closureN)self_73894)->elts[12]; +c_731581.elts[12] = ((closureN)self_73894)->elts[13]; +c_731581.elts[13] = ((closureN)self_73894)->elts[14]; +c_731581.elts[14] = ((closureN)self_73894)->elts[15]; +c_731581.elts[15] = ((closureN)self_73894)->elts[16]; +c_731581.elts[16] = ((closureN)self_73894)->elts[17]; +c_731581.elts[17] = ((closureN)self_73894)->elts[18]; +c_731581.elts[18] = ((closureN)self_73894)->elts[19]; +c_731581.elts[19] = ((closureN)self_73894)->elts[20]; +c_731581.elts[20] = ((closureN)self_73894)->elts[21]; +c_731581.elts[21] = ((closureN)self_73894)->elts[22]; +c_731581.elts[22] = ((closureN)self_73894)->elts[23]; +c_731581.elts[23] = ((closureN)self_73894)->elts[24]; + +return_closcall1(data,(closure)&c_731581, Cyc_set_car(data, ((closureN)self_73894)->elts[9], r_73410));; +} + +static void __lambda_226(void *data, int argc, object self_73895, object r_73289) { + +closureN_type c_731583; +c_731583.hdr.mark = gc_color_red; + c_731583.hdr.grayed = 0; +c_731583.tag = closureN_tag; + c_731583.fn = (function_type)__lambda_213; +c_731583.num_args = 1; +c_731583.num_elt = 22; +c_731583.elts = (object *)alloca(sizeof(object) * 22); +c_731583.elts[0] = ((closureN)self_73895)->elts[0]; +c_731583.elts[1] = ((closureN)self_73895)->elts[2]; +c_731583.elts[2] = ((closureN)self_73895)->elts[3]; +c_731583.elts[3] = ((closureN)self_73895)->elts[4]; +c_731583.elts[4] = ((closureN)self_73895)->elts[5]; +c_731583.elts[5] = ((closureN)self_73895)->elts[6]; +c_731583.elts[6] = ((closureN)self_73895)->elts[7]; +c_731583.elts[7] = ((closureN)self_73895)->elts[9]; +c_731583.elts[8] = ((closureN)self_73895)->elts[10]; +c_731583.elts[9] = ((closureN)self_73895)->elts[11]; +c_731583.elts[10] = ((closureN)self_73895)->elts[12]; +c_731583.elts[11] = ((closureN)self_73895)->elts[13]; +c_731583.elts[12] = ((closureN)self_73895)->elts[14]; +c_731583.elts[13] = ((closureN)self_73895)->elts[15]; +c_731583.elts[14] = ((closureN)self_73895)->elts[16]; +c_731583.elts[15] = ((closureN)self_73895)->elts[17]; +c_731583.elts[16] = ((closureN)self_73895)->elts[18]; +c_731583.elts[17] = ((closureN)self_73895)->elts[19]; +c_731583.elts[18] = ((closureN)self_73895)->elts[20]; +c_731583.elts[19] = ((closureN)self_73895)->elts[21]; +c_731583.elts[20] = ((closureN)self_73895)->elts[22]; +c_731583.elts[21] = ((closureN)self_73895)->elts[23]; + + +closureN_type c_732201; +c_732201.hdr.mark = gc_color_red; + c_732201.hdr.grayed = 0; +c_732201.tag = closureN_tag; + c_732201.fn = (function_type)__lambda_225; +c_732201.num_args = 2; +c_732201.num_elt = 5; +c_732201.elts = (object *)alloca(sizeof(object) * 5); +c_732201.elts[0] = ((closureN)self_73895)->elts[1]; +c_732201.elts[1] = ((closureN)self_73895)->elts[5]; +c_732201.elts[2] = ((closureN)self_73895)->elts[8]; +c_732201.elts[3] = ((closureN)self_73895)->elts[10]; +c_732201.elts[4] = ((closureN)self_73895)->elts[23]; + +return_closcall1(data,(closure)&c_731583, &c_732201);; +} + +static void __lambda_225(void *data, int argc, object self_73896, object k_73401, object term_73184, object lst_73183) { + +closureN_type c_732203; +c_732203.hdr.mark = gc_color_red; + c_732203.hdr.grayed = 0; +c_732203.tag = closureN_tag; + c_732203.fn = (function_type)__lambda_224; +c_732203.num_args = 1; +c_732203.num_elt = 8; +c_732203.elts = (object *)alloca(sizeof(object) * 8); +c_732203.elts[0] = ((closureN)self_73896)->elts[0]; +c_732203.elts[1] = k_73401; +c_732203.elts[2] = lst_73183; +c_732203.elts[3] = ((closureN)self_73896)->elts[1]; +c_732203.elts[4] = ((closureN)self_73896)->elts[2]; +c_732203.elts[5] = ((closureN)self_73896)->elts[3]; +c_732203.elts[6] = term_73184; +c_732203.elts[7] = ((closureN)self_73896)->elts[4]; + +return_closcall1(data,(closure)&c_732203, Cyc_is_null(lst_73183));; +} + +static void __lambda_224(void *data, int argc, object self_73897, object r_73402) { + if( !eq(boolean_f, r_73402) ){ + +closureN_type c_732205; +c_732205.hdr.mark = gc_color_red; + c_732205.hdr.grayed = 0; +c_732205.tag = closureN_tag; + c_732205.fn = (function_type)__lambda_214; +c_732205.num_args = 0; +c_732205.num_elt = 2; +c_732205.elts = (object *)alloca(sizeof(object) * 2); +c_732205.elts[0] = ((closureN)self_73897)->elts[1]; +c_732205.elts[1] = ((closureN)self_73897)->elts[6]; + +return_closcall0(data,(closure)&c_732205); +} else { + +closureN_type c_732210; +c_732210.hdr.mark = gc_color_red; + c_732210.hdr.grayed = 0; +c_732210.tag = closureN_tag; + c_732210.fn = (function_type)__lambda_223; +c_732210.num_args = 1; +c_732210.num_elt = 8; +c_732210.elts = (object *)alloca(sizeof(object) * 8); +c_732210.elts[0] = ((closureN)self_73897)->elts[0]; +c_732210.elts[1] = ((closureN)self_73897)->elts[1]; +c_732210.elts[2] = ((closureN)self_73897)->elts[2]; +c_732210.elts[3] = ((closureN)self_73897)->elts[3]; +c_732210.elts[4] = ((closureN)self_73897)->elts[4]; +c_732210.elts[5] = ((closureN)self_73897)->elts[5]; +c_732210.elts[6] = ((closureN)self_73897)->elts[6]; +c_732210.elts[7] = ((closureN)self_73897)->elts[7]; + +return_closcall1(data,(closure)&c_732210, car(((closureN)self_73897)->elts[2]));} +; +} + +static void __lambda_223(void *data, int argc, object self_73898, object r_73409) { + +closureN_type c_732212; +c_732212.hdr.mark = gc_color_red; + c_732212.hdr.grayed = 0; +c_732212.tag = closureN_tag; + c_732212.fn = (function_type)__lambda_222; +c_732212.num_args = 1; +c_732212.num_elt = 8; +c_732212.elts = (object *)alloca(sizeof(object) * 8); +c_732212.elts[0] = ((closureN)self_73898)->elts[0]; +c_732212.elts[1] = ((closureN)self_73898)->elts[1]; +c_732212.elts[2] = ((closureN)self_73898)->elts[2]; +c_732212.elts[3] = ((closureN)self_73898)->elts[3]; +c_732212.elts[4] = ((closureN)self_73898)->elts[4]; +c_732212.elts[5] = ((closureN)self_73898)->elts[5]; +c_732212.elts[6] = ((closureN)self_73898)->elts[6]; +c_732212.elts[7] = ((closureN)self_73898)->elts[7]; + +return_closcall1(data,(closure)&c_732212, cadr(r_73409));; +} + +static void __lambda_222(void *data, int argc, object self_73899, object r_73408) { + +closureN_type c_732217; +c_732217.hdr.mark = gc_color_red; + c_732217.hdr.grayed = 0; +c_732217.tag = closureN_tag; + c_732217.fn = (function_type)__lambda_221; +c_732217.num_args = 1; +c_732217.num_elt = 7; +c_732217.elts = (object *)alloca(sizeof(object) * 7); +c_732217.elts[0] = ((closureN)self_73899)->elts[0]; +c_732217.elts[1] = ((closureN)self_73899)->elts[1]; +c_732217.elts[2] = ((closureN)self_73899)->elts[2]; +c_732217.elts[3] = ((closureN)self_73899)->elts[4]; +c_732217.elts[4] = ((closureN)self_73899)->elts[5]; +c_732217.elts[5] = ((closureN)self_73899)->elts[6]; +c_732217.elts[6] = ((closureN)self_73899)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73899)->elts[3]), &c_732217, ((closureN)self_73899)->elts[6], r_73408);; +} + +static void __lambda_221(void *data, int argc, object self_73900, object r_73403) { + if( !eq(boolean_f, r_73403) ){ + +closureN_type c_732219; +c_732219.hdr.mark = gc_color_red; + c_732219.hdr.grayed = 0; +c_732219.tag = closureN_tag; + c_732219.fn = (function_type)__lambda_218; +c_732219.num_args = 0; +c_732219.num_elt = 5; +c_732219.elts = (object *)alloca(sizeof(object) * 5); +c_732219.elts[0] = ((closureN)self_73900)->elts[0]; +c_732219.elts[1] = ((closureN)self_73900)->elts[1]; +c_732219.elts[2] = ((closureN)self_73900)->elts[2]; +c_732219.elts[3] = ((closureN)self_73900)->elts[3]; +c_732219.elts[4] = ((closureN)self_73900)->elts[6]; + +return_closcall0(data,(closure)&c_732219); +} else { + +closureN_type c_732243; +c_732243.hdr.mark = gc_color_red; + c_732243.hdr.grayed = 0; +c_732243.tag = closureN_tag; + c_732243.fn = (function_type)__lambda_220; +c_732243.num_args = 0; +c_732243.num_elt = 4; +c_732243.elts = (object *)alloca(sizeof(object) * 4); +c_732243.elts[0] = ((closureN)self_73900)->elts[1]; +c_732243.elts[1] = ((closureN)self_73900)->elts[2]; +c_732243.elts[2] = ((closureN)self_73900)->elts[4]; +c_732243.elts[3] = ((closureN)self_73900)->elts[5]; + +return_closcall0(data,(closure)&c_732243);} +; +} + +static void __lambda_220(void *data, int argc, object self_73901) { + +closureN_type c_732245; +c_732245.hdr.mark = gc_color_red; + c_732245.hdr.grayed = 0; +c_732245.tag = closureN_tag; + c_732245.fn = (function_type)__lambda_219; +c_732245.num_args = 1; +c_732245.num_elt = 3; +c_732245.elts = (object *)alloca(sizeof(object) * 3); +c_732245.elts[0] = ((closureN)self_73901)->elts[0]; +c_732245.elts[1] = ((closureN)self_73901)->elts[2]; +c_732245.elts[2] = ((closureN)self_73901)->elts[3]; + +return_closcall1(data,(closure)&c_732245, cdr(((closureN)self_73901)->elts[1]));; +} + +static void __lambda_219(void *data, int argc, object self_73902, object r_73407) { + return_closcall3(data, cell_get(((closureN)self_73902)->elts[1]), ((closureN)self_73902)->elts[0], ((closureN)self_73902)->elts[2], r_73407);; +} + +static void __lambda_218(void *data, int argc, object self_73903) { + +closureN_type c_732221; +c_732221.hdr.mark = gc_color_red; + c_732221.hdr.grayed = 0; +c_732221.tag = closureN_tag; + c_732221.fn = (function_type)__lambda_217; +c_732221.num_args = 1; +c_732221.num_elt = 4; +c_732221.elts = (object *)alloca(sizeof(object) * 4); +c_732221.elts[0] = ((closureN)self_73903)->elts[0]; +c_732221.elts[1] = ((closureN)self_73903)->elts[1]; +c_732221.elts[2] = ((closureN)self_73903)->elts[3]; +c_732221.elts[3] = ((closureN)self_73903)->elts[4]; + +return_closcall1(data,(closure)&c_732221, car(((closureN)self_73903)->elts[2]));; +} + +static void __lambda_217(void *data, int argc, object self_73904, object r_73406) { + +closureN_type c_732223; +c_732223.hdr.mark = gc_color_red; + c_732223.hdr.grayed = 0; +c_732223.tag = closureN_tag; + c_732223.fn = (function_type)__lambda_216; +c_732223.num_args = 1; +c_732223.num_elt = 4; +c_732223.elts = (object *)alloca(sizeof(object) * 4); +c_732223.elts[0] = ((closureN)self_73904)->elts[0]; +c_732223.elts[1] = ((closureN)self_73904)->elts[1]; +c_732223.elts[2] = ((closureN)self_73904)->elts[2]; +c_732223.elts[3] = ((closureN)self_73904)->elts[3]; + +return_closcall1(data,(closure)&c_732223, caddr(r_73406));; +} + +static void __lambda_216(void *data, int argc, object self_73905, object r_73405) { + +closureN_type c_732228; +c_732228.hdr.mark = gc_color_red; + c_732228.hdr.grayed = 0; +c_732228.tag = closureN_tag; + c_732228.fn = (function_type)__lambda_215; +c_732228.num_args = 1; +c_732228.num_elt = 2; +c_732228.elts = (object *)alloca(sizeof(object) * 2); +c_732228.elts[0] = ((closureN)self_73905)->elts[1]; +c_732228.elts[1] = ((closureN)self_73905)->elts[2]; + +return_closcall3(data, cell_get(((closureN)self_73905)->elts[0]), &c_732228, cell_get(((closureN)self_73905)->elts[3]), r_73405);; +} + +static void __lambda_215(void *data, int argc, object self_73906, object r_73404) { + return_closcall2(data, cell_get(((closureN)self_73906)->elts[1]), ((closureN)self_73906)->elts[0], r_73404);; +} + +static void __lambda_214(void *data, int argc, object self_73907) { + return_closcall1(data, ((closureN)self_73907)->elts[0], ((closureN)self_73907)->elts[1]);; +} + +static void __lambda_213(void *data, int argc, object self_73908, object r_73400) { + +closureN_type c_731585; +c_731585.hdr.mark = gc_color_red; + c_731585.hdr.grayed = 0; +c_731585.tag = closureN_tag; + c_731585.fn = (function_type)__lambda_212; +c_731585.num_args = 1; +c_731585.num_elt = 21; +c_731585.elts = (object *)alloca(sizeof(object) * 21); +c_731585.elts[0] = ((closureN)self_73908)->elts[0]; +c_731585.elts[1] = ((closureN)self_73908)->elts[1]; +c_731585.elts[2] = ((closureN)self_73908)->elts[2]; +c_731585.elts[3] = ((closureN)self_73908)->elts[3]; +c_731585.elts[4] = ((closureN)self_73908)->elts[4]; +c_731585.elts[5] = ((closureN)self_73908)->elts[5]; +c_731585.elts[6] = ((closureN)self_73908)->elts[6]; +c_731585.elts[7] = ((closureN)self_73908)->elts[7]; +c_731585.elts[8] = ((closureN)self_73908)->elts[9]; +c_731585.elts[9] = ((closureN)self_73908)->elts[10]; +c_731585.elts[10] = ((closureN)self_73908)->elts[11]; +c_731585.elts[11] = ((closureN)self_73908)->elts[12]; +c_731585.elts[12] = ((closureN)self_73908)->elts[13]; +c_731585.elts[13] = ((closureN)self_73908)->elts[14]; +c_731585.elts[14] = ((closureN)self_73908)->elts[15]; +c_731585.elts[15] = ((closureN)self_73908)->elts[16]; +c_731585.elts[16] = ((closureN)self_73908)->elts[17]; +c_731585.elts[17] = ((closureN)self_73908)->elts[18]; +c_731585.elts[18] = ((closureN)self_73908)->elts[19]; +c_731585.elts[19] = ((closureN)self_73908)->elts[20]; +c_731585.elts[20] = ((closureN)self_73908)->elts[21]; + +return_closcall1(data,(closure)&c_731585, Cyc_set_car(data, ((closureN)self_73908)->elts[8], r_73400));; +} + +static void __lambda_212(void *data, int argc, object self_73909, object r_73290) { + +closureN_type c_731587; +c_731587.hdr.mark = gc_color_red; + c_731587.hdr.grayed = 0; +c_731587.tag = closureN_tag; + c_731587.fn = (function_type)__lambda_211; +c_731587.num_args = 1; +c_731587.num_elt = 21; +c_731587.elts = (object *)alloca(sizeof(object) * 21); +c_731587.elts[0] = ((closureN)self_73909)->elts[0]; +c_731587.elts[1] = ((closureN)self_73909)->elts[1]; +c_731587.elts[2] = ((closureN)self_73909)->elts[2]; +c_731587.elts[3] = ((closureN)self_73909)->elts[3]; +c_731587.elts[4] = ((closureN)self_73909)->elts[4]; +c_731587.elts[5] = ((closureN)self_73909)->elts[5]; +c_731587.elts[6] = ((closureN)self_73909)->elts[6]; +c_731587.elts[7] = ((closureN)self_73909)->elts[7]; +c_731587.elts[8] = ((closureN)self_73909)->elts[8]; +c_731587.elts[9] = ((closureN)self_73909)->elts[9]; +c_731587.elts[10] = ((closureN)self_73909)->elts[10]; +c_731587.elts[11] = ((closureN)self_73909)->elts[11]; +c_731587.elts[12] = ((closureN)self_73909)->elts[12]; +c_731587.elts[13] = ((closureN)self_73909)->elts[13]; +c_731587.elts[14] = ((closureN)self_73909)->elts[14]; +c_731587.elts[15] = ((closureN)self_73909)->elts[15]; +c_731587.elts[16] = ((closureN)self_73909)->elts[16]; +c_731587.elts[17] = ((closureN)self_73909)->elts[17]; +c_731587.elts[18] = ((closureN)self_73909)->elts[18]; +c_731587.elts[19] = ((closureN)self_73909)->elts[19]; +c_731587.elts[20] = ((closureN)self_73909)->elts[20]; + +return_closcall1(data,(closure)&c_731587, quote__85);; +} + +static void __lambda_211(void *data, int argc, object self_73910, object r_73399) { + +closureN_type c_731589; +c_731589.hdr.mark = gc_color_red; + c_731589.hdr.grayed = 0; +c_731589.tag = closureN_tag; + c_731589.fn = (function_type)__lambda_210; +c_731589.num_args = 1; +c_731589.num_elt = 21; +c_731589.elts = (object *)alloca(sizeof(object) * 21); +c_731589.elts[0] = ((closureN)self_73910)->elts[0]; +c_731589.elts[1] = ((closureN)self_73910)->elts[1]; +c_731589.elts[2] = ((closureN)self_73910)->elts[2]; +c_731589.elts[3] = ((closureN)self_73910)->elts[3]; +c_731589.elts[4] = ((closureN)self_73910)->elts[4]; +c_731589.elts[5] = ((closureN)self_73910)->elts[5]; +c_731589.elts[6] = ((closureN)self_73910)->elts[6]; +c_731589.elts[7] = ((closureN)self_73910)->elts[7]; +c_731589.elts[8] = ((closureN)self_73910)->elts[8]; +c_731589.elts[9] = ((closureN)self_73910)->elts[9]; +c_731589.elts[10] = ((closureN)self_73910)->elts[10]; +c_731589.elts[11] = ((closureN)self_73910)->elts[11]; +c_731589.elts[12] = ((closureN)self_73910)->elts[12]; +c_731589.elts[13] = ((closureN)self_73910)->elts[13]; +c_731589.elts[14] = ((closureN)self_73910)->elts[14]; +c_731589.elts[15] = ((closureN)self_73910)->elts[15]; +c_731589.elts[16] = ((closureN)self_73910)->elts[16]; +c_731589.elts[17] = ((closureN)self_73910)->elts[17]; +c_731589.elts[18] = ((closureN)self_73910)->elts[18]; +c_731589.elts[19] = ((closureN)self_73910)->elts[19]; +c_731589.elts[20] = ((closureN)self_73910)->elts[20]; + +return_closcall1(data,(closure)&c_731589, Cyc_set_car(data, ((closureN)self_73910)->elts[20], r_73399));; +} + +static void __lambda_210(void *data, int argc, object self_73911, object r_73291) { + +closureN_type c_731591; +c_731591.hdr.mark = gc_color_red; + c_731591.hdr.grayed = 0; +c_731591.tag = closureN_tag; + c_731591.fn = (function_type)__lambda_206; +c_731591.num_args = 1; +c_731591.num_elt = 21; +c_731591.elts = (object *)alloca(sizeof(object) * 21); +c_731591.elts[0] = ((closureN)self_73911)->elts[0]; +c_731591.elts[1] = ((closureN)self_73911)->elts[1]; +c_731591.elts[2] = ((closureN)self_73911)->elts[2]; +c_731591.elts[3] = ((closureN)self_73911)->elts[3]; +c_731591.elts[4] = ((closureN)self_73911)->elts[4]; +c_731591.elts[5] = ((closureN)self_73911)->elts[5]; +c_731591.elts[6] = ((closureN)self_73911)->elts[6]; +c_731591.elts[7] = ((closureN)self_73911)->elts[7]; +c_731591.elts[8] = ((closureN)self_73911)->elts[8]; +c_731591.elts[9] = ((closureN)self_73911)->elts[9]; +c_731591.elts[10] = ((closureN)self_73911)->elts[10]; +c_731591.elts[11] = ((closureN)self_73911)->elts[11]; +c_731591.elts[12] = ((closureN)self_73911)->elts[12]; +c_731591.elts[13] = ((closureN)self_73911)->elts[13]; +c_731591.elts[14] = ((closureN)self_73911)->elts[14]; +c_731591.elts[15] = ((closureN)self_73911)->elts[15]; +c_731591.elts[16] = ((closureN)self_73911)->elts[16]; +c_731591.elts[17] = ((closureN)self_73911)->elts[17]; +c_731591.elts[18] = ((closureN)self_73911)->elts[18]; +c_731591.elts[19] = ((closureN)self_73911)->elts[19]; +c_731591.elts[20] = ((closureN)self_73911)->elts[20]; + + +closureN_type c_732180; +c_732180.hdr.mark = gc_color_red; + c_732180.hdr.grayed = 0; +c_732180.tag = closureN_tag; + c_732180.fn = (function_type)__lambda_209; +c_732180.num_args = 2; +c_732180.num_elt = 2; +c_732180.elts = (object *)alloca(sizeof(object) * 2); +c_732180.elts[0] = ((closureN)self_73911)->elts[5]; +c_732180.elts[1] = ((closureN)self_73911)->elts[20]; + +return_closcall1(data,(closure)&c_731591, &c_732180);; +} + +static void __lambda_209(void *data, int argc, object self_73912, object k_73396, object term1_73182, object term2_73181) { + +closureN_type c_732182; +c_732182.hdr.mark = gc_color_red; + c_732182.hdr.grayed = 0; +c_732182.tag = closureN_tag; + c_732182.fn = (function_type)__lambda_208; +c_732182.num_args = 1; +c_732182.num_elt = 5; +c_732182.elts = (object *)alloca(sizeof(object) * 5); +c_732182.elts[0] = k_73396; +c_732182.elts[1] = ((closureN)self_73912)->elts[0]; +c_732182.elts[2] = term1_73182; +c_732182.elts[3] = term2_73181; +c_732182.elts[4] = ((closureN)self_73912)->elts[1]; + +return_closcall1(data,(closure)&c_732182, nil);; +} + +static void __lambda_208(void *data, int argc, object self_73913, object r_73398) { + +closureN_type c_732184; +c_732184.hdr.mark = gc_color_red; + c_732184.hdr.grayed = 0; +c_732184.tag = closureN_tag; + c_732184.fn = (function_type)__lambda_207; +c_732184.num_args = 1; +c_732184.num_elt = 4; +c_732184.elts = (object *)alloca(sizeof(object) * 4); +c_732184.elts[0] = ((closureN)self_73913)->elts[0]; +c_732184.elts[1] = ((closureN)self_73913)->elts[1]; +c_732184.elts[2] = ((closureN)self_73913)->elts[2]; +c_732184.elts[3] = ((closureN)self_73913)->elts[3]; + +return_closcall1(data,(closure)&c_732184, Cyc_set_car(data, ((closureN)self_73913)->elts[4], r_73398));; +} + +static void __lambda_207(void *data, int argc, object self_73914, object r_73397) { + return_closcall3(data, cell_get(((closureN)self_73914)->elts[1]), ((closureN)self_73914)->elts[0], ((closureN)self_73914)->elts[2], ((closureN)self_73914)->elts[3]);; +} + +static void __lambda_206(void *data, int argc, object self_73915, object r_73395) { + +closureN_type c_731593; +c_731593.hdr.mark = gc_color_red; + c_731593.hdr.grayed = 0; +c_731593.tag = closureN_tag; + c_731593.fn = (function_type)__lambda_205; +c_731593.num_args = 1; +c_731593.num_elt = 20; +c_731593.elts = (object *)alloca(sizeof(object) * 20); +c_731593.elts[0] = ((closureN)self_73915)->elts[0]; +c_731593.elts[1] = ((closureN)self_73915)->elts[1]; +c_731593.elts[2] = ((closureN)self_73915)->elts[2]; +c_731593.elts[3] = ((closureN)self_73915)->elts[3]; +c_731593.elts[4] = ((closureN)self_73915)->elts[5]; +c_731593.elts[5] = ((closureN)self_73915)->elts[6]; +c_731593.elts[6] = ((closureN)self_73915)->elts[7]; +c_731593.elts[7] = ((closureN)self_73915)->elts[8]; +c_731593.elts[8] = ((closureN)self_73915)->elts[9]; +c_731593.elts[9] = ((closureN)self_73915)->elts[10]; +c_731593.elts[10] = ((closureN)self_73915)->elts[11]; +c_731593.elts[11] = ((closureN)self_73915)->elts[12]; +c_731593.elts[12] = ((closureN)self_73915)->elts[13]; +c_731593.elts[13] = ((closureN)self_73915)->elts[14]; +c_731593.elts[14] = ((closureN)self_73915)->elts[15]; +c_731593.elts[15] = ((closureN)self_73915)->elts[16]; +c_731593.elts[16] = ((closureN)self_73915)->elts[17]; +c_731593.elts[17] = ((closureN)self_73915)->elts[18]; +c_731593.elts[18] = ((closureN)self_73915)->elts[19]; +c_731593.elts[19] = ((closureN)self_73915)->elts[20]; + +return_closcall1(data,(closure)&c_731593, Cyc_set_car(data, ((closureN)self_73915)->elts[4], r_73395));; +} + +static void __lambda_205(void *data, int argc, object self_73916, object r_73292) { + +closureN_type c_731595; +c_731595.hdr.mark = gc_color_red; + c_731595.hdr.grayed = 0; +c_731595.tag = closureN_tag; + c_731595.fn = (function_type)__lambda_183; +c_731595.num_args = 1; +c_731595.num_elt = 19; +c_731595.elts = (object *)alloca(sizeof(object) * 19); +c_731595.elts[0] = ((closureN)self_73916)->elts[0]; +c_731595.elts[1] = ((closureN)self_73916)->elts[1]; +c_731595.elts[2] = ((closureN)self_73916)->elts[2]; +c_731595.elts[3] = ((closureN)self_73916)->elts[3]; +c_731595.elts[4] = ((closureN)self_73916)->elts[4]; +c_731595.elts[5] = ((closureN)self_73916)->elts[5]; +c_731595.elts[6] = ((closureN)self_73916)->elts[6]; +c_731595.elts[7] = ((closureN)self_73916)->elts[7]; +c_731595.elts[8] = ((closureN)self_73916)->elts[8]; +c_731595.elts[9] = ((closureN)self_73916)->elts[9]; +c_731595.elts[10] = ((closureN)self_73916)->elts[10]; +c_731595.elts[11] = ((closureN)self_73916)->elts[11]; +c_731595.elts[12] = ((closureN)self_73916)->elts[12]; +c_731595.elts[13] = ((closureN)self_73916)->elts[13]; +c_731595.elts[14] = ((closureN)self_73916)->elts[14]; +c_731595.elts[15] = ((closureN)self_73916)->elts[15]; +c_731595.elts[16] = ((closureN)self_73916)->elts[16]; +c_731595.elts[17] = ((closureN)self_73916)->elts[17]; +c_731595.elts[18] = ((closureN)self_73916)->elts[18]; + + +closureN_type c_732066; +c_732066.hdr.mark = gc_color_red; + c_732066.hdr.grayed = 0; +c_732066.tag = closureN_tag; + c_732066.fn = (function_type)__lambda_204; +c_732066.num_args = 2; +c_732066.num_elt = 3; +c_732066.elts = (object *)alloca(sizeof(object) * 3); +c_732066.elts[0] = ((closureN)self_73916)->elts[5]; +c_732066.elts[1] = ((closureN)self_73916)->elts[11]; +c_732066.elts[2] = ((closureN)self_73916)->elts[19]; + +return_closcall1(data,(closure)&c_731595, &c_732066);; +} + +static void __lambda_204(void *data, int argc, object self_73917, object k_73381, object term1_73179, object term2_73178) { + +closureN_type c_732068; +c_732068.hdr.mark = gc_color_red; + c_732068.hdr.grayed = 0; +c_732068.tag = closureN_tag; + c_732068.fn = (function_type)__lambda_203; +c_732068.num_args = 1; +c_732068.num_elt = 6; +c_732068.elts = (object *)alloca(sizeof(object) * 6); +c_732068.elts[0] = k_73381; +c_732068.elts[1] = ((closureN)self_73917)->elts[0]; +c_732068.elts[2] = ((closureN)self_73917)->elts[1]; +c_732068.elts[3] = term1_73179; +c_732068.elts[4] = term2_73178; +c_732068.elts[5] = ((closureN)self_73917)->elts[2]; + +return_closcall1(data,(closure)&c_732068, Cyc_is_cons(term2_73178));; +} + +static void __lambda_203(void *data, int argc, object self_73918, object r_73382) { + if( !eq(boolean_f, r_73382) ){ + +closureN_type c_732070; +c_732070.hdr.mark = gc_color_red; + c_732070.hdr.grayed = 0; +c_732070.tag = closureN_tag; + c_732070.fn = (function_type)__lambda_192; +c_732070.num_args = 1; +c_732070.num_elt = 4; +c_732070.elts = (object *)alloca(sizeof(object) * 4); +c_732070.elts[0] = ((closureN)self_73918)->elts[0]; +c_732070.elts[1] = ((closureN)self_73918)->elts[1]; +c_732070.elts[2] = ((closureN)self_73918)->elts[3]; +c_732070.elts[3] = ((closureN)self_73918)->elts[4]; + +return_closcall1(data,(closure)&c_732070, Cyc_is_cons(((closureN)self_73918)->elts[3])); +} else { + +closureN_type c_732116; +c_732116.hdr.mark = gc_color_red; + c_732116.hdr.grayed = 0; +c_732116.tag = closureN_tag; + c_732116.fn = (function_type)__lambda_202; +c_732116.num_args = 0; +c_732116.num_elt = 5; +c_732116.elts = (object *)alloca(sizeof(object) * 5); +c_732116.elts[0] = ((closureN)self_73918)->elts[0]; +c_732116.elts[1] = ((closureN)self_73918)->elts[2]; +c_732116.elts[2] = ((closureN)self_73918)->elts[3]; +c_732116.elts[3] = ((closureN)self_73918)->elts[4]; +c_732116.elts[4] = ((closureN)self_73918)->elts[5]; + +return_closcall0(data,(closure)&c_732116);} +; +} + +static void __lambda_202(void *data, int argc, object self_73919) { + +closureN_type c_732118; +c_732118.hdr.mark = gc_color_red; + c_732118.hdr.grayed = 0; +c_732118.tag = closureN_tag; + c_732118.fn = (function_type)__lambda_201; +c_732118.num_args = 1; +c_732118.num_elt = 5; +c_732118.elts = (object *)alloca(sizeof(object) * 5); +c_732118.elts[0] = ((closureN)self_73919)->elts[0]; +c_732118.elts[1] = ((closureN)self_73919)->elts[1]; +c_732118.elts[2] = ((closureN)self_73919)->elts[2]; +c_732118.elts[3] = ((closureN)self_73919)->elts[3]; +c_732118.elts[4] = ((closureN)self_73919)->elts[4]; + +return_closcall1(data,(closure)&c_732118, assq(data, ((closureN)self_73919)->elts[3], cell_get(((closureN)self_73919)->elts[4])));; +} + +static void __lambda_201(void *data, int argc, object self_73920, object temp_91temp_73180) { + if( !eq(boolean_f, temp_91temp_73180) ){ + +closureN_type c_732120; +c_732120.hdr.mark = gc_color_red; + c_732120.hdr.grayed = 0; +c_732120.tag = closureN_tag; + c_732120.fn = (function_type)__lambda_194; +c_732120.num_args = 0; +c_732120.num_elt = 4; +c_732120.elts = (object *)alloca(sizeof(object) * 4); +c_732120.elts[0] = ((closureN)self_73920)->elts[0]; +c_732120.elts[1] = temp_91temp_73180; +c_732120.elts[2] = ((closureN)self_73920)->elts[1]; +c_732120.elts[3] = ((closureN)self_73920)->elts[2]; + +return_closcall0(data,(closure)&c_732120); +} else { + +closureN_type c_732133; +c_732133.hdr.mark = gc_color_red; + c_732133.hdr.grayed = 0; +c_732133.tag = closureN_tag; + c_732133.fn = (function_type)__lambda_200; +c_732133.num_args = 1; +c_732133.num_elt = 4; +c_732133.elts = (object *)alloca(sizeof(object) * 4); +c_732133.elts[0] = ((closureN)self_73920)->elts[0]; +c_732133.elts[1] = ((closureN)self_73920)->elts[2]; +c_732133.elts[2] = ((closureN)self_73920)->elts[3]; +c_732133.elts[3] = ((closureN)self_73920)->elts[4]; + +return_closcall1(data,(closure)&c_732133, Cyc_is_number(((closureN)self_73920)->elts[3]));} +; +} + +static void __lambda_200(void *data, int argc, object self_73921, object r_73391) { + if( !eq(boolean_f, r_73391) ){ + +closureN_type c_732135; +c_732135.hdr.mark = gc_color_red; + c_732135.hdr.grayed = 0; +c_732135.tag = closureN_tag; + c_732135.fn = (function_type)__lambda_195; +c_732135.num_args = 0; +c_732135.num_elt = 3; +c_732135.elts = (object *)alloca(sizeof(object) * 3); +c_732135.elts[0] = ((closureN)self_73921)->elts[0]; +c_732135.elts[1] = ((closureN)self_73921)->elts[1]; +c_732135.elts[2] = ((closureN)self_73921)->elts[2]; + +return_closcall0(data,(closure)&c_732135); +} else { + +closureN_type c_732143; +c_732143.hdr.mark = gc_color_red; + c_732143.hdr.grayed = 0; +c_732143.tag = closureN_tag; + c_732143.fn = (function_type)__lambda_199; +c_732143.num_args = 0; +c_732143.num_elt = 4; +c_732143.elts = (object *)alloca(sizeof(object) * 4); +c_732143.elts[0] = ((closureN)self_73921)->elts[0]; +c_732143.elts[1] = ((closureN)self_73921)->elts[1]; +c_732143.elts[2] = ((closureN)self_73921)->elts[2]; +c_732143.elts[3] = ((closureN)self_73921)->elts[3]; + +return_closcall0(data,(closure)&c_732143);} +; +} + +static void __lambda_199(void *data, int argc, object self_73922) { + +closureN_type c_732145; +c_732145.hdr.mark = gc_color_red; + c_732145.hdr.grayed = 0; +c_732145.tag = closureN_tag; + c_732145.fn = (function_type)__lambda_198; +c_732145.num_args = 1; +c_732145.num_elt = 2; +c_732145.elts = (object *)alloca(sizeof(object) * 2); +c_732145.elts[0] = ((closureN)self_73922)->elts[0]; +c_732145.elts[1] = ((closureN)self_73922)->elts[3]; + + +make_cons(c_732163,((closureN)self_73922)->elts[2], ((closureN)self_73922)->elts[1]); +return_closcall1(data,(closure)&c_732145, &c_732163);; +} + +static void __lambda_198(void *data, int argc, object self_73923, object r_73394) { + +closureN_type c_732147; +c_732147.hdr.mark = gc_color_red; + c_732147.hdr.grayed = 0; +c_732147.tag = closureN_tag; + c_732147.fn = (function_type)__lambda_197; +c_732147.num_args = 1; +c_732147.num_elt = 2; +c_732147.elts = (object *)alloca(sizeof(object) * 2); +c_732147.elts[0] = ((closureN)self_73923)->elts[0]; +c_732147.elts[1] = ((closureN)self_73923)->elts[1]; + + +make_cons(c_732157,r_73394, cell_get(((closureN)self_73923)->elts[1])); +return_closcall1(data,(closure)&c_732147, &c_732157);; +} + +static void __lambda_197(void *data, int argc, object self_73924, object r_73393) { + +closureN_type c_732149; +c_732149.hdr.mark = gc_color_red; + c_732149.hdr.grayed = 0; +c_732149.tag = closureN_tag; + c_732149.fn = (function_type)__lambda_196; +c_732149.num_args = 1; +c_732149.num_elt = 1; +c_732149.elts = (object *)alloca(sizeof(object) * 1); +c_732149.elts[0] = ((closureN)self_73924)->elts[0]; + +return_closcall1(data,(closure)&c_732149, Cyc_set_car(data, ((closureN)self_73924)->elts[1], r_73393));; +} + +static void __lambda_196(void *data, int argc, object self_73925, object r_73392) { + return_closcall1(data, ((closureN)self_73925)->elts[0], boolean_t);; +} + +static void __lambda_195(void *data, int argc, object self_73926) { + return_closcall1(data, ((closureN)self_73926)->elts[0], equalp(((closureN)self_73926)->elts[1], ((closureN)self_73926)->elts[2]));; +} + +static void __lambda_194(void *data, int argc, object self_73927) { + +closureN_type c_732122; +c_732122.hdr.mark = gc_color_red; + c_732122.hdr.grayed = 0; +c_732122.tag = closureN_tag; + c_732122.fn = (function_type)__lambda_193; +c_732122.num_args = 1; +c_732122.num_elt = 3; +c_732122.elts = (object *)alloca(sizeof(object) * 3); +c_732122.elts[0] = ((closureN)self_73927)->elts[0]; +c_732122.elts[1] = ((closureN)self_73927)->elts[2]; +c_732122.elts[2] = ((closureN)self_73927)->elts[3]; + +return_closcall1(data,(closure)&c_732122, cdr(((closureN)self_73927)->elts[1]));; +} + +static void __lambda_193(void *data, int argc, object self_73928, object r_73390) { + return_closcall3(data, cell_get(((closureN)self_73928)->elts[1]), ((closureN)self_73928)->elts[0], ((closureN)self_73928)->elts[2], r_73390);; +} + +static void __lambda_192(void *data, int argc, object self_73929, object r_73383) { + if( !eq(boolean_f, r_73383) ){ + +closureN_type c_732072; +c_732072.hdr.mark = gc_color_red; + c_732072.hdr.grayed = 0; +c_732072.tag = closureN_tag; + c_732072.fn = (function_type)__lambda_190; +c_732072.num_args = 1; +c_732072.num_elt = 4; +c_732072.elts = (object *)alloca(sizeof(object) * 4); +c_732072.elts[0] = ((closureN)self_73929)->elts[0]; +c_732072.elts[1] = ((closureN)self_73929)->elts[1]; +c_732072.elts[2] = ((closureN)self_73929)->elts[2]; +c_732072.elts[3] = ((closureN)self_73929)->elts[3]; + +return_closcall1(data,(closure)&c_732072, car(((closureN)self_73929)->elts[2])); +} else { + +closureN_type c_732109; +c_732109.hdr.mark = gc_color_red; + c_732109.hdr.grayed = 0; +c_732109.tag = closureN_tag; + c_732109.fn = (function_type)__lambda_191; +c_732109.num_args = 0; +c_732109.num_elt = 1; +c_732109.elts = (object *)alloca(sizeof(object) * 1); +c_732109.elts[0] = ((closureN)self_73929)->elts[0]; + +return_closcall0(data,(closure)&c_732109);} +; +} + +static void __lambda_191(void *data, int argc, object self_73930) { + return_closcall1(data, ((closureN)self_73930)->elts[0], boolean_f);; +} + +static void __lambda_190(void *data, int argc, object self_73931, object r_73387) { + +closureN_type c_732074; +c_732074.hdr.mark = gc_color_red; + c_732074.hdr.grayed = 0; +c_732074.tag = closureN_tag; + c_732074.fn = (function_type)__lambda_189; +c_732074.num_args = 1; +c_732074.num_elt = 5; +c_732074.elts = (object *)alloca(sizeof(object) * 5); +c_732074.elts[0] = ((closureN)self_73931)->elts[0]; +c_732074.elts[1] = ((closureN)self_73931)->elts[1]; +c_732074.elts[2] = r_73387; +c_732074.elts[3] = ((closureN)self_73931)->elts[2]; +c_732074.elts[4] = ((closureN)self_73931)->elts[3]; + +return_closcall1(data,(closure)&c_732074, car(((closureN)self_73931)->elts[3]));; +} + +static void __lambda_189(void *data, int argc, object self_73932, object r_73388) { + +closureN_type c_732076; +c_732076.hdr.mark = gc_color_red; + c_732076.hdr.grayed = 0; +c_732076.tag = closureN_tag; + c_732076.fn = (function_type)__lambda_188; +c_732076.num_args = 1; +c_732076.num_elt = 4; +c_732076.elts = (object *)alloca(sizeof(object) * 4); +c_732076.elts[0] = ((closureN)self_73932)->elts[0]; +c_732076.elts[1] = ((closureN)self_73932)->elts[1]; +c_732076.elts[2] = ((closureN)self_73932)->elts[3]; +c_732076.elts[3] = ((closureN)self_73932)->elts[4]; + +return_closcall1(data,(closure)&c_732076, Cyc_eq(((closureN)self_73932)->elts[2], r_73388));; +} + +static void __lambda_188(void *data, int argc, object self_73933, object r_73384) { + if( !eq(boolean_f, r_73384) ){ + +closureN_type c_732078; +c_732078.hdr.mark = gc_color_red; + c_732078.hdr.grayed = 0; +c_732078.tag = closureN_tag; + c_732078.fn = (function_type)__lambda_186; +c_732078.num_args = 0; +c_732078.num_elt = 4; +c_732078.elts = (object *)alloca(sizeof(object) * 4); +c_732078.elts[0] = ((closureN)self_73933)->elts[0]; +c_732078.elts[1] = ((closureN)self_73933)->elts[1]; +c_732078.elts[2] = ((closureN)self_73933)->elts[2]; +c_732078.elts[3] = ((closureN)self_73933)->elts[3]; + +return_closcall0(data,(closure)&c_732078); +} else { + +closureN_type c_732096; +c_732096.hdr.mark = gc_color_red; + c_732096.hdr.grayed = 0; +c_732096.tag = closureN_tag; + c_732096.fn = (function_type)__lambda_187; +c_732096.num_args = 0; +c_732096.num_elt = 1; +c_732096.elts = (object *)alloca(sizeof(object) * 1); +c_732096.elts[0] = ((closureN)self_73933)->elts[0]; + +return_closcall0(data,(closure)&c_732096);} +; +} + +static void __lambda_187(void *data, int argc, object self_73934) { + return_closcall1(data, ((closureN)self_73934)->elts[0], boolean_f);; +} + +static void __lambda_186(void *data, int argc, object self_73935) { + +closureN_type c_732080; +c_732080.hdr.mark = gc_color_red; + c_732080.hdr.grayed = 0; +c_732080.tag = closureN_tag; + c_732080.fn = (function_type)__lambda_185; +c_732080.num_args = 1; +c_732080.num_elt = 3; +c_732080.elts = (object *)alloca(sizeof(object) * 3); +c_732080.elts[0] = ((closureN)self_73935)->elts[0]; +c_732080.elts[1] = ((closureN)self_73935)->elts[1]; +c_732080.elts[2] = ((closureN)self_73935)->elts[3]; + +return_closcall1(data,(closure)&c_732080, cdr(((closureN)self_73935)->elts[2]));; +} + +static void __lambda_185(void *data, int argc, object self_73936, object r_73385) { + +closureN_type c_732082; +c_732082.hdr.mark = gc_color_red; + c_732082.hdr.grayed = 0; +c_732082.tag = closureN_tag; + c_732082.fn = (function_type)__lambda_184; +c_732082.num_args = 1; +c_732082.num_elt = 3; +c_732082.elts = (object *)alloca(sizeof(object) * 3); +c_732082.elts[0] = ((closureN)self_73936)->elts[0]; +c_732082.elts[1] = ((closureN)self_73936)->elts[1]; +c_732082.elts[2] = r_73385; + +return_closcall1(data,(closure)&c_732082, cdr(((closureN)self_73936)->elts[2]));; +} + +static void __lambda_184(void *data, int argc, object self_73937, object r_73386) { + return_closcall3(data, cell_get(((closureN)self_73937)->elts[1]), ((closureN)self_73937)->elts[0], ((closureN)self_73937)->elts[2], r_73386);; +} + +static void __lambda_183(void *data, int argc, object self_73938, object r_73380) { + +closureN_type c_731597; +c_731597.hdr.mark = gc_color_red; + c_731597.hdr.grayed = 0; +c_731597.tag = closureN_tag; + c_731597.fn = (function_type)__lambda_182; +c_731597.num_args = 1; +c_731597.num_elt = 19; +c_731597.elts = (object *)alloca(sizeof(object) * 19); +c_731597.elts[0] = ((closureN)self_73938)->elts[0]; +c_731597.elts[1] = ((closureN)self_73938)->elts[1]; +c_731597.elts[2] = ((closureN)self_73938)->elts[2]; +c_731597.elts[3] = ((closureN)self_73938)->elts[3]; +c_731597.elts[4] = ((closureN)self_73938)->elts[4]; +c_731597.elts[5] = ((closureN)self_73938)->elts[5]; +c_731597.elts[6] = ((closureN)self_73938)->elts[6]; +c_731597.elts[7] = ((closureN)self_73938)->elts[7]; +c_731597.elts[8] = ((closureN)self_73938)->elts[8]; +c_731597.elts[9] = ((closureN)self_73938)->elts[9]; +c_731597.elts[10] = ((closureN)self_73938)->elts[10]; +c_731597.elts[11] = ((closureN)self_73938)->elts[11]; +c_731597.elts[12] = ((closureN)self_73938)->elts[12]; +c_731597.elts[13] = ((closureN)self_73938)->elts[13]; +c_731597.elts[14] = ((closureN)self_73938)->elts[14]; +c_731597.elts[15] = ((closureN)self_73938)->elts[15]; +c_731597.elts[16] = ((closureN)self_73938)->elts[16]; +c_731597.elts[17] = ((closureN)self_73938)->elts[17]; +c_731597.elts[18] = ((closureN)self_73938)->elts[18]; + +return_closcall1(data,(closure)&c_731597, Cyc_set_car(data, ((closureN)self_73938)->elts[4], r_73380));; +} + +static void __lambda_182(void *data, int argc, object self_73939, object r_73293) { + +closureN_type c_731599; +c_731599.hdr.mark = gc_color_red; + c_731599.hdr.grayed = 0; +c_731599.tag = closureN_tag; + c_731599.fn = (function_type)__lambda_169; +c_731599.num_args = 1; +c_731599.num_elt = 18; +c_731599.elts = (object *)alloca(sizeof(object) * 18); +c_731599.elts[0] = ((closureN)self_73939)->elts[0]; +c_731599.elts[1] = ((closureN)self_73939)->elts[1]; +c_731599.elts[2] = ((closureN)self_73939)->elts[2]; +c_731599.elts[3] = ((closureN)self_73939)->elts[3]; +c_731599.elts[4] = ((closureN)self_73939)->elts[5]; +c_731599.elts[5] = ((closureN)self_73939)->elts[6]; +c_731599.elts[6] = ((closureN)self_73939)->elts[7]; +c_731599.elts[7] = ((closureN)self_73939)->elts[8]; +c_731599.elts[8] = ((closureN)self_73939)->elts[9]; +c_731599.elts[9] = ((closureN)self_73939)->elts[10]; +c_731599.elts[10] = ((closureN)self_73939)->elts[11]; +c_731599.elts[11] = ((closureN)self_73939)->elts[12]; +c_731599.elts[12] = ((closureN)self_73939)->elts[13]; +c_731599.elts[13] = ((closureN)self_73939)->elts[14]; +c_731599.elts[14] = ((closureN)self_73939)->elts[15]; +c_731599.elts[15] = ((closureN)self_73939)->elts[16]; +c_731599.elts[16] = ((closureN)self_73939)->elts[17]; +c_731599.elts[17] = ((closureN)self_73939)->elts[18]; + + +closureN_type c_732004; +c_732004.hdr.mark = gc_color_red; + c_732004.hdr.grayed = 0; +c_732004.tag = closureN_tag; + c_732004.fn = (function_type)__lambda_181; +c_732004.num_args = 2; +c_732004.num_elt = 2; +c_732004.elts = (object *)alloca(sizeof(object) * 2); +c_732004.elts[0] = ((closureN)self_73939)->elts[4]; +c_732004.elts[1] = ((closureN)self_73939)->elts[5]; + +return_closcall1(data,(closure)&c_731599, &c_732004);; +} + +static void __lambda_181(void *data, int argc, object self_73940, object k_73372, object lst1_73177, object lst2_73176) { + +closureN_type c_732006; +c_732006.hdr.mark = gc_color_red; + c_732006.hdr.grayed = 0; +c_732006.tag = closureN_tag; + c_732006.fn = (function_type)__lambda_180; +c_732006.num_args = 1; +c_732006.num_elt = 5; +c_732006.elts = (object *)alloca(sizeof(object) * 5); +c_732006.elts[0] = k_73372; +c_732006.elts[1] = lst1_73177; +c_732006.elts[2] = lst2_73176; +c_732006.elts[3] = ((closureN)self_73940)->elts[0]; +c_732006.elts[4] = ((closureN)self_73940)->elts[1]; + +return_closcall1(data,(closure)&c_732006, Cyc_is_null(lst1_73177));; +} + +static void __lambda_180(void *data, int argc, object self_73941, object r_73373) { + if( !eq(boolean_f, r_73373) ){ + +closureN_type c_732008; +c_732008.hdr.mark = gc_color_red; + c_732008.hdr.grayed = 0; +c_732008.tag = closureN_tag; + c_732008.fn = (function_type)__lambda_170; +c_732008.num_args = 0; +c_732008.num_elt = 2; +c_732008.elts = (object *)alloca(sizeof(object) * 2); +c_732008.elts[0] = ((closureN)self_73941)->elts[0]; +c_732008.elts[1] = ((closureN)self_73941)->elts[2]; + +return_closcall0(data,(closure)&c_732008); +} else { + +closureN_type c_732015; +c_732015.hdr.mark = gc_color_red; + c_732015.hdr.grayed = 0; +c_732015.tag = closureN_tag; + c_732015.fn = (function_type)__lambda_179; +c_732015.num_args = 1; +c_732015.num_elt = 5; +c_732015.elts = (object *)alloca(sizeof(object) * 5); +c_732015.elts[0] = ((closureN)self_73941)->elts[0]; +c_732015.elts[1] = ((closureN)self_73941)->elts[1]; +c_732015.elts[2] = ((closureN)self_73941)->elts[2]; +c_732015.elts[3] = ((closureN)self_73941)->elts[3]; +c_732015.elts[4] = ((closureN)self_73941)->elts[4]; + +return_closcall1(data,(closure)&c_732015, Cyc_is_null(((closureN)self_73941)->elts[2]));} +; +} + +static void __lambda_179(void *data, int argc, object self_73942, object r_73374) { + if( !eq(boolean_f, r_73374) ){ + +closureN_type c_732017; +c_732017.hdr.mark = gc_color_red; + c_732017.hdr.grayed = 0; +c_732017.tag = closureN_tag; + c_732017.fn = (function_type)__lambda_171; +c_732017.num_args = 0; +c_732017.num_elt = 1; +c_732017.elts = (object *)alloca(sizeof(object) * 1); +c_732017.elts[0] = ((closureN)self_73942)->elts[0]; + +return_closcall0(data,(closure)&c_732017); +} else { + +closureN_type c_732021; +c_732021.hdr.mark = gc_color_red; + c_732021.hdr.grayed = 0; +c_732021.tag = closureN_tag; + c_732021.fn = (function_type)__lambda_178; +c_732021.num_args = 1; +c_732021.num_elt = 5; +c_732021.elts = (object *)alloca(sizeof(object) * 5); +c_732021.elts[0] = ((closureN)self_73942)->elts[0]; +c_732021.elts[1] = ((closureN)self_73942)->elts[1]; +c_732021.elts[2] = ((closureN)self_73942)->elts[2]; +c_732021.elts[3] = ((closureN)self_73942)->elts[3]; +c_732021.elts[4] = ((closureN)self_73942)->elts[4]; + +return_closcall1(data,(closure)&c_732021, car(((closureN)self_73942)->elts[1]));} +; +} + +static void __lambda_178(void *data, int argc, object self_73943, object r_73378) { + +closureN_type c_732023; +c_732023.hdr.mark = gc_color_red; + c_732023.hdr.grayed = 0; +c_732023.tag = closureN_tag; + c_732023.fn = (function_type)__lambda_177; +c_732023.num_args = 1; +c_732023.num_elt = 6; +c_732023.elts = (object *)alloca(sizeof(object) * 6); +c_732023.elts[0] = ((closureN)self_73943)->elts[0]; +c_732023.elts[1] = ((closureN)self_73943)->elts[1]; +c_732023.elts[2] = ((closureN)self_73943)->elts[2]; +c_732023.elts[3] = ((closureN)self_73943)->elts[3]; +c_732023.elts[4] = ((closureN)self_73943)->elts[4]; +c_732023.elts[5] = r_73378; + +return_closcall1(data,(closure)&c_732023, car(((closureN)self_73943)->elts[2]));; +} + +static void __lambda_177(void *data, int argc, object self_73944, object r_73379) { + +closureN_type c_732028; +c_732028.hdr.mark = gc_color_red; + c_732028.hdr.grayed = 0; +c_732028.tag = closureN_tag; + c_732028.fn = (function_type)__lambda_176; +c_732028.num_args = 1; +c_732028.num_elt = 4; +c_732028.elts = (object *)alloca(sizeof(object) * 4); +c_732028.elts[0] = ((closureN)self_73944)->elts[0]; +c_732028.elts[1] = ((closureN)self_73944)->elts[1]; +c_732028.elts[2] = ((closureN)self_73944)->elts[2]; +c_732028.elts[3] = ((closureN)self_73944)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_73944)->elts[3]), &c_732028, ((closureN)self_73944)->elts[5], r_73379);; +} + +static void __lambda_176(void *data, int argc, object self_73945, object r_73375) { + if( !eq(boolean_f, r_73375) ){ + +closureN_type c_732030; +c_732030.hdr.mark = gc_color_red; + c_732030.hdr.grayed = 0; +c_732030.tag = closureN_tag; + c_732030.fn = (function_type)__lambda_174; +c_732030.num_args = 0; +c_732030.num_elt = 4; +c_732030.elts = (object *)alloca(sizeof(object) * 4); +c_732030.elts[0] = ((closureN)self_73945)->elts[0]; +c_732030.elts[1] = ((closureN)self_73945)->elts[1]; +c_732030.elts[2] = ((closureN)self_73945)->elts[2]; +c_732030.elts[3] = ((closureN)self_73945)->elts[3]; + +return_closcall0(data,(closure)&c_732030); +} else { + +closureN_type c_732048; +c_732048.hdr.mark = gc_color_red; + c_732048.hdr.grayed = 0; +c_732048.tag = closureN_tag; + c_732048.fn = (function_type)__lambda_175; +c_732048.num_args = 0; +c_732048.num_elt = 1; +c_732048.elts = (object *)alloca(sizeof(object) * 1); +c_732048.elts[0] = ((closureN)self_73945)->elts[0]; + +return_closcall0(data,(closure)&c_732048);} +; +} + +static void __lambda_175(void *data, int argc, object self_73946) { + return_closcall1(data, ((closureN)self_73946)->elts[0], boolean_f);; +} + +static void __lambda_174(void *data, int argc, object self_73947) { + +closureN_type c_732032; +c_732032.hdr.mark = gc_color_red; + c_732032.hdr.grayed = 0; +c_732032.tag = closureN_tag; + c_732032.fn = (function_type)__lambda_173; +c_732032.num_args = 1; +c_732032.num_elt = 3; +c_732032.elts = (object *)alloca(sizeof(object) * 3); +c_732032.elts[0] = ((closureN)self_73947)->elts[0]; +c_732032.elts[1] = ((closureN)self_73947)->elts[2]; +c_732032.elts[2] = ((closureN)self_73947)->elts[3]; + +return_closcall1(data,(closure)&c_732032, cdr(((closureN)self_73947)->elts[1]));; +} + +static void __lambda_173(void *data, int argc, object self_73948, object r_73376) { + +closureN_type c_732034; +c_732034.hdr.mark = gc_color_red; + c_732034.hdr.grayed = 0; +c_732034.tag = closureN_tag; + c_732034.fn = (function_type)__lambda_172; +c_732034.num_args = 1; +c_732034.num_elt = 3; +c_732034.elts = (object *)alloca(sizeof(object) * 3); +c_732034.elts[0] = ((closureN)self_73948)->elts[0]; +c_732034.elts[1] = ((closureN)self_73948)->elts[2]; +c_732034.elts[2] = r_73376; + +return_closcall1(data,(closure)&c_732034, cdr(((closureN)self_73948)->elts[1]));; +} + +static void __lambda_172(void *data, int argc, object self_73949, object r_73377) { + return_closcall3(data, cell_get(((closureN)self_73949)->elts[1]), ((closureN)self_73949)->elts[0], ((closureN)self_73949)->elts[2], r_73377);; +} + +static void __lambda_171(void *data, int argc, object self_73950) { + return_closcall1(data, ((closureN)self_73950)->elts[0], boolean_f);; +} + +static void __lambda_170(void *data, int argc, object self_73951) { + return_closcall1(data, ((closureN)self_73951)->elts[0], Cyc_is_null(((closureN)self_73951)->elts[1]));; +} + +static void __lambda_169(void *data, int argc, object self_73952, object r_73371) { + +closureN_type c_731601; +c_731601.hdr.mark = gc_color_red; + c_731601.hdr.grayed = 0; +c_731601.tag = closureN_tag; + c_731601.fn = (function_type)__lambda_168; +c_731601.num_args = 1; +c_731601.num_elt = 17; +c_731601.elts = (object *)alloca(sizeof(object) * 17); +c_731601.elts[0] = ((closureN)self_73952)->elts[0]; +c_731601.elts[1] = ((closureN)self_73952)->elts[1]; +c_731601.elts[2] = ((closureN)self_73952)->elts[2]; +c_731601.elts[3] = ((closureN)self_73952)->elts[3]; +c_731601.elts[4] = ((closureN)self_73952)->elts[5]; +c_731601.elts[5] = ((closureN)self_73952)->elts[6]; +c_731601.elts[6] = ((closureN)self_73952)->elts[7]; +c_731601.elts[7] = ((closureN)self_73952)->elts[8]; +c_731601.elts[8] = ((closureN)self_73952)->elts[9]; +c_731601.elts[9] = ((closureN)self_73952)->elts[10]; +c_731601.elts[10] = ((closureN)self_73952)->elts[11]; +c_731601.elts[11] = ((closureN)self_73952)->elts[12]; +c_731601.elts[12] = ((closureN)self_73952)->elts[13]; +c_731601.elts[13] = ((closureN)self_73952)->elts[14]; +c_731601.elts[14] = ((closureN)self_73952)->elts[15]; +c_731601.elts[15] = ((closureN)self_73952)->elts[16]; +c_731601.elts[16] = ((closureN)self_73952)->elts[17]; + +return_closcall1(data,(closure)&c_731601, Cyc_set_car(data, ((closureN)self_73952)->elts[4], r_73371));; +} + +static void __lambda_168(void *data, int argc, object self_73953, object r_73294) { + +closureN_type c_731603; +c_731603.hdr.mark = gc_color_red; + c_731603.hdr.grayed = 0; +c_731603.tag = closureN_tag; + c_731603.fn = (function_type)__lambda_165; +c_731603.num_args = 1; +c_731603.num_elt = 17; +c_731603.elts = (object *)alloca(sizeof(object) * 17); +c_731603.elts[0] = ((closureN)self_73953)->elts[0]; +c_731603.elts[1] = ((closureN)self_73953)->elts[1]; +c_731603.elts[2] = ((closureN)self_73953)->elts[2]; +c_731603.elts[3] = ((closureN)self_73953)->elts[3]; +c_731603.elts[4] = ((closureN)self_73953)->elts[4]; +c_731603.elts[5] = ((closureN)self_73953)->elts[5]; +c_731603.elts[6] = ((closureN)self_73953)->elts[6]; +c_731603.elts[7] = ((closureN)self_73953)->elts[7]; +c_731603.elts[8] = ((closureN)self_73953)->elts[8]; +c_731603.elts[9] = ((closureN)self_73953)->elts[9]; +c_731603.elts[10] = ((closureN)self_73953)->elts[10]; +c_731603.elts[11] = ((closureN)self_73953)->elts[11]; +c_731603.elts[12] = ((closureN)self_73953)->elts[12]; +c_731603.elts[13] = ((closureN)self_73953)->elts[13]; +c_731603.elts[14] = ((closureN)self_73953)->elts[14]; +c_731603.elts[15] = ((closureN)self_73953)->elts[15]; +c_731603.elts[16] = ((closureN)self_73953)->elts[16]; + + +closureN_type c_731983; +c_731983.hdr.mark = gc_color_red; + c_731983.hdr.grayed = 0; +c_731983.tag = closureN_tag; + c_731983.fn = (function_type)__lambda_167; +c_731983.num_args = 2; +c_731983.num_elt = 3; +c_731983.elts = (object *)alloca(sizeof(object) * 3); +c_731983.elts[0] = ((closureN)self_73953)->elts[1]; +c_731983.elts[1] = ((closureN)self_73953)->elts[9]; +c_731983.elts[2] = ((closureN)self_73953)->elts[10]; + +return_closcall1(data,(closure)&c_731603, &c_731983);; +} + +static void __lambda_167(void *data, int argc, object self_73954, object k_73369, object x_73174, object lst_73173) { + +closureN_type c_731988; +c_731988.hdr.mark = gc_color_red; + c_731988.hdr.grayed = 0; +c_731988.tag = closureN_tag; + c_731988.fn = (function_type)__lambda_166; +c_731988.num_args = 1; +c_731988.num_elt = 4; +c_731988.elts = (object *)alloca(sizeof(object) * 4); +c_731988.elts[0] = k_73369; +c_731988.elts[1] = lst_73173; +c_731988.elts[2] = ((closureN)self_73954)->elts[2]; +c_731988.elts[3] = x_73174; + +return_closcall3(data, cell_get(((closureN)self_73954)->elts[1]), &c_731988, x_73174, cell_get(((closureN)self_73954)->elts[0]));; +} + +static void __lambda_166(void *data, int argc, object self_73955, object tmp_73175) { + if( !eq(boolean_f, tmp_73175) ){ + return_closcall1(data, ((closureN)self_73955)->elts[0], tmp_73175); +} else { + return_closcall3(data, cell_get(((closureN)self_73955)->elts[2]), ((closureN)self_73955)->elts[0], ((closureN)self_73955)->elts[3], ((closureN)self_73955)->elts[1]);} +; +} + +static void __lambda_165(void *data, int argc, object self_73956, object r_73368) { + +closureN_type c_731605; +c_731605.hdr.mark = gc_color_red; + c_731605.hdr.grayed = 0; +c_731605.tag = closureN_tag; + c_731605.fn = (function_type)__lambda_164; +c_731605.num_args = 1; +c_731605.num_elt = 16; +c_731605.elts = (object *)alloca(sizeof(object) * 16); +c_731605.elts[0] = ((closureN)self_73956)->elts[0]; +c_731605.elts[1] = ((closureN)self_73956)->elts[1]; +c_731605.elts[2] = ((closureN)self_73956)->elts[3]; +c_731605.elts[3] = ((closureN)self_73956)->elts[4]; +c_731605.elts[4] = ((closureN)self_73956)->elts[5]; +c_731605.elts[5] = ((closureN)self_73956)->elts[6]; +c_731605.elts[6] = ((closureN)self_73956)->elts[7]; +c_731605.elts[7] = ((closureN)self_73956)->elts[8]; +c_731605.elts[8] = ((closureN)self_73956)->elts[9]; +c_731605.elts[9] = ((closureN)self_73956)->elts[10]; +c_731605.elts[10] = ((closureN)self_73956)->elts[11]; +c_731605.elts[11] = ((closureN)self_73956)->elts[12]; +c_731605.elts[12] = ((closureN)self_73956)->elts[13]; +c_731605.elts[13] = ((closureN)self_73956)->elts[14]; +c_731605.elts[14] = ((closureN)self_73956)->elts[15]; +c_731605.elts[15] = ((closureN)self_73956)->elts[16]; + +return_closcall1(data,(closure)&c_731605, Cyc_set_car(data, ((closureN)self_73956)->elts[2], r_73368));; +} + +static void __lambda_164(void *data, int argc, object self_73957, object r_73295) { + +closureN_type c_731607; +c_731607.hdr.mark = gc_color_red; + c_731607.hdr.grayed = 0; +c_731607.tag = closureN_tag; + c_731607.fn = (function_type)__lambda_161; +c_731607.num_args = 1; +c_731607.num_elt = 16; +c_731607.elts = (object *)alloca(sizeof(object) * 16); +c_731607.elts[0] = ((closureN)self_73957)->elts[0]; +c_731607.elts[1] = ((closureN)self_73957)->elts[1]; +c_731607.elts[2] = ((closureN)self_73957)->elts[2]; +c_731607.elts[3] = ((closureN)self_73957)->elts[3]; +c_731607.elts[4] = ((closureN)self_73957)->elts[4]; +c_731607.elts[5] = ((closureN)self_73957)->elts[5]; +c_731607.elts[6] = ((closureN)self_73957)->elts[6]; +c_731607.elts[7] = ((closureN)self_73957)->elts[7]; +c_731607.elts[8] = ((closureN)self_73957)->elts[8]; +c_731607.elts[9] = ((closureN)self_73957)->elts[9]; +c_731607.elts[10] = ((closureN)self_73957)->elts[10]; +c_731607.elts[11] = ((closureN)self_73957)->elts[11]; +c_731607.elts[12] = ((closureN)self_73957)->elts[12]; +c_731607.elts[13] = ((closureN)self_73957)->elts[13]; +c_731607.elts[14] = ((closureN)self_73957)->elts[14]; +c_731607.elts[15] = ((closureN)self_73957)->elts[15]; + + +closureN_type c_731962; +c_731962.hdr.mark = gc_color_red; + c_731962.hdr.grayed = 0; +c_731962.tag = closureN_tag; + c_731962.fn = (function_type)__lambda_163; +c_731962.num_args = 2; +c_731962.num_elt = 3; +c_731962.elts = (object *)alloca(sizeof(object) * 3); +c_731962.elts[0] = ((closureN)self_73957)->elts[8]; +c_731962.elts[1] = ((closureN)self_73957)->elts[9]; +c_731962.elts[2] = ((closureN)self_73957)->elts[14]; + +return_closcall1(data,(closure)&c_731607, &c_731962);; +} + +static void __lambda_163(void *data, int argc, object self_73958, object k_73366, object x_73171, object lst_73170) { + +closureN_type c_731967; +c_731967.hdr.mark = gc_color_red; + c_731967.hdr.grayed = 0; +c_731967.tag = closureN_tag; + c_731967.fn = (function_type)__lambda_162; +c_731967.num_args = 1; +c_731967.num_elt = 4; +c_731967.elts = (object *)alloca(sizeof(object) * 4); +c_731967.elts[0] = k_73366; +c_731967.elts[1] = lst_73170; +c_731967.elts[2] = ((closureN)self_73958)->elts[1]; +c_731967.elts[3] = x_73171; + +return_closcall3(data, cell_get(((closureN)self_73958)->elts[0]), &c_731967, x_73171, cell_get(((closureN)self_73958)->elts[2]));; +} + +static void __lambda_162(void *data, int argc, object self_73959, object tmp_73172) { + if( !eq(boolean_f, tmp_73172) ){ + return_closcall1(data, ((closureN)self_73959)->elts[0], tmp_73172); +} else { + return_closcall3(data, cell_get(((closureN)self_73959)->elts[2]), ((closureN)self_73959)->elts[0], ((closureN)self_73959)->elts[3], ((closureN)self_73959)->elts[1]);} +; +} + +static void __lambda_161(void *data, int argc, object self_73960, object r_73365) { + +closureN_type c_731609; +c_731609.hdr.mark = gc_color_red; + c_731609.hdr.grayed = 0; +c_731609.tag = closureN_tag; + c_731609.fn = (function_type)__lambda_160; +c_731609.num_args = 1; +c_731609.num_elt = 15; +c_731609.elts = (object *)alloca(sizeof(object) * 15); +c_731609.elts[0] = ((closureN)self_73960)->elts[0]; +c_731609.elts[1] = ((closureN)self_73960)->elts[1]; +c_731609.elts[2] = ((closureN)self_73960)->elts[2]; +c_731609.elts[3] = ((closureN)self_73960)->elts[3]; +c_731609.elts[4] = ((closureN)self_73960)->elts[4]; +c_731609.elts[5] = ((closureN)self_73960)->elts[5]; +c_731609.elts[6] = ((closureN)self_73960)->elts[6]; +c_731609.elts[7] = ((closureN)self_73960)->elts[7]; +c_731609.elts[8] = ((closureN)self_73960)->elts[8]; +c_731609.elts[9] = ((closureN)self_73960)->elts[9]; +c_731609.elts[10] = ((closureN)self_73960)->elts[10]; +c_731609.elts[11] = ((closureN)self_73960)->elts[11]; +c_731609.elts[12] = ((closureN)self_73960)->elts[12]; +c_731609.elts[13] = ((closureN)self_73960)->elts[13]; +c_731609.elts[14] = ((closureN)self_73960)->elts[14]; + +return_closcall1(data,(closure)&c_731609, Cyc_set_car(data, ((closureN)self_73960)->elts[15], r_73365));; +} + +static void __lambda_160(void *data, int argc, object self_73961, object r_73296) { + +closureN_type c_731611; +c_731611.hdr.mark = gc_color_red; + c_731611.hdr.grayed = 0; +c_731611.tag = closureN_tag; + c_731611.fn = (function_type)__lambda_159; +c_731611.num_args = 1; +c_731611.num_elt = 15; +c_731611.elts = (object *)alloca(sizeof(object) * 15); +c_731611.elts[0] = ((closureN)self_73961)->elts[0]; +c_731611.elts[1] = ((closureN)self_73961)->elts[1]; +c_731611.elts[2] = ((closureN)self_73961)->elts[2]; +c_731611.elts[3] = ((closureN)self_73961)->elts[3]; +c_731611.elts[4] = ((closureN)self_73961)->elts[4]; +c_731611.elts[5] = ((closureN)self_73961)->elts[5]; +c_731611.elts[6] = ((closureN)self_73961)->elts[6]; +c_731611.elts[7] = ((closureN)self_73961)->elts[7]; +c_731611.elts[8] = ((closureN)self_73961)->elts[8]; +c_731611.elts[9] = ((closureN)self_73961)->elts[9]; +c_731611.elts[10] = ((closureN)self_73961)->elts[10]; +c_731611.elts[11] = ((closureN)self_73961)->elts[11]; +c_731611.elts[12] = ((closureN)self_73961)->elts[12]; +c_731611.elts[13] = ((closureN)self_73961)->elts[13]; +c_731611.elts[14] = ((closureN)self_73961)->elts[14]; + +return_closcall1(data,(closure)&c_731611, quote__85);; +} + +static void __lambda_159(void *data, int argc, object self_73962, object r_73364) { + +closureN_type c_731613; +c_731613.hdr.mark = gc_color_red; + c_731613.hdr.grayed = 0; +c_731613.tag = closureN_tag; + c_731613.fn = (function_type)__lambda_158; +c_731613.num_args = 1; +c_731613.num_elt = 15; +c_731613.elts = (object *)alloca(sizeof(object) * 15); +c_731613.elts[0] = ((closureN)self_73962)->elts[0]; +c_731613.elts[1] = ((closureN)self_73962)->elts[1]; +c_731613.elts[2] = ((closureN)self_73962)->elts[2]; +c_731613.elts[3] = ((closureN)self_73962)->elts[3]; +c_731613.elts[4] = ((closureN)self_73962)->elts[4]; +c_731613.elts[5] = ((closureN)self_73962)->elts[5]; +c_731613.elts[6] = ((closureN)self_73962)->elts[6]; +c_731613.elts[7] = ((closureN)self_73962)->elts[7]; +c_731613.elts[8] = ((closureN)self_73962)->elts[8]; +c_731613.elts[9] = ((closureN)self_73962)->elts[9]; +c_731613.elts[10] = ((closureN)self_73962)->elts[10]; +c_731613.elts[11] = ((closureN)self_73962)->elts[11]; +c_731613.elts[12] = ((closureN)self_73962)->elts[12]; +c_731613.elts[13] = ((closureN)self_73962)->elts[13]; +c_731613.elts[14] = ((closureN)self_73962)->elts[14]; + +return_closcall1(data,(closure)&c_731613, Cyc_set_car(data, ((closureN)self_73962)->elts[1], r_73364));; +} + +static void __lambda_158(void *data, int argc, object self_73963, object r_73297) { + +closureN_type c_731615; +c_731615.hdr.mark = gc_color_red; + c_731615.hdr.grayed = 0; +c_731615.tag = closureN_tag; + c_731615.fn = (function_type)__lambda_157; +c_731615.num_args = 1; +c_731615.num_elt = 15; +c_731615.elts = (object *)alloca(sizeof(object) * 15); +c_731615.elts[0] = ((closureN)self_73963)->elts[0]; +c_731615.elts[1] = ((closureN)self_73963)->elts[1]; +c_731615.elts[2] = ((closureN)self_73963)->elts[2]; +c_731615.elts[3] = ((closureN)self_73963)->elts[3]; +c_731615.elts[4] = ((closureN)self_73963)->elts[4]; +c_731615.elts[5] = ((closureN)self_73963)->elts[5]; +c_731615.elts[6] = ((closureN)self_73963)->elts[6]; +c_731615.elts[7] = ((closureN)self_73963)->elts[7]; +c_731615.elts[8] = ((closureN)self_73963)->elts[8]; +c_731615.elts[9] = ((closureN)self_73963)->elts[9]; +c_731615.elts[10] = ((closureN)self_73963)->elts[10]; +c_731615.elts[11] = ((closureN)self_73963)->elts[11]; +c_731615.elts[12] = ((closureN)self_73963)->elts[12]; +c_731615.elts[13] = ((closureN)self_73963)->elts[13]; +c_731615.elts[14] = ((closureN)self_73963)->elts[14]; + +return_closcall1(data,(closure)&c_731615, quote__85);; +} + +static void __lambda_157(void *data, int argc, object self_73964, object r_73363) { + +closureN_type c_731617; +c_731617.hdr.mark = gc_color_red; + c_731617.hdr.grayed = 0; +c_731617.tag = closureN_tag; + c_731617.fn = (function_type)__lambda_156; +c_731617.num_args = 1; +c_731617.num_elt = 15; +c_731617.elts = (object *)alloca(sizeof(object) * 15); +c_731617.elts[0] = ((closureN)self_73964)->elts[0]; +c_731617.elts[1] = ((closureN)self_73964)->elts[1]; +c_731617.elts[2] = ((closureN)self_73964)->elts[2]; +c_731617.elts[3] = ((closureN)self_73964)->elts[3]; +c_731617.elts[4] = ((closureN)self_73964)->elts[4]; +c_731617.elts[5] = ((closureN)self_73964)->elts[5]; +c_731617.elts[6] = ((closureN)self_73964)->elts[6]; +c_731617.elts[7] = ((closureN)self_73964)->elts[7]; +c_731617.elts[8] = ((closureN)self_73964)->elts[8]; +c_731617.elts[9] = ((closureN)self_73964)->elts[9]; +c_731617.elts[10] = ((closureN)self_73964)->elts[10]; +c_731617.elts[11] = ((closureN)self_73964)->elts[11]; +c_731617.elts[12] = ((closureN)self_73964)->elts[12]; +c_731617.elts[13] = ((closureN)self_73964)->elts[13]; +c_731617.elts[14] = ((closureN)self_73964)->elts[14]; + +return_closcall1(data,(closure)&c_731617, Cyc_set_car(data, ((closureN)self_73964)->elts[14], r_73363));; +} + +static void __lambda_156(void *data, int argc, object self_73965, object r_73298) { + +closureN_type c_731619; +c_731619.hdr.mark = gc_color_red; + c_731619.hdr.grayed = 0; +c_731619.tag = closureN_tag; + c_731619.fn = (function_type)__lambda_149; +c_731619.num_args = 1; +c_731619.num_elt = 15; +c_731619.elts = (object *)alloca(sizeof(object) * 15); +c_731619.elts[0] = ((closureN)self_73965)->elts[0]; +c_731619.elts[1] = ((closureN)self_73965)->elts[1]; +c_731619.elts[2] = ((closureN)self_73965)->elts[2]; +c_731619.elts[3] = ((closureN)self_73965)->elts[3]; +c_731619.elts[4] = ((closureN)self_73965)->elts[4]; +c_731619.elts[5] = ((closureN)self_73965)->elts[5]; +c_731619.elts[6] = ((closureN)self_73965)->elts[6]; +c_731619.elts[7] = ((closureN)self_73965)->elts[7]; +c_731619.elts[8] = ((closureN)self_73965)->elts[8]; +c_731619.elts[9] = ((closureN)self_73965)->elts[9]; +c_731619.elts[10] = ((closureN)self_73965)->elts[10]; +c_731619.elts[11] = ((closureN)self_73965)->elts[11]; +c_731619.elts[12] = ((closureN)self_73965)->elts[12]; +c_731619.elts[13] = ((closureN)self_73965)->elts[13]; +c_731619.elts[14] = ((closureN)self_73965)->elts[14]; + + +closureN_type c_731930; +c_731930.hdr.mark = gc_color_red; + c_731930.hdr.grayed = 0; +c_731930.tag = closureN_tag; + c_731930.fn = (function_type)__lambda_155; +c_731930.num_args = 1; +c_731930.num_elt = 2; +c_731930.elts = (object *)alloca(sizeof(object) * 2); +c_731930.elts[0] = ((closureN)self_73965)->elts[12]; +c_731930.elts[1] = ((closureN)self_73965)->elts[13]; + +return_closcall1(data,(closure)&c_731619, &c_731930);; +} + +static void __lambda_155(void *data, int argc, object self_73966, object k_73357, object n_73169) { + +closureN_type c_731932; +c_731932.hdr.mark = gc_color_red; + c_731932.hdr.grayed = 0; +c_731932.tag = closureN_tag; + c_731932.fn = (function_type)__lambda_154; +c_731932.num_args = 1; +c_731932.num_elt = 4; +c_731932.elts = (object *)alloca(sizeof(object) * 4); +c_731932.elts[0] = k_73357; +c_731932.elts[1] = n_73169; +c_731932.elts[2] = ((closureN)self_73966)->elts[0]; +c_731932.elts[3] = ((closureN)self_73966)->elts[1]; + +return_closcall1(data,(closure)&c_731932, quote_implies);; +} + +static void __lambda_154(void *data, int argc, object self_73967, object r_73359) { + +closureN_type c_731937; +c_731937.hdr.mark = gc_color_red; + c_731937.hdr.grayed = 0; +c_731937.tag = closureN_tag; + c_731937.fn = (function_type)__lambda_153; +c_731937.num_args = 1; +c_731937.num_elt = 4; +c_731937.elts = (object *)alloca(sizeof(object) * 4); +c_731937.elts[0] = ((closureN)self_73967)->elts[0]; +c_731937.elts[1] = ((closureN)self_73967)->elts[1]; +c_731937.elts[2] = r_73359; +c_731937.elts[3] = ((closureN)self_73967)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73967)->elts[2]), &c_731937, ((closureN)self_73967)->elts[1]);; +} + +static void __lambda_153(void *data, int argc, object self_73968, object r_73360) { + +closureN_type c_731939; +c_731939.hdr.mark = gc_color_red; + c_731939.hdr.grayed = 0; +c_731939.tag = closureN_tag; + c_731939.fn = (function_type)__lambda_152; +c_731939.num_args = 1; +c_731939.num_elt = 5; +c_731939.elts = (object *)alloca(sizeof(object) * 5); +c_731939.elts[0] = ((closureN)self_73968)->elts[0]; +c_731939.elts[1] = ((closureN)self_73968)->elts[1]; +c_731939.elts[2] = ((closureN)self_73968)->elts[2]; +c_731939.elts[3] = r_73360; +c_731939.elts[4] = ((closureN)self_73968)->elts[3]; + +return_closcall1(data,(closure)&c_731939, quote_implies);; +} + +static void __lambda_152(void *data, int argc, object self_73969, object r_73362) { + +closureN_type c_731941; +c_731941.hdr.mark = gc_color_red; + c_731941.hdr.grayed = 0; +c_731941.tag = closureN_tag; + c_731941.fn = (function_type)__lambda_151; +c_731941.num_args = 1; +c_731941.num_elt = 4; +c_731941.elts = (object *)alloca(sizeof(object) * 4); +c_731941.elts[0] = ((closureN)self_73969)->elts[0]; +c_731941.elts[1] = ((closureN)self_73969)->elts[2]; +c_731941.elts[2] = ((closureN)self_73969)->elts[3]; +c_731941.elts[3] = ((closureN)self_73969)->elts[4]; + +return_closcall4(data, __glo__list_scheme_base, &c_731941, r_73362, obj_int2obj(0), ((closureN)self_73969)->elts[1]);; +} + +static void __lambda_151(void *data, int argc, object self_73970, object r_73361) { + +closureN_type c_731943; +c_731943.hdr.mark = gc_color_red; + c_731943.hdr.grayed = 0; +c_731943.tag = closureN_tag; + c_731943.fn = (function_type)__lambda_150; +c_731943.num_args = 1; +c_731943.num_elt = 2; +c_731943.elts = (object *)alloca(sizeof(object) * 2); +c_731943.elts[0] = ((closureN)self_73970)->elts[0]; +c_731943.elts[1] = ((closureN)self_73970)->elts[3]; + +return_closcall4(data, __glo__list_scheme_base, &c_731943, ((closureN)self_73970)->elts[1], ((closureN)self_73970)->elts[2], r_73361);; +} + +static void __lambda_150(void *data, int argc, object self_73971, object r_73358) { + return_closcall2(data, cell_get(((closureN)self_73971)->elts[1]), ((closureN)self_73971)->elts[0], r_73358);; +} + +static void __lambda_149(void *data, int argc, object self_73972, object r_73356) { + +closureN_type c_731621; +c_731621.hdr.mark = gc_color_red; + c_731621.hdr.grayed = 0; +c_731621.tag = closureN_tag; + c_731621.fn = (function_type)__lambda_148; +c_731621.num_args = 1; +c_731621.num_elt = 14; +c_731621.elts = (object *)alloca(sizeof(object) * 14); +c_731621.elts[0] = ((closureN)self_73972)->elts[0]; +c_731621.elts[1] = ((closureN)self_73972)->elts[1]; +c_731621.elts[2] = ((closureN)self_73972)->elts[2]; +c_731621.elts[3] = ((closureN)self_73972)->elts[3]; +c_731621.elts[4] = ((closureN)self_73972)->elts[4]; +c_731621.elts[5] = ((closureN)self_73972)->elts[5]; +c_731621.elts[6] = ((closureN)self_73972)->elts[6]; +c_731621.elts[7] = ((closureN)self_73972)->elts[7]; +c_731621.elts[8] = ((closureN)self_73972)->elts[8]; +c_731621.elts[9] = ((closureN)self_73972)->elts[9]; +c_731621.elts[10] = ((closureN)self_73972)->elts[10]; +c_731621.elts[11] = ((closureN)self_73972)->elts[12]; +c_731621.elts[12] = ((closureN)self_73972)->elts[13]; +c_731621.elts[13] = ((closureN)self_73972)->elts[14]; + +return_closcall1(data,(closure)&c_731621, Cyc_set_car(data, ((closureN)self_73972)->elts[11], r_73356));; +} + +static void __lambda_148(void *data, int argc, object self_73973, object r_73299) { + +closureN_type c_731623; +c_731623.hdr.mark = gc_color_red; + c_731623.hdr.grayed = 0; +c_731623.tag = closureN_tag; + c_731623.fn = (function_type)__lambda_136; +c_731623.num_args = 1; +c_731623.num_elt = 14; +c_731623.elts = (object *)alloca(sizeof(object) * 14); +c_731623.elts[0] = ((closureN)self_73973)->elts[0]; +c_731623.elts[1] = ((closureN)self_73973)->elts[1]; +c_731623.elts[2] = ((closureN)self_73973)->elts[2]; +c_731623.elts[3] = ((closureN)self_73973)->elts[3]; +c_731623.elts[4] = ((closureN)self_73973)->elts[4]; +c_731623.elts[5] = ((closureN)self_73973)->elts[5]; +c_731623.elts[6] = ((closureN)self_73973)->elts[6]; +c_731623.elts[7] = ((closureN)self_73973)->elts[7]; +c_731623.elts[8] = ((closureN)self_73973)->elts[8]; +c_731623.elts[9] = ((closureN)self_73973)->elts[9]; +c_731623.elts[10] = ((closureN)self_73973)->elts[10]; +c_731623.elts[11] = ((closureN)self_73973)->elts[11]; +c_731623.elts[12] = ((closureN)self_73973)->elts[12]; +c_731623.elts[13] = ((closureN)self_73973)->elts[13]; + + +closureN_type c_731885; +c_731885.hdr.mark = gc_color_red; + c_731885.hdr.grayed = 0; +c_731885.tag = closureN_tag; + c_731885.fn = (function_type)__lambda_147; +c_731885.num_args = 1; +c_731885.num_elt = 1; +c_731885.elts = (object *)alloca(sizeof(object) * 1); +c_731885.elts[0] = ((closureN)self_73973)->elts[11]; + +return_closcall1(data,(closure)&c_731623, &c_731885);; +} + +static void __lambda_147(void *data, int argc, object self_73974, object k_73347, object n_73168) { + +closureN_type c_731887; +c_731887.hdr.mark = gc_color_red; + c_731887.hdr.grayed = 0; +c_731887.tag = closureN_tag; + c_731887.fn = (function_type)__lambda_146; +c_731887.num_args = 1; +c_731887.num_elt = 3; +c_731887.elts = (object *)alloca(sizeof(object) * 3); +c_731887.elts[0] = k_73347; +c_731887.elts[1] = n_73168; +c_731887.elts[2] = ((closureN)self_73974)->elts[0]; + +return_closcall1(data,(closure)&c_731887, equalp(n_73168, obj_int2obj(1)));; +} + +static void __lambda_146(void *data, int argc, object self_73975, object r_73348) { + if( !eq(boolean_f, r_73348) ){ + +closureN_type c_731889; +c_731889.hdr.mark = gc_color_red; + c_731889.hdr.grayed = 0; +c_731889.tag = closureN_tag; + c_731889.fn = (function_type)__lambda_138; +c_731889.num_args = 0; +c_731889.num_elt = 1; +c_731889.elts = (object *)alloca(sizeof(object) * 1); +c_731889.elts[0] = ((closureN)self_73975)->elts[0]; + +return_closcall0(data,(closure)&c_731889); +} else { + +closureN_type c_731895; +c_731895.hdr.mark = gc_color_red; + c_731895.hdr.grayed = 0; +c_731895.tag = closureN_tag; + c_731895.fn = (function_type)__lambda_145; +c_731895.num_args = 0; +c_731895.num_elt = 3; +c_731895.elts = (object *)alloca(sizeof(object) * 3); +c_731895.elts[0] = ((closureN)self_73975)->elts[0]; +c_731895.elts[1] = ((closureN)self_73975)->elts[1]; +c_731895.elts[2] = ((closureN)self_73975)->elts[2]; + +return_closcall0(data,(closure)&c_731895);} +; +} + +static void __lambda_145(void *data, int argc, object self_73976) { + +closureN_type c_731897; +c_731897.hdr.mark = gc_color_red; + c_731897.hdr.grayed = 0; +c_731897.tag = closureN_tag; + c_731897.fn = (function_type)__lambda_144; +c_731897.num_args = 1; +c_731897.num_elt = 3; +c_731897.elts = (object *)alloca(sizeof(object) * 3); +c_731897.elts[0] = ((closureN)self_73976)->elts[0]; +c_731897.elts[1] = ((closureN)self_73976)->elts[1]; +c_731897.elts[2] = ((closureN)self_73976)->elts[2]; + +return_closcall1(data,(closure)&c_731897, quote_and);; +} + +static void __lambda_144(void *data, int argc, object self_73977, object r_73350) { + +closureN_type c_731899; +c_731899.hdr.mark = gc_color_red; + c_731899.hdr.grayed = 0; +c_731899.tag = closureN_tag; + c_731899.fn = (function_type)__lambda_143; +c_731899.num_args = 1; +c_731899.num_elt = 4; +c_731899.elts = (object *)alloca(sizeof(object) * 4); +c_731899.elts[0] = ((closureN)self_73977)->elts[0]; +c_731899.elts[1] = ((closureN)self_73977)->elts[1]; +c_731899.elts[2] = r_73350; +c_731899.elts[3] = ((closureN)self_73977)->elts[2]; + +return_closcall1(data,(closure)&c_731899, quote_implies);; +} + +static void __lambda_143(void *data, int argc, object self_73978, object r_73354) { + +closureN_type c_731901; +c_731901.hdr.mark = gc_color_red; + c_731901.hdr.grayed = 0; +c_731901.tag = closureN_tag; + c_731901.fn = (function_type)__lambda_142; +c_731901.num_args = 1; +c_731901.num_elt = 5; +c_731901.elts = (object *)alloca(sizeof(object) * 5); +c_731901.elts[0] = ((closureN)self_73978)->elts[0]; +c_731901.elts[1] = ((closureN)self_73978)->elts[1]; +c_731901.elts[2] = ((closureN)self_73978)->elts[2]; +c_731901.elts[3] = r_73354; +c_731901.elts[4] = ((closureN)self_73978)->elts[3]; + + +object c_731923 = Cyc_sub(data,(closure)&c_731901,2,((closureN)self_73978)->elts[1], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731901, c_731923);; +} + +static void __lambda_142(void *data, int argc, object self_73979, object r_73355) { + +closureN_type c_731903; +c_731903.hdr.mark = gc_color_red; + c_731903.hdr.grayed = 0; +c_731903.tag = closureN_tag; + c_731903.fn = (function_type)__lambda_141; +c_731903.num_args = 1; +c_731903.num_elt = 4; +c_731903.elts = (object *)alloca(sizeof(object) * 4); +c_731903.elts[0] = ((closureN)self_73979)->elts[0]; +c_731903.elts[1] = ((closureN)self_73979)->elts[1]; +c_731903.elts[2] = ((closureN)self_73979)->elts[2]; +c_731903.elts[3] = ((closureN)self_73979)->elts[4]; + +return_closcall4(data, __glo__list_scheme_base, &c_731903, ((closureN)self_73979)->elts[3], r_73355, ((closureN)self_73979)->elts[1]);; +} + +static void __lambda_141(void *data, int argc, object self_73980, object r_73351) { + +closureN_type c_731905; +c_731905.hdr.mark = gc_color_red; + c_731905.hdr.grayed = 0; +c_731905.tag = closureN_tag; + c_731905.fn = (function_type)__lambda_140; +c_731905.num_args = 1; +c_731905.num_elt = 4; +c_731905.elts = (object *)alloca(sizeof(object) * 4); +c_731905.elts[0] = ((closureN)self_73980)->elts[0]; +c_731905.elts[1] = ((closureN)self_73980)->elts[2]; +c_731905.elts[2] = r_73351; +c_731905.elts[3] = ((closureN)self_73980)->elts[3]; + + +object c_731917 = Cyc_sub(data,(closure)&c_731905,2,((closureN)self_73980)->elts[1], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731905, c_731917);; +} + +static void __lambda_140(void *data, int argc, object self_73981, object r_73353) { + +closureN_type c_731910; +c_731910.hdr.mark = gc_color_red; + c_731910.hdr.grayed = 0; +c_731910.tag = closureN_tag; + c_731910.fn = (function_type)__lambda_139; +c_731910.num_args = 1; +c_731910.num_elt = 3; +c_731910.elts = (object *)alloca(sizeof(object) * 3); +c_731910.elts[0] = ((closureN)self_73981)->elts[0]; +c_731910.elts[1] = ((closureN)self_73981)->elts[1]; +c_731910.elts[2] = ((closureN)self_73981)->elts[2]; + +return_closcall2(data, cell_get(((closureN)self_73981)->elts[3]), &c_731910, r_73353);; +} + +static void __lambda_139(void *data, int argc, object self_73982, object r_73352) { + return_closcall4(data, __glo__list_scheme_base, ((closureN)self_73982)->elts[0], ((closureN)self_73982)->elts[1], ((closureN)self_73982)->elts[2], r_73352);; +} + +static void __lambda_138(void *data, int argc, object self_73983) { + +closureN_type c_731891; +c_731891.hdr.mark = gc_color_red; + c_731891.hdr.grayed = 0; +c_731891.tag = closureN_tag; + c_731891.fn = (function_type)__lambda_137; +c_731891.num_args = 1; +c_731891.num_elt = 1; +c_731891.elts = (object *)alloca(sizeof(object) * 1); +c_731891.elts[0] = ((closureN)self_73983)->elts[0]; + +return_closcall1(data,(closure)&c_731891, quote_implies);; +} + +static void __lambda_137(void *data, int argc, object self_73984, object r_73349) { + return_closcall4(data, __glo__list_scheme_base, ((closureN)self_73984)->elts[0], r_73349, obj_int2obj(0), obj_int2obj(1));; +} + +static void __lambda_136(void *data, int argc, object self_73985, object r_73346) { + +closureN_type c_731625; +c_731625.hdr.mark = gc_color_red; + c_731625.hdr.grayed = 0; +c_731625.tag = closureN_tag; + c_731625.fn = (function_type)__lambda_135; +c_731625.num_args = 1; +c_731625.num_elt = 13; +c_731625.elts = (object *)alloca(sizeof(object) * 13); +c_731625.elts[0] = ((closureN)self_73985)->elts[0]; +c_731625.elts[1] = ((closureN)self_73985)->elts[1]; +c_731625.elts[2] = ((closureN)self_73985)->elts[2]; +c_731625.elts[3] = ((closureN)self_73985)->elts[3]; +c_731625.elts[4] = ((closureN)self_73985)->elts[4]; +c_731625.elts[5] = ((closureN)self_73985)->elts[5]; +c_731625.elts[6] = ((closureN)self_73985)->elts[6]; +c_731625.elts[7] = ((closureN)self_73985)->elts[7]; +c_731625.elts[8] = ((closureN)self_73985)->elts[8]; +c_731625.elts[9] = ((closureN)self_73985)->elts[9]; +c_731625.elts[10] = ((closureN)self_73985)->elts[10]; +c_731625.elts[11] = ((closureN)self_73985)->elts[12]; +c_731625.elts[12] = ((closureN)self_73985)->elts[13]; + +return_closcall1(data,(closure)&c_731625, Cyc_set_car(data, ((closureN)self_73985)->elts[11], r_73346));; +} + +static void __lambda_135(void *data, int argc, object self_73986, object r_73300) { + +closureN_type c_731627; +c_731627.hdr.mark = gc_color_red; + c_731627.hdr.grayed = 0; +c_731627.tag = closureN_tag; + c_731627.fn = (function_type)__lambda_124; +c_731627.num_args = 1; +c_731627.num_elt = 12; +c_731627.elts = (object *)alloca(sizeof(object) * 12); +c_731627.elts[0] = ((closureN)self_73986)->elts[0]; +c_731627.elts[1] = ((closureN)self_73986)->elts[1]; +c_731627.elts[2] = ((closureN)self_73986)->elts[2]; +c_731627.elts[3] = ((closureN)self_73986)->elts[3]; +c_731627.elts[4] = ((closureN)self_73986)->elts[4]; +c_731627.elts[5] = ((closureN)self_73986)->elts[5]; +c_731627.elts[6] = ((closureN)self_73986)->elts[7]; +c_731627.elts[7] = ((closureN)self_73986)->elts[8]; +c_731627.elts[8] = ((closureN)self_73986)->elts[9]; +c_731627.elts[9] = ((closureN)self_73986)->elts[10]; +c_731627.elts[10] = ((closureN)self_73986)->elts[11]; +c_731627.elts[11] = ((closureN)self_73986)->elts[12]; + + +closureN_type c_731826; +c_731826.hdr.mark = gc_color_red; + c_731826.hdr.grayed = 0; +c_731826.tag = closureN_tag; + c_731826.fn = (function_type)__lambda_134; +c_731826.num_args = 2; +c_731826.num_elt = 2; +c_731826.elts = (object *)alloca(sizeof(object) * 2); +c_731826.elts[0] = ((closureN)self_73986)->elts[6]; +c_731826.elts[1] = ((closureN)self_73986)->elts[7]; + +return_closcall1(data,(closure)&c_731627, &c_731826);; +} + +static void __lambda_134(void *data, int argc, object self_73987, object k_73338, object x_73167, object y_73166) { + +closureN_type c_731828; +c_731828.hdr.mark = gc_color_red; + c_731828.hdr.grayed = 0; +c_731828.tag = closureN_tag; + c_731828.fn = (function_type)__lambda_133; +c_731828.num_args = 1; +c_731828.num_elt = 5; +c_731828.elts = (object *)alloca(sizeof(object) * 5); +c_731828.elts[0] = k_73338; +c_731828.elts[1] = ((closureN)self_73987)->elts[0]; +c_731828.elts[2] = ((closureN)self_73987)->elts[1]; +c_731828.elts[3] = x_73167; +c_731828.elts[4] = y_73166; + +return_closcall1(data,(closure)&c_731828, Cyc_is_cons(x_73167));; +} + +static void __lambda_133(void *data, int argc, object self_73988, object r_73339) { + if( !eq(boolean_f, r_73339) ){ + +closureN_type c_731830; +c_731830.hdr.mark = gc_color_red; + c_731830.hdr.grayed = 0; +c_731830.tag = closureN_tag; + c_731830.fn = (function_type)__lambda_131; +c_731830.num_args = 0; +c_731830.num_elt = 5; +c_731830.elts = (object *)alloca(sizeof(object) * 5); +c_731830.elts[0] = ((closureN)self_73988)->elts[0]; +c_731830.elts[1] = ((closureN)self_73988)->elts[1]; +c_731830.elts[2] = ((closureN)self_73988)->elts[2]; +c_731830.elts[3] = ((closureN)self_73988)->elts[3]; +c_731830.elts[4] = ((closureN)self_73988)->elts[4]; + +return_closcall0(data,(closure)&c_731830); +} else { + +closureN_type c_731873; +c_731873.hdr.mark = gc_color_red; + c_731873.hdr.grayed = 0; +c_731873.tag = closureN_tag; + c_731873.fn = (function_type)__lambda_132; +c_731873.num_args = 0; +c_731873.num_elt = 3; +c_731873.elts = (object *)alloca(sizeof(object) * 3); +c_731873.elts[0] = ((closureN)self_73988)->elts[0]; +c_731873.elts[1] = ((closureN)self_73988)->elts[3]; +c_731873.elts[2] = ((closureN)self_73988)->elts[4]; + +return_closcall0(data,(closure)&c_731873);} +; +} + +static void __lambda_132(void *data, int argc, object self_73989) { + return_closcall1(data, ((closureN)self_73989)->elts[0], equalp(((closureN)self_73989)->elts[1], ((closureN)self_73989)->elts[2]));; +} + +static void __lambda_131(void *data, int argc, object self_73990) { + +closureN_type c_731832; +c_731832.hdr.mark = gc_color_red; + c_731832.hdr.grayed = 0; +c_731832.tag = closureN_tag; + c_731832.fn = (function_type)__lambda_130; +c_731832.num_args = 1; +c_731832.num_elt = 5; +c_731832.elts = (object *)alloca(sizeof(object) * 5); +c_731832.elts[0] = ((closureN)self_73990)->elts[0]; +c_731832.elts[1] = ((closureN)self_73990)->elts[1]; +c_731832.elts[2] = ((closureN)self_73990)->elts[2]; +c_731832.elts[3] = ((closureN)self_73990)->elts[3]; +c_731832.elts[4] = ((closureN)self_73990)->elts[4]; + +return_closcall1(data,(closure)&c_731832, Cyc_is_cons(((closureN)self_73990)->elts[4]));; +} + +static void __lambda_130(void *data, int argc, object self_73991, object r_73340) { + if( !eq(boolean_f, r_73340) ){ + +closureN_type c_731834; +c_731834.hdr.mark = gc_color_red; + c_731834.hdr.grayed = 0; +c_731834.tag = closureN_tag; + c_731834.fn = (function_type)__lambda_129; +c_731834.num_args = 1; +c_731834.num_elt = 5; +c_731834.elts = (object *)alloca(sizeof(object) * 5); +c_731834.elts[0] = ((closureN)self_73991)->elts[0]; +c_731834.elts[1] = ((closureN)self_73991)->elts[1]; +c_731834.elts[2] = ((closureN)self_73991)->elts[2]; +c_731834.elts[3] = ((closureN)self_73991)->elts[3]; +c_731834.elts[4] = ((closureN)self_73991)->elts[4]; + +return_closcall1(data,(closure)&c_731834, car(((closureN)self_73991)->elts[3])); +} else { + return_closcall1(data, ((closureN)self_73991)->elts[0], boolean_f);} +; +} + +static void __lambda_129(void *data, int argc, object self_73992, object r_73344) { + +closureN_type c_731836; +c_731836.hdr.mark = gc_color_red; + c_731836.hdr.grayed = 0; +c_731836.tag = closureN_tag; + c_731836.fn = (function_type)__lambda_128; +c_731836.num_args = 1; +c_731836.num_elt = 6; +c_731836.elts = (object *)alloca(sizeof(object) * 6); +c_731836.elts[0] = ((closureN)self_73992)->elts[0]; +c_731836.elts[1] = r_73344; +c_731836.elts[2] = ((closureN)self_73992)->elts[1]; +c_731836.elts[3] = ((closureN)self_73992)->elts[2]; +c_731836.elts[4] = ((closureN)self_73992)->elts[3]; +c_731836.elts[5] = ((closureN)self_73992)->elts[4]; + +return_closcall1(data,(closure)&c_731836, car(((closureN)self_73992)->elts[4]));; +} + +static void __lambda_128(void *data, int argc, object self_73993, object r_73345) { + +closureN_type c_731841; +c_731841.hdr.mark = gc_color_red; + c_731841.hdr.grayed = 0; +c_731841.tag = closureN_tag; + c_731841.fn = (function_type)__lambda_127; +c_731841.num_args = 1; +c_731841.num_elt = 4; +c_731841.elts = (object *)alloca(sizeof(object) * 4); +c_731841.elts[0] = ((closureN)self_73993)->elts[0]; +c_731841.elts[1] = ((closureN)self_73993)->elts[3]; +c_731841.elts[2] = ((closureN)self_73993)->elts[4]; +c_731841.elts[3] = ((closureN)self_73993)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_73993)->elts[2]), &c_731841, ((closureN)self_73993)->elts[1], r_73345);; +} + +static void __lambda_127(void *data, int argc, object self_73994, object r_73341) { + if( !eq(boolean_f, r_73341) ){ + +closureN_type c_731843; +c_731843.hdr.mark = gc_color_red; + c_731843.hdr.grayed = 0; +c_731843.tag = closureN_tag; + c_731843.fn = (function_type)__lambda_126; +c_731843.num_args = 1; +c_731843.num_elt = 3; +c_731843.elts = (object *)alloca(sizeof(object) * 3); +c_731843.elts[0] = ((closureN)self_73994)->elts[0]; +c_731843.elts[1] = ((closureN)self_73994)->elts[1]; +c_731843.elts[2] = ((closureN)self_73994)->elts[3]; + +return_closcall1(data,(closure)&c_731843, cdr(((closureN)self_73994)->elts[2])); +} else { + return_closcall1(data, ((closureN)self_73994)->elts[0], boolean_f);} +; +} + +static void __lambda_126(void *data, int argc, object self_73995, object r_73342) { + +closureN_type c_731845; +c_731845.hdr.mark = gc_color_red; + c_731845.hdr.grayed = 0; +c_731845.tag = closureN_tag; + c_731845.fn = (function_type)__lambda_125; +c_731845.num_args = 1; +c_731845.num_elt = 3; +c_731845.elts = (object *)alloca(sizeof(object) * 3); +c_731845.elts[0] = ((closureN)self_73995)->elts[0]; +c_731845.elts[1] = r_73342; +c_731845.elts[2] = ((closureN)self_73995)->elts[1]; + +return_closcall1(data,(closure)&c_731845, cdr(((closureN)self_73995)->elts[2]));; +} + +static void __lambda_125(void *data, int argc, object self_73996, object r_73343) { + return_closcall3(data, cell_get(((closureN)self_73996)->elts[2]), ((closureN)self_73996)->elts[0], ((closureN)self_73996)->elts[1], r_73343);; +} + +static void __lambda_124(void *data, int argc, object self_73997, object r_73337) { + +closureN_type c_731629; +c_731629.hdr.mark = gc_color_red; + c_731629.hdr.grayed = 0; +c_731629.tag = closureN_tag; + c_731629.fn = (function_type)__lambda_123; +c_731629.num_args = 1; +c_731629.num_elt = 12; +c_731629.elts = (object *)alloca(sizeof(object) * 12); +c_731629.elts[0] = ((closureN)self_73997)->elts[0]; +c_731629.elts[1] = ((closureN)self_73997)->elts[1]; +c_731629.elts[2] = ((closureN)self_73997)->elts[2]; +c_731629.elts[3] = ((closureN)self_73997)->elts[3]; +c_731629.elts[4] = ((closureN)self_73997)->elts[4]; +c_731629.elts[5] = ((closureN)self_73997)->elts[5]; +c_731629.elts[6] = ((closureN)self_73997)->elts[6]; +c_731629.elts[7] = ((closureN)self_73997)->elts[7]; +c_731629.elts[8] = ((closureN)self_73997)->elts[8]; +c_731629.elts[9] = ((closureN)self_73997)->elts[9]; +c_731629.elts[10] = ((closureN)self_73997)->elts[10]; +c_731629.elts[11] = ((closureN)self_73997)->elts[11]; + +return_closcall1(data,(closure)&c_731629, Cyc_set_car(data, ((closureN)self_73997)->elts[7], r_73337));; +} + +static void __lambda_123(void *data, int argc, object self_73998, object r_73301) { + +closureN_type c_731631; +c_731631.hdr.mark = gc_color_red; + c_731631.hdr.grayed = 0; +c_731631.tag = closureN_tag; + c_731631.fn = (function_type)__lambda_110; +c_731631.num_args = 1; +c_731631.num_elt = 12; +c_731631.elts = (object *)alloca(sizeof(object) * 12); +c_731631.elts[0] = ((closureN)self_73998)->elts[0]; +c_731631.elts[1] = ((closureN)self_73998)->elts[1]; +c_731631.elts[2] = ((closureN)self_73998)->elts[2]; +c_731631.elts[3] = ((closureN)self_73998)->elts[3]; +c_731631.elts[4] = ((closureN)self_73998)->elts[4]; +c_731631.elts[5] = ((closureN)self_73998)->elts[5]; +c_731631.elts[6] = ((closureN)self_73998)->elts[6]; +c_731631.elts[7] = ((closureN)self_73998)->elts[7]; +c_731631.elts[8] = ((closureN)self_73998)->elts[8]; +c_731631.elts[9] = ((closureN)self_73998)->elts[9]; +c_731631.elts[10] = ((closureN)self_73998)->elts[10]; +c_731631.elts[11] = ((closureN)self_73998)->elts[11]; + + +closureN_type c_731764; +c_731764.hdr.mark = gc_color_red; + c_731764.hdr.grayed = 0; +c_731764.tag = closureN_tag; + c_731764.fn = (function_type)__lambda_122; +c_731764.num_args = 2; +c_731764.num_elt = 2; +c_731764.elts = (object *)alloca(sizeof(object) * 2); +c_731764.elts[0] = ((closureN)self_73998)->elts[6]; +c_731764.elts[1] = ((closureN)self_73998)->elts[7]; + +return_closcall1(data,(closure)&c_731631, &c_731764);; +} + +static void __lambda_122(void *data, int argc, object self_73999, object k_73329, object lst1_73165, object lst2_73164) { + +closureN_type c_731766; +c_731766.hdr.mark = gc_color_red; + c_731766.hdr.grayed = 0; +c_731766.tag = closureN_tag; + c_731766.fn = (function_type)__lambda_121; +c_731766.num_args = 1; +c_731766.num_elt = 5; +c_731766.elts = (object *)alloca(sizeof(object) * 5); +c_731766.elts[0] = k_73329; +c_731766.elts[1] = lst1_73165; +c_731766.elts[2] = lst2_73164; +c_731766.elts[3] = ((closureN)self_73999)->elts[0]; +c_731766.elts[4] = ((closureN)self_73999)->elts[1]; + +return_closcall1(data,(closure)&c_731766, Cyc_is_null(lst1_73165));; +} + +static void __lambda_121(void *data, int argc, object self_731000, object r_73330) { + if( !eq(boolean_f, r_73330) ){ + +closureN_type c_731768; +c_731768.hdr.mark = gc_color_red; + c_731768.hdr.grayed = 0; +c_731768.tag = closureN_tag; + c_731768.fn = (function_type)__lambda_111; +c_731768.num_args = 0; +c_731768.num_elt = 2; +c_731768.elts = (object *)alloca(sizeof(object) * 2); +c_731768.elts[0] = ((closureN)self_731000)->elts[0]; +c_731768.elts[1] = ((closureN)self_731000)->elts[2]; + +return_closcall0(data,(closure)&c_731768); +} else { + +closureN_type c_731775; +c_731775.hdr.mark = gc_color_red; + c_731775.hdr.grayed = 0; +c_731775.tag = closureN_tag; + c_731775.fn = (function_type)__lambda_120; +c_731775.num_args = 1; +c_731775.num_elt = 5; +c_731775.elts = (object *)alloca(sizeof(object) * 5); +c_731775.elts[0] = ((closureN)self_731000)->elts[0]; +c_731775.elts[1] = ((closureN)self_731000)->elts[1]; +c_731775.elts[2] = ((closureN)self_731000)->elts[2]; +c_731775.elts[3] = ((closureN)self_731000)->elts[3]; +c_731775.elts[4] = ((closureN)self_731000)->elts[4]; + +return_closcall1(data,(closure)&c_731775, Cyc_is_null(((closureN)self_731000)->elts[2]));} +; +} + +static void __lambda_120(void *data, int argc, object self_731001, object r_73331) { + if( !eq(boolean_f, r_73331) ){ + +closureN_type c_731777; +c_731777.hdr.mark = gc_color_red; + c_731777.hdr.grayed = 0; +c_731777.tag = closureN_tag; + c_731777.fn = (function_type)__lambda_112; +c_731777.num_args = 0; +c_731777.num_elt = 1; +c_731777.elts = (object *)alloca(sizeof(object) * 1); +c_731777.elts[0] = ((closureN)self_731001)->elts[0]; + +return_closcall0(data,(closure)&c_731777); +} else { + +closureN_type c_731781; +c_731781.hdr.mark = gc_color_red; + c_731781.hdr.grayed = 0; +c_731781.tag = closureN_tag; + c_731781.fn = (function_type)__lambda_119; +c_731781.num_args = 1; +c_731781.num_elt = 5; +c_731781.elts = (object *)alloca(sizeof(object) * 5); +c_731781.elts[0] = ((closureN)self_731001)->elts[0]; +c_731781.elts[1] = ((closureN)self_731001)->elts[1]; +c_731781.elts[2] = ((closureN)self_731001)->elts[2]; +c_731781.elts[3] = ((closureN)self_731001)->elts[3]; +c_731781.elts[4] = ((closureN)self_731001)->elts[4]; + +return_closcall1(data,(closure)&c_731781, car(((closureN)self_731001)->elts[1]));} +; +} + +static void __lambda_119(void *data, int argc, object self_731002, object r_73335) { + +closureN_type c_731783; +c_731783.hdr.mark = gc_color_red; + c_731783.hdr.grayed = 0; +c_731783.tag = closureN_tag; + c_731783.fn = (function_type)__lambda_118; +c_731783.num_args = 1; +c_731783.num_elt = 6; +c_731783.elts = (object *)alloca(sizeof(object) * 6); +c_731783.elts[0] = ((closureN)self_731002)->elts[0]; +c_731783.elts[1] = ((closureN)self_731002)->elts[1]; +c_731783.elts[2] = ((closureN)self_731002)->elts[2]; +c_731783.elts[3] = r_73335; +c_731783.elts[4] = ((closureN)self_731002)->elts[3]; +c_731783.elts[5] = ((closureN)self_731002)->elts[4]; + +return_closcall1(data,(closure)&c_731783, car(((closureN)self_731002)->elts[2]));; +} + +static void __lambda_118(void *data, int argc, object self_731003, object r_73336) { + +closureN_type c_731788; +c_731788.hdr.mark = gc_color_red; + c_731788.hdr.grayed = 0; +c_731788.tag = closureN_tag; + c_731788.fn = (function_type)__lambda_117; +c_731788.num_args = 1; +c_731788.num_elt = 4; +c_731788.elts = (object *)alloca(sizeof(object) * 4); +c_731788.elts[0] = ((closureN)self_731003)->elts[0]; +c_731788.elts[1] = ((closureN)self_731003)->elts[1]; +c_731788.elts[2] = ((closureN)self_731003)->elts[2]; +c_731788.elts[3] = ((closureN)self_731003)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_731003)->elts[5]), &c_731788, ((closureN)self_731003)->elts[3], r_73336);; +} + +static void __lambda_117(void *data, int argc, object self_731004, object r_73332) { + if( !eq(boolean_f, r_73332) ){ + +closureN_type c_731790; +c_731790.hdr.mark = gc_color_red; + c_731790.hdr.grayed = 0; +c_731790.tag = closureN_tag; + c_731790.fn = (function_type)__lambda_115; +c_731790.num_args = 0; +c_731790.num_elt = 4; +c_731790.elts = (object *)alloca(sizeof(object) * 4); +c_731790.elts[0] = ((closureN)self_731004)->elts[0]; +c_731790.elts[1] = ((closureN)self_731004)->elts[1]; +c_731790.elts[2] = ((closureN)self_731004)->elts[2]; +c_731790.elts[3] = ((closureN)self_731004)->elts[3]; + +return_closcall0(data,(closure)&c_731790); +} else { + +closureN_type c_731808; +c_731808.hdr.mark = gc_color_red; + c_731808.hdr.grayed = 0; +c_731808.tag = closureN_tag; + c_731808.fn = (function_type)__lambda_116; +c_731808.num_args = 0; +c_731808.num_elt = 1; +c_731808.elts = (object *)alloca(sizeof(object) * 1); +c_731808.elts[0] = ((closureN)self_731004)->elts[0]; + +return_closcall0(data,(closure)&c_731808);} +; +} + +static void __lambda_116(void *data, int argc, object self_731005) { + return_closcall1(data, ((closureN)self_731005)->elts[0], boolean_f);; +} + +static void __lambda_115(void *data, int argc, object self_731006) { + +closureN_type c_731792; +c_731792.hdr.mark = gc_color_red; + c_731792.hdr.grayed = 0; +c_731792.tag = closureN_tag; + c_731792.fn = (function_type)__lambda_114; +c_731792.num_args = 1; +c_731792.num_elt = 3; +c_731792.elts = (object *)alloca(sizeof(object) * 3); +c_731792.elts[0] = ((closureN)self_731006)->elts[0]; +c_731792.elts[1] = ((closureN)self_731006)->elts[2]; +c_731792.elts[2] = ((closureN)self_731006)->elts[3]; + +return_closcall1(data,(closure)&c_731792, cdr(((closureN)self_731006)->elts[1]));; +} + +static void __lambda_114(void *data, int argc, object self_731007, object r_73333) { + +closureN_type c_731794; +c_731794.hdr.mark = gc_color_red; + c_731794.hdr.grayed = 0; +c_731794.tag = closureN_tag; + c_731794.fn = (function_type)__lambda_113; +c_731794.num_args = 1; +c_731794.num_elt = 3; +c_731794.elts = (object *)alloca(sizeof(object) * 3); +c_731794.elts[0] = ((closureN)self_731007)->elts[0]; +c_731794.elts[1] = r_73333; +c_731794.elts[2] = ((closureN)self_731007)->elts[2]; + +return_closcall1(data,(closure)&c_731794, cdr(((closureN)self_731007)->elts[1]));; +} + +static void __lambda_113(void *data, int argc, object self_731008, object r_73334) { + return_closcall3(data, cell_get(((closureN)self_731008)->elts[2]), ((closureN)self_731008)->elts[0], ((closureN)self_731008)->elts[1], r_73334);; +} + +static void __lambda_112(void *data, int argc, object self_731009) { + return_closcall1(data, ((closureN)self_731009)->elts[0], boolean_f);; +} + +static void __lambda_111(void *data, int argc, object self_731010) { + return_closcall1(data, ((closureN)self_731010)->elts[0], Cyc_is_null(((closureN)self_731010)->elts[1]));; +} + +static void __lambda_110(void *data, int argc, object self_731011, object r_73328) { + +closureN_type c_731633; +c_731633.hdr.mark = gc_color_red; + c_731633.hdr.grayed = 0; +c_731633.tag = closureN_tag; + c_731633.fn = (function_type)__lambda_109; +c_731633.num_args = 1; +c_731633.num_elt = 11; +c_731633.elts = (object *)alloca(sizeof(object) * 11); +c_731633.elts[0] = ((closureN)self_731011)->elts[0]; +c_731633.elts[1] = ((closureN)self_731011)->elts[1]; +c_731633.elts[2] = ((closureN)self_731011)->elts[2]; +c_731633.elts[3] = ((closureN)self_731011)->elts[3]; +c_731633.elts[4] = ((closureN)self_731011)->elts[4]; +c_731633.elts[5] = ((closureN)self_731011)->elts[5]; +c_731633.elts[6] = ((closureN)self_731011)->elts[7]; +c_731633.elts[7] = ((closureN)self_731011)->elts[8]; +c_731633.elts[8] = ((closureN)self_731011)->elts[9]; +c_731633.elts[9] = ((closureN)self_731011)->elts[10]; +c_731633.elts[10] = ((closureN)self_731011)->elts[11]; + +return_closcall1(data,(closure)&c_731633, Cyc_set_car(data, ((closureN)self_731011)->elts[6], r_73328));; +} + +static void __lambda_109(void *data, int argc, object self_731012, object r_73302) { + +closureN_type c_731635; +c_731635.hdr.mark = gc_color_red; + c_731635.hdr.grayed = 0; +c_731635.tag = closureN_tag; + c_731635.fn = (function_type)__lambda_100; +c_731635.num_args = 1; +c_731635.num_elt = 10; +c_731635.elts = (object *)alloca(sizeof(object) * 10); +c_731635.elts[0] = ((closureN)self_731012)->elts[0]; +c_731635.elts[1] = ((closureN)self_731012)->elts[1]; +c_731635.elts[2] = ((closureN)self_731012)->elts[2]; +c_731635.elts[3] = ((closureN)self_731012)->elts[3]; +c_731635.elts[4] = ((closureN)self_731012)->elts[4]; +c_731635.elts[5] = ((closureN)self_731012)->elts[5]; +c_731635.elts[6] = ((closureN)self_731012)->elts[7]; +c_731635.elts[7] = ((closureN)self_731012)->elts[8]; +c_731635.elts[8] = ((closureN)self_731012)->elts[9]; +c_731635.elts[9] = ((closureN)self_731012)->elts[10]; + + +closureN_type c_731724; +c_731724.hdr.mark = gc_color_red; + c_731724.hdr.grayed = 0; +c_731724.tag = closureN_tag; + c_731724.fn = (function_type)__lambda_108; +c_731724.num_args = 2; +c_731724.num_elt = 2; +c_731724.elts = (object *)alloca(sizeof(object) * 2); +c_731724.elts[0] = ((closureN)self_731012)->elts[6]; +c_731724.elts[1] = ((closureN)self_731012)->elts[7]; + +return_closcall1(data,(closure)&c_731635, &c_731724);; +} + +static void __lambda_108(void *data, int argc, object self_731013, object k_73323, object x_73163, object lst_73162) { + +closureN_type c_731726; +c_731726.hdr.mark = gc_color_red; + c_731726.hdr.grayed = 0; +c_731726.tag = closureN_tag; + c_731726.fn = (function_type)__lambda_107; +c_731726.num_args = 1; +c_731726.num_elt = 5; +c_731726.elts = (object *)alloca(sizeof(object) * 5); +c_731726.elts[0] = k_73323; +c_731726.elts[1] = lst_73162; +c_731726.elts[2] = ((closureN)self_731013)->elts[0]; +c_731726.elts[3] = ((closureN)self_731013)->elts[1]; +c_731726.elts[4] = x_73163; + +return_closcall1(data,(closure)&c_731726, Cyc_is_null(lst_73162));; +} + +static void __lambda_107(void *data, int argc, object self_731014, object r_73324) { + if( !eq(boolean_f, r_73324) ){ + +closureN_type c_731728; +c_731728.hdr.mark = gc_color_red; + c_731728.hdr.grayed = 0; +c_731728.tag = closureN_tag; + c_731728.fn = (function_type)__lambda_101; +c_731728.num_args = 0; +c_731728.num_elt = 1; +c_731728.elts = (object *)alloca(sizeof(object) * 1); +c_731728.elts[0] = ((closureN)self_731014)->elts[0]; + +return_closcall0(data,(closure)&c_731728); +} else { + +closureN_type c_731732; +c_731732.hdr.mark = gc_color_red; + c_731732.hdr.grayed = 0; +c_731732.tag = closureN_tag; + c_731732.fn = (function_type)__lambda_106; +c_731732.num_args = 1; +c_731732.num_elt = 5; +c_731732.elts = (object *)alloca(sizeof(object) * 5); +c_731732.elts[0] = ((closureN)self_731014)->elts[0]; +c_731732.elts[1] = ((closureN)self_731014)->elts[1]; +c_731732.elts[2] = ((closureN)self_731014)->elts[2]; +c_731732.elts[3] = ((closureN)self_731014)->elts[3]; +c_731732.elts[4] = ((closureN)self_731014)->elts[4]; + +return_closcall1(data,(closure)&c_731732, car(((closureN)self_731014)->elts[1]));} +; +} + +static void __lambda_106(void *data, int argc, object self_731015, object r_73327) { + +closureN_type c_731737; +c_731737.hdr.mark = gc_color_red; + c_731737.hdr.grayed = 0; +c_731737.tag = closureN_tag; + c_731737.fn = (function_type)__lambda_105; +c_731737.num_args = 1; +c_731737.num_elt = 4; +c_731737.elts = (object *)alloca(sizeof(object) * 4); +c_731737.elts[0] = ((closureN)self_731015)->elts[0]; +c_731737.elts[1] = ((closureN)self_731015)->elts[1]; +c_731737.elts[2] = ((closureN)self_731015)->elts[3]; +c_731737.elts[3] = ((closureN)self_731015)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_731015)->elts[2]), &c_731737, ((closureN)self_731015)->elts[4], r_73327);; +} + +static void __lambda_105(void *data, int argc, object self_731016, object r_73325) { + if( !eq(boolean_f, r_73325) ){ + +closureN_type c_731739; +c_731739.hdr.mark = gc_color_red; + c_731739.hdr.grayed = 0; +c_731739.tag = closureN_tag; + c_731739.fn = (function_type)__lambda_102; +c_731739.num_args = 0; +c_731739.num_elt = 1; +c_731739.elts = (object *)alloca(sizeof(object) * 1); +c_731739.elts[0] = ((closureN)self_731016)->elts[0]; + +return_closcall0(data,(closure)&c_731739); +} else { + +closureN_type c_731743; +c_731743.hdr.mark = gc_color_red; + c_731743.hdr.grayed = 0; +c_731743.tag = closureN_tag; + c_731743.fn = (function_type)__lambda_104; +c_731743.num_args = 0; +c_731743.num_elt = 4; +c_731743.elts = (object *)alloca(sizeof(object) * 4); +c_731743.elts[0] = ((closureN)self_731016)->elts[0]; +c_731743.elts[1] = ((closureN)self_731016)->elts[1]; +c_731743.elts[2] = ((closureN)self_731016)->elts[2]; +c_731743.elts[3] = ((closureN)self_731016)->elts[3]; + +return_closcall0(data,(closure)&c_731743);} +; +} + +static void __lambda_104(void *data, int argc, object self_731017) { + +closureN_type c_731745; +c_731745.hdr.mark = gc_color_red; + c_731745.hdr.grayed = 0; +c_731745.tag = closureN_tag; + c_731745.fn = (function_type)__lambda_103; +c_731745.num_args = 1; +c_731745.num_elt = 3; +c_731745.elts = (object *)alloca(sizeof(object) * 3); +c_731745.elts[0] = ((closureN)self_731017)->elts[0]; +c_731745.elts[1] = ((closureN)self_731017)->elts[2]; +c_731745.elts[2] = ((closureN)self_731017)->elts[3]; + +return_closcall1(data,(closure)&c_731745, cdr(((closureN)self_731017)->elts[1]));; +} + +static void __lambda_103(void *data, int argc, object self_731018, object r_73326) { + return_closcall3(data, cell_get(((closureN)self_731018)->elts[1]), ((closureN)self_731018)->elts[0], ((closureN)self_731018)->elts[2], r_73326);; +} + +static void __lambda_102(void *data, int argc, object self_731019) { + return_closcall1(data, ((closureN)self_731019)->elts[0], boolean_t);; +} + +static void __lambda_101(void *data, int argc, object self_731020) { + return_closcall1(data, ((closureN)self_731020)->elts[0], boolean_f);; +} + +static void __lambda_100(void *data, int argc, object self_731021, object r_73322) { + +closureN_type c_731637; +c_731637.hdr.mark = gc_color_red; + c_731637.hdr.grayed = 0; +c_731637.tag = closureN_tag; + c_731637.fn = (function_type)__lambda_99; +c_731637.num_args = 1; +c_731637.num_elt = 9; +c_731637.elts = (object *)alloca(sizeof(object) * 9); +c_731637.elts[0] = ((closureN)self_731021)->elts[0]; +c_731637.elts[1] = ((closureN)self_731021)->elts[1]; +c_731637.elts[2] = ((closureN)self_731021)->elts[2]; +c_731637.elts[3] = ((closureN)self_731021)->elts[3]; +c_731637.elts[4] = ((closureN)self_731021)->elts[4]; +c_731637.elts[5] = ((closureN)self_731021)->elts[5]; +c_731637.elts[6] = ((closureN)self_731021)->elts[7]; +c_731637.elts[7] = ((closureN)self_731021)->elts[8]; +c_731637.elts[8] = ((closureN)self_731021)->elts[9]; + +return_closcall1(data,(closure)&c_731637, Cyc_set_car(data, ((closureN)self_731021)->elts[6], r_73322));; +} + +static void __lambda_99(void *data, int argc, object self_731022, object r_73303) { + +closureN_type c_731639; +c_731639.hdr.mark = gc_color_red; + c_731639.hdr.grayed = 0; +c_731639.tag = closureN_tag; + c_731639.fn = (function_type)__lambda_86; +c_731639.num_args = 1; +c_731639.num_elt = 2; +c_731639.elts = (object *)alloca(sizeof(object) * 2); +c_731639.elts[0] = ((closureN)self_731022)->elts[3]; +c_731639.elts[1] = ((closureN)self_731022)->elts[6]; + + +closureN_type c_731670; +c_731670.hdr.mark = gc_color_red; + c_731670.hdr.grayed = 0; +c_731670.tag = closureN_tag; + c_731670.fn = (function_type)__lambda_98; +c_731670.num_args = 0; +c_731670.num_elt = 7; +c_731670.elts = (object *)alloca(sizeof(object) * 7); +c_731670.elts[0] = ((closureN)self_731022)->elts[0]; +c_731670.elts[1] = ((closureN)self_731022)->elts[1]; +c_731670.elts[2] = ((closureN)self_731022)->elts[2]; +c_731670.elts[3] = ((closureN)self_731022)->elts[4]; +c_731670.elts[4] = ((closureN)self_731022)->elts[5]; +c_731670.elts[5] = ((closureN)self_731022)->elts[7]; +c_731670.elts[6] = ((closureN)self_731022)->elts[8]; + +return_closcall1(data,(closure)&c_731639, &c_731670);; +} + +static void __lambda_98(void *data, int argc, object self_731023, object k_73310) { + +closureN_type c_731672; +c_731672.hdr.mark = gc_color_red; + c_731672.hdr.grayed = 0; +c_731672.tag = closureN_tag; + c_731672.fn = (function_type)__lambda_97; +c_731672.num_args = 1; +c_731672.num_elt = 8; +c_731672.elts = (object *)alloca(sizeof(object) * 8); +c_731672.elts[0] = ((closureN)self_731023)->elts[0]; +c_731672.elts[1] = ((closureN)self_731023)->elts[1]; +c_731672.elts[2] = ((closureN)self_731023)->elts[2]; +c_731672.elts[3] = k_73310; +c_731672.elts[4] = ((closureN)self_731023)->elts[3]; +c_731672.elts[5] = ((closureN)self_731023)->elts[4]; +c_731672.elts[6] = ((closureN)self_731023)->elts[5]; +c_731672.elts[7] = ((closureN)self_731023)->elts[6]; + +return_closcall1(data,(closure)&c_731672, nil);; +} + +static void __lambda_97(void *data, int argc, object self_731024, object r_73321) { + +closureN_type c_731674; +c_731674.hdr.mark = gc_color_red; + c_731674.hdr.grayed = 0; +c_731674.tag = closureN_tag; + c_731674.fn = (function_type)__lambda_96; +c_731674.num_args = 1; +c_731674.num_elt = 7; +c_731674.elts = (object *)alloca(sizeof(object) * 7); +c_731674.elts[0] = ((closureN)self_731024)->elts[1]; +c_731674.elts[1] = ((closureN)self_731024)->elts[2]; +c_731674.elts[2] = ((closureN)self_731024)->elts[3]; +c_731674.elts[3] = ((closureN)self_731024)->elts[4]; +c_731674.elts[4] = ((closureN)self_731024)->elts[5]; +c_731674.elts[5] = ((closureN)self_731024)->elts[6]; +c_731674.elts[6] = ((closureN)self_731024)->elts[7]; + +return_closcall1(data,(closure)&c_731674, Cyc_set_car(data, ((closureN)self_731024)->elts[0], r_73321));; +} + +static void __lambda_96(void *data, int argc, object self_731025, object r_73311) { + +closureN_type c_731676; +c_731676.hdr.mark = gc_color_red; + c_731676.hdr.grayed = 0; +c_731676.tag = closureN_tag; + c_731676.fn = (function_type)__lambda_95; +c_731676.num_args = 1; +c_731676.num_elt = 7; +c_731676.elts = (object *)alloca(sizeof(object) * 7); +c_731676.elts[0] = ((closureN)self_731025)->elts[0]; +c_731676.elts[1] = ((closureN)self_731025)->elts[1]; +c_731676.elts[2] = ((closureN)self_731025)->elts[2]; +c_731676.elts[3] = ((closureN)self_731025)->elts[3]; +c_731676.elts[4] = ((closureN)self_731025)->elts[4]; +c_731676.elts[5] = ((closureN)self_731025)->elts[5]; +c_731676.elts[6] = ((closureN)self_731025)->elts[6]; + +return_closcall1(data,(closure)&c_731676, quote__if);; +} + +static void __lambda_95(void *data, int argc, object self_731026, object r_73320) { + +closureN_type c_731681; +c_731681.hdr.mark = gc_color_red; + c_731681.hdr.grayed = 0; +c_731681.tag = closureN_tag; + c_731681.fn = (function_type)__lambda_94; +c_731681.num_args = 1; +c_731681.num_elt = 6; +c_731681.elts = (object *)alloca(sizeof(object) * 6); +c_731681.elts[0] = ((closureN)self_731026)->elts[0]; +c_731681.elts[1] = ((closureN)self_731026)->elts[1]; +c_731681.elts[2] = ((closureN)self_731026)->elts[2]; +c_731681.elts[3] = ((closureN)self_731026)->elts[3]; +c_731681.elts[4] = ((closureN)self_731026)->elts[5]; +c_731681.elts[5] = ((closureN)self_731026)->elts[6]; + +return_closcall2(data, cell_get(((closureN)self_731026)->elts[4]), &c_731681, r_73320);; +} + +static void __lambda_94(void *data, int argc, object self_731027, object r_73319) { + +closureN_type c_731683; +c_731683.hdr.mark = gc_color_red; + c_731683.hdr.grayed = 0; +c_731683.tag = closureN_tag; + c_731683.fn = (function_type)__lambda_93; +c_731683.num_args = 1; +c_731683.num_elt = 5; +c_731683.elts = (object *)alloca(sizeof(object) * 5); +c_731683.elts[0] = ((closureN)self_731027)->elts[0]; +c_731683.elts[1] = ((closureN)self_731027)->elts[2]; +c_731683.elts[2] = ((closureN)self_731027)->elts[3]; +c_731683.elts[3] = ((closureN)self_731027)->elts[4]; +c_731683.elts[4] = ((closureN)self_731027)->elts[5]; + +return_closcall1(data,(closure)&c_731683, Cyc_set_car(data, ((closureN)self_731027)->elts[1], r_73319));; +} + +static void __lambda_93(void *data, int argc, object self_731028, object r_73312) { + +closureN_type c_731685; +c_731685.hdr.mark = gc_color_red; + c_731685.hdr.grayed = 0; +c_731685.tag = closureN_tag; + c_731685.fn = (function_type)__lambda_92; +c_731685.num_args = 1; +c_731685.num_elt = 5; +c_731685.elts = (object *)alloca(sizeof(object) * 5); +c_731685.elts[0] = ((closureN)self_731028)->elts[0]; +c_731685.elts[1] = ((closureN)self_731028)->elts[1]; +c_731685.elts[2] = ((closureN)self_731028)->elts[2]; +c_731685.elts[3] = ((closureN)self_731028)->elts[3]; +c_731685.elts[4] = ((closureN)self_731028)->elts[4]; + + +make_cons(c_731714,quote_f,nil); +return_closcall1(data,(closure)&c_731685, &c_731714);; +} + +static void __lambda_92(void *data, int argc, object self_731029, object r_73318) { + +closureN_type c_731690; +c_731690.hdr.mark = gc_color_red; + c_731690.hdr.grayed = 0; +c_731690.tag = closureN_tag; + c_731690.fn = (function_type)__lambda_91; +c_731690.num_args = 1; +c_731690.num_elt = 5; +c_731690.elts = (object *)alloca(sizeof(object) * 5); +c_731690.elts[0] = ((closureN)self_731029)->elts[0]; +c_731690.elts[1] = ((closureN)self_731029)->elts[1]; +c_731690.elts[2] = ((closureN)self_731029)->elts[2]; +c_731690.elts[3] = ((closureN)self_731029)->elts[3]; +c_731690.elts[4] = ((closureN)self_731029)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_731029)->elts[3]), &c_731690, r_73318);; +} + +static void __lambda_91(void *data, int argc, object self_731030, object r_73317) { + +closureN_type c_731692; +c_731692.hdr.mark = gc_color_red; + c_731692.hdr.grayed = 0; +c_731692.tag = closureN_tag; + c_731692.fn = (function_type)__lambda_90; +c_731692.num_args = 1; +c_731692.num_elt = 4; +c_731692.elts = (object *)alloca(sizeof(object) * 4); +c_731692.elts[0] = ((closureN)self_731030)->elts[1]; +c_731692.elts[1] = ((closureN)self_731030)->elts[2]; +c_731692.elts[2] = ((closureN)self_731030)->elts[3]; +c_731692.elts[3] = ((closureN)self_731030)->elts[4]; + +return_closcall1(data,(closure)&c_731692, Cyc_set_car(data, ((closureN)self_731030)->elts[0], r_73317));; +} + +static void __lambda_90(void *data, int argc, object self_731031, object r_73313) { + +closureN_type c_731694; +c_731694.hdr.mark = gc_color_red; + c_731694.hdr.grayed = 0; +c_731694.tag = closureN_tag; + c_731694.fn = (function_type)__lambda_89; +c_731694.num_args = 1; +c_731694.num_elt = 4; +c_731694.elts = (object *)alloca(sizeof(object) * 4); +c_731694.elts[0] = ((closureN)self_731031)->elts[0]; +c_731694.elts[1] = ((closureN)self_731031)->elts[1]; +c_731694.elts[2] = ((closureN)self_731031)->elts[2]; +c_731694.elts[3] = ((closureN)self_731031)->elts[3]; + + +make_cons(c_731710,quote_t,nil); +return_closcall1(data,(closure)&c_731694, &c_731710);; +} + +static void __lambda_89(void *data, int argc, object self_731032, object r_73316) { + +closureN_type c_731699; +c_731699.hdr.mark = gc_color_red; + c_731699.hdr.grayed = 0; +c_731699.tag = closureN_tag; + c_731699.fn = (function_type)__lambda_88; +c_731699.num_args = 1; +c_731699.num_elt = 3; +c_731699.elts = (object *)alloca(sizeof(object) * 3); +c_731699.elts[0] = ((closureN)self_731032)->elts[0]; +c_731699.elts[1] = ((closureN)self_731032)->elts[1]; +c_731699.elts[2] = ((closureN)self_731032)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_731032)->elts[2]), &c_731699, r_73316);; +} + +static void __lambda_88(void *data, int argc, object self_731033, object r_73315) { + +closureN_type c_731701; +c_731701.hdr.mark = gc_color_red; + c_731701.hdr.grayed = 0; +c_731701.tag = closureN_tag; + c_731701.fn = (function_type)__lambda_87; +c_731701.num_args = 1; +c_731701.num_elt = 2; +c_731701.elts = (object *)alloca(sizeof(object) * 2); +c_731701.elts[0] = ((closureN)self_731033)->elts[0]; +c_731701.elts[1] = ((closureN)self_731033)->elts[1]; + +return_closcall1(data,(closure)&c_731701, Cyc_set_car(data, ((closureN)self_731033)->elts[2], r_73315));; +} + +static void __lambda_87(void *data, int argc, object self_731034, object r_73314) { + return_closcall1(data, cell_get(((closureN)self_731034)->elts[1]), ((closureN)self_731034)->elts[0]);; +} + +static void __lambda_86(void *data, int argc, object self_731035, object r_73309) { + +closureN_type c_731641; +c_731641.hdr.mark = gc_color_red; + c_731641.hdr.grayed = 0; +c_731641.tag = closureN_tag; + c_731641.fn = (function_type)__lambda_85; +c_731641.num_args = 1; +c_731641.num_elt = 2; +c_731641.elts = (object *)alloca(sizeof(object) * 2); +c_731641.elts[0] = ((closureN)self_731035)->elts[0]; +c_731641.elts[1] = ((closureN)self_731035)->elts[1]; + +return_closcall1(data,(closure)&c_731641, global_set(__glo_setup_91boyer, r_73309));; +} + +static void __lambda_85(void *data, int argc, object self_731036, object r_73304) { + closureN_type c_731647; +c_731647.hdr.mark = gc_color_red; + c_731647.hdr.grayed = 0; +c_731647.tag = closureN_tag; + c_731647.fn = (function_type)__lambda_84; +c_731647.num_args = 3; +c_731647.num_elt = 2; +c_731647.elts = (object *)alloca(sizeof(object) * 2); +c_731647.elts[0] = ((closureN)self_731036)->elts[0]; +c_731647.elts[1] = ((closureN)self_731036)->elts[1]; + +return_direct1(data,__lambda_81,&c_731647);; +} + +static void __lambda_84(void *data, int argc, object self_731037, object k_73306, object alist_73160, object term_73159, object n_73158) { + +closureN_type c_731649; +c_731649.hdr.mark = gc_color_red; + c_731649.hdr.grayed = 0; +c_731649.tag = closureN_tag; + c_731649.fn = (function_type)__lambda_83; +c_731649.num_args = 1; +c_731649.num_elt = 6; +c_731649.elts = (object *)alloca(sizeof(object) * 6); +c_731649.elts[0] = alist_73160; +c_731649.elts[1] = k_73306; +c_731649.elts[2] = n_73158; +c_731649.elts[3] = ((closureN)self_731037)->elts[0]; +c_731649.elts[4] = term_73159; +c_731649.elts[5] = ((closureN)self_731037)->elts[1]; + +return_closcall1(data,(closure)&c_731649, Cyc_set_car(data, ((closureN)self_731037)->elts[0], obj_int2obj(0)));; +} + +static void __lambda_83(void *data, int argc, object self_731038, object r_73307) { + +closureN_type c_731654; +c_731654.hdr.mark = gc_color_red; + c_731654.hdr.grayed = 0; +c_731654.tag = closureN_tag; + c_731654.fn = (function_type)__lambda_82; +c_731654.num_args = 1; +c_731654.num_elt = 2; +c_731654.elts = (object *)alloca(sizeof(object) * 2); +c_731654.elts[0] = ((closureN)self_731038)->elts[1]; +c_731654.elts[1] = ((closureN)self_731038)->elts[3]; + +return_closcall4(data, cell_get(((closureN)self_731038)->elts[5]), &c_731654, ((closureN)self_731038)->elts[0], ((closureN)self_731038)->elts[4], ((closureN)self_731038)->elts[2]);; +} + +static void __lambda_82(void *data, int argc, object self_731039, object answer_73161) { + if( !eq(boolean_f, answer_73161) ){ + return_closcall1(data, ((closureN)self_731039)->elts[0], cell_get(((closureN)self_731039)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_731039)->elts[0], boolean_f);} +; +} + +static void __lambda_81(void *data, int argc, closure _,object r_73305) { + return_direct1(data,__lambda_80,global_set(__glo_test_91boyer, r_73305));; +} + +static void __lambda_80(void *data, int argc, closure _,object r_73264) { + return_closcall1(data, __glo_main, primitive__75halt);; +} + +static void __lambda_79(void *data, int argc, closure _,object k_73568, object name_73229, object count_73228, object thunk_73227, object ok_127_73226) { + Cyc_st_add(data, "nboyer.scm:run-r7rs-benchmark"); + +closureN_type c_731225; +c_731225.hdr.mark = gc_color_red; + c_731225.hdr.grayed = 0; +c_731225.tag = closureN_tag; + c_731225.fn = (function_type)__lambda_78; +c_731225.num_args = 1; +c_731225.num_elt = 5; +c_731225.elts = (object *)alloca(sizeof(object) * 5); +c_731225.elts[0] = count_73228; +c_731225.elts[1] = k_73568; +c_731225.elts[2] = name_73229; +c_731225.elts[3] = ok_127_73226; +c_731225.elts[4] = thunk_73227; + +return_closcall1(data,(closure)&c_731225, boolean_f);; +} + +static void __lambda_78(void *data, int argc, object self_731040, object rounded_73231) { + +closureN_type c_731227; +c_731227.hdr.mark = gc_color_red; + c_731227.hdr.grayed = 0; +c_731227.tag = closureN_tag; + c_731227.fn = (function_type)__lambda_77; +c_731227.num_args = 1; +c_731227.num_elt = 5; +c_731227.elts = (object *)alloca(sizeof(object) * 5); +c_731227.elts[0] = ((closureN)self_731040)->elts[0]; +c_731227.elts[1] = ((closureN)self_731040)->elts[1]; +c_731227.elts[2] = ((closureN)self_731040)->elts[2]; +c_731227.elts[3] = ((closureN)self_731040)->elts[3]; +c_731227.elts[4] = ((closureN)self_731040)->elts[4]; + + +make_cell(c_731396,rounded_73231); +return_closcall1(data,(closure)&c_731227, &c_731396);; +} + +static void __lambda_77(void *data, int argc, object self_731041, object rounded_73231) { + +closureN_type c_731229; +c_731229.hdr.mark = gc_color_red; + c_731229.hdr.grayed = 0; +c_731229.tag = closureN_tag; + c_731229.fn = (function_type)__lambda_76; +c_731229.num_args = 1; +c_731229.num_elt = 6; +c_731229.elts = (object *)alloca(sizeof(object) * 6); +c_731229.elts[0] = ((closureN)self_731041)->elts[0]; +c_731229.elts[1] = ((closureN)self_731041)->elts[1]; +c_731229.elts[2] = ((closureN)self_731041)->elts[2]; +c_731229.elts[3] = ((closureN)self_731041)->elts[3]; +c_731229.elts[4] = rounded_73231; +c_731229.elts[5] = ((closureN)self_731041)->elts[4]; + +return_closcall1(data,(closure)&c_731229, boolean_f);; +} + +static void __lambda_76(void *data, int argc, object self_731042, object rounded_73232) { + +closureN_type c_731231; +c_731231.hdr.mark = gc_color_red; + c_731231.hdr.grayed = 0; +c_731231.tag = closureN_tag; + c_731231.fn = (function_type)__lambda_72; +c_731231.num_args = 1; +c_731231.num_elt = 6; +c_731231.elts = (object *)alloca(sizeof(object) * 6); +c_731231.elts[0] = ((closureN)self_731042)->elts[0]; +c_731231.elts[1] = ((closureN)self_731042)->elts[1]; +c_731231.elts[2] = ((closureN)self_731042)->elts[2]; +c_731231.elts[3] = ((closureN)self_731042)->elts[3]; +c_731231.elts[4] = ((closureN)self_731042)->elts[4]; +c_731231.elts[5] = ((closureN)self_731042)->elts[5]; + + +mclosure0(c_731381, (function_type)__lambda_75);c_731381.num_args = 1; +return_closcall1(data,(closure)&c_731231, &c_731381);; +} + +static void __lambda_75(void *data, int argc, object self_731043, object k_73604, object x_73246) { + +closureN_type c_731383; +c_731383.hdr.mark = gc_color_red; + c_731383.hdr.grayed = 0; +c_731383.tag = closureN_tag; + c_731383.fn = (function_type)__lambda_74; +c_731383.num_args = 1; +c_731383.num_elt = 1; +c_731383.elts = (object *)alloca(sizeof(object) * 1); +c_731383.elts[0] = k_73604; + + +object c_731393 = Cyc_mul(data,(closure)&c_731383,2,obj_int2obj(1000), x_73246); +return_closcall1(data,(closure)&c_731383, c_731393);; +} + +static void __lambda_74(void *data, int argc, object self_731044, object r_73606) { + +closureN_type c_731385; +c_731385.hdr.mark = gc_color_red; + c_731385.hdr.grayed = 0; +c_731385.tag = closureN_tag; + c_731385.fn = (function_type)__lambda_73; +c_731385.num_args = 1; +c_731385.num_elt = 1; +c_731385.elts = (object *)alloca(sizeof(object) * 1); +c_731385.elts[0] = ((closureN)self_731044)->elts[0]; + +return_closcall2(data, __glo_round_scheme_base, &c_731385, r_73606);; +} + +static void __lambda_73(void *data, int argc, object self_731045, object r_73605) { + +object c_731390 = Cyc_div(data, ((closureN)self_731045)->elts[0],2,r_73605, obj_int2obj(1000)); +return_closcall1(data, ((closureN)self_731045)->elts[0], c_731390);; +} + +static void __lambda_72(void *data, int argc, object self_731046, object r_73603) { + +closureN_type c_731233; +c_731233.hdr.mark = gc_color_red; + c_731233.hdr.grayed = 0; +c_731233.tag = closureN_tag; + c_731233.fn = (function_type)__lambda_71; +c_731233.num_args = 1; +c_731233.num_elt = 6; +c_731233.elts = (object *)alloca(sizeof(object) * 6); +c_731233.elts[0] = ((closureN)self_731046)->elts[0]; +c_731233.elts[1] = ((closureN)self_731046)->elts[1]; +c_731233.elts[2] = ((closureN)self_731046)->elts[2]; +c_731233.elts[3] = ((closureN)self_731046)->elts[3]; +c_731233.elts[4] = ((closureN)self_731046)->elts[4]; +c_731233.elts[5] = ((closureN)self_731046)->elts[5]; + +return_closcall1(data,(closure)&c_731233, Cyc_set_car(data, ((closureN)self_731046)->elts[4], r_73603));; +} + +static void __lambda_71(void *data, int argc, object self_731047, object r_73569) { + +closureN_type c_731235; +c_731235.hdr.mark = gc_color_red; + c_731235.hdr.grayed = 0; +c_731235.tag = closureN_tag; + c_731235.fn = (function_type)__lambda_70; +c_731235.num_args = 1; +c_731235.num_elt = 6; +c_731235.elts = (object *)alloca(sizeof(object) * 6); +c_731235.elts[0] = ((closureN)self_731047)->elts[0]; +c_731235.elts[1] = ((closureN)self_731047)->elts[1]; +c_731235.elts[2] = ((closureN)self_731047)->elts[2]; +c_731235.elts[3] = ((closureN)self_731047)->elts[3]; +c_731235.elts[4] = ((closureN)self_731047)->elts[4]; +c_731235.elts[5] = ((closureN)self_731047)->elts[5]; + + +make_string(c_731377, "Running "); +return_closcall2(data, __glo_display_scheme_write, &c_731235, &c_731377);; +} + +static void __lambda_70(void *data, int argc, object self_731048, object r_73570) { + +closureN_type c_731237; +c_731237.hdr.mark = gc_color_red; + c_731237.hdr.grayed = 0; +c_731237.tag = closureN_tag; + c_731237.fn = (function_type)__lambda_69; +c_731237.num_args = 1; +c_731237.num_elt = 6; +c_731237.elts = (object *)alloca(sizeof(object) * 6); +c_731237.elts[0] = ((closureN)self_731048)->elts[0]; +c_731237.elts[1] = ((closureN)self_731048)->elts[1]; +c_731237.elts[2] = ((closureN)self_731048)->elts[2]; +c_731237.elts[3] = ((closureN)self_731048)->elts[3]; +c_731237.elts[4] = ((closureN)self_731048)->elts[4]; +c_731237.elts[5] = ((closureN)self_731048)->elts[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_731237, ((closureN)self_731048)->elts[2]);; +} + +static void __lambda_69(void *data, int argc, object self_731049, object r_73571) { + +closureN_type c_731239; +c_731239.hdr.mark = gc_color_red; + c_731239.hdr.grayed = 0; +c_731239.tag = closureN_tag; + c_731239.fn = (function_type)__lambda_68; +c_731239.num_args = 1; +c_731239.num_elt = 6; +c_731239.elts = (object *)alloca(sizeof(object) * 6); +c_731239.elts[0] = ((closureN)self_731049)->elts[0]; +c_731239.elts[1] = ((closureN)self_731049)->elts[1]; +c_731239.elts[2] = ((closureN)self_731049)->elts[2]; +c_731239.elts[3] = ((closureN)self_731049)->elts[3]; +c_731239.elts[4] = ((closureN)self_731049)->elts[4]; +c_731239.elts[5] = ((closureN)self_731049)->elts[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731239);; +} + +static void __lambda_68(void *data, int argc, object self_731050, object r_73572) { + +closureN_type c_731241; +c_731241.hdr.mark = gc_color_red; + c_731241.hdr.grayed = 0; +c_731241.tag = closureN_tag; + c_731241.fn = (function_type)__lambda_67; +c_731241.num_args = 1; +c_731241.num_elt = 6; +c_731241.elts = (object *)alloca(sizeof(object) * 6); +c_731241.elts[0] = ((closureN)self_731050)->elts[0]; +c_731241.elts[1] = ((closureN)self_731050)->elts[1]; +c_731241.elts[2] = ((closureN)self_731050)->elts[2]; +c_731241.elts[3] = ((closureN)self_731050)->elts[3]; +c_731241.elts[4] = ((closureN)self_731050)->elts[4]; +c_731241.elts[5] = ((closureN)self_731050)->elts[5]; + +return_closcall1(data, __glo_flush_91output_91port_scheme_base, &c_731241);; +} + +static void __lambda_67(void *data, int argc, object self_731051, object r_73573) { + +closureN_type c_731243; +c_731243.hdr.mark = gc_color_red; + c_731243.hdr.grayed = 0; +c_731243.tag = closureN_tag; + c_731243.fn = (function_type)__lambda_66; +c_731243.num_args = 1; +c_731243.num_elt = 6; +c_731243.elts = (object *)alloca(sizeof(object) * 6); +c_731243.elts[0] = ((closureN)self_731051)->elts[0]; +c_731243.elts[1] = ((closureN)self_731051)->elts[1]; +c_731243.elts[2] = ((closureN)self_731051)->elts[2]; +c_731243.elts[3] = ((closureN)self_731051)->elts[3]; +c_731243.elts[4] = ((closureN)self_731051)->elts[4]; +c_731243.elts[5] = ((closureN)self_731051)->elts[5]; + +return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_731243);; +} + +static void __lambda_66(void *data, int argc, object self_731052, object j_95s_73233) { + +closureN_type c_731245; +c_731245.hdr.mark = gc_color_red; + c_731245.hdr.grayed = 0; +c_731245.tag = closureN_tag; + c_731245.fn = (function_type)__lambda_65; +c_731245.num_args = 1; +c_731245.num_elt = 7; +c_731245.elts = (object *)alloca(sizeof(object) * 7); +c_731245.elts[0] = ((closureN)self_731052)->elts[0]; +c_731245.elts[1] = j_95s_73233; +c_731245.elts[2] = ((closureN)self_731052)->elts[1]; +c_731245.elts[3] = ((closureN)self_731052)->elts[2]; +c_731245.elts[4] = ((closureN)self_731052)->elts[3]; +c_731245.elts[5] = ((closureN)self_731052)->elts[4]; +c_731245.elts[6] = ((closureN)self_731052)->elts[5]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_731245);; +} + +static void __lambda_65(void *data, int argc, object self_731053, object t0_73234) { + +closureN_type c_731247; +c_731247.hdr.mark = gc_color_red; + c_731247.hdr.grayed = 0; +c_731247.tag = closureN_tag; + c_731247.fn = (function_type)__lambda_64; +c_731247.num_args = 1; +c_731247.num_elt = 8; +c_731247.elts = (object *)alloca(sizeof(object) * 8); +c_731247.elts[0] = ((closureN)self_731053)->elts[0]; +c_731247.elts[1] = ((closureN)self_731053)->elts[1]; +c_731247.elts[2] = ((closureN)self_731053)->elts[2]; +c_731247.elts[3] = ((closureN)self_731053)->elts[3]; +c_731247.elts[4] = ((closureN)self_731053)->elts[4]; +c_731247.elts[5] = ((closureN)self_731053)->elts[5]; +c_731247.elts[6] = t0_73234; +c_731247.elts[7] = ((closureN)self_731053)->elts[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731247);; +} + +static void __lambda_64(void *data, int argc, object self_731054, object j0_73235) { + +closureN_type c_731249; +c_731249.hdr.mark = gc_color_red; + c_731249.hdr.grayed = 0; +c_731249.tag = closureN_tag; + c_731249.fn = (function_type)__lambda_63; +c_731249.num_args = 0; +c_731249.num_elt = 9; +c_731249.elts = (object *)alloca(sizeof(object) * 9); +c_731249.elts[0] = ((closureN)self_731054)->elts[0]; +c_731249.elts[1] = ((closureN)self_731054)->elts[1]; +c_731249.elts[2] = j0_73235; +c_731249.elts[3] = ((closureN)self_731054)->elts[2]; +c_731249.elts[4] = ((closureN)self_731054)->elts[3]; +c_731249.elts[5] = ((closureN)self_731054)->elts[4]; +c_731249.elts[6] = ((closureN)self_731054)->elts[5]; +c_731249.elts[7] = ((closureN)self_731054)->elts[6]; +c_731249.elts[8] = ((closureN)self_731054)->elts[7]; + +return_closcall0(data,(closure)&c_731249);; +} + +static void __lambda_63(void *data, int argc, object self_731055) { + closureN_type c_731253; +c_731253.hdr.mark = gc_color_red; + c_731253.hdr.grayed = 0; +c_731253.tag = closureN_tag; + c_731253.fn = (function_type)__lambda_62; +c_731253.num_args = 1; +c_731253.num_elt = 9; +c_731253.elts = (object *)alloca(sizeof(object) * 9); +c_731253.elts[0] = ((closureN)self_731055)->elts[0]; +c_731253.elts[1] = ((closureN)self_731055)->elts[1]; +c_731253.elts[2] = ((closureN)self_731055)->elts[2]; +c_731253.elts[3] = ((closureN)self_731055)->elts[3]; +c_731253.elts[4] = ((closureN)self_731055)->elts[4]; +c_731253.elts[5] = ((closureN)self_731055)->elts[5]; +c_731253.elts[6] = ((closureN)self_731055)->elts[6]; +c_731253.elts[7] = ((closureN)self_731055)->elts[7]; +c_731253.elts[8] = ((closureN)self_731055)->elts[8]; + +return_direct1(data,__lambda_30,&c_731253);; +} + +static void __lambda_62(void *data, int argc, object self_731056, object r_73577) { + +closureN_type c_731255; +c_731255.hdr.mark = gc_color_red; + c_731255.hdr.grayed = 0; +c_731255.tag = closureN_tag; + c_731255.fn = (function_type)__lambda_61; +c_731255.num_args = 2; +c_731255.num_elt = 9; +c_731255.elts = (object *)alloca(sizeof(object) * 9); +c_731255.elts[0] = ((closureN)self_731056)->elts[0]; +c_731255.elts[1] = ((closureN)self_731056)->elts[1]; +c_731255.elts[2] = ((closureN)self_731056)->elts[2]; +c_731255.elts[3] = ((closureN)self_731056)->elts[3]; +c_731255.elts[4] = ((closureN)self_731056)->elts[4]; +c_731255.elts[5] = ((closureN)self_731056)->elts[5]; +c_731255.elts[6] = ((closureN)self_731056)->elts[6]; +c_731255.elts[7] = ((closureN)self_731056)->elts[7]; +c_731255.elts[8] = ((closureN)self_731056)->elts[8]; + +return_closcall2(data,(closure)&c_731255, obj_int2obj(0), r_73577);; +} + +static void __lambda_61(void *data, int argc, object self_731057, object i_73237, object result_73236) { + +closureN_type c_731257; +c_731257.hdr.mark = gc_color_red; + c_731257.hdr.grayed = 0; +c_731257.tag = closureN_tag; + c_731257.fn = (function_type)__lambda_60; +c_731257.num_args = 1; +c_731257.num_elt = 11; +c_731257.elts = (object *)alloca(sizeof(object) * 11); +c_731257.elts[0] = ((closureN)self_731057)->elts[0]; +c_731257.elts[1] = i_73237; +c_731257.elts[2] = ((closureN)self_731057)->elts[1]; +c_731257.elts[3] = ((closureN)self_731057)->elts[2]; +c_731257.elts[4] = ((closureN)self_731057)->elts[3]; +c_731257.elts[5] = ((closureN)self_731057)->elts[4]; +c_731257.elts[6] = ((closureN)self_731057)->elts[5]; +c_731257.elts[7] = result_73236; +c_731257.elts[8] = ((closureN)self_731057)->elts[6]; +c_731257.elts[9] = ((closureN)self_731057)->elts[7]; +c_731257.elts[10] = ((closureN)self_731057)->elts[8]; + +return_closcall1(data,(closure)&c_731257, boolean_f);; +} + +static void __lambda_60(void *data, int argc, object self_731058, object loop_73238) { + +closureN_type c_731259; +c_731259.hdr.mark = gc_color_red; + c_731259.hdr.grayed = 0; +c_731259.tag = closureN_tag; + c_731259.fn = (function_type)__lambda_59; +c_731259.num_args = 1; +c_731259.num_elt = 11; +c_731259.elts = (object *)alloca(sizeof(object) * 11); +c_731259.elts[0] = ((closureN)self_731058)->elts[0]; +c_731259.elts[1] = ((closureN)self_731058)->elts[1]; +c_731259.elts[2] = ((closureN)self_731058)->elts[2]; +c_731259.elts[3] = ((closureN)self_731058)->elts[3]; +c_731259.elts[4] = ((closureN)self_731058)->elts[4]; +c_731259.elts[5] = ((closureN)self_731058)->elts[5]; +c_731259.elts[6] = ((closureN)self_731058)->elts[6]; +c_731259.elts[7] = ((closureN)self_731058)->elts[7]; +c_731259.elts[8] = ((closureN)self_731058)->elts[8]; +c_731259.elts[9] = ((closureN)self_731058)->elts[9]; +c_731259.elts[10] = ((closureN)self_731058)->elts[10]; + + +make_cell(c_731375,loop_73238); +return_closcall1(data,(closure)&c_731259, &c_731375);; +} + +static void __lambda_59(void *data, int argc, object self_731059, object loop_73238) { + +closureN_type c_731261; +c_731261.hdr.mark = gc_color_red; + c_731261.hdr.grayed = 0; +c_731261.tag = closureN_tag; + c_731261.fn = (function_type)__lambda_32; +c_731261.num_args = 1; +c_731261.num_elt = 4; +c_731261.elts = (object *)alloca(sizeof(object) * 4); +c_731261.elts[0] = ((closureN)self_731059)->elts[1]; +c_731261.elts[1] = ((closureN)self_731059)->elts[4]; +c_731261.elts[2] = loop_73238; +c_731261.elts[3] = ((closureN)self_731059)->elts[7]; + + +closureN_type c_731274; +c_731274.hdr.mark = gc_color_red; + c_731274.hdr.grayed = 0; +c_731274.tag = closureN_tag; + c_731274.fn = (function_type)__lambda_58; +c_731274.num_args = 2; +c_731274.num_elt = 9; +c_731274.elts = (object *)alloca(sizeof(object) * 9); +c_731274.elts[0] = ((closureN)self_731059)->elts[0]; +c_731274.elts[1] = ((closureN)self_731059)->elts[2]; +c_731274.elts[2] = ((closureN)self_731059)->elts[3]; +c_731274.elts[3] = loop_73238; +c_731274.elts[4] = ((closureN)self_731059)->elts[5]; +c_731274.elts[5] = ((closureN)self_731059)->elts[6]; +c_731274.elts[6] = ((closureN)self_731059)->elts[8]; +c_731274.elts[7] = ((closureN)self_731059)->elts[9]; +c_731274.elts[8] = ((closureN)self_731059)->elts[10]; + +return_closcall1(data,(closure)&c_731261, &c_731274);; +} + +static void __lambda_58(void *data, int argc, object self_731060, object k_73580, object i_73240, object result_73239) { + +closureN_type c_731276; +c_731276.hdr.mark = gc_color_red; + c_731276.hdr.grayed = 0; +c_731276.tag = closureN_tag; + c_731276.fn = (function_type)__lambda_57; +c_731276.num_args = 1; +c_731276.num_elt = 11; +c_731276.elts = (object *)alloca(sizeof(object) * 11); +c_731276.elts[0] = i_73240; +c_731276.elts[1] = ((closureN)self_731060)->elts[1]; +c_731276.elts[2] = ((closureN)self_731060)->elts[2]; +c_731276.elts[3] = k_73580; +c_731276.elts[4] = ((closureN)self_731060)->elts[3]; +c_731276.elts[5] = ((closureN)self_731060)->elts[4]; +c_731276.elts[6] = ((closureN)self_731060)->elts[5]; +c_731276.elts[7] = result_73239; +c_731276.elts[8] = ((closureN)self_731060)->elts[6]; +c_731276.elts[9] = ((closureN)self_731060)->elts[7]; +c_731276.elts[10] = ((closureN)self_731060)->elts[8]; + + +object c_731371 = Cyc_num_lt(data,(closure)&c_731276,2,i_73240, ((closureN)self_731060)->elts[0]); +return_closcall1(data,(closure)&c_731276, c_731371);; +} + +static void __lambda_57(void *data, int argc, object self_731061, object r_73581) { + if( !eq(boolean_f, r_73581) ){ + +closureN_type c_731278; +c_731278.hdr.mark = gc_color_red; + c_731278.hdr.grayed = 0; +c_731278.tag = closureN_tag; + c_731278.fn = (function_type)__lambda_35; +c_731278.num_args = 0; +c_731278.num_elt = 4; +c_731278.elts = (object *)alloca(sizeof(object) * 4); +c_731278.elts[0] = ((closureN)self_731061)->elts[0]; +c_731278.elts[1] = ((closureN)self_731061)->elts[3]; +c_731278.elts[2] = ((closureN)self_731061)->elts[4]; +c_731278.elts[3] = ((closureN)self_731061)->elts[10]; + +return_closcall0(data,(closure)&c_731278); +} else { + +closureN_type c_731296; +c_731296.hdr.mark = gc_color_red; + c_731296.hdr.grayed = 0; +c_731296.tag = closureN_tag; + c_731296.fn = (function_type)__lambda_56; +c_731296.num_args = 1; +c_731296.num_elt = 7; +c_731296.elts = (object *)alloca(sizeof(object) * 7); +c_731296.elts[0] = ((closureN)self_731061)->elts[1]; +c_731296.elts[1] = ((closureN)self_731061)->elts[2]; +c_731296.elts[2] = ((closureN)self_731061)->elts[3]; +c_731296.elts[3] = ((closureN)self_731061)->elts[5]; +c_731296.elts[4] = ((closureN)self_731061)->elts[7]; +c_731296.elts[5] = ((closureN)self_731061)->elts[8]; +c_731296.elts[6] = ((closureN)self_731061)->elts[9]; + +return_closcall2(data, ((closureN)self_731061)->elts[6], &c_731296, ((closureN)self_731061)->elts[7]);} +; +} + +static void __lambda_56(void *data, int argc, object self_731062, object r_73584) { + if( !eq(boolean_f, r_73584) ){ + +closureN_type c_731298; +c_731298.hdr.mark = gc_color_red; + c_731298.hdr.grayed = 0; +c_731298.tag = closureN_tag; + c_731298.fn = (function_type)__lambda_51; +c_731298.num_args = 0; +c_731298.num_elt = 7; +c_731298.elts = (object *)alloca(sizeof(object) * 7); +c_731298.elts[0] = ((closureN)self_731062)->elts[0]; +c_731298.elts[1] = ((closureN)self_731062)->elts[1]; +c_731298.elts[2] = ((closureN)self_731062)->elts[2]; +c_731298.elts[3] = ((closureN)self_731062)->elts[3]; +c_731298.elts[4] = ((closureN)self_731062)->elts[4]; +c_731298.elts[5] = ((closureN)self_731062)->elts[5]; +c_731298.elts[6] = ((closureN)self_731062)->elts[6]; + +return_closcall0(data,(closure)&c_731298); +} else { + +closureN_type c_731356; +c_731356.hdr.mark = gc_color_red; + c_731356.hdr.grayed = 0; +c_731356.tag = closureN_tag; + c_731356.fn = (function_type)__lambda_55; +c_731356.num_args = 0; +c_731356.num_elt = 2; +c_731356.elts = (object *)alloca(sizeof(object) * 2); +c_731356.elts[0] = ((closureN)self_731062)->elts[2]; +c_731356.elts[1] = ((closureN)self_731062)->elts[4]; + +return_closcall0(data,(closure)&c_731356);} +; +} + +static void __lambda_55(void *data, int argc, object self_731063) { + +closureN_type c_731358; +c_731358.hdr.mark = gc_color_red; + c_731358.hdr.grayed = 0; +c_731358.tag = closureN_tag; + c_731358.fn = (function_type)__lambda_54; +c_731358.num_args = 1; +c_731358.num_elt = 2; +c_731358.elts = (object *)alloca(sizeof(object) * 2); +c_731358.elts[0] = ((closureN)self_731063)->elts[0]; +c_731358.elts[1] = ((closureN)self_731063)->elts[1]; + + +make_string(c_731367, "ERROR: returned incorrect result: "); +return_closcall2(data, __glo_display_scheme_write, &c_731358, &c_731367);; +} + +static void __lambda_54(void *data, int argc, object self_731064, object r_73599) { + +closureN_type c_731360; +c_731360.hdr.mark = gc_color_red; + c_731360.hdr.grayed = 0; +c_731360.tag = closureN_tag; + c_731360.fn = (function_type)__lambda_53; +c_731360.num_args = 1; +c_731360.num_elt = 2; +c_731360.elts = (object *)alloca(sizeof(object) * 2); +c_731360.elts[0] = ((closureN)self_731064)->elts[0]; +c_731360.elts[1] = ((closureN)self_731064)->elts[1]; + +return_closcall2(data, __glo_write_scheme_write, &c_731360, ((closureN)self_731064)->elts[1]);; +} + +static void __lambda_53(void *data, int argc, object self_731065, object r_73600) { + +closureN_type c_731362; +c_731362.hdr.mark = gc_color_red; + c_731362.hdr.grayed = 0; +c_731362.tag = closureN_tag; + c_731362.fn = (function_type)__lambda_52; +c_731362.num_args = 1; +c_731362.num_elt = 2; +c_731362.elts = (object *)alloca(sizeof(object) * 2); +c_731362.elts[0] = ((closureN)self_731065)->elts[0]; +c_731362.elts[1] = ((closureN)self_731065)->elts[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731362);; +} + +static void __lambda_52(void *data, int argc, object self_731066, object r_73601) { + return_closcall1(data, ((closureN)self_731066)->elts[0], ((closureN)self_731066)->elts[1]);; +} + +static void __lambda_51(void *data, int argc, object self_731067) { + +closureN_type c_731300; +c_731300.hdr.mark = gc_color_red; + c_731300.hdr.grayed = 0; +c_731300.tag = closureN_tag; + c_731300.fn = (function_type)__lambda_50; +c_731300.num_args = 1; +c_731300.num_elt = 7; +c_731300.elts = (object *)alloca(sizeof(object) * 7); +c_731300.elts[0] = ((closureN)self_731067)->elts[0]; +c_731300.elts[1] = ((closureN)self_731067)->elts[1]; +c_731300.elts[2] = ((closureN)self_731067)->elts[2]; +c_731300.elts[3] = ((closureN)self_731067)->elts[3]; +c_731300.elts[4] = ((closureN)self_731067)->elts[4]; +c_731300.elts[5] = ((closureN)self_731067)->elts[5]; +c_731300.elts[6] = ((closureN)self_731067)->elts[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731300);; +} + +static void __lambda_50(void *data, int argc, object self_731068, object j1_73241) { + +closureN_type c_731302; +c_731302.hdr.mark = gc_color_red; + c_731302.hdr.grayed = 0; +c_731302.tag = closureN_tag; + c_731302.fn = (function_type)__lambda_49; +c_731302.num_args = 1; +c_731302.num_elt = 8; +c_731302.elts = (object *)alloca(sizeof(object) * 8); +c_731302.elts[0] = ((closureN)self_731068)->elts[0]; +c_731302.elts[1] = ((closureN)self_731068)->elts[1]; +c_731302.elts[2] = j1_73241; +c_731302.elts[3] = ((closureN)self_731068)->elts[2]; +c_731302.elts[4] = ((closureN)self_731068)->elts[3]; +c_731302.elts[5] = ((closureN)self_731068)->elts[4]; +c_731302.elts[6] = ((closureN)self_731068)->elts[5]; +c_731302.elts[7] = ((closureN)self_731068)->elts[6]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_731302);; +} + +static void __lambda_49(void *data, int argc, object self_731069, object t1_73242) { + +closureN_type c_731304; +c_731304.hdr.mark = gc_color_red; + c_731304.hdr.grayed = 0; +c_731304.tag = closureN_tag; + c_731304.fn = (function_type)__lambda_48; +c_731304.num_args = 1; +c_731304.num_elt = 7; +c_731304.elts = (object *)alloca(sizeof(object) * 7); +c_731304.elts[0] = ((closureN)self_731069)->elts[0]; +c_731304.elts[1] = ((closureN)self_731069)->elts[3]; +c_731304.elts[2] = ((closureN)self_731069)->elts[4]; +c_731304.elts[3] = ((closureN)self_731069)->elts[5]; +c_731304.elts[4] = ((closureN)self_731069)->elts[6]; +c_731304.elts[5] = ((closureN)self_731069)->elts[7]; +c_731304.elts[6] = t1_73242; + + +object c_731352 = Cyc_sub(data,(closure)&c_731304,2,((closureN)self_731069)->elts[2], ((closureN)self_731069)->elts[1]); +return_closcall1(data,(closure)&c_731304, c_731352);; +} + +static void __lambda_48(void *data, int argc, object self_731070, object jifs_73243) { + +closureN_type c_731306; +c_731306.hdr.mark = gc_color_red; + c_731306.hdr.grayed = 0; +c_731306.tag = closureN_tag; + c_731306.fn = (function_type)__lambda_47; +c_731306.num_args = 1; +c_731306.num_elt = 6; +c_731306.elts = (object *)alloca(sizeof(object) * 6); +c_731306.elts[0] = ((closureN)self_731070)->elts[1]; +c_731306.elts[1] = ((closureN)self_731070)->elts[2]; +c_731306.elts[2] = ((closureN)self_731070)->elts[3]; +c_731306.elts[3] = ((closureN)self_731070)->elts[4]; +c_731306.elts[4] = ((closureN)self_731070)->elts[5]; +c_731306.elts[5] = ((closureN)self_731070)->elts[6]; + + +object c_731348 = Cyc_div(data,(closure)&c_731306,2,jifs_73243, ((closureN)self_731070)->elts[0]); +return_closcall1(data,(closure)&c_731306, c_731348);; +} + +static void __lambda_47(void *data, int argc, object self_731071, object r_73598) { + +closureN_type c_731308; +c_731308.hdr.mark = gc_color_red; + c_731308.hdr.grayed = 0; +c_731308.tag = closureN_tag; + c_731308.fn = (function_type)__lambda_46; +c_731308.num_args = 1; +c_731308.num_elt = 6; +c_731308.elts = (object *)alloca(sizeof(object) * 6); +c_731308.elts[0] = ((closureN)self_731071)->elts[0]; +c_731308.elts[1] = ((closureN)self_731071)->elts[1]; +c_731308.elts[2] = ((closureN)self_731071)->elts[2]; +c_731308.elts[3] = ((closureN)self_731071)->elts[3]; +c_731308.elts[4] = ((closureN)self_731071)->elts[4]; +c_731308.elts[5] = ((closureN)self_731071)->elts[5]; + +return_closcall2(data, __glo_inexact_scheme_base, &c_731308, r_73598);; +} + +static void __lambda_46(void *data, int argc, object self_731072, object secs_73244) { + +closureN_type c_731310; +c_731310.hdr.mark = gc_color_red; + c_731310.hdr.grayed = 0; +c_731310.tag = closureN_tag; + c_731310.fn = (function_type)__lambda_45; +c_731310.num_args = 1; +c_731310.num_elt = 5; +c_731310.elts = (object *)alloca(sizeof(object) * 5); +c_731310.elts[0] = ((closureN)self_731072)->elts[0]; +c_731310.elts[1] = ((closureN)self_731072)->elts[1]; +c_731310.elts[2] = ((closureN)self_731072)->elts[2]; +c_731310.elts[3] = ((closureN)self_731072)->elts[3]; +c_731310.elts[4] = secs_73244; + + +object c_731343 = Cyc_sub(data,(closure)&c_731310,2,((closureN)self_731072)->elts[5], ((closureN)self_731072)->elts[4]); +return_closcall1(data,(closure)&c_731310, c_731343);; +} + +static void __lambda_45(void *data, int argc, object self_731073, object r_73597) { + +closureN_type c_731315; +c_731315.hdr.mark = gc_color_red; + c_731315.hdr.grayed = 0; +c_731315.tag = closureN_tag; + c_731315.fn = (function_type)__lambda_44; +c_731315.num_args = 1; +c_731315.num_elt = 4; +c_731315.elts = (object *)alloca(sizeof(object) * 4); +c_731315.elts[0] = ((closureN)self_731073)->elts[0]; +c_731315.elts[1] = ((closureN)self_731073)->elts[1]; +c_731315.elts[2] = ((closureN)self_731073)->elts[2]; +c_731315.elts[3] = ((closureN)self_731073)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_731073)->elts[3]), &c_731315, r_73597);; +} + +static void __lambda_44(void *data, int argc, object self_731074, object secs2_73245) { + +closureN_type c_731317; +c_731317.hdr.mark = gc_color_red; + c_731317.hdr.grayed = 0; +c_731317.tag = closureN_tag; + c_731317.fn = (function_type)__lambda_43; +c_731317.num_args = 0; +c_731317.num_elt = 5; +c_731317.elts = (object *)alloca(sizeof(object) * 5); +c_731317.elts[0] = ((closureN)self_731074)->elts[0]; +c_731317.elts[1] = ((closureN)self_731074)->elts[1]; +c_731317.elts[2] = ((closureN)self_731074)->elts[2]; +c_731317.elts[3] = ((closureN)self_731074)->elts[3]; +c_731317.elts[4] = secs2_73245; + +return_closcall0(data,(closure)&c_731317);; +} + +static void __lambda_43(void *data, int argc, object self_731075) { + +closureN_type c_731319; +c_731319.hdr.mark = gc_color_red; + c_731319.hdr.grayed = 0; +c_731319.tag = closureN_tag; + c_731319.fn = (function_type)__lambda_42; +c_731319.num_args = 1; +c_731319.num_elt = 5; +c_731319.elts = (object *)alloca(sizeof(object) * 5); +c_731319.elts[0] = ((closureN)self_731075)->elts[0]; +c_731319.elts[1] = ((closureN)self_731075)->elts[1]; +c_731319.elts[2] = ((closureN)self_731075)->elts[2]; +c_731319.elts[3] = ((closureN)self_731075)->elts[3]; +c_731319.elts[4] = ((closureN)self_731075)->elts[4]; + + +make_string(c_731340, "Elapsed time: "); +return_closcall2(data, __glo_display_scheme_write, &c_731319, &c_731340);; +} + +static void __lambda_42(void *data, int argc, object self_731076, object r_73591) { + +closureN_type c_731321; +c_731321.hdr.mark = gc_color_red; + c_731321.hdr.grayed = 0; +c_731321.tag = closureN_tag; + c_731321.fn = (function_type)__lambda_41; +c_731321.num_args = 1; +c_731321.num_elt = 4; +c_731321.elts = (object *)alloca(sizeof(object) * 4); +c_731321.elts[0] = ((closureN)self_731076)->elts[0]; +c_731321.elts[1] = ((closureN)self_731076)->elts[1]; +c_731321.elts[2] = ((closureN)self_731076)->elts[2]; +c_731321.elts[3] = ((closureN)self_731076)->elts[4]; + +return_closcall2(data, __glo_write_scheme_write, &c_731321, ((closureN)self_731076)->elts[3]);; +} + +static void __lambda_41(void *data, int argc, object self_731077, object r_73592) { + +closureN_type c_731323; +c_731323.hdr.mark = gc_color_red; + c_731323.hdr.grayed = 0; +c_731323.tag = closureN_tag; + c_731323.fn = (function_type)__lambda_40; +c_731323.num_args = 1; +c_731323.num_elt = 4; +c_731323.elts = (object *)alloca(sizeof(object) * 4); +c_731323.elts[0] = ((closureN)self_731077)->elts[0]; +c_731323.elts[1] = ((closureN)self_731077)->elts[1]; +c_731323.elts[2] = ((closureN)self_731077)->elts[2]; +c_731323.elts[3] = ((closureN)self_731077)->elts[3]; + + +make_string(c_731338, " seconds ("); +return_closcall2(data, __glo_display_scheme_write, &c_731323, &c_731338);; +} + +static void __lambda_40(void *data, int argc, object self_731078, object r_73593) { + +closureN_type c_731325; +c_731325.hdr.mark = gc_color_red; + c_731325.hdr.grayed = 0; +c_731325.tag = closureN_tag; + c_731325.fn = (function_type)__lambda_39; +c_731325.num_args = 1; +c_731325.num_elt = 3; +c_731325.elts = (object *)alloca(sizeof(object) * 3); +c_731325.elts[0] = ((closureN)self_731078)->elts[0]; +c_731325.elts[1] = ((closureN)self_731078)->elts[1]; +c_731325.elts[2] = ((closureN)self_731078)->elts[2]; + +return_closcall2(data, __glo_write_scheme_write, &c_731325, ((closureN)self_731078)->elts[3]);; +} + +static void __lambda_39(void *data, int argc, object self_731079, object r_73594) { + +closureN_type c_731327; +c_731327.hdr.mark = gc_color_red; + c_731327.hdr.grayed = 0; +c_731327.tag = closureN_tag; + c_731327.fn = (function_type)__lambda_38; +c_731327.num_args = 1; +c_731327.num_elt = 3; +c_731327.elts = (object *)alloca(sizeof(object) * 3); +c_731327.elts[0] = ((closureN)self_731079)->elts[0]; +c_731327.elts[1] = ((closureN)self_731079)->elts[1]; +c_731327.elts[2] = ((closureN)self_731079)->elts[2]; + + +make_string(c_731336, ") for "); +return_closcall2(data, __glo_display_scheme_write, &c_731327, &c_731336);; +} + +static void __lambda_38(void *data, int argc, object self_731080, object r_73595) { + +closureN_type c_731329; +c_731329.hdr.mark = gc_color_red; + c_731329.hdr.grayed = 0; +c_731329.tag = closureN_tag; + c_731329.fn = (function_type)__lambda_37; +c_731329.num_args = 1; +c_731329.num_elt = 2; +c_731329.elts = (object *)alloca(sizeof(object) * 2); +c_731329.elts[0] = ((closureN)self_731080)->elts[0]; +c_731329.elts[1] = ((closureN)self_731080)->elts[2]; + +return_closcall2(data, __glo_display_scheme_write, &c_731329, ((closureN)self_731080)->elts[1]);; +} + +static void __lambda_37(void *data, int argc, object self_731081, object r_73596) { + +closureN_type c_731331; +c_731331.hdr.mark = gc_color_red; + c_731331.hdr.grayed = 0; +c_731331.tag = closureN_tag; + c_731331.fn = (function_type)__lambda_36; +c_731331.num_args = 1; +c_731331.num_elt = 2; +c_731331.elts = (object *)alloca(sizeof(object) * 2); +c_731331.elts[0] = ((closureN)self_731081)->elts[0]; +c_731331.elts[1] = ((closureN)self_731081)->elts[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731331);; +} + +static void __lambda_36(void *data, int argc, object self_731082, object r_73585) { + return_closcall1(data, ((closureN)self_731082)->elts[0], ((closureN)self_731082)->elts[1]);; +} + +static void __lambda_35(void *data, int argc, object self_731083) { + +closureN_type c_731280; +c_731280.hdr.mark = gc_color_red; + c_731280.hdr.grayed = 0; +c_731280.tag = closureN_tag; + c_731280.fn = (function_type)__lambda_34; +c_731280.num_args = 1; +c_731280.num_elt = 3; +c_731280.elts = (object *)alloca(sizeof(object) * 3); +c_731280.elts[0] = ((closureN)self_731083)->elts[1]; +c_731280.elts[1] = ((closureN)self_731083)->elts[2]; +c_731280.elts[2] = ((closureN)self_731083)->elts[3]; + + +object c_731292 = Cyc_sum(data,(closure)&c_731280,2,((closureN)self_731083)->elts[0], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731280, c_731292);; +} + +static void __lambda_34(void *data, int argc, object self_731084, object r_73582) { + +closureN_type c_731283; +c_731283.hdr.mark = gc_color_red; + c_731283.hdr.grayed = 0; +c_731283.tag = closureN_tag; + c_731283.fn = (function_type)__lambda_33; +c_731283.num_args = 1; +c_731283.num_elt = 3; +c_731283.elts = (object *)alloca(sizeof(object) * 3); +c_731283.elts[0] = ((closureN)self_731084)->elts[0]; +c_731283.elts[1] = ((closureN)self_731084)->elts[1]; +c_731283.elts[2] = r_73582; + +return_closcall1(data, ((closureN)self_731084)->elts[2], &c_731283);; +} + +static void __lambda_33(void *data, int argc, object self_731085, object r_73583) { + return_closcall3(data, cell_get(((closureN)self_731085)->elts[1]), ((closureN)self_731085)->elts[0], ((closureN)self_731085)->elts[2], r_73583);; +} + +static void __lambda_32(void *data, int argc, object self_731086, object r_73579) { + +closureN_type c_731263; +c_731263.hdr.mark = gc_color_red; + c_731263.hdr.grayed = 0; +c_731263.tag = closureN_tag; + c_731263.fn = (function_type)__lambda_31; +c_731263.num_args = 1; +c_731263.num_elt = 4; +c_731263.elts = (object *)alloca(sizeof(object) * 4); +c_731263.elts[0] = ((closureN)self_731086)->elts[0]; +c_731263.elts[1] = ((closureN)self_731086)->elts[1]; +c_731263.elts[2] = ((closureN)self_731086)->elts[2]; +c_731263.elts[3] = ((closureN)self_731086)->elts[3]; + +return_closcall1(data,(closure)&c_731263, Cyc_set_car(data, ((closureN)self_731086)->elts[2], r_73579));; +} + +static void __lambda_31(void *data, int argc, object self_731087, object r_73578) { + return_closcall3(data, cell_get(((closureN)self_731087)->elts[2]), ((closureN)self_731087)->elts[1], ((closureN)self_731087)->elts[0], ((closureN)self_731087)->elts[3]);; +} + +static void __lambda_30(void *data, int argc, closure _,object k_73602) { + Cyc_st_add(data, "nboyer.scm:run-r7rs-benchmark"); +if( !eq(boolean_f, boolean_f) ){ + return_closcall1(data, k_73602, boolean_f); +} else { + return_closcall1(data, k_73602, boolean_f);} +; +} + +static void __lambda_29(void *data, int argc, closure _,object k_73609, object r_73248, object x_73247) { + Cyc_st_add(data, "nboyer.scm:hide"); + +closureN_type c_731186; +c_731186.hdr.mark = gc_color_red; + c_731186.hdr.grayed = 0; +c_731186.tag = closureN_tag; + c_731186.fn = (function_type)__lambda_21; +c_731186.num_args = 1; +c_731186.num_elt = 2; +c_731186.elts = (object *)alloca(sizeof(object) * 2); +c_731186.elts[0] = k_73609; +c_731186.elts[1] = x_73247; + + +closureN_type c_731200; +c_731200.hdr.mark = gc_color_red; + c_731200.hdr.grayed = 0; +c_731200.tag = closureN_tag; + c_731200.fn = (function_type)__lambda_28; +c_731200.num_args = 0; +c_731200.num_elt = 1; +c_731200.elts = (object *)alloca(sizeof(object) * 1); +c_731200.elts[0] = r_73248; + +return_closcall1(data,(closure)&c_731186, &c_731200);; +} + +static void __lambda_28(void *data, int argc, object self_731088, object k_73614) { + +closureN_type c_731202; +c_731202.hdr.mark = gc_color_red; + c_731202.hdr.grayed = 0; +c_731202.tag = closureN_tag; + c_731202.fn = (function_type)__lambda_26; +c_731202.num_args = 1; +c_731202.num_elt = 2; +c_731202.elts = (object *)alloca(sizeof(object) * 2); +c_731202.elts[0] = k_73614; +c_731202.elts[1] = ((closureN)self_731088)->elts[0]; + + +mclosure0(c_731221, (function_type)__lambda_27);c_731221.num_args = 1; +return_closcall1(data,(closure)&c_731202, &c_731221);; +} + +static void __lambda_27(void *data, int argc, object self_731089, object k_73620, object x_73251) { + return_closcall1(data, k_73620, x_73251);; +} + +static void __lambda_26(void *data, int argc, object self_731090, object r_73619) { + +closureN_type c_731204; +c_731204.hdr.mark = gc_color_red; + c_731204.hdr.grayed = 0; +c_731204.tag = closureN_tag; + c_731204.fn = (function_type)__lambda_25; +c_731204.num_args = 1; +c_731204.num_elt = 2; +c_731204.elts = (object *)alloca(sizeof(object) * 2); +c_731204.elts[0] = ((closureN)self_731090)->elts[0]; +c_731204.elts[1] = ((closureN)self_731090)->elts[1]; + +return_closcall3(data, __glo_vector_scheme_base, &c_731204, __glo_values_scheme_base, r_73619);; +} + +static void __lambda_25(void *data, int argc, object self_731091, object r_73615) { + +closureN_type c_731206; +c_731206.hdr.mark = gc_color_red; + c_731206.hdr.grayed = 0; +c_731206.tag = closureN_tag; + c_731206.fn = (function_type)__lambda_23; +c_731206.num_args = 0; +c_731206.num_elt = 1; +c_731206.elts = (object *)alloca(sizeof(object) * 1); +c_731206.elts[0] = ((closureN)self_731091)->elts[1]; + + +closureN_type c_731217; +c_731217.hdr.mark = gc_color_red; + c_731217.hdr.grayed = 0; +c_731217.tag = closureN_tag; + c_731217.fn = (function_type)__lambda_24; +c_731217.num_args = 1; +c_731217.num_elt = 2; +c_731217.elts = (object *)alloca(sizeof(object) * 2); +c_731217.elts[0] = ((closureN)self_731091)->elts[0]; +c_731217.elts[1] = r_73615; + +return_closcall1(data,(closure)&c_731206, &c_731217);; +} + +static void __lambda_24(void *data, int argc, object self_731092, object r_73616) { + return_closcall3(data, __glo_values_scheme_base, ((closureN)self_731092)->elts[0], ((closureN)self_731092)->elts[1], r_73616);; +} + +static void __lambda_23(void *data, int argc, object self_731093, object k_73617) { + +closureN_type c_731208; +c_731208.hdr.mark = gc_color_red; + c_731208.hdr.grayed = 0; +c_731208.tag = closureN_tag; + c_731208.fn = (function_type)__lambda_22; +c_731208.num_args = 1; +c_731208.num_elt = 1; +c_731208.elts = (object *)alloca(sizeof(object) * 1); +c_731208.elts[0] = k_73617; + + +object c_731215 = Cyc_num_lt(data,(closure)&c_731208,2,((closureN)self_731093)->elts[0], obj_int2obj(100)); +return_closcall1(data,(closure)&c_731208, c_731215);; +} + +static void __lambda_22(void *data, int argc, object self_731094, object r_73618) { + if( !eq(boolean_f, r_73618) ){ + return_closcall1(data, ((closureN)self_731094)->elts[0], obj_int2obj(0)); +} else { + return_closcall1(data, ((closureN)self_731094)->elts[0], obj_int2obj(1));} +; +} + +static void __lambda_21(void *data, int argc, object self_731095, object r_73610) { + +closureN_type c_731188; +c_731188.hdr.mark = gc_color_red; + c_731188.hdr.grayed = 0; +c_731188.tag = closureN_tag; + c_731188.fn = (function_type)__lambda_18; +c_731188.num_args = 1; +c_731188.num_elt = 2; +c_731188.elts = (object *)alloca(sizeof(object) * 2); +c_731188.elts[0] = ((closureN)self_731095)->elts[0]; +c_731188.elts[1] = r_73610; + + +closureN_type c_731192; +c_731192.hdr.mark = gc_color_red; + c_731192.hdr.grayed = 0; +c_731192.tag = closureN_tag; + c_731192.fn = (function_type)__lambda_20; +c_731192.num_args = 2; +c_731192.num_elt = 1; +c_731192.elts = (object *)alloca(sizeof(object) * 1); +c_731192.elts[0] = ((closureN)self_731095)->elts[1]; + +return_closcall1(data,(closure)&c_731188, &c_731192);; +} + +static void __lambda_20(void *data, int argc, object self_731096, object k_73612, object v_73250, object i_73249) { + +closureN_type c_731194; +c_731194.hdr.mark = gc_color_red; + c_731194.hdr.grayed = 0; +c_731194.tag = closureN_tag; + c_731194.fn = (function_type)__lambda_19; +c_731194.num_args = 1; +c_731194.num_elt = 2; +c_731194.elts = (object *)alloca(sizeof(object) * 2); +c_731194.elts[0] = k_73612; +c_731194.elts[1] = ((closureN)self_731096)->elts[0]; + +return_closcall1(data,(closure)&c_731194, Cyc_vector_ref(data, v_73250, i_73249));; +} + +static void __lambda_19(void *data, int argc, object self_731097, object r_73613) { + return_closcall2(data, r_73613, ((closureN)self_731097)->elts[0], ((closureN)self_731097)->elts[1]);; +} + +static void __lambda_18(void *data, int argc, object self_731098, object r_73611) { + return_closcall3(data, __glo_call_91with_91values_scheme_base, ((closureN)self_731098)->elts[0], ((closureN)self_731098)->elts[1], r_73611);; +} + +static void __lambda_17(void *data, int argc, closure _,object k_73623, object args_73252_raw, ...) { +load_varargs(args_73252, args_73252_raw, argc - 1); + Cyc_st_add(data, "nboyer.scm:test-boyer"); +return_closcall1(data, k_73623, boolean_t);; +} + +static void __lambda_16(void *data, int argc, closure _,object k_73626, object args_73253_raw, ...) { +load_varargs(args_73253, args_73253_raw, argc - 1); + Cyc_st_add(data, "nboyer.scm:setup-boyer"); +return_closcall1(data, k_73626, boolean_t);; +} + +static void __lambda_15(void *data, int argc, closure _,object k_73633) { + Cyc_st_add(data, "nboyer.scm:main"); + +closureN_type c_731116; +c_731116.hdr.mark = gc_color_red; + c_731116.hdr.grayed = 0; +c_731116.tag = closureN_tag; + c_731116.fn = (function_type)__lambda_14; +c_731116.num_args = 1; +c_731116.num_elt = 1; +c_731116.elts = (object *)alloca(sizeof(object) * 1); +c_731116.elts[0] = k_73633; + +return_closcall1(data, __glo_read_scheme_read, &c_731116);; +} + +static void __lambda_14(void *data, int argc, object self_731099, object count_73254) { + +closureN_type c_731118; +c_731118.hdr.mark = gc_color_red; + c_731118.hdr.grayed = 0; +c_731118.tag = closureN_tag; + c_731118.fn = (function_type)__lambda_13; +c_731118.num_args = 1; +c_731118.num_elt = 2; +c_731118.elts = (object *)alloca(sizeof(object) * 2); +c_731118.elts[0] = count_73254; +c_731118.elts[1] = ((closureN)self_731099)->elts[0]; + +return_closcall1(data, __glo_read_scheme_read, &c_731118);; +} + +static void __lambda_13(void *data, int argc, object self_731100, object input_73255) { + +closureN_type c_731120; +c_731120.hdr.mark = gc_color_red; + c_731120.hdr.grayed = 0; +c_731120.tag = closureN_tag; + c_731120.fn = (function_type)__lambda_12; +c_731120.num_args = 1; +c_731120.num_elt = 3; +c_731120.elts = (object *)alloca(sizeof(object) * 3); +c_731120.elts[0] = ((closureN)self_731100)->elts[0]; +c_731120.elts[1] = input_73255; +c_731120.elts[2] = ((closureN)self_731100)->elts[1]; + +return_closcall1(data, __glo_read_scheme_read, &c_731120);; +} + +static void __lambda_12(void *data, int argc, object self_731101, object output_73256) { + +closureN_type c_731122; +c_731122.hdr.mark = gc_color_red; + c_731122.hdr.grayed = 0; +c_731122.tag = closureN_tag; + c_731122.fn = (function_type)__lambda_11; +c_731122.num_args = 1; +c_731122.num_elt = 4; +c_731122.elts = (object *)alloca(sizeof(object) * 4); +c_731122.elts[0] = ((closureN)self_731101)->elts[0]; +c_731122.elts[1] = ((closureN)self_731101)->elts[1]; +c_731122.elts[2] = ((closureN)self_731101)->elts[2]; +c_731122.elts[3] = output_73256; + + +object c_731178 = Cyc_number2string2(data,(closure)&c_731122,1,((closureN)self_731101)->elts[0]); +return_closcall1(data,(closure)&c_731122, c_731178);; +} + +static void __lambda_11(void *data, int argc, object self_731102, object s2_73257) { + +closureN_type c_731124; +c_731124.hdr.mark = gc_color_red; + c_731124.hdr.grayed = 0; +c_731124.tag = closureN_tag; + c_731124.fn = (function_type)__lambda_10; +c_731124.num_args = 1; +c_731124.num_elt = 5; +c_731124.elts = (object *)alloca(sizeof(object) * 5); +c_731124.elts[0] = ((closureN)self_731102)->elts[0]; +c_731124.elts[1] = ((closureN)self_731102)->elts[1]; +c_731124.elts[2] = ((closureN)self_731102)->elts[2]; +c_731124.elts[3] = ((closureN)self_731102)->elts[3]; +c_731124.elts[4] = s2_73257; + + +object c_731174 = Cyc_number2string2(data,(closure)&c_731124,1,((closureN)self_731102)->elts[1]); +return_closcall1(data,(closure)&c_731124, c_731174);; +} + +static void __lambda_10(void *data, int argc, object self_731103, object s1_73258) { + +closureN_type c_731126; +c_731126.hdr.mark = gc_color_red; + c_731126.hdr.grayed = 0; +c_731126.tag = closureN_tag; + c_731126.fn = (function_type)__lambda_9; +c_731126.num_args = 1; +c_731126.num_elt = 6; +c_731126.elts = (object *)alloca(sizeof(object) * 6); +c_731126.elts[0] = ((closureN)self_731103)->elts[0]; +c_731126.elts[1] = ((closureN)self_731103)->elts[1]; +c_731126.elts[2] = ((closureN)self_731103)->elts[2]; +c_731126.elts[3] = ((closureN)self_731103)->elts[3]; +c_731126.elts[4] = s1_73258; +c_731126.elts[5] = ((closureN)self_731103)->elts[4]; + + +make_string(c_731171, "nboyer"); +return_closcall1(data,(closure)&c_731126, &c_731171);; +} + +static void __lambda_9(void *data, int argc, object self_731104, object name_73259) { + +closureN_type c_731128; +c_731128.hdr.mark = gc_color_red; + c_731128.hdr.grayed = 0; +c_731128.tag = closureN_tag; + c_731128.fn = (function_type)__lambda_8; +c_731128.num_args = 0; +c_731128.num_elt = 7; +c_731128.elts = (object *)alloca(sizeof(object) * 7); +c_731128.elts[0] = ((closureN)self_731104)->elts[0]; +c_731128.elts[1] = ((closureN)self_731104)->elts[1]; +c_731128.elts[2] = ((closureN)self_731104)->elts[2]; +c_731128.elts[3] = name_73259; +c_731128.elts[4] = ((closureN)self_731104)->elts[3]; +c_731128.elts[5] = ((closureN)self_731104)->elts[4]; +c_731128.elts[6] = ((closureN)self_731104)->elts[5]; + +return_closcall0(data,(closure)&c_731128);; +} + +static void __lambda_8(void *data, int argc, object self_731105) { + +closureN_type c_731130; +c_731130.hdr.mark = gc_color_red; + c_731130.hdr.grayed = 0; +c_731130.tag = closureN_tag; + c_731130.fn = (function_type)__lambda_7; +c_731130.num_args = 1; +c_731130.num_elt = 4; +c_731130.elts = (object *)alloca(sizeof(object) * 4); +c_731130.elts[0] = ((closureN)self_731105)->elts[0]; +c_731130.elts[1] = ((closureN)self_731105)->elts[1]; +c_731130.elts[2] = ((closureN)self_731105)->elts[2]; +c_731130.elts[3] = ((closureN)self_731105)->elts[4]; + + +make_string(c_731167, ":"); + +make_string(c_731169, ":"); + +object c_731165 = Cyc_string_append(data,(closure)&c_731130,5,((closureN)self_731105)->elts[3], &c_731167, ((closureN)self_731105)->elts[5], &c_731169, ((closureN)self_731105)->elts[6]); +return_closcall1(data,(closure)&c_731130, c_731165);; +} + +static void __lambda_7(void *data, int argc, object self_731106, object r_73639) { + +closureN_type c_731132; +c_731132.hdr.mark = gc_color_red; + c_731132.hdr.grayed = 0; +c_731132.tag = closureN_tag; + c_731132.fn = (function_type)__lambda_3; +c_731132.num_args = 1; +c_731132.num_elt = 4; +c_731132.elts = (object *)alloca(sizeof(object) * 4); +c_731132.elts[0] = ((closureN)self_731106)->elts[0]; +c_731132.elts[1] = ((closureN)self_731106)->elts[2]; +c_731132.elts[2] = ((closureN)self_731106)->elts[3]; +c_731132.elts[3] = r_73639; + + +closureN_type c_731154; +c_731154.hdr.mark = gc_color_red; + c_731154.hdr.grayed = 0; +c_731154.tag = closureN_tag; + c_731154.fn = (function_type)__lambda_6; +c_731154.num_args = 0; +c_731154.num_elt = 2; +c_731154.elts = (object *)alloca(sizeof(object) * 2); +c_731154.elts[0] = ((closureN)self_731106)->elts[0]; +c_731154.elts[1] = ((closureN)self_731106)->elts[1]; + +return_closcall1(data,(closure)&c_731132, &c_731154);; +} + +static void __lambda_6(void *data, int argc, object self_731107, object k_73644) { + +closureN_type c_731156; +c_731156.hdr.mark = gc_color_red; + c_731156.hdr.grayed = 0; +c_731156.tag = closureN_tag; + c_731156.fn = (function_type)__lambda_5; +c_731156.num_args = 1; +c_731156.num_elt = 3; +c_731156.elts = (object *)alloca(sizeof(object) * 3); +c_731156.elts[0] = ((closureN)self_731107)->elts[0]; +c_731156.elts[1] = ((closureN)self_731107)->elts[1]; +c_731156.elts[2] = k_73644; + +return_closcall1(data, __glo_setup_91boyer, &c_731156);; +} + +static void __lambda_5(void *data, int argc, object self_731108, object r_73645) { + +closureN_type c_731158; +c_731158.hdr.mark = gc_color_red; + c_731158.hdr.grayed = 0; +c_731158.tag = closureN_tag; + c_731158.fn = (function_type)__lambda_4; +c_731158.num_args = 1; +c_731158.num_elt = 1; +c_731158.elts = (object *)alloca(sizeof(object) * 1); +c_731158.elts[0] = ((closureN)self_731108)->elts[2]; + +return_closcall3(data, __glo_hide, &c_731158, ((closureN)self_731108)->elts[0], ((closureN)self_731108)->elts[1]);; +} + +static void __lambda_4(void *data, int argc, object self_731109, object r_73646) { + return_closcall4(data, __glo_test_91boyer, ((closureN)self_731109)->elts[0], __glo_alist, __glo_term, r_73646);; +} + +static void __lambda_3(void *data, int argc, object self_731110, object r_73640) { + +closureN_type c_731134; +c_731134.hdr.mark = gc_color_red; + c_731134.hdr.grayed = 0; +c_731134.tag = closureN_tag; + c_731134.fn = (function_type)__lambda_0; +c_731134.num_args = 1; +c_731134.num_elt = 4; +c_731134.elts = (object *)alloca(sizeof(object) * 4); +c_731134.elts[0] = ((closureN)self_731110)->elts[0]; +c_731134.elts[1] = ((closureN)self_731110)->elts[1]; +c_731134.elts[2] = ((closureN)self_731110)->elts[3]; +c_731134.elts[3] = r_73640; + + +closureN_type c_731140; +c_731140.hdr.mark = gc_color_red; + c_731140.hdr.grayed = 0; +c_731140.tag = closureN_tag; + c_731140.fn = (function_type)__lambda_2; +c_731140.num_args = 1; +c_731140.num_elt = 1; +c_731140.elts = (object *)alloca(sizeof(object) * 1); +c_731140.elts[0] = ((closureN)self_731110)->elts[2]; + +return_closcall1(data,(closure)&c_731134, &c_731140);; +} + +static void __lambda_2(void *data, int argc, object self_731111, object k_73642, object rewrites_73260) { + +closureN_type c_731142; +c_731142.hdr.mark = gc_color_red; + c_731142.hdr.grayed = 0; +c_731142.tag = closureN_tag; + c_731142.fn = (function_type)__lambda_1; +c_731142.num_args = 1; +c_731142.num_elt = 3; +c_731142.elts = (object *)alloca(sizeof(object) * 3); +c_731142.elts[0] = k_73642; +c_731142.elts[1] = ((closureN)self_731111)->elts[0]; +c_731142.elts[2] = rewrites_73260; + +return_closcall1(data,(closure)&c_731142, Cyc_is_number(rewrites_73260));; +} + +static void __lambda_1(void *data, int argc, object self_731112, object r_73643) { + if( !eq(boolean_f, r_73643) ){ + +object c_731147 = Cyc_num_eq(data, ((closureN)self_731112)->elts[0],2,((closureN)self_731112)->elts[2], ((closureN)self_731112)->elts[1]); +return_closcall1(data, ((closureN)self_731112)->elts[0], c_731147); +} else { + return_closcall1(data, ((closureN)self_731112)->elts[0], boolean_f);} +; +} + +static void __lambda_0(void *data, int argc, object self_731113, object r_73641) { + return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_731113)->elts[1], ((closureN)self_731113)->elts[2], ((closureN)self_731113)->elts[0], ((closureN)self_731113)->elts[3], r_73641);; +} + +static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value); +extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemecxr_entry_pt(void *data, int argc, closure cont, object value); +extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value); +static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { + quote_u = find_or_add_symbol("u"); + quote_mem = find_or_add_symbol("mem"); + quote_val = find_or_add_symbol("val"); + quote_set = find_or_add_symbol("set"); + quote_get = find_or_add_symbol("get"); + quote_cdr = find_or_add_symbol("cdr"); + quote_assignedp = find_or_add_symbol("assignedp"); + quote_assignment = find_or_add_symbol("assignment"); + quote_car = find_or_add_symbol("car"); + quote_last = find_or_add_symbol("last"); + quote_sigma = find_or_add_symbol("sigma"); + quote_x7 = find_or_add_symbol("x7"); + quote_x6 = find_or_add_symbol("x6"); + quote_x5 = find_or_add_symbol("x5"); + quote_x4 = find_or_add_symbol("x4"); + quote_x3 = find_or_add_symbol("x3"); + quote_x2 = find_or_add_symbol("x2"); + quote_x1 = find_or_add_symbol("x1"); + quote_dsort = find_or_add_symbol("dsort"); + quote_sort2 = find_or_add_symbol("sort2"); + quote_delete = find_or_add_symbol("delete"); + quote_prime_91list = find_or_add_symbol("prime-list"); + quote_times_91list = find_or_add_symbol("times-list"); + quote_greatest_91factor = find_or_add_symbol("greatest-factor"); + quote_samefringe = find_or_add_symbol("samefringe"); + quote_gopher = find_or_add_symbol("gopher"); + quote_listp = find_or_add_symbol("listp"); + quote_nlistp = find_or_add_symbol("nlistp"); + quote_value = find_or_add_symbol("value"); + quote_w = find_or_add_symbol("w"); + quote_gcd = find_or_add_symbol("gcd"); + quote_power_91rep = find_or_add_symbol("power-rep"); + quote_big_91plus = find_or_add_symbol("big-plus"); + quote_base = find_or_add_symbol("base"); + quote_big_91plus1 = find_or_add_symbol("big-plus1"); + quote_power_91eval = find_or_add_symbol("power-eval"); + quote_quotient = find_or_add_symbol("quotient"); + quote_sort_91lp = find_or_add_symbol("sort-lp"); + quote_count_91list = find_or_add_symbol("count-list"); + quote_k = find_or_add_symbol("k"); + quote_j = find_or_add_symbol("j"); + quote_exp = find_or_add_symbol("exp"); + quote_nth = find_or_add_symbol("nth"); + quote_intersect = find_or_add_symbol("intersect"); + quote_length = find_or_add_symbol("length"); + quote_member = find_or_add_symbol("member"); + quote_flatten = find_or_add_symbol("flatten"); + quote_mc_91flatten = find_or_add_symbol("mc-flatten"); + quote_envrn = find_or_add_symbol("envrn"); + quote_pds = find_or_add_symbol("pds"); + quote_exec = find_or_add_symbol("exec"); + quote_times = find_or_add_symbol("times"); + quote_plus_91fringe = find_or_add_symbol("plus-fringe"); + quote_append = find_or_add_symbol("append"); + quote_plus_91tree = find_or_add_symbol("plus-tree"); + quote_meaning = find_or_add_symbol("meaning"); + quote_difference = find_or_add_symbol("difference"); + quote_z = find_or_add_symbol("z"); + quote_plus = find_or_add_symbol("plus"); + quote_e = find_or_add_symbol("e"); + quote_d = find_or_add_symbol("d"); + quote_c = find_or_add_symbol("c"); + quote_b = find_or_add_symbol("b"); + quote_a = find_or_add_symbol("a"); + quote_numberp = find_or_add_symbol("numberp"); + quote_q = find_or_add_symbol("q"); + quote_p = find_or_add_symbol("p"); + quote_prime1 = find_or_add_symbol("prime1"); + quote_add1 = find_or_add_symbol("add1"); + quote_prime = find_or_add_symbol("prime"); + quote_falsify1 = find_or_add_symbol("falsify1"); + quote_falsify = find_or_add_symbol("falsify"); + quote_normalize = find_or_add_symbol("normalize"); + quote_tautologyp = find_or_add_symbol("tautologyp"); + quote_tautology_91checker = find_or_add_symbol("tautology-checker"); + quote_assume_91false = find_or_add_symbol("assume-false"); + quote_cons = find_or_add_symbol("cons"); + quote_alist = find_or_add_symbol("alist"); + quote_var = find_or_add_symbol("var"); + quote_assume_91true = find_or_add_symbol("assume-true"); + quote_remainder = find_or_add_symbol("remainder"); + quote_divides = find_or_add_symbol("divides"); + quote_reverse_91loop = find_or_add_symbol("reverse-loop"); + quote_reverse_91 = find_or_add_symbol("reverse-"); + quote_fact_91loop = find_or_add_symbol("fact-loop"); + quote_i = find_or_add_symbol("i"); + quote_fact_91 = find_or_add_symbol("fact-"); + quote_zero = find_or_add_symbol("zero"); + quote_countps_91loop = find_or_add_symbol("countps-loop"); + quote_pred = find_or_add_symbol("pred"); + quote_l = find_or_add_symbol("l"); + quote_countps_91 = find_or_add_symbol("countps-"); + quote__1911_91 = find_or_add_symbol("_1-"); + quote_odd = find_or_add_symbol("odd"); + quote_zerop = find_or_add_symbol("zerop"); + quote_even1 = find_or_add_symbol("even1"); + quote_iff = find_or_add_symbol("iff"); + quote_boolean = find_or_add_symbol("boolean"); + quote_greatereqp = find_or_add_symbol("greatereqp"); + quote_not = find_or_add_symbol("not"); + quote_lesseqp = find_or_add_symbol("lesseqp"); + quote_lessp = find_or_add_symbol("lessp"); + quote_greaterp = find_or_add_symbol("greaterp"); + quote_fix = find_or_add_symbol("fix"); + quote_y = find_or_add_symbol("y"); + quote_x = find_or_add_symbol("x"); + quote_eqp = find_or_add_symbol("eqp"); + quote_nil = find_or_add_symbol("nil"); + quote_optimize = find_or_add_symbol("optimize"); + quote_codegen = find_or_add_symbol("codegen"); + quote_reverse = find_or_add_symbol("reverse"); + quote_form = find_or_add_symbol("form"); + quote_compile = find_or_add_symbol("compile"); + quote_lemmas = find_or_add_symbol("lemmas"); + quote_equal = find_or_add_symbol("equal"); + quote_or = find_or_add_symbol("or"); + quote__85 = find_or_add_symbol("*"); + quote_and = find_or_add_symbol("and"); + quote_implies = find_or_add_symbol("implies"); + quote__if = find_or_add_symbol("if"); + quote_f = find_or_add_symbol("f"); + quote_t = find_or_add_symbol("t"); + + add_global((object *) &__glo_run_91r7rs_91benchmark); + add_global((object *) &__glo_hide); + add_global((object *) &__glo_test_91boyer); + add_global((object *) &__glo_setup_91boyer); + add_global((object *) &__glo_term); + add_global((object *) &__glo_alist); + add_global((object *) &__glo_main); + add_symbol(quote_u); + add_symbol(quote_mem); + add_symbol(quote_val); + add_symbol(quote_set); + add_symbol(quote_get); + add_symbol(quote_cdr); + add_symbol(quote_assignedp); + add_symbol(quote_assignment); + add_symbol(quote_car); + add_symbol(quote_last); + add_symbol(quote_sigma); + add_symbol(quote_x7); + add_symbol(quote_x6); + add_symbol(quote_x5); + add_symbol(quote_x4); + add_symbol(quote_x3); + add_symbol(quote_x2); + add_symbol(quote_x1); + add_symbol(quote_dsort); + add_symbol(quote_sort2); + add_symbol(quote_delete); + add_symbol(quote_prime_91list); + add_symbol(quote_times_91list); + add_symbol(quote_greatest_91factor); + add_symbol(quote_samefringe); + add_symbol(quote_gopher); + add_symbol(quote_listp); + add_symbol(quote_nlistp); + add_symbol(quote_value); + add_symbol(quote_w); + add_symbol(quote_gcd); + add_symbol(quote_power_91rep); + add_symbol(quote_big_91plus); + add_symbol(quote_base); + add_symbol(quote_big_91plus1); + add_symbol(quote_power_91eval); + add_symbol(quote_quotient); + add_symbol(quote_sort_91lp); + add_symbol(quote_count_91list); + add_symbol(quote_k); + add_symbol(quote_j); + add_symbol(quote_exp); + add_symbol(quote_nth); + add_symbol(quote_intersect); + add_symbol(quote_length); + add_symbol(quote_member); + add_symbol(quote_flatten); + add_symbol(quote_mc_91flatten); + add_symbol(quote_envrn); + add_symbol(quote_pds); + add_symbol(quote_exec); + add_symbol(quote_times); + add_symbol(quote_plus_91fringe); + add_symbol(quote_append); + add_symbol(quote_plus_91tree); + add_symbol(quote_meaning); + add_symbol(quote_difference); + add_symbol(quote_z); + add_symbol(quote_plus); + add_symbol(quote_e); + add_symbol(quote_d); + add_symbol(quote_c); + add_symbol(quote_b); + add_symbol(quote_a); + add_symbol(quote_numberp); + add_symbol(quote_q); + add_symbol(quote_p); + add_symbol(quote_prime1); + add_symbol(quote_add1); + add_symbol(quote_prime); + add_symbol(quote_falsify1); + add_symbol(quote_falsify); + add_symbol(quote_normalize); + add_symbol(quote_tautologyp); + add_symbol(quote_tautology_91checker); + add_symbol(quote_assume_91false); + add_symbol(quote_cons); + add_symbol(quote_alist); + add_symbol(quote_var); + add_symbol(quote_assume_91true); + add_symbol(quote_remainder); + add_symbol(quote_divides); + add_symbol(quote_reverse_91loop); + add_symbol(quote_reverse_91); + add_symbol(quote_fact_91loop); + add_symbol(quote_i); + add_symbol(quote_fact_91); + add_symbol(quote_zero); + add_symbol(quote_countps_91loop); + add_symbol(quote_pred); + add_symbol(quote_l); + add_symbol(quote_countps_91); + add_symbol(quote__1911_91); + add_symbol(quote_odd); + add_symbol(quote_zerop); + add_symbol(quote_even1); + add_symbol(quote_iff); + add_symbol(quote_boolean); + add_symbol(quote_greatereqp); + add_symbol(quote_not); + add_symbol(quote_lesseqp); + add_symbol(quote_lessp); + add_symbol(quote_greaterp); + add_symbol(quote_fix); + add_symbol(quote_y); + add_symbol(quote_x); + add_symbol(quote_eqp); + add_symbol(quote_nil); + add_symbol(quote_optimize); + add_symbol(quote_codegen); + add_symbol(quote_reverse); + add_symbol(quote_form); + add_symbol(quote_compile); + add_symbol(quote_lemmas); + add_symbol(quote_equal); + add_symbol(quote_or); + add_symbol(quote__85); + add_symbol(quote_and); + add_symbol(quote_implies); + add_symbol(quote__if); + add_symbol(quote_f); + add_symbol(quote_t); + mclosure0(c_731223, (function_type)__lambda_79);c_731223.num_args = 4; + __glo_run_91r7rs_91benchmark = &c_731223; + mclosure0(c_731184, (function_type)__lambda_29);c_731184.num_args = 2; + __glo_hide = &c_731184; + mclosure0(c_731182, (function_type)__lambda_17);c_731182.num_args = 0; + __glo_test_91boyer = &c_731182; + mclosure0(c_731180, (function_type)__lambda_16);c_731180.num_args = 0; + __glo_setup_91boyer = &c_731180; + mclosure0(c_731114, (function_type)__lambda_15);c_731114.num_args = 0; + __glo_main = &c_731114; + __glo_term = boolean_f; + __glo_alist = boolean_f; + + make_cvar(cvar_735231, (object *)&__glo_run_91r7rs_91benchmark);make_cons(pair_735232, find_or_add_symbol("run-r7rs-benchmark"), &cvar_735231); + make_cvar(cvar_735233, (object *)&__glo_hide);make_cons(pair_735234, find_or_add_symbol("hide"), &cvar_735233); + make_cvar(cvar_735235, (object *)&__glo_test_91boyer);make_cons(pair_735236, find_or_add_symbol("test-boyer"), &cvar_735235); + make_cvar(cvar_735237, (object *)&__glo_setup_91boyer);make_cons(pair_735238, find_or_add_symbol("setup-boyer"), &cvar_735237); + make_cvar(cvar_735239, (object *)&__glo_term);make_cons(pair_735240, find_or_add_symbol("term"), &cvar_735239); + make_cvar(cvar_735241, (object *)&__glo_alist);make_cons(pair_735242, find_or_add_symbol("alist"), &cvar_735241); + make_cvar(cvar_735243, (object *)&__glo_main);make_cons(pair_735244, find_or_add_symbol("main"), &cvar_735243); +make_cons(c_735245, &pair_735232,Cyc_global_variables); +make_cons(c_735246, &pair_735234, &c_735245); +make_cons(c_735247, &pair_735236, &c_735246); +make_cons(c_735248, &pair_735238, &c_735247); +make_cons(c_735249, &pair_735240, &c_735248); +make_cons(c_735250, &pair_735242, &c_735249); +make_cons(c_735251, &pair_735244, &c_735250); +Cyc_global_variables = &c_735251; +mclosure1(c_done, c_entry_pt_first_lambda, &c_done); +mclosure1(c_735252, c_schemewrite_entry_pt, &c_done); +mclosure1(c_735253, c_schemeread_entry_pt, &c_735252); +mclosure1(c_735254, c_scheme_char_entry_pt, &c_735253); +mclosure1(c_735255, c_schemecxr_entry_pt, &c_735254); +mclosure1(c_735256, c_schemetime_entry_pt, &c_735255); +mclosure1(c_735257, c_schemebase_entry_pt, &c_735256); +(c_735257.fn)(data, 0, &c_735257, &c_735257); +} +static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) { + + + + + + + + return_direct39(data,__lambda_483,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f); +} +main(int argc,char **argv) +{gc_thread_data *thd; + long stack_size = global_stack_size = STACK_SIZE; + long heap_size = global_heap_size = HEAP_SIZE; + mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached + mclosure0(entry_pt,&c_entry_pt); // First function to execute + _cyc_argc = argc; + _cyc_argv = argv; + gc_initialize(); + thd = malloc(sizeof(gc_thread_data)); + gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size); + thd->gc_cont = &entry_pt; + thd->gc_args[0] = &clos_halt; + thd->gc_num_args = 1; + gc_add_mutator(thd); + Cyc_heap_init(heap_size); + thd->thread_state = CYC_THREAD_STATE_RUNNABLE; + Cyc_start_trampoline(thd); + return 0;} diff --git a/debug/compilation/boyer/nboyer.scm b/debug/compilation/boyer/nboyer.scm new file mode 100644 index 00000000..df16dcb8 --- /dev/null +++ b/debug/compilation/boyer/nboyer.scm @@ -0,0 +1,836 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; File: nboyer.sch +; Description: The Boyer benchmark +; Author: Bob Boyer +; Created: 5-Apr-85 +; Modified: 10-Apr-85 14:52:20 (Bob Shaw) +; 22-Jul-87 (Will Clinger) +; 2-Jul-88 (Will Clinger -- distinguished #f and the empty list) +; 13-Feb-97 (Will Clinger -- fixed bugs in unifier and rules, +; rewrote to eliminate property lists, and added +; a scaling parameter suggested by Bob Boyer) +; 19-Mar-99 (Will Clinger -- cleaned up comments) +; 24-Nov-07 (Will Clinger -- converted to R6RS) +; Language: Scheme +; Status: Public Domain +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;; NBOYER -- Logic programming benchmark, originally written by Bob Boyer. +;;; Fairly CONS intensive. + +; Note: The version of this benchmark that appears in Dick Gabriel's book +; contained several bugs that are corrected here. These bugs are discussed +; by Henry Baker, "The Boyer Benchmark Meets Linear Logic", ACM SIGPLAN Lisp +; Pointers 6(4), October-December 1993, pages 3-10. The fixed bugs are: +; +; The benchmark now returns a boolean result. +; FALSEP and TRUEP use TERM-MEMBER? rather than MEMV (which is called MEMBER +; in Common Lisp) +; ONE-WAY-UNIFY1 now treats numbers correctly +; ONE-WAY-UNIFY1-LST now treats empty lists correctly +; Rule 19 has been corrected (this rule was not touched by the original +; benchmark, but is used by this version) +; Rules 84 and 101 have been corrected (but these rules are never touched +; by the benchmark) +; +; According to Baker, these bug fixes make the benchmark 10-25% slower. +; Please do not compare the timings from this benchmark against those of +; the original benchmark. +; +; This version of the benchmark also prints the number of rewrites as a sanity +; check, because it is too easy for a buggy version to return the correct +; boolean result. The correct number of rewrites is +; +; n rewrites peak live storage (approximate, in bytes) +; 0 95024 520,000 +; 1 591777 2,085,000 +; 2 1813975 5,175,000 +; 3 5375678 +; 4 16445406 +; 5 51507739 + +; Nboyer is a 2-phase benchmark. +; The first phase attaches lemmas to symbols. This phase is not timed, +; but it accounts for very little of the runtime anyway. +; The second phase creates the test problem, and tests to see +; whether it is implied by the lemmas. + +(import (scheme base) + (scheme cxr) + (scheme read) + (scheme write) + (scheme time)) + +(define (main) + (let* ((count (read)) + (input (read)) + (output (read)) + (s2 (number->string count)) + (s1 (number->string input)) + (name "nboyer")) + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () + (setup-boyer) + (test-boyer alist term (hide count input))) + (lambda (rewrites) + (and (number? rewrites) (= rewrites output)))))) + +(define alist + (quote ((x f (plus (plus a b) + (plus c (zero)))) + (y f (times (times a b) + (plus c d))) + (z f (reverse (append (append a b) + (nil)))) + (u equal (plus a b) + (difference x y)) + (w lessp (remainder a b) + (member a (length b)))))) + +(define term + (quote (implies (and (implies x y) + (and (implies y z) + (and (implies z u) + (implies u w)))) + (implies x w)))) + +(define (setup-boyer . args) #t) ; assigned below +(define (test-boyer . args) #t) ; assigned below + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; +; The first phase. +; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +; In the original benchmark, it stored a list of lemmas on the +; property lists of symbols. +; In the new benchmark, it maintains an association list of +; symbols and symbol-records, and stores the list of lemmas +; within the symbol-records. + +(let () + + (define (setup) + (add-lemma-lst + (quote ((equal (compile form) + (reverse (codegen (optimize form) + (nil)))) + (equal (eqp x y) + (equal (fix x) + (fix y))) + (equal (greaterp x y) + (lessp y x)) + (equal (lesseqp x y) + (not (lessp y x))) + (equal (greatereqp x y) + (not (lessp x y))) + (equal (boolean x) + (or (equal x (t)) + (equal x (f)))) + (equal (iff x y) + (and (implies x y) + (implies y x))) + (equal (even1 x) + (if (zerop x) + (t) + (odd (_1- x)))) + (equal (countps- l pred) + (countps-loop l pred (zero))) + (equal (fact- i) + (fact-loop i 1)) + (equal (reverse- x) + (reverse-loop x (nil))) + (equal (divides x y) + (zerop (remainder y x))) + (equal (assume-true var alist) + (cons (cons var (t)) + alist)) + (equal (assume-false var alist) + (cons (cons var (f)) + alist)) + (equal (tautology-checker x) + (tautologyp (normalize x) + (nil))) + (equal (falsify x) + (falsify1 (normalize x) + (nil))) + (equal (prime x) + (and (not (zerop x)) + (not (equal x (add1 (zero)))) + (prime1 x (_1- x)))) + (equal (and p q) + (if p (if q (t) + (f)) + (f))) + (equal (or p q) + (if p (t) + (if q (t) + (f)))) + (equal (not p) + (if p (f) + (t))) + (equal (implies p q) + (if p (if q (t) + (f)) + (t))) + (equal (fix x) + (if (numberp x) + x + (zero))) + (equal (if (if a b c) + d e) + (if a (if b d e) + (if c d e))) + (equal (zerop x) + (or (equal x (zero)) + (not (numberp x)))) + (equal (plus (plus x y) + z) + (plus x (plus y z))) + (equal (equal (plus a b) + (zero)) + (and (zerop a) + (zerop b))) + (equal (difference x x) + (zero)) + (equal (equal (plus a b) + (plus a c)) + (equal (fix b) + (fix c))) + (equal (equal (zero) + (difference x y)) + (not (lessp y x))) + (equal (equal x (difference x y)) + (and (numberp x) + (or (equal x (zero)) + (zerop y)))) + (equal (meaning (plus-tree (append x y)) + a) + (plus (meaning (plus-tree x) + a) + (meaning (plus-tree y) + a))) + (equal (meaning (plus-tree (plus-fringe x)) + a) + (fix (meaning x a))) + (equal (append (append x y) + z) + (append x (append y z))) + (equal (reverse (append a b)) + (append (reverse b) + (reverse a))) + (equal (times x (plus y z)) + (plus (times x y) + (times x z))) + (equal (times (times x y) + z) + (times x (times y z))) + (equal (equal (times x y) + (zero)) + (or (zerop x) + (zerop y))) + (equal (exec (append x y) + pds envrn) + (exec y (exec x pds envrn) + envrn)) + (equal (mc-flatten x y) + (append (flatten x) + y)) + (equal (member x (append a b)) + (or (member x a) + (member x b))) + (equal (member x (reverse y)) + (member x y)) + (equal (length (reverse x)) + (length x)) + (equal (member a (intersect b c)) + (and (member a b) + (member a c))) + (equal (nth (zero) + i) + (zero)) + (equal (exp i (plus j k)) + (times (exp i j) + (exp i k))) + (equal (exp i (times j k)) + (exp (exp i j) + k)) + (equal (reverse-loop x y) + (append (reverse x) + y)) + (equal (reverse-loop x (nil)) + (reverse x)) + (equal (count-list z (sort-lp x y)) + (plus (count-list z x) + (count-list z y))) + (equal (equal (append a b) + (append a c)) + (equal b c)) + (equal (plus (remainder x y) + (times y (quotient x y))) + (fix x)) + (equal (power-eval (big-plus1 l i base) + base) + (plus (power-eval l base) + i)) + (equal (power-eval (big-plus x y i base) + base) + (plus i (plus (power-eval x base) + (power-eval y base)))) + (equal (remainder y 1) + (zero)) + (equal (lessp (remainder x y) + y) + (not (zerop y))) + (equal (remainder x x) + (zero)) + (equal (lessp (quotient i j) + i) + (and (not (zerop i)) + (or (zerop j) + (not (equal j 1))))) + (equal (lessp (remainder x y) + x) + (and (not (zerop y)) + (not (zerop x)) + (not (lessp x y)))) + (equal (power-eval (power-rep i base) + base) + (fix i)) + (equal (power-eval (big-plus (power-rep i base) + (power-rep j base) + (zero) + base) + base) + (plus i j)) + (equal (gcd x y) + (gcd y x)) + (equal (nth (append a b) + i) + (append (nth a i) + (nth b (difference i (length a))))) + (equal (difference (plus x y) + x) + (fix y)) + (equal (difference (plus y x) + x) + (fix y)) + (equal (difference (plus x y) + (plus x z)) + (difference y z)) + (equal (times x (difference c w)) + (difference (times c x) + (times w x))) + (equal (remainder (times x z) + z) + (zero)) + (equal (difference (plus b (plus a c)) + a) + (plus b c)) + (equal (difference (add1 (plus y z)) + z) + (add1 y)) + (equal (lessp (plus x y) + (plus x z)) + (lessp y z)) + (equal (lessp (times x z) + (times y z)) + (and (not (zerop z)) + (lessp x y))) + (equal (lessp y (plus x y)) + (not (zerop x))) + (equal (gcd (times x z) + (times y z)) + (times z (gcd x y))) + (equal (value (normalize x) + a) + (value x a)) + (equal (equal (flatten x) + (cons y (nil))) + (and (nlistp x) + (equal x y))) + (equal (listp (gopher x)) + (listp x)) + (equal (samefringe x y) + (equal (flatten x) + (flatten y))) + (equal (equal (greatest-factor x y) + (zero)) + (and (or (zerop y) + (equal y 1)) + (equal x (zero)))) + (equal (equal (greatest-factor x y) + 1) + (equal x 1)) + (equal (numberp (greatest-factor x y)) + (not (and (or (zerop y) + (equal y 1)) + (not (numberp x))))) + (equal (times-list (append x y)) + (times (times-list x) + (times-list y))) + (equal (prime-list (append x y)) + (and (prime-list x) + (prime-list y))) + (equal (equal z (times w z)) + (and (numberp z) + (or (equal z (zero)) + (equal w 1)))) + (equal (greatereqp x y) + (not (lessp x y))) + (equal (equal x (times x y)) + (or (equal x (zero)) + (and (numberp x) + (equal y 1)))) + (equal (remainder (times y x) + y) + (zero)) + (equal (equal (times a b) + 1) + (and (not (equal a (zero))) + (not (equal b (zero))) + (numberp a) + (numberp b) + (equal (_1- a) + (zero)) + (equal (_1- b) + (zero)))) + (equal (lessp (length (delete x l)) + (length l)) + (member x l)) + (equal (sort2 (delete x l)) + (delete x (sort2 l))) + (equal (dsort x) + (sort2 x)) + (equal (length (cons x1 + (cons x2 + (cons x3 (cons x4 + (cons x5 + (cons x6 x7))))))) + (plus 6 (length x7))) + (equal (difference (add1 (add1 x)) + 2) + (fix x)) + (equal (quotient (plus x (plus x y)) + 2) + (plus x (quotient y 2))) + (equal (sigma (zero) + i) + (quotient (times i (add1 i)) + 2)) + (equal (plus x (add1 y)) + (if (numberp y) + (add1 (plus x y)) + (add1 x))) + (equal (equal (difference x y) + (difference z y)) + (if (lessp x y) + (not (lessp y z)) + (if (lessp z y) + (not (lessp y x)) + (equal (fix x) + (fix z))))) + (equal (meaning (plus-tree (delete x y)) + a) + (if (member x y) + (difference (meaning (plus-tree y) + a) + (meaning x a)) + (meaning (plus-tree y) + a))) + (equal (times x (add1 y)) + (if (numberp y) + (plus x (times x y)) + (fix x))) + (equal (nth (nil) + i) + (if (zerop i) + (nil) + (zero))) + (equal (last (append a b)) + (if (listp b) + (last b) + (if (listp a) + (cons (car (last a)) + b) + b))) + (equal (equal (lessp x y) + z) + (if (lessp x y) + (equal (t) z) + (equal (f) z))) + (equal (assignment x (append a b)) + (if (assignedp x a) + (assignment x a) + (assignment x b))) + (equal (car (gopher x)) + (if (listp x) + (car (flatten x)) + (zero))) + (equal (flatten (cdr (gopher x))) + (if (listp x) + (cdr (flatten x)) + (cons (zero) + (nil)))) + (equal (quotient (times y x) + y) + (if (zerop y) + (zero) + (fix x))) + (equal (get j (set i val mem)) + (if (eqp j i) + val + (get j mem))))))) + + (define (add-lemma-lst lst) + (cond ((null? lst) + #t) + (else (add-lemma (car lst)) + (add-lemma-lst (cdr lst))))) + + (define (add-lemma term) + (cond ((and (pair? term) + (eq? (car term) + (quote equal)) + (pair? (cadr term))) + (put (car (cadr term)) + (quote lemmas) + (cons + (translate-term term) + (get (car (cadr term)) (quote lemmas))))) + (else (error #f "ADD-LEMMA did not like term: " term)))) + + ; Translates a term by replacing its constructor symbols by symbol-records. + + (define (translate-term term) + (cond ((not (pair? term)) + term) + (else (cons (symbol->symbol-record (car term)) + (translate-args (cdr term)))))) + + (define (translate-args lst) + (cond ((null? lst) + '()) + (else (cons (translate-term (car lst)) + (translate-args (cdr lst)))))) + + ; For debugging only, so the use of MAP does not change + ; the first-order character of the benchmark. + + (define (untranslate-term term) + (cond ((not (pair? term)) + term) + (else (cons (get-name (car term)) + (map untranslate-term (cdr term)))))) + + ; A symbol-record is represented as a vector with two fields: + ; the symbol (for debugging) and + ; the list of lemmas associated with the symbol. + + (define (put sym property value) + (put-lemmas! (symbol->symbol-record sym) value)) + + (define (get sym property) + (get-lemmas (symbol->symbol-record sym))) + + (define (symbol->symbol-record sym) + (let ((x (assq sym *symbol-records-alist*))) + (if x + (cdr x) + (let ((r (make-symbol-record sym))) + (set! *symbol-records-alist* + (cons (cons sym r) + *symbol-records-alist*)) + r)))) + + ; Association list of symbols and symbol-records. + + (define *symbol-records-alist* '()) + + ; A symbol-record is represented as a vector with two fields: + ; the symbol (for debugging) and + ; the list of lemmas associated with the symbol. + + (define (make-symbol-record sym) + (vector sym '())) + + (define (put-lemmas! symbol-record lemmas) + (vector-set! symbol-record 1 lemmas)) + + (define (get-lemmas symbol-record) + (vector-ref symbol-record 1)) + + (define (get-name symbol-record) + (vector-ref symbol-record 0)) + + (define (symbol-record-equal? r1 r2) + (eq? r1 r2)) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ; + ; The second phase. + ; + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + (define (test alist term n) + (let ((term + (apply-subst + (translate-alist alist) + (translate-term + (do ((term term (list 'or term '(f))) + (n n (- n 1))) + ((zero? n) term)))))) + (tautp term))) + + (define (translate-alist alist) + (cond ((null? alist) + '()) + (else (cons (cons (caar alist) + (translate-term (cdar alist))) + (translate-alist (cdr alist)))))) + + (define (apply-subst alist term) + (cond ((not (pair? term)) + (let ((temp-temp (assq term alist))) + (if temp-temp + (cdr temp-temp) + term))) + (else (cons (car term) + (apply-subst-lst alist (cdr term)))))) + + (define (apply-subst-lst alist lst) + (cond ((null? lst) + '()) + (else (cons (apply-subst alist (car lst)) + (apply-subst-lst alist (cdr lst)))))) + + (define (tautp x) + (tautologyp (rewrite x) + '() '())) + + (define (tautologyp x true-lst false-lst) + (cond ((truep x true-lst) + #t) + ((falsep x false-lst) + #f) + ((not (pair? x)) + #f) + ((eq? (car x) if-constructor) + (cond ((truep (cadr x) + true-lst) + (tautologyp (caddr x) + true-lst false-lst)) + ((falsep (cadr x) + false-lst) + (tautologyp (cadddr x) + true-lst false-lst)) + (else (and (tautologyp (caddr x) + (cons (cadr x) + true-lst) + false-lst) + (tautologyp (cadddr x) + true-lst + (cons (cadr x) + false-lst)))))) + (else #f))) + + (define if-constructor '*) ; becomes (symbol->symbol-record 'if) + + (define rewrite-count 0) ; sanity check + + (define (rewrite term) + (set! rewrite-count (+ rewrite-count 1)) + (cond ((not (pair? term)) + term) + (else (rewrite-with-lemmas (cons (car term) + (rewrite-args (cdr term))) + (get-lemmas (car term)))))) + + (define (rewrite-args lst) + (cond ((null? lst) + '()) + (else (cons (rewrite (car lst)) + (rewrite-args (cdr lst)))))) + + (define (rewrite-with-lemmas term lst) + (cond ((null? lst) + term) + ((one-way-unify term (cadr (car lst))) + (rewrite (apply-subst unify-subst (caddr (car lst))))) + (else (rewrite-with-lemmas term (cdr lst))))) + + (define unify-subst '*) + + (define (one-way-unify term1 term2) + (begin (set! unify-subst '()) + (one-way-unify1 term1 term2))) + + (define (one-way-unify1 term1 term2) + (cond ((not (pair? term2)) + (let ((temp-temp (assq term2 unify-subst))) + (cond (temp-temp + (term-equal? term1 (cdr temp-temp))) + ((number? term2) ; This bug fix makes + (equal? term1 term2)) ; nboyer 10-25% slower! + (else + (set! unify-subst (cons (cons term2 term1) + unify-subst)) + #t)))) + ((not (pair? term1)) + #f) + ((eq? (car term1) + (car term2)) + (one-way-unify1-lst (cdr term1) + (cdr term2))) + (else #f))) + + (define (one-way-unify1-lst lst1 lst2) + (cond ((null? lst1) + (null? lst2)) + ((null? lst2) + #f) + ((one-way-unify1 (car lst1) + (car lst2)) + (one-way-unify1-lst (cdr lst1) + (cdr lst2))) + (else #f))) + + (define (falsep x lst) + (or (term-equal? x false-term) + (term-member? x lst))) + + (define (truep x lst) + (or (term-equal? x true-term) + (term-member? x lst))) + + (define false-term '*) ; becomes (translate-term '(f)) + (define true-term '*) ; becomes (translate-term '(t)) + + ; The next two procedures were in the original benchmark + ; but were never used. + + (define (trans-of-implies n) + (translate-term + (list (quote implies) + (trans-of-implies1 n) + (list (quote implies) + 0 n)))) + + (define (trans-of-implies1 n) + (cond ((equal? n 1) + (list (quote implies) + 0 1)) + (else (list (quote and) + (list (quote implies) + (- n 1) + n) + (trans-of-implies1 (- n 1)))))) + + ; Translated terms can be circular structures, which can't be + ; compared using Scheme's equal? and member procedures, so we + ; use these instead. + + (define (term-equal? x y) + (cond ((pair? x) + (and (pair? y) + (symbol-record-equal? (car x) (car y)) + (term-args-equal? (cdr x) (cdr y)))) + (else (equal? x y)))) + + (define (term-args-equal? lst1 lst2) + (cond ((null? lst1) + (null? lst2)) + ((null? lst2) + #f) + ((term-equal? (car lst1) (car lst2)) + (term-args-equal? (cdr lst1) (cdr lst2))) + (else #f))) + + (define (term-member? x lst) + (cond ((null? lst) + #f) + ((term-equal? x (car lst)) + #t) + (else (term-member? x (cdr lst))))) + + (set! setup-boyer + (lambda () + (set! *symbol-records-alist* '()) + (set! if-constructor (symbol->symbol-record 'if)) + (set! false-term (translate-term '(f))) + (set! true-term (translate-term '(t))) + (setup))) + + (set! test-boyer + (lambda (alist term n) + (set! rewrite-count 0) + (let ((answer (test alist term n))) +; (write rewrite-count) +; (display " rewrites") +; (newline) + (if answer + rewrite-count + #f))))) + +;;; The following code is appended to all benchmarks. + +;;; Given an integer and an object, returns the object +;;; without making it too easy for compilers to tell +;;; the object will be returned. + +(define (hide r x) + (call-with-values + (lambda () + (values (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) + ((vector-ref v i) x)))) + +;;; Given the name of a benchmark, +;;; the number of times it should be executed, +;;; a thunk that runs the benchmark once, +;;; and a unary predicate that is true of the +;;; correct results the thunk may return, +;;; runs the benchmark for the number of specified iterations. + +(define (run-r7rs-benchmark name count thunk ok?) + + ;; Rounds to thousandths. + (define (rounded x) + (/ (round (* 1000 x)) 1000)) + + (display "Running ") + (display name) + (newline) + (flush-output-port) + (let* ((j/s (jiffies-per-second)) + (t0 (current-second)) + (j0 (current-jiffy))) + (let loop ((i 0) + (result (if #f #f))) + (cond ((< i count) + (loop (+ i 1) (thunk))) + ((ok? result) + (let* ((j1 (current-jiffy)) + (t1 (current-second)) + (jifs (- j1 j0)) + (secs (inexact (/ jifs j/s))) + (secs2 (rounded (- t1 t0)))) + (display "Elapsed time: ") + (write secs) + (display " seconds (") + (write secs2) + (display ") for ") + (display name) + (newline)) + result) + (else + (display "ERROR: returned incorrect result: ") + (write result) + (newline) + result))))) + +(main) diff --git a/debug/compilation/boyer/sboyer.c b/debug/compilation/boyer/sboyer.c new file mode 100644 index 00000000..d448f422 --- /dev/null +++ b/debug/compilation/boyer/sboyer.c @@ -0,0 +1,17115 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** + ** (c) 2014-2016 Justin Ethier + ** Version 0.0.5 (Pre-release) + ** + **/ + +/* +"---------------- input program:" */ +/* +((import (scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) (define (main) (let* ((count (read)) (input (read)) (output (read)) (s2 (number->string count)) (s1 (number->string input)) (name "sboyer")) (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (and (number? rewrites) (= rewrites output)))))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define (setup-boyer) #t) (define (test-boyer) #t) (let () (define (setup) (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) (quote equal)) (pair? (cadr term))) (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas))))) (else (error #f "ADD-LEMMA did not like term: " term)))) (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) (quote ())) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) (define *symbol-records-alist* (quote ())) (define (make-symbol-record sym) (vector sym (quote ()))) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) (define (test alist term n) (let ((term (apply-subst (translate-alist alist) (translate-term (do ((term term (list (quote or) term (quote (f))) ...) (n n (- n 1) ...)) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) (quote ())) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) (quote ())) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) (quote ()) (quote ()))) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor (quote *)) (define rewrite-count 0) (define (scons x y original) (if (and (eq? x (car original)) (eq? y (cdr original))) original (cons x y))) (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) (quote ())) (else (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst (quote *)) (define (one-way-unify term1 term2) (begin (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) (equal? term1 term2)) (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term (quote *)) (define true-term (quote *)) (define (trans-of-implies n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list (quote implies) 0 1)) (else (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))) (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) (let ((answer (test alist term n))) (if answer rewrite-count #f))))) (define (hide r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x)))) (define (run-r7rs-benchmark name count thunk ok?) (define (rounded x) (/ (round (* 1000 x)) 1000)) (display "Running ") (display name) (newline) (flush-output-port) (let* ((j/s (jiffies-per-second)) (t0 (current-second)) (j0 (current-jiffy))) (let loop ((i 0) (result (if #f #f))) (cond ((< i count) (loop (+ i 1) (thunk))) ((ok? result) (let* ((j1 (current-jiffy)) (t1 (current-second)) (jifs (- j1 j0)) (secs (inexact (/ jifs j/s))) (secs2 (rounded (- t1 t0)))) (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)) result) (else (display "ERROR: returned incorrect result: ") (write result) (newline) result))))) (main)) */ +/* +"imports:" */ +/* +((scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) */ +/* +"resolved imports:" */ +/* +((cons-source scheme base) (syntax-rules scheme base) (letrec* scheme base) (guard scheme base) (guard-aux scheme base) (receive scheme base) (abs scheme base) (max scheme base) (min scheme base) (modulo scheme base) (floor-remainder scheme base) (even? scheme base) (exact-integer? scheme base) (exact? scheme base) (inexact? scheme base) (odd? scheme base) (complex? scheme base) (rational? scheme base) (gcd scheme base) (lcm scheme base) (quotient scheme base) (remainder scheme base) (truncate-quotient scheme base) (truncate-remainder scheme base) (truncate/ scheme base) (floor-quotient scheme base) (floor-remainder scheme base) (floor/ scheme base) (square scheme base) (expt scheme base) (call-with-current-continuation scheme base) (call/cc scheme base) (call-with-values scheme base) (dynamic-wind scheme base) (values scheme base) (char=? scheme base) (char? scheme base) (char<=? scheme base) (char>=? scheme base) (string=? scheme base) (string? scheme base) (string>=? scheme base) (foldl scheme base) (foldr scheme base) (not scheme base) (list? scheme base) (zero? scheme base) (positive? scheme base) (negative? scheme base) (append scheme base) (list scheme base) (make-list scheme base) (list-copy scheme base) (map scheme base) (for-each scheme base) (list-tail scheme base) (list-ref scheme base) (list-set! scheme base) (reverse scheme base) (boolean=? scheme base) (symbol=? scheme base) (Cyc-obj=? scheme base) (vector scheme base) (vector-append scheme base) (vector-copy scheme base) (vector-copy! scheme base) (vector-fill! scheme base) (vector->list scheme base) (vector->string scheme base) (vector-map scheme base) (vector-for-each scheme base) (make-string scheme base) (string scheme base) (string-copy scheme base) (string-copy! scheme base) (string-fill! scheme base) (string->list scheme base) (string->vector scheme base) (string-map scheme base) (string-for-each scheme base) (make-parameter scheme base) (current-output-port scheme base) (current-input-port scheme base) (current-error-port scheme base) (call-with-port scheme base) (error scheme base) (raise scheme base) (raise-continuable scheme base) (with-exception-handler scheme base) (Cyc-add-exception-handler scheme base) (Cyc-remove-exception-handler scheme base) (newline scheme base) (write-char scheme base) (write-string scheme base) (flush-output-port scheme base) (read-line scheme base) (read-string scheme base) (input-port? scheme base) (output-port? scheme base) (input-port-open? scheme base) (output-port-open? scheme base) (features scheme base) (any scheme base) (every scheme base) (and scheme base) (or scheme base) (let scheme base) (let* scheme base) (letrec scheme base) (begin scheme base) (case scheme base) (cond scheme base) (cond-expand scheme base) (do scheme base) (when scheme base) (unless scheme base) (quasiquote scheme base) (floor scheme base) (ceiling scheme base) (truncate scheme base) (round scheme base) (exact scheme base) (inexact scheme base) (eof-object scheme base) (syntax-error scheme base) (bytevector-copy scheme base) (utf8->string scheme base) (string->utf8 scheme base) (denominator scheme base) (numerator scheme base) (caaaaar scheme cxr) (read scheme read) (read-all scheme read) (display scheme write) (write scheme write) (current-second scheme time) (current-jiffy scheme time) (jiffies-per-second scheme time)) */ +/* +"resolved macros:" */ +/* +() */ +/* +"---------------- after macro expansion:" */ +/* +((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "sboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define scons (lambda (x y original) (if (if (eq? x (car original)) (eq? y (cdr original)) #f) original (cons x y)))) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (main)) */ +/* +"---------------- after processing globals" */ +/* +((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "sboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define scons (lambda (x y original) (if (if (eq? x (car original)) (eq? y (cdr original)) #f) original (cons x y)))) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (main)))) */ +/* +"---------------- after alpha conversion:" */ +/* +((define main (lambda () ((lambda (count$258) ((lambda (input$259) ((lambda (output$260) ((lambda (s2$261) ((lambda (s1$262) ((lambda (name$263) ((lambda () (run-r7rs-benchmark (string-append name$263 ":" s1$262 ":" s2$261) count$258 (lambda () (setup-boyer) (test-boyer alist term (hide count$258 input$259))) (lambda (rewrites$264) (if (number? rewrites$264) (= rewrites$264 output$260) #f)))))) "sboyer")) (number->string input$259))) (number->string count$258))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda () #t)) (define test-boyer (lambda () #t)) (define hide (lambda (r$254 x$253) (call-with-values (lambda () (values (vector values (lambda (x$257) x$257)) (if (< r$254 100) 0 1))) (lambda (v$256 i$255) ((vector-ref v$256 i$255) x$253))))) (define run-r7rs-benchmark (lambda (name$235 count$234 thunk$233 ok?$232) ((lambda (rounded$237) ((lambda (rounded$238) (set! rounded$237 (lambda (x$252) (/ (round (* 1000 x$252)) 1000))) (display "Running ") (display name$235) (newline) (flush-output-port) ((lambda (j/s$239) ((lambda (t0$240) ((lambda (j0$241) ((lambda () ((lambda (i$243 result$242) ((lambda (loop$244) (set! loop$244 (lambda (i$246 result$245) (if (< i$246 count$234) ((lambda () (loop$244 (+ i$246 1) (thunk$233)))) (if (ok?$232 result$245) ((lambda () ((lambda (j1$247) ((lambda (t1$248) ((lambda (jifs$249) ((lambda (secs$250) ((lambda (secs2$251) ((lambda () (display "Elapsed time: ") (write secs$250) (display " seconds (") (write secs2$251) (display ") for ") (display name$235) (newline)))) (rounded$237 (- t1$248 t0$240)))) (inexact (/ jifs$249 j/s$239)))) (- j1$247 j0$241))) (current-second))) (current-jiffy)) result$245)) ((lambda () (display "ERROR: returned incorrect result: ") (write result$245) (newline) result$245)))))) (loop$244 i$243 result$242)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second))) #f)) #f))) ((lambda (*symbol-records-alist*$120 add-lemma$119 add-lemma-lst$118 apply-subst$117 apply-subst-lst$116 false-term$115 falsep$114 get$113 get-lemmas$112 get-name$111 if-constructor$110 make-symbol-record$109 one-way-unify$108 one-way-unify1$107 one-way-unify1-lst$106 put$105 put-lemmas!$104 rewrite$103 rewrite-args$102 rewrite-count$101 rewrite-with-lemmas$100 scons$99 setup$98 symbol->symbol-record$97 symbol-record-equal?$96 tautologyp$95 tautp$94 term-args-equal?$93 term-equal?$92 term-member?$91 test$90 trans-of-implies$89 trans-of-implies1$88 translate-alist$87 translate-args$86 translate-term$85 true-term$84 truep$83 unify-subst$82 untranslate-term$81) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () ((lambda (setup$160 add-lemma-lst$159 add-lemma$158 translate-term$157 translate-args$156 untranslate-term$155 put$154 get$153 symbol->symbol-record$152 *symbol-records-alist*$151 make-symbol-record$150 put-lemmas!$149 get-lemmas$148 get-name$147 symbol-record-equal?$146 test$145 translate-alist$144 apply-subst$143 apply-subst-lst$142 tautp$141 tautologyp$140 if-constructor$139 rewrite-count$138 scons$137 rewrite$136 rewrite-args$135 rewrite-with-lemmas$134 unify-subst$133 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 falsep$129 truep$128 false-term$127 true-term$126 trans-of-implies$125 trans-of-implies1$124 term-equal?$123 term-args-equal?$122 term-member?$121) (set! setup$160 (lambda () (add-lemma-lst$159 (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (set! add-lemma-lst$159 (lambda (lst$231) (if (null? lst$231) ((lambda () #t)) ((lambda () (add-lemma$158 (car lst$231)) (add-lemma-lst$159 (cdr lst$231))))))) (set! add-lemma$158 (lambda (term$230) (if (if (pair? term$230) (if (eq? (car term$230) (quote equal)) (pair? (cadr term$230)) #f) #f) ((lambda () (put$154 (car (cadr term$230)) (quote lemmas) (cons (translate-term$157 term$230) (get$153 (car (cadr term$230)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term: " term$230)))))) (set! translate-term$157 (lambda (term$229) (if (pair? term$229) ((lambda () (cons (symbol->symbol-record$152 (car term$229)) (translate-args$156 (cdr term$229))))) ((lambda () term$229))))) (set! translate-args$156 (lambda (lst$228) (if (null? lst$228) ((lambda () (quote ()))) ((lambda () (cons (translate-term$157 (car lst$228)) (translate-args$156 (cdr lst$228)))))))) (set! untranslate-term$155 (lambda (term$227) (if (pair? term$227) ((lambda () (cons (get-name$147 (car term$227)) (map untranslate-term$155 (cdr term$227))))) ((lambda () term$227))))) (set! put$154 (lambda (sym$226 property$225 value$224) (put-lemmas!$149 (symbol->symbol-record$152 sym$226) value$224))) (set! get$153 (lambda (sym$223 property$222) (get-lemmas$148 (symbol->symbol-record$152 sym$223)))) (set! symbol->symbol-record$152 (lambda (sym$219) ((lambda (x$220) (if x$220 (cdr x$220) ((lambda (r$221) (set! *symbol-records-alist*$151 (cons (cons sym$219 r$221) *symbol-records-alist*$151)) r$221) (make-symbol-record$150 sym$219)))) (assq sym$219 *symbol-records-alist*$151)))) (set! *symbol-records-alist*$151 (quote ())) (set! make-symbol-record$150 (lambda (sym$218) (vector sym$218 (quote ())))) (set! put-lemmas!$149 (lambda (symbol-record$217 lemmas$216) (vector-set! symbol-record$217 1 lemmas$216))) (set! get-lemmas$148 (lambda (symbol-record$215) (vector-ref symbol-record$215 1))) (set! get-name$147 (lambda (symbol-record$214) (vector-ref symbol-record$214 0))) (set! symbol-record-equal?$146 (lambda (r1$213 r2$212) (eq? r1$213 r2$212))) (set! test$145 (lambda (alist$205 term$204 n$203) ((lambda (term$211) (tautp$141 term$211)) (apply-subst$143 (translate-alist$144 alist$205) (translate-term$157 ((lambda (term$207 n$206) ((lambda (lp$208) (set! lp$208 (lambda (term$210 n$209) (if (zero? n$209) term$210 (lp$208 (list (quote or) term$210 (quote (f))) (- n$209 1))))) (lp$208 term$207 n$206)) #f)) term$204 n$203)))))) (set! translate-alist$144 (lambda (alist$202) (if (null? alist$202) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist$202) (translate-term$157 (cdar alist$202))) (translate-alist$144 (cdr alist$202)))))))) (set! apply-subst$143 (lambda (alist$200 term$199) (if (pair? term$199) ((lambda () (cons (car term$199) (apply-subst-lst$142 alist$200 (cdr term$199))))) ((lambda () ((lambda (temp-temp$201) (if temp-temp$201 (cdr temp-temp$201) term$199)) (assq term$199 alist$200))))))) (set! apply-subst-lst$142 (lambda (alist$198 lst$197) (if (null? lst$197) ((lambda () (quote ()))) ((lambda () (cons (apply-subst$143 alist$198 (car lst$197)) (apply-subst-lst$142 alist$198 (cdr lst$197)))))))) (set! tautp$141 (lambda (x$196) (tautologyp$140 (rewrite$136 x$196) (quote ()) (quote ())))) (set! tautologyp$140 (lambda (x$195 true-lst$194 false-lst$193) (if (truep$128 x$195 true-lst$194) ((lambda () #t)) (if (falsep$129 x$195 false-lst$193) ((lambda () #f)) (if (pair? x$195) (if (eq? (car x$195) if-constructor$139) ((lambda () (if (truep$128 (cadr x$195) true-lst$194) ((lambda () (tautologyp$140 (caddr x$195) true-lst$194 false-lst$193))) (if (falsep$129 (cadr x$195) false-lst$193) ((lambda () (tautologyp$140 (cadddr x$195) true-lst$194 false-lst$193))) ((lambda () (if (tautologyp$140 (caddr x$195) (cons (cadr x$195) true-lst$194) false-lst$193) (tautologyp$140 (cadddr x$195) true-lst$194 (cons (cadr x$195) false-lst$193)) #f))))))) ((lambda () #f))) ((lambda () #f))))))) (set! if-constructor$139 (quote *)) (set! rewrite-count$138 0) (set! scons$137 (lambda (x$192 y$191 original$190) (if (if (eq? x$192 (car original$190)) (eq? y$191 (cdr original$190)) #f) original$190 (cons x$192 y$191)))) (set! rewrite$136 (lambda (term$189) (set! rewrite-count$138 (+ rewrite-count$138 1)) (if (pair? term$189) ((lambda () (rewrite-with-lemmas$134 (scons$137 (car term$189) (rewrite-args$135 (cdr term$189)) term$189) (get-lemmas$148 (car term$189))))) ((lambda () term$189))))) (set! rewrite-args$135 (lambda (lst$188) (if (null? lst$188) ((lambda () (quote ()))) ((lambda () (scons$137 (rewrite$136 (car lst$188)) (rewrite-args$135 (cdr lst$188)) lst$188)))))) (set! rewrite-with-lemmas$134 (lambda (term$187 lst$186) (if (null? lst$186) ((lambda () term$187)) (if (one-way-unify$132 term$187 (cadr (car lst$186))) ((lambda () (rewrite$136 (apply-subst$143 unify-subst$133 (caddr (car lst$186)))))) ((lambda () (rewrite-with-lemmas$134 term$187 (cdr lst$186)))))))) (set! unify-subst$133 (quote *)) (set! one-way-unify$132 (lambda (term1$185 term2$184) (set! unify-subst$133 (quote ())) (one-way-unify1$131 term1$185 term2$184))) (set! one-way-unify1$131 (lambda (term1$182 term2$181) (if (pair? term2$181) (if (pair? term1$182) (if (eq? (car term1$182) (car term2$181)) ((lambda () (one-way-unify1-lst$130 (cdr term1$182) (cdr term2$181)))) ((lambda () #f))) ((lambda () #f))) ((lambda () ((lambda (temp-temp$183) (if temp-temp$183 ((lambda () (term-equal?$123 term1$182 (cdr temp-temp$183)))) (if (number? term2$181) ((lambda () (equal? term1$182 term2$181))) ((lambda () (set! unify-subst$133 (cons (cons term2$181 term1$182) unify-subst$133)) #t))))) (assq term2$181 unify-subst$133))))))) (set! one-way-unify1-lst$130 (lambda (lst1$180 lst2$179) (if (null? lst1$180) ((lambda () (null? lst2$179))) (if (null? lst2$179) ((lambda () #f)) (if (one-way-unify1$131 (car lst1$180) (car lst2$179)) ((lambda () (one-way-unify1-lst$130 (cdr lst1$180) (cdr lst2$179)))) ((lambda () #f))))))) (set! falsep$129 (lambda (x$177 lst$176) ((lambda (tmp$178) (if tmp$178 tmp$178 (term-member?$121 x$177 lst$176))) (term-equal?$123 x$177 false-term$127)))) (set! truep$128 (lambda (x$174 lst$173) ((lambda (tmp$175) (if tmp$175 tmp$175 (term-member?$121 x$174 lst$173))) (term-equal?$123 x$174 true-term$126)))) (set! false-term$127 (quote *)) (set! true-term$126 (quote *)) (set! trans-of-implies$125 (lambda (n$172) (translate-term$157 (list (quote implies) (trans-of-implies1$124 n$172) (list (quote implies) 0 n$172))))) (set! trans-of-implies1$124 (lambda (n$171) (if (equal? n$171 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n$171 1) n$171) (trans-of-implies1$124 (- n$171 1)))))))) (set! term-equal?$123 (lambda (x$170 y$169) (if (pair? x$170) ((lambda () (if (pair? y$169) (if (symbol-record-equal?$146 (car x$170) (car y$169)) (term-args-equal?$122 (cdr x$170) (cdr y$169)) #f) #f))) ((lambda () (equal? x$170 y$169)))))) (set! term-args-equal?$122 (lambda (lst1$168 lst2$167) (if (null? lst1$168) ((lambda () (null? lst2$167))) (if (null? lst2$167) ((lambda () #f)) (if (term-equal?$123 (car lst1$168) (car lst2$167)) ((lambda () (term-args-equal?$122 (cdr lst1$168) (cdr lst2$167)))) ((lambda () #f))))))) (set! term-member?$121 (lambda (x$166 lst$165) (if (null? lst$165) ((lambda () #f)) (if (term-equal?$123 x$166 (car lst$165)) ((lambda () #t)) ((lambda () (term-member?$121 x$166 (cdr lst$165)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist*$151 (quote ())) (set! if-constructor$139 (symbol->symbol-record$152 (quote if))) (set! false-term$127 (translate-term$157 (quote (f)))) (set! true-term$126 (translate-term$157 (quote (t)))) (setup$160))) (set! test-boyer (lambda (alist$163 term$162 n$161) (set! rewrite-count$138 0) ((lambda (answer$164) (if answer$164 rewrite-count$138 #f)) (test$145 alist$163 term$162 n$161))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (main)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after CPS:" */ +/* +((define main (lambda (k$645) (read (lambda (r$646) ((lambda (count$258) (read (lambda (r$647) ((lambda (input$259) (read (lambda (r$648) ((lambda (output$260) ((lambda (r$649) ((lambda (s2$261) ((lambda (r$650) ((lambda (s1$262) ((lambda (name$263) ((lambda () ((lambda (r$651) ((lambda (r$652) ((lambda (r$653) (run-r7rs-benchmark k$645 r$651 count$258 r$652 r$653)) (lambda (k$654 rewrites$264) ((lambda (r$655) (if r$655 (k$654 (= rewrites$264 output$260)) (k$654 #f))) (number? rewrites$264))))) (lambda (k$656) (setup-boyer (lambda (r$657) (hide (lambda (r$658) (test-boyer k$656 alist term r$658)) count$258 input$259)))))) (string-append name$263 ":" s1$262 ":" s2$261))))) "sboyer")) r$650)) (number->string input$259))) r$649)) (number->string count$258))) r$648)))) r$647)))) r$646))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$638) (k$638 #t))) (define test-boyer (lambda (k$635) (k$635 #t))) (define hide (lambda (k$621 r$254 x$253) ((lambda (r$622) ((lambda (r$623) (call-with-values k$621 r$622 r$623)) (lambda (k$624 v$256 i$255) ((lambda (r$625) (r$625 k$624 x$253)) (vector-ref v$256 i$255))))) (lambda (k$626) ((lambda (r$631) (vector (lambda (r$627) ((lambda (k$629) ((lambda (r$630) (if r$630 (k$629 0) (k$629 1))) (< r$254 100))) (lambda (r$628) (values k$626 r$627 r$628)))) values r$631)) (lambda (k$632 x$257) (k$632 x$257))))))) (define run-r7rs-benchmark (lambda (k$580 name$235 count$234 thunk$233 ok?$232) ((lambda (rounded$237) ((lambda (rounded$238) ((lambda (r$615) ((lambda (r$581) (display (lambda (r$582) (display (lambda (r$583) (newline (lambda (r$584) (flush-output-port (lambda (r$585) (jiffies-per-second (lambda (r$586) ((lambda (j/s$239) (current-second (lambda (r$587) ((lambda (t0$240) (current-jiffy (lambda (r$588) ((lambda (j0$241) ((lambda () ((lambda (k$614) (if #f (k$614 #f) (k$614 #f))) (lambda (r$589) ((lambda (i$243 result$242) ((lambda (loop$244) ((lambda (r$591) ((lambda (r$590) (loop$244 k$580 i$243 result$242)) (set! loop$244 r$591))) (lambda (k$592 i$246 result$245) ((lambda (r$593) (if r$593 ((lambda () ((lambda (r$594) (thunk$233 (lambda (r$595) (loop$244 k$592 r$594 r$595)))) (+ i$246 1)))) (ok?$232 (lambda (r$596) (if r$596 ((lambda () (current-jiffy (lambda (r$598) ((lambda (j1$247) (current-second (lambda (r$599) ((lambda (t1$248) ((lambda (r$600) ((lambda (jifs$249) ((lambda (r$610) (inexact (lambda (r$601) ((lambda (secs$250) ((lambda (r$609) (rounded$237 (lambda (r$602) ((lambda (secs2$251) ((lambda () (display (lambda (r$603) (write (lambda (r$604) (display (lambda (r$605) (write (lambda (r$606) (display (lambda (r$607) (display (lambda (r$608) (newline (lambda (r$597) (k$592 result$245)))) name$235)) ") for ")) secs2$251)) " seconds (")) secs$250)) "Elapsed time: ")))) r$602)) r$609)) (- t1$248 t0$240))) r$601)) r$610)) (/ jifs$249 j/s$239))) r$600)) (- j1$247 j0$241))) r$599)))) r$598))))) ((lambda () (display (lambda (r$611) (write (lambda (r$612) (newline (lambda (r$613) (k$592 result$245)))) result$245)) "ERROR: returned incorrect result: "))))) result$245))) (< i$246 count$234))))) #f)) 0 r$589)))))) r$588)))) r$587)))) r$586)))))))) name$235)) "Running ")) (set! rounded$237 r$615))) (lambda (k$616 x$252) ((lambda (r$618) (round (lambda (r$617) (k$616 (/ r$617 1000))) r$618)) (* 1000 x$252))))) #f)) #f))) ((lambda (*symbol-records-alist*$120 add-lemma$119 add-lemma-lst$118 apply-subst$117 apply-subst-lst$116 false-term$115 falsep$114 get$113 get-lemmas$112 get-name$111 if-constructor$110 make-symbol-record$109 one-way-unify$108 one-way-unify1$107 one-way-unify1-lst$106 put$105 put-lemmas!$104 rewrite$103 rewrite-args$102 rewrite-count$101 rewrite-with-lemmas$100 scons$99 setup$98 symbol->symbol-record$97 symbol-record-equal?$96 tautologyp$95 tautp$94 term-args-equal?$93 term-equal?$92 term-member?$91 test$90 trans-of-implies$89 trans-of-implies1$88 translate-alist$87 translate-args$86 translate-term$85 true-term$84 truep$83 unify-subst$82 untranslate-term$81) ((lambda () ((lambda (r$265) ((lambda (r$577) ((lambda (r$266) ((lambda (r$576) ((lambda (r$267) ((lambda () ((lambda (setup$160 add-lemma-lst$159 add-lemma$158 translate-term$157 translate-args$156 untranslate-term$155 put$154 get$153 symbol->symbol-record$152 *symbol-records-alist*$151 make-symbol-record$150 put-lemmas!$149 get-lemmas$148 get-name$147 symbol-record-equal?$146 test$145 translate-alist$144 apply-subst$143 apply-subst-lst$142 tautp$141 tautologyp$140 if-constructor$139 rewrite-count$138 scons$137 rewrite$136 rewrite-args$135 rewrite-with-lemmas$134 unify-subst$133 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 falsep$129 truep$128 false-term$127 true-term$126 trans-of-implies$125 trans-of-implies1$124 term-equal?$123 term-args-equal?$122 term-member?$121) ((lambda (r$573) ((lambda (r$269) ((lambda (r$567) ((lambda (r$270) ((lambda (r$549) ((lambda (r$271) ((lambda (r$542) ((lambda (r$272) ((lambda (r$535) ((lambda (r$273) ((lambda (r$528) ((lambda (r$274) ((lambda (r$525) ((lambda (r$275) ((lambda (r$522) ((lambda (r$276) ((lambda (r$515) ((lambda (r$277) ((lambda (r$514) ((lambda (r$278) ((lambda (r$511) ((lambda (r$279) ((lambda (r$509) ((lambda (r$280) ((lambda (r$507) ((lambda (r$281) ((lambda (r$505) ((lambda (r$282) ((lambda (r$503) ((lambda (r$283) ((lambda (r$489) ((lambda (r$284) ((lambda (r$480) ((lambda (r$285) ((lambda (r$473) ((lambda (r$286) ((lambda (r$466) ((lambda (r$287) ((lambda (r$461) ((lambda (r$288) ((lambda (r$441) ((lambda (r$289) ((lambda (r$440) ((lambda (r$290) ((lambda (r$291) ((lambda (r$433) ((lambda (r$292) ((lambda (r$422) ((lambda (r$293) ((lambda (r$415) ((lambda (r$294) ((lambda (r$405) ((lambda (r$295) ((lambda (r$404) ((lambda (r$296) ((lambda (r$400) ((lambda (r$297) ((lambda (r$385) ((lambda (r$298) ((lambda (r$376) ((lambda (r$299) ((lambda (r$373) ((lambda (r$300) ((lambda (r$370) ((lambda (r$301) ((lambda (r$369) ((lambda (r$302) ((lambda (r$368) ((lambda (r$303) ((lambda (r$361) ((lambda (r$304) ((lambda (r$351) ((lambda (r$305) ((lambda (r$342) ((lambda (r$306) ((lambda (r$333) ((lambda (r$307) ((lambda (r$327) ((lambda (r$308) ((lambda (r$314) ((lambda (r$309) ((lambda (r$310) ((lambda (r$268) (main %halt)) (set! test-boyer r$310))) (lambda (k$311 alist$163 term$162 n$161) ((lambda (r$312) (test$145 (lambda (r$313) ((lambda (answer$164) (if answer$164 (k$311 rewrite-count$138) (k$311 #f))) r$313)) alist$163 term$162 n$161)) (set! rewrite-count$138 0))))) (set! setup-boyer r$314))) (lambda (k$315) ((lambda (r$326) ((lambda (r$316) ((lambda (r$325) (symbol->symbol-record$152 (lambda (r$324) ((lambda (r$317) ((lambda (r$323) (translate-term$157 (lambda (r$322) ((lambda (r$318) ((lambda (r$321) (translate-term$157 (lambda (r$320) ((lambda (r$319) (setup$160 k$315)) (set! true-term$126 r$320))) r$321)) (quote (t)))) (set! false-term$127 r$322))) r$323)) (quote (f)))) (set! if-constructor$139 r$324))) r$325)) (quote if))) (set! *symbol-records-alist*$151 r$326))) (quote ()))))) (set! term-member?$121 r$327))) (lambda (k$328 x$166 lst$165) ((lambda (r$329) (if r$329 ((lambda () (k$328 #f))) ((lambda (r$332) (term-equal?$123 (lambda (r$330) (if r$330 ((lambda () (k$328 #t))) ((lambda () ((lambda (r$331) (term-member?$121 k$328 x$166 r$331)) (cdr lst$165)))))) x$166 r$332)) (car lst$165)))) (null? lst$165))))) (set! term-args-equal?$122 r$333))) (lambda (k$334 lst1$168 lst2$167) ((lambda (r$335) (if r$335 ((lambda () (k$334 (null? lst2$167)))) ((lambda (r$336) (if r$336 ((lambda () (k$334 #f))) ((lambda (r$340) ((lambda (r$341) (term-equal?$123 (lambda (r$337) (if r$337 ((lambda () ((lambda (r$338) ((lambda (r$339) (term-args-equal?$122 k$334 r$338 r$339)) (cdr lst2$167))) (cdr lst1$168)))) ((lambda () (k$334 #f))))) r$340 r$341)) (car lst2$167))) (car lst1$168)))) (null? lst2$167)))) (null? lst1$168))))) (set! term-equal?$123 r$342))) (lambda (k$343 x$170 y$169) ((lambda (r$344) (if r$344 ((lambda () ((lambda (r$345) (if r$345 ((lambda (r$349) ((lambda (r$350) (symbol-record-equal?$146 (lambda (r$346) (if r$346 ((lambda (r$347) ((lambda (r$348) (term-args-equal?$122 k$343 r$347 r$348)) (cdr y$169))) (cdr x$170)) (k$343 #f))) r$349 r$350)) (car y$169))) (car x$170)) (k$343 #f))) (pair? y$169)))) ((lambda () (k$343 (equal? x$170 y$169)))))) (pair? x$170))))) (set! trans-of-implies1$124 r$351))) (lambda (k$352 n$171) ((lambda (r$353) (if r$353 ((lambda () ((lambda (r$354) (list k$352 r$354 0 1)) (quote implies)))) ((lambda () ((lambda (r$355) ((lambda (r$359) ((lambda (r$360) (list (lambda (r$356) ((lambda (r$358) (trans-of-implies1$124 (lambda (r$357) (list k$352 r$355 r$356 r$357)) r$358)) (- n$171 1))) r$359 r$360 n$171)) (- n$171 1))) (quote implies))) (quote and)))))) (equal? n$171 1))))) (set! trans-of-implies$125 r$361))) (lambda (k$362 n$172) ((lambda (r$364) (trans-of-implies1$124 (lambda (r$365) ((lambda (r$367) (list (lambda (r$366) (list (lambda (r$363) (translate-term$157 k$362 r$363)) r$364 r$365 r$366)) r$367 0 n$172)) (quote implies))) n$172)) (quote implies))))) (set! true-term$126 r$368))) (quote *))) (set! false-term$127 r$369))) (quote *))) (set! truep$128 r$370))) (lambda (k$371 x$174 lst$173) (term-equal?$123 (lambda (r$372) ((lambda (tmp$175) (if tmp$175 (k$371 tmp$175) (term-member?$121 k$371 x$174 lst$173))) r$372)) x$174 true-term$126)))) (set! falsep$129 r$373))) (lambda (k$374 x$177 lst$176) (term-equal?$123 (lambda (r$375) ((lambda (tmp$178) (if tmp$178 (k$374 tmp$178) (term-member?$121 k$374 x$177 lst$176))) r$375)) x$177 false-term$127)))) (set! one-way-unify1-lst$130 r$376))) (lambda (k$377 lst1$180 lst2$179) ((lambda (r$378) (if r$378 ((lambda () (k$377 (null? lst2$179)))) ((lambda (r$379) (if r$379 ((lambda () (k$377 #f))) ((lambda (r$383) ((lambda (r$384) (one-way-unify1$131 (lambda (r$380) (if r$380 ((lambda () ((lambda (r$381) ((lambda (r$382) (one-way-unify1-lst$130 k$377 r$381 r$382)) (cdr lst2$179))) (cdr lst1$180)))) ((lambda () (k$377 #f))))) r$383 r$384)) (car lst2$179))) (car lst1$180)))) (null? lst2$179)))) (null? lst1$180))))) (set! one-way-unify1$131 r$385))) (lambda (k$386 term1$182 term2$181) ((lambda (r$387) (if r$387 ((lambda (r$388) (if r$388 ((lambda (r$392) ((lambda (r$393) ((lambda (r$389) (if r$389 ((lambda () ((lambda (r$390) ((lambda (r$391) (one-way-unify1-lst$130 k$386 r$390 r$391)) (cdr term2$181))) (cdr term1$182)))) ((lambda () (k$386 #f))))) (eq? r$392 r$393))) (car term2$181))) (car term1$182)) ((lambda () (k$386 #f))))) (pair? term1$182)) ((lambda () ((lambda (r$394) ((lambda (temp-temp$183) (if temp-temp$183 ((lambda () ((lambda (r$395) (term-equal?$123 k$386 term1$182 r$395)) (cdr temp-temp$183)))) ((lambda (r$396) (if r$396 ((lambda () (k$386 (equal? term1$182 term2$181)))) ((lambda () ((lambda (r$399) ((lambda (r$398) ((lambda (r$397) (k$386 #t)) (set! unify-subst$133 r$398))) (cons r$399 unify-subst$133))) (cons term2$181 term1$182)))))) (number? term2$181)))) r$394)) (assq term2$181 unify-subst$133)))))) (pair? term2$181))))) (set! one-way-unify$132 r$400))) (lambda (k$401 term1$185 term2$184) ((lambda (r$403) ((lambda (r$402) (one-way-unify1$131 k$401 term1$185 term2$184)) (set! unify-subst$133 r$403))) (quote ()))))) (set! unify-subst$133 r$404))) (quote *))) (set! rewrite-with-lemmas$134 r$405))) (lambda (k$406 term$187 lst$186) ((lambda (r$407) (if r$407 ((lambda () (k$406 term$187))) ((lambda (r$414) ((lambda (r$413) (one-way-unify$132 (lambda (r$408) (if r$408 ((lambda () ((lambda (r$411) ((lambda (r$410) (apply-subst$143 (lambda (r$409) (rewrite$136 k$406 r$409)) unify-subst$133 r$410)) (caddr r$411))) (car lst$186)))) ((lambda () ((lambda (r$412) (rewrite-with-lemmas$134 k$406 term$187 r$412)) (cdr lst$186)))))) term$187 r$413)) (cadr r$414))) (car lst$186)))) (null? lst$186))))) (set! rewrite-args$135 r$415))) (lambda (k$416 lst$188) ((lambda (r$417) (if r$417 ((lambda () (k$416 (quote ())))) ((lambda () ((lambda (r$421) (rewrite$136 (lambda (r$418) ((lambda (r$420) (rewrite-args$135 (lambda (r$419) (scons$137 k$416 r$418 r$419 lst$188)) r$420)) (cdr lst$188))) r$421)) (car lst$188)))))) (null? lst$188))))) (set! rewrite$136 r$422))) (lambda (k$423 term$189) ((lambda (r$432) ((lambda (r$424) ((lambda (r$425) (if r$425 ((lambda () ((lambda (r$429) ((lambda (r$431) (rewrite-args$135 (lambda (r$430) (scons$137 (lambda (r$426) ((lambda (r$428) (get-lemmas$148 (lambda (r$427) (rewrite-with-lemmas$134 k$423 r$426 r$427)) r$428)) (car term$189))) r$429 r$430 term$189)) r$431)) (cdr term$189))) (car term$189)))) ((lambda () (k$423 term$189))))) (pair? term$189))) (set! rewrite-count$138 r$432))) (+ rewrite-count$138 1))))) (set! scons$137 r$433))) (lambda (k$434 x$192 y$191 original$190) ((lambda (k$436) ((lambda (r$439) ((lambda (r$437) (if r$437 ((lambda (r$438) (k$436 (eq? y$191 r$438))) (cdr original$190)) (k$436 #f))) (eq? x$192 r$439))) (car original$190))) (lambda (r$435) (if r$435 (k$434 original$190) (k$434 (cons x$192 y$191)))))))) (set! rewrite-count$138 0))) (set! if-constructor$139 r$440))) (quote *))) (set! tautologyp$140 r$441))) (lambda (k$442 x$195 true-lst$194 false-lst$193) (truep$128 (lambda (r$443) (if r$443 ((lambda () (k$442 #t))) (falsep$129 (lambda (r$444) (if r$444 ((lambda () (k$442 #f))) ((lambda (r$445) (if r$445 ((lambda (r$460) ((lambda (r$446) (if r$446 ((lambda () ((lambda (r$459) (truep$128 (lambda (r$447) (if r$447 ((lambda () ((lambda (r$448) (tautologyp$140 k$442 r$448 true-lst$194 false-lst$193)) (caddr x$195)))) ((lambda (r$458) (falsep$129 (lambda (r$449) (if r$449 ((lambda () ((lambda (r$450) (tautologyp$140 k$442 r$450 true-lst$194 false-lst$193)) (cadddr x$195)))) ((lambda () ((lambda (r$455) ((lambda (r$457) ((lambda (r$456) (tautologyp$140 (lambda (r$451) (if r$451 ((lambda (r$452) ((lambda (r$454) ((lambda (r$453) (tautologyp$140 k$442 r$452 true-lst$194 r$453)) (cons r$454 false-lst$193))) (cadr x$195))) (cadddr x$195)) (k$442 #f))) r$455 r$456 false-lst$193)) (cons r$457 true-lst$194))) (cadr x$195))) (caddr x$195)))))) r$458 false-lst$193)) (cadr x$195)))) r$459 true-lst$194)) (cadr x$195)))) ((lambda () (k$442 #f))))) (eq? r$460 if-constructor$139))) (car x$195)) ((lambda () (k$442 #f))))) (pair? x$195)))) x$195 false-lst$193))) x$195 true-lst$194)))) (set! tautp$141 r$461))) (lambda (k$462 x$196) (rewrite$136 (lambda (r$463) ((lambda (r$464) ((lambda (r$465) (tautologyp$140 k$462 r$463 r$464 r$465)) (quote ()))) (quote ()))) x$196)))) (set! apply-subst-lst$142 r$466))) (lambda (k$467 alist$198 lst$197) ((lambda (r$468) (if r$468 ((lambda () (k$467 (quote ())))) ((lambda () ((lambda (r$472) (apply-subst$143 (lambda (r$469) ((lambda (r$471) (apply-subst-lst$142 (lambda (r$470) (k$467 (cons r$469 r$470))) alist$198 r$471)) (cdr lst$197))) alist$198 r$472)) (car lst$197)))))) (null? lst$197))))) (set! apply-subst$143 r$473))) (lambda (k$474 alist$200 term$199) ((lambda (r$475) (if r$475 ((lambda () ((lambda (r$476) ((lambda (r$478) (apply-subst-lst$142 (lambda (r$477) (k$474 (cons r$476 r$477))) alist$200 r$478)) (cdr term$199))) (car term$199)))) ((lambda () ((lambda (r$479) ((lambda (temp-temp$201) (if temp-temp$201 (k$474 (cdr temp-temp$201)) (k$474 term$199))) r$479)) (assq term$199 alist$200)))))) (pair? term$199))))) (set! translate-alist$144 r$480))) (lambda (k$481 alist$202) ((lambda (r$482) (if r$482 ((lambda () (k$481 (quote ())))) ((lambda () ((lambda (r$486) ((lambda (r$488) (translate-term$157 (lambda (r$487) ((lambda (r$483) ((lambda (r$485) (translate-alist$144 (lambda (r$484) (k$481 (cons r$483 r$484))) r$485)) (cdr alist$202))) (cons r$486 r$487))) r$488)) (cdar alist$202))) (caar alist$202)))))) (null? alist$202))))) (set! test$145 r$489))) (lambda (k$490 alist$205 term$204 n$203) (translate-alist$144 (lambda (r$492) ((lambda (term$207 n$206) ((lambda (lp$208) ((lambda (r$496) ((lambda (r$495) (lp$208 (lambda (r$494) (translate-term$157 (lambda (r$493) (apply-subst$143 (lambda (r$491) ((lambda (term$211) (tautp$141 k$490 term$211)) r$491)) r$492 r$493)) r$494)) term$207 n$206)) (set! lp$208 r$496))) (lambda (k$497 term$210 n$209) (zero? (lambda (r$498) (if r$498 (k$497 term$210) ((lambda (r$501) ((lambda (r$502) (list (lambda (r$499) ((lambda (r$500) (lp$208 k$497 r$499 r$500)) (- n$209 1))) r$501 term$210 r$502)) (quote (f)))) (quote or)))) n$209)))) #f)) term$204 n$203)) alist$205)))) (set! symbol-record-equal?$146 r$503))) (lambda (k$504 r1$213 r2$212) (k$504 (eq? r1$213 r2$212))))) (set! get-name$147 r$505))) (lambda (k$506 symbol-record$214) (k$506 (vector-ref symbol-record$214 0))))) (set! get-lemmas$148 r$507))) (lambda (k$508 symbol-record$215) (k$508 (vector-ref symbol-record$215 1))))) (set! put-lemmas!$149 r$509))) (lambda (k$510 symbol-record$217 lemmas$216) (k$510 (vector-set! symbol-record$217 1 lemmas$216))))) (set! make-symbol-record$150 r$511))) (lambda (k$512 sym$218) ((lambda (r$513) (vector k$512 sym$218 r$513)) (quote ()))))) (set! *symbol-records-alist*$151 r$514))) (quote ()))) (set! symbol->symbol-record$152 r$515))) (lambda (k$516 sym$219) ((lambda (r$517) ((lambda (x$220) (if x$220 (k$516 (cdr x$220)) (make-symbol-record$150 (lambda (r$518) ((lambda (r$221) ((lambda (r$521) ((lambda (r$520) ((lambda (r$519) (k$516 r$221)) (set! *symbol-records-alist*$151 r$520))) (cons r$521 *symbol-records-alist*$151))) (cons sym$219 r$221))) r$518)) sym$219))) r$517)) (assq sym$219 *symbol-records-alist*$151))))) (set! get$153 r$522))) (lambda (k$523 sym$223 property$222) (symbol->symbol-record$152 (lambda (r$524) (get-lemmas$148 k$523 r$524)) sym$223)))) (set! put$154 r$525))) (lambda (k$526 sym$226 property$225 value$224) (symbol->symbol-record$152 (lambda (r$527) (put-lemmas!$149 k$526 r$527 value$224)) sym$226)))) (set! untranslate-term$155 r$528))) (lambda (k$529 term$227) ((lambda (r$530) (if r$530 ((lambda () ((lambda (r$534) (get-name$147 (lambda (r$531) ((lambda (r$533) (map (lambda (r$532) (k$529 (cons r$531 r$532))) untranslate-term$155 r$533)) (cdr term$227))) r$534)) (car term$227)))) ((lambda () (k$529 term$227))))) (pair? term$227))))) (set! translate-args$156 r$535))) (lambda (k$536 lst$228) ((lambda (r$537) (if r$537 ((lambda () (k$536 (quote ())))) ((lambda () ((lambda (r$541) (translate-term$157 (lambda (r$538) ((lambda (r$540) (translate-args$156 (lambda (r$539) (k$536 (cons r$538 r$539))) r$540)) (cdr lst$228))) r$541)) (car lst$228)))))) (null? lst$228))))) (set! translate-term$157 r$542))) (lambda (k$543 term$229) ((lambda (r$544) (if r$544 ((lambda () ((lambda (r$548) (symbol->symbol-record$152 (lambda (r$545) ((lambda (r$547) (translate-args$156 (lambda (r$546) (k$543 (cons r$545 r$546))) r$547)) (cdr term$229))) r$548)) (car term$229)))) ((lambda () (k$543 term$229))))) (pair? term$229))))) (set! add-lemma$158 r$549))) (lambda (k$550 term$230) ((lambda (k$561) ((lambda (r$562) (if r$562 ((lambda (r$565) ((lambda (r$566) ((lambda (r$563) (if r$563 ((lambda (r$564) (k$561 (pair? r$564))) (cadr term$230)) (k$561 #f))) (eq? r$565 r$566))) (quote equal))) (car term$230)) (k$561 #f))) (pair? term$230))) (lambda (r$551) (if r$551 ((lambda () ((lambda (r$560) ((lambda (r$552) ((lambda (r$553) (translate-term$157 (lambda (r$555) ((lambda (r$559) ((lambda (r$557) ((lambda (r$558) (get$153 (lambda (r$556) ((lambda (r$554) (put$154 k$550 r$552 r$553 r$554)) (cons r$555 r$556))) r$557 r$558)) (quote lemmas))) (car r$559))) (cadr term$230))) term$230)) (quote lemmas))) (car r$560))) (cadr term$230)))) ((lambda () (error k$550 #f "ADD-LEMMA did not like term: " term$230))))))))) (set! add-lemma-lst$159 r$567))) (lambda (k$568 lst$231) ((lambda (r$569) (if r$569 ((lambda () (k$568 #t))) ((lambda () ((lambda (r$572) (add-lemma$158 (lambda (r$570) ((lambda (r$571) (add-lemma-lst$159 k$568 r$571)) (cdr lst$231))) r$572)) (car lst$231)))))) (null? lst$231))))) (set! setup$160 r$573))) (lambda (k$574) ((lambda (r$575) (add-lemma-lst$159 k$574 r$575)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$576))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$577))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after cps optimizations:" */ +/* +((define main (lambda (k$645) (read (lambda (count$258) (read (lambda (input$259) (read (lambda (output$260) ((lambda (s2$261) ((lambda (s1$262) ((lambda (name$263) ((lambda () ((lambda (r$651) ((lambda (r$652) ((lambda (r$653) (run-r7rs-benchmark k$645 r$651 count$258 r$652 r$653)) (lambda (k$654 rewrites$264) ((lambda (r$655) (if r$655 (k$654 (= rewrites$264 output$260)) (k$654 #f))) (number? rewrites$264))))) (lambda (k$656) (setup-boyer (lambda (r$657) (hide (lambda (r$658) (test-boyer k$656 alist term r$658)) count$258 input$259)))))) (string-append name$263 ":" s1$262 ":" s2$261))))) "sboyer")) (number->string input$259))) (number->string count$258)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$638) (k$638 #t))) (define test-boyer (lambda (k$635) (k$635 #t))) (define hide (lambda (k$621 r$254 x$253) ((lambda (r$622) ((lambda (r$623) (call-with-values k$621 r$622 r$623)) (lambda (k$624 v$256 i$255) ((lambda (r$625) (r$625 k$624 x$253)) (vector-ref v$256 i$255))))) (lambda (k$626) ((lambda (r$631) (vector (lambda (r$627) ((lambda (k$629) ((lambda (r$630) (if r$630 (k$629 0) (k$629 1))) (< r$254 100))) (lambda (r$628) (values k$626 r$627 r$628)))) values r$631)) (lambda (k$632 x$257) (k$632 x$257))))))) (define run-r7rs-benchmark (lambda (k$580 name$235 count$234 thunk$233 ok?$232) ((lambda (rounded$237) ((lambda (rounded$238) ((lambda (r$615) ((lambda (r$581) (display (lambda (r$582) (display (lambda (r$583) (newline (lambda (r$584) (flush-output-port (lambda (r$585) (jiffies-per-second (lambda (j/s$239) (current-second (lambda (t0$240) (current-jiffy (lambda (j0$241) ((lambda () ((lambda (k$614) (if #f (k$614 #f) (k$614 #f))) (lambda (r$589) ((lambda (i$243 result$242) ((lambda (loop$244) ((lambda (r$591) ((lambda (r$590) (loop$244 k$580 i$243 result$242)) (set! loop$244 r$591))) (lambda (k$592 i$246 result$245) ((lambda (r$593) (if r$593 ((lambda () ((lambda (r$594) (thunk$233 (lambda (r$595) (loop$244 k$592 r$594 r$595)))) (+ i$246 1)))) (ok?$232 (lambda (r$596) (if r$596 ((lambda () (current-jiffy (lambda (j1$247) (current-second (lambda (t1$248) ((lambda (jifs$249) ((lambda (r$610) (inexact (lambda (secs$250) ((lambda (r$609) (rounded$237 (lambda (secs2$251) ((lambda () (display (lambda (r$603) (write (lambda (r$604) (display (lambda (r$605) (write (lambda (r$606) (display (lambda (r$607) (display (lambda (r$608) (newline (lambda (r$597) (k$592 result$245)))) name$235)) ") for ")) secs2$251)) " seconds (")) secs$250)) "Elapsed time: ")))) r$609)) (- t1$248 t0$240))) r$610)) (/ jifs$249 j/s$239))) (- j1$247 j0$241)))))))) ((lambda () (display (lambda (r$611) (write (lambda (r$612) (newline (lambda (r$613) (k$592 result$245)))) result$245)) "ERROR: returned incorrect result: "))))) result$245))) (< i$246 count$234))))) #f)) 0 r$589)))))))))))))))) name$235)) "Running ")) (set! rounded$237 r$615))) (lambda (k$616 x$252) ((lambda (r$618) (round (lambda (r$617) (k$616 (/ r$617 1000))) r$618)) (* 1000 x$252))))) #f)) #f))) ((lambda (*symbol-records-alist*$120 add-lemma$119 add-lemma-lst$118 apply-subst$117 apply-subst-lst$116 false-term$115 falsep$114 get$113 get-lemmas$112 get-name$111 if-constructor$110 make-symbol-record$109 one-way-unify$108 one-way-unify1$107 one-way-unify1-lst$106 put$105 put-lemmas!$104 rewrite$103 rewrite-args$102 rewrite-count$101 rewrite-with-lemmas$100 scons$99 setup$98 symbol->symbol-record$97 symbol-record-equal?$96 tautologyp$95 tautp$94 term-args-equal?$93 term-equal?$92 term-member?$91 test$90 trans-of-implies$89 trans-of-implies1$88 translate-alist$87 translate-args$86 translate-term$85 true-term$84 truep$83 unify-subst$82 untranslate-term$81) ((lambda () ((lambda (r$265) ((lambda (r$577) ((lambda (r$266) ((lambda (r$576) ((lambda (r$267) ((lambda () ((lambda (setup$160 add-lemma-lst$159 add-lemma$158 translate-term$157 translate-args$156 untranslate-term$155 put$154 get$153 symbol->symbol-record$152 *symbol-records-alist*$151 make-symbol-record$150 put-lemmas!$149 get-lemmas$148 get-name$147 symbol-record-equal?$146 test$145 translate-alist$144 apply-subst$143 apply-subst-lst$142 tautp$141 tautologyp$140 if-constructor$139 rewrite-count$138 scons$137 rewrite$136 rewrite-args$135 rewrite-with-lemmas$134 unify-subst$133 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 falsep$129 truep$128 false-term$127 true-term$126 trans-of-implies$125 trans-of-implies1$124 term-equal?$123 term-args-equal?$122 term-member?$121) ((lambda (r$573) ((lambda (r$269) ((lambda (r$567) ((lambda (r$270) ((lambda (r$549) ((lambda (r$271) ((lambda (r$542) ((lambda (r$272) ((lambda (r$535) ((lambda (r$273) ((lambda (r$528) ((lambda (r$274) ((lambda (r$525) ((lambda (r$275) ((lambda (r$522) ((lambda (r$276) ((lambda (r$515) ((lambda (r$277) ((lambda (r$514) ((lambda (r$278) ((lambda (r$511) ((lambda (r$279) ((lambda (r$509) ((lambda (r$280) ((lambda (r$507) ((lambda (r$281) ((lambda (r$505) ((lambda (r$282) ((lambda (r$503) ((lambda (r$283) ((lambda (r$489) ((lambda (r$284) ((lambda (r$480) ((lambda (r$285) ((lambda (r$473) ((lambda (r$286) ((lambda (r$466) ((lambda (r$287) ((lambda (r$461) ((lambda (r$288) ((lambda (r$441) ((lambda (r$289) ((lambda (r$440) ((lambda (r$290) ((lambda (r$291) ((lambda (r$433) ((lambda (r$292) ((lambda (r$422) ((lambda (r$293) ((lambda (r$415) ((lambda (r$294) ((lambda (r$405) ((lambda (r$295) ((lambda (r$404) ((lambda (r$296) ((lambda (r$400) ((lambda (r$297) ((lambda (r$385) ((lambda (r$298) ((lambda (r$376) ((lambda (r$299) ((lambda (r$373) ((lambda (r$300) ((lambda (r$370) ((lambda (r$301) ((lambda (r$369) ((lambda (r$302) ((lambda (r$368) ((lambda (r$303) ((lambda (r$361) ((lambda (r$304) ((lambda (r$351) ((lambda (r$305) ((lambda (r$342) ((lambda (r$306) ((lambda (r$333) ((lambda (r$307) ((lambda (r$327) ((lambda (r$308) ((lambda (r$314) ((lambda (r$309) ((lambda (r$310) ((lambda (r$268) (main %halt)) (set! test-boyer r$310))) (lambda (k$311 alist$163 term$162 n$161) ((lambda (r$312) (test$145 (lambda (answer$164) (if answer$164 (k$311 rewrite-count$138) (k$311 #f))) alist$163 term$162 n$161)) (set! rewrite-count$138 0))))) (set! setup-boyer r$314))) (lambda (k$315) ((lambda (r$326) ((lambda (r$316) ((lambda (r$325) (symbol->symbol-record$152 (lambda (r$324) ((lambda (r$317) ((lambda (r$323) (translate-term$157 (lambda (r$322) ((lambda (r$318) ((lambda (r$321) (translate-term$157 (lambda (r$320) ((lambda (r$319) (setup$160 k$315)) (set! true-term$126 r$320))) r$321)) (quote (t)))) (set! false-term$127 r$322))) r$323)) (quote (f)))) (set! if-constructor$139 r$324))) r$325)) (quote if))) (set! *symbol-records-alist*$151 r$326))) (quote ()))))) (set! term-member?$121 r$327))) (lambda (k$328 x$166 lst$165) ((lambda (r$329) (if r$329 ((lambda () (k$328 #f))) ((lambda (r$332) (term-equal?$123 (lambda (r$330) (if r$330 ((lambda () (k$328 #t))) ((lambda () ((lambda (r$331) (term-member?$121 k$328 x$166 r$331)) (cdr lst$165)))))) x$166 r$332)) (car lst$165)))) (null? lst$165))))) (set! term-args-equal?$122 r$333))) (lambda (k$334 lst1$168 lst2$167) ((lambda (r$335) (if r$335 ((lambda () (k$334 (null? lst2$167)))) ((lambda (r$336) (if r$336 ((lambda () (k$334 #f))) ((lambda (r$340) ((lambda (r$341) (term-equal?$123 (lambda (r$337) (if r$337 ((lambda () ((lambda (r$338) ((lambda (r$339) (term-args-equal?$122 k$334 r$338 r$339)) (cdr lst2$167))) (cdr lst1$168)))) ((lambda () (k$334 #f))))) r$340 r$341)) (car lst2$167))) (car lst1$168)))) (null? lst2$167)))) (null? lst1$168))))) (set! term-equal?$123 r$342))) (lambda (k$343 x$170 y$169) ((lambda (r$344) (if r$344 ((lambda () ((lambda (r$345) (if r$345 ((lambda (r$349) ((lambda (r$350) (symbol-record-equal?$146 (lambda (r$346) (if r$346 ((lambda (r$347) ((lambda (r$348) (term-args-equal?$122 k$343 r$347 r$348)) (cdr y$169))) (cdr x$170)) (k$343 #f))) r$349 r$350)) (car y$169))) (car x$170)) (k$343 #f))) (pair? y$169)))) ((lambda () (k$343 (equal? x$170 y$169)))))) (pair? x$170))))) (set! trans-of-implies1$124 r$351))) (lambda (k$352 n$171) ((lambda (r$353) (if r$353 ((lambda () ((lambda (r$354) (list k$352 r$354 0 1)) (quote implies)))) ((lambda () ((lambda (r$355) ((lambda (r$359) ((lambda (r$360) (list (lambda (r$356) ((lambda (r$358) (trans-of-implies1$124 (lambda (r$357) (list k$352 r$355 r$356 r$357)) r$358)) (- n$171 1))) r$359 r$360 n$171)) (- n$171 1))) (quote implies))) (quote and)))))) (equal? n$171 1))))) (set! trans-of-implies$125 r$361))) (lambda (k$362 n$172) ((lambda (r$364) (trans-of-implies1$124 (lambda (r$365) ((lambda (r$367) (list (lambda (r$366) (list (lambda (r$363) (translate-term$157 k$362 r$363)) r$364 r$365 r$366)) r$367 0 n$172)) (quote implies))) n$172)) (quote implies))))) (set! true-term$126 r$368))) (quote *))) (set! false-term$127 r$369))) (quote *))) (set! truep$128 r$370))) (lambda (k$371 x$174 lst$173) (term-equal?$123 (lambda (tmp$175) (if tmp$175 (k$371 tmp$175) (term-member?$121 k$371 x$174 lst$173))) x$174 true-term$126)))) (set! falsep$129 r$373))) (lambda (k$374 x$177 lst$176) (term-equal?$123 (lambda (tmp$178) (if tmp$178 (k$374 tmp$178) (term-member?$121 k$374 x$177 lst$176))) x$177 false-term$127)))) (set! one-way-unify1-lst$130 r$376))) (lambda (k$377 lst1$180 lst2$179) ((lambda (r$378) (if r$378 ((lambda () (k$377 (null? lst2$179)))) ((lambda (r$379) (if r$379 ((lambda () (k$377 #f))) ((lambda (r$383) ((lambda (r$384) (one-way-unify1$131 (lambda (r$380) (if r$380 ((lambda () ((lambda (r$381) ((lambda (r$382) (one-way-unify1-lst$130 k$377 r$381 r$382)) (cdr lst2$179))) (cdr lst1$180)))) ((lambda () (k$377 #f))))) r$383 r$384)) (car lst2$179))) (car lst1$180)))) (null? lst2$179)))) (null? lst1$180))))) (set! one-way-unify1$131 r$385))) (lambda (k$386 term1$182 term2$181) ((lambda (r$387) (if r$387 ((lambda (r$388) (if r$388 ((lambda (r$392) ((lambda (r$393) ((lambda (r$389) (if r$389 ((lambda () ((lambda (r$390) ((lambda (r$391) (one-way-unify1-lst$130 k$386 r$390 r$391)) (cdr term2$181))) (cdr term1$182)))) ((lambda () (k$386 #f))))) (eq? r$392 r$393))) (car term2$181))) (car term1$182)) ((lambda () (k$386 #f))))) (pair? term1$182)) ((lambda () ((lambda (temp-temp$183) (if temp-temp$183 ((lambda () ((lambda (r$395) (term-equal?$123 k$386 term1$182 r$395)) (cdr temp-temp$183)))) ((lambda (r$396) (if r$396 ((lambda () (k$386 (equal? term1$182 term2$181)))) ((lambda () ((lambda (r$399) ((lambda (r$398) ((lambda (r$397) (k$386 #t)) (set! unify-subst$133 r$398))) (cons r$399 unify-subst$133))) (cons term2$181 term1$182)))))) (number? term2$181)))) (assq term2$181 unify-subst$133)))))) (pair? term2$181))))) (set! one-way-unify$132 r$400))) (lambda (k$401 term1$185 term2$184) ((lambda (r$403) ((lambda (r$402) (one-way-unify1$131 k$401 term1$185 term2$184)) (set! unify-subst$133 r$403))) (quote ()))))) (set! unify-subst$133 r$404))) (quote *))) (set! rewrite-with-lemmas$134 r$405))) (lambda (k$406 term$187 lst$186) ((lambda (r$407) (if r$407 ((lambda () (k$406 term$187))) ((lambda (r$414) ((lambda (r$413) (one-way-unify$132 (lambda (r$408) (if r$408 ((lambda () ((lambda (r$411) ((lambda (r$410) (apply-subst$143 (lambda (r$409) (rewrite$136 k$406 r$409)) unify-subst$133 r$410)) (caddr r$411))) (car lst$186)))) ((lambda () ((lambda (r$412) (rewrite-with-lemmas$134 k$406 term$187 r$412)) (cdr lst$186)))))) term$187 r$413)) (cadr r$414))) (car lst$186)))) (null? lst$186))))) (set! rewrite-args$135 r$415))) (lambda (k$416 lst$188) ((lambda (r$417) (if r$417 ((lambda () (k$416 (quote ())))) ((lambda () ((lambda (r$421) (rewrite$136 (lambda (r$418) ((lambda (r$420) (rewrite-args$135 (lambda (r$419) (scons$137 k$416 r$418 r$419 lst$188)) r$420)) (cdr lst$188))) r$421)) (car lst$188)))))) (null? lst$188))))) (set! rewrite$136 r$422))) (lambda (k$423 term$189) ((lambda (r$432) ((lambda (r$424) ((lambda (r$425) (if r$425 ((lambda () ((lambda (r$429) ((lambda (r$431) (rewrite-args$135 (lambda (r$430) (scons$137 (lambda (r$426) ((lambda (r$428) (get-lemmas$148 (lambda (r$427) (rewrite-with-lemmas$134 k$423 r$426 r$427)) r$428)) (car term$189))) r$429 r$430 term$189)) r$431)) (cdr term$189))) (car term$189)))) ((lambda () (k$423 term$189))))) (pair? term$189))) (set! rewrite-count$138 r$432))) (+ rewrite-count$138 1))))) (set! scons$137 r$433))) (lambda (k$434 x$192 y$191 original$190) ((lambda (k$436) ((lambda (r$439) ((lambda (r$437) (if r$437 ((lambda (r$438) (k$436 (eq? y$191 r$438))) (cdr original$190)) (k$436 #f))) (eq? x$192 r$439))) (car original$190))) (lambda (r$435) (if r$435 (k$434 original$190) (k$434 (cons x$192 y$191)))))))) (set! rewrite-count$138 0))) (set! if-constructor$139 r$440))) (quote *))) (set! tautologyp$140 r$441))) (lambda (k$442 x$195 true-lst$194 false-lst$193) (truep$128 (lambda (r$443) (if r$443 ((lambda () (k$442 #t))) (falsep$129 (lambda (r$444) (if r$444 ((lambda () (k$442 #f))) ((lambda (r$445) (if r$445 ((lambda (r$460) ((lambda (r$446) (if r$446 ((lambda () ((lambda (r$459) (truep$128 (lambda (r$447) (if r$447 ((lambda () ((lambda (r$448) (tautologyp$140 k$442 r$448 true-lst$194 false-lst$193)) (caddr x$195)))) ((lambda (r$458) (falsep$129 (lambda (r$449) (if r$449 ((lambda () ((lambda (r$450) (tautologyp$140 k$442 r$450 true-lst$194 false-lst$193)) (cadddr x$195)))) ((lambda () ((lambda (r$455) ((lambda (r$457) ((lambda (r$456) (tautologyp$140 (lambda (r$451) (if r$451 ((lambda (r$452) ((lambda (r$454) ((lambda (r$453) (tautologyp$140 k$442 r$452 true-lst$194 r$453)) (cons r$454 false-lst$193))) (cadr x$195))) (cadddr x$195)) (k$442 #f))) r$455 r$456 false-lst$193)) (cons r$457 true-lst$194))) (cadr x$195))) (caddr x$195)))))) r$458 false-lst$193)) (cadr x$195)))) r$459 true-lst$194)) (cadr x$195)))) ((lambda () (k$442 #f))))) (eq? r$460 if-constructor$139))) (car x$195)) ((lambda () (k$442 #f))))) (pair? x$195)))) x$195 false-lst$193))) x$195 true-lst$194)))) (set! tautp$141 r$461))) (lambda (k$462 x$196) (rewrite$136 (lambda (r$463) ((lambda (r$464) ((lambda (r$465) (tautologyp$140 k$462 r$463 r$464 r$465)) (quote ()))) (quote ()))) x$196)))) (set! apply-subst-lst$142 r$466))) (lambda (k$467 alist$198 lst$197) ((lambda (r$468) (if r$468 ((lambda () (k$467 (quote ())))) ((lambda () ((lambda (r$472) (apply-subst$143 (lambda (r$469) ((lambda (r$471) (apply-subst-lst$142 (lambda (r$470) (k$467 (cons r$469 r$470))) alist$198 r$471)) (cdr lst$197))) alist$198 r$472)) (car lst$197)))))) (null? lst$197))))) (set! apply-subst$143 r$473))) (lambda (k$474 alist$200 term$199) ((lambda (r$475) (if r$475 ((lambda () ((lambda (r$476) ((lambda (r$478) (apply-subst-lst$142 (lambda (r$477) (k$474 (cons r$476 r$477))) alist$200 r$478)) (cdr term$199))) (car term$199)))) ((lambda () ((lambda (temp-temp$201) (if temp-temp$201 (k$474 (cdr temp-temp$201)) (k$474 term$199))) (assq term$199 alist$200)))))) (pair? term$199))))) (set! translate-alist$144 r$480))) (lambda (k$481 alist$202) ((lambda (r$482) (if r$482 ((lambda () (k$481 (quote ())))) ((lambda () ((lambda (r$486) ((lambda (r$488) (translate-term$157 (lambda (r$487) ((lambda (r$483) ((lambda (r$485) (translate-alist$144 (lambda (r$484) (k$481 (cons r$483 r$484))) r$485)) (cdr alist$202))) (cons r$486 r$487))) r$488)) (cdar alist$202))) (caar alist$202)))))) (null? alist$202))))) (set! test$145 r$489))) (lambda (k$490 alist$205 term$204 n$203) (translate-alist$144 (lambda (r$492) ((lambda (term$207 n$206) ((lambda (lp$208) ((lambda (r$496) ((lambda (r$495) (lp$208 (lambda (r$494) (translate-term$157 (lambda (r$493) (apply-subst$143 (lambda (term$211) (tautp$141 k$490 term$211)) r$492 r$493)) r$494)) term$207 n$206)) (set! lp$208 r$496))) (lambda (k$497 term$210 n$209) (zero? (lambda (r$498) (if r$498 (k$497 term$210) ((lambda (r$501) ((lambda (r$502) (list (lambda (r$499) ((lambda (r$500) (lp$208 k$497 r$499 r$500)) (- n$209 1))) r$501 term$210 r$502)) (quote (f)))) (quote or)))) n$209)))) #f)) term$204 n$203)) alist$205)))) (set! symbol-record-equal?$146 r$503))) (lambda (k$504 r1$213 r2$212) (k$504 (eq? r1$213 r2$212))))) (set! get-name$147 r$505))) (lambda (k$506 symbol-record$214) (k$506 (vector-ref symbol-record$214 0))))) (set! get-lemmas$148 r$507))) (lambda (k$508 symbol-record$215) (k$508 (vector-ref symbol-record$215 1))))) (set! put-lemmas!$149 r$509))) (lambda (k$510 symbol-record$217 lemmas$216) (k$510 (vector-set! symbol-record$217 1 lemmas$216))))) (set! make-symbol-record$150 r$511))) (lambda (k$512 sym$218) ((lambda (r$513) (vector k$512 sym$218 r$513)) (quote ()))))) (set! *symbol-records-alist*$151 r$514))) (quote ()))) (set! symbol->symbol-record$152 r$515))) (lambda (k$516 sym$219) ((lambda (x$220) (if x$220 (k$516 (cdr x$220)) (make-symbol-record$150 (lambda (r$221) ((lambda (r$521) ((lambda (r$520) ((lambda (r$519) (k$516 r$221)) (set! *symbol-records-alist*$151 r$520))) (cons r$521 *symbol-records-alist*$151))) (cons sym$219 r$221))) sym$219))) (assq sym$219 *symbol-records-alist*$151))))) (set! get$153 r$522))) (lambda (k$523 sym$223 property$222) (symbol->symbol-record$152 (lambda (r$524) (get-lemmas$148 k$523 r$524)) sym$223)))) (set! put$154 r$525))) (lambda (k$526 sym$226 property$225 value$224) (symbol->symbol-record$152 (lambda (r$527) (put-lemmas!$149 k$526 r$527 value$224)) sym$226)))) (set! untranslate-term$155 r$528))) (lambda (k$529 term$227) ((lambda (r$530) (if r$530 ((lambda () ((lambda (r$534) (get-name$147 (lambda (r$531) ((lambda (r$533) (map (lambda (r$532) (k$529 (cons r$531 r$532))) untranslate-term$155 r$533)) (cdr term$227))) r$534)) (car term$227)))) ((lambda () (k$529 term$227))))) (pair? term$227))))) (set! translate-args$156 r$535))) (lambda (k$536 lst$228) ((lambda (r$537) (if r$537 ((lambda () (k$536 (quote ())))) ((lambda () ((lambda (r$541) (translate-term$157 (lambda (r$538) ((lambda (r$540) (translate-args$156 (lambda (r$539) (k$536 (cons r$538 r$539))) r$540)) (cdr lst$228))) r$541)) (car lst$228)))))) (null? lst$228))))) (set! translate-term$157 r$542))) (lambda (k$543 term$229) ((lambda (r$544) (if r$544 ((lambda () ((lambda (r$548) (symbol->symbol-record$152 (lambda (r$545) ((lambda (r$547) (translate-args$156 (lambda (r$546) (k$543 (cons r$545 r$546))) r$547)) (cdr term$229))) r$548)) (car term$229)))) ((lambda () (k$543 term$229))))) (pair? term$229))))) (set! add-lemma$158 r$549))) (lambda (k$550 term$230) ((lambda (k$561) ((lambda (r$562) (if r$562 ((lambda (r$565) ((lambda (r$566) ((lambda (r$563) (if r$563 ((lambda (r$564) (k$561 (pair? r$564))) (cadr term$230)) (k$561 #f))) (eq? r$565 r$566))) (quote equal))) (car term$230)) (k$561 #f))) (pair? term$230))) (lambda (r$551) (if r$551 ((lambda () ((lambda (r$560) ((lambda (r$552) ((lambda (r$553) (translate-term$157 (lambda (r$555) ((lambda (r$559) ((lambda (r$557) ((lambda (r$558) (get$153 (lambda (r$556) ((lambda (r$554) (put$154 k$550 r$552 r$553 r$554)) (cons r$555 r$556))) r$557 r$558)) (quote lemmas))) (car r$559))) (cadr term$230))) term$230)) (quote lemmas))) (car r$560))) (cadr term$230)))) ((lambda () (error k$550 #f "ADD-LEMMA did not like term: " term$230))))))))) (set! add-lemma-lst$159 r$567))) (lambda (k$568 lst$231) ((lambda (r$569) (if r$569 ((lambda () (k$568 #t))) ((lambda () ((lambda (r$572) (add-lemma$158 (lambda (r$570) ((lambda (r$571) (add-lemma-lst$159 k$568 r$571)) (cdr lst$231))) r$572)) (car lst$231)))))) (null? lst$231))))) (set! setup$160 r$573))) (lambda (k$574) ((lambda (r$575) (add-lemma-lst$159 k$574 r$575)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$576))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$577))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after wrap-mutables:" */ +/* +((define main (lambda (k$645) (read (lambda (count$258) (read (lambda (input$259) (read (lambda (output$260) ((lambda (s2$261) ((lambda (s1$262) ((lambda (name$263) ((lambda () ((lambda (r$651) ((lambda (r$652) ((lambda (r$653) (run-r7rs-benchmark k$645 r$651 count$258 r$652 r$653)) (lambda (k$654 rewrites$264) ((lambda (r$655) (if r$655 (k$654 (= rewrites$264 output$260)) (k$654 #f))) (number? rewrites$264))))) (lambda (k$656) (setup-boyer (lambda (r$657) (hide (lambda (r$658) (test-boyer k$656 alist term r$658)) count$258 input$259)))))) (string-append name$263 ":" s1$262 ":" s2$261))))) "sboyer")) (number->string input$259))) (number->string count$258)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$638) (k$638 #t))) (define test-boyer (lambda (k$635) (k$635 #t))) (define hide (lambda (k$621 r$254 x$253) ((lambda (r$622) ((lambda (r$623) (call-with-values k$621 r$622 r$623)) (lambda (k$624 v$256 i$255) ((lambda (r$625) (r$625 k$624 x$253)) (vector-ref v$256 i$255))))) (lambda (k$626) ((lambda (r$631) (vector (lambda (r$627) ((lambda (k$629) ((lambda (r$630) (if r$630 (k$629 0) (k$629 1))) (< r$254 100))) (lambda (r$628) (values k$626 r$627 r$628)))) values r$631)) (lambda (k$632 x$257) (k$632 x$257))))))) (define run-r7rs-benchmark (lambda (k$580 name$235 count$234 thunk$233 ok?$232) ((lambda (rounded$237) ((lambda (rounded$237) ((lambda (rounded$238) ((lambda (r$615) ((lambda (r$581) (display (lambda (r$582) (display (lambda (r$583) (newline (lambda (r$584) (flush-output-port (lambda (r$585) (jiffies-per-second (lambda (j/s$239) (current-second (lambda (t0$240) (current-jiffy (lambda (j0$241) ((lambda () ((lambda (k$614) (if #f (k$614 #f) (k$614 #f))) (lambda (r$589) ((lambda (i$243 result$242) ((lambda (loop$244) ((lambda (loop$244) ((lambda (r$591) ((lambda (r$590) ((cell-get loop$244) k$580 i$243 result$242)) (set-cell! loop$244 r$591))) (lambda (k$592 i$246 result$245) ((lambda (r$593) (if r$593 ((lambda () ((lambda (r$594) (thunk$233 (lambda (r$595) ((cell-get loop$244) k$592 r$594 r$595)))) (+ i$246 1)))) (ok?$232 (lambda (r$596) (if r$596 ((lambda () (current-jiffy (lambda (j1$247) (current-second (lambda (t1$248) ((lambda (jifs$249) ((lambda (r$610) (inexact (lambda (secs$250) ((lambda (r$609) ((cell-get rounded$237) (lambda (secs2$251) ((lambda () (display (lambda (r$603) (write (lambda (r$604) (display (lambda (r$605) (write (lambda (r$606) (display (lambda (r$607) (display (lambda (r$608) (newline (lambda (r$597) (k$592 result$245)))) name$235)) ") for ")) secs2$251)) " seconds (")) secs$250)) "Elapsed time: ")))) r$609)) (- t1$248 t0$240))) r$610)) (/ jifs$249 j/s$239))) (- j1$247 j0$241)))))))) ((lambda () (display (lambda (r$611) (write (lambda (r$612) (newline (lambda (r$613) (k$592 result$245)))) result$245)) "ERROR: returned incorrect result: "))))) result$245))) (< i$246 count$234))))) (cell loop$244))) #f)) 0 r$589)))))))))))))))) name$235)) "Running ")) (set-cell! rounded$237 r$615))) (lambda (k$616 x$252) ((lambda (r$618) (round (lambda (r$617) (k$616 (/ r$617 1000))) r$618)) (* 1000 x$252))))) #f)) (cell rounded$237))) #f))) ((lambda (*symbol-records-alist*$120 add-lemma$119 add-lemma-lst$118 apply-subst$117 apply-subst-lst$116 false-term$115 falsep$114 get$113 get-lemmas$112 get-name$111 if-constructor$110 make-symbol-record$109 one-way-unify$108 one-way-unify1$107 one-way-unify1-lst$106 put$105 put-lemmas!$104 rewrite$103 rewrite-args$102 rewrite-count$101 rewrite-with-lemmas$100 scons$99 setup$98 symbol->symbol-record$97 symbol-record-equal?$96 tautologyp$95 tautp$94 term-args-equal?$93 term-equal?$92 term-member?$91 test$90 trans-of-implies$89 trans-of-implies1$88 translate-alist$87 translate-args$86 translate-term$85 true-term$84 truep$83 unify-subst$82 untranslate-term$81) ((lambda () ((lambda (r$265) ((lambda (r$577) ((lambda (r$266) ((lambda (r$576) ((lambda (r$267) ((lambda () ((lambda (setup$160 add-lemma-lst$159 add-lemma$158 translate-term$157 translate-args$156 untranslate-term$155 put$154 get$153 symbol->symbol-record$152 *symbol-records-alist*$151 make-symbol-record$150 put-lemmas!$149 get-lemmas$148 get-name$147 symbol-record-equal?$146 test$145 translate-alist$144 apply-subst$143 apply-subst-lst$142 tautp$141 tautologyp$140 if-constructor$139 rewrite-count$138 scons$137 rewrite$136 rewrite-args$135 rewrite-with-lemmas$134 unify-subst$133 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 falsep$129 truep$128 false-term$127 true-term$126 trans-of-implies$125 trans-of-implies1$124 term-equal?$123 term-args-equal?$122 term-member?$121) ((lambda (setup$160) ((lambda (add-lemma-lst$159) ((lambda (add-lemma$158) ((lambda (translate-term$157) ((lambda (translate-args$156) ((lambda (untranslate-term$155) ((lambda (put$154) ((lambda (get$153) ((lambda (symbol->symbol-record$152) ((lambda (*symbol-records-alist*$151) ((lambda (make-symbol-record$150) ((lambda (put-lemmas!$149) ((lambda (get-lemmas$148) ((lambda (get-name$147) ((lambda (symbol-record-equal?$146) ((lambda (test$145) ((lambda (translate-alist$144) ((lambda (apply-subst$143) ((lambda (apply-subst-lst$142) ((lambda (tautp$141) ((lambda (tautologyp$140) ((lambda (if-constructor$139) ((lambda (rewrite-count$138) ((lambda (scons$137) ((lambda (rewrite$136) ((lambda (rewrite-args$135) ((lambda (rewrite-with-lemmas$134) ((lambda (unify-subst$133) ((lambda (one-way-unify$132) ((lambda (one-way-unify1$131) ((lambda (one-way-unify1-lst$130) ((lambda (falsep$129) ((lambda (truep$128) ((lambda (false-term$127) ((lambda (true-term$126) ((lambda (trans-of-implies$125) ((lambda (trans-of-implies1$124) ((lambda (term-equal?$123) ((lambda (term-args-equal?$122) ((lambda (term-member?$121) ((lambda (r$573) ((lambda (r$269) ((lambda (r$567) ((lambda (r$270) ((lambda (r$549) ((lambda (r$271) ((lambda (r$542) ((lambda (r$272) ((lambda (r$535) ((lambda (r$273) ((lambda (r$528) ((lambda (r$274) ((lambda (r$525) ((lambda (r$275) ((lambda (r$522) ((lambda (r$276) ((lambda (r$515) ((lambda (r$277) ((lambda (r$514) ((lambda (r$278) ((lambda (r$511) ((lambda (r$279) ((lambda (r$509) ((lambda (r$280) ((lambda (r$507) ((lambda (r$281) ((lambda (r$505) ((lambda (r$282) ((lambda (r$503) ((lambda (r$283) ((lambda (r$489) ((lambda (r$284) ((lambda (r$480) ((lambda (r$285) ((lambda (r$473) ((lambda (r$286) ((lambda (r$466) ((lambda (r$287) ((lambda (r$461) ((lambda (r$288) ((lambda (r$441) ((lambda (r$289) ((lambda (r$440) ((lambda (r$290) ((lambda (r$291) ((lambda (r$433) ((lambda (r$292) ((lambda (r$422) ((lambda (r$293) ((lambda (r$415) ((lambda (r$294) ((lambda (r$405) ((lambda (r$295) ((lambda (r$404) ((lambda (r$296) ((lambda (r$400) ((lambda (r$297) ((lambda (r$385) ((lambda (r$298) ((lambda (r$376) ((lambda (r$299) ((lambda (r$373) ((lambda (r$300) ((lambda (r$370) ((lambda (r$301) ((lambda (r$369) ((lambda (r$302) ((lambda (r$368) ((lambda (r$303) ((lambda (r$361) ((lambda (r$304) ((lambda (r$351) ((lambda (r$305) ((lambda (r$342) ((lambda (r$306) ((lambda (r$333) ((lambda (r$307) ((lambda (r$327) ((lambda (r$308) ((lambda (r$314) ((lambda (r$309) ((lambda (r$310) ((lambda (r$268) (main %halt)) (set-global! test-boyer r$310))) (lambda (k$311 alist$163 term$162 n$161) ((lambda (r$312) ((cell-get test$145) (lambda (answer$164) (if answer$164 (k$311 (cell-get rewrite-count$138)) (k$311 #f))) alist$163 term$162 n$161)) (set-cell! rewrite-count$138 0))))) (set-global! setup-boyer r$314))) (lambda (k$315) ((lambda (r$326) ((lambda (r$316) ((lambda (r$325) ((cell-get symbol->symbol-record$152) (lambda (r$324) ((lambda (r$317) ((lambda (r$323) ((cell-get translate-term$157) (lambda (r$322) ((lambda (r$318) ((lambda (r$321) ((cell-get translate-term$157) (lambda (r$320) ((lambda (r$319) ((cell-get setup$160) k$315)) (set-cell! true-term$126 r$320))) r$321)) (quote (t)))) (set-cell! false-term$127 r$322))) r$323)) (quote (f)))) (set-cell! if-constructor$139 r$324))) r$325)) (quote if))) (set-cell! *symbol-records-alist*$151 r$326))) (quote ()))))) (set-cell! term-member?$121 r$327))) (lambda (k$328 x$166 lst$165) ((lambda (r$329) (if r$329 ((lambda () (k$328 #f))) ((lambda (r$332) ((cell-get term-equal?$123) (lambda (r$330) (if r$330 ((lambda () (k$328 #t))) ((lambda () ((lambda (r$331) ((cell-get term-member?$121) k$328 x$166 r$331)) (cdr lst$165)))))) x$166 r$332)) (car lst$165)))) (null? lst$165))))) (set-cell! term-args-equal?$122 r$333))) (lambda (k$334 lst1$168 lst2$167) ((lambda (r$335) (if r$335 ((lambda () (k$334 (null? lst2$167)))) ((lambda (r$336) (if r$336 ((lambda () (k$334 #f))) ((lambda (r$340) ((lambda (r$341) ((cell-get term-equal?$123) (lambda (r$337) (if r$337 ((lambda () ((lambda (r$338) ((lambda (r$339) ((cell-get term-args-equal?$122) k$334 r$338 r$339)) (cdr lst2$167))) (cdr lst1$168)))) ((lambda () (k$334 #f))))) r$340 r$341)) (car lst2$167))) (car lst1$168)))) (null? lst2$167)))) (null? lst1$168))))) (set-cell! term-equal?$123 r$342))) (lambda (k$343 x$170 y$169) ((lambda (r$344) (if r$344 ((lambda () ((lambda (r$345) (if r$345 ((lambda (r$349) ((lambda (r$350) ((cell-get symbol-record-equal?$146) (lambda (r$346) (if r$346 ((lambda (r$347) ((lambda (r$348) ((cell-get term-args-equal?$122) k$343 r$347 r$348)) (cdr y$169))) (cdr x$170)) (k$343 #f))) r$349 r$350)) (car y$169))) (car x$170)) (k$343 #f))) (pair? y$169)))) ((lambda () (k$343 (equal? x$170 y$169)))))) (pair? x$170))))) (set-cell! trans-of-implies1$124 r$351))) (lambda (k$352 n$171) ((lambda (r$353) (if r$353 ((lambda () ((lambda (r$354) (list k$352 r$354 0 1)) (quote implies)))) ((lambda () ((lambda (r$355) ((lambda (r$359) ((lambda (r$360) (list (lambda (r$356) ((lambda (r$358) ((cell-get trans-of-implies1$124) (lambda (r$357) (list k$352 r$355 r$356 r$357)) r$358)) (- n$171 1))) r$359 r$360 n$171)) (- n$171 1))) (quote implies))) (quote and)))))) (equal? n$171 1))))) (set-cell! trans-of-implies$125 r$361))) (lambda (k$362 n$172) ((lambda (r$364) ((cell-get trans-of-implies1$124) (lambda (r$365) ((lambda (r$367) (list (lambda (r$366) (list (lambda (r$363) ((cell-get translate-term$157) k$362 r$363)) r$364 r$365 r$366)) r$367 0 n$172)) (quote implies))) n$172)) (quote implies))))) (set-cell! true-term$126 r$368))) (quote *))) (set-cell! false-term$127 r$369))) (quote *))) (set-cell! truep$128 r$370))) (lambda (k$371 x$174 lst$173) ((cell-get term-equal?$123) (lambda (tmp$175) (if tmp$175 (k$371 tmp$175) ((cell-get term-member?$121) k$371 x$174 lst$173))) x$174 (cell-get true-term$126))))) (set-cell! falsep$129 r$373))) (lambda (k$374 x$177 lst$176) ((cell-get term-equal?$123) (lambda (tmp$178) (if tmp$178 (k$374 tmp$178) ((cell-get term-member?$121) k$374 x$177 lst$176))) x$177 (cell-get false-term$127))))) (set-cell! one-way-unify1-lst$130 r$376))) (lambda (k$377 lst1$180 lst2$179) ((lambda (r$378) (if r$378 ((lambda () (k$377 (null? lst2$179)))) ((lambda (r$379) (if r$379 ((lambda () (k$377 #f))) ((lambda (r$383) ((lambda (r$384) ((cell-get one-way-unify1$131) (lambda (r$380) (if r$380 ((lambda () ((lambda (r$381) ((lambda (r$382) ((cell-get one-way-unify1-lst$130) k$377 r$381 r$382)) (cdr lst2$179))) (cdr lst1$180)))) ((lambda () (k$377 #f))))) r$383 r$384)) (car lst2$179))) (car lst1$180)))) (null? lst2$179)))) (null? lst1$180))))) (set-cell! one-way-unify1$131 r$385))) (lambda (k$386 term1$182 term2$181) ((lambda (r$387) (if r$387 ((lambda (r$388) (if r$388 ((lambda (r$392) ((lambda (r$393) ((lambda (r$389) (if r$389 ((lambda () ((lambda (r$390) ((lambda (r$391) ((cell-get one-way-unify1-lst$130) k$386 r$390 r$391)) (cdr term2$181))) (cdr term1$182)))) ((lambda () (k$386 #f))))) (eq? r$392 r$393))) (car term2$181))) (car term1$182)) ((lambda () (k$386 #f))))) (pair? term1$182)) ((lambda () ((lambda (temp-temp$183) (if temp-temp$183 ((lambda () ((lambda (r$395) ((cell-get term-equal?$123) k$386 term1$182 r$395)) (cdr temp-temp$183)))) ((lambda (r$396) (if r$396 ((lambda () (k$386 (equal? term1$182 term2$181)))) ((lambda () ((lambda (r$399) ((lambda (r$398) ((lambda (r$397) (k$386 #t)) (set-cell! unify-subst$133 r$398))) (cons r$399 (cell-get unify-subst$133)))) (cons term2$181 term1$182)))))) (number? term2$181)))) (assq term2$181 (cell-get unify-subst$133))))))) (pair? term2$181))))) (set-cell! one-way-unify$132 r$400))) (lambda (k$401 term1$185 term2$184) ((lambda (r$403) ((lambda (r$402) ((cell-get one-way-unify1$131) k$401 term1$185 term2$184)) (set-cell! unify-subst$133 r$403))) (quote ()))))) (set-cell! unify-subst$133 r$404))) (quote *))) (set-cell! rewrite-with-lemmas$134 r$405))) (lambda (k$406 term$187 lst$186) ((lambda (r$407) (if r$407 ((lambda () (k$406 term$187))) ((lambda (r$414) ((lambda (r$413) ((cell-get one-way-unify$132) (lambda (r$408) (if r$408 ((lambda () ((lambda (r$411) ((lambda (r$410) ((cell-get apply-subst$143) (lambda (r$409) ((cell-get rewrite$136) k$406 r$409)) (cell-get unify-subst$133) r$410)) (caddr r$411))) (car lst$186)))) ((lambda () ((lambda (r$412) ((cell-get rewrite-with-lemmas$134) k$406 term$187 r$412)) (cdr lst$186)))))) term$187 r$413)) (cadr r$414))) (car lst$186)))) (null? lst$186))))) (set-cell! rewrite-args$135 r$415))) (lambda (k$416 lst$188) ((lambda (r$417) (if r$417 ((lambda () (k$416 (quote ())))) ((lambda () ((lambda (r$421) ((cell-get rewrite$136) (lambda (r$418) ((lambda (r$420) ((cell-get rewrite-args$135) (lambda (r$419) ((cell-get scons$137) k$416 r$418 r$419 lst$188)) r$420)) (cdr lst$188))) r$421)) (car lst$188)))))) (null? lst$188))))) (set-cell! rewrite$136 r$422))) (lambda (k$423 term$189) ((lambda (r$432) ((lambda (r$424) ((lambda (r$425) (if r$425 ((lambda () ((lambda (r$429) ((lambda (r$431) ((cell-get rewrite-args$135) (lambda (r$430) ((cell-get scons$137) (lambda (r$426) ((lambda (r$428) ((cell-get get-lemmas$148) (lambda (r$427) ((cell-get rewrite-with-lemmas$134) k$423 r$426 r$427)) r$428)) (car term$189))) r$429 r$430 term$189)) r$431)) (cdr term$189))) (car term$189)))) ((lambda () (k$423 term$189))))) (pair? term$189))) (set-cell! rewrite-count$138 r$432))) (+ (cell-get rewrite-count$138) 1))))) (set-cell! scons$137 r$433))) (lambda (k$434 x$192 y$191 original$190) ((lambda (k$436) ((lambda (r$439) ((lambda (r$437) (if r$437 ((lambda (r$438) (k$436 (eq? y$191 r$438))) (cdr original$190)) (k$436 #f))) (eq? x$192 r$439))) (car original$190))) (lambda (r$435) (if r$435 (k$434 original$190) (k$434 (cons x$192 y$191)))))))) (set-cell! rewrite-count$138 0))) (set-cell! if-constructor$139 r$440))) (quote *))) (set-cell! tautologyp$140 r$441))) (lambda (k$442 x$195 true-lst$194 false-lst$193) ((cell-get truep$128) (lambda (r$443) (if r$443 ((lambda () (k$442 #t))) ((cell-get falsep$129) (lambda (r$444) (if r$444 ((lambda () (k$442 #f))) ((lambda (r$445) (if r$445 ((lambda (r$460) ((lambda (r$446) (if r$446 ((lambda () ((lambda (r$459) ((cell-get truep$128) (lambda (r$447) (if r$447 ((lambda () ((lambda (r$448) ((cell-get tautologyp$140) k$442 r$448 true-lst$194 false-lst$193)) (caddr x$195)))) ((lambda (r$458) ((cell-get falsep$129) (lambda (r$449) (if r$449 ((lambda () ((lambda (r$450) ((cell-get tautologyp$140) k$442 r$450 true-lst$194 false-lst$193)) (cadddr x$195)))) ((lambda () ((lambda (r$455) ((lambda (r$457) ((lambda (r$456) ((cell-get tautologyp$140) (lambda (r$451) (if r$451 ((lambda (r$452) ((lambda (r$454) ((lambda (r$453) ((cell-get tautologyp$140) k$442 r$452 true-lst$194 r$453)) (cons r$454 false-lst$193))) (cadr x$195))) (cadddr x$195)) (k$442 #f))) r$455 r$456 false-lst$193)) (cons r$457 true-lst$194))) (cadr x$195))) (caddr x$195)))))) r$458 false-lst$193)) (cadr x$195)))) r$459 true-lst$194)) (cadr x$195)))) ((lambda () (k$442 #f))))) (eq? r$460 (cell-get if-constructor$139)))) (car x$195)) ((lambda () (k$442 #f))))) (pair? x$195)))) x$195 false-lst$193))) x$195 true-lst$194)))) (set-cell! tautp$141 r$461))) (lambda (k$462 x$196) ((cell-get rewrite$136) (lambda (r$463) ((lambda (r$464) ((lambda (r$465) ((cell-get tautologyp$140) k$462 r$463 r$464 r$465)) (quote ()))) (quote ()))) x$196)))) (set-cell! apply-subst-lst$142 r$466))) (lambda (k$467 alist$198 lst$197) ((lambda (r$468) (if r$468 ((lambda () (k$467 (quote ())))) ((lambda () ((lambda (r$472) ((cell-get apply-subst$143) (lambda (r$469) ((lambda (r$471) ((cell-get apply-subst-lst$142) (lambda (r$470) (k$467 (cons r$469 r$470))) alist$198 r$471)) (cdr lst$197))) alist$198 r$472)) (car lst$197)))))) (null? lst$197))))) (set-cell! apply-subst$143 r$473))) (lambda (k$474 alist$200 term$199) ((lambda (r$475) (if r$475 ((lambda () ((lambda (r$476) ((lambda (r$478) ((cell-get apply-subst-lst$142) (lambda (r$477) (k$474 (cons r$476 r$477))) alist$200 r$478)) (cdr term$199))) (car term$199)))) ((lambda () ((lambda (temp-temp$201) (if temp-temp$201 (k$474 (cdr temp-temp$201)) (k$474 term$199))) (assq term$199 alist$200)))))) (pair? term$199))))) (set-cell! translate-alist$144 r$480))) (lambda (k$481 alist$202) ((lambda (r$482) (if r$482 ((lambda () (k$481 (quote ())))) ((lambda () ((lambda (r$486) ((lambda (r$488) ((cell-get translate-term$157) (lambda (r$487) ((lambda (r$483) ((lambda (r$485) ((cell-get translate-alist$144) (lambda (r$484) (k$481 (cons r$483 r$484))) r$485)) (cdr alist$202))) (cons r$486 r$487))) r$488)) (cdar alist$202))) (caar alist$202)))))) (null? alist$202))))) (set-cell! test$145 r$489))) (lambda (k$490 alist$205 term$204 n$203) ((cell-get translate-alist$144) (lambda (r$492) ((lambda (term$207 n$206) ((lambda (lp$208) ((lambda (lp$208) ((lambda (r$496) ((lambda (r$495) ((cell-get lp$208) (lambda (r$494) ((cell-get translate-term$157) (lambda (r$493) ((cell-get apply-subst$143) (lambda (term$211) ((cell-get tautp$141) k$490 term$211)) r$492 r$493)) r$494)) term$207 n$206)) (set-cell! lp$208 r$496))) (lambda (k$497 term$210 n$209) (zero? (lambda (r$498) (if r$498 (k$497 term$210) ((lambda (r$501) ((lambda (r$502) (list (lambda (r$499) ((lambda (r$500) ((cell-get lp$208) k$497 r$499 r$500)) (- n$209 1))) r$501 term$210 r$502)) (quote (f)))) (quote or)))) n$209)))) (cell lp$208))) #f)) term$204 n$203)) alist$205)))) (set-cell! symbol-record-equal?$146 r$503))) (lambda (k$504 r1$213 r2$212) (k$504 (eq? r1$213 r2$212))))) (set-cell! get-name$147 r$505))) (lambda (k$506 symbol-record$214) (k$506 (vector-ref symbol-record$214 0))))) (set-cell! get-lemmas$148 r$507))) (lambda (k$508 symbol-record$215) (k$508 (vector-ref symbol-record$215 1))))) (set-cell! put-lemmas!$149 r$509))) (lambda (k$510 symbol-record$217 lemmas$216) (k$510 (vector-set! symbol-record$217 1 lemmas$216))))) (set-cell! make-symbol-record$150 r$511))) (lambda (k$512 sym$218) ((lambda (r$513) (vector k$512 sym$218 r$513)) (quote ()))))) (set-cell! *symbol-records-alist*$151 r$514))) (quote ()))) (set-cell! symbol->symbol-record$152 r$515))) (lambda (k$516 sym$219) ((lambda (x$220) (if x$220 (k$516 (cdr x$220)) ((cell-get make-symbol-record$150) (lambda (r$221) ((lambda (r$521) ((lambda (r$520) ((lambda (r$519) (k$516 r$221)) (set-cell! *symbol-records-alist*$151 r$520))) (cons r$521 (cell-get *symbol-records-alist*$151)))) (cons sym$219 r$221))) sym$219))) (assq sym$219 (cell-get *symbol-records-alist*$151)))))) (set-cell! get$153 r$522))) (lambda (k$523 sym$223 property$222) ((cell-get symbol->symbol-record$152) (lambda (r$524) ((cell-get get-lemmas$148) k$523 r$524)) sym$223)))) (set-cell! put$154 r$525))) (lambda (k$526 sym$226 property$225 value$224) ((cell-get symbol->symbol-record$152) (lambda (r$527) ((cell-get put-lemmas!$149) k$526 r$527 value$224)) sym$226)))) (set-cell! untranslate-term$155 r$528))) (lambda (k$529 term$227) ((lambda (r$530) (if r$530 ((lambda () ((lambda (r$534) ((cell-get get-name$147) (lambda (r$531) ((lambda (r$533) (map (lambda (r$532) (k$529 (cons r$531 r$532))) (cell-get untranslate-term$155) r$533)) (cdr term$227))) r$534)) (car term$227)))) ((lambda () (k$529 term$227))))) (pair? term$227))))) (set-cell! translate-args$156 r$535))) (lambda (k$536 lst$228) ((lambda (r$537) (if r$537 ((lambda () (k$536 (quote ())))) ((lambda () ((lambda (r$541) ((cell-get translate-term$157) (lambda (r$538) ((lambda (r$540) ((cell-get translate-args$156) (lambda (r$539) (k$536 (cons r$538 r$539))) r$540)) (cdr lst$228))) r$541)) (car lst$228)))))) (null? lst$228))))) (set-cell! translate-term$157 r$542))) (lambda (k$543 term$229) ((lambda (r$544) (if r$544 ((lambda () ((lambda (r$548) ((cell-get symbol->symbol-record$152) (lambda (r$545) ((lambda (r$547) ((cell-get translate-args$156) (lambda (r$546) (k$543 (cons r$545 r$546))) r$547)) (cdr term$229))) r$548)) (car term$229)))) ((lambda () (k$543 term$229))))) (pair? term$229))))) (set-cell! add-lemma$158 r$549))) (lambda (k$550 term$230) ((lambda (k$561) ((lambda (r$562) (if r$562 ((lambda (r$565) ((lambda (r$566) ((lambda (r$563) (if r$563 ((lambda (r$564) (k$561 (pair? r$564))) (cadr term$230)) (k$561 #f))) (eq? r$565 r$566))) (quote equal))) (car term$230)) (k$561 #f))) (pair? term$230))) (lambda (r$551) (if r$551 ((lambda () ((lambda (r$560) ((lambda (r$552) ((lambda (r$553) ((cell-get translate-term$157) (lambda (r$555) ((lambda (r$559) ((lambda (r$557) ((lambda (r$558) ((cell-get get$153) (lambda (r$556) ((lambda (r$554) ((cell-get put$154) k$550 r$552 r$553 r$554)) (cons r$555 r$556))) r$557 r$558)) (quote lemmas))) (car r$559))) (cadr term$230))) term$230)) (quote lemmas))) (car r$560))) (cadr term$230)))) ((lambda () (error k$550 #f "ADD-LEMMA did not like term: " term$230))))))))) (set-cell! add-lemma-lst$159 r$567))) (lambda (k$568 lst$231) ((lambda (r$569) (if r$569 ((lambda () (k$568 #t))) ((lambda () ((lambda (r$572) ((cell-get add-lemma$158) (lambda (r$570) ((lambda (r$571) ((cell-get add-lemma-lst$159) k$568 r$571)) (cdr lst$231))) r$572)) (car lst$231)))))) (null? lst$231))))) (set-cell! setup$160 r$573))) (lambda (k$574) ((lambda (r$575) ((cell-get add-lemma-lst$159) k$574 r$575)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) (cell term-member?$121))) (cell term-args-equal?$122))) (cell term-equal?$123))) (cell trans-of-implies1$124))) (cell trans-of-implies$125))) (cell true-term$126))) (cell false-term$127))) (cell truep$128))) (cell falsep$129))) (cell one-way-unify1-lst$130))) (cell one-way-unify1$131))) (cell one-way-unify$132))) (cell unify-subst$133))) (cell rewrite-with-lemmas$134))) (cell rewrite-args$135))) (cell rewrite$136))) (cell scons$137))) (cell rewrite-count$138))) (cell if-constructor$139))) (cell tautologyp$140))) (cell tautp$141))) (cell apply-subst-lst$142))) (cell apply-subst$143))) (cell translate-alist$144))) (cell test$145))) (cell symbol-record-equal?$146))) (cell get-name$147))) (cell get-lemmas$148))) (cell put-lemmas!$149))) (cell make-symbol-record$150))) (cell *symbol-records-alist*$151))) (cell symbol->symbol-record$152))) (cell get$153))) (cell put$154))) (cell untranslate-term$155))) (cell translate-args$156))) (cell translate-term$157))) (cell add-lemma$158))) (cell add-lemma-lst$159))) (cell setup$160))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$576))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$577))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- after closure-convert:" */ +/* +((define main (lambda (k$645) ((%closure-ref read 0) read (%closure (lambda (self$1120 count$258) ((%closure-ref read 0) read (%closure (lambda (self$1121 input$259) ((%closure-ref read 0) read (%closure (lambda (self$1122 output$260) ((%closure (lambda (self$1123 s2$261) ((%closure (lambda (self$1124 s1$262) ((%closure (lambda (self$1125 name$263) ((%closure (lambda (self$1126) ((%closure (lambda (self$1127 r$651) ((%closure (lambda (self$1131 r$652) ((%closure (lambda (self$1134 r$653) ((%closure-ref run-r7rs-benchmark 0) run-r7rs-benchmark (%closure-ref self$1134 2) (%closure-ref self$1134 3) (%closure-ref self$1134 1) (%closure-ref self$1134 4) r$653)) (%closure-ref self$1131 1) (%closure-ref self$1131 2) (%closure-ref self$1131 4) r$652) (%closure (lambda (self$1132 k$654 rewrites$264) ((%closure (lambda (self$1133 r$655) (if r$655 ((%closure-ref (%closure-ref self$1133 1) 0) (%closure-ref self$1133 1) (= (%closure-ref self$1133 3) (%closure-ref self$1133 2))) ((%closure-ref (%closure-ref self$1133 1) 0) (%closure-ref self$1133 1) #f))) k$654 (%closure-ref self$1132 1) rewrites$264) (number? rewrites$264))) (%closure-ref self$1131 3)))) (%closure-ref self$1127 1) (%closure-ref self$1127 3) (%closure-ref self$1127 4) r$651) (%closure (lambda (self$1128 k$656) ((%closure-ref setup-boyer 0) setup-boyer (%closure (lambda (self$1129 r$657) ((%closure-ref hide 0) hide (%closure (lambda (self$1130 r$658) ((%closure-ref test-boyer 0) test-boyer (%closure-ref self$1130 1) alist term r$658)) (%closure-ref self$1129 3)) (%closure-ref self$1129 1) (%closure-ref self$1129 2))) (%closure-ref self$1128 1) (%closure-ref self$1128 2) k$656))) (%closure-ref self$1127 1) (%closure-ref self$1127 2)))) (%closure-ref self$1126 1) (%closure-ref self$1126 2) (%closure-ref self$1126 3) (%closure-ref self$1126 5)) (string-append (%closure-ref self$1126 4) ":" (%closure-ref self$1126 6) ":" (%closure-ref self$1126 7)))) (%closure-ref self$1125 1) (%closure-ref self$1125 2) (%closure-ref self$1125 3) name$263 (%closure-ref self$1125 4) (%closure-ref self$1125 5) (%closure-ref self$1125 6)))) (%closure-ref self$1124 1) (%closure-ref self$1124 2) (%closure-ref self$1124 3) (%closure-ref self$1124 4) s1$262 (%closure-ref self$1124 5)) "sboyer")) (%closure-ref self$1123 1) (%closure-ref self$1123 2) (%closure-ref self$1123 3) (%closure-ref self$1123 4) s2$261) (number->string (%closure-ref self$1123 2)))) (%closure-ref self$1122 1) (%closure-ref self$1122 2) (%closure-ref self$1122 3) output$260) (number->string (%closure-ref self$1122 1)))) (%closure-ref self$1121 1) input$259 (%closure-ref self$1121 2)))) count$258 (%closure-ref self$1120 1)))) k$645)))) (define alist (%closure-ref #f 0) #f) (define term (%closure-ref #f 0) #f) (define setup-boyer (lambda (k$638) ((%closure-ref k$638 0) k$638 #t))) (define test-boyer (lambda (k$635) ((%closure-ref k$635 0) k$635 #t))) (define hide (lambda (k$621 r$254 x$253) ((%closure (lambda (self$1116 r$622) ((%closure (lambda (self$1119 r$623) ((%closure-ref call-with-values 0) call-with-values (%closure-ref self$1119 1) (%closure-ref self$1119 2) r$623)) (%closure-ref self$1116 1) r$622) (%closure (lambda (self$1117 k$624 v$256 i$255) ((%closure (lambda (self$1118 r$625) ((%closure-ref r$625 0) r$625 (%closure-ref self$1118 1) (%closure-ref self$1118 2))) k$624 (%closure-ref self$1117 1)) (vector-ref v$256 i$255))) (%closure-ref self$1116 2)))) k$621 x$253) (%closure (lambda (self$1109 k$626) ((%closure (lambda (self$1111 r$631) ((%closure-ref vector 0) vector (%closure (lambda (self$1112 r$627) ((%closure (lambda (self$1114 k$629) ((%closure (lambda (self$1115 r$630) (if r$630 ((%closure-ref (%closure-ref self$1115 1) 0) (%closure-ref self$1115 1) 0) ((%closure-ref (%closure-ref self$1115 1) 0) (%closure-ref self$1115 1) 1))) k$629) (< (%closure-ref self$1114 1) 100))) (%closure-ref self$1112 2)) (%closure (lambda (self$1113 r$628) ((%closure-ref values 0) values (%closure-ref self$1113 1) (%closure-ref self$1113 2) r$628)) (%closure-ref self$1112 1) r$627))) (%closure-ref self$1111 1) (%closure-ref self$1111 2)) values r$631)) k$626 (%closure-ref self$1109 1)) (%closure (lambda (self$1110 k$632 x$257) ((%closure-ref k$632 0) k$632 x$257))))) r$254)))) (define run-r7rs-benchmark (lambda (k$580 name$235 count$234 thunk$233 ok?$232) ((%closure (lambda (self$1061 rounded$237) ((%closure (lambda (self$1062 rounded$237) ((%closure (lambda (self$1063 rounded$238) ((%closure (lambda (self$1067 r$615) ((%closure (lambda (self$1068 r$581) ((%closure-ref display 0) display (%closure (lambda (self$1069 r$582) ((%closure-ref display 0) display (%closure (lambda (self$1070 r$583) ((%closure-ref newline 0) newline (%closure (lambda (self$1071 r$584) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$1072 r$585) ((%closure-ref jiffies-per-second 0) jiffies-per-second (%closure (lambda (self$1073 j/s$239) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1074 t0$240) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1075 j0$241) ((%closure (lambda (self$1076) ((lambda (k$614) (if #f ((%closure-ref k$614 0) k$614 #f) ((%closure-ref k$614 0) k$614 #f))) (%closure (lambda (self$1077 r$589) ((%closure (lambda (self$1078 i$243 result$242) ((%closure (lambda (self$1079 loop$244) ((%closure (lambda (self$1080 loop$244) ((%closure (lambda (self$1107 r$591) ((%closure (lambda (self$1108 r$590) ((%closure-ref (cell-get (%closure-ref self$1108 3)) 0) (cell-get (%closure-ref self$1108 3)) (%closure-ref self$1108 2) (%closure-ref self$1108 1) (%closure-ref self$1108 4))) (%closure-ref self$1107 1) (%closure-ref self$1107 2) (%closure-ref self$1107 3) (%closure-ref self$1107 4)) (set-cell! (%closure-ref self$1107 3) r$591))) (%closure-ref self$1080 2) (%closure-ref self$1080 5) loop$244 (%closure-ref self$1080 8)) (%closure (lambda (self$1081 k$592 i$246 result$245) ((%closure (lambda (self$1082 r$593) (if r$593 ((%closure (lambda (self$1104) ((%closure (lambda (self$1105 r$594) ((%closure-ref (%closure-ref self$1105 3) 0) (%closure-ref self$1105 3) (%closure (lambda (self$1106 r$595) ((%closure-ref (cell-get (%closure-ref self$1106 2)) 0) (cell-get (%closure-ref self$1106 2)) (%closure-ref self$1106 1) (%closure-ref self$1106 3) r$595)) (%closure-ref self$1105 1) (%closure-ref self$1105 2) r$594))) (%closure-ref self$1104 2) (%closure-ref self$1104 3) (%closure-ref self$1104 4)) (+ (%closure-ref self$1104 1) 1))) (%closure-ref self$1082 1) (%closure-ref self$1082 4) (%closure-ref self$1082 5) (%closure-ref self$1082 11))) ((%closure-ref (%closure-ref self$1082 7) 0) (%closure-ref self$1082 7) (%closure (lambda (self$1083 r$596) (if r$596 ((%closure (lambda (self$1088) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1089 j1$247) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1090 t1$248) ((%closure (lambda (self$1091 jifs$249) ((%closure (lambda (self$1092 r$610) ((%closure-ref inexact 0) inexact (%closure (lambda (self$1093 secs$250) ((%closure (lambda (self$1094 r$609) ((%closure-ref (cell-get (%closure-ref self$1094 4)) 0) (cell-get (%closure-ref self$1094 4)) (%closure (lambda (self$1095 secs2$251) ((%closure (lambda (self$1096) ((%closure-ref display 0) display (%closure (lambda (self$1097 r$603) ((%closure-ref write 0) write (%closure (lambda (self$1098 r$604) ((%closure-ref display 0) display (%closure (lambda (self$1099 r$605) ((%closure-ref write 0) write (%closure (lambda (self$1100 r$606) ((%closure-ref display 0) display (%closure (lambda (self$1101 r$607) ((%closure-ref display 0) display (%closure (lambda (self$1102 r$608) ((%closure-ref newline 0) newline (%closure (lambda (self$1103 r$597) ((%closure-ref (%closure-ref self$1103 1) 0) (%closure-ref self$1103 1) (%closure-ref self$1103 2))) (%closure-ref self$1102 1) (%closure-ref self$1102 2)))) (%closure-ref self$1101 1) (%closure-ref self$1101 3)) (%closure-ref self$1101 2))) (%closure-ref self$1100 1) (%closure-ref self$1100 2) (%closure-ref self$1100 3)) ") for ")) (%closure-ref self$1099 1) (%closure-ref self$1099 2) (%closure-ref self$1099 3)) (%closure-ref self$1099 4))) (%closure-ref self$1098 1) (%closure-ref self$1098 2) (%closure-ref self$1098 3) (%closure-ref self$1098 4)) " seconds (")) (%closure-ref self$1097 1) (%closure-ref self$1097 2) (%closure-ref self$1097 3) (%closure-ref self$1097 5)) (%closure-ref self$1097 4))) (%closure-ref self$1096 1) (%closure-ref self$1096 2) (%closure-ref self$1096 3) (%closure-ref self$1096 4) (%closure-ref self$1096 5)) "Elapsed time: ")) (%closure-ref self$1095 1) (%closure-ref self$1095 2) (%closure-ref self$1095 3) (%closure-ref self$1095 4) secs2$251))) (%closure-ref self$1094 1) (%closure-ref self$1094 2) (%closure-ref self$1094 3) (%closure-ref self$1094 5)) r$609)) (%closure-ref self$1093 1) (%closure-ref self$1093 2) (%closure-ref self$1093 3) (%closure-ref self$1093 4) secs$250) (- (%closure-ref self$1093 6) (%closure-ref self$1093 5)))) (%closure-ref self$1092 1) (%closure-ref self$1092 2) (%closure-ref self$1092 3) (%closure-ref self$1092 4) (%closure-ref self$1092 5) (%closure-ref self$1092 6)) r$610)) (%closure-ref self$1091 2) (%closure-ref self$1091 3) (%closure-ref self$1091 4) (%closure-ref self$1091 5) (%closure-ref self$1091 6) (%closure-ref self$1091 7)) (/ jifs$249 (%closure-ref self$1091 1)))) (%closure-ref self$1090 1) (%closure-ref self$1090 4) (%closure-ref self$1090 5) (%closure-ref self$1090 6) (%closure-ref self$1090 7) (%closure-ref self$1090 8) t1$248) (- (%closure-ref self$1090 3) (%closure-ref self$1090 2)))) (%closure-ref self$1089 1) (%closure-ref self$1089 2) j1$247 (%closure-ref self$1089 3) (%closure-ref self$1089 4) (%closure-ref self$1089 5) (%closure-ref self$1089 6) (%closure-ref self$1089 7)))) (%closure-ref self$1088 1) (%closure-ref self$1088 2) (%closure-ref self$1088 3) (%closure-ref self$1088 4) (%closure-ref self$1088 5) (%closure-ref self$1088 6) (%closure-ref self$1088 7)))) (%closure-ref self$1083 1) (%closure-ref self$1083 2) (%closure-ref self$1083 3) (%closure-ref self$1083 4) (%closure-ref self$1083 5) (%closure-ref self$1083 6) (%closure-ref self$1083 7))) ((%closure (lambda (self$1084) ((%closure-ref display 0) display (%closure (lambda (self$1085 r$611) ((%closure-ref write 0) write (%closure (lambda (self$1086 r$612) ((%closure-ref newline 0) newline (%closure (lambda (self$1087 r$613) ((%closure-ref (%closure-ref self$1087 1) 0) (%closure-ref self$1087 1) (%closure-ref self$1087 2))) (%closure-ref self$1086 1) (%closure-ref self$1086 2)))) (%closure-ref self$1085 1) (%closure-ref self$1085 2)) (%closure-ref self$1085 2))) (%closure-ref self$1084 1) (%closure-ref self$1084 2)) "ERROR: returned incorrect result: ")) (%closure-ref self$1083 3) (%closure-ref self$1083 5))))) (%closure-ref self$1082 2) (%closure-ref self$1082 3) (%closure-ref self$1082 4) (%closure-ref self$1082 6) (%closure-ref self$1082 8) (%closure-ref self$1082 9) (%closure-ref self$1082 10)) (%closure-ref self$1082 8)))) i$246 (%closure-ref self$1081 2) (%closure-ref self$1081 3) k$592 (%closure-ref self$1081 4) (%closure-ref self$1081 5) (%closure-ref self$1081 6) result$245 (%closure-ref self$1081 7) (%closure-ref self$1081 8) (%closure-ref self$1081 9)) (< i$246 (%closure-ref self$1081 1)))) (%closure-ref self$1080 1) (%closure-ref self$1080 3) (%closure-ref self$1080 4) loop$244 (%closure-ref self$1080 6) (%closure-ref self$1080 7) (%closure-ref self$1080 9) (%closure-ref self$1080 10) (%closure-ref self$1080 11)))) (%closure-ref self$1079 1) (%closure-ref self$1079 2) (%closure-ref self$1079 3) (%closure-ref self$1079 4) (%closure-ref self$1079 5) (%closure-ref self$1079 6) (%closure-ref self$1079 7) (%closure-ref self$1079 8) (%closure-ref self$1079 9) (%closure-ref self$1079 10) (%closure-ref self$1079 11)) (cell loop$244))) (%closure-ref self$1078 1) i$243 (%closure-ref self$1078 2) (%closure-ref self$1078 3) (%closure-ref self$1078 4) (%closure-ref self$1078 5) (%closure-ref self$1078 6) result$242 (%closure-ref self$1078 7) (%closure-ref self$1078 8) (%closure-ref self$1078 9)) #f)) (%closure-ref self$1077 1) (%closure-ref self$1077 2) (%closure-ref self$1077 3) (%closure-ref self$1077 4) (%closure-ref self$1077 5) (%closure-ref self$1077 6) (%closure-ref self$1077 7) (%closure-ref self$1077 8) (%closure-ref self$1077 9)) 0 r$589)) (%closure-ref self$1076 1) (%closure-ref self$1076 2) (%closure-ref self$1076 3) (%closure-ref self$1076 4) (%closure-ref self$1076 5) (%closure-ref self$1076 6) (%closure-ref self$1076 7) (%closure-ref self$1076 8) (%closure-ref self$1076 9)))) (%closure-ref self$1075 1) (%closure-ref self$1075 2) j0$241 (%closure-ref self$1075 3) (%closure-ref self$1075 4) (%closure-ref self$1075 5) (%closure-ref self$1075 6) (%closure-ref self$1075 7) (%closure-ref self$1075 8)))) (%closure-ref self$1074 1) (%closure-ref self$1074 2) (%closure-ref self$1074 3) (%closure-ref self$1074 4) (%closure-ref self$1074 5) (%closure-ref self$1074 6) t0$240 (%closure-ref self$1074 7)))) (%closure-ref self$1073 1) j/s$239 (%closure-ref self$1073 2) (%closure-ref self$1073 3) (%closure-ref self$1073 4) (%closure-ref self$1073 5) (%closure-ref self$1073 6)))) (%closure-ref self$1072 1) (%closure-ref self$1072 2) (%closure-ref self$1072 3) (%closure-ref self$1072 4) (%closure-ref self$1072 5) (%closure-ref self$1072 6)))) (%closure-ref self$1071 1) (%closure-ref self$1071 2) (%closure-ref self$1071 3) (%closure-ref self$1071 4) (%closure-ref self$1071 5) (%closure-ref self$1071 6)))) (%closure-ref self$1070 1) (%closure-ref self$1070 2) (%closure-ref self$1070 3) (%closure-ref self$1070 4) (%closure-ref self$1070 5) (%closure-ref self$1070 6)))) (%closure-ref self$1069 1) (%closure-ref self$1069 2) (%closure-ref self$1069 3) (%closure-ref self$1069 4) (%closure-ref self$1069 5) (%closure-ref self$1069 6)) (%closure-ref self$1069 3))) (%closure-ref self$1068 1) (%closure-ref self$1068 2) (%closure-ref self$1068 3) (%closure-ref self$1068 4) (%closure-ref self$1068 5) (%closure-ref self$1068 6)) "Running ")) (%closure-ref self$1067 1) (%closure-ref self$1067 2) (%closure-ref self$1067 3) (%closure-ref self$1067 4) (%closure-ref self$1067 5) (%closure-ref self$1067 6)) (set-cell! (%closure-ref self$1067 5) r$615))) (%closure-ref self$1063 1) (%closure-ref self$1063 2) (%closure-ref self$1063 3) (%closure-ref self$1063 4) (%closure-ref self$1063 5) (%closure-ref self$1063 6)) (%closure (lambda (self$1064 k$616 x$252) ((%closure (lambda (self$1065 r$618) ((%closure-ref round 0) round (%closure (lambda (self$1066 r$617) ((%closure-ref (%closure-ref self$1066 1) 0) (%closure-ref self$1066 1) (/ r$617 1000))) (%closure-ref self$1065 1)) r$618)) k$616) (* 1000 x$252)))))) (%closure-ref self$1062 1) (%closure-ref self$1062 2) (%closure-ref self$1062 3) (%closure-ref self$1062 4) rounded$237 (%closure-ref self$1062 5)) #f)) (%closure-ref self$1061 1) (%closure-ref self$1061 2) (%closure-ref self$1061 3) (%closure-ref self$1061 4) (%closure-ref self$1061 5)) (cell rounded$237))) count$234 k$580 name$235 ok?$232 thunk$233) #f))) ((lambda (*symbol-records-alist*$120 add-lemma$119 add-lemma-lst$118 apply-subst$117 apply-subst-lst$116 false-term$115 falsep$114 get$113 get-lemmas$112 get-name$111 if-constructor$110 make-symbol-record$109 one-way-unify$108 one-way-unify1$107 one-way-unify1-lst$106 put$105 put-lemmas!$104 rewrite$103 rewrite-args$102 rewrite-count$101 rewrite-with-lemmas$100 scons$99 setup$98 symbol->symbol-record$97 symbol-record-equal?$96 tautologyp$95 tautp$94 term-args-equal?$93 term-equal?$92 term-member?$91 test$90 trans-of-implies$89 trans-of-implies1$88 translate-alist$87 translate-args$86 translate-term$85 true-term$84 truep$83 unify-subst$82 untranslate-term$81) ((lambda () ((lambda (r$265) ((lambda (r$577) ((lambda (r$266) ((lambda (r$576) ((lambda (r$267) ((lambda () ((lambda (setup$160 add-lemma-lst$159 add-lemma$158 translate-term$157 translate-args$156 untranslate-term$155 put$154 get$153 symbol->symbol-record$152 *symbol-records-alist*$151 make-symbol-record$150 put-lemmas!$149 get-lemmas$148 get-name$147 symbol-record-equal?$146 test$145 translate-alist$144 apply-subst$143 apply-subst-lst$142 tautp$141 tautologyp$140 if-constructor$139 rewrite-count$138 scons$137 rewrite$136 rewrite-args$135 rewrite-with-lemmas$134 unify-subst$133 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 falsep$129 truep$128 false-term$127 true-term$126 trans-of-implies$125 trans-of-implies1$124 term-equal?$123 term-args-equal?$122 term-member?$121) ((%closure (lambda (self$659 setup$160) ((%closure (lambda (self$660 add-lemma-lst$159) ((%closure (lambda (self$661 add-lemma$158) ((%closure (lambda (self$662 translate-term$157) ((%closure (lambda (self$663 translate-args$156) ((%closure (lambda (self$664 untranslate-term$155) ((%closure (lambda (self$665 put$154) ((%closure (lambda (self$666 get$153) ((%closure (lambda (self$667 symbol->symbol-record$152) ((%closure (lambda (self$668 *symbol-records-alist*$151) ((%closure (lambda (self$669 make-symbol-record$150) ((%closure (lambda (self$670 put-lemmas!$149) ((%closure (lambda (self$671 get-lemmas$148) ((%closure (lambda (self$672 get-name$147) ((%closure (lambda (self$673 symbol-record-equal?$146) ((%closure (lambda (self$674 test$145) ((%closure (lambda (self$675 translate-alist$144) ((%closure (lambda (self$676 apply-subst$143) ((%closure (lambda (self$677 apply-subst-lst$142) ((%closure (lambda (self$678 tautp$141) ((%closure (lambda (self$679 tautologyp$140) ((%closure (lambda (self$680 if-constructor$139) ((%closure (lambda (self$681 rewrite-count$138) ((%closure (lambda (self$682 scons$137) ((%closure (lambda (self$683 rewrite$136) ((%closure (lambda (self$684 rewrite-args$135) ((%closure (lambda (self$685 rewrite-with-lemmas$134) ((%closure (lambda (self$686 unify-subst$133) ((%closure (lambda (self$687 one-way-unify$132) ((%closure (lambda (self$688 one-way-unify1$131) ((%closure (lambda (self$689 one-way-unify1-lst$130) ((%closure (lambda (self$690 falsep$129) ((%closure (lambda (self$691 truep$128) ((%closure (lambda (self$692 false-term$127) ((%closure (lambda (self$693 true-term$126) ((%closure (lambda (self$694 trans-of-implies$125) ((%closure (lambda (self$695 trans-of-implies1$124) ((%closure (lambda (self$696 term-equal?$123) ((%closure (lambda (self$697 term-args-equal?$122) ((%closure (lambda (self$698 term-member?$121) ((%closure (lambda (self$701 r$573) ((%closure (lambda (self$702 r$269) ((%closure (lambda (self$710 r$567) ((%closure (lambda (self$711 r$270) ((%closure (lambda (self$731 r$549) ((%closure (lambda (self$732 r$271) ((%closure (lambda (self$741 r$542) ((%closure (lambda (self$742 r$272) ((%closure (lambda (self$751 r$535) ((%closure (lambda (self$752 r$273) ((%closure (lambda (self$761 r$528) ((%closure (lambda (self$762 r$274) ((%closure (lambda (self$765 r$525) ((%closure (lambda (self$766 r$275) ((%closure (lambda (self$769 r$522) ((%closure (lambda (self$770 r$276) ((%closure (lambda (self$777 r$515) ((%closure (lambda (self$778 r$277) ((%closure (lambda (self$779 r$514) ((%closure (lambda (self$780 r$278) ((%closure (lambda (self$783 r$511) ((%closure (lambda (self$784 r$279) ((%closure (lambda (self$786 r$509) ((%closure (lambda (self$787 r$280) ((%closure (lambda (self$789 r$507) ((%closure (lambda (self$790 r$281) ((%closure (lambda (self$792 r$505) ((%closure (lambda (self$793 r$282) ((%closure (lambda (self$795 r$503) ((%closure (lambda (self$796 r$283) ((%closure (lambda (self$813 r$489) ((%closure (lambda (self$814 r$284) ((%closure (lambda (self$825 r$480) ((%closure (lambda (self$826 r$285) ((%closure (lambda (self$835 r$473) ((%closure (lambda (self$836 r$286) ((%closure (lambda (self$845 r$466) ((%closure (lambda (self$846 r$287) ((%closure (lambda (self$851 r$461) ((%closure (lambda (self$852 r$288) ((%closure (lambda (self$880 r$441) ((%closure (lambda (self$881 r$289) ((%closure (lambda (self$882 r$440) ((%closure (lambda (self$883 r$290) ((%closure (lambda (self$884 r$291) ((%closure (lambda (self$891 r$433) ((%closure (lambda (self$892 r$292) ((%closure (lambda (self$905 r$422) ((%closure (lambda (self$906 r$293) ((%closure (lambda (self$915 r$415) ((%closure (lambda (self$916 r$294) ((%closure (lambda (self$929 r$405) ((%closure (lambda (self$930 r$295) ((%closure (lambda (self$931 r$404) ((%closure (lambda (self$932 r$296) ((%closure (lambda (self$936 r$400) ((%closure (lambda (self$937 r$297) ((%closure (lambda (self$959 r$385) ((%closure (lambda (self$960 r$298) ((%closure (lambda (self$973 r$376) ((%closure (lambda (self$974 r$299) ((%closure (lambda (self$977 r$373) ((%closure (lambda (self$978 r$300) ((%closure (lambda (self$981 r$370) ((%closure (lambda (self$982 r$301) ((%closure (lambda (self$983 r$369) ((%closure (lambda (self$984 r$302) ((%closure (lambda (self$985 r$368) ((%closure (lambda (self$986 r$303) ((%closure (lambda (self$993 r$361) ((%closure (lambda (self$994 r$304) ((%closure (lambda (self$1006 r$351) ((%closure (lambda (self$1007 r$305) ((%closure (lambda (self$1018 r$342) ((%closure (lambda (self$1019 r$306) ((%closure (lambda (self$1032 r$333) ((%closure (lambda (self$1033 r$307) ((%closure (lambda (self$1042 r$327) ((%closure (lambda (self$1043 r$308) ((%closure (lambda (self$1056 r$314) ((%closure (lambda (self$1057 r$309) ((lambda (r$310) ((lambda (r$268) ((%closure-ref main 0) main %halt)) (set-global! test-boyer r$310))) (%closure (lambda (self$1058 k$311 alist$163 term$162 n$161) ((%closure (lambda (self$1059 r$312) ((%closure-ref (cell-get (%closure-ref self$1059 6)) 0) (cell-get (%closure-ref self$1059 6)) (%closure (lambda (self$1060 answer$164) (if answer$164 ((%closure-ref (%closure-ref self$1060 1) 0) (%closure-ref self$1060 1) (cell-get (%closure-ref self$1060 2))) ((%closure-ref (%closure-ref self$1060 1) 0) (%closure-ref self$1060 1) #f))) (%closure-ref self$1059 2) (%closure-ref self$1059 4)) (%closure-ref self$1059 1) (%closure-ref self$1059 5) (%closure-ref self$1059 3))) alist$163 k$311 n$161 (%closure-ref self$1058 1) term$162 (%closure-ref self$1058 2)) (set-cell! (%closure-ref self$1058 1) 0))) (%closure-ref self$1057 1) (%closure-ref self$1057 2)))) (%closure-ref self$1056 1) (%closure-ref self$1056 2)) (set-global! setup-boyer r$314))) (%closure-ref self$1043 4) (%closure-ref self$1043 7)) (%closure (lambda (self$1044 k$315) ((%closure (lambda (self$1045 r$326) ((%closure (lambda (self$1046 r$316) ((%closure (lambda (self$1047 r$325) ((%closure-ref (cell-get (%closure-ref self$1047 5)) 0) (cell-get (%closure-ref self$1047 5)) (%closure (lambda (self$1048 r$324) ((%closure (lambda (self$1049 r$317) ((%closure (lambda (self$1050 r$323) ((%closure-ref (cell-get (%closure-ref self$1050 4)) 0) (cell-get (%closure-ref self$1050 4)) (%closure (lambda (self$1051 r$322) ((%closure (lambda (self$1052 r$318) ((%closure (lambda (self$1053 r$321) ((%closure-ref (cell-get (%closure-ref self$1053 3)) 0) (cell-get (%closure-ref self$1053 3)) (%closure (lambda (self$1054 r$320) ((%closure (lambda (self$1055 r$319) ((%closure-ref (cell-get (%closure-ref self$1055 2)) 0) (cell-get (%closure-ref self$1055 2)) (%closure-ref self$1055 1))) (%closure-ref self$1054 1) (%closure-ref self$1054 2)) (set-cell! (%closure-ref self$1054 3) r$320))) (%closure-ref self$1053 1) (%closure-ref self$1053 2) (%closure-ref self$1053 4)) r$321)) (%closure-ref self$1052 1) (%closure-ref self$1052 2) (%closure-ref self$1052 3) (%closure-ref self$1052 4)) (quote (t)))) (%closure-ref self$1051 2) (%closure-ref self$1051 3) (%closure-ref self$1051 4) (%closure-ref self$1051 5)) (set-cell! (%closure-ref self$1051 1) r$322))) (%closure-ref self$1050 1) (%closure-ref self$1050 2) (%closure-ref self$1050 3) (%closure-ref self$1050 4) (%closure-ref self$1050 5)) r$323)) (%closure-ref self$1049 1) (%closure-ref self$1049 2) (%closure-ref self$1049 3) (%closure-ref self$1049 4) (%closure-ref self$1049 5)) (quote (f)))) (%closure-ref self$1048 1) (%closure-ref self$1048 3) (%closure-ref self$1048 4) (%closure-ref self$1048 5) (%closure-ref self$1048 6)) (set-cell! (%closure-ref self$1048 2) r$324))) (%closure-ref self$1047 1) (%closure-ref self$1047 2) (%closure-ref self$1047 3) (%closure-ref self$1047 4) (%closure-ref self$1047 6) (%closure-ref self$1047 7)) r$325)) (%closure-ref self$1046 1) (%closure-ref self$1046 2) (%closure-ref self$1046 3) (%closure-ref self$1046 4) (%closure-ref self$1046 5) (%closure-ref self$1046 6) (%closure-ref self$1046 7)) (quote if))) (%closure-ref self$1045 2) (%closure-ref self$1045 3) (%closure-ref self$1045 4) (%closure-ref self$1045 5) (%closure-ref self$1045 6) (%closure-ref self$1045 7) (%closure-ref self$1045 8)) (set-cell! (%closure-ref self$1045 1) r$326))) (%closure-ref self$1044 1) (%closure-ref self$1044 2) (%closure-ref self$1044 3) k$315 (%closure-ref self$1044 4) (%closure-ref self$1044 5) (%closure-ref self$1044 6) (%closure-ref self$1044 7)) (quote ()))) (%closure-ref self$1043 1) (%closure-ref self$1043 2) (%closure-ref self$1043 3) (%closure-ref self$1043 5) (%closure-ref self$1043 6) (%closure-ref self$1043 8) (%closure-ref self$1043 9)))) (%closure-ref self$1042 1) (%closure-ref self$1042 2) (%closure-ref self$1042 3) (%closure-ref self$1042 4) (%closure-ref self$1042 5) (%closure-ref self$1042 6) (%closure-ref self$1042 8) (%closure-ref self$1042 9) (%closure-ref self$1042 10)) (set-cell! (%closure-ref self$1042 7) r$327))) (%closure-ref self$1033 1) (%closure-ref self$1033 2) (%closure-ref self$1033 3) (%closure-ref self$1033 4) (%closure-ref self$1033 5) (%closure-ref self$1033 6) (%closure-ref self$1033 8) (%closure-ref self$1033 9) (%closure-ref self$1033 10) (%closure-ref self$1033 11)) (%closure (lambda (self$1034 k$328 x$166 lst$165) ((%closure (lambda (self$1035 r$329) (if r$329 ((%closure (lambda (self$1041) ((%closure-ref (%closure-ref self$1041 1) 0) (%closure-ref self$1041 1) #f)) (%closure-ref self$1035 1))) ((%closure (lambda (self$1036 r$332) ((%closure-ref (cell-get (%closure-ref self$1036 3)) 0) (cell-get (%closure-ref self$1036 3)) (%closure (lambda (self$1037 r$330) (if r$330 ((%closure (lambda (self$1040) ((%closure-ref (%closure-ref self$1040 1) 0) (%closure-ref self$1040 1) #t)) (%closure-ref self$1037 1))) ((%closure (lambda (self$1038) ((%closure (lambda (self$1039 r$331) ((%closure-ref (cell-get (%closure-ref self$1039 2)) 0) (cell-get (%closure-ref self$1039 2)) (%closure-ref self$1039 1) (%closure-ref self$1039 3) r$331)) (%closure-ref self$1038 1) (%closure-ref self$1038 3) (%closure-ref self$1038 4)) (cdr (%closure-ref self$1038 2)))) (%closure-ref self$1037 1) (%closure-ref self$1037 2) (%closure-ref self$1037 3) (%closure-ref self$1037 4))))) (%closure-ref self$1036 1) (%closure-ref self$1036 2) (%closure-ref self$1036 4) (%closure-ref self$1036 5)) (%closure-ref self$1036 5) r$332)) (%closure-ref self$1035 1) (%closure-ref self$1035 2) (%closure-ref self$1035 3) (%closure-ref self$1035 4) (%closure-ref self$1035 5)) (car (%closure-ref self$1035 2))))) k$328 lst$165 (%closure-ref self$1034 1) (%closure-ref self$1034 2) x$166) (null? lst$165))) (%closure-ref self$1033 7) (%closure-ref self$1033 8)))) (%closure-ref self$1032 1) (%closure-ref self$1032 2) (%closure-ref self$1032 3) (%closure-ref self$1032 4) (%closure-ref self$1032 5) (%closure-ref self$1032 6) (%closure-ref self$1032 8) (%closure-ref self$1032 9) (%closure-ref self$1032 10) (%closure-ref self$1032 11) (%closure-ref self$1032 12)) (set-cell! (%closure-ref self$1032 7) r$333))) (%closure-ref self$1019 1) (%closure-ref self$1019 2) (%closure-ref self$1019 3) (%closure-ref self$1019 4) (%closure-ref self$1019 5) (%closure-ref self$1019 6) (%closure-ref self$1019 7) (%closure-ref self$1019 8) (%closure-ref self$1019 9) (%closure-ref self$1019 10) (%closure-ref self$1019 11) (%closure-ref self$1019 12)) (%closure (lambda (self$1020 k$334 lst1$168 lst2$167) ((%closure (lambda (self$1021 r$335) (if r$335 ((%closure (lambda (self$1031) ((%closure-ref (%closure-ref self$1031 1) 0) (%closure-ref self$1031 1) (null? (%closure-ref self$1031 2)))) (%closure-ref self$1021 1) (%closure-ref self$1021 3))) ((%closure (lambda (self$1022 r$336) (if r$336 ((%closure (lambda (self$1030) ((%closure-ref (%closure-ref self$1030 1) 0) (%closure-ref self$1030 1) #f)) (%closure-ref self$1022 1))) ((%closure (lambda (self$1023 r$340) ((%closure (lambda (self$1024 r$341) ((%closure-ref (cell-get (%closure-ref self$1024 6)) 0) (cell-get (%closure-ref self$1024 6)) (%closure (lambda (self$1025 r$337) (if r$337 ((%closure (lambda (self$1027) ((%closure (lambda (self$1028 r$338) ((%closure (lambda (self$1029 r$339) ((%closure-ref (cell-get (%closure-ref self$1029 3)) 0) (cell-get (%closure-ref self$1029 3)) (%closure-ref self$1029 1) (%closure-ref self$1029 2) r$339)) (%closure-ref self$1028 1) r$338 (%closure-ref self$1028 3)) (cdr (%closure-ref self$1028 2)))) (%closure-ref self$1027 1) (%closure-ref self$1027 3) (%closure-ref self$1027 4)) (cdr (%closure-ref self$1027 2)))) (%closure-ref self$1025 1) (%closure-ref self$1025 2) (%closure-ref self$1025 3) (%closure-ref self$1025 4))) ((%closure (lambda (self$1026) ((%closure-ref (%closure-ref self$1026 1) 0) (%closure-ref self$1026 1) #f)) (%closure-ref self$1025 1))))) (%closure-ref self$1024 1) (%closure-ref self$1024 2) (%closure-ref self$1024 3) (%closure-ref self$1024 5)) (%closure-ref self$1024 4) r$341)) (%closure-ref self$1023 1) (%closure-ref self$1023 2) (%closure-ref self$1023 3) r$340 (%closure-ref self$1023 4) (%closure-ref self$1023 5)) (car (%closure-ref self$1023 3)))) (%closure-ref self$1022 1) (%closure-ref self$1022 2) (%closure-ref self$1022 3) (%closure-ref self$1022 4) (%closure-ref self$1022 5)) (car (%closure-ref self$1022 2))))) (%closure-ref self$1021 1) (%closure-ref self$1021 2) (%closure-ref self$1021 3) (%closure-ref self$1021 4) (%closure-ref self$1021 5)) (null? (%closure-ref self$1021 3))))) k$334 lst1$168 lst2$167 (%closure-ref self$1020 1) (%closure-ref self$1020 2)) (null? lst1$168))) (%closure-ref self$1019 7) (%closure-ref self$1019 8)))) (%closure-ref self$1018 1) (%closure-ref self$1018 2) (%closure-ref self$1018 3) (%closure-ref self$1018 4) (%closure-ref self$1018 5) (%closure-ref self$1018 6) (%closure-ref self$1018 7) (%closure-ref self$1018 8) (%closure-ref self$1018 9) (%closure-ref self$1018 10) (%closure-ref self$1018 11) (%closure-ref self$1018 12)) (set-cell! (%closure-ref self$1018 8) r$342))) (%closure-ref self$1007 1) (%closure-ref self$1007 2) (%closure-ref self$1007 3) (%closure-ref self$1007 4) (%closure-ref self$1007 5) (%closure-ref self$1007 6) (%closure-ref self$1007 8) (%closure-ref self$1007 9) (%closure-ref self$1007 10) (%closure-ref self$1007 11) (%closure-ref self$1007 12) (%closure-ref self$1007 13)) (%closure (lambda (self$1008 k$343 x$170 y$169) ((%closure (lambda (self$1009 r$344) (if r$344 ((%closure (lambda (self$1011) ((%closure (lambda (self$1012 r$345) (if r$345 ((%closure (lambda (self$1013 r$349) ((%closure (lambda (self$1014 r$350) ((%closure-ref (cell-get (%closure-ref self$1014 3)) 0) (cell-get (%closure-ref self$1014 3)) (%closure (lambda (self$1015 r$346) (if r$346 ((%closure (lambda (self$1016 r$347) ((%closure (lambda (self$1017 r$348) ((%closure-ref (cell-get (%closure-ref self$1017 3)) 0) (cell-get (%closure-ref self$1017 3)) (%closure-ref self$1017 1) (%closure-ref self$1017 2) r$348)) (%closure-ref self$1016 1) r$347 (%closure-ref self$1016 2)) (cdr (%closure-ref self$1016 3)))) (%closure-ref self$1015 1) (%closure-ref self$1015 2) (%closure-ref self$1015 4)) (cdr (%closure-ref self$1015 3))) ((%closure-ref (%closure-ref self$1015 1) 0) (%closure-ref self$1015 1) #f))) (%closure-ref self$1014 1) (%closure-ref self$1014 4) (%closure-ref self$1014 5) (%closure-ref self$1014 6)) (%closure-ref self$1014 2) r$350)) (%closure-ref self$1013 1) r$349 (%closure-ref self$1013 2) (%closure-ref self$1013 3) (%closure-ref self$1013 4) (%closure-ref self$1013 5)) (car (%closure-ref self$1013 5)))) (%closure-ref self$1012 1) (%closure-ref self$1012 2) (%closure-ref self$1012 3) (%closure-ref self$1012 4) (%closure-ref self$1012 5)) (car (%closure-ref self$1012 4))) ((%closure-ref (%closure-ref self$1012 1) 0) (%closure-ref self$1012 1) #f))) (%closure-ref self$1011 1) (%closure-ref self$1011 2) (%closure-ref self$1011 3) (%closure-ref self$1011 4) (%closure-ref self$1011 5)) (pair? (%closure-ref self$1011 5)))) (%closure-ref self$1009 1) (%closure-ref self$1009 2) (%closure-ref self$1009 3) (%closure-ref self$1009 4) (%closure-ref self$1009 5))) ((%closure (lambda (self$1010) ((%closure-ref (%closure-ref self$1010 1) 0) (%closure-ref self$1010 1) (equal? (%closure-ref self$1010 2) (%closure-ref self$1010 3)))) (%closure-ref self$1009 1) (%closure-ref self$1009 4) (%closure-ref self$1009 5))))) k$343 (%closure-ref self$1008 1) (%closure-ref self$1008 2) x$170 y$169) (pair? x$170))) (%closure-ref self$1007 7) (%closure-ref self$1007 8)))) (%closure-ref self$1006 1) (%closure-ref self$1006 2) (%closure-ref self$1006 3) (%closure-ref self$1006 4) (%closure-ref self$1006 5) (%closure-ref self$1006 6) (%closure-ref self$1006 7) (%closure-ref self$1006 8) (%closure-ref self$1006 9) (%closure-ref self$1006 10) (%closure-ref self$1006 11) (%closure-ref self$1006 13) (%closure-ref self$1006 14)) (set-cell! (%closure-ref self$1006 12) r$351))) (%closure-ref self$994 1) (%closure-ref self$994 2) (%closure-ref self$994 3) (%closure-ref self$994 4) (%closure-ref self$994 5) (%closure-ref self$994 6) (%closure-ref self$994 7) (%closure-ref self$994 8) (%closure-ref self$994 9) (%closure-ref self$994 10) (%closure-ref self$994 11) (%closure-ref self$994 12) (%closure-ref self$994 13) (%closure-ref self$994 14)) (%closure (lambda (self$995 k$352 n$171) ((%closure (lambda (self$996 r$353) (if r$353 ((%closure (lambda (self$1004) ((%closure (lambda (self$1005 r$354) ((%closure-ref list 0) list (%closure-ref self$1005 1) r$354 0 1)) (%closure-ref self$1004 1)) (quote implies))) (%closure-ref self$996 1))) ((%closure (lambda (self$997) ((%closure (lambda (self$998 r$355) ((%closure (lambda (self$999 r$359) ((%closure (lambda (self$1000 r$360) ((%closure-ref list 0) list (%closure (lambda (self$1001 r$356) ((%closure (lambda (self$1002 r$358) ((%closure-ref (cell-get (%closure-ref self$1002 4)) 0) (cell-get (%closure-ref self$1002 4)) (%closure (lambda (self$1003 r$357) ((%closure-ref list 0) list (%closure-ref self$1003 1) (%closure-ref self$1003 2) (%closure-ref self$1003 3) r$357)) (%closure-ref self$1002 1) (%closure-ref self$1002 2) (%closure-ref self$1002 3)) r$358)) (%closure-ref self$1001 1) (%closure-ref self$1001 3) r$356 (%closure-ref self$1001 4)) (- (%closure-ref self$1001 2) 1))) (%closure-ref self$1000 1) (%closure-ref self$1000 2) (%closure-ref self$1000 3) (%closure-ref self$1000 5)) (%closure-ref self$1000 4) r$360 (%closure-ref self$1000 2))) (%closure-ref self$999 1) (%closure-ref self$999 2) (%closure-ref self$999 3) r$359 (%closure-ref self$999 4)) (- (%closure-ref self$999 2) 1))) (%closure-ref self$998 1) (%closure-ref self$998 2) r$355 (%closure-ref self$998 3)) (quote implies))) (%closure-ref self$997 1) (%closure-ref self$997 2) (%closure-ref self$997 3)) (quote and))) (%closure-ref self$996 1) (%closure-ref self$996 2) (%closure-ref self$996 3))))) k$352 n$171 (%closure-ref self$995 1)) (equal? n$171 1))) (%closure-ref self$994 12)))) (%closure-ref self$993 1) (%closure-ref self$993 2) (%closure-ref self$993 3) (%closure-ref self$993 4) (%closure-ref self$993 5) (%closure-ref self$993 6) (%closure-ref self$993 7) (%closure-ref self$993 8) (%closure-ref self$993 9) (%closure-ref self$993 10) (%closure-ref self$993 11) (%closure-ref self$993 13) (%closure-ref self$993 14) (%closure-ref self$993 15)) (set-cell! (%closure-ref self$993 12) r$361))) (%closure-ref self$986 1) (%closure-ref self$986 2) (%closure-ref self$986 3) (%closure-ref self$986 4) (%closure-ref self$986 5) (%closure-ref self$986 6) (%closure-ref self$986 7) (%closure-ref self$986 8) (%closure-ref self$986 9) (%closure-ref self$986 10) (%closure-ref self$986 11) (%closure-ref self$986 12) (%closure-ref self$986 13) (%closure-ref self$986 14) (%closure-ref self$986 15)) (%closure (lambda (self$987 k$362 n$172) ((%closure (lambda (self$988 r$364) ((%closure-ref (cell-get (%closure-ref self$988 3)) 0) (cell-get (%closure-ref self$988 3)) (%closure (lambda (self$989 r$365) ((%closure (lambda (self$990 r$367) ((%closure-ref list 0) list (%closure (lambda (self$991 r$366) ((%closure-ref list 0) list (%closure (lambda (self$992 r$363) ((%closure-ref (cell-get (%closure-ref self$992 2)) 0) (cell-get (%closure-ref self$992 2)) (%closure-ref self$992 1) r$363)) (%closure-ref self$991 1) (%closure-ref self$991 4)) (%closure-ref self$991 2) (%closure-ref self$991 3) r$366)) (%closure-ref self$990 1) (%closure-ref self$990 3) (%closure-ref self$990 4) (%closure-ref self$990 5)) r$367 0 (%closure-ref self$990 2))) (%closure-ref self$989 1) (%closure-ref self$989 2) (%closure-ref self$989 3) r$365 (%closure-ref self$989 4)) (quote implies))) (%closure-ref self$988 1) (%closure-ref self$988 2) r$364 (%closure-ref self$988 4)) (%closure-ref self$988 2))) k$362 n$172 (%closure-ref self$987 1) (%closure-ref self$987 2)) (quote implies))) (%closure-ref self$986 13) (%closure-ref self$986 14)))) (%closure-ref self$985 1) (%closure-ref self$985 2) (%closure-ref self$985 3) (%closure-ref self$985 4) (%closure-ref self$985 5) (%closure-ref self$985 6) (%closure-ref self$985 7) (%closure-ref self$985 8) (%closure-ref self$985 9) (%closure-ref self$985 10) (%closure-ref self$985 11) (%closure-ref self$985 12) (%closure-ref self$985 13) (%closure-ref self$985 14) (%closure-ref self$985 15)) (set-cell! (%closure-ref self$985 15) r$368))) (%closure-ref self$984 1) (%closure-ref self$984 2) (%closure-ref self$984 3) (%closure-ref self$984 4) (%closure-ref self$984 5) (%closure-ref self$984 6) (%closure-ref self$984 7) (%closure-ref self$984 8) (%closure-ref self$984 9) (%closure-ref self$984 10) (%closure-ref self$984 11) (%closure-ref self$984 12) (%closure-ref self$984 13) (%closure-ref self$984 14) (%closure-ref self$984 15)) (quote *))) (%closure-ref self$983 1) (%closure-ref self$983 2) (%closure-ref self$983 3) (%closure-ref self$983 4) (%closure-ref self$983 5) (%closure-ref self$983 6) (%closure-ref self$983 7) (%closure-ref self$983 8) (%closure-ref self$983 9) (%closure-ref self$983 10) (%closure-ref self$983 11) (%closure-ref self$983 12) (%closure-ref self$983 13) (%closure-ref self$983 14) (%closure-ref self$983 15)) (set-cell! (%closure-ref self$983 2) r$369))) (%closure-ref self$982 1) (%closure-ref self$982 2) (%closure-ref self$982 3) (%closure-ref self$982 4) (%closure-ref self$982 5) (%closure-ref self$982 6) (%closure-ref self$982 7) (%closure-ref self$982 8) (%closure-ref self$982 9) (%closure-ref self$982 10) (%closure-ref self$982 11) (%closure-ref self$982 12) (%closure-ref self$982 13) (%closure-ref self$982 14) (%closure-ref self$982 15)) (quote *))) (%closure-ref self$981 1) (%closure-ref self$981 2) (%closure-ref self$981 3) (%closure-ref self$981 4) (%closure-ref self$981 5) (%closure-ref self$981 6) (%closure-ref self$981 7) (%closure-ref self$981 8) (%closure-ref self$981 9) (%closure-ref self$981 10) (%closure-ref self$981 11) (%closure-ref self$981 12) (%closure-ref self$981 13) (%closure-ref self$981 14) (%closure-ref self$981 15)) (set-cell! (%closure-ref self$981 16) r$370))) (%closure-ref self$978 1) (%closure-ref self$978 2) (%closure-ref self$978 3) (%closure-ref self$978 4) (%closure-ref self$978 5) (%closure-ref self$978 6) (%closure-ref self$978 7) (%closure-ref self$978 8) (%closure-ref self$978 9) (%closure-ref self$978 10) (%closure-ref self$978 11) (%closure-ref self$978 12) (%closure-ref self$978 13) (%closure-ref self$978 14) (%closure-ref self$978 15) (%closure-ref self$978 16)) (%closure (lambda (self$979 k$371 x$174 lst$173) ((%closure-ref (cell-get (%closure-ref self$979 1)) 0) (cell-get (%closure-ref self$979 1)) (%closure (lambda (self$980 tmp$175) (if tmp$175 ((%closure-ref (%closure-ref self$980 1) 0) (%closure-ref self$980 1) tmp$175) ((%closure-ref (cell-get (%closure-ref self$980 3)) 0) (cell-get (%closure-ref self$980 3)) (%closure-ref self$980 1) (%closure-ref self$980 4) (%closure-ref self$980 2)))) k$371 lst$173 (%closure-ref self$979 2) x$174) x$174 (cell-get (%closure-ref self$979 3)))) (%closure-ref self$978 9) (%closure-ref self$978 10) (%closure-ref self$978 15)))) (%closure-ref self$977 1) (%closure-ref self$977 2) (%closure-ref self$977 4) (%closure-ref self$977 5) (%closure-ref self$977 6) (%closure-ref self$977 7) (%closure-ref self$977 8) (%closure-ref self$977 9) (%closure-ref self$977 10) (%closure-ref self$977 11) (%closure-ref self$977 12) (%closure-ref self$977 13) (%closure-ref self$977 14) (%closure-ref self$977 15) (%closure-ref self$977 16) (%closure-ref self$977 17)) (set-cell! (%closure-ref self$977 3) r$373))) (%closure-ref self$974 1) (%closure-ref self$974 2) (%closure-ref self$974 3) (%closure-ref self$974 4) (%closure-ref self$974 5) (%closure-ref self$974 6) (%closure-ref self$974 7) (%closure-ref self$974 8) (%closure-ref self$974 9) (%closure-ref self$974 10) (%closure-ref self$974 11) (%closure-ref self$974 12) (%closure-ref self$974 13) (%closure-ref self$974 14) (%closure-ref self$974 15) (%closure-ref self$974 16) (%closure-ref self$974 17)) (%closure (lambda (self$975 k$374 x$177 lst$176) ((%closure-ref (cell-get (%closure-ref self$975 2)) 0) (cell-get (%closure-ref self$975 2)) (%closure (lambda (self$976 tmp$178) (if tmp$178 ((%closure-ref (%closure-ref self$976 1) 0) (%closure-ref self$976 1) tmp$178) ((%closure-ref (cell-get (%closure-ref self$976 3)) 0) (cell-get (%closure-ref self$976 3)) (%closure-ref self$976 1) (%closure-ref self$976 4) (%closure-ref self$976 2)))) k$374 lst$176 (%closure-ref self$975 3) x$177) x$177 (cell-get (%closure-ref self$975 1)))) (%closure-ref self$974 2) (%closure-ref self$974 10) (%closure-ref self$974 11)))) (%closure-ref self$973 1) (%closure-ref self$973 2) (%closure-ref self$973 3) (%closure-ref self$973 4) (%closure-ref self$973 6) (%closure-ref self$973 7) (%closure-ref self$973 8) (%closure-ref self$973 9) (%closure-ref self$973 10) (%closure-ref self$973 11) (%closure-ref self$973 12) (%closure-ref self$973 13) (%closure-ref self$973 14) (%closure-ref self$973 15) (%closure-ref self$973 16) (%closure-ref self$973 17) (%closure-ref self$973 18)) (set-cell! (%closure-ref self$973 5) r$376))) (%closure-ref self$960 1) (%closure-ref self$960 2) (%closure-ref self$960 3) (%closure-ref self$960 4) (%closure-ref self$960 6) (%closure-ref self$960 7) (%closure-ref self$960 8) (%closure-ref self$960 9) (%closure-ref self$960 10) (%closure-ref self$960 11) (%closure-ref self$960 12) (%closure-ref self$960 13) (%closure-ref self$960 14) (%closure-ref self$960 15) (%closure-ref self$960 16) (%closure-ref self$960 17) (%closure-ref self$960 18) (%closure-ref self$960 19)) (%closure (lambda (self$961 k$377 lst1$180 lst2$179) ((%closure (lambda (self$962 r$378) (if r$378 ((%closure (lambda (self$972) ((%closure-ref (%closure-ref self$972 1) 0) (%closure-ref self$972 1) (null? (%closure-ref self$972 2)))) (%closure-ref self$962 1) (%closure-ref self$962 3))) ((%closure (lambda (self$963 r$379) (if r$379 ((%closure (lambda (self$971) ((%closure-ref (%closure-ref self$971 1) 0) (%closure-ref self$971 1) #f)) (%closure-ref self$963 1))) ((%closure (lambda (self$964 r$383) ((%closure (lambda (self$965 r$384) ((%closure-ref (cell-get (%closure-ref self$965 4)) 0) (cell-get (%closure-ref self$965 4)) (%closure (lambda (self$966 r$380) (if r$380 ((%closure (lambda (self$968) ((%closure (lambda (self$969 r$381) ((%closure (lambda (self$970 r$382) ((%closure-ref (cell-get (%closure-ref self$970 2)) 0) (cell-get (%closure-ref self$970 2)) (%closure-ref self$970 1) (%closure-ref self$970 3) r$382)) (%closure-ref self$969 1) (%closure-ref self$969 3) r$381) (cdr (%closure-ref self$969 2)))) (%closure-ref self$968 1) (%closure-ref self$968 3) (%closure-ref self$968 4)) (cdr (%closure-ref self$968 2)))) (%closure-ref self$966 1) (%closure-ref self$966 2) (%closure-ref self$966 3) (%closure-ref self$966 4))) ((%closure (lambda (self$967) ((%closure-ref (%closure-ref self$967 1) 0) (%closure-ref self$967 1) #f)) (%closure-ref self$966 1))))) (%closure-ref self$965 1) (%closure-ref self$965 2) (%closure-ref self$965 3) (%closure-ref self$965 5)) (%closure-ref self$965 6) r$384)) (%closure-ref self$964 1) (%closure-ref self$964 2) (%closure-ref self$964 3) (%closure-ref self$964 4) (%closure-ref self$964 5) r$383) (car (%closure-ref self$964 3)))) (%closure-ref self$963 1) (%closure-ref self$963 2) (%closure-ref self$963 3) (%closure-ref self$963 4) (%closure-ref self$963 5)) (car (%closure-ref self$963 2))))) (%closure-ref self$962 1) (%closure-ref self$962 2) (%closure-ref self$962 3) (%closure-ref self$962 4) (%closure-ref self$962 5)) (null? (%closure-ref self$962 3))))) k$377 lst1$180 lst2$179 (%closure-ref self$961 1) (%closure-ref self$961 2)) (null? lst1$180))) (%closure-ref self$960 5) (%closure-ref self$960 6)))) (%closure-ref self$959 1) (%closure-ref self$959 2) (%closure-ref self$959 3) (%closure-ref self$959 4) (%closure-ref self$959 5) (%closure-ref self$959 6) (%closure-ref self$959 7) (%closure-ref self$959 8) (%closure-ref self$959 9) (%closure-ref self$959 10) (%closure-ref self$959 11) (%closure-ref self$959 12) (%closure-ref self$959 13) (%closure-ref self$959 14) (%closure-ref self$959 15) (%closure-ref self$959 16) (%closure-ref self$959 17) (%closure-ref self$959 18) (%closure-ref self$959 19)) (set-cell! (%closure-ref self$959 5) r$385))) (%closure-ref self$937 1) (%closure-ref self$937 2) (%closure-ref self$937 3) (%closure-ref self$937 4) (%closure-ref self$937 5) (%closure-ref self$937 6) (%closure-ref self$937 7) (%closure-ref self$937 8) (%closure-ref self$937 9) (%closure-ref self$937 10) (%closure-ref self$937 11) (%closure-ref self$937 12) (%closure-ref self$937 13) (%closure-ref self$937 14) (%closure-ref self$937 15) (%closure-ref self$937 16) (%closure-ref self$937 17) (%closure-ref self$937 18) (%closure-ref self$937 19)) (%closure (lambda (self$938 k$386 term1$182 term2$181) ((%closure (lambda (self$939 r$387) (if r$387 ((%closure (lambda (self$950 r$388) (if r$388 ((%closure (lambda (self$952 r$392) ((%closure (lambda (self$953 r$393) ((%closure (lambda (self$954 r$389) (if r$389 ((%closure (lambda (self$956) ((%closure (lambda (self$957 r$390) ((%closure (lambda (self$958 r$391) ((%closure-ref (cell-get (%closure-ref self$958 2)) 0) (cell-get (%closure-ref self$958 2)) (%closure-ref self$958 1) (%closure-ref self$958 3) r$391)) (%closure-ref self$957 1) (%closure-ref self$957 2) r$390) (cdr (%closure-ref self$957 3)))) (%closure-ref self$956 1) (%closure-ref self$956 2) (%closure-ref self$956 4)) (cdr (%closure-ref self$956 3)))) (%closure-ref self$954 1) (%closure-ref self$954 2) (%closure-ref self$954 3) (%closure-ref self$954 4))) ((%closure (lambda (self$955) ((%closure-ref (%closure-ref self$955 1) 0) (%closure-ref self$955 1) #f)) (%closure-ref self$954 1))))) (%closure-ref self$953 1) (%closure-ref self$953 2) (%closure-ref self$953 4) (%closure-ref self$953 5)) (eq? (%closure-ref self$953 3) r$393))) (%closure-ref self$952 1) (%closure-ref self$952 2) r$392 (%closure-ref self$952 3) (%closure-ref self$952 4)) (car (%closure-ref self$952 4)))) (%closure-ref self$950 1) (%closure-ref self$950 2) (%closure-ref self$950 3) (%closure-ref self$950 4)) (car (%closure-ref self$950 3))) ((%closure (lambda (self$951) ((%closure-ref (%closure-ref self$951 1) 0) (%closure-ref self$951 1) #f)) (%closure-ref self$950 1))))) (%closure-ref self$939 1) (%closure-ref self$939 2) (%closure-ref self$939 4) (%closure-ref self$939 5)) (pair? (%closure-ref self$939 4))) ((%closure (lambda (self$940) ((%closure (lambda (self$941 temp-temp$183) (if temp-temp$183 ((%closure (lambda (self$948) ((%closure (lambda (self$949 r$395) ((%closure-ref (cell-get (%closure-ref self$949 2)) 0) (cell-get (%closure-ref self$949 2)) (%closure-ref self$949 1) (%closure-ref self$949 3) r$395)) (%closure-ref self$948 1) (%closure-ref self$948 3) (%closure-ref self$948 4)) (cdr (%closure-ref self$948 2)))) (%closure-ref self$941 1) temp-temp$183 (%closure-ref self$941 2) (%closure-ref self$941 3))) ((%closure (lambda (self$942 r$396) (if r$396 ((%closure (lambda (self$947) ((%closure-ref (%closure-ref self$947 1) 0) (%closure-ref self$947 1) (equal? (%closure-ref self$947 2) (%closure-ref self$947 3)))) (%closure-ref self$942 1) (%closure-ref self$942 2) (%closure-ref self$942 3))) ((%closure (lambda (self$943) ((%closure (lambda (self$944 r$399) ((%closure (lambda (self$945 r$398) ((%closure (lambda (self$946 r$397) ((%closure-ref (%closure-ref self$946 1) 0) (%closure-ref self$946 1) #t)) (%closure-ref self$945 1)) (set-cell! (%closure-ref self$945 2) r$398))) (%closure-ref self$944 1) (%closure-ref self$944 2)) (cons r$399 (cell-get (%closure-ref self$944 2))))) (%closure-ref self$943 1) (%closure-ref self$943 4)) (cons (%closure-ref self$943 3) (%closure-ref self$943 2)))) (%closure-ref self$942 1) (%closure-ref self$942 2) (%closure-ref self$942 3) (%closure-ref self$942 4))))) (%closure-ref self$941 1) (%closure-ref self$941 3) (%closure-ref self$941 4) (%closure-ref self$941 5)) (number? (%closure-ref self$941 4))))) (%closure-ref self$940 1) (%closure-ref self$940 2) (%closure-ref self$940 3) (%closure-ref self$940 4) (%closure-ref self$940 5)) (assq (%closure-ref self$940 4) (cell-get (%closure-ref self$940 5))))) (%closure-ref self$939 1) (%closure-ref self$939 3) (%closure-ref self$939 4) (%closure-ref self$939 5) (%closure-ref self$939 6))))) k$386 (%closure-ref self$938 1) (%closure-ref self$938 2) term1$182 term2$181 (%closure-ref self$938 3)) (pair? term2$181))) (%closure-ref self$937 6) (%closure-ref self$937 12) (%closure-ref self$937 20)))) (%closure-ref self$936 1) (%closure-ref self$936 2) (%closure-ref self$936 3) (%closure-ref self$936 4) (%closure-ref self$936 6) (%closure-ref self$936 7) (%closure-ref self$936 8) (%closure-ref self$936 9) (%closure-ref self$936 10) (%closure-ref self$936 11) (%closure-ref self$936 12) (%closure-ref self$936 13) (%closure-ref self$936 14) (%closure-ref self$936 15) (%closure-ref self$936 16) (%closure-ref self$936 17) (%closure-ref self$936 18) (%closure-ref self$936 19) (%closure-ref self$936 20) (%closure-ref self$936 21)) (set-cell! (%closure-ref self$936 5) r$400))) (%closure-ref self$932 1) (%closure-ref self$932 2) (%closure-ref self$932 3) (%closure-ref self$932 4) (%closure-ref self$932 5) (%closure-ref self$932 6) (%closure-ref self$932 7) (%closure-ref self$932 8) (%closure-ref self$932 9) (%closure-ref self$932 10) (%closure-ref self$932 11) (%closure-ref self$932 12) (%closure-ref self$932 13) (%closure-ref self$932 14) (%closure-ref self$932 15) (%closure-ref self$932 16) (%closure-ref self$932 17) (%closure-ref self$932 18) (%closure-ref self$932 19) (%closure-ref self$932 20) (%closure-ref self$932 21)) (%closure (lambda (self$933 k$401 term1$185 term2$184) ((%closure (lambda (self$934 r$403) ((%closure (lambda (self$935 r$402) ((%closure-ref (cell-get (%closure-ref self$935 2)) 0) (cell-get (%closure-ref self$935 2)) (%closure-ref self$935 1) (%closure-ref self$935 3) (%closure-ref self$935 4))) (%closure-ref self$934 1) (%closure-ref self$934 2) (%closure-ref self$934 3) (%closure-ref self$934 4)) (set-cell! (%closure-ref self$934 5) r$403))) k$401 (%closure-ref self$933 1) term1$185 term2$184 (%closure-ref self$933 2)) (quote ()))) (%closure-ref self$932 6) (%closure-ref self$932 21)))) (%closure-ref self$931 1) (%closure-ref self$931 2) (%closure-ref self$931 3) (%closure-ref self$931 4) (%closure-ref self$931 5) (%closure-ref self$931 6) (%closure-ref self$931 7) (%closure-ref self$931 8) (%closure-ref self$931 9) (%closure-ref self$931 10) (%closure-ref self$931 11) (%closure-ref self$931 12) (%closure-ref self$931 13) (%closure-ref self$931 14) (%closure-ref self$931 15) (%closure-ref self$931 16) (%closure-ref self$931 17) (%closure-ref self$931 18) (%closure-ref self$931 19) (%closure-ref self$931 20) (%closure-ref self$931 21)) (set-cell! (%closure-ref self$931 21) r$404))) (%closure-ref self$930 1) (%closure-ref self$930 2) (%closure-ref self$930 3) (%closure-ref self$930 4) (%closure-ref self$930 5) (%closure-ref self$930 6) (%closure-ref self$930 7) (%closure-ref self$930 8) (%closure-ref self$930 9) (%closure-ref self$930 10) (%closure-ref self$930 11) (%closure-ref self$930 12) (%closure-ref self$930 13) (%closure-ref self$930 14) (%closure-ref self$930 15) (%closure-ref self$930 16) (%closure-ref self$930 17) (%closure-ref self$930 18) (%closure-ref self$930 19) (%closure-ref self$930 20) (%closure-ref self$930 21)) (quote *))) (%closure-ref self$929 1) (%closure-ref self$929 2) (%closure-ref self$929 3) (%closure-ref self$929 4) (%closure-ref self$929 5) (%closure-ref self$929 6) (%closure-ref self$929 7) (%closure-ref self$929 8) (%closure-ref self$929 10) (%closure-ref self$929 11) (%closure-ref self$929 12) (%closure-ref self$929 13) (%closure-ref self$929 14) (%closure-ref self$929 15) (%closure-ref self$929 16) (%closure-ref self$929 17) (%closure-ref self$929 18) (%closure-ref self$929 19) (%closure-ref self$929 20) (%closure-ref self$929 21) (%closure-ref self$929 22)) (set-cell! (%closure-ref self$929 9) r$405))) (%closure-ref self$916 1) (%closure-ref self$916 3) (%closure-ref self$916 4) (%closure-ref self$916 5) (%closure-ref self$916 6) (%closure-ref self$916 7) (%closure-ref self$916 8) (%closure-ref self$916 10) (%closure-ref self$916 11) (%closure-ref self$916 12) (%closure-ref self$916 13) (%closure-ref self$916 14) (%closure-ref self$916 15) (%closure-ref self$916 16) (%closure-ref self$916 17) (%closure-ref self$916 18) (%closure-ref self$916 19) (%closure-ref self$916 20) (%closure-ref self$916 21) (%closure-ref self$916 22) (%closure-ref self$916 23) (%closure-ref self$916 24)) (%closure (lambda (self$917 k$406 term$187 lst$186) ((%closure (lambda (self$918 r$407) (if r$407 ((%closure (lambda (self$928) ((%closure-ref (%closure-ref self$928 1) 0) (%closure-ref self$928 1) (%closure-ref self$928 2))) (%closure-ref self$918 2) (%closure-ref self$918 7))) ((%closure (lambda (self$919 r$414) ((%closure (lambda (self$920 r$413) ((%closure-ref (cell-get (%closure-ref self$920 4)) 0) (cell-get (%closure-ref self$920 4)) (%closure (lambda (self$921 r$408) (if r$408 ((%closure (lambda (self$924) ((%closure (lambda (self$925 r$411) ((%closure (lambda (self$926 r$410) ((%closure-ref (cell-get (%closure-ref self$926 1)) 0) (cell-get (%closure-ref self$926 1)) (%closure (lambda (self$927 r$409) ((%closure-ref (cell-get (%closure-ref self$927 2)) 0) (cell-get (%closure-ref self$927 2)) (%closure-ref self$927 1) r$409)) (%closure-ref self$926 2) (%closure-ref self$926 3)) (cell-get (%closure-ref self$926 4)) r$410)) (%closure-ref self$925 1) (%closure-ref self$925 2) (%closure-ref self$925 3) (%closure-ref self$925 4)) (caddr r$411))) (%closure-ref self$924 1) (%closure-ref self$924 2) (%closure-ref self$924 4) (%closure-ref self$924 5)) (car (%closure-ref self$924 3)))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3) (%closure-ref self$921 4) (%closure-ref self$921 7))) ((%closure (lambda (self$922) ((%closure (lambda (self$923 r$412) ((%closure-ref (cell-get (%closure-ref self$923 2)) 0) (cell-get (%closure-ref self$923 2)) (%closure-ref self$923 1) (%closure-ref self$923 3) r$412)) (%closure-ref self$922 1) (%closure-ref self$922 3) (%closure-ref self$922 4)) (cdr (%closure-ref self$922 2)))) (%closure-ref self$921 2) (%closure-ref self$921 3) (%closure-ref self$921 5) (%closure-ref self$921 6))))) (%closure-ref self$920 1) (%closure-ref self$920 2) (%closure-ref self$920 3) (%closure-ref self$920 5) (%closure-ref self$920 6) (%closure-ref self$920 7) (%closure-ref self$920 8)) (%closure-ref self$920 7) r$413)) (%closure-ref self$919 1) (%closure-ref self$919 2) (%closure-ref self$919 3) (%closure-ref self$919 4) (%closure-ref self$919 5) (%closure-ref self$919 6) (%closure-ref self$919 7) (%closure-ref self$919 8)) (cadr r$414))) (%closure-ref self$918 1) (%closure-ref self$918 2) (%closure-ref self$918 3) (%closure-ref self$918 4) (%closure-ref self$918 5) (%closure-ref self$918 6) (%closure-ref self$918 7) (%closure-ref self$918 8)) (car (%closure-ref self$918 3))))) (%closure-ref self$917 1) k$406 lst$186 (%closure-ref self$917 2) (%closure-ref self$917 3) (%closure-ref self$917 4) term$187 (%closure-ref self$917 5)) (null? lst$186))) (%closure-ref self$916 2) (%closure-ref self$916 6) (%closure-ref self$916 9) (%closure-ref self$916 11) (%closure-ref self$916 24)))) (%closure-ref self$915 1) (%closure-ref self$915 2) (%closure-ref self$915 3) (%closure-ref self$915 4) (%closure-ref self$915 5) (%closure-ref self$915 6) (%closure-ref self$915 7) (%closure-ref self$915 8) (%closure-ref self$915 9) (%closure-ref self$915 11) (%closure-ref self$915 12) (%closure-ref self$915 13) (%closure-ref self$915 14) (%closure-ref self$915 15) (%closure-ref self$915 16) (%closure-ref self$915 17) (%closure-ref self$915 18) (%closure-ref self$915 19) (%closure-ref self$915 20) (%closure-ref self$915 21) (%closure-ref self$915 22) (%closure-ref self$915 23) (%closure-ref self$915 24) (%closure-ref self$915 25)) (set-cell! (%closure-ref self$915 10) r$415))) (%closure-ref self$906 1) (%closure-ref self$906 2) (%closure-ref self$906 3) (%closure-ref self$906 4) (%closure-ref self$906 5) (%closure-ref self$906 6) (%closure-ref self$906 7) (%closure-ref self$906 8) (%closure-ref self$906 9) (%closure-ref self$906 10) (%closure-ref self$906 11) (%closure-ref self$906 12) (%closure-ref self$906 14) (%closure-ref self$906 15) (%closure-ref self$906 16) (%closure-ref self$906 17) (%closure-ref self$906 18) (%closure-ref self$906 19) (%closure-ref self$906 20) (%closure-ref self$906 21) (%closure-ref self$906 22) (%closure-ref self$906 23) (%closure-ref self$906 24) (%closure-ref self$906 25) (%closure-ref self$906 26)) (%closure (lambda (self$907 k$416 lst$188) ((%closure (lambda (self$908 r$417) (if r$417 ((%closure (lambda (self$914) ((%closure-ref (%closure-ref self$914 1) 0) (%closure-ref self$914 1) (quote ()))) (%closure-ref self$908 1))) ((%closure (lambda (self$909) ((%closure (lambda (self$910 r$421) ((%closure-ref (cell-get (%closure-ref self$910 3)) 0) (cell-get (%closure-ref self$910 3)) (%closure (lambda (self$911 r$418) ((%closure (lambda (self$912 r$420) ((%closure-ref (cell-get (%closure-ref self$912 4)) 0) (cell-get (%closure-ref self$912 4)) (%closure (lambda (self$913 r$419) ((%closure-ref (cell-get (%closure-ref self$913 4)) 0) (cell-get (%closure-ref self$913 4)) (%closure-ref self$913 1) (%closure-ref self$913 3) r$419 (%closure-ref self$913 2))) (%closure-ref self$912 1) (%closure-ref self$912 2) (%closure-ref self$912 3) (%closure-ref self$912 5)) r$420)) (%closure-ref self$911 1) (%closure-ref self$911 2) r$418 (%closure-ref self$911 3) (%closure-ref self$911 4)) (cdr (%closure-ref self$911 2)))) (%closure-ref self$910 1) (%closure-ref self$910 2) (%closure-ref self$910 4) (%closure-ref self$910 5)) r$421)) (%closure-ref self$909 1) (%closure-ref self$909 2) (%closure-ref self$909 3) (%closure-ref self$909 4) (%closure-ref self$909 5)) (car (%closure-ref self$909 2)))) (%closure-ref self$908 1) (%closure-ref self$908 2) (%closure-ref self$908 3) (%closure-ref self$908 4) (%closure-ref self$908 5))))) k$416 lst$188 (%closure-ref self$907 1) (%closure-ref self$907 2) (%closure-ref self$907 3)) (null? lst$188))) (%closure-ref self$906 9) (%closure-ref self$906 10) (%closure-ref self$906 13)))) (%closure-ref self$905 1) (%closure-ref self$905 2) (%closure-ref self$905 3) (%closure-ref self$905 4) (%closure-ref self$905 5) (%closure-ref self$905 6) (%closure-ref self$905 7) (%closure-ref self$905 8) (%closure-ref self$905 9) (%closure-ref self$905 10) (%closure-ref self$905 11) (%closure-ref self$905 12) (%closure-ref self$905 13) (%closure-ref self$905 14) (%closure-ref self$905 15) (%closure-ref self$905 16) (%closure-ref self$905 17) (%closure-ref self$905 18) (%closure-ref self$905 19) (%closure-ref self$905 20) (%closure-ref self$905 21) (%closure-ref self$905 22) (%closure-ref self$905 23) (%closure-ref self$905 24) (%closure-ref self$905 25) (%closure-ref self$905 26)) (set-cell! (%closure-ref self$905 9) r$422))) (%closure-ref self$892 1) (%closure-ref self$892 2) (%closure-ref self$892 3) (%closure-ref self$892 4) (%closure-ref self$892 6) (%closure-ref self$892 7) (%closure-ref self$892 8) (%closure-ref self$892 9) (%closure-ref self$892 10) (%closure-ref self$892 11) (%closure-ref self$892 12) (%closure-ref self$892 13) (%closure-ref self$892 14) (%closure-ref self$892 15) (%closure-ref self$892 16) (%closure-ref self$892 17) (%closure-ref self$892 18) (%closure-ref self$892 19) (%closure-ref self$892 20) (%closure-ref self$892 21) (%closure-ref self$892 22) (%closure-ref self$892 23) (%closure-ref self$892 24) (%closure-ref self$892 25) (%closure-ref self$892 26) (%closure-ref self$892 27)) (%closure (lambda (self$893 k$423 term$189) ((%closure (lambda (self$894 r$432) ((%closure (lambda (self$895 r$424) ((%closure (lambda (self$896 r$425) (if r$425 ((%closure (lambda (self$898) ((%closure (lambda (self$899 r$429) ((%closure (lambda (self$900 r$431) ((%closure-ref (cell-get (%closure-ref self$900 4)) 0) (cell-get (%closure-ref self$900 4)) (%closure (lambda (self$901 r$430) ((%closure-ref (cell-get (%closure-ref self$901 5)) 0) (cell-get (%closure-ref self$901 5)) (%closure (lambda (self$902 r$426) ((%closure (lambda (self$903 r$428) ((%closure-ref (cell-get (%closure-ref self$903 1)) 0) (cell-get (%closure-ref self$903 1)) (%closure (lambda (self$904 r$427) ((%closure-ref (cell-get (%closure-ref self$904 3)) 0) (cell-get (%closure-ref self$904 3)) (%closure-ref self$904 1) (%closure-ref self$904 2) r$427)) (%closure-ref self$903 2) (%closure-ref self$903 3) (%closure-ref self$903 4)) r$428)) (%closure-ref self$902 1) (%closure-ref self$902 2) r$426 (%closure-ref self$902 3)) (car (%closure-ref self$902 4)))) (%closure-ref self$901 1) (%closure-ref self$901 2) (%closure-ref self$901 4) (%closure-ref self$901 6)) (%closure-ref self$901 3) r$430 (%closure-ref self$901 6))) (%closure-ref self$900 1) (%closure-ref self$900 2) (%closure-ref self$900 3) (%closure-ref self$900 5) (%closure-ref self$900 6) (%closure-ref self$900 7)) r$431)) (%closure-ref self$899 1) (%closure-ref self$899 2) r$429 (%closure-ref self$899 3) (%closure-ref self$899 4) (%closure-ref self$899 5) (%closure-ref self$899 6)) (cdr (%closure-ref self$899 6)))) (%closure-ref self$898 1) (%closure-ref self$898 2) (%closure-ref self$898 3) (%closure-ref self$898 4) (%closure-ref self$898 5) (%closure-ref self$898 6)) (car (%closure-ref self$898 6)))) (%closure-ref self$896 1) (%closure-ref self$896 2) (%closure-ref self$896 3) (%closure-ref self$896 4) (%closure-ref self$896 5) (%closure-ref self$896 6))) ((%closure (lambda (self$897) ((%closure-ref (%closure-ref self$897 1) 0) (%closure-ref self$897 1) (%closure-ref self$897 2))) (%closure-ref self$896 2) (%closure-ref self$896 6))))) (%closure-ref self$895 1) (%closure-ref self$895 2) (%closure-ref self$895 3) (%closure-ref self$895 4) (%closure-ref self$895 5) (%closure-ref self$895 6)) (pair? (%closure-ref self$895 6)))) (%closure-ref self$894 1) (%closure-ref self$894 2) (%closure-ref self$894 3) (%closure-ref self$894 5) (%closure-ref self$894 6) (%closure-ref self$894 7)) (set-cell! (%closure-ref self$894 4) r$432))) (%closure-ref self$893 1) k$423 (%closure-ref self$893 2) (%closure-ref self$893 3) (%closure-ref self$893 4) (%closure-ref self$893 5) term$189) (+ (cell-get (%closure-ref self$893 3)) 1))) (%closure-ref self$892 5) (%closure-ref self$892 11) (%closure-ref self$892 12) (%closure-ref self$892 13) (%closure-ref self$892 14)))) (%closure-ref self$891 1) (%closure-ref self$891 2) (%closure-ref self$891 3) (%closure-ref self$891 4) (%closure-ref self$891 5) (%closure-ref self$891 6) (%closure-ref self$891 7) (%closure-ref self$891 8) (%closure-ref self$891 9) (%closure-ref self$891 10) (%closure-ref self$891 11) (%closure-ref self$891 12) (%closure-ref self$891 13) (%closure-ref self$891 14) (%closure-ref self$891 15) (%closure-ref self$891 16) (%closure-ref self$891 17) (%closure-ref self$891 18) (%closure-ref self$891 19) (%closure-ref self$891 20) (%closure-ref self$891 21) (%closure-ref self$891 22) (%closure-ref self$891 23) (%closure-ref self$891 24) (%closure-ref self$891 25) (%closure-ref self$891 26) (%closure-ref self$891 27)) (set-cell! (%closure-ref self$891 14) r$433))) (%closure-ref self$884 1) (%closure-ref self$884 2) (%closure-ref self$884 3) (%closure-ref self$884 4) (%closure-ref self$884 5) (%closure-ref self$884 6) (%closure-ref self$884 7) (%closure-ref self$884 8) (%closure-ref self$884 9) (%closure-ref self$884 10) (%closure-ref self$884 11) (%closure-ref self$884 12) (%closure-ref self$884 13) (%closure-ref self$884 14) (%closure-ref self$884 15) (%closure-ref self$884 16) (%closure-ref self$884 17) (%closure-ref self$884 18) (%closure-ref self$884 19) (%closure-ref self$884 20) (%closure-ref self$884 21) (%closure-ref self$884 22) (%closure-ref self$884 23) (%closure-ref self$884 24) (%closure-ref self$884 25) (%closure-ref self$884 26) (%closure-ref self$884 27)) (%closure (lambda (self$885 k$434 x$192 y$191 original$190) ((%closure (lambda (self$887 k$436) ((%closure (lambda (self$888 r$439) ((%closure (lambda (self$889 r$437) (if r$437 ((%closure (lambda (self$890 r$438) ((%closure-ref (%closure-ref self$890 1) 0) (%closure-ref self$890 1) (eq? (%closure-ref self$890 2) r$438))) (%closure-ref self$889 1) (%closure-ref self$889 3)) (cdr (%closure-ref self$889 2))) ((%closure-ref (%closure-ref self$889 1) 0) (%closure-ref self$889 1) #f))) (%closure-ref self$888 1) (%closure-ref self$888 2) (%closure-ref self$888 4)) (eq? (%closure-ref self$888 3) r$439))) k$436 (%closure-ref self$887 1) (%closure-ref self$887 2) (%closure-ref self$887 3)) (car (%closure-ref self$887 1)))) original$190 x$192 y$191) (%closure (lambda (self$886 r$435) (if r$435 ((%closure-ref (%closure-ref self$886 1) 0) (%closure-ref self$886 1) (%closure-ref self$886 2)) ((%closure-ref (%closure-ref self$886 1) 0) (%closure-ref self$886 1) (cons (%closure-ref self$886 3) (%closure-ref self$886 4))))) k$434 original$190 x$192 y$191)))))) (%closure-ref self$883 1) (%closure-ref self$883 2) (%closure-ref self$883 3) (%closure-ref self$883 4) (%closure-ref self$883 5) (%closure-ref self$883 6) (%closure-ref self$883 7) (%closure-ref self$883 8) (%closure-ref self$883 9) (%closure-ref self$883 10) (%closure-ref self$883 11) (%closure-ref self$883 12) (%closure-ref self$883 13) (%closure-ref self$883 14) (%closure-ref self$883 15) (%closure-ref self$883 16) (%closure-ref self$883 17) (%closure-ref self$883 18) (%closure-ref self$883 19) (%closure-ref self$883 20) (%closure-ref self$883 21) (%closure-ref self$883 22) (%closure-ref self$883 23) (%closure-ref self$883 24) (%closure-ref self$883 25) (%closure-ref self$883 26) (%closure-ref self$883 27)) (set-cell! (%closure-ref self$883 12) 0))) (%closure-ref self$882 1) (%closure-ref self$882 2) (%closure-ref self$882 3) (%closure-ref self$882 4) (%closure-ref self$882 5) (%closure-ref self$882 6) (%closure-ref self$882 7) (%closure-ref self$882 8) (%closure-ref self$882 9) (%closure-ref self$882 10) (%closure-ref self$882 11) (%closure-ref self$882 12) (%closure-ref self$882 13) (%closure-ref self$882 14) (%closure-ref self$882 15) (%closure-ref self$882 16) (%closure-ref self$882 17) (%closure-ref self$882 18) (%closure-ref self$882 19) (%closure-ref self$882 20) (%closure-ref self$882 21) (%closure-ref self$882 22) (%closure-ref self$882 23) (%closure-ref self$882 24) (%closure-ref self$882 25) (%closure-ref self$882 26) (%closure-ref self$882 27)) (set-cell! (%closure-ref self$882 6) r$440))) (%closure-ref self$881 1) (%closure-ref self$881 2) (%closure-ref self$881 3) (%closure-ref self$881 4) (%closure-ref self$881 5) (%closure-ref self$881 6) (%closure-ref self$881 7) (%closure-ref self$881 8) (%closure-ref self$881 9) (%closure-ref self$881 10) (%closure-ref self$881 11) (%closure-ref self$881 12) (%closure-ref self$881 13) (%closure-ref self$881 14) (%closure-ref self$881 15) (%closure-ref self$881 16) (%closure-ref self$881 17) (%closure-ref self$881 18) (%closure-ref self$881 19) (%closure-ref self$881 20) (%closure-ref self$881 21) (%closure-ref self$881 22) (%closure-ref self$881 23) (%closure-ref self$881 24) (%closure-ref self$881 25) (%closure-ref self$881 26) (%closure-ref self$881 27)) (quote *))) (%closure-ref self$880 1) (%closure-ref self$880 2) (%closure-ref self$880 3) (%closure-ref self$880 4) (%closure-ref self$880 5) (%closure-ref self$880 6) (%closure-ref self$880 7) (%closure-ref self$880 8) (%closure-ref self$880 9) (%closure-ref self$880 10) (%closure-ref self$880 11) (%closure-ref self$880 12) (%closure-ref self$880 13) (%closure-ref self$880 14) (%closure-ref self$880 15) (%closure-ref self$880 16) (%closure-ref self$880 17) (%closure-ref self$880 19) (%closure-ref self$880 20) (%closure-ref self$880 21) (%closure-ref self$880 22) (%closure-ref self$880 23) (%closure-ref self$880 24) (%closure-ref self$880 25) (%closure-ref self$880 26) (%closure-ref self$880 27) (%closure-ref self$880 28)) (set-cell! (%closure-ref self$880 18) r$441))) (%closure-ref self$852 1) (%closure-ref self$852 2) (%closure-ref self$852 3) (%closure-ref self$852 4) (%closure-ref self$852 5) (%closure-ref self$852 6) (%closure-ref self$852 7) (%closure-ref self$852 8) (%closure-ref self$852 9) (%closure-ref self$852 10) (%closure-ref self$852 11) (%closure-ref self$852 12) (%closure-ref self$852 13) (%closure-ref self$852 14) (%closure-ref self$852 15) (%closure-ref self$852 16) (%closure-ref self$852 17) (%closure-ref self$852 18) (%closure-ref self$852 19) (%closure-ref self$852 20) (%closure-ref self$852 21) (%closure-ref self$852 22) (%closure-ref self$852 23) (%closure-ref self$852 24) (%closure-ref self$852 25) (%closure-ref self$852 26) (%closure-ref self$852 27) (%closure-ref self$852 28)) (%closure (lambda (self$853 k$442 x$195 true-lst$194 false-lst$193) ((%closure-ref (cell-get (%closure-ref self$853 4)) 0) (cell-get (%closure-ref self$853 4)) (%closure (lambda (self$854 r$443) (if r$443 ((%closure (lambda (self$879) ((%closure-ref (%closure-ref self$879 1) 0) (%closure-ref self$879 1) #t)) (%closure-ref self$854 4))) ((%closure-ref (cell-get (%closure-ref self$854 2)) 0) (cell-get (%closure-ref self$854 2)) (%closure (lambda (self$855 r$444) (if r$444 ((%closure (lambda (self$878) ((%closure-ref (%closure-ref self$878 1) 0) (%closure-ref self$878 1) #f)) (%closure-ref self$855 4))) ((%closure (lambda (self$856 r$445) (if r$445 ((%closure (lambda (self$858 r$460) ((%closure (lambda (self$859 r$446) (if r$446 ((%closure (lambda (self$861) ((%closure (lambda (self$862 r$459) ((%closure-ref (cell-get (%closure-ref self$862 6)) 0) (cell-get (%closure-ref self$862 6)) (%closure (lambda (self$863 r$447) (if r$447 ((%closure (lambda (self$876) ((%closure (lambda (self$877 r$448) ((%closure-ref (cell-get (%closure-ref self$877 3)) 0) (cell-get (%closure-ref self$877 3)) (%closure-ref self$877 2) r$448 (%closure-ref self$877 4) (%closure-ref self$877 1))) (%closure-ref self$876 1) (%closure-ref self$876 2) (%closure-ref self$876 3) (%closure-ref self$876 4)) (caddr (%closure-ref self$876 5)))) (%closure-ref self$863 1) (%closure-ref self$863 3) (%closure-ref self$863 4) (%closure-ref self$863 5) (%closure-ref self$863 6))) ((%closure (lambda (self$864 r$458) ((%closure-ref (cell-get (%closure-ref self$864 2)) 0) (cell-get (%closure-ref self$864 2)) (%closure (lambda (self$865 r$449) (if r$449 ((%closure (lambda (self$874) ((%closure (lambda (self$875 r$450) ((%closure-ref (cell-get (%closure-ref self$875 3)) 0) (cell-get (%closure-ref self$875 3)) (%closure-ref self$875 2) r$450 (%closure-ref self$875 4) (%closure-ref self$875 1))) (%closure-ref self$874 1) (%closure-ref self$874 2) (%closure-ref self$874 3) (%closure-ref self$874 4)) (cadddr (%closure-ref self$874 5)))) (%closure-ref self$865 1) (%closure-ref self$865 2) (%closure-ref self$865 3) (%closure-ref self$865 4) (%closure-ref self$865 5))) ((%closure (lambda (self$866) ((%closure (lambda (self$867 r$455) ((%closure (lambda (self$868 r$457) ((%closure (lambda (self$869 r$456) ((%closure-ref (cell-get (%closure-ref self$869 4)) 0) (cell-get (%closure-ref self$869 4)) (%closure (lambda (self$870 r$451) (if r$451 ((%closure (lambda (self$871 r$452) ((%closure (lambda (self$872 r$454) ((%closure (lambda (self$873 r$453) ((%closure-ref (cell-get (%closure-ref self$873 3)) 0) (cell-get (%closure-ref self$873 3)) (%closure-ref self$873 1) (%closure-ref self$873 2) (%closure-ref self$873 4) r$453)) (%closure-ref self$872 2) (%closure-ref self$872 3) (%closure-ref self$872 4) (%closure-ref self$872 5)) (cons r$454 (%closure-ref self$872 1)))) (%closure-ref self$871 1) (%closure-ref self$871 2) r$452 (%closure-ref self$871 3) (%closure-ref self$871 4)) (cadr (%closure-ref self$871 5)))) (%closure-ref self$870 1) (%closure-ref self$870 2) (%closure-ref self$870 3) (%closure-ref self$870 4) (%closure-ref self$870 5)) (cadddr (%closure-ref self$870 5))) ((%closure-ref (%closure-ref self$870 2) 0) (%closure-ref self$870 2) #f))) (%closure-ref self$869 1) (%closure-ref self$869 2) (%closure-ref self$869 4) (%closure-ref self$869 5) (%closure-ref self$869 6)) (%closure-ref self$869 3) r$456 (%closure-ref self$869 1))) (%closure-ref self$868 1) (%closure-ref self$868 2) (%closure-ref self$868 3) (%closure-ref self$868 4) (%closure-ref self$868 5) (%closure-ref self$868 6)) (cons r$457 (%closure-ref self$868 5)))) (%closure-ref self$867 1) (%closure-ref self$867 2) r$455 (%closure-ref self$867 3) (%closure-ref self$867 4) (%closure-ref self$867 5)) (cadr (%closure-ref self$867 5)))) (%closure-ref self$866 1) (%closure-ref self$866 2) (%closure-ref self$866 3) (%closure-ref self$866 4) (%closure-ref self$866 5)) (caddr (%closure-ref self$866 5)))) (%closure-ref self$865 1) (%closure-ref self$865 2) (%closure-ref self$865 3) (%closure-ref self$865 4) (%closure-ref self$865 5))))) (%closure-ref self$864 1) (%closure-ref self$864 3) (%closure-ref self$864 4) (%closure-ref self$864 5) (%closure-ref self$864 6)) r$458 (%closure-ref self$864 1))) (%closure-ref self$863 1) (%closure-ref self$863 2) (%closure-ref self$863 3) (%closure-ref self$863 4) (%closure-ref self$863 5) (%closure-ref self$863 6)) (cadr (%closure-ref self$863 6))))) (%closure-ref self$862 1) (%closure-ref self$862 2) (%closure-ref self$862 3) (%closure-ref self$862 4) (%closure-ref self$862 5) (%closure-ref self$862 7)) r$459 (%closure-ref self$862 5))) (%closure-ref self$861 1) (%closure-ref self$861 2) (%closure-ref self$861 3) (%closure-ref self$861 4) (%closure-ref self$861 5) (%closure-ref self$861 6) (%closure-ref self$861 7)) (cadr (%closure-ref self$861 7)))) (%closure-ref self$859 1) (%closure-ref self$859 2) (%closure-ref self$859 3) (%closure-ref self$859 4) (%closure-ref self$859 5) (%closure-ref self$859 6) (%closure-ref self$859 7))) ((%closure (lambda (self$860) ((%closure-ref (%closure-ref self$860 1) 0) (%closure-ref self$860 1) #f)) (%closure-ref self$859 3))))) (%closure-ref self$858 1) (%closure-ref self$858 2) (%closure-ref self$858 4) (%closure-ref self$858 5) (%closure-ref self$858 6) (%closure-ref self$858 7) (%closure-ref self$858 8)) (eq? r$460 (cell-get (%closure-ref self$858 3))))) (%closure-ref self$856 1) (%closure-ref self$856 2) (%closure-ref self$856 3) (%closure-ref self$856 4) (%closure-ref self$856 5) (%closure-ref self$856 6) (%closure-ref self$856 7) (%closure-ref self$856 8)) (car (%closure-ref self$856 8))) ((%closure (lambda (self$857) ((%closure-ref (%closure-ref self$857 1) 0) (%closure-ref self$857 1) #f)) (%closure-ref self$856 4))))) (%closure-ref self$855 1) (%closure-ref self$855 2) (%closure-ref self$855 3) (%closure-ref self$855 4) (%closure-ref self$855 5) (%closure-ref self$855 6) (%closure-ref self$855 7) (%closure-ref self$855 8)) (pair? (%closure-ref self$855 8))))) (%closure-ref self$854 1) (%closure-ref self$854 2) (%closure-ref self$854 3) (%closure-ref self$854 4) (%closure-ref self$854 5) (%closure-ref self$854 6) (%closure-ref self$854 7) (%closure-ref self$854 8)) (%closure-ref self$854 8) (%closure-ref self$854 1)))) false-lst$193 (%closure-ref self$853 1) (%closure-ref self$853 2) k$442 (%closure-ref self$853 3) true-lst$194 (%closure-ref self$853 4) x$195) x$195 true-lst$194)) (%closure-ref self$852 4) (%closure-ref self$852 6) (%closure-ref self$852 18) (%closure-ref self$852 27)))) (%closure-ref self$851 1) (%closure-ref self$851 2) (%closure-ref self$851 3) (%closure-ref self$851 4) (%closure-ref self$851 5) (%closure-ref self$851 6) (%closure-ref self$851 7) (%closure-ref self$851 8) (%closure-ref self$851 9) (%closure-ref self$851 10) (%closure-ref self$851 11) (%closure-ref self$851 12) (%closure-ref self$851 13) (%closure-ref self$851 14) (%closure-ref self$851 15) (%closure-ref self$851 16) (%closure-ref self$851 17) (%closure-ref self$851 18) (%closure-ref self$851 20) (%closure-ref self$851 21) (%closure-ref self$851 22) (%closure-ref self$851 23) (%closure-ref self$851 24) (%closure-ref self$851 25) (%closure-ref self$851 26) (%closure-ref self$851 27) (%closure-ref self$851 28) (%closure-ref self$851 29)) (set-cell! (%closure-ref self$851 19) r$461))) (%closure-ref self$846 1) (%closure-ref self$846 2) (%closure-ref self$846 3) (%closure-ref self$846 4) (%closure-ref self$846 5) (%closure-ref self$846 6) (%closure-ref self$846 7) (%closure-ref self$846 8) (%closure-ref self$846 9) (%closure-ref self$846 10) (%closure-ref self$846 11) (%closure-ref self$846 12) (%closure-ref self$846 13) (%closure-ref self$846 14) (%closure-ref self$846 15) (%closure-ref self$846 16) (%closure-ref self$846 17) (%closure-ref self$846 18) (%closure-ref self$846 19) (%closure-ref self$846 20) (%closure-ref self$846 21) (%closure-ref self$846 22) (%closure-ref self$846 23) (%closure-ref self$846 24) (%closure-ref self$846 25) (%closure-ref self$846 26) (%closure-ref self$846 27) (%closure-ref self$846 28) (%closure-ref self$846 29)) (%closure (lambda (self$847 k$462 x$196) ((%closure-ref (cell-get (%closure-ref self$847 1)) 0) (cell-get (%closure-ref self$847 1)) (%closure (lambda (self$848 r$463) ((%closure (lambda (self$849 r$464) ((%closure (lambda (self$850 r$465) ((%closure-ref (cell-get (%closure-ref self$850 4)) 0) (cell-get (%closure-ref self$850 4)) (%closure-ref self$850 1) (%closure-ref self$850 2) (%closure-ref self$850 3) r$465)) (%closure-ref self$849 1) (%closure-ref self$849 2) r$464 (%closure-ref self$849 3)) (quote ()))) (%closure-ref self$848 1) r$463 (%closure-ref self$848 2)) (quote ()))) k$462 (%closure-ref self$847 2)) x$196)) (%closure-ref self$846 10) (%closure-ref self$846 18)))) (%closure-ref self$845 1) (%closure-ref self$845 2) (%closure-ref self$845 4) (%closure-ref self$845 5) (%closure-ref self$845 6) (%closure-ref self$845 7) (%closure-ref self$845 8) (%closure-ref self$845 9) (%closure-ref self$845 10) (%closure-ref self$845 11) (%closure-ref self$845 12) (%closure-ref self$845 13) (%closure-ref self$845 14) (%closure-ref self$845 15) (%closure-ref self$845 16) (%closure-ref self$845 17) (%closure-ref self$845 18) (%closure-ref self$845 19) (%closure-ref self$845 20) (%closure-ref self$845 21) (%closure-ref self$845 22) (%closure-ref self$845 23) (%closure-ref self$845 24) (%closure-ref self$845 25) (%closure-ref self$845 26) (%closure-ref self$845 27) (%closure-ref self$845 28) (%closure-ref self$845 29) (%closure-ref self$845 30)) (set-cell! (%closure-ref self$845 3) r$466))) (%closure-ref self$836 1) (%closure-ref self$836 2) (%closure-ref self$836 3) (%closure-ref self$836 4) (%closure-ref self$836 5) (%closure-ref self$836 6) (%closure-ref self$836 7) (%closure-ref self$836 8) (%closure-ref self$836 9) (%closure-ref self$836 10) (%closure-ref self$836 11) (%closure-ref self$836 12) (%closure-ref self$836 13) (%closure-ref self$836 14) (%closure-ref self$836 15) (%closure-ref self$836 16) (%closure-ref self$836 17) (%closure-ref self$836 18) (%closure-ref self$836 19) (%closure-ref self$836 20) (%closure-ref self$836 21) (%closure-ref self$836 22) (%closure-ref self$836 23) (%closure-ref self$836 24) (%closure-ref self$836 25) (%closure-ref self$836 26) (%closure-ref self$836 27) (%closure-ref self$836 28) (%closure-ref self$836 29) (%closure-ref self$836 30)) (%closure (lambda (self$837 k$467 alist$198 lst$197) ((%closure (lambda (self$838 r$468) (if r$468 ((%closure (lambda (self$844) ((%closure-ref (%closure-ref self$844 1) 0) (%closure-ref self$844 1) (quote ()))) (%closure-ref self$838 4))) ((%closure (lambda (self$839) ((%closure (lambda (self$840 r$472) ((%closure-ref (cell-get (%closure-ref self$840 2)) 0) (cell-get (%closure-ref self$840 2)) (%closure (lambda (self$841 r$469) ((%closure (lambda (self$842 r$471) ((%closure-ref (cell-get (%closure-ref self$842 2)) 0) (cell-get (%closure-ref self$842 2)) (%closure (lambda (self$843 r$470) ((%closure-ref (%closure-ref self$843 1) 0) (%closure-ref self$843 1) (cons (%closure-ref self$843 2) r$470))) (%closure-ref self$842 3) (%closure-ref self$842 4)) (%closure-ref self$842 1) r$471)) (%closure-ref self$841 1) (%closure-ref self$841 2) (%closure-ref self$841 3) r$469) (cdr (%closure-ref self$841 4)))) (%closure-ref self$840 1) (%closure-ref self$840 3) (%closure-ref self$840 4) (%closure-ref self$840 5)) (%closure-ref self$840 1) r$472)) (%closure-ref self$839 1) (%closure-ref self$839 2) (%closure-ref self$839 3) (%closure-ref self$839 4) (%closure-ref self$839 5)) (car (%closure-ref self$839 5)))) (%closure-ref self$838 1) (%closure-ref self$838 2) (%closure-ref self$838 3) (%closure-ref self$838 4) (%closure-ref self$838 5))))) alist$198 (%closure-ref self$837 1) (%closure-ref self$837 2) k$467 lst$197) (null? lst$197))) (%closure-ref self$836 2) (%closure-ref self$836 3)))) (%closure-ref self$835 1) (%closure-ref self$835 2) (%closure-ref self$835 3) (%closure-ref self$835 4) (%closure-ref self$835 5) (%closure-ref self$835 6) (%closure-ref self$835 7) (%closure-ref self$835 8) (%closure-ref self$835 9) (%closure-ref self$835 10) (%closure-ref self$835 11) (%closure-ref self$835 12) (%closure-ref self$835 13) (%closure-ref self$835 14) (%closure-ref self$835 15) (%closure-ref self$835 16) (%closure-ref self$835 17) (%closure-ref self$835 18) (%closure-ref self$835 19) (%closure-ref self$835 20) (%closure-ref self$835 21) (%closure-ref self$835 22) (%closure-ref self$835 23) (%closure-ref self$835 24) (%closure-ref self$835 25) (%closure-ref self$835 26) (%closure-ref self$835 27) (%closure-ref self$835 28) (%closure-ref self$835 29) (%closure-ref self$835 30)) (set-cell! (%closure-ref self$835 2) r$473))) (%closure-ref self$826 1) (%closure-ref self$826 2) (%closure-ref self$826 3) (%closure-ref self$826 4) (%closure-ref self$826 5) (%closure-ref self$826 6) (%closure-ref self$826 7) (%closure-ref self$826 8) (%closure-ref self$826 9) (%closure-ref self$826 10) (%closure-ref self$826 11) (%closure-ref self$826 12) (%closure-ref self$826 13) (%closure-ref self$826 14) (%closure-ref self$826 15) (%closure-ref self$826 16) (%closure-ref self$826 17) (%closure-ref self$826 18) (%closure-ref self$826 19) (%closure-ref self$826 20) (%closure-ref self$826 21) (%closure-ref self$826 22) (%closure-ref self$826 23) (%closure-ref self$826 24) (%closure-ref self$826 25) (%closure-ref self$826 26) (%closure-ref self$826 27) (%closure-ref self$826 28) (%closure-ref self$826 29) (%closure-ref self$826 30)) (%closure (lambda (self$827 k$474 alist$200 term$199) ((%closure (lambda (self$828 r$475) (if r$475 ((%closure (lambda (self$831) ((%closure (lambda (self$832 r$476) ((%closure (lambda (self$833 r$478) ((%closure-ref (cell-get (%closure-ref self$833 2)) 0) (cell-get (%closure-ref self$833 2)) (%closure (lambda (self$834 r$477) ((%closure-ref (%closure-ref self$834 1) 0) (%closure-ref self$834 1) (cons (%closure-ref self$834 2) r$477))) (%closure-ref self$833 3) (%closure-ref self$833 4)) (%closure-ref self$833 1) r$478)) (%closure-ref self$832 1) (%closure-ref self$832 2) (%closure-ref self$832 3) r$476) (cdr (%closure-ref self$832 4)))) (%closure-ref self$831 1) (%closure-ref self$831 2) (%closure-ref self$831 3) (%closure-ref self$831 4)) (car (%closure-ref self$831 4)))) (%closure-ref self$828 1) (%closure-ref self$828 2) (%closure-ref self$828 3) (%closure-ref self$828 4))) ((%closure (lambda (self$829) ((%closure (lambda (self$830 temp-temp$201) (if temp-temp$201 ((%closure-ref (%closure-ref self$830 1) 0) (%closure-ref self$830 1) (cdr temp-temp$201)) ((%closure-ref (%closure-ref self$830 1) 0) (%closure-ref self$830 1) (%closure-ref self$830 2)))) (%closure-ref self$829 2) (%closure-ref self$829 3)) (assq (%closure-ref self$829 3) (%closure-ref self$829 1)))) (%closure-ref self$828 1) (%closure-ref self$828 3) (%closure-ref self$828 4))))) alist$200 (%closure-ref self$827 1) k$474 term$199) (pair? term$199))) (%closure-ref self$826 3)))) (%closure-ref self$825 1) (%closure-ref self$825 2) (%closure-ref self$825 3) (%closure-ref self$825 4) (%closure-ref self$825 5) (%closure-ref self$825 6) (%closure-ref self$825 7) (%closure-ref self$825 8) (%closure-ref self$825 9) (%closure-ref self$825 10) (%closure-ref self$825 11) (%closure-ref self$825 12) (%closure-ref self$825 13) (%closure-ref self$825 14) (%closure-ref self$825 15) (%closure-ref self$825 16) (%closure-ref self$825 17) (%closure-ref self$825 18) (%closure-ref self$825 19) (%closure-ref self$825 20) (%closure-ref self$825 21) (%closure-ref self$825 22) (%closure-ref self$825 23) (%closure-ref self$825 24) (%closure-ref self$825 25) (%closure-ref self$825 26) (%closure-ref self$825 28) (%closure-ref self$825 29) (%closure-ref self$825 30) (%closure-ref self$825 31)) (set-cell! (%closure-ref self$825 27) r$480))) (%closure-ref self$814 1) (%closure-ref self$814 2) (%closure-ref self$814 3) (%closure-ref self$814 4) (%closure-ref self$814 5) (%closure-ref self$814 6) (%closure-ref self$814 7) (%closure-ref self$814 8) (%closure-ref self$814 9) (%closure-ref self$814 10) (%closure-ref self$814 11) (%closure-ref self$814 12) (%closure-ref self$814 13) (%closure-ref self$814 14) (%closure-ref self$814 15) (%closure-ref self$814 16) (%closure-ref self$814 17) (%closure-ref self$814 18) (%closure-ref self$814 19) (%closure-ref self$814 20) (%closure-ref self$814 21) (%closure-ref self$814 22) (%closure-ref self$814 23) (%closure-ref self$814 24) (%closure-ref self$814 25) (%closure-ref self$814 26) (%closure-ref self$814 27) (%closure-ref self$814 28) (%closure-ref self$814 29) (%closure-ref self$814 30) (%closure-ref self$814 31)) (%closure (lambda (self$815 k$481 alist$202) ((%closure (lambda (self$816 r$482) (if r$482 ((%closure (lambda (self$824) ((%closure-ref (%closure-ref self$824 1) 0) (%closure-ref self$824 1) (quote ()))) (%closure-ref self$816 2))) ((%closure (lambda (self$817) ((%closure (lambda (self$818 r$486) ((%closure (lambda (self$819 r$488) ((%closure-ref (cell-get (%closure-ref self$819 5)) 0) (cell-get (%closure-ref self$819 5)) (%closure (lambda (self$820 r$487) ((%closure (lambda (self$821 r$483) ((%closure (lambda (self$822 r$485) ((%closure-ref (cell-get (%closure-ref self$822 3)) 0) (cell-get (%closure-ref self$822 3)) (%closure (lambda (self$823 r$484) ((%closure-ref (%closure-ref self$823 1) 0) (%closure-ref self$823 1) (cons (%closure-ref self$823 2) r$484))) (%closure-ref self$822 1) (%closure-ref self$822 2)) r$485)) (%closure-ref self$821 2) r$483 (%closure-ref self$821 3)) (cdr (%closure-ref self$821 1)))) (%closure-ref self$820 1) (%closure-ref self$820 2) (%closure-ref self$820 4)) (cons (%closure-ref self$820 3) r$487))) (%closure-ref self$819 1) (%closure-ref self$819 2) (%closure-ref self$819 3) (%closure-ref self$819 4)) r$488)) (%closure-ref self$818 1) (%closure-ref self$818 2) r$486 (%closure-ref self$818 3) (%closure-ref self$818 4)) (cdar (%closure-ref self$818 1)))) (%closure-ref self$817 1) (%closure-ref self$817 2) (%closure-ref self$817 3) (%closure-ref self$817 4)) (caar (%closure-ref self$817 1)))) (%closure-ref self$816 1) (%closure-ref self$816 2) (%closure-ref self$816 3) (%closure-ref self$816 4))))) alist$202 k$481 (%closure-ref self$815 1) (%closure-ref self$815 2)) (null? alist$202))) (%closure-ref self$814 27) (%closure-ref self$814 28)))) (%closure-ref self$813 1) (%closure-ref self$813 2) (%closure-ref self$813 3) (%closure-ref self$813 4) (%closure-ref self$813 5) (%closure-ref self$813 6) (%closure-ref self$813 7) (%closure-ref self$813 8) (%closure-ref self$813 9) (%closure-ref self$813 10) (%closure-ref self$813 11) (%closure-ref self$813 12) (%closure-ref self$813 13) (%closure-ref self$813 14) (%closure-ref self$813 15) (%closure-ref self$813 16) (%closure-ref self$813 17) (%closure-ref self$813 18) (%closure-ref self$813 19) (%closure-ref self$813 20) (%closure-ref self$813 21) (%closure-ref self$813 22) (%closure-ref self$813 23) (%closure-ref self$813 24) (%closure-ref self$813 25) (%closure-ref self$813 26) (%closure-ref self$813 27) (%closure-ref self$813 28) (%closure-ref self$813 29) (%closure-ref self$813 30) (%closure-ref self$813 31)) (set-cell! (%closure-ref self$813 24) r$489))) (%closure-ref self$796 1) (%closure-ref self$796 2) (%closure-ref self$796 3) (%closure-ref self$796 4) (%closure-ref self$796 5) (%closure-ref self$796 6) (%closure-ref self$796 7) (%closure-ref self$796 8) (%closure-ref self$796 9) (%closure-ref self$796 10) (%closure-ref self$796 11) (%closure-ref self$796 12) (%closure-ref self$796 13) (%closure-ref self$796 14) (%closure-ref self$796 15) (%closure-ref self$796 16) (%closure-ref self$796 17) (%closure-ref self$796 18) (%closure-ref self$796 19) (%closure-ref self$796 20) (%closure-ref self$796 21) (%closure-ref self$796 22) (%closure-ref self$796 23) (%closure-ref self$796 24) (%closure-ref self$796 25) (%closure-ref self$796 26) (%closure-ref self$796 27) (%closure-ref self$796 28) (%closure-ref self$796 29) (%closure-ref self$796 30) (%closure-ref self$796 31)) (%closure (lambda (self$797 k$490 alist$205 term$204 n$203) ((%closure-ref (cell-get (%closure-ref self$797 3)) 0) (cell-get (%closure-ref self$797 3)) (%closure (lambda (self$798 r$492) ((%closure (lambda (self$799 term$207 n$206) ((%closure (lambda (self$800 lp$208) ((%closure (lambda (self$801 lp$208) ((%closure (lambda (self$808 r$496) ((%closure (lambda (self$809 r$495) ((%closure-ref (cell-get (%closure-ref self$809 3)) 0) (cell-get (%closure-ref self$809 3)) (%closure (lambda (self$810 r$494) ((%closure-ref (cell-get (%closure-ref self$810 5)) 0) (cell-get (%closure-ref self$810 5)) (%closure (lambda (self$811 r$493) ((%closure-ref (cell-get (%closure-ref self$811 1)) 0) (cell-get (%closure-ref self$811 1)) (%closure (lambda (self$812 term$211) ((%closure-ref (cell-get (%closure-ref self$812 2)) 0) (cell-get (%closure-ref self$812 2)) (%closure-ref self$812 1) term$211)) (%closure-ref self$811 2) (%closure-ref self$811 4)) (%closure-ref self$811 3) r$493)) (%closure-ref self$810 1) (%closure-ref self$810 2) (%closure-ref self$810 3) (%closure-ref self$810 4)) r$494)) (%closure-ref self$809 1) (%closure-ref self$809 2) (%closure-ref self$809 5) (%closure-ref self$809 6) (%closure-ref self$809 8)) (%closure-ref self$809 7) (%closure-ref self$809 4))) (%closure-ref self$808 1) (%closure-ref self$808 2) (%closure-ref self$808 3) (%closure-ref self$808 4) (%closure-ref self$808 5) (%closure-ref self$808 6) (%closure-ref self$808 7) (%closure-ref self$808 8)) (set-cell! (%closure-ref self$808 3) r$496))) (%closure-ref self$801 1) (%closure-ref self$801 2) lp$208 (%closure-ref self$801 3) (%closure-ref self$801 4) (%closure-ref self$801 5) (%closure-ref self$801 6) (%closure-ref self$801 7)) (%closure (lambda (self$802 k$497 term$210 n$209) ((%closure-ref zero? 0) zero? (%closure (lambda (self$803 r$498) (if r$498 ((%closure-ref (%closure-ref self$803 1) 0) (%closure-ref self$803 1) (%closure-ref self$803 4)) ((%closure (lambda (self$804 r$501) ((%closure (lambda (self$805 r$502) ((%closure-ref list 0) list (%closure (lambda (self$806 r$499) ((%closure (lambda (self$807 r$500) ((%closure-ref (cell-get (%closure-ref self$807 2)) 0) (cell-get (%closure-ref self$807 2)) (%closure-ref self$807 1) (%closure-ref self$807 3) r$500)) (%closure-ref self$806 1) (%closure-ref self$806 2) r$499) (- (%closure-ref self$806 3) 1))) (%closure-ref self$805 1) (%closure-ref self$805 2) (%closure-ref self$805 3)) (%closure-ref self$805 4) (%closure-ref self$805 5) r$502)) (%closure-ref self$804 1) (%closure-ref self$804 2) (%closure-ref self$804 3) r$501 (%closure-ref self$804 4)) (quote (f)))) (%closure-ref self$803 1) (%closure-ref self$803 2) (%closure-ref self$803 3) (%closure-ref self$803 4)) (quote or)))) k$497 (%closure-ref self$802 1) n$209 term$210) n$209)) lp$208))) (%closure-ref self$800 1) (%closure-ref self$800 2) (%closure-ref self$800 3) (%closure-ref self$800 4) (%closure-ref self$800 5) (%closure-ref self$800 6) (%closure-ref self$800 7)) (cell lp$208))) (%closure-ref self$799 1) (%closure-ref self$799 2) n$206 (%closure-ref self$799 3) (%closure-ref self$799 4) term$207 (%closure-ref self$799 5)) #f)) (%closure-ref self$798 1) (%closure-ref self$798 2) r$492 (%closure-ref self$798 4) (%closure-ref self$798 6)) (%closure-ref self$798 5) (%closure-ref self$798 3))) (%closure-ref self$797 1) k$490 n$203 (%closure-ref self$797 2) term$204 (%closure-ref self$797 4)) alist$205)) (%closure-ref self$796 2) (%closure-ref self$796 20) (%closure-ref self$796 27) (%closure-ref self$796 28)))) (%closure-ref self$795 1) (%closure-ref self$795 2) (%closure-ref self$795 3) (%closure-ref self$795 4) (%closure-ref self$795 5) (%closure-ref self$795 6) (%closure-ref self$795 7) (%closure-ref self$795 8) (%closure-ref self$795 9) (%closure-ref self$795 10) (%closure-ref self$795 11) (%closure-ref self$795 12) (%closure-ref self$795 13) (%closure-ref self$795 14) (%closure-ref self$795 15) (%closure-ref self$795 16) (%closure-ref self$795 17) (%closure-ref self$795 18) (%closure-ref self$795 19) (%closure-ref self$795 20) (%closure-ref self$795 21) (%closure-ref self$795 22) (%closure-ref self$795 23) (%closure-ref self$795 24) (%closure-ref self$795 25) (%closure-ref self$795 26) (%closure-ref self$795 27) (%closure-ref self$795 28) (%closure-ref self$795 29) (%closure-ref self$795 30) (%closure-ref self$795 31)) (set-cell! (%closure-ref self$795 18) r$503))) (%closure-ref self$793 1) (%closure-ref self$793 2) (%closure-ref self$793 3) (%closure-ref self$793 4) (%closure-ref self$793 5) (%closure-ref self$793 6) (%closure-ref self$793 7) (%closure-ref self$793 8) (%closure-ref self$793 9) (%closure-ref self$793 10) (%closure-ref self$793 11) (%closure-ref self$793 12) (%closure-ref self$793 13) (%closure-ref self$793 14) (%closure-ref self$793 15) (%closure-ref self$793 16) (%closure-ref self$793 17) (%closure-ref self$793 18) (%closure-ref self$793 19) (%closure-ref self$793 20) (%closure-ref self$793 21) (%closure-ref self$793 22) (%closure-ref self$793 23) (%closure-ref self$793 24) (%closure-ref self$793 25) (%closure-ref self$793 26) (%closure-ref self$793 27) (%closure-ref self$793 28) (%closure-ref self$793 29) (%closure-ref self$793 30) (%closure-ref self$793 31)) (%closure (lambda (self$794 k$504 r1$213 r2$212) ((%closure-ref k$504 0) k$504 (eq? r1$213 r2$212)))))) (%closure-ref self$792 1) (%closure-ref self$792 2) (%closure-ref self$792 3) (%closure-ref self$792 4) (%closure-ref self$792 5) (%closure-ref self$792 6) (%closure-ref self$792 8) (%closure-ref self$792 9) (%closure-ref self$792 10) (%closure-ref self$792 11) (%closure-ref self$792 12) (%closure-ref self$792 13) (%closure-ref self$792 14) (%closure-ref self$792 15) (%closure-ref self$792 16) (%closure-ref self$792 17) (%closure-ref self$792 18) (%closure-ref self$792 19) (%closure-ref self$792 20) (%closure-ref self$792 21) (%closure-ref self$792 22) (%closure-ref self$792 23) (%closure-ref self$792 24) (%closure-ref self$792 25) (%closure-ref self$792 26) (%closure-ref self$792 27) (%closure-ref self$792 28) (%closure-ref self$792 29) (%closure-ref self$792 30) (%closure-ref self$792 31) (%closure-ref self$792 32)) (set-cell! (%closure-ref self$792 7) r$505))) (%closure-ref self$790 1) (%closure-ref self$790 2) (%closure-ref self$790 3) (%closure-ref self$790 4) (%closure-ref self$790 5) (%closure-ref self$790 6) (%closure-ref self$790 7) (%closure-ref self$790 8) (%closure-ref self$790 9) (%closure-ref self$790 10) (%closure-ref self$790 11) (%closure-ref self$790 12) (%closure-ref self$790 13) (%closure-ref self$790 14) (%closure-ref self$790 15) (%closure-ref self$790 16) (%closure-ref self$790 17) (%closure-ref self$790 18) (%closure-ref self$790 19) (%closure-ref self$790 20) (%closure-ref self$790 21) (%closure-ref self$790 22) (%closure-ref self$790 23) (%closure-ref self$790 24) (%closure-ref self$790 25) (%closure-ref self$790 26) (%closure-ref self$790 27) (%closure-ref self$790 28) (%closure-ref self$790 29) (%closure-ref self$790 30) (%closure-ref self$790 31) (%closure-ref self$790 32)) (%closure (lambda (self$791 k$506 symbol-record$214) ((%closure-ref k$506 0) k$506 (vector-ref symbol-record$214 0)))))) (%closure-ref self$789 1) (%closure-ref self$789 2) (%closure-ref self$789 3) (%closure-ref self$789 4) (%closure-ref self$789 5) (%closure-ref self$789 6) (%closure-ref self$789 7) (%closure-ref self$789 8) (%closure-ref self$789 9) (%closure-ref self$789 10) (%closure-ref self$789 11) (%closure-ref self$789 12) (%closure-ref self$789 13) (%closure-ref self$789 14) (%closure-ref self$789 15) (%closure-ref self$789 16) (%closure-ref self$789 17) (%closure-ref self$789 18) (%closure-ref self$789 19) (%closure-ref self$789 20) (%closure-ref self$789 21) (%closure-ref self$789 22) (%closure-ref self$789 23) (%closure-ref self$789 24) (%closure-ref self$789 25) (%closure-ref self$789 26) (%closure-ref self$789 27) (%closure-ref self$789 28) (%closure-ref self$789 29) (%closure-ref self$789 30) (%closure-ref self$789 31) (%closure-ref self$789 32)) (set-cell! (%closure-ref self$789 6) r$507))) (%closure-ref self$787 1) (%closure-ref self$787 2) (%closure-ref self$787 3) (%closure-ref self$787 4) (%closure-ref self$787 5) (%closure-ref self$787 6) (%closure-ref self$787 7) (%closure-ref self$787 8) (%closure-ref self$787 9) (%closure-ref self$787 10) (%closure-ref self$787 11) (%closure-ref self$787 12) (%closure-ref self$787 13) (%closure-ref self$787 14) (%closure-ref self$787 15) (%closure-ref self$787 16) (%closure-ref self$787 17) (%closure-ref self$787 18) (%closure-ref self$787 19) (%closure-ref self$787 20) (%closure-ref self$787 21) (%closure-ref self$787 22) (%closure-ref self$787 23) (%closure-ref self$787 24) (%closure-ref self$787 25) (%closure-ref self$787 26) (%closure-ref self$787 27) (%closure-ref self$787 28) (%closure-ref self$787 29) (%closure-ref self$787 30) (%closure-ref self$787 31) (%closure-ref self$787 32)) (%closure (lambda (self$788 k$508 symbol-record$215) ((%closure-ref k$508 0) k$508 (vector-ref symbol-record$215 1)))))) (%closure-ref self$786 1) (%closure-ref self$786 2) (%closure-ref self$786 3) (%closure-ref self$786 4) (%closure-ref self$786 5) (%closure-ref self$786 6) (%closure-ref self$786 7) (%closure-ref self$786 8) (%closure-ref self$786 9) (%closure-ref self$786 10) (%closure-ref self$786 11) (%closure-ref self$786 13) (%closure-ref self$786 14) (%closure-ref self$786 15) (%closure-ref self$786 16) (%closure-ref self$786 17) (%closure-ref self$786 18) (%closure-ref self$786 19) (%closure-ref self$786 20) (%closure-ref self$786 21) (%closure-ref self$786 22) (%closure-ref self$786 23) (%closure-ref self$786 24) (%closure-ref self$786 25) (%closure-ref self$786 26) (%closure-ref self$786 27) (%closure-ref self$786 28) (%closure-ref self$786 29) (%closure-ref self$786 30) (%closure-ref self$786 31) (%closure-ref self$786 32) (%closure-ref self$786 33)) (set-cell! (%closure-ref self$786 12) r$509))) (%closure-ref self$784 1) (%closure-ref self$784 2) (%closure-ref self$784 3) (%closure-ref self$784 4) (%closure-ref self$784 5) (%closure-ref self$784 6) (%closure-ref self$784 7) (%closure-ref self$784 8) (%closure-ref self$784 9) (%closure-ref self$784 10) (%closure-ref self$784 11) (%closure-ref self$784 12) (%closure-ref self$784 13) (%closure-ref self$784 14) (%closure-ref self$784 15) (%closure-ref self$784 16) (%closure-ref self$784 17) (%closure-ref self$784 18) (%closure-ref self$784 19) (%closure-ref self$784 20) (%closure-ref self$784 21) (%closure-ref self$784 22) (%closure-ref self$784 23) (%closure-ref self$784 24) (%closure-ref self$784 25) (%closure-ref self$784 26) (%closure-ref self$784 27) (%closure-ref self$784 28) (%closure-ref self$784 29) (%closure-ref self$784 30) (%closure-ref self$784 31) (%closure-ref self$784 32) (%closure-ref self$784 33)) (%closure (lambda (self$785 k$510 symbol-record$217 lemmas$216) ((%closure-ref k$510 0) k$510 (vector-set! symbol-record$217 1 lemmas$216)))))) (%closure-ref self$783 1) (%closure-ref self$783 2) (%closure-ref self$783 3) (%closure-ref self$783 4) (%closure-ref self$783 5) (%closure-ref self$783 6) (%closure-ref self$783 7) (%closure-ref self$783 8) (%closure-ref self$783 10) (%closure-ref self$783 11) (%closure-ref self$783 12) (%closure-ref self$783 13) (%closure-ref self$783 14) (%closure-ref self$783 15) (%closure-ref self$783 16) (%closure-ref self$783 17) (%closure-ref self$783 18) (%closure-ref self$783 19) (%closure-ref self$783 20) (%closure-ref self$783 21) (%closure-ref self$783 22) (%closure-ref self$783 23) (%closure-ref self$783 24) (%closure-ref self$783 25) (%closure-ref self$783 26) (%closure-ref self$783 27) (%closure-ref self$783 28) (%closure-ref self$783 29) (%closure-ref self$783 30) (%closure-ref self$783 31) (%closure-ref self$783 32) (%closure-ref self$783 33) (%closure-ref self$783 34)) (set-cell! (%closure-ref self$783 9) r$511))) (%closure-ref self$780 1) (%closure-ref self$780 2) (%closure-ref self$780 3) (%closure-ref self$780 4) (%closure-ref self$780 5) (%closure-ref self$780 6) (%closure-ref self$780 7) (%closure-ref self$780 8) (%closure-ref self$780 9) (%closure-ref self$780 10) (%closure-ref self$780 11) (%closure-ref self$780 12) (%closure-ref self$780 13) (%closure-ref self$780 14) (%closure-ref self$780 15) (%closure-ref self$780 16) (%closure-ref self$780 17) (%closure-ref self$780 18) (%closure-ref self$780 19) (%closure-ref self$780 20) (%closure-ref self$780 21) (%closure-ref self$780 22) (%closure-ref self$780 23) (%closure-ref self$780 24) (%closure-ref self$780 25) (%closure-ref self$780 26) (%closure-ref self$780 27) (%closure-ref self$780 28) (%closure-ref self$780 29) (%closure-ref self$780 30) (%closure-ref self$780 31) (%closure-ref self$780 32) (%closure-ref self$780 33) (%closure-ref self$780 34)) (%closure (lambda (self$781 k$512 sym$218) ((%closure (lambda (self$782 r$513) ((%closure-ref vector 0) vector (%closure-ref self$782 1) (%closure-ref self$782 2) r$513)) k$512 sym$218) (quote ())))))) (%closure-ref self$779 1) (%closure-ref self$779 2) (%closure-ref self$779 3) (%closure-ref self$779 4) (%closure-ref self$779 5) (%closure-ref self$779 6) (%closure-ref self$779 7) (%closure-ref self$779 8) (%closure-ref self$779 9) (%closure-ref self$779 10) (%closure-ref self$779 11) (%closure-ref self$779 12) (%closure-ref self$779 13) (%closure-ref self$779 14) (%closure-ref self$779 15) (%closure-ref self$779 16) (%closure-ref self$779 17) (%closure-ref self$779 18) (%closure-ref self$779 19) (%closure-ref self$779 20) (%closure-ref self$779 21) (%closure-ref self$779 22) (%closure-ref self$779 23) (%closure-ref self$779 24) (%closure-ref self$779 25) (%closure-ref self$779 26) (%closure-ref self$779 27) (%closure-ref self$779 28) (%closure-ref self$779 29) (%closure-ref self$779 30) (%closure-ref self$779 31) (%closure-ref self$779 32) (%closure-ref self$779 33) (%closure-ref self$779 34)) (set-cell! (%closure-ref self$779 1) r$514))) (%closure-ref self$778 1) (%closure-ref self$778 2) (%closure-ref self$778 3) (%closure-ref self$778 4) (%closure-ref self$778 5) (%closure-ref self$778 6) (%closure-ref self$778 7) (%closure-ref self$778 8) (%closure-ref self$778 9) (%closure-ref self$778 10) (%closure-ref self$778 11) (%closure-ref self$778 12) (%closure-ref self$778 13) (%closure-ref self$778 14) (%closure-ref self$778 15) (%closure-ref self$778 16) (%closure-ref self$778 17) (%closure-ref self$778 18) (%closure-ref self$778 19) (%closure-ref self$778 20) (%closure-ref self$778 21) (%closure-ref self$778 22) (%closure-ref self$778 23) (%closure-ref self$778 24) (%closure-ref self$778 25) (%closure-ref self$778 26) (%closure-ref self$778 27) (%closure-ref self$778 28) (%closure-ref self$778 29) (%closure-ref self$778 30) (%closure-ref self$778 31) (%closure-ref self$778 32) (%closure-ref self$778 33) (%closure-ref self$778 34)) (quote ()))) (%closure-ref self$777 1) (%closure-ref self$777 2) (%closure-ref self$777 3) (%closure-ref self$777 4) (%closure-ref self$777 5) (%closure-ref self$777 6) (%closure-ref self$777 7) (%closure-ref self$777 8) (%closure-ref self$777 9) (%closure-ref self$777 10) (%closure-ref self$777 11) (%closure-ref self$777 12) (%closure-ref self$777 13) (%closure-ref self$777 14) (%closure-ref self$777 15) (%closure-ref self$777 16) (%closure-ref self$777 17) (%closure-ref self$777 18) (%closure-ref self$777 19) (%closure-ref self$777 20) (%closure-ref self$777 21) (%closure-ref self$777 22) (%closure-ref self$777 23) (%closure-ref self$777 24) (%closure-ref self$777 25) (%closure-ref self$777 26) (%closure-ref self$777 27) (%closure-ref self$777 28) (%closure-ref self$777 29) (%closure-ref self$777 30) (%closure-ref self$777 31) (%closure-ref self$777 32) (%closure-ref self$777 33) (%closure-ref self$777 34)) (set-cell! (%closure-ref self$777 20) r$515))) (%closure-ref self$770 1) (%closure-ref self$770 2) (%closure-ref self$770 3) (%closure-ref self$770 4) (%closure-ref self$770 5) (%closure-ref self$770 6) (%closure-ref self$770 7) (%closure-ref self$770 8) (%closure-ref self$770 9) (%closure-ref self$770 10) (%closure-ref self$770 11) (%closure-ref self$770 12) (%closure-ref self$770 13) (%closure-ref self$770 14) (%closure-ref self$770 15) (%closure-ref self$770 16) (%closure-ref self$770 17) (%closure-ref self$770 18) (%closure-ref self$770 19) (%closure-ref self$770 20) (%closure-ref self$770 21) (%closure-ref self$770 22) (%closure-ref self$770 23) (%closure-ref self$770 24) (%closure-ref self$770 25) (%closure-ref self$770 26) (%closure-ref self$770 27) (%closure-ref self$770 28) (%closure-ref self$770 29) (%closure-ref self$770 30) (%closure-ref self$770 31) (%closure-ref self$770 32) (%closure-ref self$770 33) (%closure-ref self$770 34)) (%closure (lambda (self$771 k$516 sym$219) ((%closure (lambda (self$772 x$220) (if x$220 ((%closure-ref (%closure-ref self$772 2) 0) (%closure-ref self$772 2) (cdr x$220)) ((%closure-ref (cell-get (%closure-ref self$772 3)) 0) (cell-get (%closure-ref self$772 3)) (%closure (lambda (self$773 r$221) ((%closure (lambda (self$774 r$521) ((%closure (lambda (self$775 r$520) ((%closure (lambda (self$776 r$519) ((%closure-ref (%closure-ref self$776 1) 0) (%closure-ref self$776 1) (%closure-ref self$776 2))) (%closure-ref self$775 2) (%closure-ref self$775 3)) (set-cell! (%closure-ref self$775 1) r$520))) (%closure-ref self$774 1) (%closure-ref self$774 2) (%closure-ref self$774 3)) (cons r$521 (cell-get (%closure-ref self$774 1))))) (%closure-ref self$773 1) (%closure-ref self$773 2) r$221) (cons (%closure-ref self$773 3) r$221))) (%closure-ref self$772 1) (%closure-ref self$772 2) (%closure-ref self$772 4)) (%closure-ref self$772 4)))) (%closure-ref self$771 1) k$516 (%closure-ref self$771 2) sym$219) (assq sym$219 (cell-get (%closure-ref self$771 1))))) (%closure-ref self$770 1) (%closure-ref self$770 9)))) (%closure-ref self$769 1) (%closure-ref self$769 2) (%closure-ref self$769 3) (%closure-ref self$769 4) (%closure-ref self$769 5) (%closure-ref self$769 7) (%closure-ref self$769 8) (%closure-ref self$769 9) (%closure-ref self$769 10) (%closure-ref self$769 11) (%closure-ref self$769 12) (%closure-ref self$769 13) (%closure-ref self$769 14) (%closure-ref self$769 15) (%closure-ref self$769 16) (%closure-ref self$769 17) (%closure-ref self$769 18) (%closure-ref self$769 19) (%closure-ref self$769 20) (%closure-ref self$769 21) (%closure-ref self$769 22) (%closure-ref self$769 23) (%closure-ref self$769 24) (%closure-ref self$769 25) (%closure-ref self$769 26) (%closure-ref self$769 27) (%closure-ref self$769 28) (%closure-ref self$769 29) (%closure-ref self$769 30) (%closure-ref self$769 31) (%closure-ref self$769 32) (%closure-ref self$769 33) (%closure-ref self$769 34) (%closure-ref self$769 35)) (set-cell! (%closure-ref self$769 6) r$522))) (%closure-ref self$766 1) (%closure-ref self$766 2) (%closure-ref self$766 3) (%closure-ref self$766 4) (%closure-ref self$766 5) (%closure-ref self$766 6) (%closure-ref self$766 7) (%closure-ref self$766 8) (%closure-ref self$766 9) (%closure-ref self$766 10) (%closure-ref self$766 11) (%closure-ref self$766 12) (%closure-ref self$766 13) (%closure-ref self$766 14) (%closure-ref self$766 15) (%closure-ref self$766 16) (%closure-ref self$766 17) (%closure-ref self$766 18) (%closure-ref self$766 19) (%closure-ref self$766 20) (%closure-ref self$766 21) (%closure-ref self$766 22) (%closure-ref self$766 23) (%closure-ref self$766 24) (%closure-ref self$766 25) (%closure-ref self$766 26) (%closure-ref self$766 27) (%closure-ref self$766 28) (%closure-ref self$766 29) (%closure-ref self$766 30) (%closure-ref self$766 31) (%closure-ref self$766 32) (%closure-ref self$766 33) (%closure-ref self$766 34) (%closure-ref self$766 35)) (%closure (lambda (self$767 k$523 sym$223 property$222) ((%closure-ref (cell-get (%closure-ref self$767 2)) 0) (cell-get (%closure-ref self$767 2)) (%closure (lambda (self$768 r$524) ((%closure-ref (cell-get (%closure-ref self$768 1)) 0) (cell-get (%closure-ref self$768 1)) (%closure-ref self$768 2) r$524)) (%closure-ref self$767 1) k$523) sym$223)) (%closure-ref self$766 7) (%closure-ref self$766 21)))) (%closure-ref self$765 1) (%closure-ref self$765 2) (%closure-ref self$765 3) (%closure-ref self$765 4) (%closure-ref self$765 5) (%closure-ref self$765 6) (%closure-ref self$765 7) (%closure-ref self$765 8) (%closure-ref self$765 9) (%closure-ref self$765 10) (%closure-ref self$765 11) (%closure-ref self$765 12) (%closure-ref self$765 13) (%closure-ref self$765 15) (%closure-ref self$765 16) (%closure-ref self$765 17) (%closure-ref self$765 18) (%closure-ref self$765 19) (%closure-ref self$765 20) (%closure-ref self$765 21) (%closure-ref self$765 22) (%closure-ref self$765 23) (%closure-ref self$765 24) (%closure-ref self$765 25) (%closure-ref self$765 26) (%closure-ref self$765 27) (%closure-ref self$765 28) (%closure-ref self$765 29) (%closure-ref self$765 30) (%closure-ref self$765 31) (%closure-ref self$765 32) (%closure-ref self$765 33) (%closure-ref self$765 34) (%closure-ref self$765 35) (%closure-ref self$765 36)) (set-cell! (%closure-ref self$765 14) r$525))) (%closure-ref self$762 1) (%closure-ref self$762 2) (%closure-ref self$762 3) (%closure-ref self$762 4) (%closure-ref self$762 5) (%closure-ref self$762 6) (%closure-ref self$762 7) (%closure-ref self$762 8) (%closure-ref self$762 9) (%closure-ref self$762 10) (%closure-ref self$762 11) (%closure-ref self$762 12) (%closure-ref self$762 13) (%closure-ref self$762 14) (%closure-ref self$762 15) (%closure-ref self$762 16) (%closure-ref self$762 17) (%closure-ref self$762 18) (%closure-ref self$762 19) (%closure-ref self$762 20) (%closure-ref self$762 21) (%closure-ref self$762 22) (%closure-ref self$762 23) (%closure-ref self$762 24) (%closure-ref self$762 25) (%closure-ref self$762 26) (%closure-ref self$762 27) (%closure-ref self$762 28) (%closure-ref self$762 29) (%closure-ref self$762 30) (%closure-ref self$762 31) (%closure-ref self$762 32) (%closure-ref self$762 33) (%closure-ref self$762 34) (%closure-ref self$762 35) (%closure-ref self$762 36)) (%closure (lambda (self$763 k$526 sym$226 property$225 value$224) ((%closure-ref (cell-get (%closure-ref self$763 2)) 0) (cell-get (%closure-ref self$763 2)) (%closure (lambda (self$764 r$527) ((%closure-ref (cell-get (%closure-ref self$764 2)) 0) (cell-get (%closure-ref self$764 2)) (%closure-ref self$764 1) r$527 (%closure-ref self$764 3))) k$526 (%closure-ref self$763 1) value$224) sym$226)) (%closure-ref self$762 15) (%closure-ref self$762 22)))) (%closure-ref self$761 1) (%closure-ref self$761 2) (%closure-ref self$761 3) (%closure-ref self$761 4) (%closure-ref self$761 5) (%closure-ref self$761 6) (%closure-ref self$761 7) (%closure-ref self$761 8) (%closure-ref self$761 9) (%closure-ref self$761 10) (%closure-ref self$761 11) (%closure-ref self$761 12) (%closure-ref self$761 13) (%closure-ref self$761 14) (%closure-ref self$761 15) (%closure-ref self$761 16) (%closure-ref self$761 17) (%closure-ref self$761 18) (%closure-ref self$761 19) (%closure-ref self$761 20) (%closure-ref self$761 21) (%closure-ref self$761 22) (%closure-ref self$761 23) (%closure-ref self$761 24) (%closure-ref self$761 25) (%closure-ref self$761 26) (%closure-ref self$761 27) (%closure-ref self$761 28) (%closure-ref self$761 29) (%closure-ref self$761 30) (%closure-ref self$761 31) (%closure-ref self$761 32) (%closure-ref self$761 33) (%closure-ref self$761 34) (%closure-ref self$761 35) (%closure-ref self$761 36)) (set-cell! (%closure-ref self$761 37) r$528))) (%closure-ref self$752 1) (%closure-ref self$752 2) (%closure-ref self$752 3) (%closure-ref self$752 4) (%closure-ref self$752 5) (%closure-ref self$752 6) (%closure-ref self$752 7) (%closure-ref self$752 8) (%closure-ref self$752 9) (%closure-ref self$752 10) (%closure-ref self$752 11) (%closure-ref self$752 12) (%closure-ref self$752 13) (%closure-ref self$752 14) (%closure-ref self$752 15) (%closure-ref self$752 16) (%closure-ref self$752 17) (%closure-ref self$752 18) (%closure-ref self$752 19) (%closure-ref self$752 20) (%closure-ref self$752 21) (%closure-ref self$752 22) (%closure-ref self$752 23) (%closure-ref self$752 24) (%closure-ref self$752 25) (%closure-ref self$752 26) (%closure-ref self$752 27) (%closure-ref self$752 28) (%closure-ref self$752 29) (%closure-ref self$752 30) (%closure-ref self$752 31) (%closure-ref self$752 32) (%closure-ref self$752 33) (%closure-ref self$752 34) (%closure-ref self$752 35) (%closure-ref self$752 36) (%closure-ref self$752 37)) (%closure (lambda (self$753 k$529 term$227) ((%closure (lambda (self$754 r$530) (if r$530 ((%closure (lambda (self$756) ((%closure (lambda (self$757 r$534) ((%closure-ref (cell-get (%closure-ref self$757 1)) 0) (cell-get (%closure-ref self$757 1)) (%closure (lambda (self$758 r$531) ((%closure (lambda (self$759 r$533) ((%closure-ref map 0) map (%closure (lambda (self$760 r$532) ((%closure-ref (%closure-ref self$760 1) 0) (%closure-ref self$760 1) (cons (%closure-ref self$760 2) r$532))) (%closure-ref self$759 1) (%closure-ref self$759 2)) (cell-get (%closure-ref self$759 3)) r$533)) (%closure-ref self$758 1) r$531 (%closure-ref self$758 3)) (cdr (%closure-ref self$758 2)))) (%closure-ref self$757 2) (%closure-ref self$757 3) (%closure-ref self$757 4)) r$534)) (%closure-ref self$756 1) (%closure-ref self$756 2) (%closure-ref self$756 3) (%closure-ref self$756 4)) (car (%closure-ref self$756 3)))) (%closure-ref self$754 1) (%closure-ref self$754 2) (%closure-ref self$754 3) (%closure-ref self$754 4))) ((%closure (lambda (self$755) ((%closure-ref (%closure-ref self$755 1) 0) (%closure-ref self$755 1) (%closure-ref self$755 2))) (%closure-ref self$754 2) (%closure-ref self$754 3))))) (%closure-ref self$753 1) k$529 term$227 (%closure-ref self$753 2)) (pair? term$227))) (%closure-ref self$752 8) (%closure-ref self$752 37)))) (%closure-ref self$751 1) (%closure-ref self$751 2) (%closure-ref self$751 3) (%closure-ref self$751 4) (%closure-ref self$751 5) (%closure-ref self$751 6) (%closure-ref self$751 7) (%closure-ref self$751 8) (%closure-ref self$751 9) (%closure-ref self$751 10) (%closure-ref self$751 11) (%closure-ref self$751 12) (%closure-ref self$751 13) (%closure-ref self$751 14) (%closure-ref self$751 15) (%closure-ref self$751 16) (%closure-ref self$751 17) (%closure-ref self$751 18) (%closure-ref self$751 19) (%closure-ref self$751 20) (%closure-ref self$751 21) (%closure-ref self$751 22) (%closure-ref self$751 23) (%closure-ref self$751 24) (%closure-ref self$751 25) (%closure-ref self$751 26) (%closure-ref self$751 27) (%closure-ref self$751 28) (%closure-ref self$751 29) (%closure-ref self$751 30) (%closure-ref self$751 31) (%closure-ref self$751 32) (%closure-ref self$751 34) (%closure-ref self$751 35) (%closure-ref self$751 36) (%closure-ref self$751 37) (%closure-ref self$751 38)) (set-cell! (%closure-ref self$751 33) r$535))) (%closure-ref self$742 1) (%closure-ref self$742 2) (%closure-ref self$742 3) (%closure-ref self$742 4) (%closure-ref self$742 5) (%closure-ref self$742 6) (%closure-ref self$742 7) (%closure-ref self$742 8) (%closure-ref self$742 9) (%closure-ref self$742 10) (%closure-ref self$742 11) (%closure-ref self$742 12) (%closure-ref self$742 13) (%closure-ref self$742 14) (%closure-ref self$742 15) (%closure-ref self$742 16) (%closure-ref self$742 17) (%closure-ref self$742 18) (%closure-ref self$742 19) (%closure-ref self$742 20) (%closure-ref self$742 21) (%closure-ref self$742 22) (%closure-ref self$742 23) (%closure-ref self$742 24) (%closure-ref self$742 25) (%closure-ref self$742 26) (%closure-ref self$742 27) (%closure-ref self$742 28) (%closure-ref self$742 29) (%closure-ref self$742 30) (%closure-ref self$742 31) (%closure-ref self$742 32) (%closure-ref self$742 33) (%closure-ref self$742 34) (%closure-ref self$742 35) (%closure-ref self$742 36) (%closure-ref self$742 37) (%closure-ref self$742 38)) (%closure (lambda (self$743 k$536 lst$228) ((%closure (lambda (self$744 r$537) (if r$537 ((%closure (lambda (self$750) ((%closure-ref (%closure-ref self$750 1) 0) (%closure-ref self$750 1) (quote ()))) (%closure-ref self$744 1))) ((%closure (lambda (self$745) ((%closure (lambda (self$746 r$541) ((%closure-ref (cell-get (%closure-ref self$746 4)) 0) (cell-get (%closure-ref self$746 4)) (%closure (lambda (self$747 r$538) ((%closure (lambda (self$748 r$540) ((%closure-ref (cell-get (%closure-ref self$748 3)) 0) (cell-get (%closure-ref self$748 3)) (%closure (lambda (self$749 r$539) ((%closure-ref (%closure-ref self$749 1) 0) (%closure-ref self$749 1) (cons (%closure-ref self$749 2) r$539))) (%closure-ref self$748 1) (%closure-ref self$748 2)) r$540)) (%closure-ref self$747 1) r$538 (%closure-ref self$747 3)) (cdr (%closure-ref self$747 2)))) (%closure-ref self$746 1) (%closure-ref self$746 2) (%closure-ref self$746 3)) r$541)) (%closure-ref self$745 1) (%closure-ref self$745 2) (%closure-ref self$745 3) (%closure-ref self$745 4)) (car (%closure-ref self$745 2)))) (%closure-ref self$744 1) (%closure-ref self$744 2) (%closure-ref self$744 3) (%closure-ref self$744 4))))) k$536 lst$228 (%closure-ref self$743 1) (%closure-ref self$743 2)) (null? lst$228))) (%closure-ref self$742 33) (%closure-ref self$742 34)))) (%closure-ref self$741 1) (%closure-ref self$741 2) (%closure-ref self$741 3) (%closure-ref self$741 4) (%closure-ref self$741 5) (%closure-ref self$741 6) (%closure-ref self$741 7) (%closure-ref self$741 8) (%closure-ref self$741 9) (%closure-ref self$741 10) (%closure-ref self$741 11) (%closure-ref self$741 12) (%closure-ref self$741 13) (%closure-ref self$741 14) (%closure-ref self$741 15) (%closure-ref self$741 16) (%closure-ref self$741 17) (%closure-ref self$741 18) (%closure-ref self$741 19) (%closure-ref self$741 20) (%closure-ref self$741 21) (%closure-ref self$741 22) (%closure-ref self$741 23) (%closure-ref self$741 24) (%closure-ref self$741 25) (%closure-ref self$741 26) (%closure-ref self$741 27) (%closure-ref self$741 28) (%closure-ref self$741 29) (%closure-ref self$741 30) (%closure-ref self$741 31) (%closure-ref self$741 32) (%closure-ref self$741 33) (%closure-ref self$741 34) (%closure-ref self$741 35) (%closure-ref self$741 36) (%closure-ref self$741 37) (%closure-ref self$741 38)) (set-cell! (%closure-ref self$741 34) r$542))) (%closure-ref self$732 1) (%closure-ref self$732 2) (%closure-ref self$732 3) (%closure-ref self$732 4) (%closure-ref self$732 5) (%closure-ref self$732 6) (%closure-ref self$732 7) (%closure-ref self$732 8) (%closure-ref self$732 9) (%closure-ref self$732 10) (%closure-ref self$732 11) (%closure-ref self$732 12) (%closure-ref self$732 13) (%closure-ref self$732 14) (%closure-ref self$732 15) (%closure-ref self$732 16) (%closure-ref self$732 17) (%closure-ref self$732 18) (%closure-ref self$732 19) (%closure-ref self$732 20) (%closure-ref self$732 21) (%closure-ref self$732 22) (%closure-ref self$732 23) (%closure-ref self$732 24) (%closure-ref self$732 25) (%closure-ref self$732 26) (%closure-ref self$732 27) (%closure-ref self$732 28) (%closure-ref self$732 29) (%closure-ref self$732 30) (%closure-ref self$732 31) (%closure-ref self$732 32) (%closure-ref self$732 33) (%closure-ref self$732 34) (%closure-ref self$732 35) (%closure-ref self$732 36) (%closure-ref self$732 37) (%closure-ref self$732 38)) (%closure (lambda (self$733 k$543 term$229) ((%closure (lambda (self$734 r$544) (if r$544 ((%closure (lambda (self$736) ((%closure (lambda (self$737 r$548) ((%closure-ref (cell-get (%closure-ref self$737 2)) 0) (cell-get (%closure-ref self$737 2)) (%closure (lambda (self$738 r$545) ((%closure (lambda (self$739 r$547) ((%closure-ref (cell-get (%closure-ref self$739 3)) 0) (cell-get (%closure-ref self$739 3)) (%closure (lambda (self$740 r$546) ((%closure-ref (%closure-ref self$740 1) 0) (%closure-ref self$740 1) (cons (%closure-ref self$740 2) r$546))) (%closure-ref self$739 1) (%closure-ref self$739 2)) r$547)) (%closure-ref self$738 1) r$545 (%closure-ref self$738 3)) (cdr (%closure-ref self$738 2)))) (%closure-ref self$737 1) (%closure-ref self$737 3) (%closure-ref self$737 4)) r$548)) (%closure-ref self$736 1) (%closure-ref self$736 2) (%closure-ref self$736 3) (%closure-ref self$736 4)) (car (%closure-ref self$736 3)))) (%closure-ref self$734 1) (%closure-ref self$734 2) (%closure-ref self$734 3) (%closure-ref self$734 4))) ((%closure (lambda (self$735) ((%closure-ref (%closure-ref self$735 1) 0) (%closure-ref self$735 1) (%closure-ref self$735 2))) (%closure-ref self$734 1) (%closure-ref self$734 3))))) k$543 (%closure-ref self$733 1) term$229 (%closure-ref self$733 2)) (pair? term$229))) (%closure-ref self$732 22) (%closure-ref self$732 33)))) (%closure-ref self$731 1) (%closure-ref self$731 3) (%closure-ref self$731 4) (%closure-ref self$731 5) (%closure-ref self$731 6) (%closure-ref self$731 7) (%closure-ref self$731 8) (%closure-ref self$731 9) (%closure-ref self$731 10) (%closure-ref self$731 11) (%closure-ref self$731 12) (%closure-ref self$731 13) (%closure-ref self$731 14) (%closure-ref self$731 15) (%closure-ref self$731 16) (%closure-ref self$731 17) (%closure-ref self$731 18) (%closure-ref self$731 19) (%closure-ref self$731 20) (%closure-ref self$731 21) (%closure-ref self$731 22) (%closure-ref self$731 23) (%closure-ref self$731 24) (%closure-ref self$731 25) (%closure-ref self$731 26) (%closure-ref self$731 27) (%closure-ref self$731 28) (%closure-ref self$731 29) (%closure-ref self$731 30) (%closure-ref self$731 31) (%closure-ref self$731 32) (%closure-ref self$731 33) (%closure-ref self$731 34) (%closure-ref self$731 35) (%closure-ref self$731 36) (%closure-ref self$731 37) (%closure-ref self$731 38) (%closure-ref self$731 39)) (set-cell! (%closure-ref self$731 2) r$549))) (%closure-ref self$711 1) (%closure-ref self$711 2) (%closure-ref self$711 3) (%closure-ref self$711 4) (%closure-ref self$711 5) (%closure-ref self$711 6) (%closure-ref self$711 7) (%closure-ref self$711 8) (%closure-ref self$711 9) (%closure-ref self$711 10) (%closure-ref self$711 11) (%closure-ref self$711 12) (%closure-ref self$711 13) (%closure-ref self$711 14) (%closure-ref self$711 15) (%closure-ref self$711 16) (%closure-ref self$711 17) (%closure-ref self$711 18) (%closure-ref self$711 19) (%closure-ref self$711 20) (%closure-ref self$711 21) (%closure-ref self$711 22) (%closure-ref self$711 23) (%closure-ref self$711 24) (%closure-ref self$711 25) (%closure-ref self$711 26) (%closure-ref self$711 27) (%closure-ref self$711 28) (%closure-ref self$711 29) (%closure-ref self$711 30) (%closure-ref self$711 31) (%closure-ref self$711 32) (%closure-ref self$711 33) (%closure-ref self$711 34) (%closure-ref self$711 35) (%closure-ref self$711 36) (%closure-ref self$711 37) (%closure-ref self$711 38) (%closure-ref self$711 39)) (%closure (lambda (self$712 k$550 term$230) ((%closure (lambda (self$725 k$561) ((%closure (lambda (self$726 r$562) (if r$562 ((%closure (lambda (self$727 r$565) ((%closure (lambda (self$728 r$566) ((%closure (lambda (self$729 r$563) (if r$563 ((%closure (lambda (self$730 r$564) ((%closure-ref (%closure-ref self$730 1) 0) (%closure-ref self$730 1) (pair? r$564))) (%closure-ref self$729 1)) (cadr (%closure-ref self$729 2))) ((%closure-ref (%closure-ref self$729 1) 0) (%closure-ref self$729 1) #f))) (%closure-ref self$728 1) (%closure-ref self$728 3)) (eq? (%closure-ref self$728 2) r$566))) (%closure-ref self$727 1) r$565 (%closure-ref self$727 2)) (quote equal))) (%closure-ref self$726 1) (%closure-ref self$726 2)) (car (%closure-ref self$726 2))) ((%closure-ref (%closure-ref self$726 1) 0) (%closure-ref self$726 1) #f))) k$561 (%closure-ref self$725 1)) (pair? (%closure-ref self$725 1)))) term$230) (%closure (lambda (self$713 r$551) (if r$551 ((%closure (lambda (self$715) ((%closure (lambda (self$716 r$560) ((%closure (lambda (self$717 r$552) ((%closure (lambda (self$718 r$553) ((%closure-ref (cell-get (%closure-ref self$718 6)) 0) (cell-get (%closure-ref self$718 6)) (%closure (lambda (self$719 r$555) ((%closure (lambda (self$720 r$559) ((%closure (lambda (self$721 r$557) ((%closure (lambda (self$722 r$558) ((%closure-ref (cell-get (%closure-ref self$722 1)) 0) (cell-get (%closure-ref self$722 1)) (%closure (lambda (self$723 r$556) ((%closure (lambda (self$724 r$554) ((%closure-ref (cell-get (%closure-ref self$724 2)) 0) (cell-get (%closure-ref self$724 2)) (%closure-ref self$724 1) (%closure-ref self$724 3) (%closure-ref self$724 4) r$554)) (%closure-ref self$723 1) (%closure-ref self$723 2) (%closure-ref self$723 3) (%closure-ref self$723 4)) (cons (%closure-ref self$723 5) r$556))) (%closure-ref self$722 2) (%closure-ref self$722 3) (%closure-ref self$722 4) (%closure-ref self$722 5) (%closure-ref self$722 6)) (%closure-ref self$722 7) r$558)) (%closure-ref self$721 1) (%closure-ref self$721 2) (%closure-ref self$721 3) (%closure-ref self$721 4) (%closure-ref self$721 5) (%closure-ref self$721 6) r$557) (quote lemmas))) (%closure-ref self$720 1) (%closure-ref self$720 2) (%closure-ref self$720 3) (%closure-ref self$720 4) (%closure-ref self$720 5) (%closure-ref self$720 6)) (car r$559))) (%closure-ref self$719 1) (%closure-ref self$719 2) (%closure-ref self$719 3) (%closure-ref self$719 4) (%closure-ref self$719 5) r$555) (cadr (%closure-ref self$719 6)))) (%closure-ref self$718 1) (%closure-ref self$718 2) (%closure-ref self$718 3) (%closure-ref self$718 4) r$553 (%closure-ref self$718 5)) (%closure-ref self$718 5))) (%closure-ref self$717 1) (%closure-ref self$717 2) (%closure-ref self$717 3) r$552 (%closure-ref self$717 4) (%closure-ref self$717 5)) (quote lemmas))) (%closure-ref self$716 1) (%closure-ref self$716 2) (%closure-ref self$716 3) (%closure-ref self$716 4) (%closure-ref self$716 5)) (car r$560))) (%closure-ref self$715 1) (%closure-ref self$715 2) (%closure-ref self$715 3) (%closure-ref self$715 4) (%closure-ref self$715 5)) (cadr (%closure-ref self$715 4)))) (%closure-ref self$713 1) (%closure-ref self$713 2) (%closure-ref self$713 3) (%closure-ref self$713 4) (%closure-ref self$713 5))) ((%closure (lambda (self$714) ((%closure-ref error 0) error (%closure-ref self$714 1) #f "ADD-LEMMA did not like term: " (%closure-ref self$714 2))) (%closure-ref self$713 2) (%closure-ref self$713 4))))) (%closure-ref self$712 1) k$550 (%closure-ref self$712 2) term$230 (%closure-ref self$712 3)))) (%closure-ref self$711 7) (%closure-ref self$711 15) (%closure-ref self$711 35)))) (%closure-ref self$710 1) (%closure-ref self$710 2) (%closure-ref self$710 4) (%closure-ref self$710 5) (%closure-ref self$710 6) (%closure-ref self$710 7) (%closure-ref self$710 8) (%closure-ref self$710 9) (%closure-ref self$710 10) (%closure-ref self$710 11) (%closure-ref self$710 12) (%closure-ref self$710 13) (%closure-ref self$710 14) (%closure-ref self$710 15) (%closure-ref self$710 16) (%closure-ref self$710 17) (%closure-ref self$710 18) (%closure-ref self$710 19) (%closure-ref self$710 20) (%closure-ref self$710 21) (%closure-ref self$710 22) (%closure-ref self$710 23) (%closure-ref self$710 24) (%closure-ref self$710 25) (%closure-ref self$710 26) (%closure-ref self$710 27) (%closure-ref self$710 28) (%closure-ref self$710 29) (%closure-ref self$710 30) (%closure-ref self$710 31) (%closure-ref self$710 32) (%closure-ref self$710 33) (%closure-ref self$710 34) (%closure-ref self$710 35) (%closure-ref self$710 36) (%closure-ref self$710 37) (%closure-ref self$710 38) (%closure-ref self$710 39) (%closure-ref self$710 40)) (set-cell! (%closure-ref self$710 3) r$567))) (%closure-ref self$702 1) (%closure-ref self$702 2) (%closure-ref self$702 3) (%closure-ref self$702 4) (%closure-ref self$702 5) (%closure-ref self$702 6) (%closure-ref self$702 7) (%closure-ref self$702 8) (%closure-ref self$702 9) (%closure-ref self$702 10) (%closure-ref self$702 11) (%closure-ref self$702 12) (%closure-ref self$702 13) (%closure-ref self$702 14) (%closure-ref self$702 15) (%closure-ref self$702 16) (%closure-ref self$702 17) (%closure-ref self$702 18) (%closure-ref self$702 19) (%closure-ref self$702 20) (%closure-ref self$702 21) (%closure-ref self$702 22) (%closure-ref self$702 23) (%closure-ref self$702 24) (%closure-ref self$702 25) (%closure-ref self$702 26) (%closure-ref self$702 27) (%closure-ref self$702 28) (%closure-ref self$702 29) (%closure-ref self$702 30) (%closure-ref self$702 31) (%closure-ref self$702 32) (%closure-ref self$702 33) (%closure-ref self$702 34) (%closure-ref self$702 35) (%closure-ref self$702 36) (%closure-ref self$702 37) (%closure-ref self$702 38) (%closure-ref self$702 39) (%closure-ref self$702 40)) (%closure (lambda (self$703 k$568 lst$231) ((%closure (lambda (self$704 r$569) (if r$569 ((%closure (lambda (self$709) ((%closure-ref (%closure-ref self$709 1) 0) (%closure-ref self$709 1) #t)) (%closure-ref self$704 3))) ((%closure (lambda (self$705) ((%closure (lambda (self$706 r$572) ((%closure-ref (cell-get (%closure-ref self$706 1)) 0) (cell-get (%closure-ref self$706 1)) (%closure (lambda (self$707 r$570) ((%closure (lambda (self$708 r$571) ((%closure-ref (cell-get (%closure-ref self$708 1)) 0) (cell-get (%closure-ref self$708 1)) (%closure-ref self$708 2) r$571)) (%closure-ref self$707 1) (%closure-ref self$707 2)) (cdr (%closure-ref self$707 3)))) (%closure-ref self$706 2) (%closure-ref self$706 3) (%closure-ref self$706 4)) r$572)) (%closure-ref self$705 1) (%closure-ref self$705 2) (%closure-ref self$705 3) (%closure-ref self$705 4)) (car (%closure-ref self$705 4)))) (%closure-ref self$704 1) (%closure-ref self$704 2) (%closure-ref self$704 3) (%closure-ref self$704 4))))) (%closure-ref self$703 1) (%closure-ref self$703 2) k$568 lst$231) (null? lst$231))) (%closure-ref self$702 2) (%closure-ref self$702 3)))) (%closure-ref self$701 1) (%closure-ref self$701 2) (%closure-ref self$701 3) (%closure-ref self$701 4) (%closure-ref self$701 5) (%closure-ref self$701 6) (%closure-ref self$701 7) (%closure-ref self$701 8) (%closure-ref self$701 9) (%closure-ref self$701 10) (%closure-ref self$701 11) (%closure-ref self$701 12) (%closure-ref self$701 13) (%closure-ref self$701 14) (%closure-ref self$701 15) (%closure-ref self$701 16) (%closure-ref self$701 17) (%closure-ref self$701 18) (%closure-ref self$701 19) (%closure-ref self$701 20) (%closure-ref self$701 21) (%closure-ref self$701 22) (%closure-ref self$701 23) (%closure-ref self$701 24) (%closure-ref self$701 25) (%closure-ref self$701 26) (%closure-ref self$701 27) (%closure-ref self$701 28) (%closure-ref self$701 29) (%closure-ref self$701 30) (%closure-ref self$701 31) (%closure-ref self$701 32) (%closure-ref self$701 33) (%closure-ref self$701 34) (%closure-ref self$701 35) (%closure-ref self$701 36) (%closure-ref self$701 37) (%closure-ref self$701 38) (%closure-ref self$701 39) (%closure-ref self$701 40)) (set-cell! (%closure-ref self$701 23) r$573))) (%closure-ref self$698 1) (%closure-ref self$698 2) (%closure-ref self$698 3) (%closure-ref self$698 4) (%closure-ref self$698 5) (%closure-ref self$698 6) (%closure-ref self$698 7) (%closure-ref self$698 8) (%closure-ref self$698 9) (%closure-ref self$698 10) (%closure-ref self$698 11) (%closure-ref self$698 12) (%closure-ref self$698 13) (%closure-ref self$698 14) (%closure-ref self$698 15) (%closure-ref self$698 16) (%closure-ref self$698 17) (%closure-ref self$698 18) (%closure-ref self$698 19) (%closure-ref self$698 20) (%closure-ref self$698 21) (%closure-ref self$698 22) (%closure-ref self$698 23) (%closure-ref self$698 24) (%closure-ref self$698 25) (%closure-ref self$698 26) (%closure-ref self$698 27) (%closure-ref self$698 28) (%closure-ref self$698 29) term-member?$121 (%closure-ref self$698 30) (%closure-ref self$698 31) (%closure-ref self$698 32) (%closure-ref self$698 33) (%closure-ref self$698 34) (%closure-ref self$698 35) (%closure-ref self$698 36) (%closure-ref self$698 37) (%closure-ref self$698 38) (%closure-ref self$698 39)) (%closure (lambda (self$699 k$574) ((%closure (lambda (self$700 r$575) ((%closure-ref (cell-get (%closure-ref self$700 1)) 0) (cell-get (%closure-ref self$700 1)) (%closure-ref self$700 2) r$575)) (%closure-ref self$699 1) k$574) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (%closure-ref self$698 3)))) (%closure-ref self$697 1) (%closure-ref self$697 2) (%closure-ref self$697 3) (%closure-ref self$697 4) (%closure-ref self$697 5) (%closure-ref self$697 6) (%closure-ref self$697 7) (%closure-ref self$697 8) (%closure-ref self$697 9) (%closure-ref self$697 10) (%closure-ref self$697 11) (%closure-ref self$697 12) (%closure-ref self$697 13) (%closure-ref self$697 14) (%closure-ref self$697 15) (%closure-ref self$697 16) (%closure-ref self$697 17) (%closure-ref self$697 18) (%closure-ref self$697 19) (%closure-ref self$697 20) (%closure-ref self$697 21) (%closure-ref self$697 22) (%closure-ref self$697 23) (%closure-ref self$697 24) (%closure-ref self$697 25) (%closure-ref self$697 26) (%closure-ref self$697 27) term-args-equal?$122 (%closure-ref self$697 28) (%closure-ref self$697 30) (%closure-ref self$697 31) (%closure-ref self$697 32) (%closure-ref self$697 33) (%closure-ref self$697 34) (%closure-ref self$697 35) (%closure-ref self$697 36) (%closure-ref self$697 37) (%closure-ref self$697 38) (%closure-ref self$697 39)) (cell (%closure-ref self$697 29)))) (%closure-ref self$696 1) (%closure-ref self$696 2) (%closure-ref self$696 3) (%closure-ref self$696 4) (%closure-ref self$696 5) (%closure-ref self$696 6) (%closure-ref self$696 7) (%closure-ref self$696 8) (%closure-ref self$696 9) (%closure-ref self$696 10) (%closure-ref self$696 11) (%closure-ref self$696 12) (%closure-ref self$696 13) (%closure-ref self$696 14) (%closure-ref self$696 15) (%closure-ref self$696 16) (%closure-ref self$696 17) (%closure-ref self$696 18) (%closure-ref self$696 19) (%closure-ref self$696 20) (%closure-ref self$696 21) (%closure-ref self$696 22) (%closure-ref self$696 23) (%closure-ref self$696 24) (%closure-ref self$696 25) (%closure-ref self$696 26) (%closure-ref self$696 27) term-equal?$123 (%closure-ref self$696 29) (%closure-ref self$696 30) (%closure-ref self$696 31) (%closure-ref self$696 32) (%closure-ref self$696 33) (%closure-ref self$696 34) (%closure-ref self$696 35) (%closure-ref self$696 36) (%closure-ref self$696 37) (%closure-ref self$696 38) (%closure-ref self$696 39)) (cell (%closure-ref self$696 28)))) (%closure-ref self$695 1) (%closure-ref self$695 2) (%closure-ref self$695 3) (%closure-ref self$695 4) (%closure-ref self$695 5) (%closure-ref self$695 6) (%closure-ref self$695 7) (%closure-ref self$695 8) (%closure-ref self$695 9) (%closure-ref self$695 10) (%closure-ref self$695 11) (%closure-ref self$695 12) (%closure-ref self$695 13) (%closure-ref self$695 14) (%closure-ref self$695 15) (%closure-ref self$695 16) (%closure-ref self$695 17) (%closure-ref self$695 18) (%closure-ref self$695 19) (%closure-ref self$695 20) (%closure-ref self$695 21) (%closure-ref self$695 22) (%closure-ref self$695 23) (%closure-ref self$695 24) (%closure-ref self$695 25) (%closure-ref self$695 26) (%closure-ref self$695 27) (%closure-ref self$695 28) (%closure-ref self$695 30) (%closure-ref self$695 31) (%closure-ref self$695 32) trans-of-implies1$124 (%closure-ref self$695 33) (%closure-ref self$695 34) (%closure-ref self$695 35) (%closure-ref self$695 36) (%closure-ref self$695 37) (%closure-ref self$695 38) (%closure-ref self$695 39)) (cell (%closure-ref self$695 29)))) (%closure-ref self$694 1) (%closure-ref self$694 2) (%closure-ref self$694 3) (%closure-ref self$694 4) (%closure-ref self$694 5) (%closure-ref self$694 6) (%closure-ref self$694 7) (%closure-ref self$694 8) (%closure-ref self$694 9) (%closure-ref self$694 10) (%closure-ref self$694 11) (%closure-ref self$694 12) (%closure-ref self$694 13) (%closure-ref self$694 14) (%closure-ref self$694 15) (%closure-ref self$694 16) (%closure-ref self$694 17) (%closure-ref self$694 18) (%closure-ref self$694 19) (%closure-ref self$694 20) (%closure-ref self$694 21) (%closure-ref self$694 22) (%closure-ref self$694 23) (%closure-ref self$694 24) (%closure-ref self$694 25) (%closure-ref self$694 26) (%closure-ref self$694 27) (%closure-ref self$694 28) (%closure-ref self$694 29) (%closure-ref self$694 30) (%closure-ref self$694 31) trans-of-implies$125 (%closure-ref self$694 33) (%closure-ref self$694 34) (%closure-ref self$694 35) (%closure-ref self$694 36) (%closure-ref self$694 37) (%closure-ref self$694 38) (%closure-ref self$694 39)) (cell (%closure-ref self$694 32)))) (%closure-ref self$693 1) (%closure-ref self$693 2) (%closure-ref self$693 3) (%closure-ref self$693 4) (%closure-ref self$693 5) (%closure-ref self$693 6) (%closure-ref self$693 7) (%closure-ref self$693 8) (%closure-ref self$693 9) (%closure-ref self$693 10) (%closure-ref self$693 11) (%closure-ref self$693 12) (%closure-ref self$693 13) (%closure-ref self$693 14) (%closure-ref self$693 15) (%closure-ref self$693 16) (%closure-ref self$693 17) (%closure-ref self$693 18) (%closure-ref self$693 19) (%closure-ref self$693 20) (%closure-ref self$693 21) (%closure-ref self$693 22) (%closure-ref self$693 23) (%closure-ref self$693 24) (%closure-ref self$693 25) (%closure-ref self$693 26) (%closure-ref self$693 27) (%closure-ref self$693 28) (%closure-ref self$693 29) (%closure-ref self$693 30) (%closure-ref self$693 31) (%closure-ref self$693 33) (%closure-ref self$693 34) (%closure-ref self$693 35) (%closure-ref self$693 36) true-term$126 (%closure-ref self$693 37) (%closure-ref self$693 38) (%closure-ref self$693 39)) (cell (%closure-ref self$693 32)))) (%closure-ref self$692 1) (%closure-ref self$692 2) (%closure-ref self$692 3) (%closure-ref self$692 4) (%closure-ref self$692 5) false-term$127 (%closure-ref self$692 6) (%closure-ref self$692 7) (%closure-ref self$692 8) (%closure-ref self$692 9) (%closure-ref self$692 10) (%closure-ref self$692 11) (%closure-ref self$692 12) (%closure-ref self$692 13) (%closure-ref self$692 14) (%closure-ref self$692 15) (%closure-ref self$692 16) (%closure-ref self$692 17) (%closure-ref self$692 18) (%closure-ref self$692 19) (%closure-ref self$692 20) (%closure-ref self$692 21) (%closure-ref self$692 22) (%closure-ref self$692 23) (%closure-ref self$692 24) (%closure-ref self$692 25) (%closure-ref self$692 26) (%closure-ref self$692 27) (%closure-ref self$692 28) (%closure-ref self$692 29) (%closure-ref self$692 30) (%closure-ref self$692 31) (%closure-ref self$692 32) (%closure-ref self$692 33) (%closure-ref self$692 34) (%closure-ref self$692 35) (%closure-ref self$692 37) (%closure-ref self$692 38) (%closure-ref self$692 39)) (cell (%closure-ref self$692 36)))) (%closure-ref self$691 1) (%closure-ref self$691 2) (%closure-ref self$691 3) (%closure-ref self$691 4) (%closure-ref self$691 5) (%closure-ref self$691 7) (%closure-ref self$691 8) (%closure-ref self$691 9) (%closure-ref self$691 10) (%closure-ref self$691 11) (%closure-ref self$691 12) (%closure-ref self$691 13) (%closure-ref self$691 14) (%closure-ref self$691 15) (%closure-ref self$691 16) (%closure-ref self$691 17) (%closure-ref self$691 18) (%closure-ref self$691 19) (%closure-ref self$691 20) (%closure-ref self$691 21) (%closure-ref self$691 22) (%closure-ref self$691 23) (%closure-ref self$691 24) (%closure-ref self$691 25) (%closure-ref self$691 26) (%closure-ref self$691 27) (%closure-ref self$691 28) (%closure-ref self$691 29) (%closure-ref self$691 30) (%closure-ref self$691 31) (%closure-ref self$691 32) (%closure-ref self$691 33) (%closure-ref self$691 34) (%closure-ref self$691 35) (%closure-ref self$691 36) (%closure-ref self$691 37) truep$128 (%closure-ref self$691 38) (%closure-ref self$691 39)) (cell (%closure-ref self$691 6)))) (%closure-ref self$690 1) (%closure-ref self$690 2) (%closure-ref self$690 3) (%closure-ref self$690 4) (%closure-ref self$690 5) (%closure-ref self$690 6) falsep$129 (%closure-ref self$690 7) (%closure-ref self$690 8) (%closure-ref self$690 9) (%closure-ref self$690 10) (%closure-ref self$690 11) (%closure-ref self$690 12) (%closure-ref self$690 13) (%closure-ref self$690 14) (%closure-ref self$690 15) (%closure-ref self$690 16) (%closure-ref self$690 17) (%closure-ref self$690 18) (%closure-ref self$690 19) (%closure-ref self$690 20) (%closure-ref self$690 21) (%closure-ref self$690 22) (%closure-ref self$690 23) (%closure-ref self$690 24) (%closure-ref self$690 25) (%closure-ref self$690 26) (%closure-ref self$690 27) (%closure-ref self$690 28) (%closure-ref self$690 29) (%closure-ref self$690 30) (%closure-ref self$690 31) (%closure-ref self$690 32) (%closure-ref self$690 33) (%closure-ref self$690 34) (%closure-ref self$690 35) (%closure-ref self$690 36) (%closure-ref self$690 38) (%closure-ref self$690 39)) (cell (%closure-ref self$690 37)))) (%closure-ref self$689 1) (%closure-ref self$689 2) (%closure-ref self$689 3) (%closure-ref self$689 4) (%closure-ref self$689 5) (%closure-ref self$689 6) (%closure-ref self$689 8) (%closure-ref self$689 9) (%closure-ref self$689 10) (%closure-ref self$689 11) (%closure-ref self$689 12) (%closure-ref self$689 13) (%closure-ref self$689 14) one-way-unify1-lst$130 (%closure-ref self$689 15) (%closure-ref self$689 16) (%closure-ref self$689 17) (%closure-ref self$689 18) (%closure-ref self$689 19) (%closure-ref self$689 20) (%closure-ref self$689 21) (%closure-ref self$689 22) (%closure-ref self$689 23) (%closure-ref self$689 24) (%closure-ref self$689 25) (%closure-ref self$689 26) (%closure-ref self$689 27) (%closure-ref self$689 28) (%closure-ref self$689 29) (%closure-ref self$689 30) (%closure-ref self$689 31) (%closure-ref self$689 32) (%closure-ref self$689 33) (%closure-ref self$689 34) (%closure-ref self$689 35) (%closure-ref self$689 36) (%closure-ref self$689 37) (%closure-ref self$689 38) (%closure-ref self$689 39)) (cell (%closure-ref self$689 7)))) (%closure-ref self$688 1) (%closure-ref self$688 2) (%closure-ref self$688 3) (%closure-ref self$688 4) (%closure-ref self$688 5) (%closure-ref self$688 6) (%closure-ref self$688 7) (%closure-ref self$688 8) (%closure-ref self$688 9) (%closure-ref self$688 10) (%closure-ref self$688 11) (%closure-ref self$688 12) (%closure-ref self$688 13) one-way-unify1$131 (%closure-ref self$688 15) (%closure-ref self$688 16) (%closure-ref self$688 17) (%closure-ref self$688 18) (%closure-ref self$688 19) (%closure-ref self$688 20) (%closure-ref self$688 21) (%closure-ref self$688 22) (%closure-ref self$688 23) (%closure-ref self$688 24) (%closure-ref self$688 25) (%closure-ref self$688 26) (%closure-ref self$688 27) (%closure-ref self$688 28) (%closure-ref self$688 29) (%closure-ref self$688 30) (%closure-ref self$688 31) (%closure-ref self$688 32) (%closure-ref self$688 33) (%closure-ref self$688 34) (%closure-ref self$688 35) (%closure-ref self$688 36) (%closure-ref self$688 37) (%closure-ref self$688 38) (%closure-ref self$688 39)) (cell (%closure-ref self$688 14)))) (%closure-ref self$687 1) (%closure-ref self$687 2) (%closure-ref self$687 3) (%closure-ref self$687 4) (%closure-ref self$687 5) (%closure-ref self$687 6) (%closure-ref self$687 7) (%closure-ref self$687 8) (%closure-ref self$687 9) (%closure-ref self$687 10) (%closure-ref self$687 11) (%closure-ref self$687 12) one-way-unify$132 (%closure-ref self$687 14) (%closure-ref self$687 15) (%closure-ref self$687 16) (%closure-ref self$687 17) (%closure-ref self$687 18) (%closure-ref self$687 19) (%closure-ref self$687 20) (%closure-ref self$687 21) (%closure-ref self$687 22) (%closure-ref self$687 23) (%closure-ref self$687 24) (%closure-ref self$687 25) (%closure-ref self$687 26) (%closure-ref self$687 27) (%closure-ref self$687 28) (%closure-ref self$687 29) (%closure-ref self$687 30) (%closure-ref self$687 31) (%closure-ref self$687 32) (%closure-ref self$687 33) (%closure-ref self$687 34) (%closure-ref self$687 35) (%closure-ref self$687 36) (%closure-ref self$687 37) (%closure-ref self$687 38) (%closure-ref self$687 39)) (cell (%closure-ref self$687 13)))) (%closure-ref self$686 1) (%closure-ref self$686 2) (%closure-ref self$686 3) (%closure-ref self$686 4) (%closure-ref self$686 5) (%closure-ref self$686 6) (%closure-ref self$686 7) (%closure-ref self$686 8) (%closure-ref self$686 9) (%closure-ref self$686 10) (%closure-ref self$686 11) (%closure-ref self$686 12) (%closure-ref self$686 14) (%closure-ref self$686 15) (%closure-ref self$686 16) (%closure-ref self$686 17) (%closure-ref self$686 18) (%closure-ref self$686 19) (%closure-ref self$686 20) (%closure-ref self$686 21) (%closure-ref self$686 22) (%closure-ref self$686 23) (%closure-ref self$686 24) (%closure-ref self$686 25) (%closure-ref self$686 26) (%closure-ref self$686 27) (%closure-ref self$686 28) (%closure-ref self$686 29) (%closure-ref self$686 30) (%closure-ref self$686 31) (%closure-ref self$686 32) (%closure-ref self$686 33) (%closure-ref self$686 34) (%closure-ref self$686 35) (%closure-ref self$686 36) (%closure-ref self$686 37) (%closure-ref self$686 38) unify-subst$133 (%closure-ref self$686 39)) (cell (%closure-ref self$686 13)))) (%closure-ref self$685 1) (%closure-ref self$685 2) (%closure-ref self$685 3) (%closure-ref self$685 4) (%closure-ref self$685 5) (%closure-ref self$685 6) (%closure-ref self$685 7) (%closure-ref self$685 8) (%closure-ref self$685 9) (%closure-ref self$685 10) (%closure-ref self$685 11) (%closure-ref self$685 12) (%closure-ref self$685 13) (%closure-ref self$685 14) (%closure-ref self$685 15) (%closure-ref self$685 16) (%closure-ref self$685 17) (%closure-ref self$685 18) (%closure-ref self$685 19) (%closure-ref self$685 20) rewrite-with-lemmas$134 (%closure-ref self$685 21) (%closure-ref self$685 22) (%closure-ref self$685 23) (%closure-ref self$685 24) (%closure-ref self$685 25) (%closure-ref self$685 26) (%closure-ref self$685 27) (%closure-ref self$685 28) (%closure-ref self$685 29) (%closure-ref self$685 30) (%closure-ref self$685 31) (%closure-ref self$685 32) (%closure-ref self$685 33) (%closure-ref self$685 34) (%closure-ref self$685 35) (%closure-ref self$685 36) (%closure-ref self$685 37) (%closure-ref self$685 39)) (cell (%closure-ref self$685 38)))) (%closure-ref self$684 1) (%closure-ref self$684 2) (%closure-ref self$684 3) (%closure-ref self$684 4) (%closure-ref self$684 5) (%closure-ref self$684 6) (%closure-ref self$684 7) (%closure-ref self$684 8) (%closure-ref self$684 9) (%closure-ref self$684 10) (%closure-ref self$684 11) (%closure-ref self$684 12) (%closure-ref self$684 13) (%closure-ref self$684 14) (%closure-ref self$684 15) (%closure-ref self$684 16) (%closure-ref self$684 17) (%closure-ref self$684 18) rewrite-args$135 (%closure-ref self$684 19) (%closure-ref self$684 21) (%closure-ref self$684 22) (%closure-ref self$684 23) (%closure-ref self$684 24) (%closure-ref self$684 25) (%closure-ref self$684 26) (%closure-ref self$684 27) (%closure-ref self$684 28) (%closure-ref self$684 29) (%closure-ref self$684 30) (%closure-ref self$684 31) (%closure-ref self$684 32) (%closure-ref self$684 33) (%closure-ref self$684 34) (%closure-ref self$684 35) (%closure-ref self$684 36) (%closure-ref self$684 37) (%closure-ref self$684 38) (%closure-ref self$684 39)) (cell (%closure-ref self$684 20)))) (%closure-ref self$683 1) (%closure-ref self$683 2) (%closure-ref self$683 3) (%closure-ref self$683 4) (%closure-ref self$683 5) (%closure-ref self$683 6) (%closure-ref self$683 7) (%closure-ref self$683 8) (%closure-ref self$683 9) (%closure-ref self$683 10) (%closure-ref self$683 11) (%closure-ref self$683 12) (%closure-ref self$683 13) (%closure-ref self$683 14) (%closure-ref self$683 15) (%closure-ref self$683 16) (%closure-ref self$683 17) rewrite$136 (%closure-ref self$683 19) (%closure-ref self$683 20) (%closure-ref self$683 21) (%closure-ref self$683 22) (%closure-ref self$683 23) (%closure-ref self$683 24) (%closure-ref self$683 25) (%closure-ref self$683 26) (%closure-ref self$683 27) (%closure-ref self$683 28) (%closure-ref self$683 29) (%closure-ref self$683 30) (%closure-ref self$683 31) (%closure-ref self$683 32) (%closure-ref self$683 33) (%closure-ref self$683 34) (%closure-ref self$683 35) (%closure-ref self$683 36) (%closure-ref self$683 37) (%closure-ref self$683 38) (%closure-ref self$683 39)) (cell (%closure-ref self$683 18)))) (%closure-ref self$682 1) (%closure-ref self$682 2) (%closure-ref self$682 3) (%closure-ref self$682 4) (%closure-ref self$682 5) (%closure-ref self$682 6) (%closure-ref self$682 7) (%closure-ref self$682 8) (%closure-ref self$682 9) (%closure-ref self$682 10) (%closure-ref self$682 11) (%closure-ref self$682 12) (%closure-ref self$682 13) (%closure-ref self$682 14) (%closure-ref self$682 15) (%closure-ref self$682 16) (%closure-ref self$682 17) (%closure-ref self$682 19) (%closure-ref self$682 20) (%closure-ref self$682 21) scons$137 (%closure-ref self$682 22) (%closure-ref self$682 23) (%closure-ref self$682 24) (%closure-ref self$682 25) (%closure-ref self$682 26) (%closure-ref self$682 27) (%closure-ref self$682 28) (%closure-ref self$682 29) (%closure-ref self$682 30) (%closure-ref self$682 31) (%closure-ref self$682 32) (%closure-ref self$682 33) (%closure-ref self$682 34) (%closure-ref self$682 35) (%closure-ref self$682 36) (%closure-ref self$682 37) (%closure-ref self$682 38) (%closure-ref self$682 39)) (cell (%closure-ref self$682 18)))) (%closure-ref self$681 1) (%closure-ref self$681 2) (%closure-ref self$681 3) (%closure-ref self$681 4) (%closure-ref self$681 5) (%closure-ref self$681 6) (%closure-ref self$681 7) (%closure-ref self$681 8) (%closure-ref self$681 9) (%closure-ref self$681 10) (%closure-ref self$681 11) (%closure-ref self$681 12) (%closure-ref self$681 13) (%closure-ref self$681 14) (%closure-ref self$681 15) (%closure-ref self$681 16) (%closure-ref self$681 17) (%closure-ref self$681 18) (%closure-ref self$681 19) rewrite-count$138 (%closure-ref self$681 20) (%closure-ref self$681 22) (%closure-ref self$681 23) (%closure-ref self$681 24) (%closure-ref self$681 25) (%closure-ref self$681 26) (%closure-ref self$681 27) (%closure-ref self$681 28) (%closure-ref self$681 29) (%closure-ref self$681 30) (%closure-ref self$681 31) (%closure-ref self$681 32) (%closure-ref self$681 33) (%closure-ref self$681 34) (%closure-ref self$681 35) (%closure-ref self$681 36) (%closure-ref self$681 37) (%closure-ref self$681 38) (%closure-ref self$681 39)) (cell (%closure-ref self$681 21)))) (%closure-ref self$680 1) (%closure-ref self$680 2) (%closure-ref self$680 3) (%closure-ref self$680 4) (%closure-ref self$680 5) (%closure-ref self$680 6) (%closure-ref self$680 7) (%closure-ref self$680 8) (%closure-ref self$680 9) (%closure-ref self$680 10) if-constructor$139 (%closure-ref self$680 11) (%closure-ref self$680 12) (%closure-ref self$680 13) (%closure-ref self$680 14) (%closure-ref self$680 15) (%closure-ref self$680 16) (%closure-ref self$680 17) (%closure-ref self$680 18) (%closure-ref self$680 20) (%closure-ref self$680 21) (%closure-ref self$680 22) (%closure-ref self$680 23) (%closure-ref self$680 24) (%closure-ref self$680 25) (%closure-ref self$680 26) (%closure-ref self$680 27) (%closure-ref self$680 28) (%closure-ref self$680 29) (%closure-ref self$680 30) (%closure-ref self$680 31) (%closure-ref self$680 32) (%closure-ref self$680 33) (%closure-ref self$680 34) (%closure-ref self$680 35) (%closure-ref self$680 36) (%closure-ref self$680 37) (%closure-ref self$680 38) (%closure-ref self$680 39)) (cell (%closure-ref self$680 19)))) (%closure-ref self$679 1) (%closure-ref self$679 2) (%closure-ref self$679 3) (%closure-ref self$679 4) (%closure-ref self$679 5) (%closure-ref self$679 6) (%closure-ref self$679 7) (%closure-ref self$679 8) (%closure-ref self$679 9) (%closure-ref self$679 10) (%closure-ref self$679 12) (%closure-ref self$679 13) (%closure-ref self$679 14) (%closure-ref self$679 15) (%closure-ref self$679 16) (%closure-ref self$679 17) (%closure-ref self$679 18) (%closure-ref self$679 19) (%closure-ref self$679 20) (%closure-ref self$679 21) (%closure-ref self$679 22) (%closure-ref self$679 23) (%closure-ref self$679 24) (%closure-ref self$679 25) tautologyp$140 (%closure-ref self$679 26) (%closure-ref self$679 27) (%closure-ref self$679 28) (%closure-ref self$679 29) (%closure-ref self$679 30) (%closure-ref self$679 31) (%closure-ref self$679 32) (%closure-ref self$679 33) (%closure-ref self$679 34) (%closure-ref self$679 35) (%closure-ref self$679 36) (%closure-ref self$679 37) (%closure-ref self$679 38) (%closure-ref self$679 39)) (cell (%closure-ref self$679 11)))) (%closure-ref self$678 1) (%closure-ref self$678 2) (%closure-ref self$678 3) (%closure-ref self$678 4) (%closure-ref self$678 5) (%closure-ref self$678 6) (%closure-ref self$678 7) (%closure-ref self$678 8) (%closure-ref self$678 9) (%closure-ref self$678 10) (%closure-ref self$678 11) (%closure-ref self$678 12) (%closure-ref self$678 13) (%closure-ref self$678 14) (%closure-ref self$678 15) (%closure-ref self$678 16) (%closure-ref self$678 17) (%closure-ref self$678 18) (%closure-ref self$678 19) (%closure-ref self$678 20) (%closure-ref self$678 21) (%closure-ref self$678 22) (%closure-ref self$678 23) (%closure-ref self$678 24) (%closure-ref self$678 25) tautp$141 (%closure-ref self$678 27) (%closure-ref self$678 28) (%closure-ref self$678 29) (%closure-ref self$678 30) (%closure-ref self$678 31) (%closure-ref self$678 32) (%closure-ref self$678 33) (%closure-ref self$678 34) (%closure-ref self$678 35) (%closure-ref self$678 36) (%closure-ref self$678 37) (%closure-ref self$678 38) (%closure-ref self$678 39)) (cell (%closure-ref self$678 26)))) (%closure-ref self$677 1) (%closure-ref self$677 2) (%closure-ref self$677 3) (%closure-ref self$677 4) apply-subst-lst$142 (%closure-ref self$677 5) (%closure-ref self$677 6) (%closure-ref self$677 7) (%closure-ref self$677 8) (%closure-ref self$677 9) (%closure-ref self$677 10) (%closure-ref self$677 11) (%closure-ref self$677 12) (%closure-ref self$677 13) (%closure-ref self$677 14) (%closure-ref self$677 15) (%closure-ref self$677 16) (%closure-ref self$677 17) (%closure-ref self$677 18) (%closure-ref self$677 19) (%closure-ref self$677 20) (%closure-ref self$677 21) (%closure-ref self$677 22) (%closure-ref self$677 23) (%closure-ref self$677 24) (%closure-ref self$677 25) (%closure-ref self$677 27) (%closure-ref self$677 28) (%closure-ref self$677 29) (%closure-ref self$677 30) (%closure-ref self$677 31) (%closure-ref self$677 32) (%closure-ref self$677 33) (%closure-ref self$677 34) (%closure-ref self$677 35) (%closure-ref self$677 36) (%closure-ref self$677 37) (%closure-ref self$677 38) (%closure-ref self$677 39)) (cell (%closure-ref self$677 26)))) (%closure-ref self$676 1) (%closure-ref self$676 2) (%closure-ref self$676 3) apply-subst$143 (%closure-ref self$676 5) (%closure-ref self$676 6) (%closure-ref self$676 7) (%closure-ref self$676 8) (%closure-ref self$676 9) (%closure-ref self$676 10) (%closure-ref self$676 11) (%closure-ref self$676 12) (%closure-ref self$676 13) (%closure-ref self$676 14) (%closure-ref self$676 15) (%closure-ref self$676 16) (%closure-ref self$676 17) (%closure-ref self$676 18) (%closure-ref self$676 19) (%closure-ref self$676 20) (%closure-ref self$676 21) (%closure-ref self$676 22) (%closure-ref self$676 23) (%closure-ref self$676 24) (%closure-ref self$676 25) (%closure-ref self$676 26) (%closure-ref self$676 27) (%closure-ref self$676 28) (%closure-ref self$676 29) (%closure-ref self$676 30) (%closure-ref self$676 31) (%closure-ref self$676 32) (%closure-ref self$676 33) (%closure-ref self$676 34) (%closure-ref self$676 35) (%closure-ref self$676 36) (%closure-ref self$676 37) (%closure-ref self$676 38) (%closure-ref self$676 39)) (cell (%closure-ref self$676 4)))) (%closure-ref self$675 1) (%closure-ref self$675 2) (%closure-ref self$675 3) (%closure-ref self$675 5) (%closure-ref self$675 6) (%closure-ref self$675 7) (%closure-ref self$675 8) (%closure-ref self$675 9) (%closure-ref self$675 10) (%closure-ref self$675 11) (%closure-ref self$675 12) (%closure-ref self$675 13) (%closure-ref self$675 14) (%closure-ref self$675 15) (%closure-ref self$675 16) (%closure-ref self$675 17) (%closure-ref self$675 18) (%closure-ref self$675 19) (%closure-ref self$675 20) (%closure-ref self$675 21) (%closure-ref self$675 22) (%closure-ref self$675 23) (%closure-ref self$675 24) (%closure-ref self$675 25) (%closure-ref self$675 26) (%closure-ref self$675 27) (%closure-ref self$675 28) (%closure-ref self$675 29) (%closure-ref self$675 30) (%closure-ref self$675 31) (%closure-ref self$675 32) (%closure-ref self$675 33) translate-alist$144 (%closure-ref self$675 34) (%closure-ref self$675 35) (%closure-ref self$675 36) (%closure-ref self$675 37) (%closure-ref self$675 38) (%closure-ref self$675 39)) (cell (%closure-ref self$675 4)))) (%closure-ref self$674 1) (%closure-ref self$674 2) (%closure-ref self$674 3) (%closure-ref self$674 4) (%closure-ref self$674 5) (%closure-ref self$674 6) (%closure-ref self$674 7) (%closure-ref self$674 8) (%closure-ref self$674 9) (%closure-ref self$674 10) (%closure-ref self$674 11) (%closure-ref self$674 12) (%closure-ref self$674 13) (%closure-ref self$674 14) (%closure-ref self$674 15) (%closure-ref self$674 16) (%closure-ref self$674 17) (%closure-ref self$674 18) (%closure-ref self$674 19) (%closure-ref self$674 20) (%closure-ref self$674 21) (%closure-ref self$674 22) (%closure-ref self$674 23) (%closure-ref self$674 24) (%closure-ref self$674 25) (%closure-ref self$674 26) (%closure-ref self$674 27) (%closure-ref self$674 28) (%closure-ref self$674 29) (%closure-ref self$674 30) test$145 (%closure-ref self$674 31) (%closure-ref self$674 32) (%closure-ref self$674 34) (%closure-ref self$674 35) (%closure-ref self$674 36) (%closure-ref self$674 37) (%closure-ref self$674 38) (%closure-ref self$674 39)) (cell (%closure-ref self$674 33)))) (%closure-ref self$673 1) (%closure-ref self$673 2) (%closure-ref self$673 3) (%closure-ref self$673 4) (%closure-ref self$673 5) (%closure-ref self$673 6) (%closure-ref self$673 7) (%closure-ref self$673 8) (%closure-ref self$673 9) (%closure-ref self$673 10) (%closure-ref self$673 11) (%closure-ref self$673 12) (%closure-ref self$673 13) (%closure-ref self$673 14) (%closure-ref self$673 15) (%closure-ref self$673 16) (%closure-ref self$673 17) (%closure-ref self$673 18) (%closure-ref self$673 19) (%closure-ref self$673 20) (%closure-ref self$673 21) (%closure-ref self$673 22) (%closure-ref self$673 23) (%closure-ref self$673 24) symbol-record-equal?$146 (%closure-ref self$673 25) (%closure-ref self$673 26) (%closure-ref self$673 27) (%closure-ref self$673 28) (%closure-ref self$673 29) (%closure-ref self$673 31) (%closure-ref self$673 32) (%closure-ref self$673 33) (%closure-ref self$673 34) (%closure-ref self$673 35) (%closure-ref self$673 36) (%closure-ref self$673 37) (%closure-ref self$673 38) (%closure-ref self$673 39)) (cell (%closure-ref self$673 30)))) (%closure-ref self$672 1) (%closure-ref self$672 2) (%closure-ref self$672 3) (%closure-ref self$672 4) (%closure-ref self$672 5) (%closure-ref self$672 6) (%closure-ref self$672 7) (%closure-ref self$672 8) (%closure-ref self$672 9) get-name$147 (%closure-ref self$672 10) (%closure-ref self$672 11) (%closure-ref self$672 12) (%closure-ref self$672 13) (%closure-ref self$672 14) (%closure-ref self$672 15) (%closure-ref self$672 16) (%closure-ref self$672 17) (%closure-ref self$672 18) (%closure-ref self$672 19) (%closure-ref self$672 20) (%closure-ref self$672 21) (%closure-ref self$672 22) (%closure-ref self$672 23) (%closure-ref self$672 25) (%closure-ref self$672 26) (%closure-ref self$672 27) (%closure-ref self$672 28) (%closure-ref self$672 29) (%closure-ref self$672 30) (%closure-ref self$672 31) (%closure-ref self$672 32) (%closure-ref self$672 33) (%closure-ref self$672 34) (%closure-ref self$672 35) (%closure-ref self$672 36) (%closure-ref self$672 37) (%closure-ref self$672 38) (%closure-ref self$672 39)) (cell (%closure-ref self$672 24)))) (%closure-ref self$671 1) (%closure-ref self$671 2) (%closure-ref self$671 3) (%closure-ref self$671 4) (%closure-ref self$671 5) (%closure-ref self$671 6) (%closure-ref self$671 7) (%closure-ref self$671 8) get-lemmas$148 (%closure-ref self$671 10) (%closure-ref self$671 11) (%closure-ref self$671 12) (%closure-ref self$671 13) (%closure-ref self$671 14) (%closure-ref self$671 15) (%closure-ref self$671 16) (%closure-ref self$671 17) (%closure-ref self$671 18) (%closure-ref self$671 19) (%closure-ref self$671 20) (%closure-ref self$671 21) (%closure-ref self$671 22) (%closure-ref self$671 23) (%closure-ref self$671 24) (%closure-ref self$671 25) (%closure-ref self$671 26) (%closure-ref self$671 27) (%closure-ref self$671 28) (%closure-ref self$671 29) (%closure-ref self$671 30) (%closure-ref self$671 31) (%closure-ref self$671 32) (%closure-ref self$671 33) (%closure-ref self$671 34) (%closure-ref self$671 35) (%closure-ref self$671 36) (%closure-ref self$671 37) (%closure-ref self$671 38) (%closure-ref self$671 39)) (cell (%closure-ref self$671 9)))) (%closure-ref self$670 1) (%closure-ref self$670 2) (%closure-ref self$670 3) (%closure-ref self$670 4) (%closure-ref self$670 5) (%closure-ref self$670 6) (%closure-ref self$670 7) (%closure-ref self$670 8) (%closure-ref self$670 10) (%closure-ref self$670 11) (%closure-ref self$670 12) (%closure-ref self$670 13) (%closure-ref self$670 14) (%closure-ref self$670 15) (%closure-ref self$670 16) put-lemmas!$149 (%closure-ref self$670 17) (%closure-ref self$670 18) (%closure-ref self$670 19) (%closure-ref self$670 20) (%closure-ref self$670 21) (%closure-ref self$670 22) (%closure-ref self$670 23) (%closure-ref self$670 24) (%closure-ref self$670 25) (%closure-ref self$670 26) (%closure-ref self$670 27) (%closure-ref self$670 28) (%closure-ref self$670 29) (%closure-ref self$670 30) (%closure-ref self$670 31) (%closure-ref self$670 32) (%closure-ref self$670 33) (%closure-ref self$670 34) (%closure-ref self$670 35) (%closure-ref self$670 36) (%closure-ref self$670 37) (%closure-ref self$670 38) (%closure-ref self$670 39)) (cell (%closure-ref self$670 9)))) (%closure-ref self$669 1) (%closure-ref self$669 2) (%closure-ref self$669 3) (%closure-ref self$669 4) (%closure-ref self$669 5) (%closure-ref self$669 6) (%closure-ref self$669 7) (%closure-ref self$669 8) (%closure-ref self$669 9) (%closure-ref self$669 10) (%closure-ref self$669 11) make-symbol-record$150 (%closure-ref self$669 12) (%closure-ref self$669 13) (%closure-ref self$669 14) (%closure-ref self$669 15) (%closure-ref self$669 17) (%closure-ref self$669 18) (%closure-ref self$669 19) (%closure-ref self$669 20) (%closure-ref self$669 21) (%closure-ref self$669 22) (%closure-ref self$669 23) (%closure-ref self$669 24) (%closure-ref self$669 25) (%closure-ref self$669 26) (%closure-ref self$669 27) (%closure-ref self$669 28) (%closure-ref self$669 29) (%closure-ref self$669 30) (%closure-ref self$669 31) (%closure-ref self$669 32) (%closure-ref self$669 33) (%closure-ref self$669 34) (%closure-ref self$669 35) (%closure-ref self$669 36) (%closure-ref self$669 37) (%closure-ref self$669 38) (%closure-ref self$669 39)) (cell (%closure-ref self$669 16)))) *symbol-records-alist*$151 (%closure-ref self$668 1) (%closure-ref self$668 2) (%closure-ref self$668 3) (%closure-ref self$668 4) (%closure-ref self$668 5) (%closure-ref self$668 6) (%closure-ref self$668 7) (%closure-ref self$668 8) (%closure-ref self$668 9) (%closure-ref self$668 10) (%closure-ref self$668 12) (%closure-ref self$668 13) (%closure-ref self$668 14) (%closure-ref self$668 15) (%closure-ref self$668 16) (%closure-ref self$668 17) (%closure-ref self$668 18) (%closure-ref self$668 19) (%closure-ref self$668 20) (%closure-ref self$668 21) (%closure-ref self$668 22) (%closure-ref self$668 23) (%closure-ref self$668 24) (%closure-ref self$668 25) (%closure-ref self$668 26) (%closure-ref self$668 27) (%closure-ref self$668 28) (%closure-ref self$668 29) (%closure-ref self$668 30) (%closure-ref self$668 31) (%closure-ref self$668 32) (%closure-ref self$668 33) (%closure-ref self$668 34) (%closure-ref self$668 35) (%closure-ref self$668 36) (%closure-ref self$668 37) (%closure-ref self$668 38) (%closure-ref self$668 39)) (cell (%closure-ref self$668 11)))) (%closure-ref self$667 2) (%closure-ref self$667 3) (%closure-ref self$667 4) (%closure-ref self$667 5) (%closure-ref self$667 6) (%closure-ref self$667 7) (%closure-ref self$667 8) (%closure-ref self$667 9) (%closure-ref self$667 10) (%closure-ref self$667 11) (%closure-ref self$667 12) (%closure-ref self$667 13) (%closure-ref self$667 14) (%closure-ref self$667 15) (%closure-ref self$667 16) (%closure-ref self$667 17) (%closure-ref self$667 18) (%closure-ref self$667 19) (%closure-ref self$667 20) (%closure-ref self$667 21) (%closure-ref self$667 22) (%closure-ref self$667 23) symbol->symbol-record$152 (%closure-ref self$667 24) (%closure-ref self$667 25) (%closure-ref self$667 26) (%closure-ref self$667 27) (%closure-ref self$667 28) (%closure-ref self$667 29) (%closure-ref self$667 30) (%closure-ref self$667 31) (%closure-ref self$667 32) (%closure-ref self$667 33) (%closure-ref self$667 34) (%closure-ref self$667 35) (%closure-ref self$667 36) (%closure-ref self$667 37) (%closure-ref self$667 38) (%closure-ref self$667 39)) (cell (%closure-ref self$667 1)))) (%closure-ref self$666 1) (%closure-ref self$666 2) (%closure-ref self$666 3) (%closure-ref self$666 4) (%closure-ref self$666 5) (%closure-ref self$666 6) (%closure-ref self$666 7) get$153 (%closure-ref self$666 8) (%closure-ref self$666 9) (%closure-ref self$666 10) (%closure-ref self$666 11) (%closure-ref self$666 12) (%closure-ref self$666 13) (%closure-ref self$666 14) (%closure-ref self$666 15) (%closure-ref self$666 16) (%closure-ref self$666 17) (%closure-ref self$666 18) (%closure-ref self$666 19) (%closure-ref self$666 20) (%closure-ref self$666 21) (%closure-ref self$666 22) (%closure-ref self$666 24) (%closure-ref self$666 25) (%closure-ref self$666 26) (%closure-ref self$666 27) (%closure-ref self$666 28) (%closure-ref self$666 29) (%closure-ref self$666 30) (%closure-ref self$666 31) (%closure-ref self$666 32) (%closure-ref self$666 33) (%closure-ref self$666 34) (%closure-ref self$666 35) (%closure-ref self$666 36) (%closure-ref self$666 37) (%closure-ref self$666 38) (%closure-ref self$666 39)) (cell (%closure-ref self$666 23)))) (%closure-ref self$665 1) (%closure-ref self$665 2) (%closure-ref self$665 3) (%closure-ref self$665 4) (%closure-ref self$665 5) (%closure-ref self$665 6) (%closure-ref self$665 7) (%closure-ref self$665 9) (%closure-ref self$665 10) (%closure-ref self$665 11) (%closure-ref self$665 12) (%closure-ref self$665 13) (%closure-ref self$665 14) (%closure-ref self$665 15) put$154 (%closure-ref self$665 16) (%closure-ref self$665 17) (%closure-ref self$665 18) (%closure-ref self$665 19) (%closure-ref self$665 20) (%closure-ref self$665 21) (%closure-ref self$665 22) (%closure-ref self$665 23) (%closure-ref self$665 24) (%closure-ref self$665 25) (%closure-ref self$665 26) (%closure-ref self$665 27) (%closure-ref self$665 28) (%closure-ref self$665 29) (%closure-ref self$665 30) (%closure-ref self$665 31) (%closure-ref self$665 32) (%closure-ref self$665 33) (%closure-ref self$665 34) (%closure-ref self$665 35) (%closure-ref self$665 36) (%closure-ref self$665 37) (%closure-ref self$665 38) (%closure-ref self$665 39)) (cell (%closure-ref self$665 8)))) (%closure-ref self$664 1) (%closure-ref self$664 2) (%closure-ref self$664 3) (%closure-ref self$664 4) (%closure-ref self$664 5) (%closure-ref self$664 6) (%closure-ref self$664 7) (%closure-ref self$664 8) (%closure-ref self$664 9) (%closure-ref self$664 10) (%closure-ref self$664 11) (%closure-ref self$664 12) (%closure-ref self$664 13) (%closure-ref self$664 14) (%closure-ref self$664 15) (%closure-ref self$664 17) (%closure-ref self$664 18) (%closure-ref self$664 19) (%closure-ref self$664 20) (%closure-ref self$664 21) (%closure-ref self$664 22) (%closure-ref self$664 23) (%closure-ref self$664 24) (%closure-ref self$664 25) (%closure-ref self$664 26) (%closure-ref self$664 27) (%closure-ref self$664 28) (%closure-ref self$664 29) (%closure-ref self$664 30) (%closure-ref self$664 31) (%closure-ref self$664 32) (%closure-ref self$664 33) (%closure-ref self$664 34) (%closure-ref self$664 35) (%closure-ref self$664 36) (%closure-ref self$664 37) (%closure-ref self$664 38) (%closure-ref self$664 39) untranslate-term$155) (cell (%closure-ref self$664 16)))) (%closure-ref self$663 1) (%closure-ref self$663 2) (%closure-ref self$663 3) (%closure-ref self$663 4) (%closure-ref self$663 5) (%closure-ref self$663 6) (%closure-ref self$663 7) (%closure-ref self$663 8) (%closure-ref self$663 9) (%closure-ref self$663 10) (%closure-ref self$663 11) (%closure-ref self$663 12) (%closure-ref self$663 13) (%closure-ref self$663 14) (%closure-ref self$663 15) (%closure-ref self$663 16) (%closure-ref self$663 17) (%closure-ref self$663 18) (%closure-ref self$663 19) (%closure-ref self$663 20) (%closure-ref self$663 21) (%closure-ref self$663 22) (%closure-ref self$663 23) (%closure-ref self$663 24) (%closure-ref self$663 25) (%closure-ref self$663 26) (%closure-ref self$663 27) (%closure-ref self$663 28) (%closure-ref self$663 29) (%closure-ref self$663 30) (%closure-ref self$663 31) (%closure-ref self$663 32) (%closure-ref self$663 33) (%closure-ref self$663 34) translate-args$156 (%closure-ref self$663 35) (%closure-ref self$663 36) (%closure-ref self$663 37) (%closure-ref self$663 38)) (cell (%closure-ref self$663 39)))) (%closure-ref self$662 1) (%closure-ref self$662 2) (%closure-ref self$662 3) (%closure-ref self$662 4) (%closure-ref self$662 5) (%closure-ref self$662 6) (%closure-ref self$662 7) (%closure-ref self$662 8) (%closure-ref self$662 9) (%closure-ref self$662 10) (%closure-ref self$662 11) (%closure-ref self$662 12) (%closure-ref self$662 13) (%closure-ref self$662 14) (%closure-ref self$662 15) (%closure-ref self$662 16) (%closure-ref self$662 17) (%closure-ref self$662 18) (%closure-ref self$662 19) (%closure-ref self$662 20) (%closure-ref self$662 21) (%closure-ref self$662 22) (%closure-ref self$662 23) (%closure-ref self$662 24) (%closure-ref self$662 25) (%closure-ref self$662 26) (%closure-ref self$662 27) (%closure-ref self$662 28) (%closure-ref self$662 29) (%closure-ref self$662 30) (%closure-ref self$662 31) (%closure-ref self$662 32) (%closure-ref self$662 33) (%closure-ref self$662 34) translate-term$157 (%closure-ref self$662 36) (%closure-ref self$662 37) (%closure-ref self$662 38) (%closure-ref self$662 39)) (cell (%closure-ref self$662 35)))) (%closure-ref self$661 1) add-lemma$158 (%closure-ref self$661 2) (%closure-ref self$661 3) (%closure-ref self$661 4) (%closure-ref self$661 5) (%closure-ref self$661 6) (%closure-ref self$661 7) (%closure-ref self$661 8) (%closure-ref self$661 9) (%closure-ref self$661 10) (%closure-ref self$661 11) (%closure-ref self$661 12) (%closure-ref self$661 13) (%closure-ref self$661 14) (%closure-ref self$661 15) (%closure-ref self$661 16) (%closure-ref self$661 17) (%closure-ref self$661 18) (%closure-ref self$661 19) (%closure-ref self$661 20) (%closure-ref self$661 21) (%closure-ref self$661 22) (%closure-ref self$661 23) (%closure-ref self$661 24) (%closure-ref self$661 25) (%closure-ref self$661 26) (%closure-ref self$661 27) (%closure-ref self$661 28) (%closure-ref self$661 29) (%closure-ref self$661 30) (%closure-ref self$661 31) (%closure-ref self$661 32) (%closure-ref self$661 33) (%closure-ref self$661 34) (%closure-ref self$661 36) (%closure-ref self$661 37) (%closure-ref self$661 38) (%closure-ref self$661 39)) (cell (%closure-ref self$661 35)))) (%closure-ref self$660 1) add-lemma-lst$159 (%closure-ref self$660 3) (%closure-ref self$660 4) (%closure-ref self$660 5) (%closure-ref self$660 6) (%closure-ref self$660 7) (%closure-ref self$660 8) (%closure-ref self$660 9) (%closure-ref self$660 10) (%closure-ref self$660 11) (%closure-ref self$660 12) (%closure-ref self$660 13) (%closure-ref self$660 14) (%closure-ref self$660 15) (%closure-ref self$660 16) (%closure-ref self$660 17) (%closure-ref self$660 18) (%closure-ref self$660 19) (%closure-ref self$660 20) (%closure-ref self$660 21) (%closure-ref self$660 22) (%closure-ref self$660 23) (%closure-ref self$660 24) (%closure-ref self$660 25) (%closure-ref self$660 26) (%closure-ref self$660 27) (%closure-ref self$660 28) (%closure-ref self$660 29) (%closure-ref self$660 30) (%closure-ref self$660 31) (%closure-ref self$660 32) (%closure-ref self$660 33) (%closure-ref self$660 34) (%closure-ref self$660 35) (%closure-ref self$660 36) (%closure-ref self$660 37) (%closure-ref self$660 38) (%closure-ref self$660 39)) (cell (%closure-ref self$660 2)))) (%closure-ref self$659 1) (%closure-ref self$659 2) (%closure-ref self$659 4) (%closure-ref self$659 5) (%closure-ref self$659 6) (%closure-ref self$659 7) (%closure-ref self$659 8) (%closure-ref self$659 9) (%closure-ref self$659 10) (%closure-ref self$659 11) (%closure-ref self$659 12) (%closure-ref self$659 13) (%closure-ref self$659 14) (%closure-ref self$659 15) (%closure-ref self$659 16) (%closure-ref self$659 17) (%closure-ref self$659 18) (%closure-ref self$659 19) (%closure-ref self$659 20) (%closure-ref self$659 21) (%closure-ref self$659 22) setup$160 (%closure-ref self$659 23) (%closure-ref self$659 24) (%closure-ref self$659 25) (%closure-ref self$659 26) (%closure-ref self$659 27) (%closure-ref self$659 28) (%closure-ref self$659 29) (%closure-ref self$659 30) (%closure-ref self$659 31) (%closure-ref self$659 32) (%closure-ref self$659 33) (%closure-ref self$659 34) (%closure-ref self$659 35) (%closure-ref self$659 36) (%closure-ref self$659 37) (%closure-ref self$659 38) (%closure-ref self$659 39)) (cell (%closure-ref self$659 3)))) *symbol-records-alist*$151 add-lemma$158 add-lemma-lst$159 apply-subst$143 apply-subst-lst$142 false-term$127 falsep$129 get$153 get-lemmas$148 get-name$147 if-constructor$139 make-symbol-record$150 one-way-unify$132 one-way-unify1$131 one-way-unify1-lst$130 put$154 put-lemmas!$149 rewrite$136 rewrite-args$135 rewrite-count$138 rewrite-with-lemmas$134 scons$137 symbol->symbol-record$152 symbol-record-equal?$146 tautologyp$140 tautp$141 term-args-equal?$122 term-equal?$123 term-member?$121 test$145 trans-of-implies$125 trans-of-implies1$124 translate-alist$144 translate-args$156 translate-term$157 true-term$126 truep$128 unify-subst$133 untranslate-term$155) (cell setup$160))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$576))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$577))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */ +/* +"---------------- C code:" */ +#define closcall0(td,clo) ((clo)->fn)(td,0,clo) +#define return_closcall0(td, clo) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + GC(td,clo,buf,0); return; \ + } else {closcall0(td,(closure) (clo)); return;}} + +#define return_direct0(td, _fn) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 0); return; \ + } else { (_fn)(td,0,(closure)_fn); }} + +#define closcall1(td,clo,a1) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,0, (closure)(a1), clo); } else { ((clo)->fn)(td,1,clo,a1);} +#define return_closcall1(td, clo,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1;\ + GC(td,clo,buf,1); return; \ + } else {closcall1(td,(closure) (clo),a1); return;}} + +#define return_direct1(td, _fn,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 1); return; \ + } else { (_fn)(td,1,(closure)_fn,a1); }} + +#define closcall2(td,clo,a1,a2) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,1, (closure)(a1), clo,a2); } else { ((clo)->fn)(td,2,clo,a1,a2);} +#define return_closcall2(td, clo,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2;\ + GC(td,clo,buf,2); return; \ + } else {closcall2(td,(closure) (clo),a1,a2); return;}} + +#define return_direct2(td, _fn,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 2); return; \ + } else { (_fn)(td,2,(closure)_fn,a1,a2); }} + +#define closcall3(td,clo,a1,a2,a3) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,2, (closure)(a1), clo,a2,a3); } else { ((clo)->fn)(td,3,clo,a1,a2,a3);} +#define return_closcall3(td, clo,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ + GC(td,clo,buf,3); return; \ + } else {closcall3(td,(closure) (clo),a1,a2,a3); return;}} + +#define return_direct3(td, _fn,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 3); return; \ + } else { (_fn)(td,3,(closure)_fn,a1,a2,a3); }} + +#define closcall4(td,clo,a1,a2,a3,a4) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,3, (closure)(a1), clo,a2,a3,a4); } else { ((clo)->fn)(td,4,clo,a1,a2,a3,a4);} +#define return_closcall4(td, clo,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ + GC(td,clo,buf,4); return; \ + } else {closcall4(td,(closure) (clo),a1,a2,a3,a4); return;}} + +#define return_direct4(td, _fn,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 4); return; \ + } else { (_fn)(td,4,(closure)_fn,a1,a2,a3,a4); }} + +#define closcall5(td,clo,a1,a2,a3,a4,a5) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,4, (closure)(a1), clo,a2,a3,a4,a5); } else { ((clo)->fn)(td,5,clo,a1,a2,a3,a4,a5);} +#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ + GC(td,clo,buf,5); return; \ + } else {closcall5(td,(closure) (clo),a1,a2,a3,a4,a5); return;}} + +#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 5); return; \ + } else { (_fn)(td,5,(closure)_fn,a1,a2,a3,a4,a5); }} + +#define closcall40(td,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,39, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); } else { ((clo)->fn)(td,40,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40);} +#define return_closcall40(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[40]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40;\ + GC(td,clo,buf,40); return; \ + } else {closcall40(td,(closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); return;}} + +#define return_direct40(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[40]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;buf[39] = a40; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 40); return; \ + } else { (_fn)(td,40,(closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40); }} + +#include "cyclone/types.h" +object __glo_run_91r7rs_91benchmark = nil; +object __glo_hide = nil; +object __glo_test_91boyer = nil; +object __glo_setup_91boyer = nil; +object __glo_term = nil; +object __glo_alist = nil; +object __glo_main = nil; +extern object __glo_cons_91source_scheme_base; +extern object __glo_syntax_91rules_scheme_base; +extern object __glo_letrec_85_scheme_base; +extern object __glo_guard_scheme_base; +extern object __glo_guard_91aux_scheme_base; +extern object __glo_receive_scheme_base; +extern object __glo_abs_scheme_base; +extern object __glo_max_scheme_base; +extern object __glo_min_scheme_base; +extern object __glo_modulo_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_even_127_scheme_base; +extern object __glo_exact_91integer_127_scheme_base; +extern object __glo_exact_127_scheme_base; +extern object __glo_inexact_127_scheme_base; +extern object __glo_odd_127_scheme_base; +extern object __glo_complex_127_scheme_base; +extern object __glo_rational_127_scheme_base; +extern object __glo_gcd_scheme_base; +extern object __glo_lcm_scheme_base; +extern object __glo_quotient_scheme_base; +extern object __glo_remainder_scheme_base; +extern object __glo_truncate_91quotient_scheme_base; +extern object __glo_truncate_91remainder_scheme_base; +extern object __glo_truncate_95_scheme_base; +extern object __glo_floor_91quotient_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_floor_95_scheme_base; +extern object __glo_square_scheme_base; +extern object __glo_expt_scheme_base; +extern object __glo_call_91with_91current_91continuation_scheme_base; +extern object __glo_call_95cc_scheme_base; +extern object __glo_call_91with_91values_scheme_base; +extern object __glo_dynamic_91wind_scheme_base; +extern object __glo_values_scheme_base; +extern object __glo_char_123_127_scheme_base; +extern object __glo_char_121_127_scheme_base; +extern object __glo_char_125_127_scheme_base; +extern object __glo_char_121_123_127_scheme_base; +extern object __glo_char_125_123_127_scheme_base; +extern object __glo_string_123_127_scheme_base; +extern object __glo_string_121_127_scheme_base; +extern object __glo_string_121_123_127_scheme_base; +extern object __glo_string_125_127_scheme_base; +extern object __glo_string_125_123_127_scheme_base; +extern object __glo_foldl_scheme_base; +extern object __glo_foldr_scheme_base; +extern object __glo_not_scheme_base; +extern object __glo_list_127_scheme_base; +extern object __glo_zero_127_scheme_base; +extern object __glo_positive_127_scheme_base; +extern object __glo_negative_127_scheme_base; +extern object __glo_append_scheme_base; +extern object __glo__list_scheme_base; +extern object __glo_make_91list_scheme_base; +extern object __glo_list_91copy_scheme_base; +extern object __glo_map_scheme_base; +extern object __glo_for_91each_scheme_base; +extern object __glo_list_91tail_scheme_base; +extern object __glo_list_91ref_scheme_base; +extern object __glo_list_91set_67_scheme_base; +extern object __glo_reverse_scheme_base; +extern object __glo_boolean_123_127_scheme_base; +extern object __glo_symbol_123_127_scheme_base; +extern object __glo_Cyc_91obj_123_127_scheme_base; +extern object __glo_vector_scheme_base; +extern object __glo_vector_91append_scheme_base; +extern object __glo_vector_91copy_scheme_base; +extern object __glo_vector_91copy_67_scheme_base; +extern object __glo_vector_91fill_67_scheme_base; +extern object __glo_vector_91_125list_scheme_base; +extern object __glo_vector_91_125string_scheme_base; +extern object __glo_vector_91map_scheme_base; +extern object __glo_vector_91for_91each_scheme_base; +extern object __glo_make_91string_scheme_base; +extern object __glo_string_scheme_base; +extern object __glo_string_91copy_scheme_base; +extern object __glo_string_91copy_67_scheme_base; +extern object __glo_string_91fill_67_scheme_base; +extern object __glo_string_91_125list_scheme_base; +extern object __glo_string_91_125vector_scheme_base; +extern object __glo_string_91map_scheme_base; +extern object __glo_string_91for_91each_scheme_base; +extern object __glo_make_91parameter_scheme_base; +extern object __glo_current_91output_91port_scheme_base; +extern object __glo_current_91input_91port_scheme_base; +extern object __glo_current_91error_91port_scheme_base; +extern object __glo_call_91with_91port_scheme_base; +extern object __glo_error_scheme_base; +extern object __glo_raise_scheme_base; +extern object __glo_raise_91continuable_scheme_base; +extern object __glo_with_91exception_91handler_scheme_base; +extern object __glo_Cyc_91add_91exception_91handler_scheme_base; +extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; +extern object __glo_newline_scheme_base; +extern object __glo_write_91char_scheme_base; +extern object __glo_write_91string_scheme_base; +extern object __glo_flush_91output_91port_scheme_base; +extern object __glo_read_91line_scheme_base; +extern object __glo_read_91string_scheme_base; +extern object __glo_input_91port_127_scheme_base; +extern object __glo_output_91port_127_scheme_base; +extern object __glo_input_91port_91open_127_scheme_base; +extern object __glo_output_91port_91open_127_scheme_base; +extern object __glo_features_scheme_base; +extern object __glo_any_scheme_base; +extern object __glo_every_scheme_base; +extern object __glo_and_scheme_base; +extern object __glo_or_scheme_base; +extern object __glo_let_scheme_base; +extern object __glo_let_85_scheme_base; +extern object __glo_letrec_scheme_base; +extern object __glo_begin_scheme_base; +extern object __glo__case_scheme_base; +extern object __glo_cond_scheme_base; +extern object __glo_cond_91expand_scheme_base; +extern object __glo__do_scheme_base; +extern object __glo_when_scheme_base; +extern object __glo_unless_scheme_base; +extern object __glo_quasiquote_scheme_base; +extern object __glo_floor_scheme_base; +extern object __glo_ceiling_scheme_base; +extern object __glo_truncate_scheme_base; +extern object __glo_round_scheme_base; +extern object __glo_exact_scheme_base; +extern object __glo_inexact_scheme_base; +extern object __glo_eof_91object_scheme_base; +extern object __glo_syntax_91error_scheme_base; +extern object __glo_bytevector_91copy_scheme_base; +extern object __glo_utf8_91_125string_scheme_base; +extern object __glo_string_91_125utf8_scheme_base; +extern object __glo_denominator_scheme_base; +extern object __glo_numerator_scheme_base; +extern object __glo_caaaaar_scheme_cxr; +extern object __glo_read_scheme_read; +extern object __glo_read_91all_scheme_read; +extern object __glo_display_scheme_write; +extern object __glo_write_scheme_write; +extern object __glo_current_91second_scheme_time; +extern object __glo_current_91jiffy_scheme_time; +extern object __glo_jiffies_91per_91second_scheme_time; +#include "cyclone/runtime.h" +#include "cyclone/runtime-main.h" +defsymbol(u); +defsymbol(mem); +defsymbol(val); +defsymbol(set); +defsymbol(get); +defsymbol(cdr); +defsymbol(assignedp); +defsymbol(assignment); +defsymbol(car); +defsymbol(last); +defsymbol(sigma); +defsymbol(x7); +defsymbol(x6); +defsymbol(x5); +defsymbol(x4); +defsymbol(x3); +defsymbol(x2); +defsymbol(x1); +defsymbol(dsort); +defsymbol(sort2); +defsymbol(delete); +defsymbol(prime_91list); +defsymbol(times_91list); +defsymbol(greatest_91factor); +defsymbol(samefringe); +defsymbol(gopher); +defsymbol(listp); +defsymbol(nlistp); +defsymbol(value); +defsymbol(w); +defsymbol(gcd); +defsymbol(power_91rep); +defsymbol(big_91plus); +defsymbol(base); +defsymbol(big_91plus1); +defsymbol(power_91eval); +defsymbol(quotient); +defsymbol(sort_91lp); +defsymbol(count_91list); +defsymbol(k); +defsymbol(j); +defsymbol(exp); +defsymbol(nth); +defsymbol(intersect); +defsymbol(length); +defsymbol(member); +defsymbol(flatten); +defsymbol(mc_91flatten); +defsymbol(envrn); +defsymbol(pds); +defsymbol(exec); +defsymbol(times); +defsymbol(plus_91fringe); +defsymbol(append); +defsymbol(plus_91tree); +defsymbol(meaning); +defsymbol(difference); +defsymbol(z); +defsymbol(plus); +defsymbol(e); +defsymbol(d); +defsymbol(c); +defsymbol(b); +defsymbol(a); +defsymbol(numberp); +defsymbol(q); +defsymbol(p); +defsymbol(prime1); +defsymbol(add1); +defsymbol(prime); +defsymbol(falsify1); +defsymbol(falsify); +defsymbol(normalize); +defsymbol(tautologyp); +defsymbol(tautology_91checker); +defsymbol(assume_91false); +defsymbol(cons); +defsymbol(alist); +defsymbol(var); +defsymbol(assume_91true); +defsymbol(remainder); +defsymbol(divides); +defsymbol(reverse_91loop); +defsymbol(reverse_91); +defsymbol(fact_91loop); +defsymbol(i); +defsymbol(fact_91); +defsymbol(zero); +defsymbol(countps_91loop); +defsymbol(pred); +defsymbol(l); +defsymbol(countps_91); +defsymbol(_1911_91); +defsymbol(odd); +defsymbol(zerop); +defsymbol(even1); +defsymbol(iff); +defsymbol(boolean); +defsymbol(greatereqp); +defsymbol(not); +defsymbol(lesseqp); +defsymbol(lessp); +defsymbol(greaterp); +defsymbol(fix); +defsymbol(y); +defsymbol(x); +defsymbol(eqp); +defsymbol(nil); +defsymbol(optimize); +defsymbol(codegen); +defsymbol(reverse); +defsymbol(form); +defsymbol(compile); +defsymbol(lemmas); +defsymbol(equal); +defsymbol(or); +defsymbol(_85); +defsymbol(and); +defsymbol(implies); +defsymbol(_if); +defsymbol(f); +defsymbol(t); +static void __lambda_492(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73120, object add_91lemma_73119, object add_91lemma_91lst_73118, object apply_91subst_73117, object apply_91subst_91lst_73116, object false_91term_73115, object falsep_73114, object get_73113, object get_91lemmas_73112, object get_91name_73111, object if_91constructor_73110, object make_91symbol_91record_73109, object one_91way_91unify_73108, object one_91way_91unify1_73107, object one_91way_91unify1_91lst_73106, object put_73105, object put_91lemmas_67_73104, object rewrite_73103, object rewrite_91args_73102, object rewrite_91count_73101, object rewrite_91with_91lemmas_73100, object scons_7399, object setup_7398, object symbol_91_125symbol_91record_7397, object symbol_91record_91equal_127_7396, object tautologyp_7395, object tautp_7394, object term_91args_91equal_127_7393, object term_91equal_127_7392, object term_91member_127_7391, object test_7390, object trans_91of_91implies_7389, object trans_91of_91implies1_7388, object translate_91alist_7387, object translate_91args_7386, object translate_91term_7385, object true_91term_7384, object truep_7383, object unify_91subst_7382, object untranslate_91term_7381) ; +static void __lambda_491(void *data, int argc, closure _) ; +static void __lambda_490(void *data, int argc, closure _,object r_73265) ; +static void __lambda_489(void *data, int argc, closure _,object r_73577) ; +static void __lambda_488(void *data, int argc, closure _,object r_73266) ; +static void __lambda_487(void *data, int argc, closure _,object r_73576) ; +static void __lambda_486(void *data, int argc, closure _,object r_73267) ; +static void __lambda_485(void *data, int argc, closure _) ; +static void __lambda_484(void *data, int argc, closure _,object setup_73160, object add_91lemma_91lst_73159, object add_91lemma_73158, object translate_91term_73157, object translate_91args_73156, object untranslate_91term_73155, object put_73154, object get_73153, object symbol_91_125symbol_91record_73152, object _85symbol_91records_91alist_85_73151, object make_91symbol_91record_73150, object put_91lemmas_67_73149, object get_91lemmas_73148, object get_91name_73147, object symbol_91record_91equal_127_73146, object test_73145, object translate_91alist_73144, object apply_91subst_73143, object apply_91subst_91lst_73142, object tautp_73141, object tautologyp_73140, object if_91constructor_73139, object rewrite_91count_73138, object scons_73137, object rewrite_73136, object rewrite_91args_73135, object rewrite_91with_91lemmas_73134, object unify_91subst_73133, object one_91way_91unify_73132, object one_91way_91unify1_73131, object one_91way_91unify1_91lst_73130, object falsep_73129, object truep_73128, object false_91term_73127, object true_91term_73126, object trans_91of_91implies_73125, object trans_91of_91implies1_73124, object term_91equal_127_73123, object term_91args_91equal_127_73122, object term_91member_127_73121) ; +static void __lambda_483(void *data, int argc, object self_73659, object setup_73160) ; +static void __lambda_482(void *data, int argc, object self_73660, object add_91lemma_91lst_73159) ; +static void __lambda_481(void *data, int argc, object self_73661, object add_91lemma_73158) ; +static void __lambda_480(void *data, int argc, object self_73662, object translate_91term_73157) ; +static void __lambda_479(void *data, int argc, object self_73663, object translate_91args_73156) ; +static void __lambda_478(void *data, int argc, object self_73664, object untranslate_91term_73155) ; +static void __lambda_477(void *data, int argc, object self_73665, object put_73154) ; +static void __lambda_476(void *data, int argc, object self_73666, object get_73153) ; +static void __lambda_475(void *data, int argc, object self_73667, object symbol_91_125symbol_91record_73152) ; +static void __lambda_474(void *data, int argc, object self_73668, object _85symbol_91records_91alist_85_73151) ; +static void __lambda_473(void *data, int argc, object self_73669, object make_91symbol_91record_73150) ; +static void __lambda_472(void *data, int argc, object self_73670, object put_91lemmas_67_73149) ; +static void __lambda_471(void *data, int argc, object self_73671, object get_91lemmas_73148) ; +static void __lambda_470(void *data, int argc, object self_73672, object get_91name_73147) ; +static void __lambda_469(void *data, int argc, object self_73673, object symbol_91record_91equal_127_73146) ; +static void __lambda_468(void *data, int argc, object self_73674, object test_73145) ; +static void __lambda_467(void *data, int argc, object self_73675, object translate_91alist_73144) ; +static void __lambda_466(void *data, int argc, object self_73676, object apply_91subst_73143) ; +static void __lambda_465(void *data, int argc, object self_73677, object apply_91subst_91lst_73142) ; +static void __lambda_464(void *data, int argc, object self_73678, object tautp_73141) ; +static void __lambda_463(void *data, int argc, object self_73679, object tautologyp_73140) ; +static void __lambda_462(void *data, int argc, object self_73680, object if_91constructor_73139) ; +static void __lambda_461(void *data, int argc, object self_73681, object rewrite_91count_73138) ; +static void __lambda_460(void *data, int argc, object self_73682, object scons_73137) ; +static void __lambda_459(void *data, int argc, object self_73683, object rewrite_73136) ; +static void __lambda_458(void *data, int argc, object self_73684, object rewrite_91args_73135) ; +static void __lambda_457(void *data, int argc, object self_73685, object rewrite_91with_91lemmas_73134) ; +static void __lambda_456(void *data, int argc, object self_73686, object unify_91subst_73133) ; +static void __lambda_455(void *data, int argc, object self_73687, object one_91way_91unify_73132) ; +static void __lambda_454(void *data, int argc, object self_73688, object one_91way_91unify1_73131) ; +static void __lambda_453(void *data, int argc, object self_73689, object one_91way_91unify1_91lst_73130) ; +static void __lambda_452(void *data, int argc, object self_73690, object falsep_73129) ; +static void __lambda_451(void *data, int argc, object self_73691, object truep_73128) ; +static void __lambda_450(void *data, int argc, object self_73692, object false_91term_73127) ; +static void __lambda_449(void *data, int argc, object self_73693, object true_91term_73126) ; +static void __lambda_448(void *data, int argc, object self_73694, object trans_91of_91implies_73125) ; +static void __lambda_447(void *data, int argc, object self_73695, object trans_91of_91implies1_73124) ; +static void __lambda_446(void *data, int argc, object self_73696, object term_91equal_127_73123) ; +static void __lambda_445(void *data, int argc, object self_73697, object term_91args_91equal_127_73122) ; +static void __lambda_444(void *data, int argc, object self_73698, object term_91member_127_73121) ; +static void __lambda_443(void *data, int argc, object self_73699, object k_73574) ; +static void __lambda_442(void *data, int argc, object self_73700, object r_73575) ; +static void __lambda_441(void *data, int argc, object self_73701, object r_73573) ; +static void __lambda_440(void *data, int argc, object self_73702, object r_73269) ; +static void __lambda_439(void *data, int argc, object self_73703, object k_73568, object lst_73231) ; +static void __lambda_438(void *data, int argc, object self_73704, object r_73569) ; +static void __lambda_437(void *data, int argc, object self_73705) ; +static void __lambda_436(void *data, int argc, object self_73706, object r_73572) ; +static void __lambda_435(void *data, int argc, object self_73707, object r_73570) ; +static void __lambda_434(void *data, int argc, object self_73708, object r_73571) ; +static void __lambda_433(void *data, int argc, object self_73709) ; +static void __lambda_432(void *data, int argc, object self_73710, object r_73567) ; +static void __lambda_431(void *data, int argc, object self_73711, object r_73270) ; +static void __lambda_430(void *data, int argc, object self_73712, object k_73550, object term_73230) ; +static void __lambda_429(void *data, int argc, object self_73713, object r_73551) ; +static void __lambda_428(void *data, int argc, object self_73714) ; +static void __lambda_427(void *data, int argc, object self_73715) ; +static void __lambda_426(void *data, int argc, object self_73716, object r_73560) ; +static void __lambda_425(void *data, int argc, object self_73717, object r_73552) ; +static void __lambda_424(void *data, int argc, object self_73718, object r_73553) ; +static void __lambda_423(void *data, int argc, object self_73719, object r_73555) ; +static void __lambda_422(void *data, int argc, object self_73720, object r_73559) ; +static void __lambda_421(void *data, int argc, object self_73721, object r_73557) ; +static void __lambda_420(void *data, int argc, object self_73722, object r_73558) ; +static void __lambda_419(void *data, int argc, object self_73723, object r_73556) ; +static void __lambda_418(void *data, int argc, object self_73724, object r_73554) ; +static void __lambda_417(void *data, int argc, object self_73725, object k_73561) ; +static void __lambda_416(void *data, int argc, object self_73726, object r_73562) ; +static void __lambda_415(void *data, int argc, object self_73727, object r_73565) ; +static void __lambda_414(void *data, int argc, object self_73728, object r_73566) ; +static void __lambda_413(void *data, int argc, object self_73729, object r_73563) ; +static void __lambda_412(void *data, int argc, object self_73730, object r_73564) ; +static void __lambda_411(void *data, int argc, object self_73731, object r_73549) ; +static void __lambda_410(void *data, int argc, object self_73732, object r_73271) ; +static void __lambda_409(void *data, int argc, object self_73733, object k_73543, object term_73229) ; +static void __lambda_408(void *data, int argc, object self_73734, object r_73544) ; +static void __lambda_407(void *data, int argc, object self_73735) ; +static void __lambda_406(void *data, int argc, object self_73736) ; +static void __lambda_405(void *data, int argc, object self_73737, object r_73548) ; +static void __lambda_404(void *data, int argc, object self_73738, object r_73545) ; +static void __lambda_403(void *data, int argc, object self_73739, object r_73547) ; +static void __lambda_402(void *data, int argc, object self_73740, object r_73546) ; +static void __lambda_401(void *data, int argc, object self_73741, object r_73542) ; +static void __lambda_400(void *data, int argc, object self_73742, object r_73272) ; +static void __lambda_399(void *data, int argc, object self_73743, object k_73536, object lst_73228) ; +static void __lambda_398(void *data, int argc, object self_73744, object r_73537) ; +static void __lambda_397(void *data, int argc, object self_73745) ; +static void __lambda_396(void *data, int argc, object self_73746, object r_73541) ; +static void __lambda_395(void *data, int argc, object self_73747, object r_73538) ; +static void __lambda_394(void *data, int argc, object self_73748, object r_73540) ; +static void __lambda_393(void *data, int argc, object self_73749, object r_73539) ; +static void __lambda_392(void *data, int argc, object self_73750) ; +static void __lambda_391(void *data, int argc, object self_73751, object r_73535) ; +static void __lambda_390(void *data, int argc, object self_73752, object r_73273) ; +static void __lambda_389(void *data, int argc, object self_73753, object k_73529, object term_73227) ; +static void __lambda_388(void *data, int argc, object self_73754, object r_73530) ; +static void __lambda_387(void *data, int argc, object self_73755) ; +static void __lambda_386(void *data, int argc, object self_73756) ; +static void __lambda_385(void *data, int argc, object self_73757, object r_73534) ; +static void __lambda_384(void *data, int argc, object self_73758, object r_73531) ; +static void __lambda_383(void *data, int argc, object self_73759, object r_73533) ; +static void __lambda_382(void *data, int argc, object self_73760, object r_73532) ; +static void __lambda_381(void *data, int argc, object self_73761, object r_73528) ; +static void __lambda_380(void *data, int argc, object self_73762, object r_73274) ; +static void __lambda_379(void *data, int argc, object self_73763, object k_73526, object sym_73226, object property_73225, object value_73224) ; +static void __lambda_378(void *data, int argc, object self_73764, object r_73527) ; +static void __lambda_377(void *data, int argc, object self_73765, object r_73525) ; +static void __lambda_376(void *data, int argc, object self_73766, object r_73275) ; +static void __lambda_375(void *data, int argc, object self_73767, object k_73523, object sym_73223, object property_73222) ; +static void __lambda_374(void *data, int argc, object self_73768, object r_73524) ; +static void __lambda_373(void *data, int argc, object self_73769, object r_73522) ; +static void __lambda_372(void *data, int argc, object self_73770, object r_73276) ; +static void __lambda_371(void *data, int argc, object self_73771, object k_73516, object sym_73219) ; +static void __lambda_370(void *data, int argc, object self_73772, object x_73220) ; +static void __lambda_369(void *data, int argc, object self_73773, object r_73221) ; +static void __lambda_368(void *data, int argc, object self_73774, object r_73521) ; +static void __lambda_367(void *data, int argc, object self_73775, object r_73520) ; +static void __lambda_366(void *data, int argc, object self_73776, object r_73519) ; +static void __lambda_365(void *data, int argc, object self_73777, object r_73515) ; +static void __lambda_364(void *data, int argc, object self_73778, object r_73277) ; +static void __lambda_363(void *data, int argc, object self_73779, object r_73514) ; +static void __lambda_362(void *data, int argc, object self_73780, object r_73278) ; +static void __lambda_361(void *data, int argc, object self_73781, object k_73512, object sym_73218) ; +static void __lambda_360(void *data, int argc, object self_73782, object r_73513) ; +static void __lambda_359(void *data, int argc, object self_73783, object r_73511) ; +static void __lambda_358(void *data, int argc, object self_73784, object r_73279) ; +static void __lambda_357(void *data, int argc, object self_73785, object k_73510, object symbol_91record_73217, object lemmas_73216) ; +static void __lambda_356(void *data, int argc, object self_73786, object r_73509) ; +static void __lambda_355(void *data, int argc, object self_73787, object r_73280) ; +static void __lambda_354(void *data, int argc, object self_73788, object k_73508, object symbol_91record_73215) ; +static void __lambda_353(void *data, int argc, object self_73789, object r_73507) ; +static void __lambda_352(void *data, int argc, object self_73790, object r_73281) ; +static void __lambda_351(void *data, int argc, object self_73791, object k_73506, object symbol_91record_73214) ; +static void __lambda_350(void *data, int argc, object self_73792, object r_73505) ; +static void __lambda_349(void *data, int argc, object self_73793, object r_73282) ; +static void __lambda_348(void *data, int argc, object self_73794, object k_73504, object r1_73213, object r2_73212) ; +static void __lambda_347(void *data, int argc, object self_73795, object r_73503) ; +static void __lambda_346(void *data, int argc, object self_73796, object r_73283) ; +static void __lambda_345(void *data, int argc, object self_73797, object k_73490, object alist_73205, object term_73204, object n_73203) ; +static void __lambda_344(void *data, int argc, object self_73798, object r_73492) ; +static void __lambda_343(void *data, int argc, object self_73799, object term_73207, object n_73206) ; +static void __lambda_342(void *data, int argc, object self_73800, object lp_73208) ; +static void __lambda_341(void *data, int argc, object self_73801, object lp_73208) ; +static void __lambda_340(void *data, int argc, object self_73802, object k_73497, object term_73210, object n_73209) ; +static void __lambda_339(void *data, int argc, object self_73803, object r_73498) ; +static void __lambda_338(void *data, int argc, object self_73804, object r_73501) ; +static void __lambda_337(void *data, int argc, object self_73805, object r_73502) ; +static void __lambda_336(void *data, int argc, object self_73806, object r_73499) ; +static void __lambda_335(void *data, int argc, object self_73807, object r_73500) ; +static void __lambda_334(void *data, int argc, object self_73808, object r_73496) ; +static void __lambda_333(void *data, int argc, object self_73809, object r_73495) ; +static void __lambda_332(void *data, int argc, object self_73810, object r_73494) ; +static void __lambda_331(void *data, int argc, object self_73811, object r_73493) ; +static void __lambda_330(void *data, int argc, object self_73812, object term_73211) ; +static void __lambda_329(void *data, int argc, object self_73813, object r_73489) ; +static void __lambda_328(void *data, int argc, object self_73814, object r_73284) ; +static void __lambda_327(void *data, int argc, object self_73815, object k_73481, object alist_73202) ; +static void __lambda_326(void *data, int argc, object self_73816, object r_73482) ; +static void __lambda_325(void *data, int argc, object self_73817) ; +static void __lambda_324(void *data, int argc, object self_73818, object r_73486) ; +static void __lambda_323(void *data, int argc, object self_73819, object r_73488) ; +static void __lambda_322(void *data, int argc, object self_73820, object r_73487) ; +static void __lambda_321(void *data, int argc, object self_73821, object r_73483) ; +static void __lambda_320(void *data, int argc, object self_73822, object r_73485) ; +static void __lambda_319(void *data, int argc, object self_73823, object r_73484) ; +static void __lambda_318(void *data, int argc, object self_73824) ; +static void __lambda_317(void *data, int argc, object self_73825, object r_73480) ; +static void __lambda_316(void *data, int argc, object self_73826, object r_73285) ; +static void __lambda_315(void *data, int argc, object self_73827, object k_73474, object alist_73200, object term_73199) ; +static void __lambda_314(void *data, int argc, object self_73828, object r_73475) ; +static void __lambda_313(void *data, int argc, object self_73829) ; +static void __lambda_312(void *data, int argc, object self_73830, object temp_91temp_73201) ; +static void __lambda_311(void *data, int argc, object self_73831) ; +static void __lambda_310(void *data, int argc, object self_73832, object r_73476) ; +static void __lambda_309(void *data, int argc, object self_73833, object r_73478) ; +static void __lambda_308(void *data, int argc, object self_73834, object r_73477) ; +static void __lambda_307(void *data, int argc, object self_73835, object r_73473) ; +static void __lambda_306(void *data, int argc, object self_73836, object r_73286) ; +static void __lambda_305(void *data, int argc, object self_73837, object k_73467, object alist_73198, object lst_73197) ; +static void __lambda_304(void *data, int argc, object self_73838, object r_73468) ; +static void __lambda_303(void *data, int argc, object self_73839) ; +static void __lambda_302(void *data, int argc, object self_73840, object r_73472) ; +static void __lambda_301(void *data, int argc, object self_73841, object r_73469) ; +static void __lambda_300(void *data, int argc, object self_73842, object r_73471) ; +static void __lambda_299(void *data, int argc, object self_73843, object r_73470) ; +static void __lambda_298(void *data, int argc, object self_73844) ; +static void __lambda_297(void *data, int argc, object self_73845, object r_73466) ; +static void __lambda_296(void *data, int argc, object self_73846, object r_73287) ; +static void __lambda_295(void *data, int argc, object self_73847, object k_73462, object x_73196) ; +static void __lambda_294(void *data, int argc, object self_73848, object r_73463) ; +static void __lambda_293(void *data, int argc, object self_73849, object r_73464) ; +static void __lambda_292(void *data, int argc, object self_73850, object r_73465) ; +static void __lambda_291(void *data, int argc, object self_73851, object r_73461) ; +static void __lambda_290(void *data, int argc, object self_73852, object r_73288) ; +static void __lambda_289(void *data, int argc, object self_73853, object k_73442, object x_73195, object true_91lst_73194, object false_91lst_73193) ; +static void __lambda_288(void *data, int argc, object self_73854, object r_73443) ; +static void __lambda_287(void *data, int argc, object self_73855, object r_73444) ; +static void __lambda_286(void *data, int argc, object self_73856, object r_73445) ; +static void __lambda_285(void *data, int argc, object self_73857) ; +static void __lambda_284(void *data, int argc, object self_73858, object r_73460) ; +static void __lambda_283(void *data, int argc, object self_73859, object r_73446) ; +static void __lambda_282(void *data, int argc, object self_73860) ; +static void __lambda_281(void *data, int argc, object self_73861) ; +static void __lambda_280(void *data, int argc, object self_73862, object r_73459) ; +static void __lambda_279(void *data, int argc, object self_73863, object r_73447) ; +static void __lambda_278(void *data, int argc, object self_73864, object r_73458) ; +static void __lambda_277(void *data, int argc, object self_73865, object r_73449) ; +static void __lambda_276(void *data, int argc, object self_73866) ; +static void __lambda_275(void *data, int argc, object self_73867, object r_73455) ; +static void __lambda_274(void *data, int argc, object self_73868, object r_73457) ; +static void __lambda_273(void *data, int argc, object self_73869, object r_73456) ; +static void __lambda_272(void *data, int argc, object self_73870, object r_73451) ; +static void __lambda_271(void *data, int argc, object self_73871, object r_73452) ; +static void __lambda_270(void *data, int argc, object self_73872, object r_73454) ; +static void __lambda_269(void *data, int argc, object self_73873, object r_73453) ; +static void __lambda_268(void *data, int argc, object self_73874) ; +static void __lambda_267(void *data, int argc, object self_73875, object r_73450) ; +static void __lambda_266(void *data, int argc, object self_73876) ; +static void __lambda_265(void *data, int argc, object self_73877, object r_73448) ; +static void __lambda_264(void *data, int argc, object self_73878) ; +static void __lambda_263(void *data, int argc, object self_73879) ; +static void __lambda_262(void *data, int argc, object self_73880, object r_73441) ; +static void __lambda_261(void *data, int argc, object self_73881, object r_73289) ; +static void __lambda_260(void *data, int argc, object self_73882, object r_73440) ; +static void __lambda_259(void *data, int argc, object self_73883, object r_73290) ; +static void __lambda_258(void *data, int argc, object self_73884, object r_73291) ; +static void __lambda_257(void *data, int argc, object self_73885, object k_73434, object x_73192, object y_73191, object original_73190) ; +static void __lambda_256(void *data, int argc, object self_73886, object r_73435) ; +static void __lambda_255(void *data, int argc, object self_73887, object k_73436) ; +static void __lambda_254(void *data, int argc, object self_73888, object r_73439) ; +static void __lambda_253(void *data, int argc, object self_73889, object r_73437) ; +static void __lambda_252(void *data, int argc, object self_73890, object r_73438) ; +static void __lambda_251(void *data, int argc, object self_73891, object r_73433) ; +static void __lambda_250(void *data, int argc, object self_73892, object r_73292) ; +static void __lambda_249(void *data, int argc, object self_73893, object k_73423, object term_73189) ; +static void __lambda_248(void *data, int argc, object self_73894, object r_73432) ; +static void __lambda_247(void *data, int argc, object self_73895, object r_73424) ; +static void __lambda_246(void *data, int argc, object self_73896, object r_73425) ; +static void __lambda_245(void *data, int argc, object self_73897) ; +static void __lambda_244(void *data, int argc, object self_73898) ; +static void __lambda_243(void *data, int argc, object self_73899, object r_73429) ; +static void __lambda_242(void *data, int argc, object self_73900, object r_73431) ; +static void __lambda_241(void *data, int argc, object self_73901, object r_73430) ; +static void __lambda_240(void *data, int argc, object self_73902, object r_73426) ; +static void __lambda_239(void *data, int argc, object self_73903, object r_73428) ; +static void __lambda_238(void *data, int argc, object self_73904, object r_73427) ; +static void __lambda_237(void *data, int argc, object self_73905, object r_73422) ; +static void __lambda_236(void *data, int argc, object self_73906, object r_73293) ; +static void __lambda_235(void *data, int argc, object self_73907, object k_73416, object lst_73188) ; +static void __lambda_234(void *data, int argc, object self_73908, object r_73417) ; +static void __lambda_233(void *data, int argc, object self_73909) ; +static void __lambda_232(void *data, int argc, object self_73910, object r_73421) ; +static void __lambda_231(void *data, int argc, object self_73911, object r_73418) ; +static void __lambda_230(void *data, int argc, object self_73912, object r_73420) ; +static void __lambda_229(void *data, int argc, object self_73913, object r_73419) ; +static void __lambda_228(void *data, int argc, object self_73914) ; +static void __lambda_227(void *data, int argc, object self_73915, object r_73415) ; +static void __lambda_226(void *data, int argc, object self_73916, object r_73294) ; +static void __lambda_225(void *data, int argc, object self_73917, object k_73406, object term_73187, object lst_73186) ; +static void __lambda_224(void *data, int argc, object self_73918, object r_73407) ; +static void __lambda_223(void *data, int argc, object self_73919, object r_73414) ; +static void __lambda_222(void *data, int argc, object self_73920, object r_73413) ; +static void __lambda_221(void *data, int argc, object self_73921, object r_73408) ; +static void __lambda_220(void *data, int argc, object self_73922) ; +static void __lambda_219(void *data, int argc, object self_73923, object r_73412) ; +static void __lambda_218(void *data, int argc, object self_73924) ; +static void __lambda_217(void *data, int argc, object self_73925, object r_73411) ; +static void __lambda_216(void *data, int argc, object self_73926, object r_73410) ; +static void __lambda_215(void *data, int argc, object self_73927, object r_73409) ; +static void __lambda_214(void *data, int argc, object self_73928) ; +static void __lambda_213(void *data, int argc, object self_73929, object r_73405) ; +static void __lambda_212(void *data, int argc, object self_73930, object r_73295) ; +static void __lambda_211(void *data, int argc, object self_73931, object r_73404) ; +static void __lambda_210(void *data, int argc, object self_73932, object r_73296) ; +static void __lambda_209(void *data, int argc, object self_73933, object k_73401, object term1_73185, object term2_73184) ; +static void __lambda_208(void *data, int argc, object self_73934, object r_73403) ; +static void __lambda_207(void *data, int argc, object self_73935, object r_73402) ; +static void __lambda_206(void *data, int argc, object self_73936, object r_73400) ; +static void __lambda_205(void *data, int argc, object self_73937, object r_73297) ; +static void __lambda_204(void *data, int argc, object self_73938, object k_73386, object term1_73182, object term2_73181) ; +static void __lambda_203(void *data, int argc, object self_73939, object r_73387) ; +static void __lambda_202(void *data, int argc, object self_73940) ; +static void __lambda_201(void *data, int argc, object self_73941, object temp_91temp_73183) ; +static void __lambda_200(void *data, int argc, object self_73942, object r_73396) ; +static void __lambda_199(void *data, int argc, object self_73943) ; +static void __lambda_198(void *data, int argc, object self_73944, object r_73399) ; +static void __lambda_197(void *data, int argc, object self_73945, object r_73398) ; +static void __lambda_196(void *data, int argc, object self_73946, object r_73397) ; +static void __lambda_195(void *data, int argc, object self_73947) ; +static void __lambda_194(void *data, int argc, object self_73948) ; +static void __lambda_193(void *data, int argc, object self_73949, object r_73395) ; +static void __lambda_192(void *data, int argc, object self_73950, object r_73388) ; +static void __lambda_191(void *data, int argc, object self_73951) ; +static void __lambda_190(void *data, int argc, object self_73952, object r_73392) ; +static void __lambda_189(void *data, int argc, object self_73953, object r_73393) ; +static void __lambda_188(void *data, int argc, object self_73954, object r_73389) ; +static void __lambda_187(void *data, int argc, object self_73955) ; +static void __lambda_186(void *data, int argc, object self_73956) ; +static void __lambda_185(void *data, int argc, object self_73957, object r_73390) ; +static void __lambda_184(void *data, int argc, object self_73958, object r_73391) ; +static void __lambda_183(void *data, int argc, object self_73959, object r_73385) ; +static void __lambda_182(void *data, int argc, object self_73960, object r_73298) ; +static void __lambda_181(void *data, int argc, object self_73961, object k_73377, object lst1_73180, object lst2_73179) ; +static void __lambda_180(void *data, int argc, object self_73962, object r_73378) ; +static void __lambda_179(void *data, int argc, object self_73963, object r_73379) ; +static void __lambda_178(void *data, int argc, object self_73964, object r_73383) ; +static void __lambda_177(void *data, int argc, object self_73965, object r_73384) ; +static void __lambda_176(void *data, int argc, object self_73966, object r_73380) ; +static void __lambda_175(void *data, int argc, object self_73967) ; +static void __lambda_174(void *data, int argc, object self_73968) ; +static void __lambda_173(void *data, int argc, object self_73969, object r_73381) ; +static void __lambda_172(void *data, int argc, object self_73970, object r_73382) ; +static void __lambda_171(void *data, int argc, object self_73971) ; +static void __lambda_170(void *data, int argc, object self_73972) ; +static void __lambda_169(void *data, int argc, object self_73973, object r_73376) ; +static void __lambda_168(void *data, int argc, object self_73974, object r_73299) ; +static void __lambda_167(void *data, int argc, object self_73975, object k_73374, object x_73177, object lst_73176) ; +static void __lambda_166(void *data, int argc, object self_73976, object tmp_73178) ; +static void __lambda_165(void *data, int argc, object self_73977, object r_73373) ; +static void __lambda_164(void *data, int argc, object self_73978, object r_73300) ; +static void __lambda_163(void *data, int argc, object self_73979, object k_73371, object x_73174, object lst_73173) ; +static void __lambda_162(void *data, int argc, object self_73980, object tmp_73175) ; +static void __lambda_161(void *data, int argc, object self_73981, object r_73370) ; +static void __lambda_160(void *data, int argc, object self_73982, object r_73301) ; +static void __lambda_159(void *data, int argc, object self_73983, object r_73369) ; +static void __lambda_158(void *data, int argc, object self_73984, object r_73302) ; +static void __lambda_157(void *data, int argc, object self_73985, object r_73368) ; +static void __lambda_156(void *data, int argc, object self_73986, object r_73303) ; +static void __lambda_155(void *data, int argc, object self_73987, object k_73362, object n_73172) ; +static void __lambda_154(void *data, int argc, object self_73988, object r_73364) ; +static void __lambda_153(void *data, int argc, object self_73989, object r_73365) ; +static void __lambda_152(void *data, int argc, object self_73990, object r_73367) ; +static void __lambda_151(void *data, int argc, object self_73991, object r_73366) ; +static void __lambda_150(void *data, int argc, object self_73992, object r_73363) ; +static void __lambda_149(void *data, int argc, object self_73993, object r_73361) ; +static void __lambda_148(void *data, int argc, object self_73994, object r_73304) ; +static void __lambda_147(void *data, int argc, object self_73995, object k_73352, object n_73171) ; +static void __lambda_146(void *data, int argc, object self_73996, object r_73353) ; +static void __lambda_145(void *data, int argc, object self_73997) ; +static void __lambda_144(void *data, int argc, object self_73998, object r_73355) ; +static void __lambda_143(void *data, int argc, object self_73999, object r_73359) ; +static void __lambda_142(void *data, int argc, object self_731000, object r_73360) ; +static void __lambda_141(void *data, int argc, object self_731001, object r_73356) ; +static void __lambda_140(void *data, int argc, object self_731002, object r_73358) ; +static void __lambda_139(void *data, int argc, object self_731003, object r_73357) ; +static void __lambda_138(void *data, int argc, object self_731004) ; +static void __lambda_137(void *data, int argc, object self_731005, object r_73354) ; +static void __lambda_136(void *data, int argc, object self_731006, object r_73351) ; +static void __lambda_135(void *data, int argc, object self_731007, object r_73305) ; +static void __lambda_134(void *data, int argc, object self_731008, object k_73343, object x_73170, object y_73169) ; +static void __lambda_133(void *data, int argc, object self_731009, object r_73344) ; +static void __lambda_132(void *data, int argc, object self_731010) ; +static void __lambda_131(void *data, int argc, object self_731011) ; +static void __lambda_130(void *data, int argc, object self_731012, object r_73345) ; +static void __lambda_129(void *data, int argc, object self_731013, object r_73349) ; +static void __lambda_128(void *data, int argc, object self_731014, object r_73350) ; +static void __lambda_127(void *data, int argc, object self_731015, object r_73346) ; +static void __lambda_126(void *data, int argc, object self_731016, object r_73347) ; +static void __lambda_125(void *data, int argc, object self_731017, object r_73348) ; +static void __lambda_124(void *data, int argc, object self_731018, object r_73342) ; +static void __lambda_123(void *data, int argc, object self_731019, object r_73306) ; +static void __lambda_122(void *data, int argc, object self_731020, object k_73334, object lst1_73168, object lst2_73167) ; +static void __lambda_121(void *data, int argc, object self_731021, object r_73335) ; +static void __lambda_120(void *data, int argc, object self_731022, object r_73336) ; +static void __lambda_119(void *data, int argc, object self_731023, object r_73340) ; +static void __lambda_118(void *data, int argc, object self_731024, object r_73341) ; +static void __lambda_117(void *data, int argc, object self_731025, object r_73337) ; +static void __lambda_116(void *data, int argc, object self_731026) ; +static void __lambda_115(void *data, int argc, object self_731027) ; +static void __lambda_114(void *data, int argc, object self_731028, object r_73338) ; +static void __lambda_113(void *data, int argc, object self_731029, object r_73339) ; +static void __lambda_112(void *data, int argc, object self_731030) ; +static void __lambda_111(void *data, int argc, object self_731031) ; +static void __lambda_110(void *data, int argc, object self_731032, object r_73333) ; +static void __lambda_109(void *data, int argc, object self_731033, object r_73307) ; +static void __lambda_108(void *data, int argc, object self_731034, object k_73328, object x_73166, object lst_73165) ; +static void __lambda_107(void *data, int argc, object self_731035, object r_73329) ; +static void __lambda_106(void *data, int argc, object self_731036, object r_73332) ; +static void __lambda_105(void *data, int argc, object self_731037, object r_73330) ; +static void __lambda_104(void *data, int argc, object self_731038) ; +static void __lambda_103(void *data, int argc, object self_731039, object r_73331) ; +static void __lambda_102(void *data, int argc, object self_731040) ; +static void __lambda_101(void *data, int argc, object self_731041) ; +static void __lambda_100(void *data, int argc, object self_731042, object r_73327) ; +static void __lambda_99(void *data, int argc, object self_731043, object r_73308) ; +static void __lambda_98(void *data, int argc, object self_731044, object k_73315) ; +static void __lambda_97(void *data, int argc, object self_731045, object r_73326) ; +static void __lambda_96(void *data, int argc, object self_731046, object r_73316) ; +static void __lambda_95(void *data, int argc, object self_731047, object r_73325) ; +static void __lambda_94(void *data, int argc, object self_731048, object r_73324) ; +static void __lambda_93(void *data, int argc, object self_731049, object r_73317) ; +static void __lambda_92(void *data, int argc, object self_731050, object r_73323) ; +static void __lambda_91(void *data, int argc, object self_731051, object r_73322) ; +static void __lambda_90(void *data, int argc, object self_731052, object r_73318) ; +static void __lambda_89(void *data, int argc, object self_731053, object r_73321) ; +static void __lambda_88(void *data, int argc, object self_731054, object r_73320) ; +static void __lambda_87(void *data, int argc, object self_731055, object r_73319) ; +static void __lambda_86(void *data, int argc, object self_731056, object r_73314) ; +static void __lambda_85(void *data, int argc, object self_731057, object r_73309) ; +static void __lambda_84(void *data, int argc, object self_731058, object k_73311, object alist_73163, object term_73162, object n_73161) ; +static void __lambda_83(void *data, int argc, object self_731059, object r_73312) ; +static void __lambda_82(void *data, int argc, object self_731060, object answer_73164) ; +static void __lambda_81(void *data, int argc, closure _,object r_73310) ; +static void __lambda_80(void *data, int argc, closure _,object r_73268) ; +static void __lambda_79(void *data, int argc, closure _,object k_73580, object name_73235, object count_73234, object thunk_73233, object ok_127_73232) ; +static void __lambda_78(void *data, int argc, object self_731061, object rounded_73237) ; +static void __lambda_77(void *data, int argc, object self_731062, object rounded_73237) ; +static void __lambda_76(void *data, int argc, object self_731063, object rounded_73238) ; +static void __lambda_75(void *data, int argc, object self_731064, object k_73616, object x_73252) ; +static void __lambda_74(void *data, int argc, object self_731065, object r_73618) ; +static void __lambda_73(void *data, int argc, object self_731066, object r_73617) ; +static void __lambda_72(void *data, int argc, object self_731067, object r_73615) ; +static void __lambda_71(void *data, int argc, object self_731068, object r_73581) ; +static void __lambda_70(void *data, int argc, object self_731069, object r_73582) ; +static void __lambda_69(void *data, int argc, object self_731070, object r_73583) ; +static void __lambda_68(void *data, int argc, object self_731071, object r_73584) ; +static void __lambda_67(void *data, int argc, object self_731072, object r_73585) ; +static void __lambda_66(void *data, int argc, object self_731073, object j_95s_73239) ; +static void __lambda_65(void *data, int argc, object self_731074, object t0_73240) ; +static void __lambda_64(void *data, int argc, object self_731075, object j0_73241) ; +static void __lambda_63(void *data, int argc, object self_731076) ; +static void __lambda_62(void *data, int argc, object self_731077, object r_73589) ; +static void __lambda_61(void *data, int argc, object self_731078, object i_73243, object result_73242) ; +static void __lambda_60(void *data, int argc, object self_731079, object loop_73244) ; +static void __lambda_59(void *data, int argc, object self_731080, object loop_73244) ; +static void __lambda_58(void *data, int argc, object self_731081, object k_73592, object i_73246, object result_73245) ; +static void __lambda_57(void *data, int argc, object self_731082, object r_73593) ; +static void __lambda_56(void *data, int argc, object self_731083, object r_73596) ; +static void __lambda_55(void *data, int argc, object self_731084) ; +static void __lambda_54(void *data, int argc, object self_731085, object r_73611) ; +static void __lambda_53(void *data, int argc, object self_731086, object r_73612) ; +static void __lambda_52(void *data, int argc, object self_731087, object r_73613) ; +static void __lambda_51(void *data, int argc, object self_731088) ; +static void __lambda_50(void *data, int argc, object self_731089, object j1_73247) ; +static void __lambda_49(void *data, int argc, object self_731090, object t1_73248) ; +static void __lambda_48(void *data, int argc, object self_731091, object jifs_73249) ; +static void __lambda_47(void *data, int argc, object self_731092, object r_73610) ; +static void __lambda_46(void *data, int argc, object self_731093, object secs_73250) ; +static void __lambda_45(void *data, int argc, object self_731094, object r_73609) ; +static void __lambda_44(void *data, int argc, object self_731095, object secs2_73251) ; +static void __lambda_43(void *data, int argc, object self_731096) ; +static void __lambda_42(void *data, int argc, object self_731097, object r_73603) ; +static void __lambda_41(void *data, int argc, object self_731098, object r_73604) ; +static void __lambda_40(void *data, int argc, object self_731099, object r_73605) ; +static void __lambda_39(void *data, int argc, object self_731100, object r_73606) ; +static void __lambda_38(void *data, int argc, object self_731101, object r_73607) ; +static void __lambda_37(void *data, int argc, object self_731102, object r_73608) ; +static void __lambda_36(void *data, int argc, object self_731103, object r_73597) ; +static void __lambda_35(void *data, int argc, object self_731104) ; +static void __lambda_34(void *data, int argc, object self_731105, object r_73594) ; +static void __lambda_33(void *data, int argc, object self_731106, object r_73595) ; +static void __lambda_32(void *data, int argc, object self_731107, object r_73591) ; +static void __lambda_31(void *data, int argc, object self_731108, object r_73590) ; +static void __lambda_30(void *data, int argc, closure _,object k_73614) ; +static void __lambda_29(void *data, int argc, closure _,object k_73621, object r_73254, object x_73253) ; +static void __lambda_28(void *data, int argc, object self_731109, object k_73626) ; +static void __lambda_27(void *data, int argc, object self_731110, object k_73632, object x_73257) ; +static void __lambda_26(void *data, int argc, object self_731111, object r_73631) ; +static void __lambda_25(void *data, int argc, object self_731112, object r_73627) ; +static void __lambda_24(void *data, int argc, object self_731113, object r_73628) ; +static void __lambda_23(void *data, int argc, object self_731114, object k_73629) ; +static void __lambda_22(void *data, int argc, object self_731115, object r_73630) ; +static void __lambda_21(void *data, int argc, object self_731116, object r_73622) ; +static void __lambda_20(void *data, int argc, object self_731117, object k_73624, object v_73256, object i_73255) ; +static void __lambda_19(void *data, int argc, object self_731118, object r_73625) ; +static void __lambda_18(void *data, int argc, object self_731119, object r_73623) ; +static void __lambda_17(void *data, int argc, closure _,object k_73635) ; +static void __lambda_16(void *data, int argc, closure _,object k_73638) ; +static void __lambda_15(void *data, int argc, closure _,object k_73645) ; +static void __lambda_14(void *data, int argc, object self_731120, object count_73258) ; +static void __lambda_13(void *data, int argc, object self_731121, object input_73259) ; +static void __lambda_12(void *data, int argc, object self_731122, object output_73260) ; +static void __lambda_11(void *data, int argc, object self_731123, object s2_73261) ; +static void __lambda_10(void *data, int argc, object self_731124, object s1_73262) ; +static void __lambda_9(void *data, int argc, object self_731125, object name_73263) ; +static void __lambda_8(void *data, int argc, object self_731126) ; +static void __lambda_7(void *data, int argc, object self_731127, object r_73651) ; +static void __lambda_6(void *data, int argc, object self_731128, object k_73656) ; +static void __lambda_5(void *data, int argc, object self_731129, object r_73657) ; +static void __lambda_4(void *data, int argc, object self_731130, object r_73658) ; +static void __lambda_3(void *data, int argc, object self_731131, object r_73652) ; +static void __lambda_2(void *data, int argc, object self_731132, object k_73654, object rewrites_73264) ; +static void __lambda_1(void *data, int argc, object self_731133, object r_73655) ; +static void __lambda_0(void *data, int argc, object self_731134, object r_73653) ; + +static void __lambda_492(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73120, object add_91lemma_73119, object add_91lemma_91lst_73118, object apply_91subst_73117, object apply_91subst_91lst_73116, object false_91term_73115, object falsep_73114, object get_73113, object get_91lemmas_73112, object get_91name_73111, object if_91constructor_73110, object make_91symbol_91record_73109, object one_91way_91unify_73108, object one_91way_91unify1_73107, object one_91way_91unify1_91lst_73106, object put_73105, object put_91lemmas_67_73104, object rewrite_73103, object rewrite_91args_73102, object rewrite_91count_73101, object rewrite_91with_91lemmas_73100, object scons_7399, object setup_7398, object symbol_91_125symbol_91record_7397, object symbol_91record_91equal_127_7396, object tautologyp_7395, object tautp_7394, object term_91args_91equal_127_7393, object term_91equal_127_7392, object term_91member_127_7391, object test_7390, object trans_91of_91implies_7389, object trans_91of_91implies1_7388, object translate_91alist_7387, object translate_91args_7386, object translate_91term_7385, object true_91term_7384, object truep_7383, object unify_91subst_7382, object untranslate_91term_7381) { + return_direct0(data,__lambda_491);; +} + +static void __lambda_491(void *data, int argc, closure _) { + return_direct1(data,__lambda_490,obj_int2obj(0));; +} + +static void __lambda_490(void *data, int argc, closure _,object r_73265) { + make_cons(c_735247,quote_b,nil); +make_cons(c_735246,quote_a,&c_735247); +make_cons(c_735245,quote_plus,&c_735246); +make_cons(c_735252,quote_zero,nil); +make_cons(c_735251,&c_735252,nil); +make_cons(c_735250,quote_c,&c_735251); +make_cons(c_735249,quote_plus,&c_735250); +make_cons(c_735248,&c_735249,nil); +make_cons(c_735244,&c_735245,&c_735248); +make_cons(c_735243,quote_plus,&c_735244); +make_cons(c_735242,&c_735243,nil); +make_cons(c_735241,quote_f,&c_735242); +make_cons(c_735240,quote_x,&c_735241); +make_cons(c_735261,quote_b,nil); +make_cons(c_735260,quote_a,&c_735261); +make_cons(c_735259,quote_times,&c_735260); +make_cons(c_735265,quote_d,nil); +make_cons(c_735264,quote_c,&c_735265); +make_cons(c_735263,quote_plus,&c_735264); +make_cons(c_735262,&c_735263,nil); +make_cons(c_735258,&c_735259,&c_735262); +make_cons(c_735257,quote_times,&c_735258); +make_cons(c_735256,&c_735257,nil); +make_cons(c_735255,quote_f,&c_735256); +make_cons(c_735254,quote_y,&c_735255); +make_cons(c_735276,quote_b,nil); +make_cons(c_735275,quote_a,&c_735276); +make_cons(c_735274,quote_append,&c_735275); +make_cons(c_735278,quote_nil,nil); +make_cons(c_735277,&c_735278,nil); +make_cons(c_735273,&c_735274,&c_735277); +make_cons(c_735272,quote_append,&c_735273); +make_cons(c_735271,&c_735272,nil); +make_cons(c_735270,quote_reverse,&c_735271); +make_cons(c_735269,&c_735270,nil); +make_cons(c_735268,quote_f,&c_735269); +make_cons(c_735267,quote_z,&c_735268); +make_cons(c_735285,quote_b,nil); +make_cons(c_735284,quote_a,&c_735285); +make_cons(c_735283,quote_plus,&c_735284); +make_cons(c_735289,quote_y,nil); +make_cons(c_735288,quote_x,&c_735289); +make_cons(c_735287,quote_difference,&c_735288); +make_cons(c_735286,&c_735287,nil); +make_cons(c_735282,&c_735283,&c_735286); +make_cons(c_735281,quote_equal,&c_735282); +make_cons(c_735280,quote_u,&c_735281); +make_cons(c_735296,quote_b,nil); +make_cons(c_735295,quote_a,&c_735296); +make_cons(c_735294,quote_remainder,&c_735295); +make_cons(c_735302,quote_b,nil); +make_cons(c_735301,quote_length,&c_735302); +make_cons(c_735300,&c_735301,nil); +make_cons(c_735299,quote_a,&c_735300); +make_cons(c_735298,quote_member,&c_735299); +make_cons(c_735297,&c_735298,nil); +make_cons(c_735293,&c_735294,&c_735297); +make_cons(c_735292,quote_lessp,&c_735293); +make_cons(c_735291,quote_w,&c_735292); +make_cons(c_735290,&c_735291,nil); +make_cons(c_735279,&c_735280,&c_735290); +make_cons(c_735266,&c_735267,&c_735279); +make_cons(c_735253,&c_735254,&c_735266); +make_cons(c_735239,&c_735240,&c_735253); +return_direct1(data,__lambda_489,&c_735239);; +} + +static void __lambda_489(void *data, int argc, closure _,object r_73577) { + return_direct1(data,__lambda_488,global_set(__glo_alist, r_73577));; +} + +static void __lambda_488(void *data, int argc, closure _,object r_73266) { + make_cons(c_735216,quote_y,nil); +make_cons(c_735215,quote_x,&c_735216); +make_cons(c_735214,quote_implies,&c_735215); +make_cons(c_735222,quote_z,nil); +make_cons(c_735221,quote_y,&c_735222); +make_cons(c_735220,quote_implies,&c_735221); +make_cons(c_735228,quote_u,nil); +make_cons(c_735227,quote_z,&c_735228); +make_cons(c_735226,quote_implies,&c_735227); +make_cons(c_735232,quote_w,nil); +make_cons(c_735231,quote_u,&c_735232); +make_cons(c_735230,quote_implies,&c_735231); +make_cons(c_735229,&c_735230,nil); +make_cons(c_735225,&c_735226,&c_735229); +make_cons(c_735224,quote_and,&c_735225); +make_cons(c_735223,&c_735224,nil); +make_cons(c_735219,&c_735220,&c_735223); +make_cons(c_735218,quote_and,&c_735219); +make_cons(c_735217,&c_735218,nil); +make_cons(c_735213,&c_735214,&c_735217); +make_cons(c_735212,quote_and,&c_735213); +make_cons(c_735236,quote_w,nil); +make_cons(c_735235,quote_x,&c_735236); +make_cons(c_735234,quote_implies,&c_735235); +make_cons(c_735233,&c_735234,nil); +make_cons(c_735211,&c_735212,&c_735233); +make_cons(c_735210,quote_implies,&c_735211); +return_direct1(data,__lambda_487,&c_735210);; +} + +static void __lambda_487(void *data, int argc, closure _,object r_73576) { + return_direct1(data,__lambda_486,global_set(__glo_term, r_73576));; +} + +static void __lambda_486(void *data, int argc, closure _,object r_73267) { + return_direct0(data,__lambda_485);; +} + +static void __lambda_485(void *data, int argc, closure _) { + return_direct40(data,__lambda_484,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; +} + +static void __lambda_484(void *data, int argc, closure _,object setup_73160, object add_91lemma_91lst_73159, object add_91lemma_73158, object translate_91term_73157, object translate_91args_73156, object untranslate_91term_73155, object put_73154, object get_73153, object symbol_91_125symbol_91record_73152, object _85symbol_91records_91alist_85_73151, object make_91symbol_91record_73150, object put_91lemmas_67_73149, object get_91lemmas_73148, object get_91name_73147, object symbol_91record_91equal_127_73146, object test_73145, object translate_91alist_73144, object apply_91subst_73143, object apply_91subst_91lst_73142, object tautp_73141, object tautologyp_73140, object if_91constructor_73139, object rewrite_91count_73138, object scons_73137, object rewrite_73136, object rewrite_91args_73135, object rewrite_91with_91lemmas_73134, object unify_91subst_73133, object one_91way_91unify_73132, object one_91way_91unify1_73131, object one_91way_91unify1_91lst_73130, object falsep_73129, object truep_73128, object false_91term_73127, object true_91term_73126, object trans_91of_91implies_73125, object trans_91of_91implies1_73124, object term_91equal_127_73123, object term_91args_91equal_127_73122, object term_91member_127_73121) { + +closureN_type c_731428; +c_731428.hdr.mark = gc_color_red; + c_731428.hdr.grayed = 0; +c_731428.tag = closureN_tag; + c_731428.fn = (function_type)__lambda_483; +c_731428.num_args = 1; +c_731428.num_elt = 39; +c_731428.elts = (object *)alloca(sizeof(object) * 39); +c_731428.elts[0] = _85symbol_91records_91alist_85_73151; +c_731428.elts[1] = add_91lemma_73158; +c_731428.elts[2] = add_91lemma_91lst_73159; +c_731428.elts[3] = apply_91subst_73143; +c_731428.elts[4] = apply_91subst_91lst_73142; +c_731428.elts[5] = false_91term_73127; +c_731428.elts[6] = falsep_73129; +c_731428.elts[7] = get_73153; +c_731428.elts[8] = get_91lemmas_73148; +c_731428.elts[9] = get_91name_73147; +c_731428.elts[10] = if_91constructor_73139; +c_731428.elts[11] = make_91symbol_91record_73150; +c_731428.elts[12] = one_91way_91unify_73132; +c_731428.elts[13] = one_91way_91unify1_73131; +c_731428.elts[14] = one_91way_91unify1_91lst_73130; +c_731428.elts[15] = put_73154; +c_731428.elts[16] = put_91lemmas_67_73149; +c_731428.elts[17] = rewrite_73136; +c_731428.elts[18] = rewrite_91args_73135; +c_731428.elts[19] = rewrite_91count_73138; +c_731428.elts[20] = rewrite_91with_91lemmas_73134; +c_731428.elts[21] = scons_73137; +c_731428.elts[22] = symbol_91_125symbol_91record_73152; +c_731428.elts[23] = symbol_91record_91equal_127_73146; +c_731428.elts[24] = tautologyp_73140; +c_731428.elts[25] = tautp_73141; +c_731428.elts[26] = term_91args_91equal_127_73122; +c_731428.elts[27] = term_91equal_127_73123; +c_731428.elts[28] = term_91member_127_73121; +c_731428.elts[29] = test_73145; +c_731428.elts[30] = trans_91of_91implies_73125; +c_731428.elts[31] = trans_91of_91implies1_73124; +c_731428.elts[32] = translate_91alist_73144; +c_731428.elts[33] = translate_91args_73156; +c_731428.elts[34] = translate_91term_73157; +c_731428.elts[35] = true_91term_73126; +c_731428.elts[36] = truep_73128; +c_731428.elts[37] = unify_91subst_73133; +c_731428.elts[38] = untranslate_91term_73155; + + +make_cell(c_735207,setup_73160); +return_closcall1(data,(closure)&c_731428, &c_735207);; +} + +static void __lambda_483(void *data, int argc, object self_73659, object setup_73160) { + +closureN_type c_731430; +c_731430.hdr.mark = gc_color_red; + c_731430.hdr.grayed = 0; +c_731430.tag = closureN_tag; + c_731430.fn = (function_type)__lambda_482; +c_731430.num_args = 1; +c_731430.num_elt = 39; +c_731430.elts = (object *)alloca(sizeof(object) * 39); +c_731430.elts[0] = ((closureN)self_73659)->elts[0]; +c_731430.elts[1] = ((closureN)self_73659)->elts[1]; +c_731430.elts[2] = ((closureN)self_73659)->elts[3]; +c_731430.elts[3] = ((closureN)self_73659)->elts[4]; +c_731430.elts[4] = ((closureN)self_73659)->elts[5]; +c_731430.elts[5] = ((closureN)self_73659)->elts[6]; +c_731430.elts[6] = ((closureN)self_73659)->elts[7]; +c_731430.elts[7] = ((closureN)self_73659)->elts[8]; +c_731430.elts[8] = ((closureN)self_73659)->elts[9]; +c_731430.elts[9] = ((closureN)self_73659)->elts[10]; +c_731430.elts[10] = ((closureN)self_73659)->elts[11]; +c_731430.elts[11] = ((closureN)self_73659)->elts[12]; +c_731430.elts[12] = ((closureN)self_73659)->elts[13]; +c_731430.elts[13] = ((closureN)self_73659)->elts[14]; +c_731430.elts[14] = ((closureN)self_73659)->elts[15]; +c_731430.elts[15] = ((closureN)self_73659)->elts[16]; +c_731430.elts[16] = ((closureN)self_73659)->elts[17]; +c_731430.elts[17] = ((closureN)self_73659)->elts[18]; +c_731430.elts[18] = ((closureN)self_73659)->elts[19]; +c_731430.elts[19] = ((closureN)self_73659)->elts[20]; +c_731430.elts[20] = ((closureN)self_73659)->elts[21]; +c_731430.elts[21] = setup_73160; +c_731430.elts[22] = ((closureN)self_73659)->elts[22]; +c_731430.elts[23] = ((closureN)self_73659)->elts[23]; +c_731430.elts[24] = ((closureN)self_73659)->elts[24]; +c_731430.elts[25] = ((closureN)self_73659)->elts[25]; +c_731430.elts[26] = ((closureN)self_73659)->elts[26]; +c_731430.elts[27] = ((closureN)self_73659)->elts[27]; +c_731430.elts[28] = ((closureN)self_73659)->elts[28]; +c_731430.elts[29] = ((closureN)self_73659)->elts[29]; +c_731430.elts[30] = ((closureN)self_73659)->elts[30]; +c_731430.elts[31] = ((closureN)self_73659)->elts[31]; +c_731430.elts[32] = ((closureN)self_73659)->elts[32]; +c_731430.elts[33] = ((closureN)self_73659)->elts[33]; +c_731430.elts[34] = ((closureN)self_73659)->elts[34]; +c_731430.elts[35] = ((closureN)self_73659)->elts[35]; +c_731430.elts[36] = ((closureN)self_73659)->elts[36]; +c_731430.elts[37] = ((closureN)self_73659)->elts[37]; +c_731430.elts[38] = ((closureN)self_73659)->elts[38]; + + +make_cell(c_735203,((closureN)self_73659)->elts[2]); +return_closcall1(data,(closure)&c_731430, &c_735203);; +} + +static void __lambda_482(void *data, int argc, object self_73660, object add_91lemma_91lst_73159) { + +closureN_type c_731432; +c_731432.hdr.mark = gc_color_red; + c_731432.hdr.grayed = 0; +c_731432.tag = closureN_tag; + c_731432.fn = (function_type)__lambda_481; +c_731432.num_args = 1; +c_731432.num_elt = 39; +c_731432.elts = (object *)alloca(sizeof(object) * 39); +c_731432.elts[0] = ((closureN)self_73660)->elts[0]; +c_731432.elts[1] = add_91lemma_91lst_73159; +c_731432.elts[2] = ((closureN)self_73660)->elts[2]; +c_731432.elts[3] = ((closureN)self_73660)->elts[3]; +c_731432.elts[4] = ((closureN)self_73660)->elts[4]; +c_731432.elts[5] = ((closureN)self_73660)->elts[5]; +c_731432.elts[6] = ((closureN)self_73660)->elts[6]; +c_731432.elts[7] = ((closureN)self_73660)->elts[7]; +c_731432.elts[8] = ((closureN)self_73660)->elts[8]; +c_731432.elts[9] = ((closureN)self_73660)->elts[9]; +c_731432.elts[10] = ((closureN)self_73660)->elts[10]; +c_731432.elts[11] = ((closureN)self_73660)->elts[11]; +c_731432.elts[12] = ((closureN)self_73660)->elts[12]; +c_731432.elts[13] = ((closureN)self_73660)->elts[13]; +c_731432.elts[14] = ((closureN)self_73660)->elts[14]; +c_731432.elts[15] = ((closureN)self_73660)->elts[15]; +c_731432.elts[16] = ((closureN)self_73660)->elts[16]; +c_731432.elts[17] = ((closureN)self_73660)->elts[17]; +c_731432.elts[18] = ((closureN)self_73660)->elts[18]; +c_731432.elts[19] = ((closureN)self_73660)->elts[19]; +c_731432.elts[20] = ((closureN)self_73660)->elts[20]; +c_731432.elts[21] = ((closureN)self_73660)->elts[21]; +c_731432.elts[22] = ((closureN)self_73660)->elts[22]; +c_731432.elts[23] = ((closureN)self_73660)->elts[23]; +c_731432.elts[24] = ((closureN)self_73660)->elts[24]; +c_731432.elts[25] = ((closureN)self_73660)->elts[25]; +c_731432.elts[26] = ((closureN)self_73660)->elts[26]; +c_731432.elts[27] = ((closureN)self_73660)->elts[27]; +c_731432.elts[28] = ((closureN)self_73660)->elts[28]; +c_731432.elts[29] = ((closureN)self_73660)->elts[29]; +c_731432.elts[30] = ((closureN)self_73660)->elts[30]; +c_731432.elts[31] = ((closureN)self_73660)->elts[31]; +c_731432.elts[32] = ((closureN)self_73660)->elts[32]; +c_731432.elts[33] = ((closureN)self_73660)->elts[33]; +c_731432.elts[34] = ((closureN)self_73660)->elts[34]; +c_731432.elts[35] = ((closureN)self_73660)->elts[35]; +c_731432.elts[36] = ((closureN)self_73660)->elts[36]; +c_731432.elts[37] = ((closureN)self_73660)->elts[37]; +c_731432.elts[38] = ((closureN)self_73660)->elts[38]; + + +make_cell(c_735199,((closureN)self_73660)->elts[1]); +return_closcall1(data,(closure)&c_731432, &c_735199);; +} + +static void __lambda_481(void *data, int argc, object self_73661, object add_91lemma_73158) { + +closureN_type c_731434; +c_731434.hdr.mark = gc_color_red; + c_731434.hdr.grayed = 0; +c_731434.tag = closureN_tag; + c_731434.fn = (function_type)__lambda_480; +c_731434.num_args = 1; +c_731434.num_elt = 39; +c_731434.elts = (object *)alloca(sizeof(object) * 39); +c_731434.elts[0] = ((closureN)self_73661)->elts[0]; +c_731434.elts[1] = add_91lemma_73158; +c_731434.elts[2] = ((closureN)self_73661)->elts[1]; +c_731434.elts[3] = ((closureN)self_73661)->elts[2]; +c_731434.elts[4] = ((closureN)self_73661)->elts[3]; +c_731434.elts[5] = ((closureN)self_73661)->elts[4]; +c_731434.elts[6] = ((closureN)self_73661)->elts[5]; +c_731434.elts[7] = ((closureN)self_73661)->elts[6]; +c_731434.elts[8] = ((closureN)self_73661)->elts[7]; +c_731434.elts[9] = ((closureN)self_73661)->elts[8]; +c_731434.elts[10] = ((closureN)self_73661)->elts[9]; +c_731434.elts[11] = ((closureN)self_73661)->elts[10]; +c_731434.elts[12] = ((closureN)self_73661)->elts[11]; +c_731434.elts[13] = ((closureN)self_73661)->elts[12]; +c_731434.elts[14] = ((closureN)self_73661)->elts[13]; +c_731434.elts[15] = ((closureN)self_73661)->elts[14]; +c_731434.elts[16] = ((closureN)self_73661)->elts[15]; +c_731434.elts[17] = ((closureN)self_73661)->elts[16]; +c_731434.elts[18] = ((closureN)self_73661)->elts[17]; +c_731434.elts[19] = ((closureN)self_73661)->elts[18]; +c_731434.elts[20] = ((closureN)self_73661)->elts[19]; +c_731434.elts[21] = ((closureN)self_73661)->elts[20]; +c_731434.elts[22] = ((closureN)self_73661)->elts[21]; +c_731434.elts[23] = ((closureN)self_73661)->elts[22]; +c_731434.elts[24] = ((closureN)self_73661)->elts[23]; +c_731434.elts[25] = ((closureN)self_73661)->elts[24]; +c_731434.elts[26] = ((closureN)self_73661)->elts[25]; +c_731434.elts[27] = ((closureN)self_73661)->elts[26]; +c_731434.elts[28] = ((closureN)self_73661)->elts[27]; +c_731434.elts[29] = ((closureN)self_73661)->elts[28]; +c_731434.elts[30] = ((closureN)self_73661)->elts[29]; +c_731434.elts[31] = ((closureN)self_73661)->elts[30]; +c_731434.elts[32] = ((closureN)self_73661)->elts[31]; +c_731434.elts[33] = ((closureN)self_73661)->elts[32]; +c_731434.elts[34] = ((closureN)self_73661)->elts[33]; +c_731434.elts[35] = ((closureN)self_73661)->elts[35]; +c_731434.elts[36] = ((closureN)self_73661)->elts[36]; +c_731434.elts[37] = ((closureN)self_73661)->elts[37]; +c_731434.elts[38] = ((closureN)self_73661)->elts[38]; + + +make_cell(c_735195,((closureN)self_73661)->elts[34]); +return_closcall1(data,(closure)&c_731434, &c_735195);; +} + +static void __lambda_480(void *data, int argc, object self_73662, object translate_91term_73157) { + +closureN_type c_731436; +c_731436.hdr.mark = gc_color_red; + c_731436.hdr.grayed = 0; +c_731436.tag = closureN_tag; + c_731436.fn = (function_type)__lambda_479; +c_731436.num_args = 1; +c_731436.num_elt = 39; +c_731436.elts = (object *)alloca(sizeof(object) * 39); +c_731436.elts[0] = ((closureN)self_73662)->elts[0]; +c_731436.elts[1] = ((closureN)self_73662)->elts[1]; +c_731436.elts[2] = ((closureN)self_73662)->elts[2]; +c_731436.elts[3] = ((closureN)self_73662)->elts[3]; +c_731436.elts[4] = ((closureN)self_73662)->elts[4]; +c_731436.elts[5] = ((closureN)self_73662)->elts[5]; +c_731436.elts[6] = ((closureN)self_73662)->elts[6]; +c_731436.elts[7] = ((closureN)self_73662)->elts[7]; +c_731436.elts[8] = ((closureN)self_73662)->elts[8]; +c_731436.elts[9] = ((closureN)self_73662)->elts[9]; +c_731436.elts[10] = ((closureN)self_73662)->elts[10]; +c_731436.elts[11] = ((closureN)self_73662)->elts[11]; +c_731436.elts[12] = ((closureN)self_73662)->elts[12]; +c_731436.elts[13] = ((closureN)self_73662)->elts[13]; +c_731436.elts[14] = ((closureN)self_73662)->elts[14]; +c_731436.elts[15] = ((closureN)self_73662)->elts[15]; +c_731436.elts[16] = ((closureN)self_73662)->elts[16]; +c_731436.elts[17] = ((closureN)self_73662)->elts[17]; +c_731436.elts[18] = ((closureN)self_73662)->elts[18]; +c_731436.elts[19] = ((closureN)self_73662)->elts[19]; +c_731436.elts[20] = ((closureN)self_73662)->elts[20]; +c_731436.elts[21] = ((closureN)self_73662)->elts[21]; +c_731436.elts[22] = ((closureN)self_73662)->elts[22]; +c_731436.elts[23] = ((closureN)self_73662)->elts[23]; +c_731436.elts[24] = ((closureN)self_73662)->elts[24]; +c_731436.elts[25] = ((closureN)self_73662)->elts[25]; +c_731436.elts[26] = ((closureN)self_73662)->elts[26]; +c_731436.elts[27] = ((closureN)self_73662)->elts[27]; +c_731436.elts[28] = ((closureN)self_73662)->elts[28]; +c_731436.elts[29] = ((closureN)self_73662)->elts[29]; +c_731436.elts[30] = ((closureN)self_73662)->elts[30]; +c_731436.elts[31] = ((closureN)self_73662)->elts[31]; +c_731436.elts[32] = ((closureN)self_73662)->elts[32]; +c_731436.elts[33] = ((closureN)self_73662)->elts[33]; +c_731436.elts[34] = translate_91term_73157; +c_731436.elts[35] = ((closureN)self_73662)->elts[35]; +c_731436.elts[36] = ((closureN)self_73662)->elts[36]; +c_731436.elts[37] = ((closureN)self_73662)->elts[37]; +c_731436.elts[38] = ((closureN)self_73662)->elts[38]; + + +make_cell(c_735191,((closureN)self_73662)->elts[34]); +return_closcall1(data,(closure)&c_731436, &c_735191);; +} + +static void __lambda_479(void *data, int argc, object self_73663, object translate_91args_73156) { + +closureN_type c_731438; +c_731438.hdr.mark = gc_color_red; + c_731438.hdr.grayed = 0; +c_731438.tag = closureN_tag; + c_731438.fn = (function_type)__lambda_478; +c_731438.num_args = 1; +c_731438.num_elt = 39; +c_731438.elts = (object *)alloca(sizeof(object) * 39); +c_731438.elts[0] = ((closureN)self_73663)->elts[0]; +c_731438.elts[1] = ((closureN)self_73663)->elts[1]; +c_731438.elts[2] = ((closureN)self_73663)->elts[2]; +c_731438.elts[3] = ((closureN)self_73663)->elts[3]; +c_731438.elts[4] = ((closureN)self_73663)->elts[4]; +c_731438.elts[5] = ((closureN)self_73663)->elts[5]; +c_731438.elts[6] = ((closureN)self_73663)->elts[6]; +c_731438.elts[7] = ((closureN)self_73663)->elts[7]; +c_731438.elts[8] = ((closureN)self_73663)->elts[8]; +c_731438.elts[9] = ((closureN)self_73663)->elts[9]; +c_731438.elts[10] = ((closureN)self_73663)->elts[10]; +c_731438.elts[11] = ((closureN)self_73663)->elts[11]; +c_731438.elts[12] = ((closureN)self_73663)->elts[12]; +c_731438.elts[13] = ((closureN)self_73663)->elts[13]; +c_731438.elts[14] = ((closureN)self_73663)->elts[14]; +c_731438.elts[15] = ((closureN)self_73663)->elts[15]; +c_731438.elts[16] = ((closureN)self_73663)->elts[16]; +c_731438.elts[17] = ((closureN)self_73663)->elts[17]; +c_731438.elts[18] = ((closureN)self_73663)->elts[18]; +c_731438.elts[19] = ((closureN)self_73663)->elts[19]; +c_731438.elts[20] = ((closureN)self_73663)->elts[20]; +c_731438.elts[21] = ((closureN)self_73663)->elts[21]; +c_731438.elts[22] = ((closureN)self_73663)->elts[22]; +c_731438.elts[23] = ((closureN)self_73663)->elts[23]; +c_731438.elts[24] = ((closureN)self_73663)->elts[24]; +c_731438.elts[25] = ((closureN)self_73663)->elts[25]; +c_731438.elts[26] = ((closureN)self_73663)->elts[26]; +c_731438.elts[27] = ((closureN)self_73663)->elts[27]; +c_731438.elts[28] = ((closureN)self_73663)->elts[28]; +c_731438.elts[29] = ((closureN)self_73663)->elts[29]; +c_731438.elts[30] = ((closureN)self_73663)->elts[30]; +c_731438.elts[31] = ((closureN)self_73663)->elts[31]; +c_731438.elts[32] = ((closureN)self_73663)->elts[32]; +c_731438.elts[33] = ((closureN)self_73663)->elts[33]; +c_731438.elts[34] = translate_91args_73156; +c_731438.elts[35] = ((closureN)self_73663)->elts[34]; +c_731438.elts[36] = ((closureN)self_73663)->elts[35]; +c_731438.elts[37] = ((closureN)self_73663)->elts[36]; +c_731438.elts[38] = ((closureN)self_73663)->elts[37]; + + +make_cell(c_735187,((closureN)self_73663)->elts[38]); +return_closcall1(data,(closure)&c_731438, &c_735187);; +} + +static void __lambda_478(void *data, int argc, object self_73664, object untranslate_91term_73155) { + +closureN_type c_731440; +c_731440.hdr.mark = gc_color_red; + c_731440.hdr.grayed = 0; +c_731440.tag = closureN_tag; + c_731440.fn = (function_type)__lambda_477; +c_731440.num_args = 1; +c_731440.num_elt = 39; +c_731440.elts = (object *)alloca(sizeof(object) * 39); +c_731440.elts[0] = ((closureN)self_73664)->elts[0]; +c_731440.elts[1] = ((closureN)self_73664)->elts[1]; +c_731440.elts[2] = ((closureN)self_73664)->elts[2]; +c_731440.elts[3] = ((closureN)self_73664)->elts[3]; +c_731440.elts[4] = ((closureN)self_73664)->elts[4]; +c_731440.elts[5] = ((closureN)self_73664)->elts[5]; +c_731440.elts[6] = ((closureN)self_73664)->elts[6]; +c_731440.elts[7] = ((closureN)self_73664)->elts[7]; +c_731440.elts[8] = ((closureN)self_73664)->elts[8]; +c_731440.elts[9] = ((closureN)self_73664)->elts[9]; +c_731440.elts[10] = ((closureN)self_73664)->elts[10]; +c_731440.elts[11] = ((closureN)self_73664)->elts[11]; +c_731440.elts[12] = ((closureN)self_73664)->elts[12]; +c_731440.elts[13] = ((closureN)self_73664)->elts[13]; +c_731440.elts[14] = ((closureN)self_73664)->elts[14]; +c_731440.elts[15] = ((closureN)self_73664)->elts[16]; +c_731440.elts[16] = ((closureN)self_73664)->elts[17]; +c_731440.elts[17] = ((closureN)self_73664)->elts[18]; +c_731440.elts[18] = ((closureN)self_73664)->elts[19]; +c_731440.elts[19] = ((closureN)self_73664)->elts[20]; +c_731440.elts[20] = ((closureN)self_73664)->elts[21]; +c_731440.elts[21] = ((closureN)self_73664)->elts[22]; +c_731440.elts[22] = ((closureN)self_73664)->elts[23]; +c_731440.elts[23] = ((closureN)self_73664)->elts[24]; +c_731440.elts[24] = ((closureN)self_73664)->elts[25]; +c_731440.elts[25] = ((closureN)self_73664)->elts[26]; +c_731440.elts[26] = ((closureN)self_73664)->elts[27]; +c_731440.elts[27] = ((closureN)self_73664)->elts[28]; +c_731440.elts[28] = ((closureN)self_73664)->elts[29]; +c_731440.elts[29] = ((closureN)self_73664)->elts[30]; +c_731440.elts[30] = ((closureN)self_73664)->elts[31]; +c_731440.elts[31] = ((closureN)self_73664)->elts[32]; +c_731440.elts[32] = ((closureN)self_73664)->elts[33]; +c_731440.elts[33] = ((closureN)self_73664)->elts[34]; +c_731440.elts[34] = ((closureN)self_73664)->elts[35]; +c_731440.elts[35] = ((closureN)self_73664)->elts[36]; +c_731440.elts[36] = ((closureN)self_73664)->elts[37]; +c_731440.elts[37] = ((closureN)self_73664)->elts[38]; +c_731440.elts[38] = untranslate_91term_73155; + + +make_cell(c_735183,((closureN)self_73664)->elts[15]); +return_closcall1(data,(closure)&c_731440, &c_735183);; +} + +static void __lambda_477(void *data, int argc, object self_73665, object put_73154) { + +closureN_type c_731442; +c_731442.hdr.mark = gc_color_red; + c_731442.hdr.grayed = 0; +c_731442.tag = closureN_tag; + c_731442.fn = (function_type)__lambda_476; +c_731442.num_args = 1; +c_731442.num_elt = 39; +c_731442.elts = (object *)alloca(sizeof(object) * 39); +c_731442.elts[0] = ((closureN)self_73665)->elts[0]; +c_731442.elts[1] = ((closureN)self_73665)->elts[1]; +c_731442.elts[2] = ((closureN)self_73665)->elts[2]; +c_731442.elts[3] = ((closureN)self_73665)->elts[3]; +c_731442.elts[4] = ((closureN)self_73665)->elts[4]; +c_731442.elts[5] = ((closureN)self_73665)->elts[5]; +c_731442.elts[6] = ((closureN)self_73665)->elts[6]; +c_731442.elts[7] = ((closureN)self_73665)->elts[8]; +c_731442.elts[8] = ((closureN)self_73665)->elts[9]; +c_731442.elts[9] = ((closureN)self_73665)->elts[10]; +c_731442.elts[10] = ((closureN)self_73665)->elts[11]; +c_731442.elts[11] = ((closureN)self_73665)->elts[12]; +c_731442.elts[12] = ((closureN)self_73665)->elts[13]; +c_731442.elts[13] = ((closureN)self_73665)->elts[14]; +c_731442.elts[14] = put_73154; +c_731442.elts[15] = ((closureN)self_73665)->elts[15]; +c_731442.elts[16] = ((closureN)self_73665)->elts[16]; +c_731442.elts[17] = ((closureN)self_73665)->elts[17]; +c_731442.elts[18] = ((closureN)self_73665)->elts[18]; +c_731442.elts[19] = ((closureN)self_73665)->elts[19]; +c_731442.elts[20] = ((closureN)self_73665)->elts[20]; +c_731442.elts[21] = ((closureN)self_73665)->elts[21]; +c_731442.elts[22] = ((closureN)self_73665)->elts[22]; +c_731442.elts[23] = ((closureN)self_73665)->elts[23]; +c_731442.elts[24] = ((closureN)self_73665)->elts[24]; +c_731442.elts[25] = ((closureN)self_73665)->elts[25]; +c_731442.elts[26] = ((closureN)self_73665)->elts[26]; +c_731442.elts[27] = ((closureN)self_73665)->elts[27]; +c_731442.elts[28] = ((closureN)self_73665)->elts[28]; +c_731442.elts[29] = ((closureN)self_73665)->elts[29]; +c_731442.elts[30] = ((closureN)self_73665)->elts[30]; +c_731442.elts[31] = ((closureN)self_73665)->elts[31]; +c_731442.elts[32] = ((closureN)self_73665)->elts[32]; +c_731442.elts[33] = ((closureN)self_73665)->elts[33]; +c_731442.elts[34] = ((closureN)self_73665)->elts[34]; +c_731442.elts[35] = ((closureN)self_73665)->elts[35]; +c_731442.elts[36] = ((closureN)self_73665)->elts[36]; +c_731442.elts[37] = ((closureN)self_73665)->elts[37]; +c_731442.elts[38] = ((closureN)self_73665)->elts[38]; + + +make_cell(c_735179,((closureN)self_73665)->elts[7]); +return_closcall1(data,(closure)&c_731442, &c_735179);; +} + +static void __lambda_476(void *data, int argc, object self_73666, object get_73153) { + +closureN_type c_731444; +c_731444.hdr.mark = gc_color_red; + c_731444.hdr.grayed = 0; +c_731444.tag = closureN_tag; + c_731444.fn = (function_type)__lambda_475; +c_731444.num_args = 1; +c_731444.num_elt = 39; +c_731444.elts = (object *)alloca(sizeof(object) * 39); +c_731444.elts[0] = ((closureN)self_73666)->elts[0]; +c_731444.elts[1] = ((closureN)self_73666)->elts[1]; +c_731444.elts[2] = ((closureN)self_73666)->elts[2]; +c_731444.elts[3] = ((closureN)self_73666)->elts[3]; +c_731444.elts[4] = ((closureN)self_73666)->elts[4]; +c_731444.elts[5] = ((closureN)self_73666)->elts[5]; +c_731444.elts[6] = ((closureN)self_73666)->elts[6]; +c_731444.elts[7] = get_73153; +c_731444.elts[8] = ((closureN)self_73666)->elts[7]; +c_731444.elts[9] = ((closureN)self_73666)->elts[8]; +c_731444.elts[10] = ((closureN)self_73666)->elts[9]; +c_731444.elts[11] = ((closureN)self_73666)->elts[10]; +c_731444.elts[12] = ((closureN)self_73666)->elts[11]; +c_731444.elts[13] = ((closureN)self_73666)->elts[12]; +c_731444.elts[14] = ((closureN)self_73666)->elts[13]; +c_731444.elts[15] = ((closureN)self_73666)->elts[14]; +c_731444.elts[16] = ((closureN)self_73666)->elts[15]; +c_731444.elts[17] = ((closureN)self_73666)->elts[16]; +c_731444.elts[18] = ((closureN)self_73666)->elts[17]; +c_731444.elts[19] = ((closureN)self_73666)->elts[18]; +c_731444.elts[20] = ((closureN)self_73666)->elts[19]; +c_731444.elts[21] = ((closureN)self_73666)->elts[20]; +c_731444.elts[22] = ((closureN)self_73666)->elts[21]; +c_731444.elts[23] = ((closureN)self_73666)->elts[23]; +c_731444.elts[24] = ((closureN)self_73666)->elts[24]; +c_731444.elts[25] = ((closureN)self_73666)->elts[25]; +c_731444.elts[26] = ((closureN)self_73666)->elts[26]; +c_731444.elts[27] = ((closureN)self_73666)->elts[27]; +c_731444.elts[28] = ((closureN)self_73666)->elts[28]; +c_731444.elts[29] = ((closureN)self_73666)->elts[29]; +c_731444.elts[30] = ((closureN)self_73666)->elts[30]; +c_731444.elts[31] = ((closureN)self_73666)->elts[31]; +c_731444.elts[32] = ((closureN)self_73666)->elts[32]; +c_731444.elts[33] = ((closureN)self_73666)->elts[33]; +c_731444.elts[34] = ((closureN)self_73666)->elts[34]; +c_731444.elts[35] = ((closureN)self_73666)->elts[35]; +c_731444.elts[36] = ((closureN)self_73666)->elts[36]; +c_731444.elts[37] = ((closureN)self_73666)->elts[37]; +c_731444.elts[38] = ((closureN)self_73666)->elts[38]; + + +make_cell(c_735175,((closureN)self_73666)->elts[22]); +return_closcall1(data,(closure)&c_731444, &c_735175);; +} + +static void __lambda_475(void *data, int argc, object self_73667, object symbol_91_125symbol_91record_73152) { + +closureN_type c_731446; +c_731446.hdr.mark = gc_color_red; + c_731446.hdr.grayed = 0; +c_731446.tag = closureN_tag; + c_731446.fn = (function_type)__lambda_474; +c_731446.num_args = 1; +c_731446.num_elt = 39; +c_731446.elts = (object *)alloca(sizeof(object) * 39); +c_731446.elts[0] = ((closureN)self_73667)->elts[1]; +c_731446.elts[1] = ((closureN)self_73667)->elts[2]; +c_731446.elts[2] = ((closureN)self_73667)->elts[3]; +c_731446.elts[3] = ((closureN)self_73667)->elts[4]; +c_731446.elts[4] = ((closureN)self_73667)->elts[5]; +c_731446.elts[5] = ((closureN)self_73667)->elts[6]; +c_731446.elts[6] = ((closureN)self_73667)->elts[7]; +c_731446.elts[7] = ((closureN)self_73667)->elts[8]; +c_731446.elts[8] = ((closureN)self_73667)->elts[9]; +c_731446.elts[9] = ((closureN)self_73667)->elts[10]; +c_731446.elts[10] = ((closureN)self_73667)->elts[11]; +c_731446.elts[11] = ((closureN)self_73667)->elts[12]; +c_731446.elts[12] = ((closureN)self_73667)->elts[13]; +c_731446.elts[13] = ((closureN)self_73667)->elts[14]; +c_731446.elts[14] = ((closureN)self_73667)->elts[15]; +c_731446.elts[15] = ((closureN)self_73667)->elts[16]; +c_731446.elts[16] = ((closureN)self_73667)->elts[17]; +c_731446.elts[17] = ((closureN)self_73667)->elts[18]; +c_731446.elts[18] = ((closureN)self_73667)->elts[19]; +c_731446.elts[19] = ((closureN)self_73667)->elts[20]; +c_731446.elts[20] = ((closureN)self_73667)->elts[21]; +c_731446.elts[21] = ((closureN)self_73667)->elts[22]; +c_731446.elts[22] = symbol_91_125symbol_91record_73152; +c_731446.elts[23] = ((closureN)self_73667)->elts[23]; +c_731446.elts[24] = ((closureN)self_73667)->elts[24]; +c_731446.elts[25] = ((closureN)self_73667)->elts[25]; +c_731446.elts[26] = ((closureN)self_73667)->elts[26]; +c_731446.elts[27] = ((closureN)self_73667)->elts[27]; +c_731446.elts[28] = ((closureN)self_73667)->elts[28]; +c_731446.elts[29] = ((closureN)self_73667)->elts[29]; +c_731446.elts[30] = ((closureN)self_73667)->elts[30]; +c_731446.elts[31] = ((closureN)self_73667)->elts[31]; +c_731446.elts[32] = ((closureN)self_73667)->elts[32]; +c_731446.elts[33] = ((closureN)self_73667)->elts[33]; +c_731446.elts[34] = ((closureN)self_73667)->elts[34]; +c_731446.elts[35] = ((closureN)self_73667)->elts[35]; +c_731446.elts[36] = ((closureN)self_73667)->elts[36]; +c_731446.elts[37] = ((closureN)self_73667)->elts[37]; +c_731446.elts[38] = ((closureN)self_73667)->elts[38]; + + +make_cell(c_735171,((closureN)self_73667)->elts[0]); +return_closcall1(data,(closure)&c_731446, &c_735171);; +} + +static void __lambda_474(void *data, int argc, object self_73668, object _85symbol_91records_91alist_85_73151) { + +closureN_type c_731448; +c_731448.hdr.mark = gc_color_red; + c_731448.hdr.grayed = 0; +c_731448.tag = closureN_tag; + c_731448.fn = (function_type)__lambda_473; +c_731448.num_args = 1; +c_731448.num_elt = 39; +c_731448.elts = (object *)alloca(sizeof(object) * 39); +c_731448.elts[0] = _85symbol_91records_91alist_85_73151; +c_731448.elts[1] = ((closureN)self_73668)->elts[0]; +c_731448.elts[2] = ((closureN)self_73668)->elts[1]; +c_731448.elts[3] = ((closureN)self_73668)->elts[2]; +c_731448.elts[4] = ((closureN)self_73668)->elts[3]; +c_731448.elts[5] = ((closureN)self_73668)->elts[4]; +c_731448.elts[6] = ((closureN)self_73668)->elts[5]; +c_731448.elts[7] = ((closureN)self_73668)->elts[6]; +c_731448.elts[8] = ((closureN)self_73668)->elts[7]; +c_731448.elts[9] = ((closureN)self_73668)->elts[8]; +c_731448.elts[10] = ((closureN)self_73668)->elts[9]; +c_731448.elts[11] = ((closureN)self_73668)->elts[11]; +c_731448.elts[12] = ((closureN)self_73668)->elts[12]; +c_731448.elts[13] = ((closureN)self_73668)->elts[13]; +c_731448.elts[14] = ((closureN)self_73668)->elts[14]; +c_731448.elts[15] = ((closureN)self_73668)->elts[15]; +c_731448.elts[16] = ((closureN)self_73668)->elts[16]; +c_731448.elts[17] = ((closureN)self_73668)->elts[17]; +c_731448.elts[18] = ((closureN)self_73668)->elts[18]; +c_731448.elts[19] = ((closureN)self_73668)->elts[19]; +c_731448.elts[20] = ((closureN)self_73668)->elts[20]; +c_731448.elts[21] = ((closureN)self_73668)->elts[21]; +c_731448.elts[22] = ((closureN)self_73668)->elts[22]; +c_731448.elts[23] = ((closureN)self_73668)->elts[23]; +c_731448.elts[24] = ((closureN)self_73668)->elts[24]; +c_731448.elts[25] = ((closureN)self_73668)->elts[25]; +c_731448.elts[26] = ((closureN)self_73668)->elts[26]; +c_731448.elts[27] = ((closureN)self_73668)->elts[27]; +c_731448.elts[28] = ((closureN)self_73668)->elts[28]; +c_731448.elts[29] = ((closureN)self_73668)->elts[29]; +c_731448.elts[30] = ((closureN)self_73668)->elts[30]; +c_731448.elts[31] = ((closureN)self_73668)->elts[31]; +c_731448.elts[32] = ((closureN)self_73668)->elts[32]; +c_731448.elts[33] = ((closureN)self_73668)->elts[33]; +c_731448.elts[34] = ((closureN)self_73668)->elts[34]; +c_731448.elts[35] = ((closureN)self_73668)->elts[35]; +c_731448.elts[36] = ((closureN)self_73668)->elts[36]; +c_731448.elts[37] = ((closureN)self_73668)->elts[37]; +c_731448.elts[38] = ((closureN)self_73668)->elts[38]; + + +make_cell(c_735167,((closureN)self_73668)->elts[10]); +return_closcall1(data,(closure)&c_731448, &c_735167);; +} + +static void __lambda_473(void *data, int argc, object self_73669, object make_91symbol_91record_73150) { + +closureN_type c_731450; +c_731450.hdr.mark = gc_color_red; + c_731450.hdr.grayed = 0; +c_731450.tag = closureN_tag; + c_731450.fn = (function_type)__lambda_472; +c_731450.num_args = 1; +c_731450.num_elt = 39; +c_731450.elts = (object *)alloca(sizeof(object) * 39); +c_731450.elts[0] = ((closureN)self_73669)->elts[0]; +c_731450.elts[1] = ((closureN)self_73669)->elts[1]; +c_731450.elts[2] = ((closureN)self_73669)->elts[2]; +c_731450.elts[3] = ((closureN)self_73669)->elts[3]; +c_731450.elts[4] = ((closureN)self_73669)->elts[4]; +c_731450.elts[5] = ((closureN)self_73669)->elts[5]; +c_731450.elts[6] = ((closureN)self_73669)->elts[6]; +c_731450.elts[7] = ((closureN)self_73669)->elts[7]; +c_731450.elts[8] = ((closureN)self_73669)->elts[8]; +c_731450.elts[9] = ((closureN)self_73669)->elts[9]; +c_731450.elts[10] = ((closureN)self_73669)->elts[10]; +c_731450.elts[11] = make_91symbol_91record_73150; +c_731450.elts[12] = ((closureN)self_73669)->elts[11]; +c_731450.elts[13] = ((closureN)self_73669)->elts[12]; +c_731450.elts[14] = ((closureN)self_73669)->elts[13]; +c_731450.elts[15] = ((closureN)self_73669)->elts[14]; +c_731450.elts[16] = ((closureN)self_73669)->elts[16]; +c_731450.elts[17] = ((closureN)self_73669)->elts[17]; +c_731450.elts[18] = ((closureN)self_73669)->elts[18]; +c_731450.elts[19] = ((closureN)self_73669)->elts[19]; +c_731450.elts[20] = ((closureN)self_73669)->elts[20]; +c_731450.elts[21] = ((closureN)self_73669)->elts[21]; +c_731450.elts[22] = ((closureN)self_73669)->elts[22]; +c_731450.elts[23] = ((closureN)self_73669)->elts[23]; +c_731450.elts[24] = ((closureN)self_73669)->elts[24]; +c_731450.elts[25] = ((closureN)self_73669)->elts[25]; +c_731450.elts[26] = ((closureN)self_73669)->elts[26]; +c_731450.elts[27] = ((closureN)self_73669)->elts[27]; +c_731450.elts[28] = ((closureN)self_73669)->elts[28]; +c_731450.elts[29] = ((closureN)self_73669)->elts[29]; +c_731450.elts[30] = ((closureN)self_73669)->elts[30]; +c_731450.elts[31] = ((closureN)self_73669)->elts[31]; +c_731450.elts[32] = ((closureN)self_73669)->elts[32]; +c_731450.elts[33] = ((closureN)self_73669)->elts[33]; +c_731450.elts[34] = ((closureN)self_73669)->elts[34]; +c_731450.elts[35] = ((closureN)self_73669)->elts[35]; +c_731450.elts[36] = ((closureN)self_73669)->elts[36]; +c_731450.elts[37] = ((closureN)self_73669)->elts[37]; +c_731450.elts[38] = ((closureN)self_73669)->elts[38]; + + +make_cell(c_735163,((closureN)self_73669)->elts[15]); +return_closcall1(data,(closure)&c_731450, &c_735163);; +} + +static void __lambda_472(void *data, int argc, object self_73670, object put_91lemmas_67_73149) { + +closureN_type c_731452; +c_731452.hdr.mark = gc_color_red; + c_731452.hdr.grayed = 0; +c_731452.tag = closureN_tag; + c_731452.fn = (function_type)__lambda_471; +c_731452.num_args = 1; +c_731452.num_elt = 39; +c_731452.elts = (object *)alloca(sizeof(object) * 39); +c_731452.elts[0] = ((closureN)self_73670)->elts[0]; +c_731452.elts[1] = ((closureN)self_73670)->elts[1]; +c_731452.elts[2] = ((closureN)self_73670)->elts[2]; +c_731452.elts[3] = ((closureN)self_73670)->elts[3]; +c_731452.elts[4] = ((closureN)self_73670)->elts[4]; +c_731452.elts[5] = ((closureN)self_73670)->elts[5]; +c_731452.elts[6] = ((closureN)self_73670)->elts[6]; +c_731452.elts[7] = ((closureN)self_73670)->elts[7]; +c_731452.elts[8] = ((closureN)self_73670)->elts[9]; +c_731452.elts[9] = ((closureN)self_73670)->elts[10]; +c_731452.elts[10] = ((closureN)self_73670)->elts[11]; +c_731452.elts[11] = ((closureN)self_73670)->elts[12]; +c_731452.elts[12] = ((closureN)self_73670)->elts[13]; +c_731452.elts[13] = ((closureN)self_73670)->elts[14]; +c_731452.elts[14] = ((closureN)self_73670)->elts[15]; +c_731452.elts[15] = put_91lemmas_67_73149; +c_731452.elts[16] = ((closureN)self_73670)->elts[16]; +c_731452.elts[17] = ((closureN)self_73670)->elts[17]; +c_731452.elts[18] = ((closureN)self_73670)->elts[18]; +c_731452.elts[19] = ((closureN)self_73670)->elts[19]; +c_731452.elts[20] = ((closureN)self_73670)->elts[20]; +c_731452.elts[21] = ((closureN)self_73670)->elts[21]; +c_731452.elts[22] = ((closureN)self_73670)->elts[22]; +c_731452.elts[23] = ((closureN)self_73670)->elts[23]; +c_731452.elts[24] = ((closureN)self_73670)->elts[24]; +c_731452.elts[25] = ((closureN)self_73670)->elts[25]; +c_731452.elts[26] = ((closureN)self_73670)->elts[26]; +c_731452.elts[27] = ((closureN)self_73670)->elts[27]; +c_731452.elts[28] = ((closureN)self_73670)->elts[28]; +c_731452.elts[29] = ((closureN)self_73670)->elts[29]; +c_731452.elts[30] = ((closureN)self_73670)->elts[30]; +c_731452.elts[31] = ((closureN)self_73670)->elts[31]; +c_731452.elts[32] = ((closureN)self_73670)->elts[32]; +c_731452.elts[33] = ((closureN)self_73670)->elts[33]; +c_731452.elts[34] = ((closureN)self_73670)->elts[34]; +c_731452.elts[35] = ((closureN)self_73670)->elts[35]; +c_731452.elts[36] = ((closureN)self_73670)->elts[36]; +c_731452.elts[37] = ((closureN)self_73670)->elts[37]; +c_731452.elts[38] = ((closureN)self_73670)->elts[38]; + + +make_cell(c_735159,((closureN)self_73670)->elts[8]); +return_closcall1(data,(closure)&c_731452, &c_735159);; +} + +static void __lambda_471(void *data, int argc, object self_73671, object get_91lemmas_73148) { + +closureN_type c_731454; +c_731454.hdr.mark = gc_color_red; + c_731454.hdr.grayed = 0; +c_731454.tag = closureN_tag; + c_731454.fn = (function_type)__lambda_470; +c_731454.num_args = 1; +c_731454.num_elt = 39; +c_731454.elts = (object *)alloca(sizeof(object) * 39); +c_731454.elts[0] = ((closureN)self_73671)->elts[0]; +c_731454.elts[1] = ((closureN)self_73671)->elts[1]; +c_731454.elts[2] = ((closureN)self_73671)->elts[2]; +c_731454.elts[3] = ((closureN)self_73671)->elts[3]; +c_731454.elts[4] = ((closureN)self_73671)->elts[4]; +c_731454.elts[5] = ((closureN)self_73671)->elts[5]; +c_731454.elts[6] = ((closureN)self_73671)->elts[6]; +c_731454.elts[7] = ((closureN)self_73671)->elts[7]; +c_731454.elts[8] = get_91lemmas_73148; +c_731454.elts[9] = ((closureN)self_73671)->elts[9]; +c_731454.elts[10] = ((closureN)self_73671)->elts[10]; +c_731454.elts[11] = ((closureN)self_73671)->elts[11]; +c_731454.elts[12] = ((closureN)self_73671)->elts[12]; +c_731454.elts[13] = ((closureN)self_73671)->elts[13]; +c_731454.elts[14] = ((closureN)self_73671)->elts[14]; +c_731454.elts[15] = ((closureN)self_73671)->elts[15]; +c_731454.elts[16] = ((closureN)self_73671)->elts[16]; +c_731454.elts[17] = ((closureN)self_73671)->elts[17]; +c_731454.elts[18] = ((closureN)self_73671)->elts[18]; +c_731454.elts[19] = ((closureN)self_73671)->elts[19]; +c_731454.elts[20] = ((closureN)self_73671)->elts[20]; +c_731454.elts[21] = ((closureN)self_73671)->elts[21]; +c_731454.elts[22] = ((closureN)self_73671)->elts[22]; +c_731454.elts[23] = ((closureN)self_73671)->elts[23]; +c_731454.elts[24] = ((closureN)self_73671)->elts[24]; +c_731454.elts[25] = ((closureN)self_73671)->elts[25]; +c_731454.elts[26] = ((closureN)self_73671)->elts[26]; +c_731454.elts[27] = ((closureN)self_73671)->elts[27]; +c_731454.elts[28] = ((closureN)self_73671)->elts[28]; +c_731454.elts[29] = ((closureN)self_73671)->elts[29]; +c_731454.elts[30] = ((closureN)self_73671)->elts[30]; +c_731454.elts[31] = ((closureN)self_73671)->elts[31]; +c_731454.elts[32] = ((closureN)self_73671)->elts[32]; +c_731454.elts[33] = ((closureN)self_73671)->elts[33]; +c_731454.elts[34] = ((closureN)self_73671)->elts[34]; +c_731454.elts[35] = ((closureN)self_73671)->elts[35]; +c_731454.elts[36] = ((closureN)self_73671)->elts[36]; +c_731454.elts[37] = ((closureN)self_73671)->elts[37]; +c_731454.elts[38] = ((closureN)self_73671)->elts[38]; + + +make_cell(c_735155,((closureN)self_73671)->elts[8]); +return_closcall1(data,(closure)&c_731454, &c_735155);; +} + +static void __lambda_470(void *data, int argc, object self_73672, object get_91name_73147) { + +closureN_type c_731456; +c_731456.hdr.mark = gc_color_red; + c_731456.hdr.grayed = 0; +c_731456.tag = closureN_tag; + c_731456.fn = (function_type)__lambda_469; +c_731456.num_args = 1; +c_731456.num_elt = 39; +c_731456.elts = (object *)alloca(sizeof(object) * 39); +c_731456.elts[0] = ((closureN)self_73672)->elts[0]; +c_731456.elts[1] = ((closureN)self_73672)->elts[1]; +c_731456.elts[2] = ((closureN)self_73672)->elts[2]; +c_731456.elts[3] = ((closureN)self_73672)->elts[3]; +c_731456.elts[4] = ((closureN)self_73672)->elts[4]; +c_731456.elts[5] = ((closureN)self_73672)->elts[5]; +c_731456.elts[6] = ((closureN)self_73672)->elts[6]; +c_731456.elts[7] = ((closureN)self_73672)->elts[7]; +c_731456.elts[8] = ((closureN)self_73672)->elts[8]; +c_731456.elts[9] = get_91name_73147; +c_731456.elts[10] = ((closureN)self_73672)->elts[9]; +c_731456.elts[11] = ((closureN)self_73672)->elts[10]; +c_731456.elts[12] = ((closureN)self_73672)->elts[11]; +c_731456.elts[13] = ((closureN)self_73672)->elts[12]; +c_731456.elts[14] = ((closureN)self_73672)->elts[13]; +c_731456.elts[15] = ((closureN)self_73672)->elts[14]; +c_731456.elts[16] = ((closureN)self_73672)->elts[15]; +c_731456.elts[17] = ((closureN)self_73672)->elts[16]; +c_731456.elts[18] = ((closureN)self_73672)->elts[17]; +c_731456.elts[19] = ((closureN)self_73672)->elts[18]; +c_731456.elts[20] = ((closureN)self_73672)->elts[19]; +c_731456.elts[21] = ((closureN)self_73672)->elts[20]; +c_731456.elts[22] = ((closureN)self_73672)->elts[21]; +c_731456.elts[23] = ((closureN)self_73672)->elts[22]; +c_731456.elts[24] = ((closureN)self_73672)->elts[24]; +c_731456.elts[25] = ((closureN)self_73672)->elts[25]; +c_731456.elts[26] = ((closureN)self_73672)->elts[26]; +c_731456.elts[27] = ((closureN)self_73672)->elts[27]; +c_731456.elts[28] = ((closureN)self_73672)->elts[28]; +c_731456.elts[29] = ((closureN)self_73672)->elts[29]; +c_731456.elts[30] = ((closureN)self_73672)->elts[30]; +c_731456.elts[31] = ((closureN)self_73672)->elts[31]; +c_731456.elts[32] = ((closureN)self_73672)->elts[32]; +c_731456.elts[33] = ((closureN)self_73672)->elts[33]; +c_731456.elts[34] = ((closureN)self_73672)->elts[34]; +c_731456.elts[35] = ((closureN)self_73672)->elts[35]; +c_731456.elts[36] = ((closureN)self_73672)->elts[36]; +c_731456.elts[37] = ((closureN)self_73672)->elts[37]; +c_731456.elts[38] = ((closureN)self_73672)->elts[38]; + + +make_cell(c_735151,((closureN)self_73672)->elts[23]); +return_closcall1(data,(closure)&c_731456, &c_735151);; +} + +static void __lambda_469(void *data, int argc, object self_73673, object symbol_91record_91equal_127_73146) { + +closureN_type c_731458; +c_731458.hdr.mark = gc_color_red; + c_731458.hdr.grayed = 0; +c_731458.tag = closureN_tag; + c_731458.fn = (function_type)__lambda_468; +c_731458.num_args = 1; +c_731458.num_elt = 39; +c_731458.elts = (object *)alloca(sizeof(object) * 39); +c_731458.elts[0] = ((closureN)self_73673)->elts[0]; +c_731458.elts[1] = ((closureN)self_73673)->elts[1]; +c_731458.elts[2] = ((closureN)self_73673)->elts[2]; +c_731458.elts[3] = ((closureN)self_73673)->elts[3]; +c_731458.elts[4] = ((closureN)self_73673)->elts[4]; +c_731458.elts[5] = ((closureN)self_73673)->elts[5]; +c_731458.elts[6] = ((closureN)self_73673)->elts[6]; +c_731458.elts[7] = ((closureN)self_73673)->elts[7]; +c_731458.elts[8] = ((closureN)self_73673)->elts[8]; +c_731458.elts[9] = ((closureN)self_73673)->elts[9]; +c_731458.elts[10] = ((closureN)self_73673)->elts[10]; +c_731458.elts[11] = ((closureN)self_73673)->elts[11]; +c_731458.elts[12] = ((closureN)self_73673)->elts[12]; +c_731458.elts[13] = ((closureN)self_73673)->elts[13]; +c_731458.elts[14] = ((closureN)self_73673)->elts[14]; +c_731458.elts[15] = ((closureN)self_73673)->elts[15]; +c_731458.elts[16] = ((closureN)self_73673)->elts[16]; +c_731458.elts[17] = ((closureN)self_73673)->elts[17]; +c_731458.elts[18] = ((closureN)self_73673)->elts[18]; +c_731458.elts[19] = ((closureN)self_73673)->elts[19]; +c_731458.elts[20] = ((closureN)self_73673)->elts[20]; +c_731458.elts[21] = ((closureN)self_73673)->elts[21]; +c_731458.elts[22] = ((closureN)self_73673)->elts[22]; +c_731458.elts[23] = ((closureN)self_73673)->elts[23]; +c_731458.elts[24] = symbol_91record_91equal_127_73146; +c_731458.elts[25] = ((closureN)self_73673)->elts[24]; +c_731458.elts[26] = ((closureN)self_73673)->elts[25]; +c_731458.elts[27] = ((closureN)self_73673)->elts[26]; +c_731458.elts[28] = ((closureN)self_73673)->elts[27]; +c_731458.elts[29] = ((closureN)self_73673)->elts[28]; +c_731458.elts[30] = ((closureN)self_73673)->elts[30]; +c_731458.elts[31] = ((closureN)self_73673)->elts[31]; +c_731458.elts[32] = ((closureN)self_73673)->elts[32]; +c_731458.elts[33] = ((closureN)self_73673)->elts[33]; +c_731458.elts[34] = ((closureN)self_73673)->elts[34]; +c_731458.elts[35] = ((closureN)self_73673)->elts[35]; +c_731458.elts[36] = ((closureN)self_73673)->elts[36]; +c_731458.elts[37] = ((closureN)self_73673)->elts[37]; +c_731458.elts[38] = ((closureN)self_73673)->elts[38]; + + +make_cell(c_735147,((closureN)self_73673)->elts[29]); +return_closcall1(data,(closure)&c_731458, &c_735147);; +} + +static void __lambda_468(void *data, int argc, object self_73674, object test_73145) { + +closureN_type c_731460; +c_731460.hdr.mark = gc_color_red; + c_731460.hdr.grayed = 0; +c_731460.tag = closureN_tag; + c_731460.fn = (function_type)__lambda_467; +c_731460.num_args = 1; +c_731460.num_elt = 39; +c_731460.elts = (object *)alloca(sizeof(object) * 39); +c_731460.elts[0] = ((closureN)self_73674)->elts[0]; +c_731460.elts[1] = ((closureN)self_73674)->elts[1]; +c_731460.elts[2] = ((closureN)self_73674)->elts[2]; +c_731460.elts[3] = ((closureN)self_73674)->elts[3]; +c_731460.elts[4] = ((closureN)self_73674)->elts[4]; +c_731460.elts[5] = ((closureN)self_73674)->elts[5]; +c_731460.elts[6] = ((closureN)self_73674)->elts[6]; +c_731460.elts[7] = ((closureN)self_73674)->elts[7]; +c_731460.elts[8] = ((closureN)self_73674)->elts[8]; +c_731460.elts[9] = ((closureN)self_73674)->elts[9]; +c_731460.elts[10] = ((closureN)self_73674)->elts[10]; +c_731460.elts[11] = ((closureN)self_73674)->elts[11]; +c_731460.elts[12] = ((closureN)self_73674)->elts[12]; +c_731460.elts[13] = ((closureN)self_73674)->elts[13]; +c_731460.elts[14] = ((closureN)self_73674)->elts[14]; +c_731460.elts[15] = ((closureN)self_73674)->elts[15]; +c_731460.elts[16] = ((closureN)self_73674)->elts[16]; +c_731460.elts[17] = ((closureN)self_73674)->elts[17]; +c_731460.elts[18] = ((closureN)self_73674)->elts[18]; +c_731460.elts[19] = ((closureN)self_73674)->elts[19]; +c_731460.elts[20] = ((closureN)self_73674)->elts[20]; +c_731460.elts[21] = ((closureN)self_73674)->elts[21]; +c_731460.elts[22] = ((closureN)self_73674)->elts[22]; +c_731460.elts[23] = ((closureN)self_73674)->elts[23]; +c_731460.elts[24] = ((closureN)self_73674)->elts[24]; +c_731460.elts[25] = ((closureN)self_73674)->elts[25]; +c_731460.elts[26] = ((closureN)self_73674)->elts[26]; +c_731460.elts[27] = ((closureN)self_73674)->elts[27]; +c_731460.elts[28] = ((closureN)self_73674)->elts[28]; +c_731460.elts[29] = ((closureN)self_73674)->elts[29]; +c_731460.elts[30] = test_73145; +c_731460.elts[31] = ((closureN)self_73674)->elts[30]; +c_731460.elts[32] = ((closureN)self_73674)->elts[31]; +c_731460.elts[33] = ((closureN)self_73674)->elts[33]; +c_731460.elts[34] = ((closureN)self_73674)->elts[34]; +c_731460.elts[35] = ((closureN)self_73674)->elts[35]; +c_731460.elts[36] = ((closureN)self_73674)->elts[36]; +c_731460.elts[37] = ((closureN)self_73674)->elts[37]; +c_731460.elts[38] = ((closureN)self_73674)->elts[38]; + + +make_cell(c_735143,((closureN)self_73674)->elts[32]); +return_closcall1(data,(closure)&c_731460, &c_735143);; +} + +static void __lambda_467(void *data, int argc, object self_73675, object translate_91alist_73144) { + +closureN_type c_731462; +c_731462.hdr.mark = gc_color_red; + c_731462.hdr.grayed = 0; +c_731462.tag = closureN_tag; + c_731462.fn = (function_type)__lambda_466; +c_731462.num_args = 1; +c_731462.num_elt = 39; +c_731462.elts = (object *)alloca(sizeof(object) * 39); +c_731462.elts[0] = ((closureN)self_73675)->elts[0]; +c_731462.elts[1] = ((closureN)self_73675)->elts[1]; +c_731462.elts[2] = ((closureN)self_73675)->elts[2]; +c_731462.elts[3] = ((closureN)self_73675)->elts[4]; +c_731462.elts[4] = ((closureN)self_73675)->elts[5]; +c_731462.elts[5] = ((closureN)self_73675)->elts[6]; +c_731462.elts[6] = ((closureN)self_73675)->elts[7]; +c_731462.elts[7] = ((closureN)self_73675)->elts[8]; +c_731462.elts[8] = ((closureN)self_73675)->elts[9]; +c_731462.elts[9] = ((closureN)self_73675)->elts[10]; +c_731462.elts[10] = ((closureN)self_73675)->elts[11]; +c_731462.elts[11] = ((closureN)self_73675)->elts[12]; +c_731462.elts[12] = ((closureN)self_73675)->elts[13]; +c_731462.elts[13] = ((closureN)self_73675)->elts[14]; +c_731462.elts[14] = ((closureN)self_73675)->elts[15]; +c_731462.elts[15] = ((closureN)self_73675)->elts[16]; +c_731462.elts[16] = ((closureN)self_73675)->elts[17]; +c_731462.elts[17] = ((closureN)self_73675)->elts[18]; +c_731462.elts[18] = ((closureN)self_73675)->elts[19]; +c_731462.elts[19] = ((closureN)self_73675)->elts[20]; +c_731462.elts[20] = ((closureN)self_73675)->elts[21]; +c_731462.elts[21] = ((closureN)self_73675)->elts[22]; +c_731462.elts[22] = ((closureN)self_73675)->elts[23]; +c_731462.elts[23] = ((closureN)self_73675)->elts[24]; +c_731462.elts[24] = ((closureN)self_73675)->elts[25]; +c_731462.elts[25] = ((closureN)self_73675)->elts[26]; +c_731462.elts[26] = ((closureN)self_73675)->elts[27]; +c_731462.elts[27] = ((closureN)self_73675)->elts[28]; +c_731462.elts[28] = ((closureN)self_73675)->elts[29]; +c_731462.elts[29] = ((closureN)self_73675)->elts[30]; +c_731462.elts[30] = ((closureN)self_73675)->elts[31]; +c_731462.elts[31] = ((closureN)self_73675)->elts[32]; +c_731462.elts[32] = translate_91alist_73144; +c_731462.elts[33] = ((closureN)self_73675)->elts[33]; +c_731462.elts[34] = ((closureN)self_73675)->elts[34]; +c_731462.elts[35] = ((closureN)self_73675)->elts[35]; +c_731462.elts[36] = ((closureN)self_73675)->elts[36]; +c_731462.elts[37] = ((closureN)self_73675)->elts[37]; +c_731462.elts[38] = ((closureN)self_73675)->elts[38]; + + +make_cell(c_735139,((closureN)self_73675)->elts[3]); +return_closcall1(data,(closure)&c_731462, &c_735139);; +} + +static void __lambda_466(void *data, int argc, object self_73676, object apply_91subst_73143) { + +closureN_type c_731464; +c_731464.hdr.mark = gc_color_red; + c_731464.hdr.grayed = 0; +c_731464.tag = closureN_tag; + c_731464.fn = (function_type)__lambda_465; +c_731464.num_args = 1; +c_731464.num_elt = 39; +c_731464.elts = (object *)alloca(sizeof(object) * 39); +c_731464.elts[0] = ((closureN)self_73676)->elts[0]; +c_731464.elts[1] = ((closureN)self_73676)->elts[1]; +c_731464.elts[2] = ((closureN)self_73676)->elts[2]; +c_731464.elts[3] = apply_91subst_73143; +c_731464.elts[4] = ((closureN)self_73676)->elts[4]; +c_731464.elts[5] = ((closureN)self_73676)->elts[5]; +c_731464.elts[6] = ((closureN)self_73676)->elts[6]; +c_731464.elts[7] = ((closureN)self_73676)->elts[7]; +c_731464.elts[8] = ((closureN)self_73676)->elts[8]; +c_731464.elts[9] = ((closureN)self_73676)->elts[9]; +c_731464.elts[10] = ((closureN)self_73676)->elts[10]; +c_731464.elts[11] = ((closureN)self_73676)->elts[11]; +c_731464.elts[12] = ((closureN)self_73676)->elts[12]; +c_731464.elts[13] = ((closureN)self_73676)->elts[13]; +c_731464.elts[14] = ((closureN)self_73676)->elts[14]; +c_731464.elts[15] = ((closureN)self_73676)->elts[15]; +c_731464.elts[16] = ((closureN)self_73676)->elts[16]; +c_731464.elts[17] = ((closureN)self_73676)->elts[17]; +c_731464.elts[18] = ((closureN)self_73676)->elts[18]; +c_731464.elts[19] = ((closureN)self_73676)->elts[19]; +c_731464.elts[20] = ((closureN)self_73676)->elts[20]; +c_731464.elts[21] = ((closureN)self_73676)->elts[21]; +c_731464.elts[22] = ((closureN)self_73676)->elts[22]; +c_731464.elts[23] = ((closureN)self_73676)->elts[23]; +c_731464.elts[24] = ((closureN)self_73676)->elts[24]; +c_731464.elts[25] = ((closureN)self_73676)->elts[25]; +c_731464.elts[26] = ((closureN)self_73676)->elts[26]; +c_731464.elts[27] = ((closureN)self_73676)->elts[27]; +c_731464.elts[28] = ((closureN)self_73676)->elts[28]; +c_731464.elts[29] = ((closureN)self_73676)->elts[29]; +c_731464.elts[30] = ((closureN)self_73676)->elts[30]; +c_731464.elts[31] = ((closureN)self_73676)->elts[31]; +c_731464.elts[32] = ((closureN)self_73676)->elts[32]; +c_731464.elts[33] = ((closureN)self_73676)->elts[33]; +c_731464.elts[34] = ((closureN)self_73676)->elts[34]; +c_731464.elts[35] = ((closureN)self_73676)->elts[35]; +c_731464.elts[36] = ((closureN)self_73676)->elts[36]; +c_731464.elts[37] = ((closureN)self_73676)->elts[37]; +c_731464.elts[38] = ((closureN)self_73676)->elts[38]; + + +make_cell(c_735135,((closureN)self_73676)->elts[3]); +return_closcall1(data,(closure)&c_731464, &c_735135);; +} + +static void __lambda_465(void *data, int argc, object self_73677, object apply_91subst_91lst_73142) { + +closureN_type c_731466; +c_731466.hdr.mark = gc_color_red; + c_731466.hdr.grayed = 0; +c_731466.tag = closureN_tag; + c_731466.fn = (function_type)__lambda_464; +c_731466.num_args = 1; +c_731466.num_elt = 39; +c_731466.elts = (object *)alloca(sizeof(object) * 39); +c_731466.elts[0] = ((closureN)self_73677)->elts[0]; +c_731466.elts[1] = ((closureN)self_73677)->elts[1]; +c_731466.elts[2] = ((closureN)self_73677)->elts[2]; +c_731466.elts[3] = ((closureN)self_73677)->elts[3]; +c_731466.elts[4] = apply_91subst_91lst_73142; +c_731466.elts[5] = ((closureN)self_73677)->elts[4]; +c_731466.elts[6] = ((closureN)self_73677)->elts[5]; +c_731466.elts[7] = ((closureN)self_73677)->elts[6]; +c_731466.elts[8] = ((closureN)self_73677)->elts[7]; +c_731466.elts[9] = ((closureN)self_73677)->elts[8]; +c_731466.elts[10] = ((closureN)self_73677)->elts[9]; +c_731466.elts[11] = ((closureN)self_73677)->elts[10]; +c_731466.elts[12] = ((closureN)self_73677)->elts[11]; +c_731466.elts[13] = ((closureN)self_73677)->elts[12]; +c_731466.elts[14] = ((closureN)self_73677)->elts[13]; +c_731466.elts[15] = ((closureN)self_73677)->elts[14]; +c_731466.elts[16] = ((closureN)self_73677)->elts[15]; +c_731466.elts[17] = ((closureN)self_73677)->elts[16]; +c_731466.elts[18] = ((closureN)self_73677)->elts[17]; +c_731466.elts[19] = ((closureN)self_73677)->elts[18]; +c_731466.elts[20] = ((closureN)self_73677)->elts[19]; +c_731466.elts[21] = ((closureN)self_73677)->elts[20]; +c_731466.elts[22] = ((closureN)self_73677)->elts[21]; +c_731466.elts[23] = ((closureN)self_73677)->elts[22]; +c_731466.elts[24] = ((closureN)self_73677)->elts[23]; +c_731466.elts[25] = ((closureN)self_73677)->elts[24]; +c_731466.elts[26] = ((closureN)self_73677)->elts[26]; +c_731466.elts[27] = ((closureN)self_73677)->elts[27]; +c_731466.elts[28] = ((closureN)self_73677)->elts[28]; +c_731466.elts[29] = ((closureN)self_73677)->elts[29]; +c_731466.elts[30] = ((closureN)self_73677)->elts[30]; +c_731466.elts[31] = ((closureN)self_73677)->elts[31]; +c_731466.elts[32] = ((closureN)self_73677)->elts[32]; +c_731466.elts[33] = ((closureN)self_73677)->elts[33]; +c_731466.elts[34] = ((closureN)self_73677)->elts[34]; +c_731466.elts[35] = ((closureN)self_73677)->elts[35]; +c_731466.elts[36] = ((closureN)self_73677)->elts[36]; +c_731466.elts[37] = ((closureN)self_73677)->elts[37]; +c_731466.elts[38] = ((closureN)self_73677)->elts[38]; + + +make_cell(c_735131,((closureN)self_73677)->elts[25]); +return_closcall1(data,(closure)&c_731466, &c_735131);; +} + +static void __lambda_464(void *data, int argc, object self_73678, object tautp_73141) { + +closureN_type c_731468; +c_731468.hdr.mark = gc_color_red; + c_731468.hdr.grayed = 0; +c_731468.tag = closureN_tag; + c_731468.fn = (function_type)__lambda_463; +c_731468.num_args = 1; +c_731468.num_elt = 39; +c_731468.elts = (object *)alloca(sizeof(object) * 39); +c_731468.elts[0] = ((closureN)self_73678)->elts[0]; +c_731468.elts[1] = ((closureN)self_73678)->elts[1]; +c_731468.elts[2] = ((closureN)self_73678)->elts[2]; +c_731468.elts[3] = ((closureN)self_73678)->elts[3]; +c_731468.elts[4] = ((closureN)self_73678)->elts[4]; +c_731468.elts[5] = ((closureN)self_73678)->elts[5]; +c_731468.elts[6] = ((closureN)self_73678)->elts[6]; +c_731468.elts[7] = ((closureN)self_73678)->elts[7]; +c_731468.elts[8] = ((closureN)self_73678)->elts[8]; +c_731468.elts[9] = ((closureN)self_73678)->elts[9]; +c_731468.elts[10] = ((closureN)self_73678)->elts[10]; +c_731468.elts[11] = ((closureN)self_73678)->elts[11]; +c_731468.elts[12] = ((closureN)self_73678)->elts[12]; +c_731468.elts[13] = ((closureN)self_73678)->elts[13]; +c_731468.elts[14] = ((closureN)self_73678)->elts[14]; +c_731468.elts[15] = ((closureN)self_73678)->elts[15]; +c_731468.elts[16] = ((closureN)self_73678)->elts[16]; +c_731468.elts[17] = ((closureN)self_73678)->elts[17]; +c_731468.elts[18] = ((closureN)self_73678)->elts[18]; +c_731468.elts[19] = ((closureN)self_73678)->elts[19]; +c_731468.elts[20] = ((closureN)self_73678)->elts[20]; +c_731468.elts[21] = ((closureN)self_73678)->elts[21]; +c_731468.elts[22] = ((closureN)self_73678)->elts[22]; +c_731468.elts[23] = ((closureN)self_73678)->elts[23]; +c_731468.elts[24] = ((closureN)self_73678)->elts[24]; +c_731468.elts[25] = tautp_73141; +c_731468.elts[26] = ((closureN)self_73678)->elts[26]; +c_731468.elts[27] = ((closureN)self_73678)->elts[27]; +c_731468.elts[28] = ((closureN)self_73678)->elts[28]; +c_731468.elts[29] = ((closureN)self_73678)->elts[29]; +c_731468.elts[30] = ((closureN)self_73678)->elts[30]; +c_731468.elts[31] = ((closureN)self_73678)->elts[31]; +c_731468.elts[32] = ((closureN)self_73678)->elts[32]; +c_731468.elts[33] = ((closureN)self_73678)->elts[33]; +c_731468.elts[34] = ((closureN)self_73678)->elts[34]; +c_731468.elts[35] = ((closureN)self_73678)->elts[35]; +c_731468.elts[36] = ((closureN)self_73678)->elts[36]; +c_731468.elts[37] = ((closureN)self_73678)->elts[37]; +c_731468.elts[38] = ((closureN)self_73678)->elts[38]; + + +make_cell(c_735127,((closureN)self_73678)->elts[25]); +return_closcall1(data,(closure)&c_731468, &c_735127);; +} + +static void __lambda_463(void *data, int argc, object self_73679, object tautologyp_73140) { + +closureN_type c_731470; +c_731470.hdr.mark = gc_color_red; + c_731470.hdr.grayed = 0; +c_731470.tag = closureN_tag; + c_731470.fn = (function_type)__lambda_462; +c_731470.num_args = 1; +c_731470.num_elt = 39; +c_731470.elts = (object *)alloca(sizeof(object) * 39); +c_731470.elts[0] = ((closureN)self_73679)->elts[0]; +c_731470.elts[1] = ((closureN)self_73679)->elts[1]; +c_731470.elts[2] = ((closureN)self_73679)->elts[2]; +c_731470.elts[3] = ((closureN)self_73679)->elts[3]; +c_731470.elts[4] = ((closureN)self_73679)->elts[4]; +c_731470.elts[5] = ((closureN)self_73679)->elts[5]; +c_731470.elts[6] = ((closureN)self_73679)->elts[6]; +c_731470.elts[7] = ((closureN)self_73679)->elts[7]; +c_731470.elts[8] = ((closureN)self_73679)->elts[8]; +c_731470.elts[9] = ((closureN)self_73679)->elts[9]; +c_731470.elts[10] = ((closureN)self_73679)->elts[11]; +c_731470.elts[11] = ((closureN)self_73679)->elts[12]; +c_731470.elts[12] = ((closureN)self_73679)->elts[13]; +c_731470.elts[13] = ((closureN)self_73679)->elts[14]; +c_731470.elts[14] = ((closureN)self_73679)->elts[15]; +c_731470.elts[15] = ((closureN)self_73679)->elts[16]; +c_731470.elts[16] = ((closureN)self_73679)->elts[17]; +c_731470.elts[17] = ((closureN)self_73679)->elts[18]; +c_731470.elts[18] = ((closureN)self_73679)->elts[19]; +c_731470.elts[19] = ((closureN)self_73679)->elts[20]; +c_731470.elts[20] = ((closureN)self_73679)->elts[21]; +c_731470.elts[21] = ((closureN)self_73679)->elts[22]; +c_731470.elts[22] = ((closureN)self_73679)->elts[23]; +c_731470.elts[23] = ((closureN)self_73679)->elts[24]; +c_731470.elts[24] = tautologyp_73140; +c_731470.elts[25] = ((closureN)self_73679)->elts[25]; +c_731470.elts[26] = ((closureN)self_73679)->elts[26]; +c_731470.elts[27] = ((closureN)self_73679)->elts[27]; +c_731470.elts[28] = ((closureN)self_73679)->elts[28]; +c_731470.elts[29] = ((closureN)self_73679)->elts[29]; +c_731470.elts[30] = ((closureN)self_73679)->elts[30]; +c_731470.elts[31] = ((closureN)self_73679)->elts[31]; +c_731470.elts[32] = ((closureN)self_73679)->elts[32]; +c_731470.elts[33] = ((closureN)self_73679)->elts[33]; +c_731470.elts[34] = ((closureN)self_73679)->elts[34]; +c_731470.elts[35] = ((closureN)self_73679)->elts[35]; +c_731470.elts[36] = ((closureN)self_73679)->elts[36]; +c_731470.elts[37] = ((closureN)self_73679)->elts[37]; +c_731470.elts[38] = ((closureN)self_73679)->elts[38]; + + +make_cell(c_735123,((closureN)self_73679)->elts[10]); +return_closcall1(data,(closure)&c_731470, &c_735123);; +} + +static void __lambda_462(void *data, int argc, object self_73680, object if_91constructor_73139) { + +closureN_type c_731472; +c_731472.hdr.mark = gc_color_red; + c_731472.hdr.grayed = 0; +c_731472.tag = closureN_tag; + c_731472.fn = (function_type)__lambda_461; +c_731472.num_args = 1; +c_731472.num_elt = 39; +c_731472.elts = (object *)alloca(sizeof(object) * 39); +c_731472.elts[0] = ((closureN)self_73680)->elts[0]; +c_731472.elts[1] = ((closureN)self_73680)->elts[1]; +c_731472.elts[2] = ((closureN)self_73680)->elts[2]; +c_731472.elts[3] = ((closureN)self_73680)->elts[3]; +c_731472.elts[4] = ((closureN)self_73680)->elts[4]; +c_731472.elts[5] = ((closureN)self_73680)->elts[5]; +c_731472.elts[6] = ((closureN)self_73680)->elts[6]; +c_731472.elts[7] = ((closureN)self_73680)->elts[7]; +c_731472.elts[8] = ((closureN)self_73680)->elts[8]; +c_731472.elts[9] = ((closureN)self_73680)->elts[9]; +c_731472.elts[10] = if_91constructor_73139; +c_731472.elts[11] = ((closureN)self_73680)->elts[10]; +c_731472.elts[12] = ((closureN)self_73680)->elts[11]; +c_731472.elts[13] = ((closureN)self_73680)->elts[12]; +c_731472.elts[14] = ((closureN)self_73680)->elts[13]; +c_731472.elts[15] = ((closureN)self_73680)->elts[14]; +c_731472.elts[16] = ((closureN)self_73680)->elts[15]; +c_731472.elts[17] = ((closureN)self_73680)->elts[16]; +c_731472.elts[18] = ((closureN)self_73680)->elts[17]; +c_731472.elts[19] = ((closureN)self_73680)->elts[19]; +c_731472.elts[20] = ((closureN)self_73680)->elts[20]; +c_731472.elts[21] = ((closureN)self_73680)->elts[21]; +c_731472.elts[22] = ((closureN)self_73680)->elts[22]; +c_731472.elts[23] = ((closureN)self_73680)->elts[23]; +c_731472.elts[24] = ((closureN)self_73680)->elts[24]; +c_731472.elts[25] = ((closureN)self_73680)->elts[25]; +c_731472.elts[26] = ((closureN)self_73680)->elts[26]; +c_731472.elts[27] = ((closureN)self_73680)->elts[27]; +c_731472.elts[28] = ((closureN)self_73680)->elts[28]; +c_731472.elts[29] = ((closureN)self_73680)->elts[29]; +c_731472.elts[30] = ((closureN)self_73680)->elts[30]; +c_731472.elts[31] = ((closureN)self_73680)->elts[31]; +c_731472.elts[32] = ((closureN)self_73680)->elts[32]; +c_731472.elts[33] = ((closureN)self_73680)->elts[33]; +c_731472.elts[34] = ((closureN)self_73680)->elts[34]; +c_731472.elts[35] = ((closureN)self_73680)->elts[35]; +c_731472.elts[36] = ((closureN)self_73680)->elts[36]; +c_731472.elts[37] = ((closureN)self_73680)->elts[37]; +c_731472.elts[38] = ((closureN)self_73680)->elts[38]; + + +make_cell(c_735119,((closureN)self_73680)->elts[18]); +return_closcall1(data,(closure)&c_731472, &c_735119);; +} + +static void __lambda_461(void *data, int argc, object self_73681, object rewrite_91count_73138) { + +closureN_type c_731474; +c_731474.hdr.mark = gc_color_red; + c_731474.hdr.grayed = 0; +c_731474.tag = closureN_tag; + c_731474.fn = (function_type)__lambda_460; +c_731474.num_args = 1; +c_731474.num_elt = 39; +c_731474.elts = (object *)alloca(sizeof(object) * 39); +c_731474.elts[0] = ((closureN)self_73681)->elts[0]; +c_731474.elts[1] = ((closureN)self_73681)->elts[1]; +c_731474.elts[2] = ((closureN)self_73681)->elts[2]; +c_731474.elts[3] = ((closureN)self_73681)->elts[3]; +c_731474.elts[4] = ((closureN)self_73681)->elts[4]; +c_731474.elts[5] = ((closureN)self_73681)->elts[5]; +c_731474.elts[6] = ((closureN)self_73681)->elts[6]; +c_731474.elts[7] = ((closureN)self_73681)->elts[7]; +c_731474.elts[8] = ((closureN)self_73681)->elts[8]; +c_731474.elts[9] = ((closureN)self_73681)->elts[9]; +c_731474.elts[10] = ((closureN)self_73681)->elts[10]; +c_731474.elts[11] = ((closureN)self_73681)->elts[11]; +c_731474.elts[12] = ((closureN)self_73681)->elts[12]; +c_731474.elts[13] = ((closureN)self_73681)->elts[13]; +c_731474.elts[14] = ((closureN)self_73681)->elts[14]; +c_731474.elts[15] = ((closureN)self_73681)->elts[15]; +c_731474.elts[16] = ((closureN)self_73681)->elts[16]; +c_731474.elts[17] = ((closureN)self_73681)->elts[17]; +c_731474.elts[18] = ((closureN)self_73681)->elts[18]; +c_731474.elts[19] = rewrite_91count_73138; +c_731474.elts[20] = ((closureN)self_73681)->elts[19]; +c_731474.elts[21] = ((closureN)self_73681)->elts[21]; +c_731474.elts[22] = ((closureN)self_73681)->elts[22]; +c_731474.elts[23] = ((closureN)self_73681)->elts[23]; +c_731474.elts[24] = ((closureN)self_73681)->elts[24]; +c_731474.elts[25] = ((closureN)self_73681)->elts[25]; +c_731474.elts[26] = ((closureN)self_73681)->elts[26]; +c_731474.elts[27] = ((closureN)self_73681)->elts[27]; +c_731474.elts[28] = ((closureN)self_73681)->elts[28]; +c_731474.elts[29] = ((closureN)self_73681)->elts[29]; +c_731474.elts[30] = ((closureN)self_73681)->elts[30]; +c_731474.elts[31] = ((closureN)self_73681)->elts[31]; +c_731474.elts[32] = ((closureN)self_73681)->elts[32]; +c_731474.elts[33] = ((closureN)self_73681)->elts[33]; +c_731474.elts[34] = ((closureN)self_73681)->elts[34]; +c_731474.elts[35] = ((closureN)self_73681)->elts[35]; +c_731474.elts[36] = ((closureN)self_73681)->elts[36]; +c_731474.elts[37] = ((closureN)self_73681)->elts[37]; +c_731474.elts[38] = ((closureN)self_73681)->elts[38]; + + +make_cell(c_735115,((closureN)self_73681)->elts[20]); +return_closcall1(data,(closure)&c_731474, &c_735115);; +} + +static void __lambda_460(void *data, int argc, object self_73682, object scons_73137) { + +closureN_type c_731476; +c_731476.hdr.mark = gc_color_red; + c_731476.hdr.grayed = 0; +c_731476.tag = closureN_tag; + c_731476.fn = (function_type)__lambda_459; +c_731476.num_args = 1; +c_731476.num_elt = 39; +c_731476.elts = (object *)alloca(sizeof(object) * 39); +c_731476.elts[0] = ((closureN)self_73682)->elts[0]; +c_731476.elts[1] = ((closureN)self_73682)->elts[1]; +c_731476.elts[2] = ((closureN)self_73682)->elts[2]; +c_731476.elts[3] = ((closureN)self_73682)->elts[3]; +c_731476.elts[4] = ((closureN)self_73682)->elts[4]; +c_731476.elts[5] = ((closureN)self_73682)->elts[5]; +c_731476.elts[6] = ((closureN)self_73682)->elts[6]; +c_731476.elts[7] = ((closureN)self_73682)->elts[7]; +c_731476.elts[8] = ((closureN)self_73682)->elts[8]; +c_731476.elts[9] = ((closureN)self_73682)->elts[9]; +c_731476.elts[10] = ((closureN)self_73682)->elts[10]; +c_731476.elts[11] = ((closureN)self_73682)->elts[11]; +c_731476.elts[12] = ((closureN)self_73682)->elts[12]; +c_731476.elts[13] = ((closureN)self_73682)->elts[13]; +c_731476.elts[14] = ((closureN)self_73682)->elts[14]; +c_731476.elts[15] = ((closureN)self_73682)->elts[15]; +c_731476.elts[16] = ((closureN)self_73682)->elts[16]; +c_731476.elts[17] = ((closureN)self_73682)->elts[18]; +c_731476.elts[18] = ((closureN)self_73682)->elts[19]; +c_731476.elts[19] = ((closureN)self_73682)->elts[20]; +c_731476.elts[20] = scons_73137; +c_731476.elts[21] = ((closureN)self_73682)->elts[21]; +c_731476.elts[22] = ((closureN)self_73682)->elts[22]; +c_731476.elts[23] = ((closureN)self_73682)->elts[23]; +c_731476.elts[24] = ((closureN)self_73682)->elts[24]; +c_731476.elts[25] = ((closureN)self_73682)->elts[25]; +c_731476.elts[26] = ((closureN)self_73682)->elts[26]; +c_731476.elts[27] = ((closureN)self_73682)->elts[27]; +c_731476.elts[28] = ((closureN)self_73682)->elts[28]; +c_731476.elts[29] = ((closureN)self_73682)->elts[29]; +c_731476.elts[30] = ((closureN)self_73682)->elts[30]; +c_731476.elts[31] = ((closureN)self_73682)->elts[31]; +c_731476.elts[32] = ((closureN)self_73682)->elts[32]; +c_731476.elts[33] = ((closureN)self_73682)->elts[33]; +c_731476.elts[34] = ((closureN)self_73682)->elts[34]; +c_731476.elts[35] = ((closureN)self_73682)->elts[35]; +c_731476.elts[36] = ((closureN)self_73682)->elts[36]; +c_731476.elts[37] = ((closureN)self_73682)->elts[37]; +c_731476.elts[38] = ((closureN)self_73682)->elts[38]; + + +make_cell(c_735111,((closureN)self_73682)->elts[17]); +return_closcall1(data,(closure)&c_731476, &c_735111);; +} + +static void __lambda_459(void *data, int argc, object self_73683, object rewrite_73136) { + +closureN_type c_731478; +c_731478.hdr.mark = gc_color_red; + c_731478.hdr.grayed = 0; +c_731478.tag = closureN_tag; + c_731478.fn = (function_type)__lambda_458; +c_731478.num_args = 1; +c_731478.num_elt = 39; +c_731478.elts = (object *)alloca(sizeof(object) * 39); +c_731478.elts[0] = ((closureN)self_73683)->elts[0]; +c_731478.elts[1] = ((closureN)self_73683)->elts[1]; +c_731478.elts[2] = ((closureN)self_73683)->elts[2]; +c_731478.elts[3] = ((closureN)self_73683)->elts[3]; +c_731478.elts[4] = ((closureN)self_73683)->elts[4]; +c_731478.elts[5] = ((closureN)self_73683)->elts[5]; +c_731478.elts[6] = ((closureN)self_73683)->elts[6]; +c_731478.elts[7] = ((closureN)self_73683)->elts[7]; +c_731478.elts[8] = ((closureN)self_73683)->elts[8]; +c_731478.elts[9] = ((closureN)self_73683)->elts[9]; +c_731478.elts[10] = ((closureN)self_73683)->elts[10]; +c_731478.elts[11] = ((closureN)self_73683)->elts[11]; +c_731478.elts[12] = ((closureN)self_73683)->elts[12]; +c_731478.elts[13] = ((closureN)self_73683)->elts[13]; +c_731478.elts[14] = ((closureN)self_73683)->elts[14]; +c_731478.elts[15] = ((closureN)self_73683)->elts[15]; +c_731478.elts[16] = ((closureN)self_73683)->elts[16]; +c_731478.elts[17] = rewrite_73136; +c_731478.elts[18] = ((closureN)self_73683)->elts[18]; +c_731478.elts[19] = ((closureN)self_73683)->elts[19]; +c_731478.elts[20] = ((closureN)self_73683)->elts[20]; +c_731478.elts[21] = ((closureN)self_73683)->elts[21]; +c_731478.elts[22] = ((closureN)self_73683)->elts[22]; +c_731478.elts[23] = ((closureN)self_73683)->elts[23]; +c_731478.elts[24] = ((closureN)self_73683)->elts[24]; +c_731478.elts[25] = ((closureN)self_73683)->elts[25]; +c_731478.elts[26] = ((closureN)self_73683)->elts[26]; +c_731478.elts[27] = ((closureN)self_73683)->elts[27]; +c_731478.elts[28] = ((closureN)self_73683)->elts[28]; +c_731478.elts[29] = ((closureN)self_73683)->elts[29]; +c_731478.elts[30] = ((closureN)self_73683)->elts[30]; +c_731478.elts[31] = ((closureN)self_73683)->elts[31]; +c_731478.elts[32] = ((closureN)self_73683)->elts[32]; +c_731478.elts[33] = ((closureN)self_73683)->elts[33]; +c_731478.elts[34] = ((closureN)self_73683)->elts[34]; +c_731478.elts[35] = ((closureN)self_73683)->elts[35]; +c_731478.elts[36] = ((closureN)self_73683)->elts[36]; +c_731478.elts[37] = ((closureN)self_73683)->elts[37]; +c_731478.elts[38] = ((closureN)self_73683)->elts[38]; + + +make_cell(c_735107,((closureN)self_73683)->elts[17]); +return_closcall1(data,(closure)&c_731478, &c_735107);; +} + +static void __lambda_458(void *data, int argc, object self_73684, object rewrite_91args_73135) { + +closureN_type c_731480; +c_731480.hdr.mark = gc_color_red; + c_731480.hdr.grayed = 0; +c_731480.tag = closureN_tag; + c_731480.fn = (function_type)__lambda_457; +c_731480.num_args = 1; +c_731480.num_elt = 39; +c_731480.elts = (object *)alloca(sizeof(object) * 39); +c_731480.elts[0] = ((closureN)self_73684)->elts[0]; +c_731480.elts[1] = ((closureN)self_73684)->elts[1]; +c_731480.elts[2] = ((closureN)self_73684)->elts[2]; +c_731480.elts[3] = ((closureN)self_73684)->elts[3]; +c_731480.elts[4] = ((closureN)self_73684)->elts[4]; +c_731480.elts[5] = ((closureN)self_73684)->elts[5]; +c_731480.elts[6] = ((closureN)self_73684)->elts[6]; +c_731480.elts[7] = ((closureN)self_73684)->elts[7]; +c_731480.elts[8] = ((closureN)self_73684)->elts[8]; +c_731480.elts[9] = ((closureN)self_73684)->elts[9]; +c_731480.elts[10] = ((closureN)self_73684)->elts[10]; +c_731480.elts[11] = ((closureN)self_73684)->elts[11]; +c_731480.elts[12] = ((closureN)self_73684)->elts[12]; +c_731480.elts[13] = ((closureN)self_73684)->elts[13]; +c_731480.elts[14] = ((closureN)self_73684)->elts[14]; +c_731480.elts[15] = ((closureN)self_73684)->elts[15]; +c_731480.elts[16] = ((closureN)self_73684)->elts[16]; +c_731480.elts[17] = ((closureN)self_73684)->elts[17]; +c_731480.elts[18] = rewrite_91args_73135; +c_731480.elts[19] = ((closureN)self_73684)->elts[18]; +c_731480.elts[20] = ((closureN)self_73684)->elts[20]; +c_731480.elts[21] = ((closureN)self_73684)->elts[21]; +c_731480.elts[22] = ((closureN)self_73684)->elts[22]; +c_731480.elts[23] = ((closureN)self_73684)->elts[23]; +c_731480.elts[24] = ((closureN)self_73684)->elts[24]; +c_731480.elts[25] = ((closureN)self_73684)->elts[25]; +c_731480.elts[26] = ((closureN)self_73684)->elts[26]; +c_731480.elts[27] = ((closureN)self_73684)->elts[27]; +c_731480.elts[28] = ((closureN)self_73684)->elts[28]; +c_731480.elts[29] = ((closureN)self_73684)->elts[29]; +c_731480.elts[30] = ((closureN)self_73684)->elts[30]; +c_731480.elts[31] = ((closureN)self_73684)->elts[31]; +c_731480.elts[32] = ((closureN)self_73684)->elts[32]; +c_731480.elts[33] = ((closureN)self_73684)->elts[33]; +c_731480.elts[34] = ((closureN)self_73684)->elts[34]; +c_731480.elts[35] = ((closureN)self_73684)->elts[35]; +c_731480.elts[36] = ((closureN)self_73684)->elts[36]; +c_731480.elts[37] = ((closureN)self_73684)->elts[37]; +c_731480.elts[38] = ((closureN)self_73684)->elts[38]; + + +make_cell(c_735103,((closureN)self_73684)->elts[19]); +return_closcall1(data,(closure)&c_731480, &c_735103);; +} + +static void __lambda_457(void *data, int argc, object self_73685, object rewrite_91with_91lemmas_73134) { + +closureN_type c_731482; +c_731482.hdr.mark = gc_color_red; + c_731482.hdr.grayed = 0; +c_731482.tag = closureN_tag; + c_731482.fn = (function_type)__lambda_456; +c_731482.num_args = 1; +c_731482.num_elt = 39; +c_731482.elts = (object *)alloca(sizeof(object) * 39); +c_731482.elts[0] = ((closureN)self_73685)->elts[0]; +c_731482.elts[1] = ((closureN)self_73685)->elts[1]; +c_731482.elts[2] = ((closureN)self_73685)->elts[2]; +c_731482.elts[3] = ((closureN)self_73685)->elts[3]; +c_731482.elts[4] = ((closureN)self_73685)->elts[4]; +c_731482.elts[5] = ((closureN)self_73685)->elts[5]; +c_731482.elts[6] = ((closureN)self_73685)->elts[6]; +c_731482.elts[7] = ((closureN)self_73685)->elts[7]; +c_731482.elts[8] = ((closureN)self_73685)->elts[8]; +c_731482.elts[9] = ((closureN)self_73685)->elts[9]; +c_731482.elts[10] = ((closureN)self_73685)->elts[10]; +c_731482.elts[11] = ((closureN)self_73685)->elts[11]; +c_731482.elts[12] = ((closureN)self_73685)->elts[12]; +c_731482.elts[13] = ((closureN)self_73685)->elts[13]; +c_731482.elts[14] = ((closureN)self_73685)->elts[14]; +c_731482.elts[15] = ((closureN)self_73685)->elts[15]; +c_731482.elts[16] = ((closureN)self_73685)->elts[16]; +c_731482.elts[17] = ((closureN)self_73685)->elts[17]; +c_731482.elts[18] = ((closureN)self_73685)->elts[18]; +c_731482.elts[19] = ((closureN)self_73685)->elts[19]; +c_731482.elts[20] = rewrite_91with_91lemmas_73134; +c_731482.elts[21] = ((closureN)self_73685)->elts[20]; +c_731482.elts[22] = ((closureN)self_73685)->elts[21]; +c_731482.elts[23] = ((closureN)self_73685)->elts[22]; +c_731482.elts[24] = ((closureN)self_73685)->elts[23]; +c_731482.elts[25] = ((closureN)self_73685)->elts[24]; +c_731482.elts[26] = ((closureN)self_73685)->elts[25]; +c_731482.elts[27] = ((closureN)self_73685)->elts[26]; +c_731482.elts[28] = ((closureN)self_73685)->elts[27]; +c_731482.elts[29] = ((closureN)self_73685)->elts[28]; +c_731482.elts[30] = ((closureN)self_73685)->elts[29]; +c_731482.elts[31] = ((closureN)self_73685)->elts[30]; +c_731482.elts[32] = ((closureN)self_73685)->elts[31]; +c_731482.elts[33] = ((closureN)self_73685)->elts[32]; +c_731482.elts[34] = ((closureN)self_73685)->elts[33]; +c_731482.elts[35] = ((closureN)self_73685)->elts[34]; +c_731482.elts[36] = ((closureN)self_73685)->elts[35]; +c_731482.elts[37] = ((closureN)self_73685)->elts[36]; +c_731482.elts[38] = ((closureN)self_73685)->elts[38]; + + +make_cell(c_735099,((closureN)self_73685)->elts[37]); +return_closcall1(data,(closure)&c_731482, &c_735099);; +} + +static void __lambda_456(void *data, int argc, object self_73686, object unify_91subst_73133) { + +closureN_type c_731484; +c_731484.hdr.mark = gc_color_red; + c_731484.hdr.grayed = 0; +c_731484.tag = closureN_tag; + c_731484.fn = (function_type)__lambda_455; +c_731484.num_args = 1; +c_731484.num_elt = 39; +c_731484.elts = (object *)alloca(sizeof(object) * 39); +c_731484.elts[0] = ((closureN)self_73686)->elts[0]; +c_731484.elts[1] = ((closureN)self_73686)->elts[1]; +c_731484.elts[2] = ((closureN)self_73686)->elts[2]; +c_731484.elts[3] = ((closureN)self_73686)->elts[3]; +c_731484.elts[4] = ((closureN)self_73686)->elts[4]; +c_731484.elts[5] = ((closureN)self_73686)->elts[5]; +c_731484.elts[6] = ((closureN)self_73686)->elts[6]; +c_731484.elts[7] = ((closureN)self_73686)->elts[7]; +c_731484.elts[8] = ((closureN)self_73686)->elts[8]; +c_731484.elts[9] = ((closureN)self_73686)->elts[9]; +c_731484.elts[10] = ((closureN)self_73686)->elts[10]; +c_731484.elts[11] = ((closureN)self_73686)->elts[11]; +c_731484.elts[12] = ((closureN)self_73686)->elts[13]; +c_731484.elts[13] = ((closureN)self_73686)->elts[14]; +c_731484.elts[14] = ((closureN)self_73686)->elts[15]; +c_731484.elts[15] = ((closureN)self_73686)->elts[16]; +c_731484.elts[16] = ((closureN)self_73686)->elts[17]; +c_731484.elts[17] = ((closureN)self_73686)->elts[18]; +c_731484.elts[18] = ((closureN)self_73686)->elts[19]; +c_731484.elts[19] = ((closureN)self_73686)->elts[20]; +c_731484.elts[20] = ((closureN)self_73686)->elts[21]; +c_731484.elts[21] = ((closureN)self_73686)->elts[22]; +c_731484.elts[22] = ((closureN)self_73686)->elts[23]; +c_731484.elts[23] = ((closureN)self_73686)->elts[24]; +c_731484.elts[24] = ((closureN)self_73686)->elts[25]; +c_731484.elts[25] = ((closureN)self_73686)->elts[26]; +c_731484.elts[26] = ((closureN)self_73686)->elts[27]; +c_731484.elts[27] = ((closureN)self_73686)->elts[28]; +c_731484.elts[28] = ((closureN)self_73686)->elts[29]; +c_731484.elts[29] = ((closureN)self_73686)->elts[30]; +c_731484.elts[30] = ((closureN)self_73686)->elts[31]; +c_731484.elts[31] = ((closureN)self_73686)->elts[32]; +c_731484.elts[32] = ((closureN)self_73686)->elts[33]; +c_731484.elts[33] = ((closureN)self_73686)->elts[34]; +c_731484.elts[34] = ((closureN)self_73686)->elts[35]; +c_731484.elts[35] = ((closureN)self_73686)->elts[36]; +c_731484.elts[36] = ((closureN)self_73686)->elts[37]; +c_731484.elts[37] = unify_91subst_73133; +c_731484.elts[38] = ((closureN)self_73686)->elts[38]; + + +make_cell(c_735095,((closureN)self_73686)->elts[12]); +return_closcall1(data,(closure)&c_731484, &c_735095);; +} + +static void __lambda_455(void *data, int argc, object self_73687, object one_91way_91unify_73132) { + +closureN_type c_731486; +c_731486.hdr.mark = gc_color_red; + c_731486.hdr.grayed = 0; +c_731486.tag = closureN_tag; + c_731486.fn = (function_type)__lambda_454; +c_731486.num_args = 1; +c_731486.num_elt = 39; +c_731486.elts = (object *)alloca(sizeof(object) * 39); +c_731486.elts[0] = ((closureN)self_73687)->elts[0]; +c_731486.elts[1] = ((closureN)self_73687)->elts[1]; +c_731486.elts[2] = ((closureN)self_73687)->elts[2]; +c_731486.elts[3] = ((closureN)self_73687)->elts[3]; +c_731486.elts[4] = ((closureN)self_73687)->elts[4]; +c_731486.elts[5] = ((closureN)self_73687)->elts[5]; +c_731486.elts[6] = ((closureN)self_73687)->elts[6]; +c_731486.elts[7] = ((closureN)self_73687)->elts[7]; +c_731486.elts[8] = ((closureN)self_73687)->elts[8]; +c_731486.elts[9] = ((closureN)self_73687)->elts[9]; +c_731486.elts[10] = ((closureN)self_73687)->elts[10]; +c_731486.elts[11] = ((closureN)self_73687)->elts[11]; +c_731486.elts[12] = one_91way_91unify_73132; +c_731486.elts[13] = ((closureN)self_73687)->elts[13]; +c_731486.elts[14] = ((closureN)self_73687)->elts[14]; +c_731486.elts[15] = ((closureN)self_73687)->elts[15]; +c_731486.elts[16] = ((closureN)self_73687)->elts[16]; +c_731486.elts[17] = ((closureN)self_73687)->elts[17]; +c_731486.elts[18] = ((closureN)self_73687)->elts[18]; +c_731486.elts[19] = ((closureN)self_73687)->elts[19]; +c_731486.elts[20] = ((closureN)self_73687)->elts[20]; +c_731486.elts[21] = ((closureN)self_73687)->elts[21]; +c_731486.elts[22] = ((closureN)self_73687)->elts[22]; +c_731486.elts[23] = ((closureN)self_73687)->elts[23]; +c_731486.elts[24] = ((closureN)self_73687)->elts[24]; +c_731486.elts[25] = ((closureN)self_73687)->elts[25]; +c_731486.elts[26] = ((closureN)self_73687)->elts[26]; +c_731486.elts[27] = ((closureN)self_73687)->elts[27]; +c_731486.elts[28] = ((closureN)self_73687)->elts[28]; +c_731486.elts[29] = ((closureN)self_73687)->elts[29]; +c_731486.elts[30] = ((closureN)self_73687)->elts[30]; +c_731486.elts[31] = ((closureN)self_73687)->elts[31]; +c_731486.elts[32] = ((closureN)self_73687)->elts[32]; +c_731486.elts[33] = ((closureN)self_73687)->elts[33]; +c_731486.elts[34] = ((closureN)self_73687)->elts[34]; +c_731486.elts[35] = ((closureN)self_73687)->elts[35]; +c_731486.elts[36] = ((closureN)self_73687)->elts[36]; +c_731486.elts[37] = ((closureN)self_73687)->elts[37]; +c_731486.elts[38] = ((closureN)self_73687)->elts[38]; + + +make_cell(c_735091,((closureN)self_73687)->elts[12]); +return_closcall1(data,(closure)&c_731486, &c_735091);; +} + +static void __lambda_454(void *data, int argc, object self_73688, object one_91way_91unify1_73131) { + +closureN_type c_731488; +c_731488.hdr.mark = gc_color_red; + c_731488.hdr.grayed = 0; +c_731488.tag = closureN_tag; + c_731488.fn = (function_type)__lambda_453; +c_731488.num_args = 1; +c_731488.num_elt = 39; +c_731488.elts = (object *)alloca(sizeof(object) * 39); +c_731488.elts[0] = ((closureN)self_73688)->elts[0]; +c_731488.elts[1] = ((closureN)self_73688)->elts[1]; +c_731488.elts[2] = ((closureN)self_73688)->elts[2]; +c_731488.elts[3] = ((closureN)self_73688)->elts[3]; +c_731488.elts[4] = ((closureN)self_73688)->elts[4]; +c_731488.elts[5] = ((closureN)self_73688)->elts[5]; +c_731488.elts[6] = ((closureN)self_73688)->elts[6]; +c_731488.elts[7] = ((closureN)self_73688)->elts[7]; +c_731488.elts[8] = ((closureN)self_73688)->elts[8]; +c_731488.elts[9] = ((closureN)self_73688)->elts[9]; +c_731488.elts[10] = ((closureN)self_73688)->elts[10]; +c_731488.elts[11] = ((closureN)self_73688)->elts[11]; +c_731488.elts[12] = ((closureN)self_73688)->elts[12]; +c_731488.elts[13] = one_91way_91unify1_73131; +c_731488.elts[14] = ((closureN)self_73688)->elts[14]; +c_731488.elts[15] = ((closureN)self_73688)->elts[15]; +c_731488.elts[16] = ((closureN)self_73688)->elts[16]; +c_731488.elts[17] = ((closureN)self_73688)->elts[17]; +c_731488.elts[18] = ((closureN)self_73688)->elts[18]; +c_731488.elts[19] = ((closureN)self_73688)->elts[19]; +c_731488.elts[20] = ((closureN)self_73688)->elts[20]; +c_731488.elts[21] = ((closureN)self_73688)->elts[21]; +c_731488.elts[22] = ((closureN)self_73688)->elts[22]; +c_731488.elts[23] = ((closureN)self_73688)->elts[23]; +c_731488.elts[24] = ((closureN)self_73688)->elts[24]; +c_731488.elts[25] = ((closureN)self_73688)->elts[25]; +c_731488.elts[26] = ((closureN)self_73688)->elts[26]; +c_731488.elts[27] = ((closureN)self_73688)->elts[27]; +c_731488.elts[28] = ((closureN)self_73688)->elts[28]; +c_731488.elts[29] = ((closureN)self_73688)->elts[29]; +c_731488.elts[30] = ((closureN)self_73688)->elts[30]; +c_731488.elts[31] = ((closureN)self_73688)->elts[31]; +c_731488.elts[32] = ((closureN)self_73688)->elts[32]; +c_731488.elts[33] = ((closureN)self_73688)->elts[33]; +c_731488.elts[34] = ((closureN)self_73688)->elts[34]; +c_731488.elts[35] = ((closureN)self_73688)->elts[35]; +c_731488.elts[36] = ((closureN)self_73688)->elts[36]; +c_731488.elts[37] = ((closureN)self_73688)->elts[37]; +c_731488.elts[38] = ((closureN)self_73688)->elts[38]; + + +make_cell(c_735087,((closureN)self_73688)->elts[13]); +return_closcall1(data,(closure)&c_731488, &c_735087);; +} + +static void __lambda_453(void *data, int argc, object self_73689, object one_91way_91unify1_91lst_73130) { + +closureN_type c_731490; +c_731490.hdr.mark = gc_color_red; + c_731490.hdr.grayed = 0; +c_731490.tag = closureN_tag; + c_731490.fn = (function_type)__lambda_452; +c_731490.num_args = 1; +c_731490.num_elt = 39; +c_731490.elts = (object *)alloca(sizeof(object) * 39); +c_731490.elts[0] = ((closureN)self_73689)->elts[0]; +c_731490.elts[1] = ((closureN)self_73689)->elts[1]; +c_731490.elts[2] = ((closureN)self_73689)->elts[2]; +c_731490.elts[3] = ((closureN)self_73689)->elts[3]; +c_731490.elts[4] = ((closureN)self_73689)->elts[4]; +c_731490.elts[5] = ((closureN)self_73689)->elts[5]; +c_731490.elts[6] = ((closureN)self_73689)->elts[7]; +c_731490.elts[7] = ((closureN)self_73689)->elts[8]; +c_731490.elts[8] = ((closureN)self_73689)->elts[9]; +c_731490.elts[9] = ((closureN)self_73689)->elts[10]; +c_731490.elts[10] = ((closureN)self_73689)->elts[11]; +c_731490.elts[11] = ((closureN)self_73689)->elts[12]; +c_731490.elts[12] = ((closureN)self_73689)->elts[13]; +c_731490.elts[13] = one_91way_91unify1_91lst_73130; +c_731490.elts[14] = ((closureN)self_73689)->elts[14]; +c_731490.elts[15] = ((closureN)self_73689)->elts[15]; +c_731490.elts[16] = ((closureN)self_73689)->elts[16]; +c_731490.elts[17] = ((closureN)self_73689)->elts[17]; +c_731490.elts[18] = ((closureN)self_73689)->elts[18]; +c_731490.elts[19] = ((closureN)self_73689)->elts[19]; +c_731490.elts[20] = ((closureN)self_73689)->elts[20]; +c_731490.elts[21] = ((closureN)self_73689)->elts[21]; +c_731490.elts[22] = ((closureN)self_73689)->elts[22]; +c_731490.elts[23] = ((closureN)self_73689)->elts[23]; +c_731490.elts[24] = ((closureN)self_73689)->elts[24]; +c_731490.elts[25] = ((closureN)self_73689)->elts[25]; +c_731490.elts[26] = ((closureN)self_73689)->elts[26]; +c_731490.elts[27] = ((closureN)self_73689)->elts[27]; +c_731490.elts[28] = ((closureN)self_73689)->elts[28]; +c_731490.elts[29] = ((closureN)self_73689)->elts[29]; +c_731490.elts[30] = ((closureN)self_73689)->elts[30]; +c_731490.elts[31] = ((closureN)self_73689)->elts[31]; +c_731490.elts[32] = ((closureN)self_73689)->elts[32]; +c_731490.elts[33] = ((closureN)self_73689)->elts[33]; +c_731490.elts[34] = ((closureN)self_73689)->elts[34]; +c_731490.elts[35] = ((closureN)self_73689)->elts[35]; +c_731490.elts[36] = ((closureN)self_73689)->elts[36]; +c_731490.elts[37] = ((closureN)self_73689)->elts[37]; +c_731490.elts[38] = ((closureN)self_73689)->elts[38]; + + +make_cell(c_735083,((closureN)self_73689)->elts[6]); +return_closcall1(data,(closure)&c_731490, &c_735083);; +} + +static void __lambda_452(void *data, int argc, object self_73690, object falsep_73129) { + +closureN_type c_731492; +c_731492.hdr.mark = gc_color_red; + c_731492.hdr.grayed = 0; +c_731492.tag = closureN_tag; + c_731492.fn = (function_type)__lambda_451; +c_731492.num_args = 1; +c_731492.num_elt = 39; +c_731492.elts = (object *)alloca(sizeof(object) * 39); +c_731492.elts[0] = ((closureN)self_73690)->elts[0]; +c_731492.elts[1] = ((closureN)self_73690)->elts[1]; +c_731492.elts[2] = ((closureN)self_73690)->elts[2]; +c_731492.elts[3] = ((closureN)self_73690)->elts[3]; +c_731492.elts[4] = ((closureN)self_73690)->elts[4]; +c_731492.elts[5] = ((closureN)self_73690)->elts[5]; +c_731492.elts[6] = falsep_73129; +c_731492.elts[7] = ((closureN)self_73690)->elts[6]; +c_731492.elts[8] = ((closureN)self_73690)->elts[7]; +c_731492.elts[9] = ((closureN)self_73690)->elts[8]; +c_731492.elts[10] = ((closureN)self_73690)->elts[9]; +c_731492.elts[11] = ((closureN)self_73690)->elts[10]; +c_731492.elts[12] = ((closureN)self_73690)->elts[11]; +c_731492.elts[13] = ((closureN)self_73690)->elts[12]; +c_731492.elts[14] = ((closureN)self_73690)->elts[13]; +c_731492.elts[15] = ((closureN)self_73690)->elts[14]; +c_731492.elts[16] = ((closureN)self_73690)->elts[15]; +c_731492.elts[17] = ((closureN)self_73690)->elts[16]; +c_731492.elts[18] = ((closureN)self_73690)->elts[17]; +c_731492.elts[19] = ((closureN)self_73690)->elts[18]; +c_731492.elts[20] = ((closureN)self_73690)->elts[19]; +c_731492.elts[21] = ((closureN)self_73690)->elts[20]; +c_731492.elts[22] = ((closureN)self_73690)->elts[21]; +c_731492.elts[23] = ((closureN)self_73690)->elts[22]; +c_731492.elts[24] = ((closureN)self_73690)->elts[23]; +c_731492.elts[25] = ((closureN)self_73690)->elts[24]; +c_731492.elts[26] = ((closureN)self_73690)->elts[25]; +c_731492.elts[27] = ((closureN)self_73690)->elts[26]; +c_731492.elts[28] = ((closureN)self_73690)->elts[27]; +c_731492.elts[29] = ((closureN)self_73690)->elts[28]; +c_731492.elts[30] = ((closureN)self_73690)->elts[29]; +c_731492.elts[31] = ((closureN)self_73690)->elts[30]; +c_731492.elts[32] = ((closureN)self_73690)->elts[31]; +c_731492.elts[33] = ((closureN)self_73690)->elts[32]; +c_731492.elts[34] = ((closureN)self_73690)->elts[33]; +c_731492.elts[35] = ((closureN)self_73690)->elts[34]; +c_731492.elts[36] = ((closureN)self_73690)->elts[35]; +c_731492.elts[37] = ((closureN)self_73690)->elts[37]; +c_731492.elts[38] = ((closureN)self_73690)->elts[38]; + + +make_cell(c_735079,((closureN)self_73690)->elts[36]); +return_closcall1(data,(closure)&c_731492, &c_735079);; +} + +static void __lambda_451(void *data, int argc, object self_73691, object truep_73128) { + +closureN_type c_731494; +c_731494.hdr.mark = gc_color_red; + c_731494.hdr.grayed = 0; +c_731494.tag = closureN_tag; + c_731494.fn = (function_type)__lambda_450; +c_731494.num_args = 1; +c_731494.num_elt = 39; +c_731494.elts = (object *)alloca(sizeof(object) * 39); +c_731494.elts[0] = ((closureN)self_73691)->elts[0]; +c_731494.elts[1] = ((closureN)self_73691)->elts[1]; +c_731494.elts[2] = ((closureN)self_73691)->elts[2]; +c_731494.elts[3] = ((closureN)self_73691)->elts[3]; +c_731494.elts[4] = ((closureN)self_73691)->elts[4]; +c_731494.elts[5] = ((closureN)self_73691)->elts[6]; +c_731494.elts[6] = ((closureN)self_73691)->elts[7]; +c_731494.elts[7] = ((closureN)self_73691)->elts[8]; +c_731494.elts[8] = ((closureN)self_73691)->elts[9]; +c_731494.elts[9] = ((closureN)self_73691)->elts[10]; +c_731494.elts[10] = ((closureN)self_73691)->elts[11]; +c_731494.elts[11] = ((closureN)self_73691)->elts[12]; +c_731494.elts[12] = ((closureN)self_73691)->elts[13]; +c_731494.elts[13] = ((closureN)self_73691)->elts[14]; +c_731494.elts[14] = ((closureN)self_73691)->elts[15]; +c_731494.elts[15] = ((closureN)self_73691)->elts[16]; +c_731494.elts[16] = ((closureN)self_73691)->elts[17]; +c_731494.elts[17] = ((closureN)self_73691)->elts[18]; +c_731494.elts[18] = ((closureN)self_73691)->elts[19]; +c_731494.elts[19] = ((closureN)self_73691)->elts[20]; +c_731494.elts[20] = ((closureN)self_73691)->elts[21]; +c_731494.elts[21] = ((closureN)self_73691)->elts[22]; +c_731494.elts[22] = ((closureN)self_73691)->elts[23]; +c_731494.elts[23] = ((closureN)self_73691)->elts[24]; +c_731494.elts[24] = ((closureN)self_73691)->elts[25]; +c_731494.elts[25] = ((closureN)self_73691)->elts[26]; +c_731494.elts[26] = ((closureN)self_73691)->elts[27]; +c_731494.elts[27] = ((closureN)self_73691)->elts[28]; +c_731494.elts[28] = ((closureN)self_73691)->elts[29]; +c_731494.elts[29] = ((closureN)self_73691)->elts[30]; +c_731494.elts[30] = ((closureN)self_73691)->elts[31]; +c_731494.elts[31] = ((closureN)self_73691)->elts[32]; +c_731494.elts[32] = ((closureN)self_73691)->elts[33]; +c_731494.elts[33] = ((closureN)self_73691)->elts[34]; +c_731494.elts[34] = ((closureN)self_73691)->elts[35]; +c_731494.elts[35] = ((closureN)self_73691)->elts[36]; +c_731494.elts[36] = truep_73128; +c_731494.elts[37] = ((closureN)self_73691)->elts[37]; +c_731494.elts[38] = ((closureN)self_73691)->elts[38]; + + +make_cell(c_735075,((closureN)self_73691)->elts[5]); +return_closcall1(data,(closure)&c_731494, &c_735075);; +} + +static void __lambda_450(void *data, int argc, object self_73692, object false_91term_73127) { + +closureN_type c_731496; +c_731496.hdr.mark = gc_color_red; + c_731496.hdr.grayed = 0; +c_731496.tag = closureN_tag; + c_731496.fn = (function_type)__lambda_449; +c_731496.num_args = 1; +c_731496.num_elt = 39; +c_731496.elts = (object *)alloca(sizeof(object) * 39); +c_731496.elts[0] = ((closureN)self_73692)->elts[0]; +c_731496.elts[1] = ((closureN)self_73692)->elts[1]; +c_731496.elts[2] = ((closureN)self_73692)->elts[2]; +c_731496.elts[3] = ((closureN)self_73692)->elts[3]; +c_731496.elts[4] = ((closureN)self_73692)->elts[4]; +c_731496.elts[5] = false_91term_73127; +c_731496.elts[6] = ((closureN)self_73692)->elts[5]; +c_731496.elts[7] = ((closureN)self_73692)->elts[6]; +c_731496.elts[8] = ((closureN)self_73692)->elts[7]; +c_731496.elts[9] = ((closureN)self_73692)->elts[8]; +c_731496.elts[10] = ((closureN)self_73692)->elts[9]; +c_731496.elts[11] = ((closureN)self_73692)->elts[10]; +c_731496.elts[12] = ((closureN)self_73692)->elts[11]; +c_731496.elts[13] = ((closureN)self_73692)->elts[12]; +c_731496.elts[14] = ((closureN)self_73692)->elts[13]; +c_731496.elts[15] = ((closureN)self_73692)->elts[14]; +c_731496.elts[16] = ((closureN)self_73692)->elts[15]; +c_731496.elts[17] = ((closureN)self_73692)->elts[16]; +c_731496.elts[18] = ((closureN)self_73692)->elts[17]; +c_731496.elts[19] = ((closureN)self_73692)->elts[18]; +c_731496.elts[20] = ((closureN)self_73692)->elts[19]; +c_731496.elts[21] = ((closureN)self_73692)->elts[20]; +c_731496.elts[22] = ((closureN)self_73692)->elts[21]; +c_731496.elts[23] = ((closureN)self_73692)->elts[22]; +c_731496.elts[24] = ((closureN)self_73692)->elts[23]; +c_731496.elts[25] = ((closureN)self_73692)->elts[24]; +c_731496.elts[26] = ((closureN)self_73692)->elts[25]; +c_731496.elts[27] = ((closureN)self_73692)->elts[26]; +c_731496.elts[28] = ((closureN)self_73692)->elts[27]; +c_731496.elts[29] = ((closureN)self_73692)->elts[28]; +c_731496.elts[30] = ((closureN)self_73692)->elts[29]; +c_731496.elts[31] = ((closureN)self_73692)->elts[30]; +c_731496.elts[32] = ((closureN)self_73692)->elts[31]; +c_731496.elts[33] = ((closureN)self_73692)->elts[32]; +c_731496.elts[34] = ((closureN)self_73692)->elts[33]; +c_731496.elts[35] = ((closureN)self_73692)->elts[34]; +c_731496.elts[36] = ((closureN)self_73692)->elts[36]; +c_731496.elts[37] = ((closureN)self_73692)->elts[37]; +c_731496.elts[38] = ((closureN)self_73692)->elts[38]; + + +make_cell(c_735071,((closureN)self_73692)->elts[35]); +return_closcall1(data,(closure)&c_731496, &c_735071);; +} + +static void __lambda_449(void *data, int argc, object self_73693, object true_91term_73126) { + +closureN_type c_731498; +c_731498.hdr.mark = gc_color_red; + c_731498.hdr.grayed = 0; +c_731498.tag = closureN_tag; + c_731498.fn = (function_type)__lambda_448; +c_731498.num_args = 1; +c_731498.num_elt = 39; +c_731498.elts = (object *)alloca(sizeof(object) * 39); +c_731498.elts[0] = ((closureN)self_73693)->elts[0]; +c_731498.elts[1] = ((closureN)self_73693)->elts[1]; +c_731498.elts[2] = ((closureN)self_73693)->elts[2]; +c_731498.elts[3] = ((closureN)self_73693)->elts[3]; +c_731498.elts[4] = ((closureN)self_73693)->elts[4]; +c_731498.elts[5] = ((closureN)self_73693)->elts[5]; +c_731498.elts[6] = ((closureN)self_73693)->elts[6]; +c_731498.elts[7] = ((closureN)self_73693)->elts[7]; +c_731498.elts[8] = ((closureN)self_73693)->elts[8]; +c_731498.elts[9] = ((closureN)self_73693)->elts[9]; +c_731498.elts[10] = ((closureN)self_73693)->elts[10]; +c_731498.elts[11] = ((closureN)self_73693)->elts[11]; +c_731498.elts[12] = ((closureN)self_73693)->elts[12]; +c_731498.elts[13] = ((closureN)self_73693)->elts[13]; +c_731498.elts[14] = ((closureN)self_73693)->elts[14]; +c_731498.elts[15] = ((closureN)self_73693)->elts[15]; +c_731498.elts[16] = ((closureN)self_73693)->elts[16]; +c_731498.elts[17] = ((closureN)self_73693)->elts[17]; +c_731498.elts[18] = ((closureN)self_73693)->elts[18]; +c_731498.elts[19] = ((closureN)self_73693)->elts[19]; +c_731498.elts[20] = ((closureN)self_73693)->elts[20]; +c_731498.elts[21] = ((closureN)self_73693)->elts[21]; +c_731498.elts[22] = ((closureN)self_73693)->elts[22]; +c_731498.elts[23] = ((closureN)self_73693)->elts[23]; +c_731498.elts[24] = ((closureN)self_73693)->elts[24]; +c_731498.elts[25] = ((closureN)self_73693)->elts[25]; +c_731498.elts[26] = ((closureN)self_73693)->elts[26]; +c_731498.elts[27] = ((closureN)self_73693)->elts[27]; +c_731498.elts[28] = ((closureN)self_73693)->elts[28]; +c_731498.elts[29] = ((closureN)self_73693)->elts[29]; +c_731498.elts[30] = ((closureN)self_73693)->elts[30]; +c_731498.elts[31] = ((closureN)self_73693)->elts[32]; +c_731498.elts[32] = ((closureN)self_73693)->elts[33]; +c_731498.elts[33] = ((closureN)self_73693)->elts[34]; +c_731498.elts[34] = ((closureN)self_73693)->elts[35]; +c_731498.elts[35] = true_91term_73126; +c_731498.elts[36] = ((closureN)self_73693)->elts[36]; +c_731498.elts[37] = ((closureN)self_73693)->elts[37]; +c_731498.elts[38] = ((closureN)self_73693)->elts[38]; + + +make_cell(c_735067,((closureN)self_73693)->elts[31]); +return_closcall1(data,(closure)&c_731498, &c_735067);; +} + +static void __lambda_448(void *data, int argc, object self_73694, object trans_91of_91implies_73125) { + +closureN_type c_731500; +c_731500.hdr.mark = gc_color_red; + c_731500.hdr.grayed = 0; +c_731500.tag = closureN_tag; + c_731500.fn = (function_type)__lambda_447; +c_731500.num_args = 1; +c_731500.num_elt = 39; +c_731500.elts = (object *)alloca(sizeof(object) * 39); +c_731500.elts[0] = ((closureN)self_73694)->elts[0]; +c_731500.elts[1] = ((closureN)self_73694)->elts[1]; +c_731500.elts[2] = ((closureN)self_73694)->elts[2]; +c_731500.elts[3] = ((closureN)self_73694)->elts[3]; +c_731500.elts[4] = ((closureN)self_73694)->elts[4]; +c_731500.elts[5] = ((closureN)self_73694)->elts[5]; +c_731500.elts[6] = ((closureN)self_73694)->elts[6]; +c_731500.elts[7] = ((closureN)self_73694)->elts[7]; +c_731500.elts[8] = ((closureN)self_73694)->elts[8]; +c_731500.elts[9] = ((closureN)self_73694)->elts[9]; +c_731500.elts[10] = ((closureN)self_73694)->elts[10]; +c_731500.elts[11] = ((closureN)self_73694)->elts[11]; +c_731500.elts[12] = ((closureN)self_73694)->elts[12]; +c_731500.elts[13] = ((closureN)self_73694)->elts[13]; +c_731500.elts[14] = ((closureN)self_73694)->elts[14]; +c_731500.elts[15] = ((closureN)self_73694)->elts[15]; +c_731500.elts[16] = ((closureN)self_73694)->elts[16]; +c_731500.elts[17] = ((closureN)self_73694)->elts[17]; +c_731500.elts[18] = ((closureN)self_73694)->elts[18]; +c_731500.elts[19] = ((closureN)self_73694)->elts[19]; +c_731500.elts[20] = ((closureN)self_73694)->elts[20]; +c_731500.elts[21] = ((closureN)self_73694)->elts[21]; +c_731500.elts[22] = ((closureN)self_73694)->elts[22]; +c_731500.elts[23] = ((closureN)self_73694)->elts[23]; +c_731500.elts[24] = ((closureN)self_73694)->elts[24]; +c_731500.elts[25] = ((closureN)self_73694)->elts[25]; +c_731500.elts[26] = ((closureN)self_73694)->elts[26]; +c_731500.elts[27] = ((closureN)self_73694)->elts[27]; +c_731500.elts[28] = ((closureN)self_73694)->elts[28]; +c_731500.elts[29] = ((closureN)self_73694)->elts[29]; +c_731500.elts[30] = ((closureN)self_73694)->elts[30]; +c_731500.elts[31] = trans_91of_91implies_73125; +c_731500.elts[32] = ((closureN)self_73694)->elts[32]; +c_731500.elts[33] = ((closureN)self_73694)->elts[33]; +c_731500.elts[34] = ((closureN)self_73694)->elts[34]; +c_731500.elts[35] = ((closureN)self_73694)->elts[35]; +c_731500.elts[36] = ((closureN)self_73694)->elts[36]; +c_731500.elts[37] = ((closureN)self_73694)->elts[37]; +c_731500.elts[38] = ((closureN)self_73694)->elts[38]; + + +make_cell(c_735063,((closureN)self_73694)->elts[31]); +return_closcall1(data,(closure)&c_731500, &c_735063);; +} + +static void __lambda_447(void *data, int argc, object self_73695, object trans_91of_91implies1_73124) { + +closureN_type c_731502; +c_731502.hdr.mark = gc_color_red; + c_731502.hdr.grayed = 0; +c_731502.tag = closureN_tag; + c_731502.fn = (function_type)__lambda_446; +c_731502.num_args = 1; +c_731502.num_elt = 39; +c_731502.elts = (object *)alloca(sizeof(object) * 39); +c_731502.elts[0] = ((closureN)self_73695)->elts[0]; +c_731502.elts[1] = ((closureN)self_73695)->elts[1]; +c_731502.elts[2] = ((closureN)self_73695)->elts[2]; +c_731502.elts[3] = ((closureN)self_73695)->elts[3]; +c_731502.elts[4] = ((closureN)self_73695)->elts[4]; +c_731502.elts[5] = ((closureN)self_73695)->elts[5]; +c_731502.elts[6] = ((closureN)self_73695)->elts[6]; +c_731502.elts[7] = ((closureN)self_73695)->elts[7]; +c_731502.elts[8] = ((closureN)self_73695)->elts[8]; +c_731502.elts[9] = ((closureN)self_73695)->elts[9]; +c_731502.elts[10] = ((closureN)self_73695)->elts[10]; +c_731502.elts[11] = ((closureN)self_73695)->elts[11]; +c_731502.elts[12] = ((closureN)self_73695)->elts[12]; +c_731502.elts[13] = ((closureN)self_73695)->elts[13]; +c_731502.elts[14] = ((closureN)self_73695)->elts[14]; +c_731502.elts[15] = ((closureN)self_73695)->elts[15]; +c_731502.elts[16] = ((closureN)self_73695)->elts[16]; +c_731502.elts[17] = ((closureN)self_73695)->elts[17]; +c_731502.elts[18] = ((closureN)self_73695)->elts[18]; +c_731502.elts[19] = ((closureN)self_73695)->elts[19]; +c_731502.elts[20] = ((closureN)self_73695)->elts[20]; +c_731502.elts[21] = ((closureN)self_73695)->elts[21]; +c_731502.elts[22] = ((closureN)self_73695)->elts[22]; +c_731502.elts[23] = ((closureN)self_73695)->elts[23]; +c_731502.elts[24] = ((closureN)self_73695)->elts[24]; +c_731502.elts[25] = ((closureN)self_73695)->elts[25]; +c_731502.elts[26] = ((closureN)self_73695)->elts[26]; +c_731502.elts[27] = ((closureN)self_73695)->elts[27]; +c_731502.elts[28] = ((closureN)self_73695)->elts[29]; +c_731502.elts[29] = ((closureN)self_73695)->elts[30]; +c_731502.elts[30] = ((closureN)self_73695)->elts[31]; +c_731502.elts[31] = trans_91of_91implies1_73124; +c_731502.elts[32] = ((closureN)self_73695)->elts[32]; +c_731502.elts[33] = ((closureN)self_73695)->elts[33]; +c_731502.elts[34] = ((closureN)self_73695)->elts[34]; +c_731502.elts[35] = ((closureN)self_73695)->elts[35]; +c_731502.elts[36] = ((closureN)self_73695)->elts[36]; +c_731502.elts[37] = ((closureN)self_73695)->elts[37]; +c_731502.elts[38] = ((closureN)self_73695)->elts[38]; + + +make_cell(c_735059,((closureN)self_73695)->elts[28]); +return_closcall1(data,(closure)&c_731502, &c_735059);; +} + +static void __lambda_446(void *data, int argc, object self_73696, object term_91equal_127_73123) { + +closureN_type c_731504; +c_731504.hdr.mark = gc_color_red; + c_731504.hdr.grayed = 0; +c_731504.tag = closureN_tag; + c_731504.fn = (function_type)__lambda_445; +c_731504.num_args = 1; +c_731504.num_elt = 39; +c_731504.elts = (object *)alloca(sizeof(object) * 39); +c_731504.elts[0] = ((closureN)self_73696)->elts[0]; +c_731504.elts[1] = ((closureN)self_73696)->elts[1]; +c_731504.elts[2] = ((closureN)self_73696)->elts[2]; +c_731504.elts[3] = ((closureN)self_73696)->elts[3]; +c_731504.elts[4] = ((closureN)self_73696)->elts[4]; +c_731504.elts[5] = ((closureN)self_73696)->elts[5]; +c_731504.elts[6] = ((closureN)self_73696)->elts[6]; +c_731504.elts[7] = ((closureN)self_73696)->elts[7]; +c_731504.elts[8] = ((closureN)self_73696)->elts[8]; +c_731504.elts[9] = ((closureN)self_73696)->elts[9]; +c_731504.elts[10] = ((closureN)self_73696)->elts[10]; +c_731504.elts[11] = ((closureN)self_73696)->elts[11]; +c_731504.elts[12] = ((closureN)self_73696)->elts[12]; +c_731504.elts[13] = ((closureN)self_73696)->elts[13]; +c_731504.elts[14] = ((closureN)self_73696)->elts[14]; +c_731504.elts[15] = ((closureN)self_73696)->elts[15]; +c_731504.elts[16] = ((closureN)self_73696)->elts[16]; +c_731504.elts[17] = ((closureN)self_73696)->elts[17]; +c_731504.elts[18] = ((closureN)self_73696)->elts[18]; +c_731504.elts[19] = ((closureN)self_73696)->elts[19]; +c_731504.elts[20] = ((closureN)self_73696)->elts[20]; +c_731504.elts[21] = ((closureN)self_73696)->elts[21]; +c_731504.elts[22] = ((closureN)self_73696)->elts[22]; +c_731504.elts[23] = ((closureN)self_73696)->elts[23]; +c_731504.elts[24] = ((closureN)self_73696)->elts[24]; +c_731504.elts[25] = ((closureN)self_73696)->elts[25]; +c_731504.elts[26] = ((closureN)self_73696)->elts[26]; +c_731504.elts[27] = term_91equal_127_73123; +c_731504.elts[28] = ((closureN)self_73696)->elts[28]; +c_731504.elts[29] = ((closureN)self_73696)->elts[29]; +c_731504.elts[30] = ((closureN)self_73696)->elts[30]; +c_731504.elts[31] = ((closureN)self_73696)->elts[31]; +c_731504.elts[32] = ((closureN)self_73696)->elts[32]; +c_731504.elts[33] = ((closureN)self_73696)->elts[33]; +c_731504.elts[34] = ((closureN)self_73696)->elts[34]; +c_731504.elts[35] = ((closureN)self_73696)->elts[35]; +c_731504.elts[36] = ((closureN)self_73696)->elts[36]; +c_731504.elts[37] = ((closureN)self_73696)->elts[37]; +c_731504.elts[38] = ((closureN)self_73696)->elts[38]; + + +make_cell(c_735055,((closureN)self_73696)->elts[27]); +return_closcall1(data,(closure)&c_731504, &c_735055);; +} + +static void __lambda_445(void *data, int argc, object self_73697, object term_91args_91equal_127_73122) { + +closureN_type c_731506; +c_731506.hdr.mark = gc_color_red; + c_731506.hdr.grayed = 0; +c_731506.tag = closureN_tag; + c_731506.fn = (function_type)__lambda_444; +c_731506.num_args = 1; +c_731506.num_elt = 39; +c_731506.elts = (object *)alloca(sizeof(object) * 39); +c_731506.elts[0] = ((closureN)self_73697)->elts[0]; +c_731506.elts[1] = ((closureN)self_73697)->elts[1]; +c_731506.elts[2] = ((closureN)self_73697)->elts[2]; +c_731506.elts[3] = ((closureN)self_73697)->elts[3]; +c_731506.elts[4] = ((closureN)self_73697)->elts[4]; +c_731506.elts[5] = ((closureN)self_73697)->elts[5]; +c_731506.elts[6] = ((closureN)self_73697)->elts[6]; +c_731506.elts[7] = ((closureN)self_73697)->elts[7]; +c_731506.elts[8] = ((closureN)self_73697)->elts[8]; +c_731506.elts[9] = ((closureN)self_73697)->elts[9]; +c_731506.elts[10] = ((closureN)self_73697)->elts[10]; +c_731506.elts[11] = ((closureN)self_73697)->elts[11]; +c_731506.elts[12] = ((closureN)self_73697)->elts[12]; +c_731506.elts[13] = ((closureN)self_73697)->elts[13]; +c_731506.elts[14] = ((closureN)self_73697)->elts[14]; +c_731506.elts[15] = ((closureN)self_73697)->elts[15]; +c_731506.elts[16] = ((closureN)self_73697)->elts[16]; +c_731506.elts[17] = ((closureN)self_73697)->elts[17]; +c_731506.elts[18] = ((closureN)self_73697)->elts[18]; +c_731506.elts[19] = ((closureN)self_73697)->elts[19]; +c_731506.elts[20] = ((closureN)self_73697)->elts[20]; +c_731506.elts[21] = ((closureN)self_73697)->elts[21]; +c_731506.elts[22] = ((closureN)self_73697)->elts[22]; +c_731506.elts[23] = ((closureN)self_73697)->elts[23]; +c_731506.elts[24] = ((closureN)self_73697)->elts[24]; +c_731506.elts[25] = ((closureN)self_73697)->elts[25]; +c_731506.elts[26] = ((closureN)self_73697)->elts[26]; +c_731506.elts[27] = term_91args_91equal_127_73122; +c_731506.elts[28] = ((closureN)self_73697)->elts[27]; +c_731506.elts[29] = ((closureN)self_73697)->elts[29]; +c_731506.elts[30] = ((closureN)self_73697)->elts[30]; +c_731506.elts[31] = ((closureN)self_73697)->elts[31]; +c_731506.elts[32] = ((closureN)self_73697)->elts[32]; +c_731506.elts[33] = ((closureN)self_73697)->elts[33]; +c_731506.elts[34] = ((closureN)self_73697)->elts[34]; +c_731506.elts[35] = ((closureN)self_73697)->elts[35]; +c_731506.elts[36] = ((closureN)self_73697)->elts[36]; +c_731506.elts[37] = ((closureN)self_73697)->elts[37]; +c_731506.elts[38] = ((closureN)self_73697)->elts[38]; + + +make_cell(c_735051,((closureN)self_73697)->elts[28]); +return_closcall1(data,(closure)&c_731506, &c_735051);; +} + +static void __lambda_444(void *data, int argc, object self_73698, object term_91member_127_73121) { + +closureN_type c_731508; +c_731508.hdr.mark = gc_color_red; + c_731508.hdr.grayed = 0; +c_731508.tag = closureN_tag; + c_731508.fn = (function_type)__lambda_441; +c_731508.num_args = 1; +c_731508.num_elt = 40; +c_731508.elts = (object *)alloca(sizeof(object) * 40); +c_731508.elts[0] = ((closureN)self_73698)->elts[0]; +c_731508.elts[1] = ((closureN)self_73698)->elts[1]; +c_731508.elts[2] = ((closureN)self_73698)->elts[2]; +c_731508.elts[3] = ((closureN)self_73698)->elts[3]; +c_731508.elts[4] = ((closureN)self_73698)->elts[4]; +c_731508.elts[5] = ((closureN)self_73698)->elts[5]; +c_731508.elts[6] = ((closureN)self_73698)->elts[6]; +c_731508.elts[7] = ((closureN)self_73698)->elts[7]; +c_731508.elts[8] = ((closureN)self_73698)->elts[8]; +c_731508.elts[9] = ((closureN)self_73698)->elts[9]; +c_731508.elts[10] = ((closureN)self_73698)->elts[10]; +c_731508.elts[11] = ((closureN)self_73698)->elts[11]; +c_731508.elts[12] = ((closureN)self_73698)->elts[12]; +c_731508.elts[13] = ((closureN)self_73698)->elts[13]; +c_731508.elts[14] = ((closureN)self_73698)->elts[14]; +c_731508.elts[15] = ((closureN)self_73698)->elts[15]; +c_731508.elts[16] = ((closureN)self_73698)->elts[16]; +c_731508.elts[17] = ((closureN)self_73698)->elts[17]; +c_731508.elts[18] = ((closureN)self_73698)->elts[18]; +c_731508.elts[19] = ((closureN)self_73698)->elts[19]; +c_731508.elts[20] = ((closureN)self_73698)->elts[20]; +c_731508.elts[21] = ((closureN)self_73698)->elts[21]; +c_731508.elts[22] = ((closureN)self_73698)->elts[22]; +c_731508.elts[23] = ((closureN)self_73698)->elts[23]; +c_731508.elts[24] = ((closureN)self_73698)->elts[24]; +c_731508.elts[25] = ((closureN)self_73698)->elts[25]; +c_731508.elts[26] = ((closureN)self_73698)->elts[26]; +c_731508.elts[27] = ((closureN)self_73698)->elts[27]; +c_731508.elts[28] = ((closureN)self_73698)->elts[28]; +c_731508.elts[29] = term_91member_127_73121; +c_731508.elts[30] = ((closureN)self_73698)->elts[29]; +c_731508.elts[31] = ((closureN)self_73698)->elts[30]; +c_731508.elts[32] = ((closureN)self_73698)->elts[31]; +c_731508.elts[33] = ((closureN)self_73698)->elts[32]; +c_731508.elts[34] = ((closureN)self_73698)->elts[33]; +c_731508.elts[35] = ((closureN)self_73698)->elts[34]; +c_731508.elts[36] = ((closureN)self_73698)->elts[35]; +c_731508.elts[37] = ((closureN)self_73698)->elts[36]; +c_731508.elts[38] = ((closureN)self_73698)->elts[37]; +c_731508.elts[39] = ((closureN)self_73698)->elts[38]; + + +closureN_type c_733194; +c_733194.hdr.mark = gc_color_red; + c_733194.hdr.grayed = 0; +c_733194.tag = closureN_tag; + c_733194.fn = (function_type)__lambda_443; +c_733194.num_args = 0; +c_733194.num_elt = 1; +c_733194.elts = (object *)alloca(sizeof(object) * 1); +c_733194.elts[0] = ((closureN)self_73698)->elts[2]; + +return_closcall1(data,(closure)&c_731508, &c_733194);; +} + +static void __lambda_443(void *data, int argc, object self_73699, object k_73574) { + +closureN_type c_733196; +c_733196.hdr.mark = gc_color_red; + c_733196.hdr.grayed = 0; +c_733196.tag = closureN_tag; + c_733196.fn = (function_type)__lambda_442; +c_733196.num_args = 1; +c_733196.num_elt = 2; +c_733196.elts = (object *)alloca(sizeof(object) * 2); +c_733196.elts[0] = ((closureN)self_73699)->elts[0]; +c_733196.elts[1] = k_73574; + + +make_cons(c_733206,quote_form,nil); + +make_cons(c_733205,quote_compile,&c_733206); + +make_cons(c_733213,quote_form,nil); + +make_cons(c_733212,quote_optimize,&c_733213); + +make_cons(c_733215,quote_nil,nil); + +make_cons(c_733214,&c_733215,nil); + +make_cons(c_733211,&c_733212,&c_733214); + +make_cons(c_733210,quote_codegen,&c_733211); + +make_cons(c_733209,&c_733210,nil); + +make_cons(c_733208,quote_reverse,&c_733209); + +make_cons(c_733207,&c_733208,nil); + +make_cons(c_733204,&c_733205,&c_733207); + +make_cons(c_733203,quote_equal,&c_733204); + +make_cons(c_733221,quote_y,nil); + +make_cons(c_733220,quote_x,&c_733221); + +make_cons(c_733219,quote_eqp,&c_733220); + +make_cons(c_733226,quote_x,nil); + +make_cons(c_733225,quote_fix,&c_733226); + +make_cons(c_733229,quote_y,nil); + +make_cons(c_733228,quote_fix,&c_733229); + +make_cons(c_733227,&c_733228,nil); + +make_cons(c_733224,&c_733225,&c_733227); + +make_cons(c_733223,quote_equal,&c_733224); + +make_cons(c_733222,&c_733223,nil); + +make_cons(c_733218,&c_733219,&c_733222); + +make_cons(c_733217,quote_equal,&c_733218); + +make_cons(c_733235,quote_y,nil); + +make_cons(c_733234,quote_x,&c_733235); + +make_cons(c_733233,quote_greaterp,&c_733234); + +make_cons(c_733239,quote_x,nil); + +make_cons(c_733238,quote_y,&c_733239); + +make_cons(c_733237,quote_lessp,&c_733238); + +make_cons(c_733236,&c_733237,nil); + +make_cons(c_733232,&c_733233,&c_733236); + +make_cons(c_733231,quote_equal,&c_733232); + +make_cons(c_733245,quote_y,nil); + +make_cons(c_733244,quote_x,&c_733245); + +make_cons(c_733243,quote_lesseqp,&c_733244); + +make_cons(c_733251,quote_x,nil); + +make_cons(c_733250,quote_y,&c_733251); + +make_cons(c_733249,quote_lessp,&c_733250); + +make_cons(c_733248,&c_733249,nil); + +make_cons(c_733247,quote_not,&c_733248); + +make_cons(c_733246,&c_733247,nil); + +make_cons(c_733242,&c_733243,&c_733246); + +make_cons(c_733241,quote_equal,&c_733242); + +make_cons(c_733257,quote_y,nil); + +make_cons(c_733256,quote_x,&c_733257); + +make_cons(c_733255,quote_greatereqp,&c_733256); + +make_cons(c_733263,quote_y,nil); + +make_cons(c_733262,quote_x,&c_733263); + +make_cons(c_733261,quote_lessp,&c_733262); + +make_cons(c_733260,&c_733261,nil); + +make_cons(c_733259,quote_not,&c_733260); + +make_cons(c_733258,&c_733259,nil); + +make_cons(c_733254,&c_733255,&c_733258); + +make_cons(c_733253,quote_equal,&c_733254); + +make_cons(c_733268,quote_x,nil); + +make_cons(c_733267,quote_boolean,&c_733268); + +make_cons(c_733275,quote_t,nil); + +make_cons(c_733274,&c_733275,nil); + +make_cons(c_733273,quote_x,&c_733274); + +make_cons(c_733272,quote_equal,&c_733273); + +make_cons(c_733280,quote_f,nil); + +make_cons(c_733279,&c_733280,nil); + +make_cons(c_733278,quote_x,&c_733279); + +make_cons(c_733277,quote_equal,&c_733278); + +make_cons(c_733276,&c_733277,nil); + +make_cons(c_733271,&c_733272,&c_733276); + +make_cons(c_733270,quote_or,&c_733271); + +make_cons(c_733269,&c_733270,nil); + +make_cons(c_733266,&c_733267,&c_733269); + +make_cons(c_733265,quote_equal,&c_733266); + +make_cons(c_733286,quote_y,nil); + +make_cons(c_733285,quote_x,&c_733286); + +make_cons(c_733284,quote_iff,&c_733285); + +make_cons(c_733292,quote_y,nil); + +make_cons(c_733291,quote_x,&c_733292); + +make_cons(c_733290,quote_implies,&c_733291); + +make_cons(c_733296,quote_x,nil); + +make_cons(c_733295,quote_y,&c_733296); + +make_cons(c_733294,quote_implies,&c_733295); + +make_cons(c_733293,&c_733294,nil); + +make_cons(c_733289,&c_733290,&c_733293); + +make_cons(c_733288,quote_and,&c_733289); + +make_cons(c_733287,&c_733288,nil); + +make_cons(c_733283,&c_733284,&c_733287); + +make_cons(c_733282,quote_equal,&c_733283); + +make_cons(c_733301,quote_x,nil); + +make_cons(c_733300,quote_even1,&c_733301); + +make_cons(c_733306,quote_x,nil); + +make_cons(c_733305,quote_zerop,&c_733306); + +make_cons(c_733308,quote_t,nil); + +make_cons(c_733313,quote_x,nil); + +make_cons(c_733312,quote__1911_91,&c_733313); + +make_cons(c_733311,&c_733312,nil); + +make_cons(c_733310,quote_odd,&c_733311); + +make_cons(c_733309,&c_733310,nil); + +make_cons(c_733307,&c_733308,&c_733309); + +make_cons(c_733304,&c_733305,&c_733307); + +make_cons(c_733303,quote__if,&c_733304); + +make_cons(c_733302,&c_733303,nil); + +make_cons(c_733299,&c_733300,&c_733302); + +make_cons(c_733298,quote_equal,&c_733299); + +make_cons(c_733319,quote_pred,nil); + +make_cons(c_733318,quote_l,&c_733319); + +make_cons(c_733317,quote_countps_91,&c_733318); + +make_cons(c_733325,quote_zero,nil); + +make_cons(c_733324,&c_733325,nil); + +make_cons(c_733323,quote_pred,&c_733324); + +make_cons(c_733322,quote_l,&c_733323); + +make_cons(c_733321,quote_countps_91loop,&c_733322); + +make_cons(c_733320,&c_733321,nil); + +make_cons(c_733316,&c_733317,&c_733320); + +make_cons(c_733315,quote_equal,&c_733316); + +make_cons(c_733330,quote_i,nil); + +make_cons(c_733329,quote_fact_91,&c_733330); + +make_cons(c_733334,obj_int2obj(1),nil); + +make_cons(c_733333,quote_i,&c_733334); + +make_cons(c_733332,quote_fact_91loop,&c_733333); + +make_cons(c_733331,&c_733332,nil); + +make_cons(c_733328,&c_733329,&c_733331); + +make_cons(c_733327,quote_equal,&c_733328); + +make_cons(c_733339,quote_x,nil); + +make_cons(c_733338,quote_reverse_91,&c_733339); + +make_cons(c_733344,quote_nil,nil); + +make_cons(c_733343,&c_733344,nil); + +make_cons(c_733342,quote_x,&c_733343); + +make_cons(c_733341,quote_reverse_91loop,&c_733342); + +make_cons(c_733340,&c_733341,nil); + +make_cons(c_733337,&c_733338,&c_733340); + +make_cons(c_733336,quote_equal,&c_733337); + +make_cons(c_733350,quote_y,nil); + +make_cons(c_733349,quote_x,&c_733350); + +make_cons(c_733348,quote_divides,&c_733349); + +make_cons(c_733356,quote_x,nil); + +make_cons(c_733355,quote_y,&c_733356); + +make_cons(c_733354,quote_remainder,&c_733355); + +make_cons(c_733353,&c_733354,nil); + +make_cons(c_733352,quote_zerop,&c_733353); + +make_cons(c_733351,&c_733352,nil); + +make_cons(c_733347,&c_733348,&c_733351); + +make_cons(c_733346,quote_equal,&c_733347); + +make_cons(c_733362,quote_alist,nil); + +make_cons(c_733361,quote_var,&c_733362); + +make_cons(c_733360,quote_assume_91true,&c_733361); + +make_cons(c_733369,quote_t,nil); + +make_cons(c_733368,&c_733369,nil); + +make_cons(c_733367,quote_var,&c_733368); + +make_cons(c_733366,quote_cons,&c_733367); + +make_cons(c_733370,quote_alist,nil); + +make_cons(c_733365,&c_733366,&c_733370); + +make_cons(c_733364,quote_cons,&c_733365); + +make_cons(c_733363,&c_733364,nil); + +make_cons(c_733359,&c_733360,&c_733363); + +make_cons(c_733358,quote_equal,&c_733359); + +make_cons(c_733376,quote_alist,nil); + +make_cons(c_733375,quote_var,&c_733376); + +make_cons(c_733374,quote_assume_91false,&c_733375); + +make_cons(c_733383,quote_f,nil); + +make_cons(c_733382,&c_733383,nil); + +make_cons(c_733381,quote_var,&c_733382); + +make_cons(c_733380,quote_cons,&c_733381); + +make_cons(c_733384,quote_alist,nil); + +make_cons(c_733379,&c_733380,&c_733384); + +make_cons(c_733378,quote_cons,&c_733379); + +make_cons(c_733377,&c_733378,nil); + +make_cons(c_733373,&c_733374,&c_733377); + +make_cons(c_733372,quote_equal,&c_733373); + +make_cons(c_733389,quote_x,nil); + +make_cons(c_733388,quote_tautology_91checker,&c_733389); + +make_cons(c_733394,quote_x,nil); + +make_cons(c_733393,quote_normalize,&c_733394); + +make_cons(c_733396,quote_nil,nil); + +make_cons(c_733395,&c_733396,nil); + +make_cons(c_733392,&c_733393,&c_733395); + +make_cons(c_733391,quote_tautologyp,&c_733392); + +make_cons(c_733390,&c_733391,nil); + +make_cons(c_733387,&c_733388,&c_733390); + +make_cons(c_733386,quote_equal,&c_733387); + +make_cons(c_733401,quote_x,nil); + +make_cons(c_733400,quote_falsify,&c_733401); + +make_cons(c_733406,quote_x,nil); + +make_cons(c_733405,quote_normalize,&c_733406); + +make_cons(c_733408,quote_nil,nil); + +make_cons(c_733407,&c_733408,nil); + +make_cons(c_733404,&c_733405,&c_733407); + +make_cons(c_733403,quote_falsify1,&c_733404); + +make_cons(c_733402,&c_733403,nil); + +make_cons(c_733399,&c_733400,&c_733402); + +make_cons(c_733398,quote_equal,&c_733399); + +make_cons(c_733413,quote_x,nil); + +make_cons(c_733412,quote_prime,&c_733413); + +make_cons(c_733420,quote_x,nil); + +make_cons(c_733419,quote_zerop,&c_733420); + +make_cons(c_733418,&c_733419,nil); + +make_cons(c_733417,quote_not,&c_733418); + +make_cons(c_733429,quote_zero,nil); + +make_cons(c_733428,&c_733429,nil); + +make_cons(c_733427,quote_add1,&c_733428); + +make_cons(c_733426,&c_733427,nil); + +make_cons(c_733425,quote_x,&c_733426); + +make_cons(c_733424,quote_equal,&c_733425); + +make_cons(c_733423,&c_733424,nil); + +make_cons(c_733422,quote_not,&c_733423); + +make_cons(c_733435,quote_x,nil); + +make_cons(c_733434,quote__1911_91,&c_733435); + +make_cons(c_733433,&c_733434,nil); + +make_cons(c_733432,quote_x,&c_733433); + +make_cons(c_733431,quote_prime1,&c_733432); + +make_cons(c_733430,&c_733431,nil); + +make_cons(c_733421,&c_733422,&c_733430); + +make_cons(c_733416,&c_733417,&c_733421); + +make_cons(c_733415,quote_and,&c_733416); + +make_cons(c_733414,&c_733415,nil); + +make_cons(c_733411,&c_733412,&c_733414); + +make_cons(c_733410,quote_equal,&c_733411); + +make_cons(c_733441,quote_q,nil); + +make_cons(c_733440,quote_p,&c_733441); + +make_cons(c_733439,quote_and,&c_733440); + +make_cons(c_733449,quote_t,nil); + +make_cons(c_733451,quote_f,nil); + +make_cons(c_733450,&c_733451,nil); + +make_cons(c_733448,&c_733449,&c_733450); + +make_cons(c_733447,quote_q,&c_733448); + +make_cons(c_733446,quote__if,&c_733447); + +make_cons(c_733453,quote_f,nil); + +make_cons(c_733452,&c_733453,nil); + +make_cons(c_733445,&c_733446,&c_733452); + +make_cons(c_733444,quote_p,&c_733445); + +make_cons(c_733443,quote__if,&c_733444); + +make_cons(c_733442,&c_733443,nil); + +make_cons(c_733438,&c_733439,&c_733442); + +make_cons(c_733437,quote_equal,&c_733438); + +make_cons(c_733459,quote_q,nil); + +make_cons(c_733458,quote_p,&c_733459); + +make_cons(c_733457,quote_or,&c_733458); + +make_cons(c_733464,quote_t,nil); + +make_cons(c_733469,quote_t,nil); + +make_cons(c_733471,quote_f,nil); + +make_cons(c_733470,&c_733471,nil); + +make_cons(c_733468,&c_733469,&c_733470); + +make_cons(c_733467,quote_q,&c_733468); + +make_cons(c_733466,quote__if,&c_733467); + +make_cons(c_733465,&c_733466,nil); + +make_cons(c_733463,&c_733464,&c_733465); + +make_cons(c_733462,quote_p,&c_733463); + +make_cons(c_733461,quote__if,&c_733462); + +make_cons(c_733460,&c_733461,nil); + +make_cons(c_733456,&c_733457,&c_733460); + +make_cons(c_733455,quote_equal,&c_733456); + +make_cons(c_733476,quote_p,nil); + +make_cons(c_733475,quote_not,&c_733476); + +make_cons(c_733481,quote_f,nil); + +make_cons(c_733483,quote_t,nil); + +make_cons(c_733482,&c_733483,nil); + +make_cons(c_733480,&c_733481,&c_733482); + +make_cons(c_733479,quote_p,&c_733480); + +make_cons(c_733478,quote__if,&c_733479); + +make_cons(c_733477,&c_733478,nil); + +make_cons(c_733474,&c_733475,&c_733477); + +make_cons(c_733473,quote_equal,&c_733474); + +make_cons(c_733489,quote_q,nil); + +make_cons(c_733488,quote_p,&c_733489); + +make_cons(c_733487,quote_implies,&c_733488); + +make_cons(c_733497,quote_t,nil); + +make_cons(c_733499,quote_f,nil); + +make_cons(c_733498,&c_733499,nil); + +make_cons(c_733496,&c_733497,&c_733498); + +make_cons(c_733495,quote_q,&c_733496); + +make_cons(c_733494,quote__if,&c_733495); + +make_cons(c_733501,quote_t,nil); + +make_cons(c_733500,&c_733501,nil); + +make_cons(c_733493,&c_733494,&c_733500); + +make_cons(c_733492,quote_p,&c_733493); + +make_cons(c_733491,quote__if,&c_733492); + +make_cons(c_733490,&c_733491,nil); + +make_cons(c_733486,&c_733487,&c_733490); + +make_cons(c_733485,quote_equal,&c_733486); + +make_cons(c_733506,quote_x,nil); + +make_cons(c_733505,quote_fix,&c_733506); + +make_cons(c_733511,quote_x,nil); + +make_cons(c_733510,quote_numberp,&c_733511); + +make_cons(c_733514,quote_zero,nil); + +make_cons(c_733513,&c_733514,nil); + +make_cons(c_733512,quote_x,&c_733513); + +make_cons(c_733509,&c_733510,&c_733512); + +make_cons(c_733508,quote__if,&c_733509); + +make_cons(c_733507,&c_733508,nil); + +make_cons(c_733504,&c_733505,&c_733507); + +make_cons(c_733503,quote_equal,&c_733504); + +make_cons(c_733523,quote_c,nil); + +make_cons(c_733522,quote_b,&c_733523); + +make_cons(c_733521,quote_a,&c_733522); + +make_cons(c_733520,quote__if,&c_733521); + +make_cons(c_733525,quote_e,nil); + +make_cons(c_733524,quote_d,&c_733525); + +make_cons(c_733519,&c_733520,&c_733524); + +make_cons(c_733518,quote__if,&c_733519); + +make_cons(c_733533,quote_e,nil); + +make_cons(c_733532,quote_d,&c_733533); + +make_cons(c_733531,quote_b,&c_733532); + +make_cons(c_733530,quote__if,&c_733531); + +make_cons(c_733538,quote_e,nil); + +make_cons(c_733537,quote_d,&c_733538); + +make_cons(c_733536,quote_c,&c_733537); + +make_cons(c_733535,quote__if,&c_733536); + +make_cons(c_733534,&c_733535,nil); + +make_cons(c_733529,&c_733530,&c_733534); + +make_cons(c_733528,quote_a,&c_733529); + +make_cons(c_733527,quote__if,&c_733528); + +make_cons(c_733526,&c_733527,nil); + +make_cons(c_733517,&c_733518,&c_733526); + +make_cons(c_733516,quote_equal,&c_733517); + +make_cons(c_733543,quote_x,nil); + +make_cons(c_733542,quote_zerop,&c_733543); + +make_cons(c_733550,quote_zero,nil); + +make_cons(c_733549,&c_733550,nil); + +make_cons(c_733548,quote_x,&c_733549); + +make_cons(c_733547,quote_equal,&c_733548); + +make_cons(c_733555,quote_x,nil); + +make_cons(c_733554,quote_numberp,&c_733555); + +make_cons(c_733553,&c_733554,nil); + +make_cons(c_733552,quote_not,&c_733553); + +make_cons(c_733551,&c_733552,nil); + +make_cons(c_733546,&c_733547,&c_733551); + +make_cons(c_733545,quote_or,&c_733546); + +make_cons(c_733544,&c_733545,nil); + +make_cons(c_733541,&c_733542,&c_733544); + +make_cons(c_733540,quote_equal,&c_733541); + +make_cons(c_733563,quote_y,nil); + +make_cons(c_733562,quote_x,&c_733563); + +make_cons(c_733561,quote_plus,&c_733562); + +make_cons(c_733564,quote_z,nil); + +make_cons(c_733560,&c_733561,&c_733564); + +make_cons(c_733559,quote_plus,&c_733560); + +make_cons(c_733571,quote_z,nil); + +make_cons(c_733570,quote_y,&c_733571); + +make_cons(c_733569,quote_plus,&c_733570); + +make_cons(c_733568,&c_733569,nil); + +make_cons(c_733567,quote_x,&c_733568); + +make_cons(c_733566,quote_plus,&c_733567); + +make_cons(c_733565,&c_733566,nil); + +make_cons(c_733558,&c_733559,&c_733565); + +make_cons(c_733557,quote_equal,&c_733558); + +make_cons(c_733579,quote_b,nil); + +make_cons(c_733578,quote_a,&c_733579); + +make_cons(c_733577,quote_plus,&c_733578); + +make_cons(c_733581,quote_zero,nil); + +make_cons(c_733580,&c_733581,nil); + +make_cons(c_733576,&c_733577,&c_733580); + +make_cons(c_733575,quote_equal,&c_733576); + +make_cons(c_733586,quote_a,nil); + +make_cons(c_733585,quote_zerop,&c_733586); + +make_cons(c_733589,quote_b,nil); + +make_cons(c_733588,quote_zerop,&c_733589); + +make_cons(c_733587,&c_733588,nil); + +make_cons(c_733584,&c_733585,&c_733587); + +make_cons(c_733583,quote_and,&c_733584); + +make_cons(c_733582,&c_733583,nil); + +make_cons(c_733574,&c_733575,&c_733582); + +make_cons(c_733573,quote_equal,&c_733574); + +make_cons(c_733595,quote_x,nil); + +make_cons(c_733594,quote_x,&c_733595); + +make_cons(c_733593,quote_difference,&c_733594); + +make_cons(c_733597,quote_zero,nil); + +make_cons(c_733596,&c_733597,nil); + +make_cons(c_733592,&c_733593,&c_733596); + +make_cons(c_733591,quote_equal,&c_733592); + +make_cons(c_733605,quote_b,nil); + +make_cons(c_733604,quote_a,&c_733605); + +make_cons(c_733603,quote_plus,&c_733604); + +make_cons(c_733609,quote_c,nil); + +make_cons(c_733608,quote_a,&c_733609); + +make_cons(c_733607,quote_plus,&c_733608); + +make_cons(c_733606,&c_733607,nil); + +make_cons(c_733602,&c_733603,&c_733606); + +make_cons(c_733601,quote_equal,&c_733602); + +make_cons(c_733614,quote_b,nil); + +make_cons(c_733613,quote_fix,&c_733614); + +make_cons(c_733617,quote_c,nil); + +make_cons(c_733616,quote_fix,&c_733617); + +make_cons(c_733615,&c_733616,nil); + +make_cons(c_733612,&c_733613,&c_733615); + +make_cons(c_733611,quote_equal,&c_733612); + +make_cons(c_733610,&c_733611,nil); + +make_cons(c_733600,&c_733601,&c_733610); + +make_cons(c_733599,quote_equal,&c_733600); + +make_cons(c_733623,quote_zero,nil); + +make_cons(c_733627,quote_y,nil); + +make_cons(c_733626,quote_x,&c_733627); + +make_cons(c_733625,quote_difference,&c_733626); + +make_cons(c_733624,&c_733625,nil); + +make_cons(c_733622,&c_733623,&c_733624); + +make_cons(c_733621,quote_equal,&c_733622); + +make_cons(c_733633,quote_x,nil); + +make_cons(c_733632,quote_y,&c_733633); + +make_cons(c_733631,quote_lessp,&c_733632); + +make_cons(c_733630,&c_733631,nil); + +make_cons(c_733629,quote_not,&c_733630); + +make_cons(c_733628,&c_733629,nil); + +make_cons(c_733620,&c_733621,&c_733628); + +make_cons(c_733619,quote_equal,&c_733620); + +make_cons(c_733642,quote_y,nil); + +make_cons(c_733641,quote_x,&c_733642); + +make_cons(c_733640,quote_difference,&c_733641); + +make_cons(c_733639,&c_733640,nil); + +make_cons(c_733638,quote_x,&c_733639); + +make_cons(c_733637,quote_equal,&c_733638); + +make_cons(c_733647,quote_x,nil); + +make_cons(c_733646,quote_numberp,&c_733647); + +make_cons(c_733654,quote_zero,nil); + +make_cons(c_733653,&c_733654,nil); + +make_cons(c_733652,quote_x,&c_733653); + +make_cons(c_733651,quote_equal,&c_733652); + +make_cons(c_733657,quote_y,nil); + +make_cons(c_733656,quote_zerop,&c_733657); + +make_cons(c_733655,&c_733656,nil); + +make_cons(c_733650,&c_733651,&c_733655); + +make_cons(c_733649,quote_or,&c_733650); + +make_cons(c_733648,&c_733649,nil); + +make_cons(c_733645,&c_733646,&c_733648); + +make_cons(c_733644,quote_and,&c_733645); + +make_cons(c_733643,&c_733644,nil); + +make_cons(c_733636,&c_733637,&c_733643); + +make_cons(c_733635,quote_equal,&c_733636); + +make_cons(c_733667,quote_y,nil); + +make_cons(c_733666,quote_x,&c_733667); + +make_cons(c_733665,quote_append,&c_733666); + +make_cons(c_733664,&c_733665,nil); + +make_cons(c_733663,quote_plus_91tree,&c_733664); + +make_cons(c_733668,quote_a,nil); + +make_cons(c_733662,&c_733663,&c_733668); + +make_cons(c_733661,quote_meaning,&c_733662); + +make_cons(c_733675,quote_x,nil); + +make_cons(c_733674,quote_plus_91tree,&c_733675); + +make_cons(c_733676,quote_a,nil); + +make_cons(c_733673,&c_733674,&c_733676); + +make_cons(c_733672,quote_meaning,&c_733673); + +make_cons(c_733681,quote_y,nil); + +make_cons(c_733680,quote_plus_91tree,&c_733681); + +make_cons(c_733682,quote_a,nil); + +make_cons(c_733679,&c_733680,&c_733682); + +make_cons(c_733678,quote_meaning,&c_733679); + +make_cons(c_733677,&c_733678,nil); + +make_cons(c_733671,&c_733672,&c_733677); + +make_cons(c_733670,quote_plus,&c_733671); + +make_cons(c_733669,&c_733670,nil); + +make_cons(c_733660,&c_733661,&c_733669); + +make_cons(c_733659,quote_equal,&c_733660); + +make_cons(c_733691,quote_x,nil); + +make_cons(c_733690,quote_plus_91fringe,&c_733691); + +make_cons(c_733689,&c_733690,nil); + +make_cons(c_733688,quote_plus_91tree,&c_733689); + +make_cons(c_733692,quote_a,nil); + +make_cons(c_733687,&c_733688,&c_733692); + +make_cons(c_733686,quote_meaning,&c_733687); + +make_cons(c_733698,quote_a,nil); + +make_cons(c_733697,quote_x,&c_733698); + +make_cons(c_733696,quote_meaning,&c_733697); + +make_cons(c_733695,&c_733696,nil); + +make_cons(c_733694,quote_fix,&c_733695); + +make_cons(c_733693,&c_733694,nil); + +make_cons(c_733685,&c_733686,&c_733693); + +make_cons(c_733684,quote_equal,&c_733685); + +make_cons(c_733706,quote_y,nil); + +make_cons(c_733705,quote_x,&c_733706); + +make_cons(c_733704,quote_append,&c_733705); + +make_cons(c_733707,quote_z,nil); + +make_cons(c_733703,&c_733704,&c_733707); + +make_cons(c_733702,quote_append,&c_733703); + +make_cons(c_733714,quote_z,nil); + +make_cons(c_733713,quote_y,&c_733714); + +make_cons(c_733712,quote_append,&c_733713); + +make_cons(c_733711,&c_733712,nil); + +make_cons(c_733710,quote_x,&c_733711); + +make_cons(c_733709,quote_append,&c_733710); + +make_cons(c_733708,&c_733709,nil); + +make_cons(c_733701,&c_733702,&c_733708); + +make_cons(c_733700,quote_equal,&c_733701); + +make_cons(c_733722,quote_b,nil); + +make_cons(c_733721,quote_a,&c_733722); + +make_cons(c_733720,quote_append,&c_733721); + +make_cons(c_733719,&c_733720,nil); + +make_cons(c_733718,quote_reverse,&c_733719); + +make_cons(c_733727,quote_b,nil); + +make_cons(c_733726,quote_reverse,&c_733727); + +make_cons(c_733730,quote_a,nil); + +make_cons(c_733729,quote_reverse,&c_733730); + +make_cons(c_733728,&c_733729,nil); + +make_cons(c_733725,&c_733726,&c_733728); + +make_cons(c_733724,quote_append,&c_733725); + +make_cons(c_733723,&c_733724,nil); + +make_cons(c_733717,&c_733718,&c_733723); + +make_cons(c_733716,quote_equal,&c_733717); + +make_cons(c_733739,quote_z,nil); + +make_cons(c_733738,quote_y,&c_733739); + +make_cons(c_733737,quote_plus,&c_733738); + +make_cons(c_733736,&c_733737,nil); + +make_cons(c_733735,quote_x,&c_733736); + +make_cons(c_733734,quote_times,&c_733735); + +make_cons(c_733745,quote_y,nil); + +make_cons(c_733744,quote_x,&c_733745); + +make_cons(c_733743,quote_times,&c_733744); + +make_cons(c_733749,quote_z,nil); + +make_cons(c_733748,quote_x,&c_733749); + +make_cons(c_733747,quote_times,&c_733748); + +make_cons(c_733746,&c_733747,nil); + +make_cons(c_733742,&c_733743,&c_733746); + +make_cons(c_733741,quote_plus,&c_733742); + +make_cons(c_733740,&c_733741,nil); + +make_cons(c_733733,&c_733734,&c_733740); + +make_cons(c_733732,quote_equal,&c_733733); + +make_cons(c_733757,quote_y,nil); + +make_cons(c_733756,quote_x,&c_733757); + +make_cons(c_733755,quote_times,&c_733756); + +make_cons(c_733758,quote_z,nil); + +make_cons(c_733754,&c_733755,&c_733758); + +make_cons(c_733753,quote_times,&c_733754); + +make_cons(c_733765,quote_z,nil); + +make_cons(c_733764,quote_y,&c_733765); + +make_cons(c_733763,quote_times,&c_733764); + +make_cons(c_733762,&c_733763,nil); + +make_cons(c_733761,quote_x,&c_733762); + +make_cons(c_733760,quote_times,&c_733761); + +make_cons(c_733759,&c_733760,nil); + +make_cons(c_733752,&c_733753,&c_733759); + +make_cons(c_733751,quote_equal,&c_733752); + +make_cons(c_733773,quote_y,nil); + +make_cons(c_733772,quote_x,&c_733773); + +make_cons(c_733771,quote_times,&c_733772); + +make_cons(c_733775,quote_zero,nil); + +make_cons(c_733774,&c_733775,nil); + +make_cons(c_733770,&c_733771,&c_733774); + +make_cons(c_733769,quote_equal,&c_733770); + +make_cons(c_733780,quote_x,nil); + +make_cons(c_733779,quote_zerop,&c_733780); + +make_cons(c_733783,quote_y,nil); + +make_cons(c_733782,quote_zerop,&c_733783); + +make_cons(c_733781,&c_733782,nil); + +make_cons(c_733778,&c_733779,&c_733781); + +make_cons(c_733777,quote_or,&c_733778); + +make_cons(c_733776,&c_733777,nil); + +make_cons(c_733768,&c_733769,&c_733776); + +make_cons(c_733767,quote_equal,&c_733768); + +make_cons(c_733791,quote_y,nil); + +make_cons(c_733790,quote_x,&c_733791); + +make_cons(c_733789,quote_append,&c_733790); + +make_cons(c_733793,quote_envrn,nil); + +make_cons(c_733792,quote_pds,&c_733793); + +make_cons(c_733788,&c_733789,&c_733792); + +make_cons(c_733787,quote_exec,&c_733788); + +make_cons(c_733801,quote_envrn,nil); + +make_cons(c_733800,quote_pds,&c_733801); + +make_cons(c_733799,quote_x,&c_733800); + +make_cons(c_733798,quote_exec,&c_733799); + +make_cons(c_733802,quote_envrn,nil); + +make_cons(c_733797,&c_733798,&c_733802); + +make_cons(c_733796,quote_y,&c_733797); + +make_cons(c_733795,quote_exec,&c_733796); + +make_cons(c_733794,&c_733795,nil); + +make_cons(c_733786,&c_733787,&c_733794); + +make_cons(c_733785,quote_equal,&c_733786); + +make_cons(c_733808,quote_y,nil); + +make_cons(c_733807,quote_x,&c_733808); + +make_cons(c_733806,quote_mc_91flatten,&c_733807); + +make_cons(c_733813,quote_x,nil); + +make_cons(c_733812,quote_flatten,&c_733813); + +make_cons(c_733814,quote_y,nil); + +make_cons(c_733811,&c_733812,&c_733814); + +make_cons(c_733810,quote_append,&c_733811); + +make_cons(c_733809,&c_733810,nil); + +make_cons(c_733805,&c_733806,&c_733809); + +make_cons(c_733804,quote_equal,&c_733805); + +make_cons(c_733823,quote_b,nil); + +make_cons(c_733822,quote_a,&c_733823); + +make_cons(c_733821,quote_append,&c_733822); + +make_cons(c_733820,&c_733821,nil); + +make_cons(c_733819,quote_x,&c_733820); + +make_cons(c_733818,quote_member,&c_733819); + +make_cons(c_733829,quote_a,nil); + +make_cons(c_733828,quote_x,&c_733829); + +make_cons(c_733827,quote_member,&c_733828); + +make_cons(c_733833,quote_b,nil); + +make_cons(c_733832,quote_x,&c_733833); + +make_cons(c_733831,quote_member,&c_733832); + +make_cons(c_733830,&c_733831,nil); + +make_cons(c_733826,&c_733827,&c_733830); + +make_cons(c_733825,quote_or,&c_733826); + +make_cons(c_733824,&c_733825,nil); + +make_cons(c_733817,&c_733818,&c_733824); + +make_cons(c_733816,quote_equal,&c_733817); + +make_cons(c_733841,quote_y,nil); + +make_cons(c_733840,quote_reverse,&c_733841); + +make_cons(c_733839,&c_733840,nil); + +make_cons(c_733838,quote_x,&c_733839); + +make_cons(c_733837,quote_member,&c_733838); + +make_cons(c_733845,quote_y,nil); + +make_cons(c_733844,quote_x,&c_733845); + +make_cons(c_733843,quote_member,&c_733844); + +make_cons(c_733842,&c_733843,nil); + +make_cons(c_733836,&c_733837,&c_733842); + +make_cons(c_733835,quote_equal,&c_733836); + +make_cons(c_733852,quote_x,nil); + +make_cons(c_733851,quote_reverse,&c_733852); + +make_cons(c_733850,&c_733851,nil); + +make_cons(c_733849,quote_length,&c_733850); + +make_cons(c_733855,quote_x,nil); + +make_cons(c_733854,quote_length,&c_733855); + +make_cons(c_733853,&c_733854,nil); + +make_cons(c_733848,&c_733849,&c_733853); + +make_cons(c_733847,quote_equal,&c_733848); + +make_cons(c_733864,quote_c,nil); + +make_cons(c_733863,quote_b,&c_733864); + +make_cons(c_733862,quote_intersect,&c_733863); + +make_cons(c_733861,&c_733862,nil); + +make_cons(c_733860,quote_a,&c_733861); + +make_cons(c_733859,quote_member,&c_733860); + +make_cons(c_733870,quote_b,nil); + +make_cons(c_733869,quote_a,&c_733870); + +make_cons(c_733868,quote_member,&c_733869); + +make_cons(c_733874,quote_c,nil); + +make_cons(c_733873,quote_a,&c_733874); + +make_cons(c_733872,quote_member,&c_733873); + +make_cons(c_733871,&c_733872,nil); + +make_cons(c_733867,&c_733868,&c_733871); + +make_cons(c_733866,quote_and,&c_733867); + +make_cons(c_733865,&c_733866,nil); + +make_cons(c_733858,&c_733859,&c_733865); + +make_cons(c_733857,quote_equal,&c_733858); + +make_cons(c_733880,quote_zero,nil); + +make_cons(c_733881,quote_i,nil); + +make_cons(c_733879,&c_733880,&c_733881); + +make_cons(c_733878,quote_nth,&c_733879); + +make_cons(c_733883,quote_zero,nil); + +make_cons(c_733882,&c_733883,nil); + +make_cons(c_733877,&c_733878,&c_733882); + +make_cons(c_733876,quote_equal,&c_733877); + +make_cons(c_733892,quote_k,nil); + +make_cons(c_733891,quote_j,&c_733892); + +make_cons(c_733890,quote_plus,&c_733891); + +make_cons(c_733889,&c_733890,nil); + +make_cons(c_733888,quote_i,&c_733889); + +make_cons(c_733887,quote_exp,&c_733888); + +make_cons(c_733898,quote_j,nil); + +make_cons(c_733897,quote_i,&c_733898); + +make_cons(c_733896,quote_exp,&c_733897); + +make_cons(c_733902,quote_k,nil); + +make_cons(c_733901,quote_i,&c_733902); + +make_cons(c_733900,quote_exp,&c_733901); + +make_cons(c_733899,&c_733900,nil); + +make_cons(c_733895,&c_733896,&c_733899); + +make_cons(c_733894,quote_times,&c_733895); + +make_cons(c_733893,&c_733894,nil); + +make_cons(c_733886,&c_733887,&c_733893); + +make_cons(c_733885,quote_equal,&c_733886); + +make_cons(c_733911,quote_k,nil); + +make_cons(c_733910,quote_j,&c_733911); + +make_cons(c_733909,quote_times,&c_733910); + +make_cons(c_733908,&c_733909,nil); + +make_cons(c_733907,quote_i,&c_733908); + +make_cons(c_733906,quote_exp,&c_733907); + +make_cons(c_733917,quote_j,nil); + +make_cons(c_733916,quote_i,&c_733917); + +make_cons(c_733915,quote_exp,&c_733916); + +make_cons(c_733918,quote_k,nil); + +make_cons(c_733914,&c_733915,&c_733918); + +make_cons(c_733913,quote_exp,&c_733914); + +make_cons(c_733912,&c_733913,nil); + +make_cons(c_733905,&c_733906,&c_733912); + +make_cons(c_733904,quote_equal,&c_733905); + +make_cons(c_733924,quote_y,nil); + +make_cons(c_733923,quote_x,&c_733924); + +make_cons(c_733922,quote_reverse_91loop,&c_733923); + +make_cons(c_733929,quote_x,nil); + +make_cons(c_733928,quote_reverse,&c_733929); + +make_cons(c_733930,quote_y,nil); + +make_cons(c_733927,&c_733928,&c_733930); + +make_cons(c_733926,quote_append,&c_733927); + +make_cons(c_733925,&c_733926,nil); + +make_cons(c_733921,&c_733922,&c_733925); + +make_cons(c_733920,quote_equal,&c_733921); + +make_cons(c_733937,quote_nil,nil); + +make_cons(c_733936,&c_733937,nil); + +make_cons(c_733935,quote_x,&c_733936); + +make_cons(c_733934,quote_reverse_91loop,&c_733935); + +make_cons(c_733940,quote_x,nil); + +make_cons(c_733939,quote_reverse,&c_733940); + +make_cons(c_733938,&c_733939,nil); + +make_cons(c_733933,&c_733934,&c_733938); + +make_cons(c_733932,quote_equal,&c_733933); + +make_cons(c_733949,quote_y,nil); + +make_cons(c_733948,quote_x,&c_733949); + +make_cons(c_733947,quote_sort_91lp,&c_733948); + +make_cons(c_733946,&c_733947,nil); + +make_cons(c_733945,quote_z,&c_733946); + +make_cons(c_733944,quote_count_91list,&c_733945); + +make_cons(c_733955,quote_x,nil); + +make_cons(c_733954,quote_z,&c_733955); + +make_cons(c_733953,quote_count_91list,&c_733954); + +make_cons(c_733959,quote_y,nil); + +make_cons(c_733958,quote_z,&c_733959); + +make_cons(c_733957,quote_count_91list,&c_733958); + +make_cons(c_733956,&c_733957,nil); + +make_cons(c_733952,&c_733953,&c_733956); + +make_cons(c_733951,quote_plus,&c_733952); + +make_cons(c_733950,&c_733951,nil); + +make_cons(c_733943,&c_733944,&c_733950); + +make_cons(c_733942,quote_equal,&c_733943); + +make_cons(c_733967,quote_b,nil); + +make_cons(c_733966,quote_a,&c_733967); + +make_cons(c_733965,quote_append,&c_733966); + +make_cons(c_733971,quote_c,nil); + +make_cons(c_733970,quote_a,&c_733971); + +make_cons(c_733969,quote_append,&c_733970); + +make_cons(c_733968,&c_733969,nil); + +make_cons(c_733964,&c_733965,&c_733968); + +make_cons(c_733963,quote_equal,&c_733964); + +make_cons(c_733975,quote_c,nil); + +make_cons(c_733974,quote_b,&c_733975); + +make_cons(c_733973,quote_equal,&c_733974); + +make_cons(c_733972,&c_733973,nil); + +make_cons(c_733962,&c_733963,&c_733972); + +make_cons(c_733961,quote_equal,&c_733962); + +make_cons(c_733983,quote_y,nil); + +make_cons(c_733982,quote_x,&c_733983); + +make_cons(c_733981,quote_remainder,&c_733982); + +make_cons(c_733990,quote_y,nil); + +make_cons(c_733989,quote_x,&c_733990); + +make_cons(c_733988,quote_quotient,&c_733989); + +make_cons(c_733987,&c_733988,nil); + +make_cons(c_733986,quote_y,&c_733987); + +make_cons(c_733985,quote_times,&c_733986); + +make_cons(c_733984,&c_733985,nil); + +make_cons(c_733980,&c_733981,&c_733984); + +make_cons(c_733979,quote_plus,&c_733980); + +make_cons(c_733993,quote_x,nil); + +make_cons(c_733992,quote_fix,&c_733993); + +make_cons(c_733991,&c_733992,nil); + +make_cons(c_733978,&c_733979,&c_733991); + +make_cons(c_733977,quote_equal,&c_733978); + +make_cons(c_734002,quote_base,nil); + +make_cons(c_734001,quote_i,&c_734002); + +make_cons(c_734000,quote_l,&c_734001); + +make_cons(c_733999,quote_big_91plus1,&c_734000); + +make_cons(c_734003,quote_base,nil); + +make_cons(c_733998,&c_733999,&c_734003); + +make_cons(c_733997,quote_power_91eval,&c_733998); + +make_cons(c_734009,quote_base,nil); + +make_cons(c_734008,quote_l,&c_734009); + +make_cons(c_734007,quote_power_91eval,&c_734008); + +make_cons(c_734010,quote_i,nil); + +make_cons(c_734006,&c_734007,&c_734010); + +make_cons(c_734005,quote_plus,&c_734006); + +make_cons(c_734004,&c_734005,nil); + +make_cons(c_733996,&c_733997,&c_734004); + +make_cons(c_733995,quote_equal,&c_733996); + +make_cons(c_734020,quote_base,nil); + +make_cons(c_734019,quote_i,&c_734020); + +make_cons(c_734018,quote_y,&c_734019); + +make_cons(c_734017,quote_x,&c_734018); + +make_cons(c_734016,quote_big_91plus,&c_734017); + +make_cons(c_734021,quote_base,nil); + +make_cons(c_734015,&c_734016,&c_734021); + +make_cons(c_734014,quote_power_91eval,&c_734015); + +make_cons(c_734030,quote_base,nil); + +make_cons(c_734029,quote_x,&c_734030); + +make_cons(c_734028,quote_power_91eval,&c_734029); + +make_cons(c_734034,quote_base,nil); + +make_cons(c_734033,quote_y,&c_734034); + +make_cons(c_734032,quote_power_91eval,&c_734033); + +make_cons(c_734031,&c_734032,nil); + +make_cons(c_734027,&c_734028,&c_734031); + +make_cons(c_734026,quote_plus,&c_734027); + +make_cons(c_734025,&c_734026,nil); + +make_cons(c_734024,quote_i,&c_734025); + +make_cons(c_734023,quote_plus,&c_734024); + +make_cons(c_734022,&c_734023,nil); + +make_cons(c_734013,&c_734014,&c_734022); + +make_cons(c_734012,quote_equal,&c_734013); + +make_cons(c_734040,obj_int2obj(1),nil); + +make_cons(c_734039,quote_y,&c_734040); + +make_cons(c_734038,quote_remainder,&c_734039); + +make_cons(c_734042,quote_zero,nil); + +make_cons(c_734041,&c_734042,nil); + +make_cons(c_734037,&c_734038,&c_734041); + +make_cons(c_734036,quote_equal,&c_734037); + +make_cons(c_734050,quote_y,nil); + +make_cons(c_734049,quote_x,&c_734050); + +make_cons(c_734048,quote_remainder,&c_734049); + +make_cons(c_734051,quote_y,nil); + +make_cons(c_734047,&c_734048,&c_734051); + +make_cons(c_734046,quote_lessp,&c_734047); + +make_cons(c_734056,quote_y,nil); + +make_cons(c_734055,quote_zerop,&c_734056); + +make_cons(c_734054,&c_734055,nil); + +make_cons(c_734053,quote_not,&c_734054); + +make_cons(c_734052,&c_734053,nil); + +make_cons(c_734045,&c_734046,&c_734052); + +make_cons(c_734044,quote_equal,&c_734045); + +make_cons(c_734062,quote_x,nil); + +make_cons(c_734061,quote_x,&c_734062); + +make_cons(c_734060,quote_remainder,&c_734061); + +make_cons(c_734064,quote_zero,nil); + +make_cons(c_734063,&c_734064,nil); + +make_cons(c_734059,&c_734060,&c_734063); + +make_cons(c_734058,quote_equal,&c_734059); + +make_cons(c_734072,quote_j,nil); + +make_cons(c_734071,quote_i,&c_734072); + +make_cons(c_734070,quote_quotient,&c_734071); + +make_cons(c_734073,quote_i,nil); + +make_cons(c_734069,&c_734070,&c_734073); + +make_cons(c_734068,quote_lessp,&c_734069); + +make_cons(c_734080,quote_i,nil); + +make_cons(c_734079,quote_zerop,&c_734080); + +make_cons(c_734078,&c_734079,nil); + +make_cons(c_734077,quote_not,&c_734078); + +make_cons(c_734085,quote_j,nil); + +make_cons(c_734084,quote_zerop,&c_734085); + +make_cons(c_734091,obj_int2obj(1),nil); + +make_cons(c_734090,quote_j,&c_734091); + +make_cons(c_734089,quote_equal,&c_734090); + +make_cons(c_734088,&c_734089,nil); + +make_cons(c_734087,quote_not,&c_734088); + +make_cons(c_734086,&c_734087,nil); + +make_cons(c_734083,&c_734084,&c_734086); + +make_cons(c_734082,quote_or,&c_734083); + +make_cons(c_734081,&c_734082,nil); + +make_cons(c_734076,&c_734077,&c_734081); + +make_cons(c_734075,quote_and,&c_734076); + +make_cons(c_734074,&c_734075,nil); + +make_cons(c_734067,&c_734068,&c_734074); + +make_cons(c_734066,quote_equal,&c_734067); + +make_cons(c_734099,quote_y,nil); + +make_cons(c_734098,quote_x,&c_734099); + +make_cons(c_734097,quote_remainder,&c_734098); + +make_cons(c_734100,quote_x,nil); + +make_cons(c_734096,&c_734097,&c_734100); + +make_cons(c_734095,quote_lessp,&c_734096); + +make_cons(c_734107,quote_y,nil); + +make_cons(c_734106,quote_zerop,&c_734107); + +make_cons(c_734105,&c_734106,nil); + +make_cons(c_734104,quote_not,&c_734105); + +make_cons(c_734112,quote_x,nil); + +make_cons(c_734111,quote_zerop,&c_734112); + +make_cons(c_734110,&c_734111,nil); + +make_cons(c_734109,quote_not,&c_734110); + +make_cons(c_734118,quote_y,nil); + +make_cons(c_734117,quote_x,&c_734118); + +make_cons(c_734116,quote_lessp,&c_734117); + +make_cons(c_734115,&c_734116,nil); + +make_cons(c_734114,quote_not,&c_734115); + +make_cons(c_734113,&c_734114,nil); + +make_cons(c_734108,&c_734109,&c_734113); + +make_cons(c_734103,&c_734104,&c_734108); + +make_cons(c_734102,quote_and,&c_734103); + +make_cons(c_734101,&c_734102,nil); + +make_cons(c_734094,&c_734095,&c_734101); + +make_cons(c_734093,quote_equal,&c_734094); + +make_cons(c_734126,quote_base,nil); + +make_cons(c_734125,quote_i,&c_734126); + +make_cons(c_734124,quote_power_91rep,&c_734125); + +make_cons(c_734127,quote_base,nil); + +make_cons(c_734123,&c_734124,&c_734127); + +make_cons(c_734122,quote_power_91eval,&c_734123); + +make_cons(c_734130,quote_i,nil); + +make_cons(c_734129,quote_fix,&c_734130); + +make_cons(c_734128,&c_734129,nil); + +make_cons(c_734121,&c_734122,&c_734128); + +make_cons(c_734120,quote_equal,&c_734121); + +make_cons(c_734140,quote_base,nil); + +make_cons(c_734139,quote_i,&c_734140); + +make_cons(c_734138,quote_power_91rep,&c_734139); + +make_cons(c_734144,quote_base,nil); + +make_cons(c_734143,quote_j,&c_734144); + +make_cons(c_734142,quote_power_91rep,&c_734143); + +make_cons(c_734146,quote_zero,nil); + +make_cons(c_734147,quote_base,nil); + +make_cons(c_734145,&c_734146,&c_734147); + +make_cons(c_734141,&c_734142,&c_734145); + +make_cons(c_734137,&c_734138,&c_734141); + +make_cons(c_734136,quote_big_91plus,&c_734137); + +make_cons(c_734148,quote_base,nil); + +make_cons(c_734135,&c_734136,&c_734148); + +make_cons(c_734134,quote_power_91eval,&c_734135); + +make_cons(c_734152,quote_j,nil); + +make_cons(c_734151,quote_i,&c_734152); + +make_cons(c_734150,quote_plus,&c_734151); + +make_cons(c_734149,&c_734150,nil); + +make_cons(c_734133,&c_734134,&c_734149); + +make_cons(c_734132,quote_equal,&c_734133); + +make_cons(c_734158,quote_y,nil); + +make_cons(c_734157,quote_x,&c_734158); + +make_cons(c_734156,quote_gcd,&c_734157); + +make_cons(c_734162,quote_x,nil); + +make_cons(c_734161,quote_y,&c_734162); + +make_cons(c_734160,quote_gcd,&c_734161); + +make_cons(c_734159,&c_734160,nil); + +make_cons(c_734155,&c_734156,&c_734159); + +make_cons(c_734154,quote_equal,&c_734155); + +make_cons(c_734170,quote_b,nil); + +make_cons(c_734169,quote_a,&c_734170); + +make_cons(c_734168,quote_append,&c_734169); + +make_cons(c_734171,quote_i,nil); + +make_cons(c_734167,&c_734168,&c_734171); + +make_cons(c_734166,quote_nth,&c_734167); + +make_cons(c_734177,quote_i,nil); + +make_cons(c_734176,quote_a,&c_734177); + +make_cons(c_734175,quote_nth,&c_734176); + +make_cons(c_734186,quote_a,nil); + +make_cons(c_734185,quote_length,&c_734186); + +make_cons(c_734184,&c_734185,nil); + +make_cons(c_734183,quote_i,&c_734184); + +make_cons(c_734182,quote_difference,&c_734183); + +make_cons(c_734181,&c_734182,nil); + +make_cons(c_734180,quote_b,&c_734181); + +make_cons(c_734179,quote_nth,&c_734180); + +make_cons(c_734178,&c_734179,nil); + +make_cons(c_734174,&c_734175,&c_734178); + +make_cons(c_734173,quote_append,&c_734174); + +make_cons(c_734172,&c_734173,nil); + +make_cons(c_734165,&c_734166,&c_734172); + +make_cons(c_734164,quote_equal,&c_734165); + +make_cons(c_734194,quote_y,nil); + +make_cons(c_734193,quote_x,&c_734194); + +make_cons(c_734192,quote_plus,&c_734193); + +make_cons(c_734195,quote_x,nil); + +make_cons(c_734191,&c_734192,&c_734195); + +make_cons(c_734190,quote_difference,&c_734191); + +make_cons(c_734198,quote_y,nil); + +make_cons(c_734197,quote_fix,&c_734198); + +make_cons(c_734196,&c_734197,nil); + +make_cons(c_734189,&c_734190,&c_734196); + +make_cons(c_734188,quote_equal,&c_734189); + +make_cons(c_734206,quote_x,nil); + +make_cons(c_734205,quote_y,&c_734206); + +make_cons(c_734204,quote_plus,&c_734205); + +make_cons(c_734207,quote_x,nil); + +make_cons(c_734203,&c_734204,&c_734207); + +make_cons(c_734202,quote_difference,&c_734203); + +make_cons(c_734210,quote_y,nil); + +make_cons(c_734209,quote_fix,&c_734210); + +make_cons(c_734208,&c_734209,nil); + +make_cons(c_734201,&c_734202,&c_734208); + +make_cons(c_734200,quote_equal,&c_734201); + +make_cons(c_734218,quote_y,nil); + +make_cons(c_734217,quote_x,&c_734218); + +make_cons(c_734216,quote_plus,&c_734217); + +make_cons(c_734222,quote_z,nil); + +make_cons(c_734221,quote_x,&c_734222); + +make_cons(c_734220,quote_plus,&c_734221); + +make_cons(c_734219,&c_734220,nil); + +make_cons(c_734215,&c_734216,&c_734219); + +make_cons(c_734214,quote_difference,&c_734215); + +make_cons(c_734226,quote_z,nil); + +make_cons(c_734225,quote_y,&c_734226); + +make_cons(c_734224,quote_difference,&c_734225); + +make_cons(c_734223,&c_734224,nil); + +make_cons(c_734213,&c_734214,&c_734223); + +make_cons(c_734212,quote_equal,&c_734213); + +make_cons(c_734235,quote_w,nil); + +make_cons(c_734234,quote_c,&c_734235); + +make_cons(c_734233,quote_difference,&c_734234); + +make_cons(c_734232,&c_734233,nil); + +make_cons(c_734231,quote_x,&c_734232); + +make_cons(c_734230,quote_times,&c_734231); + +make_cons(c_734241,quote_x,nil); + +make_cons(c_734240,quote_c,&c_734241); + +make_cons(c_734239,quote_times,&c_734240); + +make_cons(c_734245,quote_x,nil); + +make_cons(c_734244,quote_w,&c_734245); + +make_cons(c_734243,quote_times,&c_734244); + +make_cons(c_734242,&c_734243,nil); + +make_cons(c_734238,&c_734239,&c_734242); + +make_cons(c_734237,quote_difference,&c_734238); + +make_cons(c_734236,&c_734237,nil); + +make_cons(c_734229,&c_734230,&c_734236); + +make_cons(c_734228,quote_equal,&c_734229); + +make_cons(c_734253,quote_z,nil); + +make_cons(c_734252,quote_x,&c_734253); + +make_cons(c_734251,quote_times,&c_734252); + +make_cons(c_734254,quote_z,nil); + +make_cons(c_734250,&c_734251,&c_734254); + +make_cons(c_734249,quote_remainder,&c_734250); + +make_cons(c_734256,quote_zero,nil); + +make_cons(c_734255,&c_734256,nil); + +make_cons(c_734248,&c_734249,&c_734255); + +make_cons(c_734247,quote_equal,&c_734248); + +make_cons(c_734267,quote_c,nil); + +make_cons(c_734266,quote_a,&c_734267); + +make_cons(c_734265,quote_plus,&c_734266); + +make_cons(c_734264,&c_734265,nil); + +make_cons(c_734263,quote_b,&c_734264); + +make_cons(c_734262,quote_plus,&c_734263); + +make_cons(c_734268,quote_a,nil); + +make_cons(c_734261,&c_734262,&c_734268); + +make_cons(c_734260,quote_difference,&c_734261); + +make_cons(c_734272,quote_c,nil); + +make_cons(c_734271,quote_b,&c_734272); + +make_cons(c_734270,quote_plus,&c_734271); + +make_cons(c_734269,&c_734270,nil); + +make_cons(c_734259,&c_734260,&c_734269); + +make_cons(c_734258,quote_equal,&c_734259); + +make_cons(c_734282,quote_z,nil); + +make_cons(c_734281,quote_y,&c_734282); + +make_cons(c_734280,quote_plus,&c_734281); + +make_cons(c_734279,&c_734280,nil); + +make_cons(c_734278,quote_add1,&c_734279); + +make_cons(c_734283,quote_z,nil); + +make_cons(c_734277,&c_734278,&c_734283); + +make_cons(c_734276,quote_difference,&c_734277); + +make_cons(c_734286,quote_y,nil); + +make_cons(c_734285,quote_add1,&c_734286); + +make_cons(c_734284,&c_734285,nil); + +make_cons(c_734275,&c_734276,&c_734284); + +make_cons(c_734274,quote_equal,&c_734275); + +make_cons(c_734294,quote_y,nil); + +make_cons(c_734293,quote_x,&c_734294); + +make_cons(c_734292,quote_plus,&c_734293); + +make_cons(c_734298,quote_z,nil); + +make_cons(c_734297,quote_x,&c_734298); + +make_cons(c_734296,quote_plus,&c_734297); + +make_cons(c_734295,&c_734296,nil); + +make_cons(c_734291,&c_734292,&c_734295); + +make_cons(c_734290,quote_lessp,&c_734291); + +make_cons(c_734302,quote_z,nil); + +make_cons(c_734301,quote_y,&c_734302); + +make_cons(c_734300,quote_lessp,&c_734301); + +make_cons(c_734299,&c_734300,nil); + +make_cons(c_734289,&c_734290,&c_734299); + +make_cons(c_734288,quote_equal,&c_734289); + +make_cons(c_734310,quote_z,nil); + +make_cons(c_734309,quote_x,&c_734310); + +make_cons(c_734308,quote_times,&c_734309); + +make_cons(c_734314,quote_z,nil); + +make_cons(c_734313,quote_y,&c_734314); + +make_cons(c_734312,quote_times,&c_734313); + +make_cons(c_734311,&c_734312,nil); + +make_cons(c_734307,&c_734308,&c_734311); + +make_cons(c_734306,quote_lessp,&c_734307); + +make_cons(c_734321,quote_z,nil); + +make_cons(c_734320,quote_zerop,&c_734321); + +make_cons(c_734319,&c_734320,nil); + +make_cons(c_734318,quote_not,&c_734319); + +make_cons(c_734325,quote_y,nil); + +make_cons(c_734324,quote_x,&c_734325); + +make_cons(c_734323,quote_lessp,&c_734324); + +make_cons(c_734322,&c_734323,nil); + +make_cons(c_734317,&c_734318,&c_734322); + +make_cons(c_734316,quote_and,&c_734317); + +make_cons(c_734315,&c_734316,nil); + +make_cons(c_734305,&c_734306,&c_734315); + +make_cons(c_734304,quote_equal,&c_734305); + +make_cons(c_734334,quote_y,nil); + +make_cons(c_734333,quote_x,&c_734334); + +make_cons(c_734332,quote_plus,&c_734333); + +make_cons(c_734331,&c_734332,nil); + +make_cons(c_734330,quote_y,&c_734331); + +make_cons(c_734329,quote_lessp,&c_734330); + +make_cons(c_734339,quote_x,nil); + +make_cons(c_734338,quote_zerop,&c_734339); + +make_cons(c_734337,&c_734338,nil); + +make_cons(c_734336,quote_not,&c_734337); + +make_cons(c_734335,&c_734336,nil); + +make_cons(c_734328,&c_734329,&c_734335); + +make_cons(c_734327,quote_equal,&c_734328); + +make_cons(c_734347,quote_z,nil); + +make_cons(c_734346,quote_x,&c_734347); + +make_cons(c_734345,quote_times,&c_734346); + +make_cons(c_734351,quote_z,nil); + +make_cons(c_734350,quote_y,&c_734351); + +make_cons(c_734349,quote_times,&c_734350); + +make_cons(c_734348,&c_734349,nil); + +make_cons(c_734344,&c_734345,&c_734348); + +make_cons(c_734343,quote_gcd,&c_734344); + +make_cons(c_734358,quote_y,nil); + +make_cons(c_734357,quote_x,&c_734358); + +make_cons(c_734356,quote_gcd,&c_734357); + +make_cons(c_734355,&c_734356,nil); + +make_cons(c_734354,quote_z,&c_734355); + +make_cons(c_734353,quote_times,&c_734354); + +make_cons(c_734352,&c_734353,nil); + +make_cons(c_734342,&c_734343,&c_734352); + +make_cons(c_734341,quote_equal,&c_734342); + +make_cons(c_734365,quote_x,nil); + +make_cons(c_734364,quote_normalize,&c_734365); + +make_cons(c_734366,quote_a,nil); + +make_cons(c_734363,&c_734364,&c_734366); + +make_cons(c_734362,quote_value,&c_734363); + +make_cons(c_734370,quote_a,nil); + +make_cons(c_734369,quote_x,&c_734370); + +make_cons(c_734368,quote_value,&c_734369); + +make_cons(c_734367,&c_734368,nil); + +make_cons(c_734361,&c_734362,&c_734367); + +make_cons(c_734360,quote_equal,&c_734361); + +make_cons(c_734377,quote_x,nil); + +make_cons(c_734376,quote_flatten,&c_734377); + +make_cons(c_734382,quote_nil,nil); + +make_cons(c_734381,&c_734382,nil); + +make_cons(c_734380,quote_y,&c_734381); + +make_cons(c_734379,quote_cons,&c_734380); + +make_cons(c_734378,&c_734379,nil); + +make_cons(c_734375,&c_734376,&c_734378); + +make_cons(c_734374,quote_equal,&c_734375); + +make_cons(c_734387,quote_x,nil); + +make_cons(c_734386,quote_nlistp,&c_734387); + +make_cons(c_734391,quote_y,nil); + +make_cons(c_734390,quote_x,&c_734391); + +make_cons(c_734389,quote_equal,&c_734390); + +make_cons(c_734388,&c_734389,nil); + +make_cons(c_734385,&c_734386,&c_734388); + +make_cons(c_734384,quote_and,&c_734385); + +make_cons(c_734383,&c_734384,nil); + +make_cons(c_734373,&c_734374,&c_734383); + +make_cons(c_734372,quote_equal,&c_734373); + +make_cons(c_734398,quote_x,nil); + +make_cons(c_734397,quote_gopher,&c_734398); + +make_cons(c_734396,&c_734397,nil); + +make_cons(c_734395,quote_listp,&c_734396); + +make_cons(c_734401,quote_x,nil); + +make_cons(c_734400,quote_listp,&c_734401); + +make_cons(c_734399,&c_734400,nil); + +make_cons(c_734394,&c_734395,&c_734399); + +make_cons(c_734393,quote_equal,&c_734394); + +make_cons(c_734407,quote_y,nil); + +make_cons(c_734406,quote_x,&c_734407); + +make_cons(c_734405,quote_samefringe,&c_734406); + +make_cons(c_734412,quote_x,nil); + +make_cons(c_734411,quote_flatten,&c_734412); + +make_cons(c_734415,quote_y,nil); + +make_cons(c_734414,quote_flatten,&c_734415); + +make_cons(c_734413,&c_734414,nil); + +make_cons(c_734410,&c_734411,&c_734413); + +make_cons(c_734409,quote_equal,&c_734410); + +make_cons(c_734408,&c_734409,nil); + +make_cons(c_734404,&c_734405,&c_734408); + +make_cons(c_734403,quote_equal,&c_734404); + +make_cons(c_734423,quote_y,nil); + +make_cons(c_734422,quote_x,&c_734423); + +make_cons(c_734421,quote_greatest_91factor,&c_734422); + +make_cons(c_734425,quote_zero,nil); + +make_cons(c_734424,&c_734425,nil); + +make_cons(c_734420,&c_734421,&c_734424); + +make_cons(c_734419,quote_equal,&c_734420); + +make_cons(c_734432,quote_y,nil); + +make_cons(c_734431,quote_zerop,&c_734432); + +make_cons(c_734436,obj_int2obj(1),nil); + +make_cons(c_734435,quote_y,&c_734436); + +make_cons(c_734434,quote_equal,&c_734435); + +make_cons(c_734433,&c_734434,nil); + +make_cons(c_734430,&c_734431,&c_734433); + +make_cons(c_734429,quote_or,&c_734430); + +make_cons(c_734441,quote_zero,nil); + +make_cons(c_734440,&c_734441,nil); + +make_cons(c_734439,quote_x,&c_734440); + +make_cons(c_734438,quote_equal,&c_734439); + +make_cons(c_734437,&c_734438,nil); + +make_cons(c_734428,&c_734429,&c_734437); + +make_cons(c_734427,quote_and,&c_734428); + +make_cons(c_734426,&c_734427,nil); + +make_cons(c_734418,&c_734419,&c_734426); + +make_cons(c_734417,quote_equal,&c_734418); + +make_cons(c_734449,quote_y,nil); + +make_cons(c_734448,quote_x,&c_734449); + +make_cons(c_734447,quote_greatest_91factor,&c_734448); + +make_cons(c_734450,obj_int2obj(1),nil); + +make_cons(c_734446,&c_734447,&c_734450); + +make_cons(c_734445,quote_equal,&c_734446); + +make_cons(c_734454,obj_int2obj(1),nil); + +make_cons(c_734453,quote_x,&c_734454); + +make_cons(c_734452,quote_equal,&c_734453); + +make_cons(c_734451,&c_734452,nil); + +make_cons(c_734444,&c_734445,&c_734451); + +make_cons(c_734443,quote_equal,&c_734444); + +make_cons(c_734462,quote_y,nil); + +make_cons(c_734461,quote_x,&c_734462); + +make_cons(c_734460,quote_greatest_91factor,&c_734461); + +make_cons(c_734459,&c_734460,nil); + +make_cons(c_734458,quote_numberp,&c_734459); + +make_cons(c_734471,quote_y,nil); + +make_cons(c_734470,quote_zerop,&c_734471); + +make_cons(c_734475,obj_int2obj(1),nil); + +make_cons(c_734474,quote_y,&c_734475); + +make_cons(c_734473,quote_equal,&c_734474); + +make_cons(c_734472,&c_734473,nil); + +make_cons(c_734469,&c_734470,&c_734472); + +make_cons(c_734468,quote_or,&c_734469); + +make_cons(c_734480,quote_x,nil); + +make_cons(c_734479,quote_numberp,&c_734480); + +make_cons(c_734478,&c_734479,nil); + +make_cons(c_734477,quote_not,&c_734478); + +make_cons(c_734476,&c_734477,nil); + +make_cons(c_734467,&c_734468,&c_734476); + +make_cons(c_734466,quote_and,&c_734467); + +make_cons(c_734465,&c_734466,nil); + +make_cons(c_734464,quote_not,&c_734465); + +make_cons(c_734463,&c_734464,nil); + +make_cons(c_734457,&c_734458,&c_734463); + +make_cons(c_734456,quote_equal,&c_734457); + +make_cons(c_734488,quote_y,nil); + +make_cons(c_734487,quote_x,&c_734488); + +make_cons(c_734486,quote_append,&c_734487); + +make_cons(c_734485,&c_734486,nil); + +make_cons(c_734484,quote_times_91list,&c_734485); + +make_cons(c_734493,quote_x,nil); + +make_cons(c_734492,quote_times_91list,&c_734493); + +make_cons(c_734496,quote_y,nil); + +make_cons(c_734495,quote_times_91list,&c_734496); + +make_cons(c_734494,&c_734495,nil); + +make_cons(c_734491,&c_734492,&c_734494); + +make_cons(c_734490,quote_times,&c_734491); + +make_cons(c_734489,&c_734490,nil); + +make_cons(c_734483,&c_734484,&c_734489); + +make_cons(c_734482,quote_equal,&c_734483); + +make_cons(c_734504,quote_y,nil); + +make_cons(c_734503,quote_x,&c_734504); + +make_cons(c_734502,quote_append,&c_734503); + +make_cons(c_734501,&c_734502,nil); + +make_cons(c_734500,quote_prime_91list,&c_734501); + +make_cons(c_734509,quote_x,nil); + +make_cons(c_734508,quote_prime_91list,&c_734509); + +make_cons(c_734512,quote_y,nil); + +make_cons(c_734511,quote_prime_91list,&c_734512); + +make_cons(c_734510,&c_734511,nil); + +make_cons(c_734507,&c_734508,&c_734510); + +make_cons(c_734506,quote_and,&c_734507); + +make_cons(c_734505,&c_734506,nil); + +make_cons(c_734499,&c_734500,&c_734505); + +make_cons(c_734498,quote_equal,&c_734499); + +make_cons(c_734521,quote_z,nil); + +make_cons(c_734520,quote_w,&c_734521); + +make_cons(c_734519,quote_times,&c_734520); + +make_cons(c_734518,&c_734519,nil); + +make_cons(c_734517,quote_z,&c_734518); + +make_cons(c_734516,quote_equal,&c_734517); + +make_cons(c_734526,quote_z,nil); + +make_cons(c_734525,quote_numberp,&c_734526); + +make_cons(c_734533,quote_zero,nil); + +make_cons(c_734532,&c_734533,nil); + +make_cons(c_734531,quote_z,&c_734532); + +make_cons(c_734530,quote_equal,&c_734531); + +make_cons(c_734537,obj_int2obj(1),nil); + +make_cons(c_734536,quote_w,&c_734537); + +make_cons(c_734535,quote_equal,&c_734536); + +make_cons(c_734534,&c_734535,nil); + +make_cons(c_734529,&c_734530,&c_734534); + +make_cons(c_734528,quote_or,&c_734529); + +make_cons(c_734527,&c_734528,nil); + +make_cons(c_734524,&c_734525,&c_734527); + +make_cons(c_734523,quote_and,&c_734524); + +make_cons(c_734522,&c_734523,nil); + +make_cons(c_734515,&c_734516,&c_734522); + +make_cons(c_734514,quote_equal,&c_734515); + +make_cons(c_734543,quote_y,nil); + +make_cons(c_734542,quote_x,&c_734543); + +make_cons(c_734541,quote_greatereqp,&c_734542); + +make_cons(c_734549,quote_y,nil); + +make_cons(c_734548,quote_x,&c_734549); + +make_cons(c_734547,quote_lessp,&c_734548); + +make_cons(c_734546,&c_734547,nil); + +make_cons(c_734545,quote_not,&c_734546); + +make_cons(c_734544,&c_734545,nil); + +make_cons(c_734540,&c_734541,&c_734544); + +make_cons(c_734539,quote_equal,&c_734540); + +make_cons(c_734558,quote_y,nil); + +make_cons(c_734557,quote_x,&c_734558); + +make_cons(c_734556,quote_times,&c_734557); + +make_cons(c_734555,&c_734556,nil); + +make_cons(c_734554,quote_x,&c_734555); + +make_cons(c_734553,quote_equal,&c_734554); + +make_cons(c_734565,quote_zero,nil); + +make_cons(c_734564,&c_734565,nil); + +make_cons(c_734563,quote_x,&c_734564); + +make_cons(c_734562,quote_equal,&c_734563); + +make_cons(c_734570,quote_x,nil); + +make_cons(c_734569,quote_numberp,&c_734570); + +make_cons(c_734574,obj_int2obj(1),nil); + +make_cons(c_734573,quote_y,&c_734574); + +make_cons(c_734572,quote_equal,&c_734573); + +make_cons(c_734571,&c_734572,nil); + +make_cons(c_734568,&c_734569,&c_734571); + +make_cons(c_734567,quote_and,&c_734568); + +make_cons(c_734566,&c_734567,nil); + +make_cons(c_734561,&c_734562,&c_734566); + +make_cons(c_734560,quote_or,&c_734561); + +make_cons(c_734559,&c_734560,nil); + +make_cons(c_734552,&c_734553,&c_734559); + +make_cons(c_734551,quote_equal,&c_734552); + +make_cons(c_734582,quote_x,nil); + +make_cons(c_734581,quote_y,&c_734582); + +make_cons(c_734580,quote_times,&c_734581); + +make_cons(c_734583,quote_y,nil); + +make_cons(c_734579,&c_734580,&c_734583); + +make_cons(c_734578,quote_remainder,&c_734579); + +make_cons(c_734585,quote_zero,nil); + +make_cons(c_734584,&c_734585,nil); + +make_cons(c_734577,&c_734578,&c_734584); + +make_cons(c_734576,quote_equal,&c_734577); + +make_cons(c_734593,quote_b,nil); + +make_cons(c_734592,quote_a,&c_734593); + +make_cons(c_734591,quote_times,&c_734592); + +make_cons(c_734594,obj_int2obj(1),nil); + +make_cons(c_734590,&c_734591,&c_734594); + +make_cons(c_734589,quote_equal,&c_734590); + +make_cons(c_734603,quote_zero,nil); + +make_cons(c_734602,&c_734603,nil); + +make_cons(c_734601,quote_a,&c_734602); + +make_cons(c_734600,quote_equal,&c_734601); + +make_cons(c_734599,&c_734600,nil); + +make_cons(c_734598,quote_not,&c_734599); + +make_cons(c_734610,quote_zero,nil); + +make_cons(c_734609,&c_734610,nil); + +make_cons(c_734608,quote_b,&c_734609); + +make_cons(c_734607,quote_equal,&c_734608); + +make_cons(c_734606,&c_734607,nil); + +make_cons(c_734605,quote_not,&c_734606); + +make_cons(c_734613,quote_a,nil); + +make_cons(c_734612,quote_numberp,&c_734613); + +make_cons(c_734616,quote_b,nil); + +make_cons(c_734615,quote_numberp,&c_734616); + +make_cons(c_734621,quote_a,nil); + +make_cons(c_734620,quote__1911_91,&c_734621); + +make_cons(c_734623,quote_zero,nil); + +make_cons(c_734622,&c_734623,nil); + +make_cons(c_734619,&c_734620,&c_734622); + +make_cons(c_734618,quote_equal,&c_734619); + +make_cons(c_734628,quote_b,nil); + +make_cons(c_734627,quote__1911_91,&c_734628); + +make_cons(c_734630,quote_zero,nil); + +make_cons(c_734629,&c_734630,nil); + +make_cons(c_734626,&c_734627,&c_734629); + +make_cons(c_734625,quote_equal,&c_734626); + +make_cons(c_734624,&c_734625,nil); + +make_cons(c_734617,&c_734618,&c_734624); + +make_cons(c_734614,&c_734615,&c_734617); + +make_cons(c_734611,&c_734612,&c_734614); + +make_cons(c_734604,&c_734605,&c_734611); + +make_cons(c_734597,&c_734598,&c_734604); + +make_cons(c_734596,quote_and,&c_734597); + +make_cons(c_734595,&c_734596,nil); + +make_cons(c_734588,&c_734589,&c_734595); + +make_cons(c_734587,quote_equal,&c_734588); + +make_cons(c_734640,quote_l,nil); + +make_cons(c_734639,quote_x,&c_734640); + +make_cons(c_734638,quote_delete,&c_734639); + +make_cons(c_734637,&c_734638,nil); + +make_cons(c_734636,quote_length,&c_734637); + +make_cons(c_734643,quote_l,nil); + +make_cons(c_734642,quote_length,&c_734643); + +make_cons(c_734641,&c_734642,nil); + +make_cons(c_734635,&c_734636,&c_734641); + +make_cons(c_734634,quote_lessp,&c_734635); + +make_cons(c_734647,quote_l,nil); + +make_cons(c_734646,quote_x,&c_734647); + +make_cons(c_734645,quote_member,&c_734646); + +make_cons(c_734644,&c_734645,nil); + +make_cons(c_734633,&c_734634,&c_734644); + +make_cons(c_734632,quote_equal,&c_734633); + +make_cons(c_734655,quote_l,nil); + +make_cons(c_734654,quote_x,&c_734655); + +make_cons(c_734653,quote_delete,&c_734654); + +make_cons(c_734652,&c_734653,nil); + +make_cons(c_734651,quote_sort2,&c_734652); + +make_cons(c_734661,quote_l,nil); + +make_cons(c_734660,quote_sort2,&c_734661); + +make_cons(c_734659,&c_734660,nil); + +make_cons(c_734658,quote_x,&c_734659); + +make_cons(c_734657,quote_delete,&c_734658); + +make_cons(c_734656,&c_734657,nil); + +make_cons(c_734650,&c_734651,&c_734656); + +make_cons(c_734649,quote_equal,&c_734650); + +make_cons(c_734666,quote_x,nil); + +make_cons(c_734665,quote_dsort,&c_734666); + +make_cons(c_734669,quote_x,nil); + +make_cons(c_734668,quote_sort2,&c_734669); + +make_cons(c_734667,&c_734668,nil); + +make_cons(c_734664,&c_734665,&c_734667); + +make_cons(c_734663,quote_equal,&c_734664); + +make_cons(c_734692,quote_x7,nil); + +make_cons(c_734691,quote_x6,&c_734692); + +make_cons(c_734690,quote_cons,&c_734691); + +make_cons(c_734689,&c_734690,nil); + +make_cons(c_734688,quote_x5,&c_734689); + +make_cons(c_734687,quote_cons,&c_734688); + +make_cons(c_734686,&c_734687,nil); + +make_cons(c_734685,quote_x4,&c_734686); + +make_cons(c_734684,quote_cons,&c_734685); + +make_cons(c_734683,&c_734684,nil); + +make_cons(c_734682,quote_x3,&c_734683); + +make_cons(c_734681,quote_cons,&c_734682); + +make_cons(c_734680,&c_734681,nil); + +make_cons(c_734679,quote_x2,&c_734680); + +make_cons(c_734678,quote_cons,&c_734679); + +make_cons(c_734677,&c_734678,nil); + +make_cons(c_734676,quote_x1,&c_734677); + +make_cons(c_734675,quote_cons,&c_734676); + +make_cons(c_734674,&c_734675,nil); + +make_cons(c_734673,quote_length,&c_734674); + +make_cons(c_734698,quote_x7,nil); + +make_cons(c_734697,quote_length,&c_734698); + +make_cons(c_734696,&c_734697,nil); + +make_cons(c_734695,obj_int2obj(6),&c_734696); + +make_cons(c_734694,quote_plus,&c_734695); + +make_cons(c_734693,&c_734694,nil); + +make_cons(c_734672,&c_734673,&c_734693); + +make_cons(c_734671,quote_equal,&c_734672); + +make_cons(c_734707,quote_x,nil); + +make_cons(c_734706,quote_add1,&c_734707); + +make_cons(c_734705,&c_734706,nil); + +make_cons(c_734704,quote_add1,&c_734705); + +make_cons(c_734708,obj_int2obj(2),nil); + +make_cons(c_734703,&c_734704,&c_734708); + +make_cons(c_734702,quote_difference,&c_734703); + +make_cons(c_734711,quote_x,nil); + +make_cons(c_734710,quote_fix,&c_734711); + +make_cons(c_734709,&c_734710,nil); + +make_cons(c_734701,&c_734702,&c_734709); + +make_cons(c_734700,quote_equal,&c_734701); + +make_cons(c_734722,quote_y,nil); + +make_cons(c_734721,quote_x,&c_734722); + +make_cons(c_734720,quote_plus,&c_734721); + +make_cons(c_734719,&c_734720,nil); + +make_cons(c_734718,quote_x,&c_734719); + +make_cons(c_734717,quote_plus,&c_734718); + +make_cons(c_734723,obj_int2obj(2),nil); + +make_cons(c_734716,&c_734717,&c_734723); + +make_cons(c_734715,quote_quotient,&c_734716); + +make_cons(c_734730,obj_int2obj(2),nil); + +make_cons(c_734729,quote_y,&c_734730); + +make_cons(c_734728,quote_quotient,&c_734729); + +make_cons(c_734727,&c_734728,nil); + +make_cons(c_734726,quote_x,&c_734727); + +make_cons(c_734725,quote_plus,&c_734726); + +make_cons(c_734724,&c_734725,nil); + +make_cons(c_734714,&c_734715,&c_734724); + +make_cons(c_734713,quote_equal,&c_734714); + +make_cons(c_734736,quote_zero,nil); + +make_cons(c_734737,quote_i,nil); + +make_cons(c_734735,&c_734736,&c_734737); + +make_cons(c_734734,quote_sigma,&c_734735); + +make_cons(c_734745,quote_i,nil); + +make_cons(c_734744,quote_add1,&c_734745); + +make_cons(c_734743,&c_734744,nil); + +make_cons(c_734742,quote_i,&c_734743); + +make_cons(c_734741,quote_times,&c_734742); + +make_cons(c_734746,obj_int2obj(2),nil); + +make_cons(c_734740,&c_734741,&c_734746); + +make_cons(c_734739,quote_quotient,&c_734740); + +make_cons(c_734738,&c_734739,nil); + +make_cons(c_734733,&c_734734,&c_734738); + +make_cons(c_734732,quote_equal,&c_734733); + +make_cons(c_734754,quote_y,nil); + +make_cons(c_734753,quote_add1,&c_734754); + +make_cons(c_734752,&c_734753,nil); + +make_cons(c_734751,quote_x,&c_734752); + +make_cons(c_734750,quote_plus,&c_734751); + +make_cons(c_734759,quote_y,nil); + +make_cons(c_734758,quote_numberp,&c_734759); + +make_cons(c_734765,quote_y,nil); + +make_cons(c_734764,quote_x,&c_734765); + +make_cons(c_734763,quote_plus,&c_734764); + +make_cons(c_734762,&c_734763,nil); + +make_cons(c_734761,quote_add1,&c_734762); + +make_cons(c_734768,quote_x,nil); + +make_cons(c_734767,quote_add1,&c_734768); + +make_cons(c_734766,&c_734767,nil); + +make_cons(c_734760,&c_734761,&c_734766); + +make_cons(c_734757,&c_734758,&c_734760); + +make_cons(c_734756,quote__if,&c_734757); + +make_cons(c_734755,&c_734756,nil); + +make_cons(c_734749,&c_734750,&c_734755); + +make_cons(c_734748,quote_equal,&c_734749); + +make_cons(c_734776,quote_y,nil); + +make_cons(c_734775,quote_x,&c_734776); + +make_cons(c_734774,quote_difference,&c_734775); + +make_cons(c_734780,quote_y,nil); + +make_cons(c_734779,quote_z,&c_734780); + +make_cons(c_734778,quote_difference,&c_734779); + +make_cons(c_734777,&c_734778,nil); + +make_cons(c_734773,&c_734774,&c_734777); + +make_cons(c_734772,quote_equal,&c_734773); + +make_cons(c_734786,quote_y,nil); + +make_cons(c_734785,quote_x,&c_734786); + +make_cons(c_734784,quote_lessp,&c_734785); + +make_cons(c_734792,quote_z,nil); + +make_cons(c_734791,quote_y,&c_734792); + +make_cons(c_734790,quote_lessp,&c_734791); + +make_cons(c_734789,&c_734790,nil); + +make_cons(c_734788,quote_not,&c_734789); + +make_cons(c_734798,quote_y,nil); + +make_cons(c_734797,quote_z,&c_734798); + +make_cons(c_734796,quote_lessp,&c_734797); + +make_cons(c_734804,quote_x,nil); + +make_cons(c_734803,quote_y,&c_734804); + +make_cons(c_734802,quote_lessp,&c_734803); + +make_cons(c_734801,&c_734802,nil); + +make_cons(c_734800,quote_not,&c_734801); + +make_cons(c_734809,quote_x,nil); + +make_cons(c_734808,quote_fix,&c_734809); + +make_cons(c_734812,quote_z,nil); + +make_cons(c_734811,quote_fix,&c_734812); + +make_cons(c_734810,&c_734811,nil); + +make_cons(c_734807,&c_734808,&c_734810); + +make_cons(c_734806,quote_equal,&c_734807); + +make_cons(c_734805,&c_734806,nil); + +make_cons(c_734799,&c_734800,&c_734805); + +make_cons(c_734795,&c_734796,&c_734799); + +make_cons(c_734794,quote__if,&c_734795); + +make_cons(c_734793,&c_734794,nil); + +make_cons(c_734787,&c_734788,&c_734793); + +make_cons(c_734783,&c_734784,&c_734787); + +make_cons(c_734782,quote__if,&c_734783); + +make_cons(c_734781,&c_734782,nil); + +make_cons(c_734771,&c_734772,&c_734781); + +make_cons(c_734770,quote_equal,&c_734771); + +make_cons(c_734822,quote_y,nil); + +make_cons(c_734821,quote_x,&c_734822); + +make_cons(c_734820,quote_delete,&c_734821); + +make_cons(c_734819,&c_734820,nil); + +make_cons(c_734818,quote_plus_91tree,&c_734819); + +make_cons(c_734823,quote_a,nil); + +make_cons(c_734817,&c_734818,&c_734823); + +make_cons(c_734816,quote_meaning,&c_734817); + +make_cons(c_734829,quote_y,nil); + +make_cons(c_734828,quote_x,&c_734829); + +make_cons(c_734827,quote_member,&c_734828); + +make_cons(c_734836,quote_y,nil); + +make_cons(c_734835,quote_plus_91tree,&c_734836); + +make_cons(c_734837,quote_a,nil); + +make_cons(c_734834,&c_734835,&c_734837); + +make_cons(c_734833,quote_meaning,&c_734834); + +make_cons(c_734841,quote_a,nil); + +make_cons(c_734840,quote_x,&c_734841); + +make_cons(c_734839,quote_meaning,&c_734840); + +make_cons(c_734838,&c_734839,nil); + +make_cons(c_734832,&c_734833,&c_734838); + +make_cons(c_734831,quote_difference,&c_734832); + +make_cons(c_734846,quote_y,nil); + +make_cons(c_734845,quote_plus_91tree,&c_734846); + +make_cons(c_734847,quote_a,nil); + +make_cons(c_734844,&c_734845,&c_734847); + +make_cons(c_734843,quote_meaning,&c_734844); + +make_cons(c_734842,&c_734843,nil); + +make_cons(c_734830,&c_734831,&c_734842); + +make_cons(c_734826,&c_734827,&c_734830); + +make_cons(c_734825,quote__if,&c_734826); + +make_cons(c_734824,&c_734825,nil); + +make_cons(c_734815,&c_734816,&c_734824); + +make_cons(c_734814,quote_equal,&c_734815); + +make_cons(c_734855,quote_y,nil); + +make_cons(c_734854,quote_add1,&c_734855); + +make_cons(c_734853,&c_734854,nil); + +make_cons(c_734852,quote_x,&c_734853); + +make_cons(c_734851,quote_times,&c_734852); + +make_cons(c_734860,quote_y,nil); + +make_cons(c_734859,quote_numberp,&c_734860); + +make_cons(c_734867,quote_y,nil); + +make_cons(c_734866,quote_x,&c_734867); + +make_cons(c_734865,quote_times,&c_734866); + +make_cons(c_734864,&c_734865,nil); + +make_cons(c_734863,quote_x,&c_734864); + +make_cons(c_734862,quote_plus,&c_734863); + +make_cons(c_734870,quote_x,nil); + +make_cons(c_734869,quote_fix,&c_734870); + +make_cons(c_734868,&c_734869,nil); + +make_cons(c_734861,&c_734862,&c_734868); + +make_cons(c_734858,&c_734859,&c_734861); + +make_cons(c_734857,quote__if,&c_734858); + +make_cons(c_734856,&c_734857,nil); + +make_cons(c_734850,&c_734851,&c_734856); + +make_cons(c_734849,quote_equal,&c_734850); + +make_cons(c_734876,quote_nil,nil); + +make_cons(c_734877,quote_i,nil); + +make_cons(c_734875,&c_734876,&c_734877); + +make_cons(c_734874,quote_nth,&c_734875); + +make_cons(c_734882,quote_i,nil); + +make_cons(c_734881,quote_zerop,&c_734882); + +make_cons(c_734884,quote_nil,nil); + +make_cons(c_734886,quote_zero,nil); + +make_cons(c_734885,&c_734886,nil); + +make_cons(c_734883,&c_734884,&c_734885); + +make_cons(c_734880,&c_734881,&c_734883); + +make_cons(c_734879,quote__if,&c_734880); + +make_cons(c_734878,&c_734879,nil); + +make_cons(c_734873,&c_734874,&c_734878); + +make_cons(c_734872,quote_equal,&c_734873); + +make_cons(c_734894,quote_b,nil); + +make_cons(c_734893,quote_a,&c_734894); + +make_cons(c_734892,quote_append,&c_734893); + +make_cons(c_734891,&c_734892,nil); + +make_cons(c_734890,quote_last,&c_734891); + +make_cons(c_734899,quote_b,nil); + +make_cons(c_734898,quote_listp,&c_734899); + +make_cons(c_734902,quote_b,nil); + +make_cons(c_734901,quote_last,&c_734902); + +make_cons(c_734907,quote_a,nil); + +make_cons(c_734906,quote_listp,&c_734907); + +make_cons(c_734914,quote_a,nil); + +make_cons(c_734913,quote_last,&c_734914); + +make_cons(c_734912,&c_734913,nil); + +make_cons(c_734911,quote_car,&c_734912); + +make_cons(c_734915,quote_b,nil); + +make_cons(c_734910,&c_734911,&c_734915); + +make_cons(c_734909,quote_cons,&c_734910); + +make_cons(c_734916,quote_b,nil); + +make_cons(c_734908,&c_734909,&c_734916); + +make_cons(c_734905,&c_734906,&c_734908); + +make_cons(c_734904,quote__if,&c_734905); + +make_cons(c_734903,&c_734904,nil); + +make_cons(c_734900,&c_734901,&c_734903); + +make_cons(c_734897,&c_734898,&c_734900); + +make_cons(c_734896,quote__if,&c_734897); + +make_cons(c_734895,&c_734896,nil); + +make_cons(c_734889,&c_734890,&c_734895); + +make_cons(c_734888,quote_equal,&c_734889); + +make_cons(c_734924,quote_y,nil); + +make_cons(c_734923,quote_x,&c_734924); + +make_cons(c_734922,quote_lessp,&c_734923); + +make_cons(c_734925,quote_z,nil); + +make_cons(c_734921,&c_734922,&c_734925); + +make_cons(c_734920,quote_equal,&c_734921); + +make_cons(c_734931,quote_y,nil); + +make_cons(c_734930,quote_x,&c_734931); + +make_cons(c_734929,quote_lessp,&c_734930); + +make_cons(c_734935,quote_t,nil); + +make_cons(c_734936,quote_z,nil); + +make_cons(c_734934,&c_734935,&c_734936); + +make_cons(c_734933,quote_equal,&c_734934); + +make_cons(c_734940,quote_f,nil); + +make_cons(c_734941,quote_z,nil); + +make_cons(c_734939,&c_734940,&c_734941); + +make_cons(c_734938,quote_equal,&c_734939); + +make_cons(c_734937,&c_734938,nil); + +make_cons(c_734932,&c_734933,&c_734937); + +make_cons(c_734928,&c_734929,&c_734932); + +make_cons(c_734927,quote__if,&c_734928); + +make_cons(c_734926,&c_734927,nil); + +make_cons(c_734919,&c_734920,&c_734926); + +make_cons(c_734918,quote_equal,&c_734919); + +make_cons(c_734950,quote_b,nil); + +make_cons(c_734949,quote_a,&c_734950); + +make_cons(c_734948,quote_append,&c_734949); + +make_cons(c_734947,&c_734948,nil); + +make_cons(c_734946,quote_x,&c_734947); + +make_cons(c_734945,quote_assignment,&c_734946); + +make_cons(c_734956,quote_a,nil); + +make_cons(c_734955,quote_x,&c_734956); + +make_cons(c_734954,quote_assignedp,&c_734955); + +make_cons(c_734960,quote_a,nil); + +make_cons(c_734959,quote_x,&c_734960); + +make_cons(c_734958,quote_assignment,&c_734959); + +make_cons(c_734964,quote_b,nil); + +make_cons(c_734963,quote_x,&c_734964); + +make_cons(c_734962,quote_assignment,&c_734963); + +make_cons(c_734961,&c_734962,nil); + +make_cons(c_734957,&c_734958,&c_734961); + +make_cons(c_734953,&c_734954,&c_734957); + +make_cons(c_734952,quote__if,&c_734953); + +make_cons(c_734951,&c_734952,nil); + +make_cons(c_734944,&c_734945,&c_734951); + +make_cons(c_734943,quote_equal,&c_734944); + +make_cons(c_734971,quote_x,nil); + +make_cons(c_734970,quote_gopher,&c_734971); + +make_cons(c_734969,&c_734970,nil); + +make_cons(c_734968,quote_car,&c_734969); + +make_cons(c_734976,quote_x,nil); + +make_cons(c_734975,quote_listp,&c_734976); + +make_cons(c_734981,quote_x,nil); + +make_cons(c_734980,quote_flatten,&c_734981); + +make_cons(c_734979,&c_734980,nil); + +make_cons(c_734978,quote_car,&c_734979); + +make_cons(c_734983,quote_zero,nil); + +make_cons(c_734982,&c_734983,nil); + +make_cons(c_734977,&c_734978,&c_734982); + +make_cons(c_734974,&c_734975,&c_734977); + +make_cons(c_734973,quote__if,&c_734974); + +make_cons(c_734972,&c_734973,nil); + +make_cons(c_734967,&c_734968,&c_734972); + +make_cons(c_734966,quote_equal,&c_734967); + +make_cons(c_734992,quote_x,nil); + +make_cons(c_734991,quote_gopher,&c_734992); + +make_cons(c_734990,&c_734991,nil); + +make_cons(c_734989,quote_cdr,&c_734990); + +make_cons(c_734988,&c_734989,nil); + +make_cons(c_734987,quote_flatten,&c_734988); + +make_cons(c_734997,quote_x,nil); + +make_cons(c_734996,quote_listp,&c_734997); + +make_cons(c_735002,quote_x,nil); + +make_cons(c_735001,quote_flatten,&c_735002); + +make_cons(c_735000,&c_735001,nil); + +make_cons(c_734999,quote_cdr,&c_735000); + +make_cons(c_735006,quote_zero,nil); + +make_cons(c_735008,quote_nil,nil); + +make_cons(c_735007,&c_735008,nil); + +make_cons(c_735005,&c_735006,&c_735007); + +make_cons(c_735004,quote_cons,&c_735005); + +make_cons(c_735003,&c_735004,nil); + +make_cons(c_734998,&c_734999,&c_735003); + +make_cons(c_734995,&c_734996,&c_734998); + +make_cons(c_734994,quote__if,&c_734995); + +make_cons(c_734993,&c_734994,nil); + +make_cons(c_734986,&c_734987,&c_734993); + +make_cons(c_734985,quote_equal,&c_734986); + +make_cons(c_735016,quote_x,nil); + +make_cons(c_735015,quote_y,&c_735016); + +make_cons(c_735014,quote_times,&c_735015); + +make_cons(c_735017,quote_y,nil); + +make_cons(c_735013,&c_735014,&c_735017); + +make_cons(c_735012,quote_quotient,&c_735013); + +make_cons(c_735022,quote_y,nil); + +make_cons(c_735021,quote_zerop,&c_735022); + +make_cons(c_735024,quote_zero,nil); + +make_cons(c_735027,quote_x,nil); + +make_cons(c_735026,quote_fix,&c_735027); + +make_cons(c_735025,&c_735026,nil); + +make_cons(c_735023,&c_735024,&c_735025); + +make_cons(c_735020,&c_735021,&c_735023); + +make_cons(c_735019,quote__if,&c_735020); + +make_cons(c_735018,&c_735019,nil); + +make_cons(c_735011,&c_735012,&c_735018); + +make_cons(c_735010,quote_equal,&c_735011); + +make_cons(c_735037,quote_mem,nil); + +make_cons(c_735036,quote_val,&c_735037); + +make_cons(c_735035,quote_i,&c_735036); + +make_cons(c_735034,quote_set,&c_735035); + +make_cons(c_735033,&c_735034,nil); + +make_cons(c_735032,quote_j,&c_735033); + +make_cons(c_735031,quote_get,&c_735032); + +make_cons(c_735043,quote_i,nil); + +make_cons(c_735042,quote_j,&c_735043); + +make_cons(c_735041,quote_eqp,&c_735042); + +make_cons(c_735048,quote_mem,nil); + +make_cons(c_735047,quote_j,&c_735048); + +make_cons(c_735046,quote_get,&c_735047); + +make_cons(c_735045,&c_735046,nil); + +make_cons(c_735044,quote_val,&c_735045); + +make_cons(c_735040,&c_735041,&c_735044); + +make_cons(c_735039,quote__if,&c_735040); + +make_cons(c_735038,&c_735039,nil); + +make_cons(c_735030,&c_735031,&c_735038); + +make_cons(c_735029,quote_equal,&c_735030); + +make_cons(c_735028,&c_735029,nil); + +make_cons(c_735009,&c_735010,&c_735028); + +make_cons(c_734984,&c_734985,&c_735009); + +make_cons(c_734965,&c_734966,&c_734984); + +make_cons(c_734942,&c_734943,&c_734965); + +make_cons(c_734917,&c_734918,&c_734942); + +make_cons(c_734887,&c_734888,&c_734917); + +make_cons(c_734871,&c_734872,&c_734887); + +make_cons(c_734848,&c_734849,&c_734871); + +make_cons(c_734813,&c_734814,&c_734848); + +make_cons(c_734769,&c_734770,&c_734813); + +make_cons(c_734747,&c_734748,&c_734769); + +make_cons(c_734731,&c_734732,&c_734747); + +make_cons(c_734712,&c_734713,&c_734731); + +make_cons(c_734699,&c_734700,&c_734712); + +make_cons(c_734670,&c_734671,&c_734699); + +make_cons(c_734662,&c_734663,&c_734670); + +make_cons(c_734648,&c_734649,&c_734662); + +make_cons(c_734631,&c_734632,&c_734648); + +make_cons(c_734586,&c_734587,&c_734631); + +make_cons(c_734575,&c_734576,&c_734586); + +make_cons(c_734550,&c_734551,&c_734575); + +make_cons(c_734538,&c_734539,&c_734550); + +make_cons(c_734513,&c_734514,&c_734538); + +make_cons(c_734497,&c_734498,&c_734513); + +make_cons(c_734481,&c_734482,&c_734497); + +make_cons(c_734455,&c_734456,&c_734481); + +make_cons(c_734442,&c_734443,&c_734455); + +make_cons(c_734416,&c_734417,&c_734442); + +make_cons(c_734402,&c_734403,&c_734416); + +make_cons(c_734392,&c_734393,&c_734402); + +make_cons(c_734371,&c_734372,&c_734392); + +make_cons(c_734359,&c_734360,&c_734371); + +make_cons(c_734340,&c_734341,&c_734359); + +make_cons(c_734326,&c_734327,&c_734340); + +make_cons(c_734303,&c_734304,&c_734326); + +make_cons(c_734287,&c_734288,&c_734303); + +make_cons(c_734273,&c_734274,&c_734287); + +make_cons(c_734257,&c_734258,&c_734273); + +make_cons(c_734246,&c_734247,&c_734257); + +make_cons(c_734227,&c_734228,&c_734246); + +make_cons(c_734211,&c_734212,&c_734227); + +make_cons(c_734199,&c_734200,&c_734211); + +make_cons(c_734187,&c_734188,&c_734199); + +make_cons(c_734163,&c_734164,&c_734187); + +make_cons(c_734153,&c_734154,&c_734163); + +make_cons(c_734131,&c_734132,&c_734153); + +make_cons(c_734119,&c_734120,&c_734131); + +make_cons(c_734092,&c_734093,&c_734119); + +make_cons(c_734065,&c_734066,&c_734092); + +make_cons(c_734057,&c_734058,&c_734065); + +make_cons(c_734043,&c_734044,&c_734057); + +make_cons(c_734035,&c_734036,&c_734043); + +make_cons(c_734011,&c_734012,&c_734035); + +make_cons(c_733994,&c_733995,&c_734011); + +make_cons(c_733976,&c_733977,&c_733994); + +make_cons(c_733960,&c_733961,&c_733976); + +make_cons(c_733941,&c_733942,&c_733960); + +make_cons(c_733931,&c_733932,&c_733941); + +make_cons(c_733919,&c_733920,&c_733931); + +make_cons(c_733903,&c_733904,&c_733919); + +make_cons(c_733884,&c_733885,&c_733903); + +make_cons(c_733875,&c_733876,&c_733884); + +make_cons(c_733856,&c_733857,&c_733875); + +make_cons(c_733846,&c_733847,&c_733856); + +make_cons(c_733834,&c_733835,&c_733846); + +make_cons(c_733815,&c_733816,&c_733834); + +make_cons(c_733803,&c_733804,&c_733815); + +make_cons(c_733784,&c_733785,&c_733803); + +make_cons(c_733766,&c_733767,&c_733784); + +make_cons(c_733750,&c_733751,&c_733766); + +make_cons(c_733731,&c_733732,&c_733750); + +make_cons(c_733715,&c_733716,&c_733731); + +make_cons(c_733699,&c_733700,&c_733715); + +make_cons(c_733683,&c_733684,&c_733699); + +make_cons(c_733658,&c_733659,&c_733683); + +make_cons(c_733634,&c_733635,&c_733658); + +make_cons(c_733618,&c_733619,&c_733634); + +make_cons(c_733598,&c_733599,&c_733618); + +make_cons(c_733590,&c_733591,&c_733598); + +make_cons(c_733572,&c_733573,&c_733590); + +make_cons(c_733556,&c_733557,&c_733572); + +make_cons(c_733539,&c_733540,&c_733556); + +make_cons(c_733515,&c_733516,&c_733539); + +make_cons(c_733502,&c_733503,&c_733515); + +make_cons(c_733484,&c_733485,&c_733502); + +make_cons(c_733472,&c_733473,&c_733484); + +make_cons(c_733454,&c_733455,&c_733472); + +make_cons(c_733436,&c_733437,&c_733454); + +make_cons(c_733409,&c_733410,&c_733436); + +make_cons(c_733397,&c_733398,&c_733409); + +make_cons(c_733385,&c_733386,&c_733397); + +make_cons(c_733371,&c_733372,&c_733385); + +make_cons(c_733357,&c_733358,&c_733371); + +make_cons(c_733345,&c_733346,&c_733357); + +make_cons(c_733335,&c_733336,&c_733345); + +make_cons(c_733326,&c_733327,&c_733335); + +make_cons(c_733314,&c_733315,&c_733326); + +make_cons(c_733297,&c_733298,&c_733314); + +make_cons(c_733281,&c_733282,&c_733297); + +make_cons(c_733264,&c_733265,&c_733281); + +make_cons(c_733252,&c_733253,&c_733264); + +make_cons(c_733240,&c_733241,&c_733252); + +make_cons(c_733230,&c_733231,&c_733240); + +make_cons(c_733216,&c_733217,&c_733230); + +make_cons(c_733202,&c_733203,&c_733216); +return_closcall1(data,(closure)&c_733196, &c_733202);; +} + +static void __lambda_442(void *data, int argc, object self_73700, object r_73575) { + return_closcall2(data, cell_get(((closureN)self_73700)->elts[0]), ((closureN)self_73700)->elts[1], r_73575);; +} + +static void __lambda_441(void *data, int argc, object self_73701, object r_73573) { + +closureN_type c_731510; +c_731510.hdr.mark = gc_color_red; + c_731510.hdr.grayed = 0; +c_731510.tag = closureN_tag; + c_731510.fn = (function_type)__lambda_440; +c_731510.num_args = 1; +c_731510.num_elt = 40; +c_731510.elts = (object *)alloca(sizeof(object) * 40); +c_731510.elts[0] = ((closureN)self_73701)->elts[0]; +c_731510.elts[1] = ((closureN)self_73701)->elts[1]; +c_731510.elts[2] = ((closureN)self_73701)->elts[2]; +c_731510.elts[3] = ((closureN)self_73701)->elts[3]; +c_731510.elts[4] = ((closureN)self_73701)->elts[4]; +c_731510.elts[5] = ((closureN)self_73701)->elts[5]; +c_731510.elts[6] = ((closureN)self_73701)->elts[6]; +c_731510.elts[7] = ((closureN)self_73701)->elts[7]; +c_731510.elts[8] = ((closureN)self_73701)->elts[8]; +c_731510.elts[9] = ((closureN)self_73701)->elts[9]; +c_731510.elts[10] = ((closureN)self_73701)->elts[10]; +c_731510.elts[11] = ((closureN)self_73701)->elts[11]; +c_731510.elts[12] = ((closureN)self_73701)->elts[12]; +c_731510.elts[13] = ((closureN)self_73701)->elts[13]; +c_731510.elts[14] = ((closureN)self_73701)->elts[14]; +c_731510.elts[15] = ((closureN)self_73701)->elts[15]; +c_731510.elts[16] = ((closureN)self_73701)->elts[16]; +c_731510.elts[17] = ((closureN)self_73701)->elts[17]; +c_731510.elts[18] = ((closureN)self_73701)->elts[18]; +c_731510.elts[19] = ((closureN)self_73701)->elts[19]; +c_731510.elts[20] = ((closureN)self_73701)->elts[20]; +c_731510.elts[21] = ((closureN)self_73701)->elts[21]; +c_731510.elts[22] = ((closureN)self_73701)->elts[22]; +c_731510.elts[23] = ((closureN)self_73701)->elts[23]; +c_731510.elts[24] = ((closureN)self_73701)->elts[24]; +c_731510.elts[25] = ((closureN)self_73701)->elts[25]; +c_731510.elts[26] = ((closureN)self_73701)->elts[26]; +c_731510.elts[27] = ((closureN)self_73701)->elts[27]; +c_731510.elts[28] = ((closureN)self_73701)->elts[28]; +c_731510.elts[29] = ((closureN)self_73701)->elts[29]; +c_731510.elts[30] = ((closureN)self_73701)->elts[30]; +c_731510.elts[31] = ((closureN)self_73701)->elts[31]; +c_731510.elts[32] = ((closureN)self_73701)->elts[32]; +c_731510.elts[33] = ((closureN)self_73701)->elts[33]; +c_731510.elts[34] = ((closureN)self_73701)->elts[34]; +c_731510.elts[35] = ((closureN)self_73701)->elts[35]; +c_731510.elts[36] = ((closureN)self_73701)->elts[36]; +c_731510.elts[37] = ((closureN)self_73701)->elts[37]; +c_731510.elts[38] = ((closureN)self_73701)->elts[38]; +c_731510.elts[39] = ((closureN)self_73701)->elts[39]; + +return_closcall1(data,(closure)&c_731510, Cyc_set_car(data, ((closureN)self_73701)->elts[22], r_73573));; +} + +static void __lambda_440(void *data, int argc, object self_73702, object r_73269) { + +closureN_type c_731512; +c_731512.hdr.mark = gc_color_red; + c_731512.hdr.grayed = 0; +c_731512.tag = closureN_tag; + c_731512.fn = (function_type)__lambda_432; +c_731512.num_args = 1; +c_731512.num_elt = 40; +c_731512.elts = (object *)alloca(sizeof(object) * 40); +c_731512.elts[0] = ((closureN)self_73702)->elts[0]; +c_731512.elts[1] = ((closureN)self_73702)->elts[1]; +c_731512.elts[2] = ((closureN)self_73702)->elts[2]; +c_731512.elts[3] = ((closureN)self_73702)->elts[3]; +c_731512.elts[4] = ((closureN)self_73702)->elts[4]; +c_731512.elts[5] = ((closureN)self_73702)->elts[5]; +c_731512.elts[6] = ((closureN)self_73702)->elts[6]; +c_731512.elts[7] = ((closureN)self_73702)->elts[7]; +c_731512.elts[8] = ((closureN)self_73702)->elts[8]; +c_731512.elts[9] = ((closureN)self_73702)->elts[9]; +c_731512.elts[10] = ((closureN)self_73702)->elts[10]; +c_731512.elts[11] = ((closureN)self_73702)->elts[11]; +c_731512.elts[12] = ((closureN)self_73702)->elts[12]; +c_731512.elts[13] = ((closureN)self_73702)->elts[13]; +c_731512.elts[14] = ((closureN)self_73702)->elts[14]; +c_731512.elts[15] = ((closureN)self_73702)->elts[15]; +c_731512.elts[16] = ((closureN)self_73702)->elts[16]; +c_731512.elts[17] = ((closureN)self_73702)->elts[17]; +c_731512.elts[18] = ((closureN)self_73702)->elts[18]; +c_731512.elts[19] = ((closureN)self_73702)->elts[19]; +c_731512.elts[20] = ((closureN)self_73702)->elts[20]; +c_731512.elts[21] = ((closureN)self_73702)->elts[21]; +c_731512.elts[22] = ((closureN)self_73702)->elts[22]; +c_731512.elts[23] = ((closureN)self_73702)->elts[23]; +c_731512.elts[24] = ((closureN)self_73702)->elts[24]; +c_731512.elts[25] = ((closureN)self_73702)->elts[25]; +c_731512.elts[26] = ((closureN)self_73702)->elts[26]; +c_731512.elts[27] = ((closureN)self_73702)->elts[27]; +c_731512.elts[28] = ((closureN)self_73702)->elts[28]; +c_731512.elts[29] = ((closureN)self_73702)->elts[29]; +c_731512.elts[30] = ((closureN)self_73702)->elts[30]; +c_731512.elts[31] = ((closureN)self_73702)->elts[31]; +c_731512.elts[32] = ((closureN)self_73702)->elts[32]; +c_731512.elts[33] = ((closureN)self_73702)->elts[33]; +c_731512.elts[34] = ((closureN)self_73702)->elts[34]; +c_731512.elts[35] = ((closureN)self_73702)->elts[35]; +c_731512.elts[36] = ((closureN)self_73702)->elts[36]; +c_731512.elts[37] = ((closureN)self_73702)->elts[37]; +c_731512.elts[38] = ((closureN)self_73702)->elts[38]; +c_731512.elts[39] = ((closureN)self_73702)->elts[39]; + + +closureN_type c_733160; +c_733160.hdr.mark = gc_color_red; + c_733160.hdr.grayed = 0; +c_733160.tag = closureN_tag; + c_733160.fn = (function_type)__lambda_439; +c_733160.num_args = 1; +c_733160.num_elt = 2; +c_733160.elts = (object *)alloca(sizeof(object) * 2); +c_733160.elts[0] = ((closureN)self_73702)->elts[1]; +c_733160.elts[1] = ((closureN)self_73702)->elts[2]; + +return_closcall1(data,(closure)&c_731512, &c_733160);; +} + +static void __lambda_439(void *data, int argc, object self_73703, object k_73568, object lst_73231) { + +closureN_type c_733162; +c_733162.hdr.mark = gc_color_red; + c_733162.hdr.grayed = 0; +c_733162.tag = closureN_tag; + c_733162.fn = (function_type)__lambda_438; +c_733162.num_args = 1; +c_733162.num_elt = 4; +c_733162.elts = (object *)alloca(sizeof(object) * 4); +c_733162.elts[0] = ((closureN)self_73703)->elts[0]; +c_733162.elts[1] = ((closureN)self_73703)->elts[1]; +c_733162.elts[2] = k_73568; +c_733162.elts[3] = lst_73231; + +return_closcall1(data,(closure)&c_733162, Cyc_is_null(lst_73231));; +} + +static void __lambda_438(void *data, int argc, object self_73704, object r_73569) { + if( !eq(boolean_f, r_73569) ){ + +closureN_type c_733164; +c_733164.hdr.mark = gc_color_red; + c_733164.hdr.grayed = 0; +c_733164.tag = closureN_tag; + c_733164.fn = (function_type)__lambda_433; +c_733164.num_args = 0; +c_733164.num_elt = 1; +c_733164.elts = (object *)alloca(sizeof(object) * 1); +c_733164.elts[0] = ((closureN)self_73704)->elts[2]; + +return_closcall0(data,(closure)&c_733164); +} else { + +closureN_type c_733168; +c_733168.hdr.mark = gc_color_red; + c_733168.hdr.grayed = 0; +c_733168.tag = closureN_tag; + c_733168.fn = (function_type)__lambda_437; +c_733168.num_args = 0; +c_733168.num_elt = 4; +c_733168.elts = (object *)alloca(sizeof(object) * 4); +c_733168.elts[0] = ((closureN)self_73704)->elts[0]; +c_733168.elts[1] = ((closureN)self_73704)->elts[1]; +c_733168.elts[2] = ((closureN)self_73704)->elts[2]; +c_733168.elts[3] = ((closureN)self_73704)->elts[3]; + +return_closcall0(data,(closure)&c_733168);} +; +} + +static void __lambda_437(void *data, int argc, object self_73705) { + +closureN_type c_733170; +c_733170.hdr.mark = gc_color_red; + c_733170.hdr.grayed = 0; +c_733170.tag = closureN_tag; + c_733170.fn = (function_type)__lambda_436; +c_733170.num_args = 1; +c_733170.num_elt = 4; +c_733170.elts = (object *)alloca(sizeof(object) * 4); +c_733170.elts[0] = ((closureN)self_73705)->elts[0]; +c_733170.elts[1] = ((closureN)self_73705)->elts[1]; +c_733170.elts[2] = ((closureN)self_73705)->elts[2]; +c_733170.elts[3] = ((closureN)self_73705)->elts[3]; + +return_closcall1(data,(closure)&c_733170, car(((closureN)self_73705)->elts[3]));; +} + +static void __lambda_436(void *data, int argc, object self_73706, object r_73572) { + +closureN_type c_733175; +c_733175.hdr.mark = gc_color_red; + c_733175.hdr.grayed = 0; +c_733175.tag = closureN_tag; + c_733175.fn = (function_type)__lambda_435; +c_733175.num_args = 1; +c_733175.num_elt = 3; +c_733175.elts = (object *)alloca(sizeof(object) * 3); +c_733175.elts[0] = ((closureN)self_73706)->elts[1]; +c_733175.elts[1] = ((closureN)self_73706)->elts[2]; +c_733175.elts[2] = ((closureN)self_73706)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73706)->elts[0]), &c_733175, r_73572);; +} + +static void __lambda_435(void *data, int argc, object self_73707, object r_73570) { + +closureN_type c_733177; +c_733177.hdr.mark = gc_color_red; + c_733177.hdr.grayed = 0; +c_733177.tag = closureN_tag; + c_733177.fn = (function_type)__lambda_434; +c_733177.num_args = 1; +c_733177.num_elt = 2; +c_733177.elts = (object *)alloca(sizeof(object) * 2); +c_733177.elts[0] = ((closureN)self_73707)->elts[0]; +c_733177.elts[1] = ((closureN)self_73707)->elts[1]; + +return_closcall1(data,(closure)&c_733177, cdr(((closureN)self_73707)->elts[2]));; +} + +static void __lambda_434(void *data, int argc, object self_73708, object r_73571) { + return_closcall2(data, cell_get(((closureN)self_73708)->elts[0]), ((closureN)self_73708)->elts[1], r_73571);; +} + +static void __lambda_433(void *data, int argc, object self_73709) { + return_closcall1(data, ((closureN)self_73709)->elts[0], boolean_t);; +} + +static void __lambda_432(void *data, int argc, object self_73710, object r_73567) { + +closureN_type c_731514; +c_731514.hdr.mark = gc_color_red; + c_731514.hdr.grayed = 0; +c_731514.tag = closureN_tag; + c_731514.fn = (function_type)__lambda_431; +c_731514.num_args = 1; +c_731514.num_elt = 39; +c_731514.elts = (object *)alloca(sizeof(object) * 39); +c_731514.elts[0] = ((closureN)self_73710)->elts[0]; +c_731514.elts[1] = ((closureN)self_73710)->elts[1]; +c_731514.elts[2] = ((closureN)self_73710)->elts[3]; +c_731514.elts[3] = ((closureN)self_73710)->elts[4]; +c_731514.elts[4] = ((closureN)self_73710)->elts[5]; +c_731514.elts[5] = ((closureN)self_73710)->elts[6]; +c_731514.elts[6] = ((closureN)self_73710)->elts[7]; +c_731514.elts[7] = ((closureN)self_73710)->elts[8]; +c_731514.elts[8] = ((closureN)self_73710)->elts[9]; +c_731514.elts[9] = ((closureN)self_73710)->elts[10]; +c_731514.elts[10] = ((closureN)self_73710)->elts[11]; +c_731514.elts[11] = ((closureN)self_73710)->elts[12]; +c_731514.elts[12] = ((closureN)self_73710)->elts[13]; +c_731514.elts[13] = ((closureN)self_73710)->elts[14]; +c_731514.elts[14] = ((closureN)self_73710)->elts[15]; +c_731514.elts[15] = ((closureN)self_73710)->elts[16]; +c_731514.elts[16] = ((closureN)self_73710)->elts[17]; +c_731514.elts[17] = ((closureN)self_73710)->elts[18]; +c_731514.elts[18] = ((closureN)self_73710)->elts[19]; +c_731514.elts[19] = ((closureN)self_73710)->elts[20]; +c_731514.elts[20] = ((closureN)self_73710)->elts[21]; +c_731514.elts[21] = ((closureN)self_73710)->elts[22]; +c_731514.elts[22] = ((closureN)self_73710)->elts[23]; +c_731514.elts[23] = ((closureN)self_73710)->elts[24]; +c_731514.elts[24] = ((closureN)self_73710)->elts[25]; +c_731514.elts[25] = ((closureN)self_73710)->elts[26]; +c_731514.elts[26] = ((closureN)self_73710)->elts[27]; +c_731514.elts[27] = ((closureN)self_73710)->elts[28]; +c_731514.elts[28] = ((closureN)self_73710)->elts[29]; +c_731514.elts[29] = ((closureN)self_73710)->elts[30]; +c_731514.elts[30] = ((closureN)self_73710)->elts[31]; +c_731514.elts[31] = ((closureN)self_73710)->elts[32]; +c_731514.elts[32] = ((closureN)self_73710)->elts[33]; +c_731514.elts[33] = ((closureN)self_73710)->elts[34]; +c_731514.elts[34] = ((closureN)self_73710)->elts[35]; +c_731514.elts[35] = ((closureN)self_73710)->elts[36]; +c_731514.elts[36] = ((closureN)self_73710)->elts[37]; +c_731514.elts[37] = ((closureN)self_73710)->elts[38]; +c_731514.elts[38] = ((closureN)self_73710)->elts[39]; + +return_closcall1(data,(closure)&c_731514, Cyc_set_car(data, ((closureN)self_73710)->elts[2], r_73567));; +} + +static void __lambda_431(void *data, int argc, object self_73711, object r_73270) { + +closureN_type c_731516; +c_731516.hdr.mark = gc_color_red; + c_731516.hdr.grayed = 0; +c_731516.tag = closureN_tag; + c_731516.fn = (function_type)__lambda_411; +c_731516.num_args = 1; +c_731516.num_elt = 39; +c_731516.elts = (object *)alloca(sizeof(object) * 39); +c_731516.elts[0] = ((closureN)self_73711)->elts[0]; +c_731516.elts[1] = ((closureN)self_73711)->elts[1]; +c_731516.elts[2] = ((closureN)self_73711)->elts[2]; +c_731516.elts[3] = ((closureN)self_73711)->elts[3]; +c_731516.elts[4] = ((closureN)self_73711)->elts[4]; +c_731516.elts[5] = ((closureN)self_73711)->elts[5]; +c_731516.elts[6] = ((closureN)self_73711)->elts[6]; +c_731516.elts[7] = ((closureN)self_73711)->elts[7]; +c_731516.elts[8] = ((closureN)self_73711)->elts[8]; +c_731516.elts[9] = ((closureN)self_73711)->elts[9]; +c_731516.elts[10] = ((closureN)self_73711)->elts[10]; +c_731516.elts[11] = ((closureN)self_73711)->elts[11]; +c_731516.elts[12] = ((closureN)self_73711)->elts[12]; +c_731516.elts[13] = ((closureN)self_73711)->elts[13]; +c_731516.elts[14] = ((closureN)self_73711)->elts[14]; +c_731516.elts[15] = ((closureN)self_73711)->elts[15]; +c_731516.elts[16] = ((closureN)self_73711)->elts[16]; +c_731516.elts[17] = ((closureN)self_73711)->elts[17]; +c_731516.elts[18] = ((closureN)self_73711)->elts[18]; +c_731516.elts[19] = ((closureN)self_73711)->elts[19]; +c_731516.elts[20] = ((closureN)self_73711)->elts[20]; +c_731516.elts[21] = ((closureN)self_73711)->elts[21]; +c_731516.elts[22] = ((closureN)self_73711)->elts[22]; +c_731516.elts[23] = ((closureN)self_73711)->elts[23]; +c_731516.elts[24] = ((closureN)self_73711)->elts[24]; +c_731516.elts[25] = ((closureN)self_73711)->elts[25]; +c_731516.elts[26] = ((closureN)self_73711)->elts[26]; +c_731516.elts[27] = ((closureN)self_73711)->elts[27]; +c_731516.elts[28] = ((closureN)self_73711)->elts[28]; +c_731516.elts[29] = ((closureN)self_73711)->elts[29]; +c_731516.elts[30] = ((closureN)self_73711)->elts[30]; +c_731516.elts[31] = ((closureN)self_73711)->elts[31]; +c_731516.elts[32] = ((closureN)self_73711)->elts[32]; +c_731516.elts[33] = ((closureN)self_73711)->elts[33]; +c_731516.elts[34] = ((closureN)self_73711)->elts[34]; +c_731516.elts[35] = ((closureN)self_73711)->elts[35]; +c_731516.elts[36] = ((closureN)self_73711)->elts[36]; +c_731516.elts[37] = ((closureN)self_73711)->elts[37]; +c_731516.elts[38] = ((closureN)self_73711)->elts[38]; + + +closureN_type c_733068; +c_733068.hdr.mark = gc_color_red; + c_733068.hdr.grayed = 0; +c_733068.tag = closureN_tag; + c_733068.fn = (function_type)__lambda_430; +c_733068.num_args = 1; +c_733068.num_elt = 3; +c_733068.elts = (object *)alloca(sizeof(object) * 3); +c_733068.elts[0] = ((closureN)self_73711)->elts[6]; +c_733068.elts[1] = ((closureN)self_73711)->elts[14]; +c_733068.elts[2] = ((closureN)self_73711)->elts[34]; + +return_closcall1(data,(closure)&c_731516, &c_733068);; +} + +static void __lambda_430(void *data, int argc, object self_73712, object k_73550, object term_73230) { + +closureN_type c_733070; +c_733070.hdr.mark = gc_color_red; + c_733070.hdr.grayed = 0; +c_733070.tag = closureN_tag; + c_733070.fn = (function_type)__lambda_417; +c_733070.num_args = 0; +c_733070.num_elt = 1; +c_733070.elts = (object *)alloca(sizeof(object) * 1); +c_733070.elts[0] = term_73230; + + +closureN_type c_733101; +c_733101.hdr.mark = gc_color_red; + c_733101.hdr.grayed = 0; +c_733101.tag = closureN_tag; + c_733101.fn = (function_type)__lambda_429; +c_733101.num_args = 1; +c_733101.num_elt = 5; +c_733101.elts = (object *)alloca(sizeof(object) * 5); +c_733101.elts[0] = ((closureN)self_73712)->elts[0]; +c_733101.elts[1] = k_73550; +c_733101.elts[2] = ((closureN)self_73712)->elts[1]; +c_733101.elts[3] = term_73230; +c_733101.elts[4] = ((closureN)self_73712)->elts[2]; + +return_closcall1(data,(closure)&c_733070, &c_733101);; +} + +static void __lambda_429(void *data, int argc, object self_73713, object r_73551) { + if( !eq(boolean_f, r_73551) ){ + +closureN_type c_733103; +c_733103.hdr.mark = gc_color_red; + c_733103.hdr.grayed = 0; +c_733103.tag = closureN_tag; + c_733103.fn = (function_type)__lambda_427; +c_733103.num_args = 0; +c_733103.num_elt = 5; +c_733103.elts = (object *)alloca(sizeof(object) * 5); +c_733103.elts[0] = ((closureN)self_73713)->elts[0]; +c_733103.elts[1] = ((closureN)self_73713)->elts[1]; +c_733103.elts[2] = ((closureN)self_73713)->elts[2]; +c_733103.elts[3] = ((closureN)self_73713)->elts[3]; +c_733103.elts[4] = ((closureN)self_73713)->elts[4]; + +return_closcall0(data,(closure)&c_733103); +} else { + +closureN_type c_733152; +c_733152.hdr.mark = gc_color_red; + c_733152.hdr.grayed = 0; +c_733152.tag = closureN_tag; + c_733152.fn = (function_type)__lambda_428; +c_733152.num_args = 0; +c_733152.num_elt = 2; +c_733152.elts = (object *)alloca(sizeof(object) * 2); +c_733152.elts[0] = ((closureN)self_73713)->elts[1]; +c_733152.elts[1] = ((closureN)self_73713)->elts[3]; + +return_closcall0(data,(closure)&c_733152);} +; +} + +static void __lambda_428(void *data, int argc, object self_73714) { + +make_string(c_733155, "ADD-LEMMA did not like term: "); +return_closcall4(data, __glo_error_scheme_base, ((closureN)self_73714)->elts[0], boolean_f, &c_733155, ((closureN)self_73714)->elts[1]);; +} + +static void __lambda_427(void *data, int argc, object self_73715) { + +closureN_type c_733105; +c_733105.hdr.mark = gc_color_red; + c_733105.hdr.grayed = 0; +c_733105.tag = closureN_tag; + c_733105.fn = (function_type)__lambda_426; +c_733105.num_args = 1; +c_733105.num_elt = 5; +c_733105.elts = (object *)alloca(sizeof(object) * 5); +c_733105.elts[0] = ((closureN)self_73715)->elts[0]; +c_733105.elts[1] = ((closureN)self_73715)->elts[1]; +c_733105.elts[2] = ((closureN)self_73715)->elts[2]; +c_733105.elts[3] = ((closureN)self_73715)->elts[3]; +c_733105.elts[4] = ((closureN)self_73715)->elts[4]; + +return_closcall1(data,(closure)&c_733105, cadr(((closureN)self_73715)->elts[3]));; +} + +static void __lambda_426(void *data, int argc, object self_73716, object r_73560) { + +closureN_type c_733107; +c_733107.hdr.mark = gc_color_red; + c_733107.hdr.grayed = 0; +c_733107.tag = closureN_tag; + c_733107.fn = (function_type)__lambda_425; +c_733107.num_args = 1; +c_733107.num_elt = 5; +c_733107.elts = (object *)alloca(sizeof(object) * 5); +c_733107.elts[0] = ((closureN)self_73716)->elts[0]; +c_733107.elts[1] = ((closureN)self_73716)->elts[1]; +c_733107.elts[2] = ((closureN)self_73716)->elts[2]; +c_733107.elts[3] = ((closureN)self_73716)->elts[3]; +c_733107.elts[4] = ((closureN)self_73716)->elts[4]; + +return_closcall1(data,(closure)&c_733107, car(r_73560));; +} + +static void __lambda_425(void *data, int argc, object self_73717, object r_73552) { + +closureN_type c_733109; +c_733109.hdr.mark = gc_color_red; + c_733109.hdr.grayed = 0; +c_733109.tag = closureN_tag; + c_733109.fn = (function_type)__lambda_424; +c_733109.num_args = 1; +c_733109.num_elt = 6; +c_733109.elts = (object *)alloca(sizeof(object) * 6); +c_733109.elts[0] = ((closureN)self_73717)->elts[0]; +c_733109.elts[1] = ((closureN)self_73717)->elts[1]; +c_733109.elts[2] = ((closureN)self_73717)->elts[2]; +c_733109.elts[3] = r_73552; +c_733109.elts[4] = ((closureN)self_73717)->elts[3]; +c_733109.elts[5] = ((closureN)self_73717)->elts[4]; + +return_closcall1(data,(closure)&c_733109, quote_lemmas);; +} + +static void __lambda_424(void *data, int argc, object self_73718, object r_73553) { + +closureN_type c_733114; +c_733114.hdr.mark = gc_color_red; + c_733114.hdr.grayed = 0; +c_733114.tag = closureN_tag; + c_733114.fn = (function_type)__lambda_423; +c_733114.num_args = 1; +c_733114.num_elt = 6; +c_733114.elts = (object *)alloca(sizeof(object) * 6); +c_733114.elts[0] = ((closureN)self_73718)->elts[0]; +c_733114.elts[1] = ((closureN)self_73718)->elts[1]; +c_733114.elts[2] = ((closureN)self_73718)->elts[2]; +c_733114.elts[3] = ((closureN)self_73718)->elts[3]; +c_733114.elts[4] = r_73553; +c_733114.elts[5] = ((closureN)self_73718)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_73718)->elts[5]), &c_733114, ((closureN)self_73718)->elts[4]);; +} + +static void __lambda_423(void *data, int argc, object self_73719, object r_73555) { + +closureN_type c_733116; +c_733116.hdr.mark = gc_color_red; + c_733116.hdr.grayed = 0; +c_733116.tag = closureN_tag; + c_733116.fn = (function_type)__lambda_422; +c_733116.num_args = 1; +c_733116.num_elt = 6; +c_733116.elts = (object *)alloca(sizeof(object) * 6); +c_733116.elts[0] = ((closureN)self_73719)->elts[0]; +c_733116.elts[1] = ((closureN)self_73719)->elts[1]; +c_733116.elts[2] = ((closureN)self_73719)->elts[2]; +c_733116.elts[3] = ((closureN)self_73719)->elts[3]; +c_733116.elts[4] = ((closureN)self_73719)->elts[4]; +c_733116.elts[5] = r_73555; + +return_closcall1(data,(closure)&c_733116, cadr(((closureN)self_73719)->elts[5]));; +} + +static void __lambda_422(void *data, int argc, object self_73720, object r_73559) { + +closureN_type c_733118; +c_733118.hdr.mark = gc_color_red; + c_733118.hdr.grayed = 0; +c_733118.tag = closureN_tag; + c_733118.fn = (function_type)__lambda_421; +c_733118.num_args = 1; +c_733118.num_elt = 6; +c_733118.elts = (object *)alloca(sizeof(object) * 6); +c_733118.elts[0] = ((closureN)self_73720)->elts[0]; +c_733118.elts[1] = ((closureN)self_73720)->elts[1]; +c_733118.elts[2] = ((closureN)self_73720)->elts[2]; +c_733118.elts[3] = ((closureN)self_73720)->elts[3]; +c_733118.elts[4] = ((closureN)self_73720)->elts[4]; +c_733118.elts[5] = ((closureN)self_73720)->elts[5]; + +return_closcall1(data,(closure)&c_733118, car(r_73559));; +} + +static void __lambda_421(void *data, int argc, object self_73721, object r_73557) { + +closureN_type c_733120; +c_733120.hdr.mark = gc_color_red; + c_733120.hdr.grayed = 0; +c_733120.tag = closureN_tag; + c_733120.fn = (function_type)__lambda_420; +c_733120.num_args = 1; +c_733120.num_elt = 7; +c_733120.elts = (object *)alloca(sizeof(object) * 7); +c_733120.elts[0] = ((closureN)self_73721)->elts[0]; +c_733120.elts[1] = ((closureN)self_73721)->elts[1]; +c_733120.elts[2] = ((closureN)self_73721)->elts[2]; +c_733120.elts[3] = ((closureN)self_73721)->elts[3]; +c_733120.elts[4] = ((closureN)self_73721)->elts[4]; +c_733120.elts[5] = ((closureN)self_73721)->elts[5]; +c_733120.elts[6] = r_73557; + +return_closcall1(data,(closure)&c_733120, quote_lemmas);; +} + +static void __lambda_420(void *data, int argc, object self_73722, object r_73558) { + +closureN_type c_733125; +c_733125.hdr.mark = gc_color_red; + c_733125.hdr.grayed = 0; +c_733125.tag = closureN_tag; + c_733125.fn = (function_type)__lambda_419; +c_733125.num_args = 1; +c_733125.num_elt = 5; +c_733125.elts = (object *)alloca(sizeof(object) * 5); +c_733125.elts[0] = ((closureN)self_73722)->elts[1]; +c_733125.elts[1] = ((closureN)self_73722)->elts[2]; +c_733125.elts[2] = ((closureN)self_73722)->elts[3]; +c_733125.elts[3] = ((closureN)self_73722)->elts[4]; +c_733125.elts[4] = ((closureN)self_73722)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_73722)->elts[0]), &c_733125, ((closureN)self_73722)->elts[6], r_73558);; +} + +static void __lambda_419(void *data, int argc, object self_73723, object r_73556) { + +closureN_type c_733127; +c_733127.hdr.mark = gc_color_red; + c_733127.hdr.grayed = 0; +c_733127.tag = closureN_tag; + c_733127.fn = (function_type)__lambda_418; +c_733127.num_args = 1; +c_733127.num_elt = 4; +c_733127.elts = (object *)alloca(sizeof(object) * 4); +c_733127.elts[0] = ((closureN)self_73723)->elts[0]; +c_733127.elts[1] = ((closureN)self_73723)->elts[1]; +c_733127.elts[2] = ((closureN)self_73723)->elts[2]; +c_733127.elts[3] = ((closureN)self_73723)->elts[3]; + + +make_cons(c_733137,((closureN)self_73723)->elts[4], r_73556); +return_closcall1(data,(closure)&c_733127, &c_733137);; +} + +static void __lambda_418(void *data, int argc, object self_73724, object r_73554) { + return_closcall4(data, cell_get(((closureN)self_73724)->elts[1]), ((closureN)self_73724)->elts[0], ((closureN)self_73724)->elts[2], ((closureN)self_73724)->elts[3], r_73554);; +} + +static void __lambda_417(void *data, int argc, object self_73725, object k_73561) { + +closureN_type c_733072; +c_733072.hdr.mark = gc_color_red; + c_733072.hdr.grayed = 0; +c_733072.tag = closureN_tag; + c_733072.fn = (function_type)__lambda_416; +c_733072.num_args = 1; +c_733072.num_elt = 2; +c_733072.elts = (object *)alloca(sizeof(object) * 2); +c_733072.elts[0] = k_73561; +c_733072.elts[1] = ((closureN)self_73725)->elts[0]; + +return_closcall1(data,(closure)&c_733072, Cyc_is_cons(((closureN)self_73725)->elts[0]));; +} + +static void __lambda_416(void *data, int argc, object self_73726, object r_73562) { + if( !eq(boolean_f, r_73562) ){ + +closureN_type c_733074; +c_733074.hdr.mark = gc_color_red; + c_733074.hdr.grayed = 0; +c_733074.tag = closureN_tag; + c_733074.fn = (function_type)__lambda_415; +c_733074.num_args = 1; +c_733074.num_elt = 2; +c_733074.elts = (object *)alloca(sizeof(object) * 2); +c_733074.elts[0] = ((closureN)self_73726)->elts[0]; +c_733074.elts[1] = ((closureN)self_73726)->elts[1]; + +return_closcall1(data,(closure)&c_733074, car(((closureN)self_73726)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_73726)->elts[0], boolean_f);} +; +} + +static void __lambda_415(void *data, int argc, object self_73727, object r_73565) { + +closureN_type c_733076; +c_733076.hdr.mark = gc_color_red; + c_733076.hdr.grayed = 0; +c_733076.tag = closureN_tag; + c_733076.fn = (function_type)__lambda_414; +c_733076.num_args = 1; +c_733076.num_elt = 3; +c_733076.elts = (object *)alloca(sizeof(object) * 3); +c_733076.elts[0] = ((closureN)self_73727)->elts[0]; +c_733076.elts[1] = r_73565; +c_733076.elts[2] = ((closureN)self_73727)->elts[1]; + +return_closcall1(data,(closure)&c_733076, quote_equal);; +} + +static void __lambda_414(void *data, int argc, object self_73728, object r_73566) { + +closureN_type c_733078; +c_733078.hdr.mark = gc_color_red; + c_733078.hdr.grayed = 0; +c_733078.tag = closureN_tag; + c_733078.fn = (function_type)__lambda_413; +c_733078.num_args = 1; +c_733078.num_elt = 2; +c_733078.elts = (object *)alloca(sizeof(object) * 2); +c_733078.elts[0] = ((closureN)self_73728)->elts[0]; +c_733078.elts[1] = ((closureN)self_73728)->elts[2]; + +return_closcall1(data,(closure)&c_733078, Cyc_eq(((closureN)self_73728)->elts[1], r_73566));; +} + +static void __lambda_413(void *data, int argc, object self_73729, object r_73563) { + if( !eq(boolean_f, r_73563) ){ + +closureN_type c_733080; +c_733080.hdr.mark = gc_color_red; + c_733080.hdr.grayed = 0; +c_733080.tag = closureN_tag; + c_733080.fn = (function_type)__lambda_412; +c_733080.num_args = 1; +c_733080.num_elt = 1; +c_733080.elts = (object *)alloca(sizeof(object) * 1); +c_733080.elts[0] = ((closureN)self_73729)->elts[0]; + +return_closcall1(data,(closure)&c_733080, cadr(((closureN)self_73729)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_73729)->elts[0], boolean_f);} +; +} + +static void __lambda_412(void *data, int argc, object self_73730, object r_73564) { + return_closcall1(data, ((closureN)self_73730)->elts[0], Cyc_is_cons(r_73564));; +} + +static void __lambda_411(void *data, int argc, object self_73731, object r_73549) { + +closureN_type c_731518; +c_731518.hdr.mark = gc_color_red; + c_731518.hdr.grayed = 0; +c_731518.tag = closureN_tag; + c_731518.fn = (function_type)__lambda_410; +c_731518.num_args = 1; +c_731518.num_elt = 38; +c_731518.elts = (object *)alloca(sizeof(object) * 38); +c_731518.elts[0] = ((closureN)self_73731)->elts[0]; +c_731518.elts[1] = ((closureN)self_73731)->elts[2]; +c_731518.elts[2] = ((closureN)self_73731)->elts[3]; +c_731518.elts[3] = ((closureN)self_73731)->elts[4]; +c_731518.elts[4] = ((closureN)self_73731)->elts[5]; +c_731518.elts[5] = ((closureN)self_73731)->elts[6]; +c_731518.elts[6] = ((closureN)self_73731)->elts[7]; +c_731518.elts[7] = ((closureN)self_73731)->elts[8]; +c_731518.elts[8] = ((closureN)self_73731)->elts[9]; +c_731518.elts[9] = ((closureN)self_73731)->elts[10]; +c_731518.elts[10] = ((closureN)self_73731)->elts[11]; +c_731518.elts[11] = ((closureN)self_73731)->elts[12]; +c_731518.elts[12] = ((closureN)self_73731)->elts[13]; +c_731518.elts[13] = ((closureN)self_73731)->elts[14]; +c_731518.elts[14] = ((closureN)self_73731)->elts[15]; +c_731518.elts[15] = ((closureN)self_73731)->elts[16]; +c_731518.elts[16] = ((closureN)self_73731)->elts[17]; +c_731518.elts[17] = ((closureN)self_73731)->elts[18]; +c_731518.elts[18] = ((closureN)self_73731)->elts[19]; +c_731518.elts[19] = ((closureN)self_73731)->elts[20]; +c_731518.elts[20] = ((closureN)self_73731)->elts[21]; +c_731518.elts[21] = ((closureN)self_73731)->elts[22]; +c_731518.elts[22] = ((closureN)self_73731)->elts[23]; +c_731518.elts[23] = ((closureN)self_73731)->elts[24]; +c_731518.elts[24] = ((closureN)self_73731)->elts[25]; +c_731518.elts[25] = ((closureN)self_73731)->elts[26]; +c_731518.elts[26] = ((closureN)self_73731)->elts[27]; +c_731518.elts[27] = ((closureN)self_73731)->elts[28]; +c_731518.elts[28] = ((closureN)self_73731)->elts[29]; +c_731518.elts[29] = ((closureN)self_73731)->elts[30]; +c_731518.elts[30] = ((closureN)self_73731)->elts[31]; +c_731518.elts[31] = ((closureN)self_73731)->elts[32]; +c_731518.elts[32] = ((closureN)self_73731)->elts[33]; +c_731518.elts[33] = ((closureN)self_73731)->elts[34]; +c_731518.elts[34] = ((closureN)self_73731)->elts[35]; +c_731518.elts[35] = ((closureN)self_73731)->elts[36]; +c_731518.elts[36] = ((closureN)self_73731)->elts[37]; +c_731518.elts[37] = ((closureN)self_73731)->elts[38]; + +return_closcall1(data,(closure)&c_731518, Cyc_set_car(data, ((closureN)self_73731)->elts[1], r_73549));; +} + +static void __lambda_410(void *data, int argc, object self_73732, object r_73271) { + +closureN_type c_731520; +c_731520.hdr.mark = gc_color_red; + c_731520.hdr.grayed = 0; +c_731520.tag = closureN_tag; + c_731520.fn = (function_type)__lambda_401; +c_731520.num_args = 1; +c_731520.num_elt = 38; +c_731520.elts = (object *)alloca(sizeof(object) * 38); +c_731520.elts[0] = ((closureN)self_73732)->elts[0]; +c_731520.elts[1] = ((closureN)self_73732)->elts[1]; +c_731520.elts[2] = ((closureN)self_73732)->elts[2]; +c_731520.elts[3] = ((closureN)self_73732)->elts[3]; +c_731520.elts[4] = ((closureN)self_73732)->elts[4]; +c_731520.elts[5] = ((closureN)self_73732)->elts[5]; +c_731520.elts[6] = ((closureN)self_73732)->elts[6]; +c_731520.elts[7] = ((closureN)self_73732)->elts[7]; +c_731520.elts[8] = ((closureN)self_73732)->elts[8]; +c_731520.elts[9] = ((closureN)self_73732)->elts[9]; +c_731520.elts[10] = ((closureN)self_73732)->elts[10]; +c_731520.elts[11] = ((closureN)self_73732)->elts[11]; +c_731520.elts[12] = ((closureN)self_73732)->elts[12]; +c_731520.elts[13] = ((closureN)self_73732)->elts[13]; +c_731520.elts[14] = ((closureN)self_73732)->elts[14]; +c_731520.elts[15] = ((closureN)self_73732)->elts[15]; +c_731520.elts[16] = ((closureN)self_73732)->elts[16]; +c_731520.elts[17] = ((closureN)self_73732)->elts[17]; +c_731520.elts[18] = ((closureN)self_73732)->elts[18]; +c_731520.elts[19] = ((closureN)self_73732)->elts[19]; +c_731520.elts[20] = ((closureN)self_73732)->elts[20]; +c_731520.elts[21] = ((closureN)self_73732)->elts[21]; +c_731520.elts[22] = ((closureN)self_73732)->elts[22]; +c_731520.elts[23] = ((closureN)self_73732)->elts[23]; +c_731520.elts[24] = ((closureN)self_73732)->elts[24]; +c_731520.elts[25] = ((closureN)self_73732)->elts[25]; +c_731520.elts[26] = ((closureN)self_73732)->elts[26]; +c_731520.elts[27] = ((closureN)self_73732)->elts[27]; +c_731520.elts[28] = ((closureN)self_73732)->elts[28]; +c_731520.elts[29] = ((closureN)self_73732)->elts[29]; +c_731520.elts[30] = ((closureN)self_73732)->elts[30]; +c_731520.elts[31] = ((closureN)self_73732)->elts[31]; +c_731520.elts[32] = ((closureN)self_73732)->elts[32]; +c_731520.elts[33] = ((closureN)self_73732)->elts[33]; +c_731520.elts[34] = ((closureN)self_73732)->elts[34]; +c_731520.elts[35] = ((closureN)self_73732)->elts[35]; +c_731520.elts[36] = ((closureN)self_73732)->elts[36]; +c_731520.elts[37] = ((closureN)self_73732)->elts[37]; + + +closureN_type c_733027; +c_733027.hdr.mark = gc_color_red; + c_733027.hdr.grayed = 0; +c_733027.tag = closureN_tag; + c_733027.fn = (function_type)__lambda_409; +c_733027.num_args = 1; +c_733027.num_elt = 2; +c_733027.elts = (object *)alloca(sizeof(object) * 2); +c_733027.elts[0] = ((closureN)self_73732)->elts[21]; +c_733027.elts[1] = ((closureN)self_73732)->elts[32]; + +return_closcall1(data,(closure)&c_731520, &c_733027);; +} + +static void __lambda_409(void *data, int argc, object self_73733, object k_73543, object term_73229) { + +closureN_type c_733029; +c_733029.hdr.mark = gc_color_red; + c_733029.hdr.grayed = 0; +c_733029.tag = closureN_tag; + c_733029.fn = (function_type)__lambda_408; +c_733029.num_args = 1; +c_733029.num_elt = 4; +c_733029.elts = (object *)alloca(sizeof(object) * 4); +c_733029.elts[0] = k_73543; +c_733029.elts[1] = ((closureN)self_73733)->elts[0]; +c_733029.elts[2] = term_73229; +c_733029.elts[3] = ((closureN)self_73733)->elts[1]; + +return_closcall1(data,(closure)&c_733029, Cyc_is_cons(term_73229));; +} + +static void __lambda_408(void *data, int argc, object self_73734, object r_73544) { + if( !eq(boolean_f, r_73544) ){ + +closureN_type c_733031; +c_733031.hdr.mark = gc_color_red; + c_733031.hdr.grayed = 0; +c_733031.tag = closureN_tag; + c_733031.fn = (function_type)__lambda_406; +c_733031.num_args = 0; +c_733031.num_elt = 4; +c_733031.elts = (object *)alloca(sizeof(object) * 4); +c_733031.elts[0] = ((closureN)self_73734)->elts[0]; +c_733031.elts[1] = ((closureN)self_73734)->elts[1]; +c_733031.elts[2] = ((closureN)self_73734)->elts[2]; +c_733031.elts[3] = ((closureN)self_73734)->elts[3]; + +return_closcall0(data,(closure)&c_733031); +} else { + +closureN_type c_733059; +c_733059.hdr.mark = gc_color_red; + c_733059.hdr.grayed = 0; +c_733059.tag = closureN_tag; + c_733059.fn = (function_type)__lambda_407; +c_733059.num_args = 0; +c_733059.num_elt = 2; +c_733059.elts = (object *)alloca(sizeof(object) * 2); +c_733059.elts[0] = ((closureN)self_73734)->elts[0]; +c_733059.elts[1] = ((closureN)self_73734)->elts[2]; + +return_closcall0(data,(closure)&c_733059);} +; +} + +static void __lambda_407(void *data, int argc, object self_73735) { + return_closcall1(data, ((closureN)self_73735)->elts[0], ((closureN)self_73735)->elts[1]);; +} + +static void __lambda_406(void *data, int argc, object self_73736) { + +closureN_type c_733033; +c_733033.hdr.mark = gc_color_red; + c_733033.hdr.grayed = 0; +c_733033.tag = closureN_tag; + c_733033.fn = (function_type)__lambda_405; +c_733033.num_args = 1; +c_733033.num_elt = 4; +c_733033.elts = (object *)alloca(sizeof(object) * 4); +c_733033.elts[0] = ((closureN)self_73736)->elts[0]; +c_733033.elts[1] = ((closureN)self_73736)->elts[1]; +c_733033.elts[2] = ((closureN)self_73736)->elts[2]; +c_733033.elts[3] = ((closureN)self_73736)->elts[3]; + +return_closcall1(data,(closure)&c_733033, car(((closureN)self_73736)->elts[2]));; +} + +static void __lambda_405(void *data, int argc, object self_73737, object r_73548) { + +closureN_type c_733038; +c_733038.hdr.mark = gc_color_red; + c_733038.hdr.grayed = 0; +c_733038.tag = closureN_tag; + c_733038.fn = (function_type)__lambda_404; +c_733038.num_args = 1; +c_733038.num_elt = 3; +c_733038.elts = (object *)alloca(sizeof(object) * 3); +c_733038.elts[0] = ((closureN)self_73737)->elts[0]; +c_733038.elts[1] = ((closureN)self_73737)->elts[2]; +c_733038.elts[2] = ((closureN)self_73737)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73737)->elts[1]), &c_733038, r_73548);; +} + +static void __lambda_404(void *data, int argc, object self_73738, object r_73545) { + +closureN_type c_733040; +c_733040.hdr.mark = gc_color_red; + c_733040.hdr.grayed = 0; +c_733040.tag = closureN_tag; + c_733040.fn = (function_type)__lambda_403; +c_733040.num_args = 1; +c_733040.num_elt = 3; +c_733040.elts = (object *)alloca(sizeof(object) * 3); +c_733040.elts[0] = ((closureN)self_73738)->elts[0]; +c_733040.elts[1] = r_73545; +c_733040.elts[2] = ((closureN)self_73738)->elts[2]; + +return_closcall1(data,(closure)&c_733040, cdr(((closureN)self_73738)->elts[1]));; +} + +static void __lambda_403(void *data, int argc, object self_73739, object r_73547) { + +closureN_type c_733045; +c_733045.hdr.mark = gc_color_red; + c_733045.hdr.grayed = 0; +c_733045.tag = closureN_tag; + c_733045.fn = (function_type)__lambda_402; +c_733045.num_args = 1; +c_733045.num_elt = 2; +c_733045.elts = (object *)alloca(sizeof(object) * 2); +c_733045.elts[0] = ((closureN)self_73739)->elts[0]; +c_733045.elts[1] = ((closureN)self_73739)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73739)->elts[2]), &c_733045, r_73547);; +} + +static void __lambda_402(void *data, int argc, object self_73740, object r_73546) { + +make_cons(c_733050,((closureN)self_73740)->elts[1], r_73546); +return_closcall1(data, ((closureN)self_73740)->elts[0], &c_733050);; +} + +static void __lambda_401(void *data, int argc, object self_73741, object r_73542) { + +closureN_type c_731522; +c_731522.hdr.mark = gc_color_red; + c_731522.hdr.grayed = 0; +c_731522.tag = closureN_tag; + c_731522.fn = (function_type)__lambda_400; +c_731522.num_args = 1; +c_731522.num_elt = 38; +c_731522.elts = (object *)alloca(sizeof(object) * 38); +c_731522.elts[0] = ((closureN)self_73741)->elts[0]; +c_731522.elts[1] = ((closureN)self_73741)->elts[1]; +c_731522.elts[2] = ((closureN)self_73741)->elts[2]; +c_731522.elts[3] = ((closureN)self_73741)->elts[3]; +c_731522.elts[4] = ((closureN)self_73741)->elts[4]; +c_731522.elts[5] = ((closureN)self_73741)->elts[5]; +c_731522.elts[6] = ((closureN)self_73741)->elts[6]; +c_731522.elts[7] = ((closureN)self_73741)->elts[7]; +c_731522.elts[8] = ((closureN)self_73741)->elts[8]; +c_731522.elts[9] = ((closureN)self_73741)->elts[9]; +c_731522.elts[10] = ((closureN)self_73741)->elts[10]; +c_731522.elts[11] = ((closureN)self_73741)->elts[11]; +c_731522.elts[12] = ((closureN)self_73741)->elts[12]; +c_731522.elts[13] = ((closureN)self_73741)->elts[13]; +c_731522.elts[14] = ((closureN)self_73741)->elts[14]; +c_731522.elts[15] = ((closureN)self_73741)->elts[15]; +c_731522.elts[16] = ((closureN)self_73741)->elts[16]; +c_731522.elts[17] = ((closureN)self_73741)->elts[17]; +c_731522.elts[18] = ((closureN)self_73741)->elts[18]; +c_731522.elts[19] = ((closureN)self_73741)->elts[19]; +c_731522.elts[20] = ((closureN)self_73741)->elts[20]; +c_731522.elts[21] = ((closureN)self_73741)->elts[21]; +c_731522.elts[22] = ((closureN)self_73741)->elts[22]; +c_731522.elts[23] = ((closureN)self_73741)->elts[23]; +c_731522.elts[24] = ((closureN)self_73741)->elts[24]; +c_731522.elts[25] = ((closureN)self_73741)->elts[25]; +c_731522.elts[26] = ((closureN)self_73741)->elts[26]; +c_731522.elts[27] = ((closureN)self_73741)->elts[27]; +c_731522.elts[28] = ((closureN)self_73741)->elts[28]; +c_731522.elts[29] = ((closureN)self_73741)->elts[29]; +c_731522.elts[30] = ((closureN)self_73741)->elts[30]; +c_731522.elts[31] = ((closureN)self_73741)->elts[31]; +c_731522.elts[32] = ((closureN)self_73741)->elts[32]; +c_731522.elts[33] = ((closureN)self_73741)->elts[33]; +c_731522.elts[34] = ((closureN)self_73741)->elts[34]; +c_731522.elts[35] = ((closureN)self_73741)->elts[35]; +c_731522.elts[36] = ((closureN)self_73741)->elts[36]; +c_731522.elts[37] = ((closureN)self_73741)->elts[37]; + +return_closcall1(data,(closure)&c_731522, Cyc_set_car(data, ((closureN)self_73741)->elts[33], r_73542));; +} + +static void __lambda_400(void *data, int argc, object self_73742, object r_73272) { + +closureN_type c_731524; +c_731524.hdr.mark = gc_color_red; + c_731524.hdr.grayed = 0; +c_731524.tag = closureN_tag; + c_731524.fn = (function_type)__lambda_391; +c_731524.num_args = 1; +c_731524.num_elt = 38; +c_731524.elts = (object *)alloca(sizeof(object) * 38); +c_731524.elts[0] = ((closureN)self_73742)->elts[0]; +c_731524.elts[1] = ((closureN)self_73742)->elts[1]; +c_731524.elts[2] = ((closureN)self_73742)->elts[2]; +c_731524.elts[3] = ((closureN)self_73742)->elts[3]; +c_731524.elts[4] = ((closureN)self_73742)->elts[4]; +c_731524.elts[5] = ((closureN)self_73742)->elts[5]; +c_731524.elts[6] = ((closureN)self_73742)->elts[6]; +c_731524.elts[7] = ((closureN)self_73742)->elts[7]; +c_731524.elts[8] = ((closureN)self_73742)->elts[8]; +c_731524.elts[9] = ((closureN)self_73742)->elts[9]; +c_731524.elts[10] = ((closureN)self_73742)->elts[10]; +c_731524.elts[11] = ((closureN)self_73742)->elts[11]; +c_731524.elts[12] = ((closureN)self_73742)->elts[12]; +c_731524.elts[13] = ((closureN)self_73742)->elts[13]; +c_731524.elts[14] = ((closureN)self_73742)->elts[14]; +c_731524.elts[15] = ((closureN)self_73742)->elts[15]; +c_731524.elts[16] = ((closureN)self_73742)->elts[16]; +c_731524.elts[17] = ((closureN)self_73742)->elts[17]; +c_731524.elts[18] = ((closureN)self_73742)->elts[18]; +c_731524.elts[19] = ((closureN)self_73742)->elts[19]; +c_731524.elts[20] = ((closureN)self_73742)->elts[20]; +c_731524.elts[21] = ((closureN)self_73742)->elts[21]; +c_731524.elts[22] = ((closureN)self_73742)->elts[22]; +c_731524.elts[23] = ((closureN)self_73742)->elts[23]; +c_731524.elts[24] = ((closureN)self_73742)->elts[24]; +c_731524.elts[25] = ((closureN)self_73742)->elts[25]; +c_731524.elts[26] = ((closureN)self_73742)->elts[26]; +c_731524.elts[27] = ((closureN)self_73742)->elts[27]; +c_731524.elts[28] = ((closureN)self_73742)->elts[28]; +c_731524.elts[29] = ((closureN)self_73742)->elts[29]; +c_731524.elts[30] = ((closureN)self_73742)->elts[30]; +c_731524.elts[31] = ((closureN)self_73742)->elts[31]; +c_731524.elts[32] = ((closureN)self_73742)->elts[32]; +c_731524.elts[33] = ((closureN)self_73742)->elts[33]; +c_731524.elts[34] = ((closureN)self_73742)->elts[34]; +c_731524.elts[35] = ((closureN)self_73742)->elts[35]; +c_731524.elts[36] = ((closureN)self_73742)->elts[36]; +c_731524.elts[37] = ((closureN)self_73742)->elts[37]; + + +closureN_type c_732987; +c_732987.hdr.mark = gc_color_red; + c_732987.hdr.grayed = 0; +c_732987.tag = closureN_tag; + c_732987.fn = (function_type)__lambda_399; +c_732987.num_args = 1; +c_732987.num_elt = 2; +c_732987.elts = (object *)alloca(sizeof(object) * 2); +c_732987.elts[0] = ((closureN)self_73742)->elts[32]; +c_732987.elts[1] = ((closureN)self_73742)->elts[33]; + +return_closcall1(data,(closure)&c_731524, &c_732987);; +} + +static void __lambda_399(void *data, int argc, object self_73743, object k_73536, object lst_73228) { + +closureN_type c_732989; +c_732989.hdr.mark = gc_color_red; + c_732989.hdr.grayed = 0; +c_732989.tag = closureN_tag; + c_732989.fn = (function_type)__lambda_398; +c_732989.num_args = 1; +c_732989.num_elt = 4; +c_732989.elts = (object *)alloca(sizeof(object) * 4); +c_732989.elts[0] = k_73536; +c_732989.elts[1] = lst_73228; +c_732989.elts[2] = ((closureN)self_73743)->elts[0]; +c_732989.elts[3] = ((closureN)self_73743)->elts[1]; + +return_closcall1(data,(closure)&c_732989, Cyc_is_null(lst_73228));; +} + +static void __lambda_398(void *data, int argc, object self_73744, object r_73537) { + if( !eq(boolean_f, r_73537) ){ + +closureN_type c_732991; +c_732991.hdr.mark = gc_color_red; + c_732991.hdr.grayed = 0; +c_732991.tag = closureN_tag; + c_732991.fn = (function_type)__lambda_392; +c_732991.num_args = 0; +c_732991.num_elt = 1; +c_732991.elts = (object *)alloca(sizeof(object) * 1); +c_732991.elts[0] = ((closureN)self_73744)->elts[0]; + +return_closcall0(data,(closure)&c_732991); +} else { + +closureN_type c_732995; +c_732995.hdr.mark = gc_color_red; + c_732995.hdr.grayed = 0; +c_732995.tag = closureN_tag; + c_732995.fn = (function_type)__lambda_397; +c_732995.num_args = 0; +c_732995.num_elt = 4; +c_732995.elts = (object *)alloca(sizeof(object) * 4); +c_732995.elts[0] = ((closureN)self_73744)->elts[0]; +c_732995.elts[1] = ((closureN)self_73744)->elts[1]; +c_732995.elts[2] = ((closureN)self_73744)->elts[2]; +c_732995.elts[3] = ((closureN)self_73744)->elts[3]; + +return_closcall0(data,(closure)&c_732995);} +; +} + +static void __lambda_397(void *data, int argc, object self_73745) { + +closureN_type c_732997; +c_732997.hdr.mark = gc_color_red; + c_732997.hdr.grayed = 0; +c_732997.tag = closureN_tag; + c_732997.fn = (function_type)__lambda_396; +c_732997.num_args = 1; +c_732997.num_elt = 4; +c_732997.elts = (object *)alloca(sizeof(object) * 4); +c_732997.elts[0] = ((closureN)self_73745)->elts[0]; +c_732997.elts[1] = ((closureN)self_73745)->elts[1]; +c_732997.elts[2] = ((closureN)self_73745)->elts[2]; +c_732997.elts[3] = ((closureN)self_73745)->elts[3]; + +return_closcall1(data,(closure)&c_732997, car(((closureN)self_73745)->elts[1]));; +} + +static void __lambda_396(void *data, int argc, object self_73746, object r_73541) { + +closureN_type c_733002; +c_733002.hdr.mark = gc_color_red; + c_733002.hdr.grayed = 0; +c_733002.tag = closureN_tag; + c_733002.fn = (function_type)__lambda_395; +c_733002.num_args = 1; +c_733002.num_elt = 3; +c_733002.elts = (object *)alloca(sizeof(object) * 3); +c_733002.elts[0] = ((closureN)self_73746)->elts[0]; +c_733002.elts[1] = ((closureN)self_73746)->elts[1]; +c_733002.elts[2] = ((closureN)self_73746)->elts[2]; + +return_closcall2(data, cell_get(((closureN)self_73746)->elts[3]), &c_733002, r_73541);; +} + +static void __lambda_395(void *data, int argc, object self_73747, object r_73538) { + +closureN_type c_733004; +c_733004.hdr.mark = gc_color_red; + c_733004.hdr.grayed = 0; +c_733004.tag = closureN_tag; + c_733004.fn = (function_type)__lambda_394; +c_733004.num_args = 1; +c_733004.num_elt = 3; +c_733004.elts = (object *)alloca(sizeof(object) * 3); +c_733004.elts[0] = ((closureN)self_73747)->elts[0]; +c_733004.elts[1] = r_73538; +c_733004.elts[2] = ((closureN)self_73747)->elts[2]; + +return_closcall1(data,(closure)&c_733004, cdr(((closureN)self_73747)->elts[1]));; +} + +static void __lambda_394(void *data, int argc, object self_73748, object r_73540) { + +closureN_type c_733009; +c_733009.hdr.mark = gc_color_red; + c_733009.hdr.grayed = 0; +c_733009.tag = closureN_tag; + c_733009.fn = (function_type)__lambda_393; +c_733009.num_args = 1; +c_733009.num_elt = 2; +c_733009.elts = (object *)alloca(sizeof(object) * 2); +c_733009.elts[0] = ((closureN)self_73748)->elts[0]; +c_733009.elts[1] = ((closureN)self_73748)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73748)->elts[2]), &c_733009, r_73540);; +} + +static void __lambda_393(void *data, int argc, object self_73749, object r_73539) { + +make_cons(c_733014,((closureN)self_73749)->elts[1], r_73539); +return_closcall1(data, ((closureN)self_73749)->elts[0], &c_733014);; +} + +static void __lambda_392(void *data, int argc, object self_73750) { + return_closcall1(data, ((closureN)self_73750)->elts[0], nil);; +} + +static void __lambda_391(void *data, int argc, object self_73751, object r_73535) { + +closureN_type c_731526; +c_731526.hdr.mark = gc_color_red; + c_731526.hdr.grayed = 0; +c_731526.tag = closureN_tag; + c_731526.fn = (function_type)__lambda_390; +c_731526.num_args = 1; +c_731526.num_elt = 37; +c_731526.elts = (object *)alloca(sizeof(object) * 37); +c_731526.elts[0] = ((closureN)self_73751)->elts[0]; +c_731526.elts[1] = ((closureN)self_73751)->elts[1]; +c_731526.elts[2] = ((closureN)self_73751)->elts[2]; +c_731526.elts[3] = ((closureN)self_73751)->elts[3]; +c_731526.elts[4] = ((closureN)self_73751)->elts[4]; +c_731526.elts[5] = ((closureN)self_73751)->elts[5]; +c_731526.elts[6] = ((closureN)self_73751)->elts[6]; +c_731526.elts[7] = ((closureN)self_73751)->elts[7]; +c_731526.elts[8] = ((closureN)self_73751)->elts[8]; +c_731526.elts[9] = ((closureN)self_73751)->elts[9]; +c_731526.elts[10] = ((closureN)self_73751)->elts[10]; +c_731526.elts[11] = ((closureN)self_73751)->elts[11]; +c_731526.elts[12] = ((closureN)self_73751)->elts[12]; +c_731526.elts[13] = ((closureN)self_73751)->elts[13]; +c_731526.elts[14] = ((closureN)self_73751)->elts[14]; +c_731526.elts[15] = ((closureN)self_73751)->elts[15]; +c_731526.elts[16] = ((closureN)self_73751)->elts[16]; +c_731526.elts[17] = ((closureN)self_73751)->elts[17]; +c_731526.elts[18] = ((closureN)self_73751)->elts[18]; +c_731526.elts[19] = ((closureN)self_73751)->elts[19]; +c_731526.elts[20] = ((closureN)self_73751)->elts[20]; +c_731526.elts[21] = ((closureN)self_73751)->elts[21]; +c_731526.elts[22] = ((closureN)self_73751)->elts[22]; +c_731526.elts[23] = ((closureN)self_73751)->elts[23]; +c_731526.elts[24] = ((closureN)self_73751)->elts[24]; +c_731526.elts[25] = ((closureN)self_73751)->elts[25]; +c_731526.elts[26] = ((closureN)self_73751)->elts[26]; +c_731526.elts[27] = ((closureN)self_73751)->elts[27]; +c_731526.elts[28] = ((closureN)self_73751)->elts[28]; +c_731526.elts[29] = ((closureN)self_73751)->elts[29]; +c_731526.elts[30] = ((closureN)self_73751)->elts[30]; +c_731526.elts[31] = ((closureN)self_73751)->elts[31]; +c_731526.elts[32] = ((closureN)self_73751)->elts[33]; +c_731526.elts[33] = ((closureN)self_73751)->elts[34]; +c_731526.elts[34] = ((closureN)self_73751)->elts[35]; +c_731526.elts[35] = ((closureN)self_73751)->elts[36]; +c_731526.elts[36] = ((closureN)self_73751)->elts[37]; + +return_closcall1(data,(closure)&c_731526, Cyc_set_car(data, ((closureN)self_73751)->elts[32], r_73535));; +} + +static void __lambda_390(void *data, int argc, object self_73752, object r_73273) { + +closureN_type c_731528; +c_731528.hdr.mark = gc_color_red; + c_731528.hdr.grayed = 0; +c_731528.tag = closureN_tag; + c_731528.fn = (function_type)__lambda_381; +c_731528.num_args = 1; +c_731528.num_elt = 37; +c_731528.elts = (object *)alloca(sizeof(object) * 37); +c_731528.elts[0] = ((closureN)self_73752)->elts[0]; +c_731528.elts[1] = ((closureN)self_73752)->elts[1]; +c_731528.elts[2] = ((closureN)self_73752)->elts[2]; +c_731528.elts[3] = ((closureN)self_73752)->elts[3]; +c_731528.elts[4] = ((closureN)self_73752)->elts[4]; +c_731528.elts[5] = ((closureN)self_73752)->elts[5]; +c_731528.elts[6] = ((closureN)self_73752)->elts[6]; +c_731528.elts[7] = ((closureN)self_73752)->elts[7]; +c_731528.elts[8] = ((closureN)self_73752)->elts[8]; +c_731528.elts[9] = ((closureN)self_73752)->elts[9]; +c_731528.elts[10] = ((closureN)self_73752)->elts[10]; +c_731528.elts[11] = ((closureN)self_73752)->elts[11]; +c_731528.elts[12] = ((closureN)self_73752)->elts[12]; +c_731528.elts[13] = ((closureN)self_73752)->elts[13]; +c_731528.elts[14] = ((closureN)self_73752)->elts[14]; +c_731528.elts[15] = ((closureN)self_73752)->elts[15]; +c_731528.elts[16] = ((closureN)self_73752)->elts[16]; +c_731528.elts[17] = ((closureN)self_73752)->elts[17]; +c_731528.elts[18] = ((closureN)self_73752)->elts[18]; +c_731528.elts[19] = ((closureN)self_73752)->elts[19]; +c_731528.elts[20] = ((closureN)self_73752)->elts[20]; +c_731528.elts[21] = ((closureN)self_73752)->elts[21]; +c_731528.elts[22] = ((closureN)self_73752)->elts[22]; +c_731528.elts[23] = ((closureN)self_73752)->elts[23]; +c_731528.elts[24] = ((closureN)self_73752)->elts[24]; +c_731528.elts[25] = ((closureN)self_73752)->elts[25]; +c_731528.elts[26] = ((closureN)self_73752)->elts[26]; +c_731528.elts[27] = ((closureN)self_73752)->elts[27]; +c_731528.elts[28] = ((closureN)self_73752)->elts[28]; +c_731528.elts[29] = ((closureN)self_73752)->elts[29]; +c_731528.elts[30] = ((closureN)self_73752)->elts[30]; +c_731528.elts[31] = ((closureN)self_73752)->elts[31]; +c_731528.elts[32] = ((closureN)self_73752)->elts[32]; +c_731528.elts[33] = ((closureN)self_73752)->elts[33]; +c_731528.elts[34] = ((closureN)self_73752)->elts[34]; +c_731528.elts[35] = ((closureN)self_73752)->elts[35]; +c_731528.elts[36] = ((closureN)self_73752)->elts[36]; + + +closureN_type c_732946; +c_732946.hdr.mark = gc_color_red; + c_732946.hdr.grayed = 0; +c_732946.tag = closureN_tag; + c_732946.fn = (function_type)__lambda_389; +c_732946.num_args = 1; +c_732946.num_elt = 2; +c_732946.elts = (object *)alloca(sizeof(object) * 2); +c_732946.elts[0] = ((closureN)self_73752)->elts[7]; +c_732946.elts[1] = ((closureN)self_73752)->elts[36]; + +return_closcall1(data,(closure)&c_731528, &c_732946);; +} + +static void __lambda_389(void *data, int argc, object self_73753, object k_73529, object term_73227) { + +closureN_type c_732948; +c_732948.hdr.mark = gc_color_red; + c_732948.hdr.grayed = 0; +c_732948.tag = closureN_tag; + c_732948.fn = (function_type)__lambda_388; +c_732948.num_args = 1; +c_732948.num_elt = 4; +c_732948.elts = (object *)alloca(sizeof(object) * 4); +c_732948.elts[0] = ((closureN)self_73753)->elts[0]; +c_732948.elts[1] = k_73529; +c_732948.elts[2] = term_73227; +c_732948.elts[3] = ((closureN)self_73753)->elts[1]; + +return_closcall1(data,(closure)&c_732948, Cyc_is_cons(term_73227));; +} + +static void __lambda_388(void *data, int argc, object self_73754, object r_73530) { + if( !eq(boolean_f, r_73530) ){ + +closureN_type c_732950; +c_732950.hdr.mark = gc_color_red; + c_732950.hdr.grayed = 0; +c_732950.tag = closureN_tag; + c_732950.fn = (function_type)__lambda_386; +c_732950.num_args = 0; +c_732950.num_elt = 4; +c_732950.elts = (object *)alloca(sizeof(object) * 4); +c_732950.elts[0] = ((closureN)self_73754)->elts[0]; +c_732950.elts[1] = ((closureN)self_73754)->elts[1]; +c_732950.elts[2] = ((closureN)self_73754)->elts[2]; +c_732950.elts[3] = ((closureN)self_73754)->elts[3]; + +return_closcall0(data,(closure)&c_732950); +} else { + +closureN_type c_732978; +c_732978.hdr.mark = gc_color_red; + c_732978.hdr.grayed = 0; +c_732978.tag = closureN_tag; + c_732978.fn = (function_type)__lambda_387; +c_732978.num_args = 0; +c_732978.num_elt = 2; +c_732978.elts = (object *)alloca(sizeof(object) * 2); +c_732978.elts[0] = ((closureN)self_73754)->elts[1]; +c_732978.elts[1] = ((closureN)self_73754)->elts[2]; + +return_closcall0(data,(closure)&c_732978);} +; +} + +static void __lambda_387(void *data, int argc, object self_73755) { + return_closcall1(data, ((closureN)self_73755)->elts[0], ((closureN)self_73755)->elts[1]);; +} + +static void __lambda_386(void *data, int argc, object self_73756) { + +closureN_type c_732952; +c_732952.hdr.mark = gc_color_red; + c_732952.hdr.grayed = 0; +c_732952.tag = closureN_tag; + c_732952.fn = (function_type)__lambda_385; +c_732952.num_args = 1; +c_732952.num_elt = 4; +c_732952.elts = (object *)alloca(sizeof(object) * 4); +c_732952.elts[0] = ((closureN)self_73756)->elts[0]; +c_732952.elts[1] = ((closureN)self_73756)->elts[1]; +c_732952.elts[2] = ((closureN)self_73756)->elts[2]; +c_732952.elts[3] = ((closureN)self_73756)->elts[3]; + +return_closcall1(data,(closure)&c_732952, car(((closureN)self_73756)->elts[2]));; +} + +static void __lambda_385(void *data, int argc, object self_73757, object r_73534) { + +closureN_type c_732957; +c_732957.hdr.mark = gc_color_red; + c_732957.hdr.grayed = 0; +c_732957.tag = closureN_tag; + c_732957.fn = (function_type)__lambda_384; +c_732957.num_args = 1; +c_732957.num_elt = 3; +c_732957.elts = (object *)alloca(sizeof(object) * 3); +c_732957.elts[0] = ((closureN)self_73757)->elts[1]; +c_732957.elts[1] = ((closureN)self_73757)->elts[2]; +c_732957.elts[2] = ((closureN)self_73757)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73757)->elts[0]), &c_732957, r_73534);; +} + +static void __lambda_384(void *data, int argc, object self_73758, object r_73531) { + +closureN_type c_732959; +c_732959.hdr.mark = gc_color_red; + c_732959.hdr.grayed = 0; +c_732959.tag = closureN_tag; + c_732959.fn = (function_type)__lambda_383; +c_732959.num_args = 1; +c_732959.num_elt = 3; +c_732959.elts = (object *)alloca(sizeof(object) * 3); +c_732959.elts[0] = ((closureN)self_73758)->elts[0]; +c_732959.elts[1] = r_73531; +c_732959.elts[2] = ((closureN)self_73758)->elts[2]; + +return_closcall1(data,(closure)&c_732959, cdr(((closureN)self_73758)->elts[1]));; +} + +static void __lambda_383(void *data, int argc, object self_73759, object r_73533) { + +closureN_type c_732961; +c_732961.hdr.mark = gc_color_red; + c_732961.hdr.grayed = 0; +c_732961.tag = closureN_tag; + c_732961.fn = (function_type)__lambda_382; +c_732961.num_args = 1; +c_732961.num_elt = 2; +c_732961.elts = (object *)alloca(sizeof(object) * 2); +c_732961.elts[0] = ((closureN)self_73759)->elts[0]; +c_732961.elts[1] = ((closureN)self_73759)->elts[1]; + +return_closcall3(data, __glo_map_scheme_base, &c_732961, cell_get(((closureN)self_73759)->elts[2]), r_73533);; +} + +static void __lambda_382(void *data, int argc, object self_73760, object r_73532) { + +make_cons(c_732966,((closureN)self_73760)->elts[1], r_73532); +return_closcall1(data, ((closureN)self_73760)->elts[0], &c_732966);; +} + +static void __lambda_381(void *data, int argc, object self_73761, object r_73528) { + +closureN_type c_731530; +c_731530.hdr.mark = gc_color_red; + c_731530.hdr.grayed = 0; +c_731530.tag = closureN_tag; + c_731530.fn = (function_type)__lambda_380; +c_731530.num_args = 1; +c_731530.num_elt = 36; +c_731530.elts = (object *)alloca(sizeof(object) * 36); +c_731530.elts[0] = ((closureN)self_73761)->elts[0]; +c_731530.elts[1] = ((closureN)self_73761)->elts[1]; +c_731530.elts[2] = ((closureN)self_73761)->elts[2]; +c_731530.elts[3] = ((closureN)self_73761)->elts[3]; +c_731530.elts[4] = ((closureN)self_73761)->elts[4]; +c_731530.elts[5] = ((closureN)self_73761)->elts[5]; +c_731530.elts[6] = ((closureN)self_73761)->elts[6]; +c_731530.elts[7] = ((closureN)self_73761)->elts[7]; +c_731530.elts[8] = ((closureN)self_73761)->elts[8]; +c_731530.elts[9] = ((closureN)self_73761)->elts[9]; +c_731530.elts[10] = ((closureN)self_73761)->elts[10]; +c_731530.elts[11] = ((closureN)self_73761)->elts[11]; +c_731530.elts[12] = ((closureN)self_73761)->elts[12]; +c_731530.elts[13] = ((closureN)self_73761)->elts[13]; +c_731530.elts[14] = ((closureN)self_73761)->elts[14]; +c_731530.elts[15] = ((closureN)self_73761)->elts[15]; +c_731530.elts[16] = ((closureN)self_73761)->elts[16]; +c_731530.elts[17] = ((closureN)self_73761)->elts[17]; +c_731530.elts[18] = ((closureN)self_73761)->elts[18]; +c_731530.elts[19] = ((closureN)self_73761)->elts[19]; +c_731530.elts[20] = ((closureN)self_73761)->elts[20]; +c_731530.elts[21] = ((closureN)self_73761)->elts[21]; +c_731530.elts[22] = ((closureN)self_73761)->elts[22]; +c_731530.elts[23] = ((closureN)self_73761)->elts[23]; +c_731530.elts[24] = ((closureN)self_73761)->elts[24]; +c_731530.elts[25] = ((closureN)self_73761)->elts[25]; +c_731530.elts[26] = ((closureN)self_73761)->elts[26]; +c_731530.elts[27] = ((closureN)self_73761)->elts[27]; +c_731530.elts[28] = ((closureN)self_73761)->elts[28]; +c_731530.elts[29] = ((closureN)self_73761)->elts[29]; +c_731530.elts[30] = ((closureN)self_73761)->elts[30]; +c_731530.elts[31] = ((closureN)self_73761)->elts[31]; +c_731530.elts[32] = ((closureN)self_73761)->elts[32]; +c_731530.elts[33] = ((closureN)self_73761)->elts[33]; +c_731530.elts[34] = ((closureN)self_73761)->elts[34]; +c_731530.elts[35] = ((closureN)self_73761)->elts[35]; + +return_closcall1(data,(closure)&c_731530, Cyc_set_car(data, ((closureN)self_73761)->elts[36], r_73528));; +} + +static void __lambda_380(void *data, int argc, object self_73762, object r_73274) { + +closureN_type c_731532; +c_731532.hdr.mark = gc_color_red; + c_731532.hdr.grayed = 0; +c_731532.tag = closureN_tag; + c_731532.fn = (function_type)__lambda_377; +c_731532.num_args = 1; +c_731532.num_elt = 36; +c_731532.elts = (object *)alloca(sizeof(object) * 36); +c_731532.elts[0] = ((closureN)self_73762)->elts[0]; +c_731532.elts[1] = ((closureN)self_73762)->elts[1]; +c_731532.elts[2] = ((closureN)self_73762)->elts[2]; +c_731532.elts[3] = ((closureN)self_73762)->elts[3]; +c_731532.elts[4] = ((closureN)self_73762)->elts[4]; +c_731532.elts[5] = ((closureN)self_73762)->elts[5]; +c_731532.elts[6] = ((closureN)self_73762)->elts[6]; +c_731532.elts[7] = ((closureN)self_73762)->elts[7]; +c_731532.elts[8] = ((closureN)self_73762)->elts[8]; +c_731532.elts[9] = ((closureN)self_73762)->elts[9]; +c_731532.elts[10] = ((closureN)self_73762)->elts[10]; +c_731532.elts[11] = ((closureN)self_73762)->elts[11]; +c_731532.elts[12] = ((closureN)self_73762)->elts[12]; +c_731532.elts[13] = ((closureN)self_73762)->elts[13]; +c_731532.elts[14] = ((closureN)self_73762)->elts[14]; +c_731532.elts[15] = ((closureN)self_73762)->elts[15]; +c_731532.elts[16] = ((closureN)self_73762)->elts[16]; +c_731532.elts[17] = ((closureN)self_73762)->elts[17]; +c_731532.elts[18] = ((closureN)self_73762)->elts[18]; +c_731532.elts[19] = ((closureN)self_73762)->elts[19]; +c_731532.elts[20] = ((closureN)self_73762)->elts[20]; +c_731532.elts[21] = ((closureN)self_73762)->elts[21]; +c_731532.elts[22] = ((closureN)self_73762)->elts[22]; +c_731532.elts[23] = ((closureN)self_73762)->elts[23]; +c_731532.elts[24] = ((closureN)self_73762)->elts[24]; +c_731532.elts[25] = ((closureN)self_73762)->elts[25]; +c_731532.elts[26] = ((closureN)self_73762)->elts[26]; +c_731532.elts[27] = ((closureN)self_73762)->elts[27]; +c_731532.elts[28] = ((closureN)self_73762)->elts[28]; +c_731532.elts[29] = ((closureN)self_73762)->elts[29]; +c_731532.elts[30] = ((closureN)self_73762)->elts[30]; +c_731532.elts[31] = ((closureN)self_73762)->elts[31]; +c_731532.elts[32] = ((closureN)self_73762)->elts[32]; +c_731532.elts[33] = ((closureN)self_73762)->elts[33]; +c_731532.elts[34] = ((closureN)self_73762)->elts[34]; +c_731532.elts[35] = ((closureN)self_73762)->elts[35]; + + +closureN_type c_732931; +c_732931.hdr.mark = gc_color_red; + c_732931.hdr.grayed = 0; +c_732931.tag = closureN_tag; + c_732931.fn = (function_type)__lambda_379; +c_732931.num_args = 3; +c_732931.num_elt = 2; +c_732931.elts = (object *)alloca(sizeof(object) * 2); +c_732931.elts[0] = ((closureN)self_73762)->elts[14]; +c_732931.elts[1] = ((closureN)self_73762)->elts[21]; + +return_closcall1(data,(closure)&c_731532, &c_732931);; +} + +static void __lambda_379(void *data, int argc, object self_73763, object k_73526, object sym_73226, object property_73225, object value_73224) { + +closureN_type c_732936; +c_732936.hdr.mark = gc_color_red; + c_732936.hdr.grayed = 0; +c_732936.tag = closureN_tag; + c_732936.fn = (function_type)__lambda_378; +c_732936.num_args = 1; +c_732936.num_elt = 3; +c_732936.elts = (object *)alloca(sizeof(object) * 3); +c_732936.elts[0] = k_73526; +c_732936.elts[1] = ((closureN)self_73763)->elts[0]; +c_732936.elts[2] = value_73224; + +return_closcall2(data, cell_get(((closureN)self_73763)->elts[1]), &c_732936, sym_73226);; +} + +static void __lambda_378(void *data, int argc, object self_73764, object r_73527) { + return_closcall3(data, cell_get(((closureN)self_73764)->elts[1]), ((closureN)self_73764)->elts[0], r_73527, ((closureN)self_73764)->elts[2]);; +} + +static void __lambda_377(void *data, int argc, object self_73765, object r_73525) { + +closureN_type c_731534; +c_731534.hdr.mark = gc_color_red; + c_731534.hdr.grayed = 0; +c_731534.tag = closureN_tag; + c_731534.fn = (function_type)__lambda_376; +c_731534.num_args = 1; +c_731534.num_elt = 35; +c_731534.elts = (object *)alloca(sizeof(object) * 35); +c_731534.elts[0] = ((closureN)self_73765)->elts[0]; +c_731534.elts[1] = ((closureN)self_73765)->elts[1]; +c_731534.elts[2] = ((closureN)self_73765)->elts[2]; +c_731534.elts[3] = ((closureN)self_73765)->elts[3]; +c_731534.elts[4] = ((closureN)self_73765)->elts[4]; +c_731534.elts[5] = ((closureN)self_73765)->elts[5]; +c_731534.elts[6] = ((closureN)self_73765)->elts[6]; +c_731534.elts[7] = ((closureN)self_73765)->elts[7]; +c_731534.elts[8] = ((closureN)self_73765)->elts[8]; +c_731534.elts[9] = ((closureN)self_73765)->elts[9]; +c_731534.elts[10] = ((closureN)self_73765)->elts[10]; +c_731534.elts[11] = ((closureN)self_73765)->elts[11]; +c_731534.elts[12] = ((closureN)self_73765)->elts[12]; +c_731534.elts[13] = ((closureN)self_73765)->elts[14]; +c_731534.elts[14] = ((closureN)self_73765)->elts[15]; +c_731534.elts[15] = ((closureN)self_73765)->elts[16]; +c_731534.elts[16] = ((closureN)self_73765)->elts[17]; +c_731534.elts[17] = ((closureN)self_73765)->elts[18]; +c_731534.elts[18] = ((closureN)self_73765)->elts[19]; +c_731534.elts[19] = ((closureN)self_73765)->elts[20]; +c_731534.elts[20] = ((closureN)self_73765)->elts[21]; +c_731534.elts[21] = ((closureN)self_73765)->elts[22]; +c_731534.elts[22] = ((closureN)self_73765)->elts[23]; +c_731534.elts[23] = ((closureN)self_73765)->elts[24]; +c_731534.elts[24] = ((closureN)self_73765)->elts[25]; +c_731534.elts[25] = ((closureN)self_73765)->elts[26]; +c_731534.elts[26] = ((closureN)self_73765)->elts[27]; +c_731534.elts[27] = ((closureN)self_73765)->elts[28]; +c_731534.elts[28] = ((closureN)self_73765)->elts[29]; +c_731534.elts[29] = ((closureN)self_73765)->elts[30]; +c_731534.elts[30] = ((closureN)self_73765)->elts[31]; +c_731534.elts[31] = ((closureN)self_73765)->elts[32]; +c_731534.elts[32] = ((closureN)self_73765)->elts[33]; +c_731534.elts[33] = ((closureN)self_73765)->elts[34]; +c_731534.elts[34] = ((closureN)self_73765)->elts[35]; + +return_closcall1(data,(closure)&c_731534, Cyc_set_car(data, ((closureN)self_73765)->elts[13], r_73525));; +} + +static void __lambda_376(void *data, int argc, object self_73766, object r_73275) { + +closureN_type c_731536; +c_731536.hdr.mark = gc_color_red; + c_731536.hdr.grayed = 0; +c_731536.tag = closureN_tag; + c_731536.fn = (function_type)__lambda_373; +c_731536.num_args = 1; +c_731536.num_elt = 35; +c_731536.elts = (object *)alloca(sizeof(object) * 35); +c_731536.elts[0] = ((closureN)self_73766)->elts[0]; +c_731536.elts[1] = ((closureN)self_73766)->elts[1]; +c_731536.elts[2] = ((closureN)self_73766)->elts[2]; +c_731536.elts[3] = ((closureN)self_73766)->elts[3]; +c_731536.elts[4] = ((closureN)self_73766)->elts[4]; +c_731536.elts[5] = ((closureN)self_73766)->elts[5]; +c_731536.elts[6] = ((closureN)self_73766)->elts[6]; +c_731536.elts[7] = ((closureN)self_73766)->elts[7]; +c_731536.elts[8] = ((closureN)self_73766)->elts[8]; +c_731536.elts[9] = ((closureN)self_73766)->elts[9]; +c_731536.elts[10] = ((closureN)self_73766)->elts[10]; +c_731536.elts[11] = ((closureN)self_73766)->elts[11]; +c_731536.elts[12] = ((closureN)self_73766)->elts[12]; +c_731536.elts[13] = ((closureN)self_73766)->elts[13]; +c_731536.elts[14] = ((closureN)self_73766)->elts[14]; +c_731536.elts[15] = ((closureN)self_73766)->elts[15]; +c_731536.elts[16] = ((closureN)self_73766)->elts[16]; +c_731536.elts[17] = ((closureN)self_73766)->elts[17]; +c_731536.elts[18] = ((closureN)self_73766)->elts[18]; +c_731536.elts[19] = ((closureN)self_73766)->elts[19]; +c_731536.elts[20] = ((closureN)self_73766)->elts[20]; +c_731536.elts[21] = ((closureN)self_73766)->elts[21]; +c_731536.elts[22] = ((closureN)self_73766)->elts[22]; +c_731536.elts[23] = ((closureN)self_73766)->elts[23]; +c_731536.elts[24] = ((closureN)self_73766)->elts[24]; +c_731536.elts[25] = ((closureN)self_73766)->elts[25]; +c_731536.elts[26] = ((closureN)self_73766)->elts[26]; +c_731536.elts[27] = ((closureN)self_73766)->elts[27]; +c_731536.elts[28] = ((closureN)self_73766)->elts[28]; +c_731536.elts[29] = ((closureN)self_73766)->elts[29]; +c_731536.elts[30] = ((closureN)self_73766)->elts[30]; +c_731536.elts[31] = ((closureN)self_73766)->elts[31]; +c_731536.elts[32] = ((closureN)self_73766)->elts[32]; +c_731536.elts[33] = ((closureN)self_73766)->elts[33]; +c_731536.elts[34] = ((closureN)self_73766)->elts[34]; + + +closureN_type c_732917; +c_732917.hdr.mark = gc_color_red; + c_732917.hdr.grayed = 0; +c_732917.tag = closureN_tag; + c_732917.fn = (function_type)__lambda_375; +c_732917.num_args = 2; +c_732917.num_elt = 2; +c_732917.elts = (object *)alloca(sizeof(object) * 2); +c_732917.elts[0] = ((closureN)self_73766)->elts[6]; +c_732917.elts[1] = ((closureN)self_73766)->elts[20]; + +return_closcall1(data,(closure)&c_731536, &c_732917);; +} + +static void __lambda_375(void *data, int argc, object self_73767, object k_73523, object sym_73223, object property_73222) { + +closureN_type c_732922; +c_732922.hdr.mark = gc_color_red; + c_732922.hdr.grayed = 0; +c_732922.tag = closureN_tag; + c_732922.fn = (function_type)__lambda_374; +c_732922.num_args = 1; +c_732922.num_elt = 2; +c_732922.elts = (object *)alloca(sizeof(object) * 2); +c_732922.elts[0] = ((closureN)self_73767)->elts[0]; +c_732922.elts[1] = k_73523; + +return_closcall2(data, cell_get(((closureN)self_73767)->elts[1]), &c_732922, sym_73223);; +} + +static void __lambda_374(void *data, int argc, object self_73768, object r_73524) { + return_closcall2(data, cell_get(((closureN)self_73768)->elts[0]), ((closureN)self_73768)->elts[1], r_73524);; +} + +static void __lambda_373(void *data, int argc, object self_73769, object r_73522) { + +closureN_type c_731538; +c_731538.hdr.mark = gc_color_red; + c_731538.hdr.grayed = 0; +c_731538.tag = closureN_tag; + c_731538.fn = (function_type)__lambda_372; +c_731538.num_args = 1; +c_731538.num_elt = 34; +c_731538.elts = (object *)alloca(sizeof(object) * 34); +c_731538.elts[0] = ((closureN)self_73769)->elts[0]; +c_731538.elts[1] = ((closureN)self_73769)->elts[1]; +c_731538.elts[2] = ((closureN)self_73769)->elts[2]; +c_731538.elts[3] = ((closureN)self_73769)->elts[3]; +c_731538.elts[4] = ((closureN)self_73769)->elts[4]; +c_731538.elts[5] = ((closureN)self_73769)->elts[6]; +c_731538.elts[6] = ((closureN)self_73769)->elts[7]; +c_731538.elts[7] = ((closureN)self_73769)->elts[8]; +c_731538.elts[8] = ((closureN)self_73769)->elts[9]; +c_731538.elts[9] = ((closureN)self_73769)->elts[10]; +c_731538.elts[10] = ((closureN)self_73769)->elts[11]; +c_731538.elts[11] = ((closureN)self_73769)->elts[12]; +c_731538.elts[12] = ((closureN)self_73769)->elts[13]; +c_731538.elts[13] = ((closureN)self_73769)->elts[14]; +c_731538.elts[14] = ((closureN)self_73769)->elts[15]; +c_731538.elts[15] = ((closureN)self_73769)->elts[16]; +c_731538.elts[16] = ((closureN)self_73769)->elts[17]; +c_731538.elts[17] = ((closureN)self_73769)->elts[18]; +c_731538.elts[18] = ((closureN)self_73769)->elts[19]; +c_731538.elts[19] = ((closureN)self_73769)->elts[20]; +c_731538.elts[20] = ((closureN)self_73769)->elts[21]; +c_731538.elts[21] = ((closureN)self_73769)->elts[22]; +c_731538.elts[22] = ((closureN)self_73769)->elts[23]; +c_731538.elts[23] = ((closureN)self_73769)->elts[24]; +c_731538.elts[24] = ((closureN)self_73769)->elts[25]; +c_731538.elts[25] = ((closureN)self_73769)->elts[26]; +c_731538.elts[26] = ((closureN)self_73769)->elts[27]; +c_731538.elts[27] = ((closureN)self_73769)->elts[28]; +c_731538.elts[28] = ((closureN)self_73769)->elts[29]; +c_731538.elts[29] = ((closureN)self_73769)->elts[30]; +c_731538.elts[30] = ((closureN)self_73769)->elts[31]; +c_731538.elts[31] = ((closureN)self_73769)->elts[32]; +c_731538.elts[32] = ((closureN)self_73769)->elts[33]; +c_731538.elts[33] = ((closureN)self_73769)->elts[34]; + +return_closcall1(data,(closure)&c_731538, Cyc_set_car(data, ((closureN)self_73769)->elts[5], r_73522));; +} + +static void __lambda_372(void *data, int argc, object self_73770, object r_73276) { + +closureN_type c_731540; +c_731540.hdr.mark = gc_color_red; + c_731540.hdr.grayed = 0; +c_731540.tag = closureN_tag; + c_731540.fn = (function_type)__lambda_365; +c_731540.num_args = 1; +c_731540.num_elt = 34; +c_731540.elts = (object *)alloca(sizeof(object) * 34); +c_731540.elts[0] = ((closureN)self_73770)->elts[0]; +c_731540.elts[1] = ((closureN)self_73770)->elts[1]; +c_731540.elts[2] = ((closureN)self_73770)->elts[2]; +c_731540.elts[3] = ((closureN)self_73770)->elts[3]; +c_731540.elts[4] = ((closureN)self_73770)->elts[4]; +c_731540.elts[5] = ((closureN)self_73770)->elts[5]; +c_731540.elts[6] = ((closureN)self_73770)->elts[6]; +c_731540.elts[7] = ((closureN)self_73770)->elts[7]; +c_731540.elts[8] = ((closureN)self_73770)->elts[8]; +c_731540.elts[9] = ((closureN)self_73770)->elts[9]; +c_731540.elts[10] = ((closureN)self_73770)->elts[10]; +c_731540.elts[11] = ((closureN)self_73770)->elts[11]; +c_731540.elts[12] = ((closureN)self_73770)->elts[12]; +c_731540.elts[13] = ((closureN)self_73770)->elts[13]; +c_731540.elts[14] = ((closureN)self_73770)->elts[14]; +c_731540.elts[15] = ((closureN)self_73770)->elts[15]; +c_731540.elts[16] = ((closureN)self_73770)->elts[16]; +c_731540.elts[17] = ((closureN)self_73770)->elts[17]; +c_731540.elts[18] = ((closureN)self_73770)->elts[18]; +c_731540.elts[19] = ((closureN)self_73770)->elts[19]; +c_731540.elts[20] = ((closureN)self_73770)->elts[20]; +c_731540.elts[21] = ((closureN)self_73770)->elts[21]; +c_731540.elts[22] = ((closureN)self_73770)->elts[22]; +c_731540.elts[23] = ((closureN)self_73770)->elts[23]; +c_731540.elts[24] = ((closureN)self_73770)->elts[24]; +c_731540.elts[25] = ((closureN)self_73770)->elts[25]; +c_731540.elts[26] = ((closureN)self_73770)->elts[26]; +c_731540.elts[27] = ((closureN)self_73770)->elts[27]; +c_731540.elts[28] = ((closureN)self_73770)->elts[28]; +c_731540.elts[29] = ((closureN)self_73770)->elts[29]; +c_731540.elts[30] = ((closureN)self_73770)->elts[30]; +c_731540.elts[31] = ((closureN)self_73770)->elts[31]; +c_731540.elts[32] = ((closureN)self_73770)->elts[32]; +c_731540.elts[33] = ((closureN)self_73770)->elts[33]; + + +closureN_type c_732874; +c_732874.hdr.mark = gc_color_red; + c_732874.hdr.grayed = 0; +c_732874.tag = closureN_tag; + c_732874.fn = (function_type)__lambda_371; +c_732874.num_args = 1; +c_732874.num_elt = 2; +c_732874.elts = (object *)alloca(sizeof(object) * 2); +c_732874.elts[0] = ((closureN)self_73770)->elts[0]; +c_732874.elts[1] = ((closureN)self_73770)->elts[8]; + +return_closcall1(data,(closure)&c_731540, &c_732874);; +} + +static void __lambda_371(void *data, int argc, object self_73771, object k_73516, object sym_73219) { + +closureN_type c_732876; +c_732876.hdr.mark = gc_color_red; + c_732876.hdr.grayed = 0; +c_732876.tag = closureN_tag; + c_732876.fn = (function_type)__lambda_370; +c_732876.num_args = 1; +c_732876.num_elt = 4; +c_732876.elts = (object *)alloca(sizeof(object) * 4); +c_732876.elts[0] = ((closureN)self_73771)->elts[0]; +c_732876.elts[1] = k_73516; +c_732876.elts[2] = ((closureN)self_73771)->elts[1]; +c_732876.elts[3] = sym_73219; + +return_closcall1(data,(closure)&c_732876, assq(data, sym_73219, cell_get(((closureN)self_73771)->elts[0])));; +} + +static void __lambda_370(void *data, int argc, object self_73772, object x_73220) { + if( !eq(boolean_f, x_73220) ){ + return_closcall1(data, ((closureN)self_73772)->elts[1], cdr(x_73220)); +} else { + +closureN_type c_732885; +c_732885.hdr.mark = gc_color_red; + c_732885.hdr.grayed = 0; +c_732885.tag = closureN_tag; + c_732885.fn = (function_type)__lambda_369; +c_732885.num_args = 1; +c_732885.num_elt = 3; +c_732885.elts = (object *)alloca(sizeof(object) * 3); +c_732885.elts[0] = ((closureN)self_73772)->elts[0]; +c_732885.elts[1] = ((closureN)self_73772)->elts[1]; +c_732885.elts[2] = ((closureN)self_73772)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73772)->elts[2]), &c_732885, ((closureN)self_73772)->elts[3]);} +; +} + +static void __lambda_369(void *data, int argc, object self_73773, object r_73221) { + +closureN_type c_732887; +c_732887.hdr.mark = gc_color_red; + c_732887.hdr.grayed = 0; +c_732887.tag = closureN_tag; + c_732887.fn = (function_type)__lambda_368; +c_732887.num_args = 1; +c_732887.num_elt = 3; +c_732887.elts = (object *)alloca(sizeof(object) * 3); +c_732887.elts[0] = ((closureN)self_73773)->elts[0]; +c_732887.elts[1] = ((closureN)self_73773)->elts[1]; +c_732887.elts[2] = r_73221; + + +make_cons(c_732906,((closureN)self_73773)->elts[2], r_73221); +return_closcall1(data,(closure)&c_732887, &c_732906);; +} + +static void __lambda_368(void *data, int argc, object self_73774, object r_73521) { + +closureN_type c_732889; +c_732889.hdr.mark = gc_color_red; + c_732889.hdr.grayed = 0; +c_732889.tag = closureN_tag; + c_732889.fn = (function_type)__lambda_367; +c_732889.num_args = 1; +c_732889.num_elt = 3; +c_732889.elts = (object *)alloca(sizeof(object) * 3); +c_732889.elts[0] = ((closureN)self_73774)->elts[0]; +c_732889.elts[1] = ((closureN)self_73774)->elts[1]; +c_732889.elts[2] = ((closureN)self_73774)->elts[2]; + + +make_cons(c_732900,r_73521, cell_get(((closureN)self_73774)->elts[0])); +return_closcall1(data,(closure)&c_732889, &c_732900);; +} + +static void __lambda_367(void *data, int argc, object self_73775, object r_73520) { + +closureN_type c_732891; +c_732891.hdr.mark = gc_color_red; + c_732891.hdr.grayed = 0; +c_732891.tag = closureN_tag; + c_732891.fn = (function_type)__lambda_366; +c_732891.num_args = 1; +c_732891.num_elt = 2; +c_732891.elts = (object *)alloca(sizeof(object) * 2); +c_732891.elts[0] = ((closureN)self_73775)->elts[1]; +c_732891.elts[1] = ((closureN)self_73775)->elts[2]; + +return_closcall1(data,(closure)&c_732891, Cyc_set_car(data, ((closureN)self_73775)->elts[0], r_73520));; +} + +static void __lambda_366(void *data, int argc, object self_73776, object r_73519) { + return_closcall1(data, ((closureN)self_73776)->elts[0], ((closureN)self_73776)->elts[1]);; +} + +static void __lambda_365(void *data, int argc, object self_73777, object r_73515) { + +closureN_type c_731542; +c_731542.hdr.mark = gc_color_red; + c_731542.hdr.grayed = 0; +c_731542.tag = closureN_tag; + c_731542.fn = (function_type)__lambda_364; +c_731542.num_args = 1; +c_731542.num_elt = 34; +c_731542.elts = (object *)alloca(sizeof(object) * 34); +c_731542.elts[0] = ((closureN)self_73777)->elts[0]; +c_731542.elts[1] = ((closureN)self_73777)->elts[1]; +c_731542.elts[2] = ((closureN)self_73777)->elts[2]; +c_731542.elts[3] = ((closureN)self_73777)->elts[3]; +c_731542.elts[4] = ((closureN)self_73777)->elts[4]; +c_731542.elts[5] = ((closureN)self_73777)->elts[5]; +c_731542.elts[6] = ((closureN)self_73777)->elts[6]; +c_731542.elts[7] = ((closureN)self_73777)->elts[7]; +c_731542.elts[8] = ((closureN)self_73777)->elts[8]; +c_731542.elts[9] = ((closureN)self_73777)->elts[9]; +c_731542.elts[10] = ((closureN)self_73777)->elts[10]; +c_731542.elts[11] = ((closureN)self_73777)->elts[11]; +c_731542.elts[12] = ((closureN)self_73777)->elts[12]; +c_731542.elts[13] = ((closureN)self_73777)->elts[13]; +c_731542.elts[14] = ((closureN)self_73777)->elts[14]; +c_731542.elts[15] = ((closureN)self_73777)->elts[15]; +c_731542.elts[16] = ((closureN)self_73777)->elts[16]; +c_731542.elts[17] = ((closureN)self_73777)->elts[17]; +c_731542.elts[18] = ((closureN)self_73777)->elts[18]; +c_731542.elts[19] = ((closureN)self_73777)->elts[19]; +c_731542.elts[20] = ((closureN)self_73777)->elts[20]; +c_731542.elts[21] = ((closureN)self_73777)->elts[21]; +c_731542.elts[22] = ((closureN)self_73777)->elts[22]; +c_731542.elts[23] = ((closureN)self_73777)->elts[23]; +c_731542.elts[24] = ((closureN)self_73777)->elts[24]; +c_731542.elts[25] = ((closureN)self_73777)->elts[25]; +c_731542.elts[26] = ((closureN)self_73777)->elts[26]; +c_731542.elts[27] = ((closureN)self_73777)->elts[27]; +c_731542.elts[28] = ((closureN)self_73777)->elts[28]; +c_731542.elts[29] = ((closureN)self_73777)->elts[29]; +c_731542.elts[30] = ((closureN)self_73777)->elts[30]; +c_731542.elts[31] = ((closureN)self_73777)->elts[31]; +c_731542.elts[32] = ((closureN)self_73777)->elts[32]; +c_731542.elts[33] = ((closureN)self_73777)->elts[33]; + +return_closcall1(data,(closure)&c_731542, Cyc_set_car(data, ((closureN)self_73777)->elts[19], r_73515));; +} + +static void __lambda_364(void *data, int argc, object self_73778, object r_73277) { + +closureN_type c_731544; +c_731544.hdr.mark = gc_color_red; + c_731544.hdr.grayed = 0; +c_731544.tag = closureN_tag; + c_731544.fn = (function_type)__lambda_363; +c_731544.num_args = 1; +c_731544.num_elt = 34; +c_731544.elts = (object *)alloca(sizeof(object) * 34); +c_731544.elts[0] = ((closureN)self_73778)->elts[0]; +c_731544.elts[1] = ((closureN)self_73778)->elts[1]; +c_731544.elts[2] = ((closureN)self_73778)->elts[2]; +c_731544.elts[3] = ((closureN)self_73778)->elts[3]; +c_731544.elts[4] = ((closureN)self_73778)->elts[4]; +c_731544.elts[5] = ((closureN)self_73778)->elts[5]; +c_731544.elts[6] = ((closureN)self_73778)->elts[6]; +c_731544.elts[7] = ((closureN)self_73778)->elts[7]; +c_731544.elts[8] = ((closureN)self_73778)->elts[8]; +c_731544.elts[9] = ((closureN)self_73778)->elts[9]; +c_731544.elts[10] = ((closureN)self_73778)->elts[10]; +c_731544.elts[11] = ((closureN)self_73778)->elts[11]; +c_731544.elts[12] = ((closureN)self_73778)->elts[12]; +c_731544.elts[13] = ((closureN)self_73778)->elts[13]; +c_731544.elts[14] = ((closureN)self_73778)->elts[14]; +c_731544.elts[15] = ((closureN)self_73778)->elts[15]; +c_731544.elts[16] = ((closureN)self_73778)->elts[16]; +c_731544.elts[17] = ((closureN)self_73778)->elts[17]; +c_731544.elts[18] = ((closureN)self_73778)->elts[18]; +c_731544.elts[19] = ((closureN)self_73778)->elts[19]; +c_731544.elts[20] = ((closureN)self_73778)->elts[20]; +c_731544.elts[21] = ((closureN)self_73778)->elts[21]; +c_731544.elts[22] = ((closureN)self_73778)->elts[22]; +c_731544.elts[23] = ((closureN)self_73778)->elts[23]; +c_731544.elts[24] = ((closureN)self_73778)->elts[24]; +c_731544.elts[25] = ((closureN)self_73778)->elts[25]; +c_731544.elts[26] = ((closureN)self_73778)->elts[26]; +c_731544.elts[27] = ((closureN)self_73778)->elts[27]; +c_731544.elts[28] = ((closureN)self_73778)->elts[28]; +c_731544.elts[29] = ((closureN)self_73778)->elts[29]; +c_731544.elts[30] = ((closureN)self_73778)->elts[30]; +c_731544.elts[31] = ((closureN)self_73778)->elts[31]; +c_731544.elts[32] = ((closureN)self_73778)->elts[32]; +c_731544.elts[33] = ((closureN)self_73778)->elts[33]; + +return_closcall1(data,(closure)&c_731544, nil);; +} + +static void __lambda_363(void *data, int argc, object self_73779, object r_73514) { + +closureN_type c_731546; +c_731546.hdr.mark = gc_color_red; + c_731546.hdr.grayed = 0; +c_731546.tag = closureN_tag; + c_731546.fn = (function_type)__lambda_362; +c_731546.num_args = 1; +c_731546.num_elt = 34; +c_731546.elts = (object *)alloca(sizeof(object) * 34); +c_731546.elts[0] = ((closureN)self_73779)->elts[0]; +c_731546.elts[1] = ((closureN)self_73779)->elts[1]; +c_731546.elts[2] = ((closureN)self_73779)->elts[2]; +c_731546.elts[3] = ((closureN)self_73779)->elts[3]; +c_731546.elts[4] = ((closureN)self_73779)->elts[4]; +c_731546.elts[5] = ((closureN)self_73779)->elts[5]; +c_731546.elts[6] = ((closureN)self_73779)->elts[6]; +c_731546.elts[7] = ((closureN)self_73779)->elts[7]; +c_731546.elts[8] = ((closureN)self_73779)->elts[8]; +c_731546.elts[9] = ((closureN)self_73779)->elts[9]; +c_731546.elts[10] = ((closureN)self_73779)->elts[10]; +c_731546.elts[11] = ((closureN)self_73779)->elts[11]; +c_731546.elts[12] = ((closureN)self_73779)->elts[12]; +c_731546.elts[13] = ((closureN)self_73779)->elts[13]; +c_731546.elts[14] = ((closureN)self_73779)->elts[14]; +c_731546.elts[15] = ((closureN)self_73779)->elts[15]; +c_731546.elts[16] = ((closureN)self_73779)->elts[16]; +c_731546.elts[17] = ((closureN)self_73779)->elts[17]; +c_731546.elts[18] = ((closureN)self_73779)->elts[18]; +c_731546.elts[19] = ((closureN)self_73779)->elts[19]; +c_731546.elts[20] = ((closureN)self_73779)->elts[20]; +c_731546.elts[21] = ((closureN)self_73779)->elts[21]; +c_731546.elts[22] = ((closureN)self_73779)->elts[22]; +c_731546.elts[23] = ((closureN)self_73779)->elts[23]; +c_731546.elts[24] = ((closureN)self_73779)->elts[24]; +c_731546.elts[25] = ((closureN)self_73779)->elts[25]; +c_731546.elts[26] = ((closureN)self_73779)->elts[26]; +c_731546.elts[27] = ((closureN)self_73779)->elts[27]; +c_731546.elts[28] = ((closureN)self_73779)->elts[28]; +c_731546.elts[29] = ((closureN)self_73779)->elts[29]; +c_731546.elts[30] = ((closureN)self_73779)->elts[30]; +c_731546.elts[31] = ((closureN)self_73779)->elts[31]; +c_731546.elts[32] = ((closureN)self_73779)->elts[32]; +c_731546.elts[33] = ((closureN)self_73779)->elts[33]; + +return_closcall1(data,(closure)&c_731546, Cyc_set_car(data, ((closureN)self_73779)->elts[0], r_73514));; +} + +static void __lambda_362(void *data, int argc, object self_73780, object r_73278) { + +closureN_type c_731548; +c_731548.hdr.mark = gc_color_red; + c_731548.hdr.grayed = 0; +c_731548.tag = closureN_tag; + c_731548.fn = (function_type)__lambda_359; +c_731548.num_args = 1; +c_731548.num_elt = 34; +c_731548.elts = (object *)alloca(sizeof(object) * 34); +c_731548.elts[0] = ((closureN)self_73780)->elts[0]; +c_731548.elts[1] = ((closureN)self_73780)->elts[1]; +c_731548.elts[2] = ((closureN)self_73780)->elts[2]; +c_731548.elts[3] = ((closureN)self_73780)->elts[3]; +c_731548.elts[4] = ((closureN)self_73780)->elts[4]; +c_731548.elts[5] = ((closureN)self_73780)->elts[5]; +c_731548.elts[6] = ((closureN)self_73780)->elts[6]; +c_731548.elts[7] = ((closureN)self_73780)->elts[7]; +c_731548.elts[8] = ((closureN)self_73780)->elts[8]; +c_731548.elts[9] = ((closureN)self_73780)->elts[9]; +c_731548.elts[10] = ((closureN)self_73780)->elts[10]; +c_731548.elts[11] = ((closureN)self_73780)->elts[11]; +c_731548.elts[12] = ((closureN)self_73780)->elts[12]; +c_731548.elts[13] = ((closureN)self_73780)->elts[13]; +c_731548.elts[14] = ((closureN)self_73780)->elts[14]; +c_731548.elts[15] = ((closureN)self_73780)->elts[15]; +c_731548.elts[16] = ((closureN)self_73780)->elts[16]; +c_731548.elts[17] = ((closureN)self_73780)->elts[17]; +c_731548.elts[18] = ((closureN)self_73780)->elts[18]; +c_731548.elts[19] = ((closureN)self_73780)->elts[19]; +c_731548.elts[20] = ((closureN)self_73780)->elts[20]; +c_731548.elts[21] = ((closureN)self_73780)->elts[21]; +c_731548.elts[22] = ((closureN)self_73780)->elts[22]; +c_731548.elts[23] = ((closureN)self_73780)->elts[23]; +c_731548.elts[24] = ((closureN)self_73780)->elts[24]; +c_731548.elts[25] = ((closureN)self_73780)->elts[25]; +c_731548.elts[26] = ((closureN)self_73780)->elts[26]; +c_731548.elts[27] = ((closureN)self_73780)->elts[27]; +c_731548.elts[28] = ((closureN)self_73780)->elts[28]; +c_731548.elts[29] = ((closureN)self_73780)->elts[29]; +c_731548.elts[30] = ((closureN)self_73780)->elts[30]; +c_731548.elts[31] = ((closureN)self_73780)->elts[31]; +c_731548.elts[32] = ((closureN)self_73780)->elts[32]; +c_731548.elts[33] = ((closureN)self_73780)->elts[33]; + + +mclosure0(c_732862, (function_type)__lambda_361);c_732862.num_args = 1; +return_closcall1(data,(closure)&c_731548, &c_732862);; +} + +static void __lambda_361(void *data, int argc, object self_73781, object k_73512, object sym_73218) { + +closureN_type c_732864; +c_732864.hdr.mark = gc_color_red; + c_732864.hdr.grayed = 0; +c_732864.tag = closureN_tag; + c_732864.fn = (function_type)__lambda_360; +c_732864.num_args = 1; +c_732864.num_elt = 2; +c_732864.elts = (object *)alloca(sizeof(object) * 2); +c_732864.elts[0] = k_73512; +c_732864.elts[1] = sym_73218; + +return_closcall1(data,(closure)&c_732864, nil);; +} + +static void __lambda_360(void *data, int argc, object self_73782, object r_73513) { + return_closcall3(data, __glo_vector_scheme_base, ((closureN)self_73782)->elts[0], ((closureN)self_73782)->elts[1], r_73513);; +} + +static void __lambda_359(void *data, int argc, object self_73783, object r_73511) { + +closureN_type c_731550; +c_731550.hdr.mark = gc_color_red; + c_731550.hdr.grayed = 0; +c_731550.tag = closureN_tag; + c_731550.fn = (function_type)__lambda_358; +c_731550.num_args = 1; +c_731550.num_elt = 33; +c_731550.elts = (object *)alloca(sizeof(object) * 33); +c_731550.elts[0] = ((closureN)self_73783)->elts[0]; +c_731550.elts[1] = ((closureN)self_73783)->elts[1]; +c_731550.elts[2] = ((closureN)self_73783)->elts[2]; +c_731550.elts[3] = ((closureN)self_73783)->elts[3]; +c_731550.elts[4] = ((closureN)self_73783)->elts[4]; +c_731550.elts[5] = ((closureN)self_73783)->elts[5]; +c_731550.elts[6] = ((closureN)self_73783)->elts[6]; +c_731550.elts[7] = ((closureN)self_73783)->elts[7]; +c_731550.elts[8] = ((closureN)self_73783)->elts[9]; +c_731550.elts[9] = ((closureN)self_73783)->elts[10]; +c_731550.elts[10] = ((closureN)self_73783)->elts[11]; +c_731550.elts[11] = ((closureN)self_73783)->elts[12]; +c_731550.elts[12] = ((closureN)self_73783)->elts[13]; +c_731550.elts[13] = ((closureN)self_73783)->elts[14]; +c_731550.elts[14] = ((closureN)self_73783)->elts[15]; +c_731550.elts[15] = ((closureN)self_73783)->elts[16]; +c_731550.elts[16] = ((closureN)self_73783)->elts[17]; +c_731550.elts[17] = ((closureN)self_73783)->elts[18]; +c_731550.elts[18] = ((closureN)self_73783)->elts[19]; +c_731550.elts[19] = ((closureN)self_73783)->elts[20]; +c_731550.elts[20] = ((closureN)self_73783)->elts[21]; +c_731550.elts[21] = ((closureN)self_73783)->elts[22]; +c_731550.elts[22] = ((closureN)self_73783)->elts[23]; +c_731550.elts[23] = ((closureN)self_73783)->elts[24]; +c_731550.elts[24] = ((closureN)self_73783)->elts[25]; +c_731550.elts[25] = ((closureN)self_73783)->elts[26]; +c_731550.elts[26] = ((closureN)self_73783)->elts[27]; +c_731550.elts[27] = ((closureN)self_73783)->elts[28]; +c_731550.elts[28] = ((closureN)self_73783)->elts[29]; +c_731550.elts[29] = ((closureN)self_73783)->elts[30]; +c_731550.elts[30] = ((closureN)self_73783)->elts[31]; +c_731550.elts[31] = ((closureN)self_73783)->elts[32]; +c_731550.elts[32] = ((closureN)self_73783)->elts[33]; + +return_closcall1(data,(closure)&c_731550, Cyc_set_car(data, ((closureN)self_73783)->elts[8], r_73511));; +} + +static void __lambda_358(void *data, int argc, object self_73784, object r_73279) { + +closureN_type c_731552; +c_731552.hdr.mark = gc_color_red; + c_731552.hdr.grayed = 0; +c_731552.tag = closureN_tag; + c_731552.fn = (function_type)__lambda_356; +c_731552.num_args = 1; +c_731552.num_elt = 33; +c_731552.elts = (object *)alloca(sizeof(object) * 33); +c_731552.elts[0] = ((closureN)self_73784)->elts[0]; +c_731552.elts[1] = ((closureN)self_73784)->elts[1]; +c_731552.elts[2] = ((closureN)self_73784)->elts[2]; +c_731552.elts[3] = ((closureN)self_73784)->elts[3]; +c_731552.elts[4] = ((closureN)self_73784)->elts[4]; +c_731552.elts[5] = ((closureN)self_73784)->elts[5]; +c_731552.elts[6] = ((closureN)self_73784)->elts[6]; +c_731552.elts[7] = ((closureN)self_73784)->elts[7]; +c_731552.elts[8] = ((closureN)self_73784)->elts[8]; +c_731552.elts[9] = ((closureN)self_73784)->elts[9]; +c_731552.elts[10] = ((closureN)self_73784)->elts[10]; +c_731552.elts[11] = ((closureN)self_73784)->elts[11]; +c_731552.elts[12] = ((closureN)self_73784)->elts[12]; +c_731552.elts[13] = ((closureN)self_73784)->elts[13]; +c_731552.elts[14] = ((closureN)self_73784)->elts[14]; +c_731552.elts[15] = ((closureN)self_73784)->elts[15]; +c_731552.elts[16] = ((closureN)self_73784)->elts[16]; +c_731552.elts[17] = ((closureN)self_73784)->elts[17]; +c_731552.elts[18] = ((closureN)self_73784)->elts[18]; +c_731552.elts[19] = ((closureN)self_73784)->elts[19]; +c_731552.elts[20] = ((closureN)self_73784)->elts[20]; +c_731552.elts[21] = ((closureN)self_73784)->elts[21]; +c_731552.elts[22] = ((closureN)self_73784)->elts[22]; +c_731552.elts[23] = ((closureN)self_73784)->elts[23]; +c_731552.elts[24] = ((closureN)self_73784)->elts[24]; +c_731552.elts[25] = ((closureN)self_73784)->elts[25]; +c_731552.elts[26] = ((closureN)self_73784)->elts[26]; +c_731552.elts[27] = ((closureN)self_73784)->elts[27]; +c_731552.elts[28] = ((closureN)self_73784)->elts[28]; +c_731552.elts[29] = ((closureN)self_73784)->elts[29]; +c_731552.elts[30] = ((closureN)self_73784)->elts[30]; +c_731552.elts[31] = ((closureN)self_73784)->elts[31]; +c_731552.elts[32] = ((closureN)self_73784)->elts[32]; + + +mclosure0(c_732855, (function_type)__lambda_357);c_732855.num_args = 2; +return_closcall1(data,(closure)&c_731552, &c_732855);; +} + +static void __lambda_357(void *data, int argc, object self_73785, object k_73510, object symbol_91record_73217, object lemmas_73216) { + return_closcall1(data, k_73510, Cyc_vector_set(data, symbol_91record_73217, obj_int2obj(1), lemmas_73216));; +} + +static void __lambda_356(void *data, int argc, object self_73786, object r_73509) { + +closureN_type c_731554; +c_731554.hdr.mark = gc_color_red; + c_731554.hdr.grayed = 0; +c_731554.tag = closureN_tag; + c_731554.fn = (function_type)__lambda_355; +c_731554.num_args = 1; +c_731554.num_elt = 32; +c_731554.elts = (object *)alloca(sizeof(object) * 32); +c_731554.elts[0] = ((closureN)self_73786)->elts[0]; +c_731554.elts[1] = ((closureN)self_73786)->elts[1]; +c_731554.elts[2] = ((closureN)self_73786)->elts[2]; +c_731554.elts[3] = ((closureN)self_73786)->elts[3]; +c_731554.elts[4] = ((closureN)self_73786)->elts[4]; +c_731554.elts[5] = ((closureN)self_73786)->elts[5]; +c_731554.elts[6] = ((closureN)self_73786)->elts[6]; +c_731554.elts[7] = ((closureN)self_73786)->elts[7]; +c_731554.elts[8] = ((closureN)self_73786)->elts[8]; +c_731554.elts[9] = ((closureN)self_73786)->elts[9]; +c_731554.elts[10] = ((closureN)self_73786)->elts[10]; +c_731554.elts[11] = ((closureN)self_73786)->elts[12]; +c_731554.elts[12] = ((closureN)self_73786)->elts[13]; +c_731554.elts[13] = ((closureN)self_73786)->elts[14]; +c_731554.elts[14] = ((closureN)self_73786)->elts[15]; +c_731554.elts[15] = ((closureN)self_73786)->elts[16]; +c_731554.elts[16] = ((closureN)self_73786)->elts[17]; +c_731554.elts[17] = ((closureN)self_73786)->elts[18]; +c_731554.elts[18] = ((closureN)self_73786)->elts[19]; +c_731554.elts[19] = ((closureN)self_73786)->elts[20]; +c_731554.elts[20] = ((closureN)self_73786)->elts[21]; +c_731554.elts[21] = ((closureN)self_73786)->elts[22]; +c_731554.elts[22] = ((closureN)self_73786)->elts[23]; +c_731554.elts[23] = ((closureN)self_73786)->elts[24]; +c_731554.elts[24] = ((closureN)self_73786)->elts[25]; +c_731554.elts[25] = ((closureN)self_73786)->elts[26]; +c_731554.elts[26] = ((closureN)self_73786)->elts[27]; +c_731554.elts[27] = ((closureN)self_73786)->elts[28]; +c_731554.elts[28] = ((closureN)self_73786)->elts[29]; +c_731554.elts[29] = ((closureN)self_73786)->elts[30]; +c_731554.elts[30] = ((closureN)self_73786)->elts[31]; +c_731554.elts[31] = ((closureN)self_73786)->elts[32]; + +return_closcall1(data,(closure)&c_731554, Cyc_set_car(data, ((closureN)self_73786)->elts[11], r_73509));; +} + +static void __lambda_355(void *data, int argc, object self_73787, object r_73280) { + +closureN_type c_731556; +c_731556.hdr.mark = gc_color_red; + c_731556.hdr.grayed = 0; +c_731556.tag = closureN_tag; + c_731556.fn = (function_type)__lambda_353; +c_731556.num_args = 1; +c_731556.num_elt = 32; +c_731556.elts = (object *)alloca(sizeof(object) * 32); +c_731556.elts[0] = ((closureN)self_73787)->elts[0]; +c_731556.elts[1] = ((closureN)self_73787)->elts[1]; +c_731556.elts[2] = ((closureN)self_73787)->elts[2]; +c_731556.elts[3] = ((closureN)self_73787)->elts[3]; +c_731556.elts[4] = ((closureN)self_73787)->elts[4]; +c_731556.elts[5] = ((closureN)self_73787)->elts[5]; +c_731556.elts[6] = ((closureN)self_73787)->elts[6]; +c_731556.elts[7] = ((closureN)self_73787)->elts[7]; +c_731556.elts[8] = ((closureN)self_73787)->elts[8]; +c_731556.elts[9] = ((closureN)self_73787)->elts[9]; +c_731556.elts[10] = ((closureN)self_73787)->elts[10]; +c_731556.elts[11] = ((closureN)self_73787)->elts[11]; +c_731556.elts[12] = ((closureN)self_73787)->elts[12]; +c_731556.elts[13] = ((closureN)self_73787)->elts[13]; +c_731556.elts[14] = ((closureN)self_73787)->elts[14]; +c_731556.elts[15] = ((closureN)self_73787)->elts[15]; +c_731556.elts[16] = ((closureN)self_73787)->elts[16]; +c_731556.elts[17] = ((closureN)self_73787)->elts[17]; +c_731556.elts[18] = ((closureN)self_73787)->elts[18]; +c_731556.elts[19] = ((closureN)self_73787)->elts[19]; +c_731556.elts[20] = ((closureN)self_73787)->elts[20]; +c_731556.elts[21] = ((closureN)self_73787)->elts[21]; +c_731556.elts[22] = ((closureN)self_73787)->elts[22]; +c_731556.elts[23] = ((closureN)self_73787)->elts[23]; +c_731556.elts[24] = ((closureN)self_73787)->elts[24]; +c_731556.elts[25] = ((closureN)self_73787)->elts[25]; +c_731556.elts[26] = ((closureN)self_73787)->elts[26]; +c_731556.elts[27] = ((closureN)self_73787)->elts[27]; +c_731556.elts[28] = ((closureN)self_73787)->elts[28]; +c_731556.elts[29] = ((closureN)self_73787)->elts[29]; +c_731556.elts[30] = ((closureN)self_73787)->elts[30]; +c_731556.elts[31] = ((closureN)self_73787)->elts[31]; + + +mclosure0(c_732848, (function_type)__lambda_354);c_732848.num_args = 1; +return_closcall1(data,(closure)&c_731556, &c_732848);; +} + +static void __lambda_354(void *data, int argc, object self_73788, object k_73508, object symbol_91record_73215) { + return_closcall1(data, k_73508, Cyc_vector_ref(data, symbol_91record_73215, obj_int2obj(1)));; +} + +static void __lambda_353(void *data, int argc, object self_73789, object r_73507) { + +closureN_type c_731558; +c_731558.hdr.mark = gc_color_red; + c_731558.hdr.grayed = 0; +c_731558.tag = closureN_tag; + c_731558.fn = (function_type)__lambda_352; +c_731558.num_args = 1; +c_731558.num_elt = 32; +c_731558.elts = (object *)alloca(sizeof(object) * 32); +c_731558.elts[0] = ((closureN)self_73789)->elts[0]; +c_731558.elts[1] = ((closureN)self_73789)->elts[1]; +c_731558.elts[2] = ((closureN)self_73789)->elts[2]; +c_731558.elts[3] = ((closureN)self_73789)->elts[3]; +c_731558.elts[4] = ((closureN)self_73789)->elts[4]; +c_731558.elts[5] = ((closureN)self_73789)->elts[5]; +c_731558.elts[6] = ((closureN)self_73789)->elts[6]; +c_731558.elts[7] = ((closureN)self_73789)->elts[7]; +c_731558.elts[8] = ((closureN)self_73789)->elts[8]; +c_731558.elts[9] = ((closureN)self_73789)->elts[9]; +c_731558.elts[10] = ((closureN)self_73789)->elts[10]; +c_731558.elts[11] = ((closureN)self_73789)->elts[11]; +c_731558.elts[12] = ((closureN)self_73789)->elts[12]; +c_731558.elts[13] = ((closureN)self_73789)->elts[13]; +c_731558.elts[14] = ((closureN)self_73789)->elts[14]; +c_731558.elts[15] = ((closureN)self_73789)->elts[15]; +c_731558.elts[16] = ((closureN)self_73789)->elts[16]; +c_731558.elts[17] = ((closureN)self_73789)->elts[17]; +c_731558.elts[18] = ((closureN)self_73789)->elts[18]; +c_731558.elts[19] = ((closureN)self_73789)->elts[19]; +c_731558.elts[20] = ((closureN)self_73789)->elts[20]; +c_731558.elts[21] = ((closureN)self_73789)->elts[21]; +c_731558.elts[22] = ((closureN)self_73789)->elts[22]; +c_731558.elts[23] = ((closureN)self_73789)->elts[23]; +c_731558.elts[24] = ((closureN)self_73789)->elts[24]; +c_731558.elts[25] = ((closureN)self_73789)->elts[25]; +c_731558.elts[26] = ((closureN)self_73789)->elts[26]; +c_731558.elts[27] = ((closureN)self_73789)->elts[27]; +c_731558.elts[28] = ((closureN)self_73789)->elts[28]; +c_731558.elts[29] = ((closureN)self_73789)->elts[29]; +c_731558.elts[30] = ((closureN)self_73789)->elts[30]; +c_731558.elts[31] = ((closureN)self_73789)->elts[31]; + +return_closcall1(data,(closure)&c_731558, Cyc_set_car(data, ((closureN)self_73789)->elts[5], r_73507));; +} + +static void __lambda_352(void *data, int argc, object self_73790, object r_73281) { + +closureN_type c_731560; +c_731560.hdr.mark = gc_color_red; + c_731560.hdr.grayed = 0; +c_731560.tag = closureN_tag; + c_731560.fn = (function_type)__lambda_350; +c_731560.num_args = 1; +c_731560.num_elt = 32; +c_731560.elts = (object *)alloca(sizeof(object) * 32); +c_731560.elts[0] = ((closureN)self_73790)->elts[0]; +c_731560.elts[1] = ((closureN)self_73790)->elts[1]; +c_731560.elts[2] = ((closureN)self_73790)->elts[2]; +c_731560.elts[3] = ((closureN)self_73790)->elts[3]; +c_731560.elts[4] = ((closureN)self_73790)->elts[4]; +c_731560.elts[5] = ((closureN)self_73790)->elts[5]; +c_731560.elts[6] = ((closureN)self_73790)->elts[6]; +c_731560.elts[7] = ((closureN)self_73790)->elts[7]; +c_731560.elts[8] = ((closureN)self_73790)->elts[8]; +c_731560.elts[9] = ((closureN)self_73790)->elts[9]; +c_731560.elts[10] = ((closureN)self_73790)->elts[10]; +c_731560.elts[11] = ((closureN)self_73790)->elts[11]; +c_731560.elts[12] = ((closureN)self_73790)->elts[12]; +c_731560.elts[13] = ((closureN)self_73790)->elts[13]; +c_731560.elts[14] = ((closureN)self_73790)->elts[14]; +c_731560.elts[15] = ((closureN)self_73790)->elts[15]; +c_731560.elts[16] = ((closureN)self_73790)->elts[16]; +c_731560.elts[17] = ((closureN)self_73790)->elts[17]; +c_731560.elts[18] = ((closureN)self_73790)->elts[18]; +c_731560.elts[19] = ((closureN)self_73790)->elts[19]; +c_731560.elts[20] = ((closureN)self_73790)->elts[20]; +c_731560.elts[21] = ((closureN)self_73790)->elts[21]; +c_731560.elts[22] = ((closureN)self_73790)->elts[22]; +c_731560.elts[23] = ((closureN)self_73790)->elts[23]; +c_731560.elts[24] = ((closureN)self_73790)->elts[24]; +c_731560.elts[25] = ((closureN)self_73790)->elts[25]; +c_731560.elts[26] = ((closureN)self_73790)->elts[26]; +c_731560.elts[27] = ((closureN)self_73790)->elts[27]; +c_731560.elts[28] = ((closureN)self_73790)->elts[28]; +c_731560.elts[29] = ((closureN)self_73790)->elts[29]; +c_731560.elts[30] = ((closureN)self_73790)->elts[30]; +c_731560.elts[31] = ((closureN)self_73790)->elts[31]; + + +mclosure0(c_732841, (function_type)__lambda_351);c_732841.num_args = 1; +return_closcall1(data,(closure)&c_731560, &c_732841);; +} + +static void __lambda_351(void *data, int argc, object self_73791, object k_73506, object symbol_91record_73214) { + return_closcall1(data, k_73506, Cyc_vector_ref(data, symbol_91record_73214, obj_int2obj(0)));; +} + +static void __lambda_350(void *data, int argc, object self_73792, object r_73505) { + +closureN_type c_731562; +c_731562.hdr.mark = gc_color_red; + c_731562.hdr.grayed = 0; +c_731562.tag = closureN_tag; + c_731562.fn = (function_type)__lambda_349; +c_731562.num_args = 1; +c_731562.num_elt = 31; +c_731562.elts = (object *)alloca(sizeof(object) * 31); +c_731562.elts[0] = ((closureN)self_73792)->elts[0]; +c_731562.elts[1] = ((closureN)self_73792)->elts[1]; +c_731562.elts[2] = ((closureN)self_73792)->elts[2]; +c_731562.elts[3] = ((closureN)self_73792)->elts[3]; +c_731562.elts[4] = ((closureN)self_73792)->elts[4]; +c_731562.elts[5] = ((closureN)self_73792)->elts[5]; +c_731562.elts[6] = ((closureN)self_73792)->elts[7]; +c_731562.elts[7] = ((closureN)self_73792)->elts[8]; +c_731562.elts[8] = ((closureN)self_73792)->elts[9]; +c_731562.elts[9] = ((closureN)self_73792)->elts[10]; +c_731562.elts[10] = ((closureN)self_73792)->elts[11]; +c_731562.elts[11] = ((closureN)self_73792)->elts[12]; +c_731562.elts[12] = ((closureN)self_73792)->elts[13]; +c_731562.elts[13] = ((closureN)self_73792)->elts[14]; +c_731562.elts[14] = ((closureN)self_73792)->elts[15]; +c_731562.elts[15] = ((closureN)self_73792)->elts[16]; +c_731562.elts[16] = ((closureN)self_73792)->elts[17]; +c_731562.elts[17] = ((closureN)self_73792)->elts[18]; +c_731562.elts[18] = ((closureN)self_73792)->elts[19]; +c_731562.elts[19] = ((closureN)self_73792)->elts[20]; +c_731562.elts[20] = ((closureN)self_73792)->elts[21]; +c_731562.elts[21] = ((closureN)self_73792)->elts[22]; +c_731562.elts[22] = ((closureN)self_73792)->elts[23]; +c_731562.elts[23] = ((closureN)self_73792)->elts[24]; +c_731562.elts[24] = ((closureN)self_73792)->elts[25]; +c_731562.elts[25] = ((closureN)self_73792)->elts[26]; +c_731562.elts[26] = ((closureN)self_73792)->elts[27]; +c_731562.elts[27] = ((closureN)self_73792)->elts[28]; +c_731562.elts[28] = ((closureN)self_73792)->elts[29]; +c_731562.elts[29] = ((closureN)self_73792)->elts[30]; +c_731562.elts[30] = ((closureN)self_73792)->elts[31]; + +return_closcall1(data,(closure)&c_731562, Cyc_set_car(data, ((closureN)self_73792)->elts[6], r_73505));; +} + +static void __lambda_349(void *data, int argc, object self_73793, object r_73282) { + +closureN_type c_731564; +c_731564.hdr.mark = gc_color_red; + c_731564.hdr.grayed = 0; +c_731564.tag = closureN_tag; + c_731564.fn = (function_type)__lambda_347; +c_731564.num_args = 1; +c_731564.num_elt = 31; +c_731564.elts = (object *)alloca(sizeof(object) * 31); +c_731564.elts[0] = ((closureN)self_73793)->elts[0]; +c_731564.elts[1] = ((closureN)self_73793)->elts[1]; +c_731564.elts[2] = ((closureN)self_73793)->elts[2]; +c_731564.elts[3] = ((closureN)self_73793)->elts[3]; +c_731564.elts[4] = ((closureN)self_73793)->elts[4]; +c_731564.elts[5] = ((closureN)self_73793)->elts[5]; +c_731564.elts[6] = ((closureN)self_73793)->elts[6]; +c_731564.elts[7] = ((closureN)self_73793)->elts[7]; +c_731564.elts[8] = ((closureN)self_73793)->elts[8]; +c_731564.elts[9] = ((closureN)self_73793)->elts[9]; +c_731564.elts[10] = ((closureN)self_73793)->elts[10]; +c_731564.elts[11] = ((closureN)self_73793)->elts[11]; +c_731564.elts[12] = ((closureN)self_73793)->elts[12]; +c_731564.elts[13] = ((closureN)self_73793)->elts[13]; +c_731564.elts[14] = ((closureN)self_73793)->elts[14]; +c_731564.elts[15] = ((closureN)self_73793)->elts[15]; +c_731564.elts[16] = ((closureN)self_73793)->elts[16]; +c_731564.elts[17] = ((closureN)self_73793)->elts[17]; +c_731564.elts[18] = ((closureN)self_73793)->elts[18]; +c_731564.elts[19] = ((closureN)self_73793)->elts[19]; +c_731564.elts[20] = ((closureN)self_73793)->elts[20]; +c_731564.elts[21] = ((closureN)self_73793)->elts[21]; +c_731564.elts[22] = ((closureN)self_73793)->elts[22]; +c_731564.elts[23] = ((closureN)self_73793)->elts[23]; +c_731564.elts[24] = ((closureN)self_73793)->elts[24]; +c_731564.elts[25] = ((closureN)self_73793)->elts[25]; +c_731564.elts[26] = ((closureN)self_73793)->elts[26]; +c_731564.elts[27] = ((closureN)self_73793)->elts[27]; +c_731564.elts[28] = ((closureN)self_73793)->elts[28]; +c_731564.elts[29] = ((closureN)self_73793)->elts[29]; +c_731564.elts[30] = ((closureN)self_73793)->elts[30]; + + +mclosure0(c_732834, (function_type)__lambda_348);c_732834.num_args = 2; +return_closcall1(data,(closure)&c_731564, &c_732834);; +} + +static void __lambda_348(void *data, int argc, object self_73794, object k_73504, object r1_73213, object r2_73212) { + return_closcall1(data, k_73504, Cyc_eq(r1_73213, r2_73212));; +} + +static void __lambda_347(void *data, int argc, object self_73795, object r_73503) { + +closureN_type c_731566; +c_731566.hdr.mark = gc_color_red; + c_731566.hdr.grayed = 0; +c_731566.tag = closureN_tag; + c_731566.fn = (function_type)__lambda_346; +c_731566.num_args = 1; +c_731566.num_elt = 31; +c_731566.elts = (object *)alloca(sizeof(object) * 31); +c_731566.elts[0] = ((closureN)self_73795)->elts[0]; +c_731566.elts[1] = ((closureN)self_73795)->elts[1]; +c_731566.elts[2] = ((closureN)self_73795)->elts[2]; +c_731566.elts[3] = ((closureN)self_73795)->elts[3]; +c_731566.elts[4] = ((closureN)self_73795)->elts[4]; +c_731566.elts[5] = ((closureN)self_73795)->elts[5]; +c_731566.elts[6] = ((closureN)self_73795)->elts[6]; +c_731566.elts[7] = ((closureN)self_73795)->elts[7]; +c_731566.elts[8] = ((closureN)self_73795)->elts[8]; +c_731566.elts[9] = ((closureN)self_73795)->elts[9]; +c_731566.elts[10] = ((closureN)self_73795)->elts[10]; +c_731566.elts[11] = ((closureN)self_73795)->elts[11]; +c_731566.elts[12] = ((closureN)self_73795)->elts[12]; +c_731566.elts[13] = ((closureN)self_73795)->elts[13]; +c_731566.elts[14] = ((closureN)self_73795)->elts[14]; +c_731566.elts[15] = ((closureN)self_73795)->elts[15]; +c_731566.elts[16] = ((closureN)self_73795)->elts[16]; +c_731566.elts[17] = ((closureN)self_73795)->elts[17]; +c_731566.elts[18] = ((closureN)self_73795)->elts[18]; +c_731566.elts[19] = ((closureN)self_73795)->elts[19]; +c_731566.elts[20] = ((closureN)self_73795)->elts[20]; +c_731566.elts[21] = ((closureN)self_73795)->elts[21]; +c_731566.elts[22] = ((closureN)self_73795)->elts[22]; +c_731566.elts[23] = ((closureN)self_73795)->elts[23]; +c_731566.elts[24] = ((closureN)self_73795)->elts[24]; +c_731566.elts[25] = ((closureN)self_73795)->elts[25]; +c_731566.elts[26] = ((closureN)self_73795)->elts[26]; +c_731566.elts[27] = ((closureN)self_73795)->elts[27]; +c_731566.elts[28] = ((closureN)self_73795)->elts[28]; +c_731566.elts[29] = ((closureN)self_73795)->elts[29]; +c_731566.elts[30] = ((closureN)self_73795)->elts[30]; + +return_closcall1(data,(closure)&c_731566, Cyc_set_car(data, ((closureN)self_73795)->elts[17], r_73503));; +} + +static void __lambda_346(void *data, int argc, object self_73796, object r_73283) { + +closureN_type c_731568; +c_731568.hdr.mark = gc_color_red; + c_731568.hdr.grayed = 0; +c_731568.tag = closureN_tag; + c_731568.fn = (function_type)__lambda_329; +c_731568.num_args = 1; +c_731568.num_elt = 31; +c_731568.elts = (object *)alloca(sizeof(object) * 31); +c_731568.elts[0] = ((closureN)self_73796)->elts[0]; +c_731568.elts[1] = ((closureN)self_73796)->elts[1]; +c_731568.elts[2] = ((closureN)self_73796)->elts[2]; +c_731568.elts[3] = ((closureN)self_73796)->elts[3]; +c_731568.elts[4] = ((closureN)self_73796)->elts[4]; +c_731568.elts[5] = ((closureN)self_73796)->elts[5]; +c_731568.elts[6] = ((closureN)self_73796)->elts[6]; +c_731568.elts[7] = ((closureN)self_73796)->elts[7]; +c_731568.elts[8] = ((closureN)self_73796)->elts[8]; +c_731568.elts[9] = ((closureN)self_73796)->elts[9]; +c_731568.elts[10] = ((closureN)self_73796)->elts[10]; +c_731568.elts[11] = ((closureN)self_73796)->elts[11]; +c_731568.elts[12] = ((closureN)self_73796)->elts[12]; +c_731568.elts[13] = ((closureN)self_73796)->elts[13]; +c_731568.elts[14] = ((closureN)self_73796)->elts[14]; +c_731568.elts[15] = ((closureN)self_73796)->elts[15]; +c_731568.elts[16] = ((closureN)self_73796)->elts[16]; +c_731568.elts[17] = ((closureN)self_73796)->elts[17]; +c_731568.elts[18] = ((closureN)self_73796)->elts[18]; +c_731568.elts[19] = ((closureN)self_73796)->elts[19]; +c_731568.elts[20] = ((closureN)self_73796)->elts[20]; +c_731568.elts[21] = ((closureN)self_73796)->elts[21]; +c_731568.elts[22] = ((closureN)self_73796)->elts[22]; +c_731568.elts[23] = ((closureN)self_73796)->elts[23]; +c_731568.elts[24] = ((closureN)self_73796)->elts[24]; +c_731568.elts[25] = ((closureN)self_73796)->elts[25]; +c_731568.elts[26] = ((closureN)self_73796)->elts[26]; +c_731568.elts[27] = ((closureN)self_73796)->elts[27]; +c_731568.elts[28] = ((closureN)self_73796)->elts[28]; +c_731568.elts[29] = ((closureN)self_73796)->elts[29]; +c_731568.elts[30] = ((closureN)self_73796)->elts[30]; + + +closureN_type c_732757; +c_732757.hdr.mark = gc_color_red; + c_732757.hdr.grayed = 0; +c_732757.tag = closureN_tag; + c_732757.fn = (function_type)__lambda_345; +c_732757.num_args = 3; +c_732757.num_elt = 4; +c_732757.elts = (object *)alloca(sizeof(object) * 4); +c_732757.elts[0] = ((closureN)self_73796)->elts[1]; +c_732757.elts[1] = ((closureN)self_73796)->elts[19]; +c_732757.elts[2] = ((closureN)self_73796)->elts[26]; +c_732757.elts[3] = ((closureN)self_73796)->elts[27]; + +return_closcall1(data,(closure)&c_731568, &c_732757);; +} + +static void __lambda_345(void *data, int argc, object self_73797, object k_73490, object alist_73205, object term_73204, object n_73203) { + +closureN_type c_732762; +c_732762.hdr.mark = gc_color_red; + c_732762.hdr.grayed = 0; +c_732762.tag = closureN_tag; + c_732762.fn = (function_type)__lambda_344; +c_732762.num_args = 1; +c_732762.num_elt = 6; +c_732762.elts = (object *)alloca(sizeof(object) * 6); +c_732762.elts[0] = ((closureN)self_73797)->elts[0]; +c_732762.elts[1] = k_73490; +c_732762.elts[2] = n_73203; +c_732762.elts[3] = ((closureN)self_73797)->elts[1]; +c_732762.elts[4] = term_73204; +c_732762.elts[5] = ((closureN)self_73797)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73797)->elts[2]), &c_732762, alist_73205);; +} + +static void __lambda_344(void *data, int argc, object self_73798, object r_73492) { + +closureN_type c_732764; +c_732764.hdr.mark = gc_color_red; + c_732764.hdr.grayed = 0; +c_732764.tag = closureN_tag; + c_732764.fn = (function_type)__lambda_343; +c_732764.num_args = 2; +c_732764.num_elt = 5; +c_732764.elts = (object *)alloca(sizeof(object) * 5); +c_732764.elts[0] = ((closureN)self_73798)->elts[0]; +c_732764.elts[1] = ((closureN)self_73798)->elts[1]; +c_732764.elts[2] = r_73492; +c_732764.elts[3] = ((closureN)self_73798)->elts[3]; +c_732764.elts[4] = ((closureN)self_73798)->elts[5]; + +return_closcall2(data,(closure)&c_732764, ((closureN)self_73798)->elts[4], ((closureN)self_73798)->elts[2]);; +} + +static void __lambda_343(void *data, int argc, object self_73799, object term_73207, object n_73206) { + +closureN_type c_732766; +c_732766.hdr.mark = gc_color_red; + c_732766.hdr.grayed = 0; +c_732766.tag = closureN_tag; + c_732766.fn = (function_type)__lambda_342; +c_732766.num_args = 1; +c_732766.num_elt = 7; +c_732766.elts = (object *)alloca(sizeof(object) * 7); +c_732766.elts[0] = ((closureN)self_73799)->elts[0]; +c_732766.elts[1] = ((closureN)self_73799)->elts[1]; +c_732766.elts[2] = n_73206; +c_732766.elts[3] = ((closureN)self_73799)->elts[2]; +c_732766.elts[4] = ((closureN)self_73799)->elts[3]; +c_732766.elts[5] = term_73207; +c_732766.elts[6] = ((closureN)self_73799)->elts[4]; + +return_closcall1(data,(closure)&c_732766, boolean_f);; +} + +static void __lambda_342(void *data, int argc, object self_73800, object lp_73208) { + +closureN_type c_732768; +c_732768.hdr.mark = gc_color_red; + c_732768.hdr.grayed = 0; +c_732768.tag = closureN_tag; + c_732768.fn = (function_type)__lambda_341; +c_732768.num_args = 1; +c_732768.num_elt = 7; +c_732768.elts = (object *)alloca(sizeof(object) * 7); +c_732768.elts[0] = ((closureN)self_73800)->elts[0]; +c_732768.elts[1] = ((closureN)self_73800)->elts[1]; +c_732768.elts[2] = ((closureN)self_73800)->elts[2]; +c_732768.elts[3] = ((closureN)self_73800)->elts[3]; +c_732768.elts[4] = ((closureN)self_73800)->elts[4]; +c_732768.elts[5] = ((closureN)self_73800)->elts[5]; +c_732768.elts[6] = ((closureN)self_73800)->elts[6]; + + +make_cell(c_732828,lp_73208); +return_closcall1(data,(closure)&c_732768, &c_732828);; +} + +static void __lambda_341(void *data, int argc, object self_73801, object lp_73208) { + +closureN_type c_732770; +c_732770.hdr.mark = gc_color_red; + c_732770.hdr.grayed = 0; +c_732770.tag = closureN_tag; + c_732770.fn = (function_type)__lambda_334; +c_732770.num_args = 1; +c_732770.num_elt = 8; +c_732770.elts = (object *)alloca(sizeof(object) * 8); +c_732770.elts[0] = ((closureN)self_73801)->elts[0]; +c_732770.elts[1] = ((closureN)self_73801)->elts[1]; +c_732770.elts[2] = lp_73208; +c_732770.elts[3] = ((closureN)self_73801)->elts[2]; +c_732770.elts[4] = ((closureN)self_73801)->elts[3]; +c_732770.elts[5] = ((closureN)self_73801)->elts[4]; +c_732770.elts[6] = ((closureN)self_73801)->elts[5]; +c_732770.elts[7] = ((closureN)self_73801)->elts[6]; + + +closureN_type c_732799; +c_732799.hdr.mark = gc_color_red; + c_732799.hdr.grayed = 0; +c_732799.tag = closureN_tag; + c_732799.fn = (function_type)__lambda_340; +c_732799.num_args = 2; +c_732799.num_elt = 1; +c_732799.elts = (object *)alloca(sizeof(object) * 1); +c_732799.elts[0] = lp_73208; + +return_closcall1(data,(closure)&c_732770, &c_732799);; +} + +static void __lambda_340(void *data, int argc, object self_73802, object k_73497, object term_73210, object n_73209) { + +closureN_type c_732801; +c_732801.hdr.mark = gc_color_red; + c_732801.hdr.grayed = 0; +c_732801.tag = closureN_tag; + c_732801.fn = (function_type)__lambda_339; +c_732801.num_args = 1; +c_732801.num_elt = 4; +c_732801.elts = (object *)alloca(sizeof(object) * 4); +c_732801.elts[0] = k_73497; +c_732801.elts[1] = ((closureN)self_73802)->elts[0]; +c_732801.elts[2] = n_73209; +c_732801.elts[3] = term_73210; + +return_closcall2(data, __glo_zero_127_scheme_base, &c_732801, n_73209);; +} + +static void __lambda_339(void *data, int argc, object self_73803, object r_73498) { + if( !eq(boolean_f, r_73498) ){ + return_closcall1(data, ((closureN)self_73803)->elts[0], ((closureN)self_73803)->elts[3]); +} else { + +closureN_type c_732806; +c_732806.hdr.mark = gc_color_red; + c_732806.hdr.grayed = 0; +c_732806.tag = closureN_tag; + c_732806.fn = (function_type)__lambda_338; +c_732806.num_args = 1; +c_732806.num_elt = 4; +c_732806.elts = (object *)alloca(sizeof(object) * 4); +c_732806.elts[0] = ((closureN)self_73803)->elts[0]; +c_732806.elts[1] = ((closureN)self_73803)->elts[1]; +c_732806.elts[2] = ((closureN)self_73803)->elts[2]; +c_732806.elts[3] = ((closureN)self_73803)->elts[3]; + +return_closcall1(data,(closure)&c_732806, quote_or);} +; +} + +static void __lambda_338(void *data, int argc, object self_73804, object r_73501) { + +closureN_type c_732808; +c_732808.hdr.mark = gc_color_red; + c_732808.hdr.grayed = 0; +c_732808.tag = closureN_tag; + c_732808.fn = (function_type)__lambda_337; +c_732808.num_args = 1; +c_732808.num_elt = 5; +c_732808.elts = (object *)alloca(sizeof(object) * 5); +c_732808.elts[0] = ((closureN)self_73804)->elts[0]; +c_732808.elts[1] = ((closureN)self_73804)->elts[1]; +c_732808.elts[2] = ((closureN)self_73804)->elts[2]; +c_732808.elts[3] = r_73501; +c_732808.elts[4] = ((closureN)self_73804)->elts[3]; + + +make_cons(c_732825,quote_f,nil); +return_closcall1(data,(closure)&c_732808, &c_732825);; +} + +static void __lambda_337(void *data, int argc, object self_73805, object r_73502) { + +closureN_type c_732810; +c_732810.hdr.mark = gc_color_red; + c_732810.hdr.grayed = 0; +c_732810.tag = closureN_tag; + c_732810.fn = (function_type)__lambda_336; +c_732810.num_args = 1; +c_732810.num_elt = 3; +c_732810.elts = (object *)alloca(sizeof(object) * 3); +c_732810.elts[0] = ((closureN)self_73805)->elts[0]; +c_732810.elts[1] = ((closureN)self_73805)->elts[1]; +c_732810.elts[2] = ((closureN)self_73805)->elts[2]; + +return_closcall4(data, __glo__list_scheme_base, &c_732810, ((closureN)self_73805)->elts[3], ((closureN)self_73805)->elts[4], r_73502);; +} + +static void __lambda_336(void *data, int argc, object self_73806, object r_73499) { + +closureN_type c_732812; +c_732812.hdr.mark = gc_color_red; + c_732812.hdr.grayed = 0; +c_732812.tag = closureN_tag; + c_732812.fn = (function_type)__lambda_335; +c_732812.num_args = 1; +c_732812.num_elt = 3; +c_732812.elts = (object *)alloca(sizeof(object) * 3); +c_732812.elts[0] = ((closureN)self_73806)->elts[0]; +c_732812.elts[1] = ((closureN)self_73806)->elts[1]; +c_732812.elts[2] = r_73499; + + +object c_732821 = Cyc_sub(data,(closure)&c_732812,2,((closureN)self_73806)->elts[2], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732812, c_732821);; +} + +static void __lambda_335(void *data, int argc, object self_73807, object r_73500) { + return_closcall3(data, cell_get(((closureN)self_73807)->elts[1]), ((closureN)self_73807)->elts[0], ((closureN)self_73807)->elts[2], r_73500);; +} + +static void __lambda_334(void *data, int argc, object self_73808, object r_73496) { + +closureN_type c_732772; +c_732772.hdr.mark = gc_color_red; + c_732772.hdr.grayed = 0; +c_732772.tag = closureN_tag; + c_732772.fn = (function_type)__lambda_333; +c_732772.num_args = 1; +c_732772.num_elt = 8; +c_732772.elts = (object *)alloca(sizeof(object) * 8); +c_732772.elts[0] = ((closureN)self_73808)->elts[0]; +c_732772.elts[1] = ((closureN)self_73808)->elts[1]; +c_732772.elts[2] = ((closureN)self_73808)->elts[2]; +c_732772.elts[3] = ((closureN)self_73808)->elts[3]; +c_732772.elts[4] = ((closureN)self_73808)->elts[4]; +c_732772.elts[5] = ((closureN)self_73808)->elts[5]; +c_732772.elts[6] = ((closureN)self_73808)->elts[6]; +c_732772.elts[7] = ((closureN)self_73808)->elts[7]; + +return_closcall1(data,(closure)&c_732772, Cyc_set_car(data, ((closureN)self_73808)->elts[2], r_73496));; +} + +static void __lambda_333(void *data, int argc, object self_73809, object r_73495) { + +closureN_type c_732777; +c_732777.hdr.mark = gc_color_red; + c_732777.hdr.grayed = 0; +c_732777.tag = closureN_tag; + c_732777.fn = (function_type)__lambda_332; +c_732777.num_args = 1; +c_732777.num_elt = 5; +c_732777.elts = (object *)alloca(sizeof(object) * 5); +c_732777.elts[0] = ((closureN)self_73809)->elts[0]; +c_732777.elts[1] = ((closureN)self_73809)->elts[1]; +c_732777.elts[2] = ((closureN)self_73809)->elts[4]; +c_732777.elts[3] = ((closureN)self_73809)->elts[5]; +c_732777.elts[4] = ((closureN)self_73809)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73809)->elts[2]), &c_732777, ((closureN)self_73809)->elts[6], ((closureN)self_73809)->elts[3]);; +} + +static void __lambda_332(void *data, int argc, object self_73810, object r_73494) { + +closureN_type c_732782; +c_732782.hdr.mark = gc_color_red; + c_732782.hdr.grayed = 0; +c_732782.tag = closureN_tag; + c_732782.fn = (function_type)__lambda_331; +c_732782.num_args = 1; +c_732782.num_elt = 4; +c_732782.elts = (object *)alloca(sizeof(object) * 4); +c_732782.elts[0] = ((closureN)self_73810)->elts[0]; +c_732782.elts[1] = ((closureN)self_73810)->elts[1]; +c_732782.elts[2] = ((closureN)self_73810)->elts[2]; +c_732782.elts[3] = ((closureN)self_73810)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73810)->elts[4]), &c_732782, r_73494);; +} + +static void __lambda_331(void *data, int argc, object self_73811, object r_73493) { + +closureN_type c_732787; +c_732787.hdr.mark = gc_color_red; + c_732787.hdr.grayed = 0; +c_732787.tag = closureN_tag; + c_732787.fn = (function_type)__lambda_330; +c_732787.num_args = 1; +c_732787.num_elt = 2; +c_732787.elts = (object *)alloca(sizeof(object) * 2); +c_732787.elts[0] = ((closureN)self_73811)->elts[1]; +c_732787.elts[1] = ((closureN)self_73811)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73811)->elts[0]), &c_732787, ((closureN)self_73811)->elts[2], r_73493);; +} + +static void __lambda_330(void *data, int argc, object self_73812, object term_73211) { + return_closcall2(data, cell_get(((closureN)self_73812)->elts[1]), ((closureN)self_73812)->elts[0], term_73211);; +} + +static void __lambda_329(void *data, int argc, object self_73813, object r_73489) { + +closureN_type c_731570; +c_731570.hdr.mark = gc_color_red; + c_731570.hdr.grayed = 0; +c_731570.tag = closureN_tag; + c_731570.fn = (function_type)__lambda_328; +c_731570.num_args = 1; +c_731570.num_elt = 31; +c_731570.elts = (object *)alloca(sizeof(object) * 31); +c_731570.elts[0] = ((closureN)self_73813)->elts[0]; +c_731570.elts[1] = ((closureN)self_73813)->elts[1]; +c_731570.elts[2] = ((closureN)self_73813)->elts[2]; +c_731570.elts[3] = ((closureN)self_73813)->elts[3]; +c_731570.elts[4] = ((closureN)self_73813)->elts[4]; +c_731570.elts[5] = ((closureN)self_73813)->elts[5]; +c_731570.elts[6] = ((closureN)self_73813)->elts[6]; +c_731570.elts[7] = ((closureN)self_73813)->elts[7]; +c_731570.elts[8] = ((closureN)self_73813)->elts[8]; +c_731570.elts[9] = ((closureN)self_73813)->elts[9]; +c_731570.elts[10] = ((closureN)self_73813)->elts[10]; +c_731570.elts[11] = ((closureN)self_73813)->elts[11]; +c_731570.elts[12] = ((closureN)self_73813)->elts[12]; +c_731570.elts[13] = ((closureN)self_73813)->elts[13]; +c_731570.elts[14] = ((closureN)self_73813)->elts[14]; +c_731570.elts[15] = ((closureN)self_73813)->elts[15]; +c_731570.elts[16] = ((closureN)self_73813)->elts[16]; +c_731570.elts[17] = ((closureN)self_73813)->elts[17]; +c_731570.elts[18] = ((closureN)self_73813)->elts[18]; +c_731570.elts[19] = ((closureN)self_73813)->elts[19]; +c_731570.elts[20] = ((closureN)self_73813)->elts[20]; +c_731570.elts[21] = ((closureN)self_73813)->elts[21]; +c_731570.elts[22] = ((closureN)self_73813)->elts[22]; +c_731570.elts[23] = ((closureN)self_73813)->elts[23]; +c_731570.elts[24] = ((closureN)self_73813)->elts[24]; +c_731570.elts[25] = ((closureN)self_73813)->elts[25]; +c_731570.elts[26] = ((closureN)self_73813)->elts[26]; +c_731570.elts[27] = ((closureN)self_73813)->elts[27]; +c_731570.elts[28] = ((closureN)self_73813)->elts[28]; +c_731570.elts[29] = ((closureN)self_73813)->elts[29]; +c_731570.elts[30] = ((closureN)self_73813)->elts[30]; + +return_closcall1(data,(closure)&c_731570, Cyc_set_car(data, ((closureN)self_73813)->elts[23], r_73489));; +} + +static void __lambda_328(void *data, int argc, object self_73814, object r_73284) { + +closureN_type c_731572; +c_731572.hdr.mark = gc_color_red; + c_731572.hdr.grayed = 0; +c_731572.tag = closureN_tag; + c_731572.fn = (function_type)__lambda_317; +c_731572.num_args = 1; +c_731572.num_elt = 31; +c_731572.elts = (object *)alloca(sizeof(object) * 31); +c_731572.elts[0] = ((closureN)self_73814)->elts[0]; +c_731572.elts[1] = ((closureN)self_73814)->elts[1]; +c_731572.elts[2] = ((closureN)self_73814)->elts[2]; +c_731572.elts[3] = ((closureN)self_73814)->elts[3]; +c_731572.elts[4] = ((closureN)self_73814)->elts[4]; +c_731572.elts[5] = ((closureN)self_73814)->elts[5]; +c_731572.elts[6] = ((closureN)self_73814)->elts[6]; +c_731572.elts[7] = ((closureN)self_73814)->elts[7]; +c_731572.elts[8] = ((closureN)self_73814)->elts[8]; +c_731572.elts[9] = ((closureN)self_73814)->elts[9]; +c_731572.elts[10] = ((closureN)self_73814)->elts[10]; +c_731572.elts[11] = ((closureN)self_73814)->elts[11]; +c_731572.elts[12] = ((closureN)self_73814)->elts[12]; +c_731572.elts[13] = ((closureN)self_73814)->elts[13]; +c_731572.elts[14] = ((closureN)self_73814)->elts[14]; +c_731572.elts[15] = ((closureN)self_73814)->elts[15]; +c_731572.elts[16] = ((closureN)self_73814)->elts[16]; +c_731572.elts[17] = ((closureN)self_73814)->elts[17]; +c_731572.elts[18] = ((closureN)self_73814)->elts[18]; +c_731572.elts[19] = ((closureN)self_73814)->elts[19]; +c_731572.elts[20] = ((closureN)self_73814)->elts[20]; +c_731572.elts[21] = ((closureN)self_73814)->elts[21]; +c_731572.elts[22] = ((closureN)self_73814)->elts[22]; +c_731572.elts[23] = ((closureN)self_73814)->elts[23]; +c_731572.elts[24] = ((closureN)self_73814)->elts[24]; +c_731572.elts[25] = ((closureN)self_73814)->elts[25]; +c_731572.elts[26] = ((closureN)self_73814)->elts[26]; +c_731572.elts[27] = ((closureN)self_73814)->elts[27]; +c_731572.elts[28] = ((closureN)self_73814)->elts[28]; +c_731572.elts[29] = ((closureN)self_73814)->elts[29]; +c_731572.elts[30] = ((closureN)self_73814)->elts[30]; + + +closureN_type c_732706; +c_732706.hdr.mark = gc_color_red; + c_732706.hdr.grayed = 0; +c_732706.tag = closureN_tag; + c_732706.fn = (function_type)__lambda_327; +c_732706.num_args = 1; +c_732706.num_elt = 2; +c_732706.elts = (object *)alloca(sizeof(object) * 2); +c_732706.elts[0] = ((closureN)self_73814)->elts[26]; +c_732706.elts[1] = ((closureN)self_73814)->elts[27]; + +return_closcall1(data,(closure)&c_731572, &c_732706);; +} + +static void __lambda_327(void *data, int argc, object self_73815, object k_73481, object alist_73202) { + +closureN_type c_732708; +c_732708.hdr.mark = gc_color_red; + c_732708.hdr.grayed = 0; +c_732708.tag = closureN_tag; + c_732708.fn = (function_type)__lambda_326; +c_732708.num_args = 1; +c_732708.num_elt = 4; +c_732708.elts = (object *)alloca(sizeof(object) * 4); +c_732708.elts[0] = alist_73202; +c_732708.elts[1] = k_73481; +c_732708.elts[2] = ((closureN)self_73815)->elts[0]; +c_732708.elts[3] = ((closureN)self_73815)->elts[1]; + +return_closcall1(data,(closure)&c_732708, Cyc_is_null(alist_73202));; +} + +static void __lambda_326(void *data, int argc, object self_73816, object r_73482) { + if( !eq(boolean_f, r_73482) ){ + +closureN_type c_732710; +c_732710.hdr.mark = gc_color_red; + c_732710.hdr.grayed = 0; +c_732710.tag = closureN_tag; + c_732710.fn = (function_type)__lambda_318; +c_732710.num_args = 0; +c_732710.num_elt = 1; +c_732710.elts = (object *)alloca(sizeof(object) * 1); +c_732710.elts[0] = ((closureN)self_73816)->elts[1]; + +return_closcall0(data,(closure)&c_732710); +} else { + +closureN_type c_732714; +c_732714.hdr.mark = gc_color_red; + c_732714.hdr.grayed = 0; +c_732714.tag = closureN_tag; + c_732714.fn = (function_type)__lambda_325; +c_732714.num_args = 0; +c_732714.num_elt = 4; +c_732714.elts = (object *)alloca(sizeof(object) * 4); +c_732714.elts[0] = ((closureN)self_73816)->elts[0]; +c_732714.elts[1] = ((closureN)self_73816)->elts[1]; +c_732714.elts[2] = ((closureN)self_73816)->elts[2]; +c_732714.elts[3] = ((closureN)self_73816)->elts[3]; + +return_closcall0(data,(closure)&c_732714);} +; +} + +static void __lambda_325(void *data, int argc, object self_73817) { + +closureN_type c_732716; +c_732716.hdr.mark = gc_color_red; + c_732716.hdr.grayed = 0; +c_732716.tag = closureN_tag; + c_732716.fn = (function_type)__lambda_324; +c_732716.num_args = 1; +c_732716.num_elt = 4; +c_732716.elts = (object *)alloca(sizeof(object) * 4); +c_732716.elts[0] = ((closureN)self_73817)->elts[0]; +c_732716.elts[1] = ((closureN)self_73817)->elts[1]; +c_732716.elts[2] = ((closureN)self_73817)->elts[2]; +c_732716.elts[3] = ((closureN)self_73817)->elts[3]; + +return_closcall1(data,(closure)&c_732716, caar(((closureN)self_73817)->elts[0]));; +} + +static void __lambda_324(void *data, int argc, object self_73818, object r_73486) { + +closureN_type c_732718; +c_732718.hdr.mark = gc_color_red; + c_732718.hdr.grayed = 0; +c_732718.tag = closureN_tag; + c_732718.fn = (function_type)__lambda_323; +c_732718.num_args = 1; +c_732718.num_elt = 5; +c_732718.elts = (object *)alloca(sizeof(object) * 5); +c_732718.elts[0] = ((closureN)self_73818)->elts[0]; +c_732718.elts[1] = ((closureN)self_73818)->elts[1]; +c_732718.elts[2] = r_73486; +c_732718.elts[3] = ((closureN)self_73818)->elts[2]; +c_732718.elts[4] = ((closureN)self_73818)->elts[3]; + +return_closcall1(data,(closure)&c_732718, cdar(((closureN)self_73818)->elts[0]));; +} + +static void __lambda_323(void *data, int argc, object self_73819, object r_73488) { + +closureN_type c_732723; +c_732723.hdr.mark = gc_color_red; + c_732723.hdr.grayed = 0; +c_732723.tag = closureN_tag; + c_732723.fn = (function_type)__lambda_322; +c_732723.num_args = 1; +c_732723.num_elt = 4; +c_732723.elts = (object *)alloca(sizeof(object) * 4); +c_732723.elts[0] = ((closureN)self_73819)->elts[0]; +c_732723.elts[1] = ((closureN)self_73819)->elts[1]; +c_732723.elts[2] = ((closureN)self_73819)->elts[2]; +c_732723.elts[3] = ((closureN)self_73819)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73819)->elts[4]), &c_732723, r_73488);; +} + +static void __lambda_322(void *data, int argc, object self_73820, object r_73487) { + +closureN_type c_732725; +c_732725.hdr.mark = gc_color_red; + c_732725.hdr.grayed = 0; +c_732725.tag = closureN_tag; + c_732725.fn = (function_type)__lambda_321; +c_732725.num_args = 1; +c_732725.num_elt = 3; +c_732725.elts = (object *)alloca(sizeof(object) * 3); +c_732725.elts[0] = ((closureN)self_73820)->elts[0]; +c_732725.elts[1] = ((closureN)self_73820)->elts[1]; +c_732725.elts[2] = ((closureN)self_73820)->elts[3]; + + +make_cons(c_732744,((closureN)self_73820)->elts[2], r_73487); +return_closcall1(data,(closure)&c_732725, &c_732744);; +} + +static void __lambda_321(void *data, int argc, object self_73821, object r_73483) { + +closureN_type c_732727; +c_732727.hdr.mark = gc_color_red; + c_732727.hdr.grayed = 0; +c_732727.tag = closureN_tag; + c_732727.fn = (function_type)__lambda_320; +c_732727.num_args = 1; +c_732727.num_elt = 3; +c_732727.elts = (object *)alloca(sizeof(object) * 3); +c_732727.elts[0] = ((closureN)self_73821)->elts[1]; +c_732727.elts[1] = r_73483; +c_732727.elts[2] = ((closureN)self_73821)->elts[2]; + +return_closcall1(data,(closure)&c_732727, cdr(((closureN)self_73821)->elts[0]));; +} + +static void __lambda_320(void *data, int argc, object self_73822, object r_73485) { + +closureN_type c_732732; +c_732732.hdr.mark = gc_color_red; + c_732732.hdr.grayed = 0; +c_732732.tag = closureN_tag; + c_732732.fn = (function_type)__lambda_319; +c_732732.num_args = 1; +c_732732.num_elt = 2; +c_732732.elts = (object *)alloca(sizeof(object) * 2); +c_732732.elts[0] = ((closureN)self_73822)->elts[0]; +c_732732.elts[1] = ((closureN)self_73822)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73822)->elts[2]), &c_732732, r_73485);; +} + +static void __lambda_319(void *data, int argc, object self_73823, object r_73484) { + +make_cons(c_732737,((closureN)self_73823)->elts[1], r_73484); +return_closcall1(data, ((closureN)self_73823)->elts[0], &c_732737);; +} + +static void __lambda_318(void *data, int argc, object self_73824) { + return_closcall1(data, ((closureN)self_73824)->elts[0], nil);; +} + +static void __lambda_317(void *data, int argc, object self_73825, object r_73480) { + +closureN_type c_731574; +c_731574.hdr.mark = gc_color_red; + c_731574.hdr.grayed = 0; +c_731574.tag = closureN_tag; + c_731574.fn = (function_type)__lambda_316; +c_731574.num_args = 1; +c_731574.num_elt = 30; +c_731574.elts = (object *)alloca(sizeof(object) * 30); +c_731574.elts[0] = ((closureN)self_73825)->elts[0]; +c_731574.elts[1] = ((closureN)self_73825)->elts[1]; +c_731574.elts[2] = ((closureN)self_73825)->elts[2]; +c_731574.elts[3] = ((closureN)self_73825)->elts[3]; +c_731574.elts[4] = ((closureN)self_73825)->elts[4]; +c_731574.elts[5] = ((closureN)self_73825)->elts[5]; +c_731574.elts[6] = ((closureN)self_73825)->elts[6]; +c_731574.elts[7] = ((closureN)self_73825)->elts[7]; +c_731574.elts[8] = ((closureN)self_73825)->elts[8]; +c_731574.elts[9] = ((closureN)self_73825)->elts[9]; +c_731574.elts[10] = ((closureN)self_73825)->elts[10]; +c_731574.elts[11] = ((closureN)self_73825)->elts[11]; +c_731574.elts[12] = ((closureN)self_73825)->elts[12]; +c_731574.elts[13] = ((closureN)self_73825)->elts[13]; +c_731574.elts[14] = ((closureN)self_73825)->elts[14]; +c_731574.elts[15] = ((closureN)self_73825)->elts[15]; +c_731574.elts[16] = ((closureN)self_73825)->elts[16]; +c_731574.elts[17] = ((closureN)self_73825)->elts[17]; +c_731574.elts[18] = ((closureN)self_73825)->elts[18]; +c_731574.elts[19] = ((closureN)self_73825)->elts[19]; +c_731574.elts[20] = ((closureN)self_73825)->elts[20]; +c_731574.elts[21] = ((closureN)self_73825)->elts[21]; +c_731574.elts[22] = ((closureN)self_73825)->elts[22]; +c_731574.elts[23] = ((closureN)self_73825)->elts[23]; +c_731574.elts[24] = ((closureN)self_73825)->elts[24]; +c_731574.elts[25] = ((closureN)self_73825)->elts[25]; +c_731574.elts[26] = ((closureN)self_73825)->elts[27]; +c_731574.elts[27] = ((closureN)self_73825)->elts[28]; +c_731574.elts[28] = ((closureN)self_73825)->elts[29]; +c_731574.elts[29] = ((closureN)self_73825)->elts[30]; + +return_closcall1(data,(closure)&c_731574, Cyc_set_car(data, ((closureN)self_73825)->elts[26], r_73480));; +} + +static void __lambda_316(void *data, int argc, object self_73826, object r_73285) { + +closureN_type c_731576; +c_731576.hdr.mark = gc_color_red; + c_731576.hdr.grayed = 0; +c_731576.tag = closureN_tag; + c_731576.fn = (function_type)__lambda_307; +c_731576.num_args = 1; +c_731576.num_elt = 30; +c_731576.elts = (object *)alloca(sizeof(object) * 30); +c_731576.elts[0] = ((closureN)self_73826)->elts[0]; +c_731576.elts[1] = ((closureN)self_73826)->elts[1]; +c_731576.elts[2] = ((closureN)self_73826)->elts[2]; +c_731576.elts[3] = ((closureN)self_73826)->elts[3]; +c_731576.elts[4] = ((closureN)self_73826)->elts[4]; +c_731576.elts[5] = ((closureN)self_73826)->elts[5]; +c_731576.elts[6] = ((closureN)self_73826)->elts[6]; +c_731576.elts[7] = ((closureN)self_73826)->elts[7]; +c_731576.elts[8] = ((closureN)self_73826)->elts[8]; +c_731576.elts[9] = ((closureN)self_73826)->elts[9]; +c_731576.elts[10] = ((closureN)self_73826)->elts[10]; +c_731576.elts[11] = ((closureN)self_73826)->elts[11]; +c_731576.elts[12] = ((closureN)self_73826)->elts[12]; +c_731576.elts[13] = ((closureN)self_73826)->elts[13]; +c_731576.elts[14] = ((closureN)self_73826)->elts[14]; +c_731576.elts[15] = ((closureN)self_73826)->elts[15]; +c_731576.elts[16] = ((closureN)self_73826)->elts[16]; +c_731576.elts[17] = ((closureN)self_73826)->elts[17]; +c_731576.elts[18] = ((closureN)self_73826)->elts[18]; +c_731576.elts[19] = ((closureN)self_73826)->elts[19]; +c_731576.elts[20] = ((closureN)self_73826)->elts[20]; +c_731576.elts[21] = ((closureN)self_73826)->elts[21]; +c_731576.elts[22] = ((closureN)self_73826)->elts[22]; +c_731576.elts[23] = ((closureN)self_73826)->elts[23]; +c_731576.elts[24] = ((closureN)self_73826)->elts[24]; +c_731576.elts[25] = ((closureN)self_73826)->elts[25]; +c_731576.elts[26] = ((closureN)self_73826)->elts[26]; +c_731576.elts[27] = ((closureN)self_73826)->elts[27]; +c_731576.elts[28] = ((closureN)self_73826)->elts[28]; +c_731576.elts[29] = ((closureN)self_73826)->elts[29]; + + +closureN_type c_732659; +c_732659.hdr.mark = gc_color_red; + c_732659.hdr.grayed = 0; +c_732659.tag = closureN_tag; + c_732659.fn = (function_type)__lambda_315; +c_732659.num_args = 2; +c_732659.num_elt = 1; +c_732659.elts = (object *)alloca(sizeof(object) * 1); +c_732659.elts[0] = ((closureN)self_73826)->elts[2]; + +return_closcall1(data,(closure)&c_731576, &c_732659);; +} + +static void __lambda_315(void *data, int argc, object self_73827, object k_73474, object alist_73200, object term_73199) { + +closureN_type c_732661; +c_732661.hdr.mark = gc_color_red; + c_732661.hdr.grayed = 0; +c_732661.tag = closureN_tag; + c_732661.fn = (function_type)__lambda_314; +c_732661.num_args = 1; +c_732661.num_elt = 4; +c_732661.elts = (object *)alloca(sizeof(object) * 4); +c_732661.elts[0] = alist_73200; +c_732661.elts[1] = ((closureN)self_73827)->elts[0]; +c_732661.elts[2] = k_73474; +c_732661.elts[3] = term_73199; + +return_closcall1(data,(closure)&c_732661, Cyc_is_cons(term_73199));; +} + +static void __lambda_314(void *data, int argc, object self_73828, object r_73475) { + if( !eq(boolean_f, r_73475) ){ + +closureN_type c_732663; +c_732663.hdr.mark = gc_color_red; + c_732663.hdr.grayed = 0; +c_732663.tag = closureN_tag; + c_732663.fn = (function_type)__lambda_311; +c_732663.num_args = 0; +c_732663.num_elt = 4; +c_732663.elts = (object *)alloca(sizeof(object) * 4); +c_732663.elts[0] = ((closureN)self_73828)->elts[0]; +c_732663.elts[1] = ((closureN)self_73828)->elts[1]; +c_732663.elts[2] = ((closureN)self_73828)->elts[2]; +c_732663.elts[3] = ((closureN)self_73828)->elts[3]; + +return_closcall0(data,(closure)&c_732663); +} else { + +closureN_type c_732687; +c_732687.hdr.mark = gc_color_red; + c_732687.hdr.grayed = 0; +c_732687.tag = closureN_tag; + c_732687.fn = (function_type)__lambda_313; +c_732687.num_args = 0; +c_732687.num_elt = 3; +c_732687.elts = (object *)alloca(sizeof(object) * 3); +c_732687.elts[0] = ((closureN)self_73828)->elts[0]; +c_732687.elts[1] = ((closureN)self_73828)->elts[2]; +c_732687.elts[2] = ((closureN)self_73828)->elts[3]; + +return_closcall0(data,(closure)&c_732687);} +; +} + +static void __lambda_313(void *data, int argc, object self_73829) { + +closureN_type c_732689; +c_732689.hdr.mark = gc_color_red; + c_732689.hdr.grayed = 0; +c_732689.tag = closureN_tag; + c_732689.fn = (function_type)__lambda_312; +c_732689.num_args = 1; +c_732689.num_elt = 2; +c_732689.elts = (object *)alloca(sizeof(object) * 2); +c_732689.elts[0] = ((closureN)self_73829)->elts[1]; +c_732689.elts[1] = ((closureN)self_73829)->elts[2]; + +return_closcall1(data,(closure)&c_732689, assq(data, ((closureN)self_73829)->elts[2], ((closureN)self_73829)->elts[0]));; +} + +static void __lambda_312(void *data, int argc, object self_73830, object temp_91temp_73201) { + if( !eq(boolean_f, temp_91temp_73201) ){ + return_closcall1(data, ((closureN)self_73830)->elts[0], cdr(temp_91temp_73201)); +} else { + return_closcall1(data, ((closureN)self_73830)->elts[0], ((closureN)self_73830)->elts[1]);} +; +} + +static void __lambda_311(void *data, int argc, object self_73831) { + +closureN_type c_732665; +c_732665.hdr.mark = gc_color_red; + c_732665.hdr.grayed = 0; +c_732665.tag = closureN_tag; + c_732665.fn = (function_type)__lambda_310; +c_732665.num_args = 1; +c_732665.num_elt = 4; +c_732665.elts = (object *)alloca(sizeof(object) * 4); +c_732665.elts[0] = ((closureN)self_73831)->elts[0]; +c_732665.elts[1] = ((closureN)self_73831)->elts[1]; +c_732665.elts[2] = ((closureN)self_73831)->elts[2]; +c_732665.elts[3] = ((closureN)self_73831)->elts[3]; + +return_closcall1(data,(closure)&c_732665, car(((closureN)self_73831)->elts[3]));; +} + +static void __lambda_310(void *data, int argc, object self_73832, object r_73476) { + +closureN_type c_732667; +c_732667.hdr.mark = gc_color_red; + c_732667.hdr.grayed = 0; +c_732667.tag = closureN_tag; + c_732667.fn = (function_type)__lambda_309; +c_732667.num_args = 1; +c_732667.num_elt = 4; +c_732667.elts = (object *)alloca(sizeof(object) * 4); +c_732667.elts[0] = ((closureN)self_73832)->elts[0]; +c_732667.elts[1] = ((closureN)self_73832)->elts[1]; +c_732667.elts[2] = ((closureN)self_73832)->elts[2]; +c_732667.elts[3] = r_73476; + +return_closcall1(data,(closure)&c_732667, cdr(((closureN)self_73832)->elts[3]));; +} + +static void __lambda_309(void *data, int argc, object self_73833, object r_73478) { + +closureN_type c_732672; +c_732672.hdr.mark = gc_color_red; + c_732672.hdr.grayed = 0; +c_732672.tag = closureN_tag; + c_732672.fn = (function_type)__lambda_308; +c_732672.num_args = 1; +c_732672.num_elt = 2; +c_732672.elts = (object *)alloca(sizeof(object) * 2); +c_732672.elts[0] = ((closureN)self_73833)->elts[2]; +c_732672.elts[1] = ((closureN)self_73833)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73833)->elts[1]), &c_732672, ((closureN)self_73833)->elts[0], r_73478);; +} + +static void __lambda_308(void *data, int argc, object self_73834, object r_73477) { + +make_cons(c_732677,((closureN)self_73834)->elts[1], r_73477); +return_closcall1(data, ((closureN)self_73834)->elts[0], &c_732677);; +} + +static void __lambda_307(void *data, int argc, object self_73835, object r_73473) { + +closureN_type c_731578; +c_731578.hdr.mark = gc_color_red; + c_731578.hdr.grayed = 0; +c_731578.tag = closureN_tag; + c_731578.fn = (function_type)__lambda_306; +c_731578.num_args = 1; +c_731578.num_elt = 30; +c_731578.elts = (object *)alloca(sizeof(object) * 30); +c_731578.elts[0] = ((closureN)self_73835)->elts[0]; +c_731578.elts[1] = ((closureN)self_73835)->elts[1]; +c_731578.elts[2] = ((closureN)self_73835)->elts[2]; +c_731578.elts[3] = ((closureN)self_73835)->elts[3]; +c_731578.elts[4] = ((closureN)self_73835)->elts[4]; +c_731578.elts[5] = ((closureN)self_73835)->elts[5]; +c_731578.elts[6] = ((closureN)self_73835)->elts[6]; +c_731578.elts[7] = ((closureN)self_73835)->elts[7]; +c_731578.elts[8] = ((closureN)self_73835)->elts[8]; +c_731578.elts[9] = ((closureN)self_73835)->elts[9]; +c_731578.elts[10] = ((closureN)self_73835)->elts[10]; +c_731578.elts[11] = ((closureN)self_73835)->elts[11]; +c_731578.elts[12] = ((closureN)self_73835)->elts[12]; +c_731578.elts[13] = ((closureN)self_73835)->elts[13]; +c_731578.elts[14] = ((closureN)self_73835)->elts[14]; +c_731578.elts[15] = ((closureN)self_73835)->elts[15]; +c_731578.elts[16] = ((closureN)self_73835)->elts[16]; +c_731578.elts[17] = ((closureN)self_73835)->elts[17]; +c_731578.elts[18] = ((closureN)self_73835)->elts[18]; +c_731578.elts[19] = ((closureN)self_73835)->elts[19]; +c_731578.elts[20] = ((closureN)self_73835)->elts[20]; +c_731578.elts[21] = ((closureN)self_73835)->elts[21]; +c_731578.elts[22] = ((closureN)self_73835)->elts[22]; +c_731578.elts[23] = ((closureN)self_73835)->elts[23]; +c_731578.elts[24] = ((closureN)self_73835)->elts[24]; +c_731578.elts[25] = ((closureN)self_73835)->elts[25]; +c_731578.elts[26] = ((closureN)self_73835)->elts[26]; +c_731578.elts[27] = ((closureN)self_73835)->elts[27]; +c_731578.elts[28] = ((closureN)self_73835)->elts[28]; +c_731578.elts[29] = ((closureN)self_73835)->elts[29]; + +return_closcall1(data,(closure)&c_731578, Cyc_set_car(data, ((closureN)self_73835)->elts[1], r_73473));; +} + +static void __lambda_306(void *data, int argc, object self_73836, object r_73286) { + +closureN_type c_731580; +c_731580.hdr.mark = gc_color_red; + c_731580.hdr.grayed = 0; +c_731580.tag = closureN_tag; + c_731580.fn = (function_type)__lambda_297; +c_731580.num_args = 1; +c_731580.num_elt = 30; +c_731580.elts = (object *)alloca(sizeof(object) * 30); +c_731580.elts[0] = ((closureN)self_73836)->elts[0]; +c_731580.elts[1] = ((closureN)self_73836)->elts[1]; +c_731580.elts[2] = ((closureN)self_73836)->elts[2]; +c_731580.elts[3] = ((closureN)self_73836)->elts[3]; +c_731580.elts[4] = ((closureN)self_73836)->elts[4]; +c_731580.elts[5] = ((closureN)self_73836)->elts[5]; +c_731580.elts[6] = ((closureN)self_73836)->elts[6]; +c_731580.elts[7] = ((closureN)self_73836)->elts[7]; +c_731580.elts[8] = ((closureN)self_73836)->elts[8]; +c_731580.elts[9] = ((closureN)self_73836)->elts[9]; +c_731580.elts[10] = ((closureN)self_73836)->elts[10]; +c_731580.elts[11] = ((closureN)self_73836)->elts[11]; +c_731580.elts[12] = ((closureN)self_73836)->elts[12]; +c_731580.elts[13] = ((closureN)self_73836)->elts[13]; +c_731580.elts[14] = ((closureN)self_73836)->elts[14]; +c_731580.elts[15] = ((closureN)self_73836)->elts[15]; +c_731580.elts[16] = ((closureN)self_73836)->elts[16]; +c_731580.elts[17] = ((closureN)self_73836)->elts[17]; +c_731580.elts[18] = ((closureN)self_73836)->elts[18]; +c_731580.elts[19] = ((closureN)self_73836)->elts[19]; +c_731580.elts[20] = ((closureN)self_73836)->elts[20]; +c_731580.elts[21] = ((closureN)self_73836)->elts[21]; +c_731580.elts[22] = ((closureN)self_73836)->elts[22]; +c_731580.elts[23] = ((closureN)self_73836)->elts[23]; +c_731580.elts[24] = ((closureN)self_73836)->elts[24]; +c_731580.elts[25] = ((closureN)self_73836)->elts[25]; +c_731580.elts[26] = ((closureN)self_73836)->elts[26]; +c_731580.elts[27] = ((closureN)self_73836)->elts[27]; +c_731580.elts[28] = ((closureN)self_73836)->elts[28]; +c_731580.elts[29] = ((closureN)self_73836)->elts[29]; + + +closureN_type c_732617; +c_732617.hdr.mark = gc_color_red; + c_732617.hdr.grayed = 0; +c_732617.tag = closureN_tag; + c_732617.fn = (function_type)__lambda_305; +c_732617.num_args = 2; +c_732617.num_elt = 2; +c_732617.elts = (object *)alloca(sizeof(object) * 2); +c_732617.elts[0] = ((closureN)self_73836)->elts[1]; +c_732617.elts[1] = ((closureN)self_73836)->elts[2]; + +return_closcall1(data,(closure)&c_731580, &c_732617);; +} + +static void __lambda_305(void *data, int argc, object self_73837, object k_73467, object alist_73198, object lst_73197) { + +closureN_type c_732619; +c_732619.hdr.mark = gc_color_red; + c_732619.hdr.grayed = 0; +c_732619.tag = closureN_tag; + c_732619.fn = (function_type)__lambda_304; +c_732619.num_args = 1; +c_732619.num_elt = 5; +c_732619.elts = (object *)alloca(sizeof(object) * 5); +c_732619.elts[0] = alist_73198; +c_732619.elts[1] = ((closureN)self_73837)->elts[0]; +c_732619.elts[2] = ((closureN)self_73837)->elts[1]; +c_732619.elts[3] = k_73467; +c_732619.elts[4] = lst_73197; + +return_closcall1(data,(closure)&c_732619, Cyc_is_null(lst_73197));; +} + +static void __lambda_304(void *data, int argc, object self_73838, object r_73468) { + if( !eq(boolean_f, r_73468) ){ + +closureN_type c_732621; +c_732621.hdr.mark = gc_color_red; + c_732621.hdr.grayed = 0; +c_732621.tag = closureN_tag; + c_732621.fn = (function_type)__lambda_298; +c_732621.num_args = 0; +c_732621.num_elt = 1; +c_732621.elts = (object *)alloca(sizeof(object) * 1); +c_732621.elts[0] = ((closureN)self_73838)->elts[3]; + +return_closcall0(data,(closure)&c_732621); +} else { + +closureN_type c_732625; +c_732625.hdr.mark = gc_color_red; + c_732625.hdr.grayed = 0; +c_732625.tag = closureN_tag; + c_732625.fn = (function_type)__lambda_303; +c_732625.num_args = 0; +c_732625.num_elt = 5; +c_732625.elts = (object *)alloca(sizeof(object) * 5); +c_732625.elts[0] = ((closureN)self_73838)->elts[0]; +c_732625.elts[1] = ((closureN)self_73838)->elts[1]; +c_732625.elts[2] = ((closureN)self_73838)->elts[2]; +c_732625.elts[3] = ((closureN)self_73838)->elts[3]; +c_732625.elts[4] = ((closureN)self_73838)->elts[4]; + +return_closcall0(data,(closure)&c_732625);} +; +} + +static void __lambda_303(void *data, int argc, object self_73839) { + +closureN_type c_732627; +c_732627.hdr.mark = gc_color_red; + c_732627.hdr.grayed = 0; +c_732627.tag = closureN_tag; + c_732627.fn = (function_type)__lambda_302; +c_732627.num_args = 1; +c_732627.num_elt = 5; +c_732627.elts = (object *)alloca(sizeof(object) * 5); +c_732627.elts[0] = ((closureN)self_73839)->elts[0]; +c_732627.elts[1] = ((closureN)self_73839)->elts[1]; +c_732627.elts[2] = ((closureN)self_73839)->elts[2]; +c_732627.elts[3] = ((closureN)self_73839)->elts[3]; +c_732627.elts[4] = ((closureN)self_73839)->elts[4]; + +return_closcall1(data,(closure)&c_732627, car(((closureN)self_73839)->elts[4]));; +} + +static void __lambda_302(void *data, int argc, object self_73840, object r_73472) { + +closureN_type c_732632; +c_732632.hdr.mark = gc_color_red; + c_732632.hdr.grayed = 0; +c_732632.tag = closureN_tag; + c_732632.fn = (function_type)__lambda_301; +c_732632.num_args = 1; +c_732632.num_elt = 4; +c_732632.elts = (object *)alloca(sizeof(object) * 4); +c_732632.elts[0] = ((closureN)self_73840)->elts[0]; +c_732632.elts[1] = ((closureN)self_73840)->elts[2]; +c_732632.elts[2] = ((closureN)self_73840)->elts[3]; +c_732632.elts[3] = ((closureN)self_73840)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_73840)->elts[1]), &c_732632, ((closureN)self_73840)->elts[0], r_73472);; +} + +static void __lambda_301(void *data, int argc, object self_73841, object r_73469) { + +closureN_type c_732634; +c_732634.hdr.mark = gc_color_red; + c_732634.hdr.grayed = 0; +c_732634.tag = closureN_tag; + c_732634.fn = (function_type)__lambda_300; +c_732634.num_args = 1; +c_732634.num_elt = 4; +c_732634.elts = (object *)alloca(sizeof(object) * 4); +c_732634.elts[0] = ((closureN)self_73841)->elts[0]; +c_732634.elts[1] = ((closureN)self_73841)->elts[1]; +c_732634.elts[2] = ((closureN)self_73841)->elts[2]; +c_732634.elts[3] = r_73469; + +return_closcall1(data,(closure)&c_732634, cdr(((closureN)self_73841)->elts[3]));; +} + +static void __lambda_300(void *data, int argc, object self_73842, object r_73471) { + +closureN_type c_732639; +c_732639.hdr.mark = gc_color_red; + c_732639.hdr.grayed = 0; +c_732639.tag = closureN_tag; + c_732639.fn = (function_type)__lambda_299; +c_732639.num_args = 1; +c_732639.num_elt = 2; +c_732639.elts = (object *)alloca(sizeof(object) * 2); +c_732639.elts[0] = ((closureN)self_73842)->elts[2]; +c_732639.elts[1] = ((closureN)self_73842)->elts[3]; + +return_closcall3(data, cell_get(((closureN)self_73842)->elts[1]), &c_732639, ((closureN)self_73842)->elts[0], r_73471);; +} + +static void __lambda_299(void *data, int argc, object self_73843, object r_73470) { + +make_cons(c_732644,((closureN)self_73843)->elts[1], r_73470); +return_closcall1(data, ((closureN)self_73843)->elts[0], &c_732644);; +} + +static void __lambda_298(void *data, int argc, object self_73844) { + return_closcall1(data, ((closureN)self_73844)->elts[0], nil);; +} + +static void __lambda_297(void *data, int argc, object self_73845, object r_73466) { + +closureN_type c_731582; +c_731582.hdr.mark = gc_color_red; + c_731582.hdr.grayed = 0; +c_731582.tag = closureN_tag; + c_731582.fn = (function_type)__lambda_296; +c_731582.num_args = 1; +c_731582.num_elt = 29; +c_731582.elts = (object *)alloca(sizeof(object) * 29); +c_731582.elts[0] = ((closureN)self_73845)->elts[0]; +c_731582.elts[1] = ((closureN)self_73845)->elts[1]; +c_731582.elts[2] = ((closureN)self_73845)->elts[3]; +c_731582.elts[3] = ((closureN)self_73845)->elts[4]; +c_731582.elts[4] = ((closureN)self_73845)->elts[5]; +c_731582.elts[5] = ((closureN)self_73845)->elts[6]; +c_731582.elts[6] = ((closureN)self_73845)->elts[7]; +c_731582.elts[7] = ((closureN)self_73845)->elts[8]; +c_731582.elts[8] = ((closureN)self_73845)->elts[9]; +c_731582.elts[9] = ((closureN)self_73845)->elts[10]; +c_731582.elts[10] = ((closureN)self_73845)->elts[11]; +c_731582.elts[11] = ((closureN)self_73845)->elts[12]; +c_731582.elts[12] = ((closureN)self_73845)->elts[13]; +c_731582.elts[13] = ((closureN)self_73845)->elts[14]; +c_731582.elts[14] = ((closureN)self_73845)->elts[15]; +c_731582.elts[15] = ((closureN)self_73845)->elts[16]; +c_731582.elts[16] = ((closureN)self_73845)->elts[17]; +c_731582.elts[17] = ((closureN)self_73845)->elts[18]; +c_731582.elts[18] = ((closureN)self_73845)->elts[19]; +c_731582.elts[19] = ((closureN)self_73845)->elts[20]; +c_731582.elts[20] = ((closureN)self_73845)->elts[21]; +c_731582.elts[21] = ((closureN)self_73845)->elts[22]; +c_731582.elts[22] = ((closureN)self_73845)->elts[23]; +c_731582.elts[23] = ((closureN)self_73845)->elts[24]; +c_731582.elts[24] = ((closureN)self_73845)->elts[25]; +c_731582.elts[25] = ((closureN)self_73845)->elts[26]; +c_731582.elts[26] = ((closureN)self_73845)->elts[27]; +c_731582.elts[27] = ((closureN)self_73845)->elts[28]; +c_731582.elts[28] = ((closureN)self_73845)->elts[29]; + +return_closcall1(data,(closure)&c_731582, Cyc_set_car(data, ((closureN)self_73845)->elts[2], r_73466));; +} + +static void __lambda_296(void *data, int argc, object self_73846, object r_73287) { + +closureN_type c_731584; +c_731584.hdr.mark = gc_color_red; + c_731584.hdr.grayed = 0; +c_731584.tag = closureN_tag; + c_731584.fn = (function_type)__lambda_291; +c_731584.num_args = 1; +c_731584.num_elt = 29; +c_731584.elts = (object *)alloca(sizeof(object) * 29); +c_731584.elts[0] = ((closureN)self_73846)->elts[0]; +c_731584.elts[1] = ((closureN)self_73846)->elts[1]; +c_731584.elts[2] = ((closureN)self_73846)->elts[2]; +c_731584.elts[3] = ((closureN)self_73846)->elts[3]; +c_731584.elts[4] = ((closureN)self_73846)->elts[4]; +c_731584.elts[5] = ((closureN)self_73846)->elts[5]; +c_731584.elts[6] = ((closureN)self_73846)->elts[6]; +c_731584.elts[7] = ((closureN)self_73846)->elts[7]; +c_731584.elts[8] = ((closureN)self_73846)->elts[8]; +c_731584.elts[9] = ((closureN)self_73846)->elts[9]; +c_731584.elts[10] = ((closureN)self_73846)->elts[10]; +c_731584.elts[11] = ((closureN)self_73846)->elts[11]; +c_731584.elts[12] = ((closureN)self_73846)->elts[12]; +c_731584.elts[13] = ((closureN)self_73846)->elts[13]; +c_731584.elts[14] = ((closureN)self_73846)->elts[14]; +c_731584.elts[15] = ((closureN)self_73846)->elts[15]; +c_731584.elts[16] = ((closureN)self_73846)->elts[16]; +c_731584.elts[17] = ((closureN)self_73846)->elts[17]; +c_731584.elts[18] = ((closureN)self_73846)->elts[18]; +c_731584.elts[19] = ((closureN)self_73846)->elts[19]; +c_731584.elts[20] = ((closureN)self_73846)->elts[20]; +c_731584.elts[21] = ((closureN)self_73846)->elts[21]; +c_731584.elts[22] = ((closureN)self_73846)->elts[22]; +c_731584.elts[23] = ((closureN)self_73846)->elts[23]; +c_731584.elts[24] = ((closureN)self_73846)->elts[24]; +c_731584.elts[25] = ((closureN)self_73846)->elts[25]; +c_731584.elts[26] = ((closureN)self_73846)->elts[26]; +c_731584.elts[27] = ((closureN)self_73846)->elts[27]; +c_731584.elts[28] = ((closureN)self_73846)->elts[28]; + + +closureN_type c_732597; +c_732597.hdr.mark = gc_color_red; + c_732597.hdr.grayed = 0; +c_732597.tag = closureN_tag; + c_732597.fn = (function_type)__lambda_295; +c_732597.num_args = 1; +c_732597.num_elt = 2; +c_732597.elts = (object *)alloca(sizeof(object) * 2); +c_732597.elts[0] = ((closureN)self_73846)->elts[9]; +c_732597.elts[1] = ((closureN)self_73846)->elts[17]; + +return_closcall1(data,(closure)&c_731584, &c_732597);; +} + +static void __lambda_295(void *data, int argc, object self_73847, object k_73462, object x_73196) { + +closureN_type c_732602; +c_732602.hdr.mark = gc_color_red; + c_732602.hdr.grayed = 0; +c_732602.tag = closureN_tag; + c_732602.fn = (function_type)__lambda_294; +c_732602.num_args = 1; +c_732602.num_elt = 2; +c_732602.elts = (object *)alloca(sizeof(object) * 2); +c_732602.elts[0] = k_73462; +c_732602.elts[1] = ((closureN)self_73847)->elts[1]; + +return_closcall2(data, cell_get(((closureN)self_73847)->elts[0]), &c_732602, x_73196);; +} + +static void __lambda_294(void *data, int argc, object self_73848, object r_73463) { + +closureN_type c_732604; +c_732604.hdr.mark = gc_color_red; + c_732604.hdr.grayed = 0; +c_732604.tag = closureN_tag; + c_732604.fn = (function_type)__lambda_293; +c_732604.num_args = 1; +c_732604.num_elt = 3; +c_732604.elts = (object *)alloca(sizeof(object) * 3); +c_732604.elts[0] = ((closureN)self_73848)->elts[0]; +c_732604.elts[1] = r_73463; +c_732604.elts[2] = ((closureN)self_73848)->elts[1]; + +return_closcall1(data,(closure)&c_732604, nil);; +} + +static void __lambda_293(void *data, int argc, object self_73849, object r_73464) { + +closureN_type c_732606; +c_732606.hdr.mark = gc_color_red; + c_732606.hdr.grayed = 0; +c_732606.tag = closureN_tag; + c_732606.fn = (function_type)__lambda_292; +c_732606.num_args = 1; +c_732606.num_elt = 4; +c_732606.elts = (object *)alloca(sizeof(object) * 4); +c_732606.elts[0] = ((closureN)self_73849)->elts[0]; +c_732606.elts[1] = ((closureN)self_73849)->elts[1]; +c_732606.elts[2] = r_73464; +c_732606.elts[3] = ((closureN)self_73849)->elts[2]; + +return_closcall1(data,(closure)&c_732606, nil);; +} + +static void __lambda_292(void *data, int argc, object self_73850, object r_73465) { + return_closcall4(data, cell_get(((closureN)self_73850)->elts[3]), ((closureN)self_73850)->elts[0], ((closureN)self_73850)->elts[1], ((closureN)self_73850)->elts[2], r_73465);; +} + +static void __lambda_291(void *data, int argc, object self_73851, object r_73461) { + +closureN_type c_731586; +c_731586.hdr.mark = gc_color_red; + c_731586.hdr.grayed = 0; +c_731586.tag = closureN_tag; + c_731586.fn = (function_type)__lambda_290; +c_731586.num_args = 1; +c_731586.num_elt = 28; +c_731586.elts = (object *)alloca(sizeof(object) * 28); +c_731586.elts[0] = ((closureN)self_73851)->elts[0]; +c_731586.elts[1] = ((closureN)self_73851)->elts[1]; +c_731586.elts[2] = ((closureN)self_73851)->elts[2]; +c_731586.elts[3] = ((closureN)self_73851)->elts[3]; +c_731586.elts[4] = ((closureN)self_73851)->elts[4]; +c_731586.elts[5] = ((closureN)self_73851)->elts[5]; +c_731586.elts[6] = ((closureN)self_73851)->elts[6]; +c_731586.elts[7] = ((closureN)self_73851)->elts[7]; +c_731586.elts[8] = ((closureN)self_73851)->elts[8]; +c_731586.elts[9] = ((closureN)self_73851)->elts[9]; +c_731586.elts[10] = ((closureN)self_73851)->elts[10]; +c_731586.elts[11] = ((closureN)self_73851)->elts[11]; +c_731586.elts[12] = ((closureN)self_73851)->elts[12]; +c_731586.elts[13] = ((closureN)self_73851)->elts[13]; +c_731586.elts[14] = ((closureN)self_73851)->elts[14]; +c_731586.elts[15] = ((closureN)self_73851)->elts[15]; +c_731586.elts[16] = ((closureN)self_73851)->elts[16]; +c_731586.elts[17] = ((closureN)self_73851)->elts[17]; +c_731586.elts[18] = ((closureN)self_73851)->elts[19]; +c_731586.elts[19] = ((closureN)self_73851)->elts[20]; +c_731586.elts[20] = ((closureN)self_73851)->elts[21]; +c_731586.elts[21] = ((closureN)self_73851)->elts[22]; +c_731586.elts[22] = ((closureN)self_73851)->elts[23]; +c_731586.elts[23] = ((closureN)self_73851)->elts[24]; +c_731586.elts[24] = ((closureN)self_73851)->elts[25]; +c_731586.elts[25] = ((closureN)self_73851)->elts[26]; +c_731586.elts[26] = ((closureN)self_73851)->elts[27]; +c_731586.elts[27] = ((closureN)self_73851)->elts[28]; + +return_closcall1(data,(closure)&c_731586, Cyc_set_car(data, ((closureN)self_73851)->elts[18], r_73461));; +} + +static void __lambda_290(void *data, int argc, object self_73852, object r_73288) { + +closureN_type c_731588; +c_731588.hdr.mark = gc_color_red; + c_731588.hdr.grayed = 0; +c_731588.tag = closureN_tag; + c_731588.fn = (function_type)__lambda_262; +c_731588.num_args = 1; +c_731588.num_elt = 28; +c_731588.elts = (object *)alloca(sizeof(object) * 28); +c_731588.elts[0] = ((closureN)self_73852)->elts[0]; +c_731588.elts[1] = ((closureN)self_73852)->elts[1]; +c_731588.elts[2] = ((closureN)self_73852)->elts[2]; +c_731588.elts[3] = ((closureN)self_73852)->elts[3]; +c_731588.elts[4] = ((closureN)self_73852)->elts[4]; +c_731588.elts[5] = ((closureN)self_73852)->elts[5]; +c_731588.elts[6] = ((closureN)self_73852)->elts[6]; +c_731588.elts[7] = ((closureN)self_73852)->elts[7]; +c_731588.elts[8] = ((closureN)self_73852)->elts[8]; +c_731588.elts[9] = ((closureN)self_73852)->elts[9]; +c_731588.elts[10] = ((closureN)self_73852)->elts[10]; +c_731588.elts[11] = ((closureN)self_73852)->elts[11]; +c_731588.elts[12] = ((closureN)self_73852)->elts[12]; +c_731588.elts[13] = ((closureN)self_73852)->elts[13]; +c_731588.elts[14] = ((closureN)self_73852)->elts[14]; +c_731588.elts[15] = ((closureN)self_73852)->elts[15]; +c_731588.elts[16] = ((closureN)self_73852)->elts[16]; +c_731588.elts[17] = ((closureN)self_73852)->elts[17]; +c_731588.elts[18] = ((closureN)self_73852)->elts[18]; +c_731588.elts[19] = ((closureN)self_73852)->elts[19]; +c_731588.elts[20] = ((closureN)self_73852)->elts[20]; +c_731588.elts[21] = ((closureN)self_73852)->elts[21]; +c_731588.elts[22] = ((closureN)self_73852)->elts[22]; +c_731588.elts[23] = ((closureN)self_73852)->elts[23]; +c_731588.elts[24] = ((closureN)self_73852)->elts[24]; +c_731588.elts[25] = ((closureN)self_73852)->elts[25]; +c_731588.elts[26] = ((closureN)self_73852)->elts[26]; +c_731588.elts[27] = ((closureN)self_73852)->elts[27]; + + +closureN_type c_732446; +c_732446.hdr.mark = gc_color_red; + c_732446.hdr.grayed = 0; +c_732446.tag = closureN_tag; + c_732446.fn = (function_type)__lambda_289; +c_732446.num_args = 3; +c_732446.num_elt = 4; +c_732446.elts = (object *)alloca(sizeof(object) * 4); +c_732446.elts[0] = ((closureN)self_73852)->elts[3]; +c_732446.elts[1] = ((closureN)self_73852)->elts[5]; +c_732446.elts[2] = ((closureN)self_73852)->elts[17]; +c_732446.elts[3] = ((closureN)self_73852)->elts[26]; + +return_closcall1(data,(closure)&c_731588, &c_732446);; +} + +static void __lambda_289(void *data, int argc, object self_73853, object k_73442, object x_73195, object true_91lst_73194, object false_91lst_73193) { + +closureN_type c_732451; +c_732451.hdr.mark = gc_color_red; + c_732451.hdr.grayed = 0; +c_732451.tag = closureN_tag; + c_732451.fn = (function_type)__lambda_288; +c_732451.num_args = 1; +c_732451.num_elt = 8; +c_732451.elts = (object *)alloca(sizeof(object) * 8); +c_732451.elts[0] = false_91lst_73193; +c_732451.elts[1] = ((closureN)self_73853)->elts[0]; +c_732451.elts[2] = ((closureN)self_73853)->elts[1]; +c_732451.elts[3] = k_73442; +c_732451.elts[4] = ((closureN)self_73853)->elts[2]; +c_732451.elts[5] = true_91lst_73194; +c_732451.elts[6] = ((closureN)self_73853)->elts[3]; +c_732451.elts[7] = x_73195; + +return_closcall3(data, cell_get(((closureN)self_73853)->elts[3]), &c_732451, x_73195, true_91lst_73194);; +} + +static void __lambda_288(void *data, int argc, object self_73854, object r_73443) { + if( !eq(boolean_f, r_73443) ){ + +closureN_type c_732453; +c_732453.hdr.mark = gc_color_red; + c_732453.hdr.grayed = 0; +c_732453.tag = closureN_tag; + c_732453.fn = (function_type)__lambda_263; +c_732453.num_args = 0; +c_732453.num_elt = 1; +c_732453.elts = (object *)alloca(sizeof(object) * 1); +c_732453.elts[0] = ((closureN)self_73854)->elts[3]; + +return_closcall0(data,(closure)&c_732453); +} else { + +closureN_type c_732460; +c_732460.hdr.mark = gc_color_red; + c_732460.hdr.grayed = 0; +c_732460.tag = closureN_tag; + c_732460.fn = (function_type)__lambda_287; +c_732460.num_args = 1; +c_732460.num_elt = 8; +c_732460.elts = (object *)alloca(sizeof(object) * 8); +c_732460.elts[0] = ((closureN)self_73854)->elts[0]; +c_732460.elts[1] = ((closureN)self_73854)->elts[1]; +c_732460.elts[2] = ((closureN)self_73854)->elts[2]; +c_732460.elts[3] = ((closureN)self_73854)->elts[3]; +c_732460.elts[4] = ((closureN)self_73854)->elts[4]; +c_732460.elts[5] = ((closureN)self_73854)->elts[5]; +c_732460.elts[6] = ((closureN)self_73854)->elts[6]; +c_732460.elts[7] = ((closureN)self_73854)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73854)->elts[1]), &c_732460, ((closureN)self_73854)->elts[7], ((closureN)self_73854)->elts[0]);} +; +} + +static void __lambda_287(void *data, int argc, object self_73855, object r_73444) { + if( !eq(boolean_f, r_73444) ){ + +closureN_type c_732462; +c_732462.hdr.mark = gc_color_red; + c_732462.hdr.grayed = 0; +c_732462.tag = closureN_tag; + c_732462.fn = (function_type)__lambda_264; +c_732462.num_args = 0; +c_732462.num_elt = 1; +c_732462.elts = (object *)alloca(sizeof(object) * 1); +c_732462.elts[0] = ((closureN)self_73855)->elts[3]; + +return_closcall0(data,(closure)&c_732462); +} else { + +closureN_type c_732466; +c_732466.hdr.mark = gc_color_red; + c_732466.hdr.grayed = 0; +c_732466.tag = closureN_tag; + c_732466.fn = (function_type)__lambda_286; +c_732466.num_args = 1; +c_732466.num_elt = 8; +c_732466.elts = (object *)alloca(sizeof(object) * 8); +c_732466.elts[0] = ((closureN)self_73855)->elts[0]; +c_732466.elts[1] = ((closureN)self_73855)->elts[1]; +c_732466.elts[2] = ((closureN)self_73855)->elts[2]; +c_732466.elts[3] = ((closureN)self_73855)->elts[3]; +c_732466.elts[4] = ((closureN)self_73855)->elts[4]; +c_732466.elts[5] = ((closureN)self_73855)->elts[5]; +c_732466.elts[6] = ((closureN)self_73855)->elts[6]; +c_732466.elts[7] = ((closureN)self_73855)->elts[7]; + +return_closcall1(data,(closure)&c_732466, Cyc_is_cons(((closureN)self_73855)->elts[7]));} +; +} + +static void __lambda_286(void *data, int argc, object self_73856, object r_73445) { + if( !eq(boolean_f, r_73445) ){ + +closureN_type c_732468; +c_732468.hdr.mark = gc_color_red; + c_732468.hdr.grayed = 0; +c_732468.tag = closureN_tag; + c_732468.fn = (function_type)__lambda_284; +c_732468.num_args = 1; +c_732468.num_elt = 8; +c_732468.elts = (object *)alloca(sizeof(object) * 8); +c_732468.elts[0] = ((closureN)self_73856)->elts[0]; +c_732468.elts[1] = ((closureN)self_73856)->elts[1]; +c_732468.elts[2] = ((closureN)self_73856)->elts[2]; +c_732468.elts[3] = ((closureN)self_73856)->elts[3]; +c_732468.elts[4] = ((closureN)self_73856)->elts[4]; +c_732468.elts[5] = ((closureN)self_73856)->elts[5]; +c_732468.elts[6] = ((closureN)self_73856)->elts[6]; +c_732468.elts[7] = ((closureN)self_73856)->elts[7]; + +return_closcall1(data,(closure)&c_732468, car(((closureN)self_73856)->elts[7])); +} else { + +closureN_type c_732586; +c_732586.hdr.mark = gc_color_red; + c_732586.hdr.grayed = 0; +c_732586.tag = closureN_tag; + c_732586.fn = (function_type)__lambda_285; +c_732586.num_args = 0; +c_732586.num_elt = 1; +c_732586.elts = (object *)alloca(sizeof(object) * 1); +c_732586.elts[0] = ((closureN)self_73856)->elts[3]; + +return_closcall0(data,(closure)&c_732586);} +; +} + +static void __lambda_285(void *data, int argc, object self_73857) { + return_closcall1(data, ((closureN)self_73857)->elts[0], boolean_f);; +} + +static void __lambda_284(void *data, int argc, object self_73858, object r_73460) { + +closureN_type c_732470; +c_732470.hdr.mark = gc_color_red; + c_732470.hdr.grayed = 0; +c_732470.tag = closureN_tag; + c_732470.fn = (function_type)__lambda_283; +c_732470.num_args = 1; +c_732470.num_elt = 7; +c_732470.elts = (object *)alloca(sizeof(object) * 7); +c_732470.elts[0] = ((closureN)self_73858)->elts[0]; +c_732470.elts[1] = ((closureN)self_73858)->elts[1]; +c_732470.elts[2] = ((closureN)self_73858)->elts[3]; +c_732470.elts[3] = ((closureN)self_73858)->elts[4]; +c_732470.elts[4] = ((closureN)self_73858)->elts[5]; +c_732470.elts[5] = ((closureN)self_73858)->elts[6]; +c_732470.elts[6] = ((closureN)self_73858)->elts[7]; + +return_closcall1(data,(closure)&c_732470, Cyc_eq(r_73460, cell_get(((closureN)self_73858)->elts[2])));; +} + +static void __lambda_283(void *data, int argc, object self_73859, object r_73446) { + if( !eq(boolean_f, r_73446) ){ + +closureN_type c_732472; +c_732472.hdr.mark = gc_color_red; + c_732472.hdr.grayed = 0; +c_732472.tag = closureN_tag; + c_732472.fn = (function_type)__lambda_281; +c_732472.num_args = 0; +c_732472.num_elt = 7; +c_732472.elts = (object *)alloca(sizeof(object) * 7); +c_732472.elts[0] = ((closureN)self_73859)->elts[0]; +c_732472.elts[1] = ((closureN)self_73859)->elts[1]; +c_732472.elts[2] = ((closureN)self_73859)->elts[2]; +c_732472.elts[3] = ((closureN)self_73859)->elts[3]; +c_732472.elts[4] = ((closureN)self_73859)->elts[4]; +c_732472.elts[5] = ((closureN)self_73859)->elts[5]; +c_732472.elts[6] = ((closureN)self_73859)->elts[6]; + +return_closcall0(data,(closure)&c_732472); +} else { + +closureN_type c_732574; +c_732574.hdr.mark = gc_color_red; + c_732574.hdr.grayed = 0; +c_732574.tag = closureN_tag; + c_732574.fn = (function_type)__lambda_282; +c_732574.num_args = 0; +c_732574.num_elt = 1; +c_732574.elts = (object *)alloca(sizeof(object) * 1); +c_732574.elts[0] = ((closureN)self_73859)->elts[2]; + +return_closcall0(data,(closure)&c_732574);} +; +} + +static void __lambda_282(void *data, int argc, object self_73860) { + return_closcall1(data, ((closureN)self_73860)->elts[0], boolean_f);; +} + +static void __lambda_281(void *data, int argc, object self_73861) { + +closureN_type c_732474; +c_732474.hdr.mark = gc_color_red; + c_732474.hdr.grayed = 0; +c_732474.tag = closureN_tag; + c_732474.fn = (function_type)__lambda_280; +c_732474.num_args = 1; +c_732474.num_elt = 7; +c_732474.elts = (object *)alloca(sizeof(object) * 7); +c_732474.elts[0] = ((closureN)self_73861)->elts[0]; +c_732474.elts[1] = ((closureN)self_73861)->elts[1]; +c_732474.elts[2] = ((closureN)self_73861)->elts[2]; +c_732474.elts[3] = ((closureN)self_73861)->elts[3]; +c_732474.elts[4] = ((closureN)self_73861)->elts[4]; +c_732474.elts[5] = ((closureN)self_73861)->elts[5]; +c_732474.elts[6] = ((closureN)self_73861)->elts[6]; + +return_closcall1(data,(closure)&c_732474, cadr(((closureN)self_73861)->elts[6]));; +} + +static void __lambda_280(void *data, int argc, object self_73862, object r_73459) { + +closureN_type c_732479; +c_732479.hdr.mark = gc_color_red; + c_732479.hdr.grayed = 0; +c_732479.tag = closureN_tag; + c_732479.fn = (function_type)__lambda_279; +c_732479.num_args = 1; +c_732479.num_elt = 6; +c_732479.elts = (object *)alloca(sizeof(object) * 6); +c_732479.elts[0] = ((closureN)self_73862)->elts[0]; +c_732479.elts[1] = ((closureN)self_73862)->elts[1]; +c_732479.elts[2] = ((closureN)self_73862)->elts[2]; +c_732479.elts[3] = ((closureN)self_73862)->elts[3]; +c_732479.elts[4] = ((closureN)self_73862)->elts[4]; +c_732479.elts[5] = ((closureN)self_73862)->elts[6]; + +return_closcall3(data, cell_get(((closureN)self_73862)->elts[5]), &c_732479, r_73459, ((closureN)self_73862)->elts[4]);; +} + +static void __lambda_279(void *data, int argc, object self_73863, object r_73447) { + if( !eq(boolean_f, r_73447) ){ + +closureN_type c_732481; +c_732481.hdr.mark = gc_color_red; + c_732481.hdr.grayed = 0; +c_732481.tag = closureN_tag; + c_732481.fn = (function_type)__lambda_266; +c_732481.num_args = 0; +c_732481.num_elt = 5; +c_732481.elts = (object *)alloca(sizeof(object) * 5); +c_732481.elts[0] = ((closureN)self_73863)->elts[0]; +c_732481.elts[1] = ((closureN)self_73863)->elts[2]; +c_732481.elts[2] = ((closureN)self_73863)->elts[3]; +c_732481.elts[3] = ((closureN)self_73863)->elts[4]; +c_732481.elts[4] = ((closureN)self_73863)->elts[5]; + +return_closcall0(data,(closure)&c_732481); +} else { + +closureN_type c_732495; +c_732495.hdr.mark = gc_color_red; + c_732495.hdr.grayed = 0; +c_732495.tag = closureN_tag; + c_732495.fn = (function_type)__lambda_278; +c_732495.num_args = 1; +c_732495.num_elt = 6; +c_732495.elts = (object *)alloca(sizeof(object) * 6); +c_732495.elts[0] = ((closureN)self_73863)->elts[0]; +c_732495.elts[1] = ((closureN)self_73863)->elts[1]; +c_732495.elts[2] = ((closureN)self_73863)->elts[2]; +c_732495.elts[3] = ((closureN)self_73863)->elts[3]; +c_732495.elts[4] = ((closureN)self_73863)->elts[4]; +c_732495.elts[5] = ((closureN)self_73863)->elts[5]; + +return_closcall1(data,(closure)&c_732495, cadr(((closureN)self_73863)->elts[5]));} +; +} + +static void __lambda_278(void *data, int argc, object self_73864, object r_73458) { + +closureN_type c_732500; +c_732500.hdr.mark = gc_color_red; + c_732500.hdr.grayed = 0; +c_732500.tag = closureN_tag; + c_732500.fn = (function_type)__lambda_277; +c_732500.num_args = 1; +c_732500.num_elt = 5; +c_732500.elts = (object *)alloca(sizeof(object) * 5); +c_732500.elts[0] = ((closureN)self_73864)->elts[0]; +c_732500.elts[1] = ((closureN)self_73864)->elts[2]; +c_732500.elts[2] = ((closureN)self_73864)->elts[3]; +c_732500.elts[3] = ((closureN)self_73864)->elts[4]; +c_732500.elts[4] = ((closureN)self_73864)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_73864)->elts[1]), &c_732500, r_73458, ((closureN)self_73864)->elts[0]);; +} + +static void __lambda_277(void *data, int argc, object self_73865, object r_73449) { + if( !eq(boolean_f, r_73449) ){ + +closureN_type c_732502; +c_732502.hdr.mark = gc_color_red; + c_732502.hdr.grayed = 0; +c_732502.tag = closureN_tag; + c_732502.fn = (function_type)__lambda_268; +c_732502.num_args = 0; +c_732502.num_elt = 5; +c_732502.elts = (object *)alloca(sizeof(object) * 5); +c_732502.elts[0] = ((closureN)self_73865)->elts[0]; +c_732502.elts[1] = ((closureN)self_73865)->elts[1]; +c_732502.elts[2] = ((closureN)self_73865)->elts[2]; +c_732502.elts[3] = ((closureN)self_73865)->elts[3]; +c_732502.elts[4] = ((closureN)self_73865)->elts[4]; + +return_closcall0(data,(closure)&c_732502); +} else { + +closureN_type c_732516; +c_732516.hdr.mark = gc_color_red; + c_732516.hdr.grayed = 0; +c_732516.tag = closureN_tag; + c_732516.fn = (function_type)__lambda_276; +c_732516.num_args = 0; +c_732516.num_elt = 5; +c_732516.elts = (object *)alloca(sizeof(object) * 5); +c_732516.elts[0] = ((closureN)self_73865)->elts[0]; +c_732516.elts[1] = ((closureN)self_73865)->elts[1]; +c_732516.elts[2] = ((closureN)self_73865)->elts[2]; +c_732516.elts[3] = ((closureN)self_73865)->elts[3]; +c_732516.elts[4] = ((closureN)self_73865)->elts[4]; + +return_closcall0(data,(closure)&c_732516);} +; +} + +static void __lambda_276(void *data, int argc, object self_73866) { + +closureN_type c_732518; +c_732518.hdr.mark = gc_color_red; + c_732518.hdr.grayed = 0; +c_732518.tag = closureN_tag; + c_732518.fn = (function_type)__lambda_275; +c_732518.num_args = 1; +c_732518.num_elt = 5; +c_732518.elts = (object *)alloca(sizeof(object) * 5); +c_732518.elts[0] = ((closureN)self_73866)->elts[0]; +c_732518.elts[1] = ((closureN)self_73866)->elts[1]; +c_732518.elts[2] = ((closureN)self_73866)->elts[2]; +c_732518.elts[3] = ((closureN)self_73866)->elts[3]; +c_732518.elts[4] = ((closureN)self_73866)->elts[4]; + +return_closcall1(data,(closure)&c_732518, caddr(((closureN)self_73866)->elts[4]));; +} + +static void __lambda_275(void *data, int argc, object self_73867, object r_73455) { + +closureN_type c_732520; +c_732520.hdr.mark = gc_color_red; + c_732520.hdr.grayed = 0; +c_732520.tag = closureN_tag; + c_732520.fn = (function_type)__lambda_274; +c_732520.num_args = 1; +c_732520.num_elt = 6; +c_732520.elts = (object *)alloca(sizeof(object) * 6); +c_732520.elts[0] = ((closureN)self_73867)->elts[0]; +c_732520.elts[1] = ((closureN)self_73867)->elts[1]; +c_732520.elts[2] = r_73455; +c_732520.elts[3] = ((closureN)self_73867)->elts[2]; +c_732520.elts[4] = ((closureN)self_73867)->elts[3]; +c_732520.elts[5] = ((closureN)self_73867)->elts[4]; + +return_closcall1(data,(closure)&c_732520, cadr(((closureN)self_73867)->elts[4]));; +} + +static void __lambda_274(void *data, int argc, object self_73868, object r_73457) { + +closureN_type c_732522; +c_732522.hdr.mark = gc_color_red; + c_732522.hdr.grayed = 0; +c_732522.tag = closureN_tag; + c_732522.fn = (function_type)__lambda_273; +c_732522.num_args = 1; +c_732522.num_elt = 6; +c_732522.elts = (object *)alloca(sizeof(object) * 6); +c_732522.elts[0] = ((closureN)self_73868)->elts[0]; +c_732522.elts[1] = ((closureN)self_73868)->elts[1]; +c_732522.elts[2] = ((closureN)self_73868)->elts[2]; +c_732522.elts[3] = ((closureN)self_73868)->elts[3]; +c_732522.elts[4] = ((closureN)self_73868)->elts[4]; +c_732522.elts[5] = ((closureN)self_73868)->elts[5]; + + +make_cons(c_732557,r_73457, ((closureN)self_73868)->elts[4]); +return_closcall1(data,(closure)&c_732522, &c_732557);; +} + +static void __lambda_273(void *data, int argc, object self_73869, object r_73456) { + +closureN_type c_732527; +c_732527.hdr.mark = gc_color_red; + c_732527.hdr.grayed = 0; +c_732527.tag = closureN_tag; + c_732527.fn = (function_type)__lambda_272; +c_732527.num_args = 1; +c_732527.num_elt = 5; +c_732527.elts = (object *)alloca(sizeof(object) * 5); +c_732527.elts[0] = ((closureN)self_73869)->elts[0]; +c_732527.elts[1] = ((closureN)self_73869)->elts[1]; +c_732527.elts[2] = ((closureN)self_73869)->elts[3]; +c_732527.elts[3] = ((closureN)self_73869)->elts[4]; +c_732527.elts[4] = ((closureN)self_73869)->elts[5]; + +return_closcall4(data, cell_get(((closureN)self_73869)->elts[3]), &c_732527, ((closureN)self_73869)->elts[2], r_73456, ((closureN)self_73869)->elts[0]);; +} + +static void __lambda_272(void *data, int argc, object self_73870, object r_73451) { + if( !eq(boolean_f, r_73451) ){ + +closureN_type c_732529; +c_732529.hdr.mark = gc_color_red; + c_732529.hdr.grayed = 0; +c_732529.tag = closureN_tag; + c_732529.fn = (function_type)__lambda_271; +c_732529.num_args = 1; +c_732529.num_elt = 5; +c_732529.elts = (object *)alloca(sizeof(object) * 5); +c_732529.elts[0] = ((closureN)self_73870)->elts[0]; +c_732529.elts[1] = ((closureN)self_73870)->elts[1]; +c_732529.elts[2] = ((closureN)self_73870)->elts[2]; +c_732529.elts[3] = ((closureN)self_73870)->elts[3]; +c_732529.elts[4] = ((closureN)self_73870)->elts[4]; + +return_closcall1(data,(closure)&c_732529, cadddr(((closureN)self_73870)->elts[4])); +} else { + return_closcall1(data, ((closureN)self_73870)->elts[1], boolean_f);} +; +} + +static void __lambda_271(void *data, int argc, object self_73871, object r_73452) { + +closureN_type c_732531; +c_732531.hdr.mark = gc_color_red; + c_732531.hdr.grayed = 0; +c_732531.tag = closureN_tag; + c_732531.fn = (function_type)__lambda_270; +c_732531.num_args = 1; +c_732531.num_elt = 5; +c_732531.elts = (object *)alloca(sizeof(object) * 5); +c_732531.elts[0] = ((closureN)self_73871)->elts[0]; +c_732531.elts[1] = ((closureN)self_73871)->elts[1]; +c_732531.elts[2] = r_73452; +c_732531.elts[3] = ((closureN)self_73871)->elts[2]; +c_732531.elts[4] = ((closureN)self_73871)->elts[3]; + +return_closcall1(data,(closure)&c_732531, cadr(((closureN)self_73871)->elts[4]));; +} + +static void __lambda_270(void *data, int argc, object self_73872, object r_73454) { + +closureN_type c_732533; +c_732533.hdr.mark = gc_color_red; + c_732533.hdr.grayed = 0; +c_732533.tag = closureN_tag; + c_732533.fn = (function_type)__lambda_269; +c_732533.num_args = 1; +c_732533.num_elt = 4; +c_732533.elts = (object *)alloca(sizeof(object) * 4); +c_732533.elts[0] = ((closureN)self_73872)->elts[1]; +c_732533.elts[1] = ((closureN)self_73872)->elts[2]; +c_732533.elts[2] = ((closureN)self_73872)->elts[3]; +c_732533.elts[3] = ((closureN)self_73872)->elts[4]; + + +make_cons(c_732543,r_73454, ((closureN)self_73872)->elts[0]); +return_closcall1(data,(closure)&c_732533, &c_732543);; +} + +static void __lambda_269(void *data, int argc, object self_73873, object r_73453) { + return_closcall4(data, cell_get(((closureN)self_73873)->elts[2]), ((closureN)self_73873)->elts[0], ((closureN)self_73873)->elts[1], ((closureN)self_73873)->elts[3], r_73453);; +} + +static void __lambda_268(void *data, int argc, object self_73874) { + +closureN_type c_732504; +c_732504.hdr.mark = gc_color_red; + c_732504.hdr.grayed = 0; +c_732504.tag = closureN_tag; + c_732504.fn = (function_type)__lambda_267; +c_732504.num_args = 1; +c_732504.num_elt = 4; +c_732504.elts = (object *)alloca(sizeof(object) * 4); +c_732504.elts[0] = ((closureN)self_73874)->elts[0]; +c_732504.elts[1] = ((closureN)self_73874)->elts[1]; +c_732504.elts[2] = ((closureN)self_73874)->elts[2]; +c_732504.elts[3] = ((closureN)self_73874)->elts[3]; + +return_closcall1(data,(closure)&c_732504, cadddr(((closureN)self_73874)->elts[4]));; +} + +static void __lambda_267(void *data, int argc, object self_73875, object r_73450) { + return_closcall4(data, cell_get(((closureN)self_73875)->elts[2]), ((closureN)self_73875)->elts[1], r_73450, ((closureN)self_73875)->elts[3], ((closureN)self_73875)->elts[0]);; +} + +static void __lambda_266(void *data, int argc, object self_73876) { + +closureN_type c_732483; +c_732483.hdr.mark = gc_color_red; + c_732483.hdr.grayed = 0; +c_732483.tag = closureN_tag; + c_732483.fn = (function_type)__lambda_265; +c_732483.num_args = 1; +c_732483.num_elt = 4; +c_732483.elts = (object *)alloca(sizeof(object) * 4); +c_732483.elts[0] = ((closureN)self_73876)->elts[0]; +c_732483.elts[1] = ((closureN)self_73876)->elts[1]; +c_732483.elts[2] = ((closureN)self_73876)->elts[2]; +c_732483.elts[3] = ((closureN)self_73876)->elts[3]; + +return_closcall1(data,(closure)&c_732483, caddr(((closureN)self_73876)->elts[4]));; +} + +static void __lambda_265(void *data, int argc, object self_73877, object r_73448) { + return_closcall4(data, cell_get(((closureN)self_73877)->elts[2]), ((closureN)self_73877)->elts[1], r_73448, ((closureN)self_73877)->elts[3], ((closureN)self_73877)->elts[0]);; +} + +static void __lambda_264(void *data, int argc, object self_73878) { + return_closcall1(data, ((closureN)self_73878)->elts[0], boolean_f);; +} + +static void __lambda_263(void *data, int argc, object self_73879) { + return_closcall1(data, ((closureN)self_73879)->elts[0], boolean_t);; +} + +static void __lambda_262(void *data, int argc, object self_73880, object r_73441) { + +closureN_type c_731590; +c_731590.hdr.mark = gc_color_red; + c_731590.hdr.grayed = 0; +c_731590.tag = closureN_tag; + c_731590.fn = (function_type)__lambda_261; +c_731590.num_args = 1; +c_731590.num_elt = 27; +c_731590.elts = (object *)alloca(sizeof(object) * 27); +c_731590.elts[0] = ((closureN)self_73880)->elts[0]; +c_731590.elts[1] = ((closureN)self_73880)->elts[1]; +c_731590.elts[2] = ((closureN)self_73880)->elts[2]; +c_731590.elts[3] = ((closureN)self_73880)->elts[3]; +c_731590.elts[4] = ((closureN)self_73880)->elts[4]; +c_731590.elts[5] = ((closureN)self_73880)->elts[5]; +c_731590.elts[6] = ((closureN)self_73880)->elts[6]; +c_731590.elts[7] = ((closureN)self_73880)->elts[7]; +c_731590.elts[8] = ((closureN)self_73880)->elts[8]; +c_731590.elts[9] = ((closureN)self_73880)->elts[9]; +c_731590.elts[10] = ((closureN)self_73880)->elts[10]; +c_731590.elts[11] = ((closureN)self_73880)->elts[11]; +c_731590.elts[12] = ((closureN)self_73880)->elts[12]; +c_731590.elts[13] = ((closureN)self_73880)->elts[13]; +c_731590.elts[14] = ((closureN)self_73880)->elts[14]; +c_731590.elts[15] = ((closureN)self_73880)->elts[15]; +c_731590.elts[16] = ((closureN)self_73880)->elts[16]; +c_731590.elts[17] = ((closureN)self_73880)->elts[18]; +c_731590.elts[18] = ((closureN)self_73880)->elts[19]; +c_731590.elts[19] = ((closureN)self_73880)->elts[20]; +c_731590.elts[20] = ((closureN)self_73880)->elts[21]; +c_731590.elts[21] = ((closureN)self_73880)->elts[22]; +c_731590.elts[22] = ((closureN)self_73880)->elts[23]; +c_731590.elts[23] = ((closureN)self_73880)->elts[24]; +c_731590.elts[24] = ((closureN)self_73880)->elts[25]; +c_731590.elts[25] = ((closureN)self_73880)->elts[26]; +c_731590.elts[26] = ((closureN)self_73880)->elts[27]; + +return_closcall1(data,(closure)&c_731590, Cyc_set_car(data, ((closureN)self_73880)->elts[17], r_73441));; +} + +static void __lambda_261(void *data, int argc, object self_73881, object r_73289) { + +closureN_type c_731592; +c_731592.hdr.mark = gc_color_red; + c_731592.hdr.grayed = 0; +c_731592.tag = closureN_tag; + c_731592.fn = (function_type)__lambda_260; +c_731592.num_args = 1; +c_731592.num_elt = 27; +c_731592.elts = (object *)alloca(sizeof(object) * 27); +c_731592.elts[0] = ((closureN)self_73881)->elts[0]; +c_731592.elts[1] = ((closureN)self_73881)->elts[1]; +c_731592.elts[2] = ((closureN)self_73881)->elts[2]; +c_731592.elts[3] = ((closureN)self_73881)->elts[3]; +c_731592.elts[4] = ((closureN)self_73881)->elts[4]; +c_731592.elts[5] = ((closureN)self_73881)->elts[5]; +c_731592.elts[6] = ((closureN)self_73881)->elts[6]; +c_731592.elts[7] = ((closureN)self_73881)->elts[7]; +c_731592.elts[8] = ((closureN)self_73881)->elts[8]; +c_731592.elts[9] = ((closureN)self_73881)->elts[9]; +c_731592.elts[10] = ((closureN)self_73881)->elts[10]; +c_731592.elts[11] = ((closureN)self_73881)->elts[11]; +c_731592.elts[12] = ((closureN)self_73881)->elts[12]; +c_731592.elts[13] = ((closureN)self_73881)->elts[13]; +c_731592.elts[14] = ((closureN)self_73881)->elts[14]; +c_731592.elts[15] = ((closureN)self_73881)->elts[15]; +c_731592.elts[16] = ((closureN)self_73881)->elts[16]; +c_731592.elts[17] = ((closureN)self_73881)->elts[17]; +c_731592.elts[18] = ((closureN)self_73881)->elts[18]; +c_731592.elts[19] = ((closureN)self_73881)->elts[19]; +c_731592.elts[20] = ((closureN)self_73881)->elts[20]; +c_731592.elts[21] = ((closureN)self_73881)->elts[21]; +c_731592.elts[22] = ((closureN)self_73881)->elts[22]; +c_731592.elts[23] = ((closureN)self_73881)->elts[23]; +c_731592.elts[24] = ((closureN)self_73881)->elts[24]; +c_731592.elts[25] = ((closureN)self_73881)->elts[25]; +c_731592.elts[26] = ((closureN)self_73881)->elts[26]; + +return_closcall1(data,(closure)&c_731592, quote__85);; +} + +static void __lambda_260(void *data, int argc, object self_73882, object r_73440) { + +closureN_type c_731594; +c_731594.hdr.mark = gc_color_red; + c_731594.hdr.grayed = 0; +c_731594.tag = closureN_tag; + c_731594.fn = (function_type)__lambda_259; +c_731594.num_args = 1; +c_731594.num_elt = 27; +c_731594.elts = (object *)alloca(sizeof(object) * 27); +c_731594.elts[0] = ((closureN)self_73882)->elts[0]; +c_731594.elts[1] = ((closureN)self_73882)->elts[1]; +c_731594.elts[2] = ((closureN)self_73882)->elts[2]; +c_731594.elts[3] = ((closureN)self_73882)->elts[3]; +c_731594.elts[4] = ((closureN)self_73882)->elts[4]; +c_731594.elts[5] = ((closureN)self_73882)->elts[5]; +c_731594.elts[6] = ((closureN)self_73882)->elts[6]; +c_731594.elts[7] = ((closureN)self_73882)->elts[7]; +c_731594.elts[8] = ((closureN)self_73882)->elts[8]; +c_731594.elts[9] = ((closureN)self_73882)->elts[9]; +c_731594.elts[10] = ((closureN)self_73882)->elts[10]; +c_731594.elts[11] = ((closureN)self_73882)->elts[11]; +c_731594.elts[12] = ((closureN)self_73882)->elts[12]; +c_731594.elts[13] = ((closureN)self_73882)->elts[13]; +c_731594.elts[14] = ((closureN)self_73882)->elts[14]; +c_731594.elts[15] = ((closureN)self_73882)->elts[15]; +c_731594.elts[16] = ((closureN)self_73882)->elts[16]; +c_731594.elts[17] = ((closureN)self_73882)->elts[17]; +c_731594.elts[18] = ((closureN)self_73882)->elts[18]; +c_731594.elts[19] = ((closureN)self_73882)->elts[19]; +c_731594.elts[20] = ((closureN)self_73882)->elts[20]; +c_731594.elts[21] = ((closureN)self_73882)->elts[21]; +c_731594.elts[22] = ((closureN)self_73882)->elts[22]; +c_731594.elts[23] = ((closureN)self_73882)->elts[23]; +c_731594.elts[24] = ((closureN)self_73882)->elts[24]; +c_731594.elts[25] = ((closureN)self_73882)->elts[25]; +c_731594.elts[26] = ((closureN)self_73882)->elts[26]; + +return_closcall1(data,(closure)&c_731594, Cyc_set_car(data, ((closureN)self_73882)->elts[5], r_73440));; +} + +static void __lambda_259(void *data, int argc, object self_73883, object r_73290) { + +closureN_type c_731596; +c_731596.hdr.mark = gc_color_red; + c_731596.hdr.grayed = 0; +c_731596.tag = closureN_tag; + c_731596.fn = (function_type)__lambda_258; +c_731596.num_args = 1; +c_731596.num_elt = 27; +c_731596.elts = (object *)alloca(sizeof(object) * 27); +c_731596.elts[0] = ((closureN)self_73883)->elts[0]; +c_731596.elts[1] = ((closureN)self_73883)->elts[1]; +c_731596.elts[2] = ((closureN)self_73883)->elts[2]; +c_731596.elts[3] = ((closureN)self_73883)->elts[3]; +c_731596.elts[4] = ((closureN)self_73883)->elts[4]; +c_731596.elts[5] = ((closureN)self_73883)->elts[5]; +c_731596.elts[6] = ((closureN)self_73883)->elts[6]; +c_731596.elts[7] = ((closureN)self_73883)->elts[7]; +c_731596.elts[8] = ((closureN)self_73883)->elts[8]; +c_731596.elts[9] = ((closureN)self_73883)->elts[9]; +c_731596.elts[10] = ((closureN)self_73883)->elts[10]; +c_731596.elts[11] = ((closureN)self_73883)->elts[11]; +c_731596.elts[12] = ((closureN)self_73883)->elts[12]; +c_731596.elts[13] = ((closureN)self_73883)->elts[13]; +c_731596.elts[14] = ((closureN)self_73883)->elts[14]; +c_731596.elts[15] = ((closureN)self_73883)->elts[15]; +c_731596.elts[16] = ((closureN)self_73883)->elts[16]; +c_731596.elts[17] = ((closureN)self_73883)->elts[17]; +c_731596.elts[18] = ((closureN)self_73883)->elts[18]; +c_731596.elts[19] = ((closureN)self_73883)->elts[19]; +c_731596.elts[20] = ((closureN)self_73883)->elts[20]; +c_731596.elts[21] = ((closureN)self_73883)->elts[21]; +c_731596.elts[22] = ((closureN)self_73883)->elts[22]; +c_731596.elts[23] = ((closureN)self_73883)->elts[23]; +c_731596.elts[24] = ((closureN)self_73883)->elts[24]; +c_731596.elts[25] = ((closureN)self_73883)->elts[25]; +c_731596.elts[26] = ((closureN)self_73883)->elts[26]; + +return_closcall1(data,(closure)&c_731596, Cyc_set_car(data, ((closureN)self_73883)->elts[11], obj_int2obj(0)));; +} + +static void __lambda_258(void *data, int argc, object self_73884, object r_73291) { + +closureN_type c_731598; +c_731598.hdr.mark = gc_color_red; + c_731598.hdr.grayed = 0; +c_731598.tag = closureN_tag; + c_731598.fn = (function_type)__lambda_251; +c_731598.num_args = 1; +c_731598.num_elt = 27; +c_731598.elts = (object *)alloca(sizeof(object) * 27); +c_731598.elts[0] = ((closureN)self_73884)->elts[0]; +c_731598.elts[1] = ((closureN)self_73884)->elts[1]; +c_731598.elts[2] = ((closureN)self_73884)->elts[2]; +c_731598.elts[3] = ((closureN)self_73884)->elts[3]; +c_731598.elts[4] = ((closureN)self_73884)->elts[4]; +c_731598.elts[5] = ((closureN)self_73884)->elts[5]; +c_731598.elts[6] = ((closureN)self_73884)->elts[6]; +c_731598.elts[7] = ((closureN)self_73884)->elts[7]; +c_731598.elts[8] = ((closureN)self_73884)->elts[8]; +c_731598.elts[9] = ((closureN)self_73884)->elts[9]; +c_731598.elts[10] = ((closureN)self_73884)->elts[10]; +c_731598.elts[11] = ((closureN)self_73884)->elts[11]; +c_731598.elts[12] = ((closureN)self_73884)->elts[12]; +c_731598.elts[13] = ((closureN)self_73884)->elts[13]; +c_731598.elts[14] = ((closureN)self_73884)->elts[14]; +c_731598.elts[15] = ((closureN)self_73884)->elts[15]; +c_731598.elts[16] = ((closureN)self_73884)->elts[16]; +c_731598.elts[17] = ((closureN)self_73884)->elts[17]; +c_731598.elts[18] = ((closureN)self_73884)->elts[18]; +c_731598.elts[19] = ((closureN)self_73884)->elts[19]; +c_731598.elts[20] = ((closureN)self_73884)->elts[20]; +c_731598.elts[21] = ((closureN)self_73884)->elts[21]; +c_731598.elts[22] = ((closureN)self_73884)->elts[22]; +c_731598.elts[23] = ((closureN)self_73884)->elts[23]; +c_731598.elts[24] = ((closureN)self_73884)->elts[24]; +c_731598.elts[25] = ((closureN)self_73884)->elts[25]; +c_731598.elts[26] = ((closureN)self_73884)->elts[26]; + + +mclosure0(c_732401, (function_type)__lambda_257);c_732401.num_args = 3; +return_closcall1(data,(closure)&c_731598, &c_732401);; +} + +static void __lambda_257(void *data, int argc, object self_73885, object k_73434, object x_73192, object y_73191, object original_73190) { + +closureN_type c_732403; +c_732403.hdr.mark = gc_color_red; + c_732403.hdr.grayed = 0; +c_732403.tag = closureN_tag; + c_732403.fn = (function_type)__lambda_255; +c_732403.num_args = 0; +c_732403.num_elt = 3; +c_732403.elts = (object *)alloca(sizeof(object) * 3); +c_732403.elts[0] = original_73190; +c_732403.elts[1] = x_73192; +c_732403.elts[2] = y_73191; + + +closureN_type c_732426; +c_732426.hdr.mark = gc_color_red; + c_732426.hdr.grayed = 0; +c_732426.tag = closureN_tag; + c_732426.fn = (function_type)__lambda_256; +c_732426.num_args = 1; +c_732426.num_elt = 4; +c_732426.elts = (object *)alloca(sizeof(object) * 4); +c_732426.elts[0] = k_73434; +c_732426.elts[1] = original_73190; +c_732426.elts[2] = x_73192; +c_732426.elts[3] = y_73191; + +return_closcall1(data,(closure)&c_732403, &c_732426);; +} + +static void __lambda_256(void *data, int argc, object self_73886, object r_73435) { + if( !eq(boolean_f, r_73435) ){ + return_closcall1(data, ((closureN)self_73886)->elts[0], ((closureN)self_73886)->elts[1]); +} else { + +make_cons(c_732434,((closureN)self_73886)->elts[2], ((closureN)self_73886)->elts[3]); +return_closcall1(data, ((closureN)self_73886)->elts[0], &c_732434);} +; +} + +static void __lambda_255(void *data, int argc, object self_73887, object k_73436) { + +closureN_type c_732405; +c_732405.hdr.mark = gc_color_red; + c_732405.hdr.grayed = 0; +c_732405.tag = closureN_tag; + c_732405.fn = (function_type)__lambda_254; +c_732405.num_args = 1; +c_732405.num_elt = 4; +c_732405.elts = (object *)alloca(sizeof(object) * 4); +c_732405.elts[0] = k_73436; +c_732405.elts[1] = ((closureN)self_73887)->elts[0]; +c_732405.elts[2] = ((closureN)self_73887)->elts[1]; +c_732405.elts[3] = ((closureN)self_73887)->elts[2]; + +return_closcall1(data,(closure)&c_732405, car(((closureN)self_73887)->elts[0]));; +} + +static void __lambda_254(void *data, int argc, object self_73888, object r_73439) { + +closureN_type c_732407; +c_732407.hdr.mark = gc_color_red; + c_732407.hdr.grayed = 0; +c_732407.tag = closureN_tag; + c_732407.fn = (function_type)__lambda_253; +c_732407.num_args = 1; +c_732407.num_elt = 3; +c_732407.elts = (object *)alloca(sizeof(object) * 3); +c_732407.elts[0] = ((closureN)self_73888)->elts[0]; +c_732407.elts[1] = ((closureN)self_73888)->elts[1]; +c_732407.elts[2] = ((closureN)self_73888)->elts[3]; + +return_closcall1(data,(closure)&c_732407, Cyc_eq(((closureN)self_73888)->elts[2], r_73439));; +} + +static void __lambda_253(void *data, int argc, object self_73889, object r_73437) { + if( !eq(boolean_f, r_73437) ){ + +closureN_type c_732409; +c_732409.hdr.mark = gc_color_red; + c_732409.hdr.grayed = 0; +c_732409.tag = closureN_tag; + c_732409.fn = (function_type)__lambda_252; +c_732409.num_args = 1; +c_732409.num_elt = 2; +c_732409.elts = (object *)alloca(sizeof(object) * 2); +c_732409.elts[0] = ((closureN)self_73889)->elts[0]; +c_732409.elts[1] = ((closureN)self_73889)->elts[2]; + +return_closcall1(data,(closure)&c_732409, cdr(((closureN)self_73889)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_73889)->elts[0], boolean_f);} +; +} + +static void __lambda_252(void *data, int argc, object self_73890, object r_73438) { + return_closcall1(data, ((closureN)self_73890)->elts[0], Cyc_eq(((closureN)self_73890)->elts[1], r_73438));; +} + +static void __lambda_251(void *data, int argc, object self_73891, object r_73433) { + +closureN_type c_731600; +c_731600.hdr.mark = gc_color_red; + c_731600.hdr.grayed = 0; +c_731600.tag = closureN_tag; + c_731600.fn = (function_type)__lambda_250; +c_731600.num_args = 1; +c_731600.num_elt = 27; +c_731600.elts = (object *)alloca(sizeof(object) * 27); +c_731600.elts[0] = ((closureN)self_73891)->elts[0]; +c_731600.elts[1] = ((closureN)self_73891)->elts[1]; +c_731600.elts[2] = ((closureN)self_73891)->elts[2]; +c_731600.elts[3] = ((closureN)self_73891)->elts[3]; +c_731600.elts[4] = ((closureN)self_73891)->elts[4]; +c_731600.elts[5] = ((closureN)self_73891)->elts[5]; +c_731600.elts[6] = ((closureN)self_73891)->elts[6]; +c_731600.elts[7] = ((closureN)self_73891)->elts[7]; +c_731600.elts[8] = ((closureN)self_73891)->elts[8]; +c_731600.elts[9] = ((closureN)self_73891)->elts[9]; +c_731600.elts[10] = ((closureN)self_73891)->elts[10]; +c_731600.elts[11] = ((closureN)self_73891)->elts[11]; +c_731600.elts[12] = ((closureN)self_73891)->elts[12]; +c_731600.elts[13] = ((closureN)self_73891)->elts[13]; +c_731600.elts[14] = ((closureN)self_73891)->elts[14]; +c_731600.elts[15] = ((closureN)self_73891)->elts[15]; +c_731600.elts[16] = ((closureN)self_73891)->elts[16]; +c_731600.elts[17] = ((closureN)self_73891)->elts[17]; +c_731600.elts[18] = ((closureN)self_73891)->elts[18]; +c_731600.elts[19] = ((closureN)self_73891)->elts[19]; +c_731600.elts[20] = ((closureN)self_73891)->elts[20]; +c_731600.elts[21] = ((closureN)self_73891)->elts[21]; +c_731600.elts[22] = ((closureN)self_73891)->elts[22]; +c_731600.elts[23] = ((closureN)self_73891)->elts[23]; +c_731600.elts[24] = ((closureN)self_73891)->elts[24]; +c_731600.elts[25] = ((closureN)self_73891)->elts[25]; +c_731600.elts[26] = ((closureN)self_73891)->elts[26]; + +return_closcall1(data,(closure)&c_731600, Cyc_set_car(data, ((closureN)self_73891)->elts[13], r_73433));; +} + +static void __lambda_250(void *data, int argc, object self_73892, object r_73292) { + +closureN_type c_731602; +c_731602.hdr.mark = gc_color_red; + c_731602.hdr.grayed = 0; +c_731602.tag = closureN_tag; + c_731602.fn = (function_type)__lambda_237; +c_731602.num_args = 1; +c_731602.num_elt = 26; +c_731602.elts = (object *)alloca(sizeof(object) * 26); +c_731602.elts[0] = ((closureN)self_73892)->elts[0]; +c_731602.elts[1] = ((closureN)self_73892)->elts[1]; +c_731602.elts[2] = ((closureN)self_73892)->elts[2]; +c_731602.elts[3] = ((closureN)self_73892)->elts[3]; +c_731602.elts[4] = ((closureN)self_73892)->elts[5]; +c_731602.elts[5] = ((closureN)self_73892)->elts[6]; +c_731602.elts[6] = ((closureN)self_73892)->elts[7]; +c_731602.elts[7] = ((closureN)self_73892)->elts[8]; +c_731602.elts[8] = ((closureN)self_73892)->elts[9]; +c_731602.elts[9] = ((closureN)self_73892)->elts[10]; +c_731602.elts[10] = ((closureN)self_73892)->elts[11]; +c_731602.elts[11] = ((closureN)self_73892)->elts[12]; +c_731602.elts[12] = ((closureN)self_73892)->elts[13]; +c_731602.elts[13] = ((closureN)self_73892)->elts[14]; +c_731602.elts[14] = ((closureN)self_73892)->elts[15]; +c_731602.elts[15] = ((closureN)self_73892)->elts[16]; +c_731602.elts[16] = ((closureN)self_73892)->elts[17]; +c_731602.elts[17] = ((closureN)self_73892)->elts[18]; +c_731602.elts[18] = ((closureN)self_73892)->elts[19]; +c_731602.elts[19] = ((closureN)self_73892)->elts[20]; +c_731602.elts[20] = ((closureN)self_73892)->elts[21]; +c_731602.elts[21] = ((closureN)self_73892)->elts[22]; +c_731602.elts[22] = ((closureN)self_73892)->elts[23]; +c_731602.elts[23] = ((closureN)self_73892)->elts[24]; +c_731602.elts[24] = ((closureN)self_73892)->elts[25]; +c_731602.elts[25] = ((closureN)self_73892)->elts[26]; + + +closureN_type c_732334; +c_732334.hdr.mark = gc_color_red; + c_732334.hdr.grayed = 0; +c_732334.tag = closureN_tag; + c_732334.fn = (function_type)__lambda_249; +c_732334.num_args = 1; +c_732334.num_elt = 5; +c_732334.elts = (object *)alloca(sizeof(object) * 5); +c_732334.elts[0] = ((closureN)self_73892)->elts[4]; +c_732334.elts[1] = ((closureN)self_73892)->elts[10]; +c_732334.elts[2] = ((closureN)self_73892)->elts[11]; +c_732334.elts[3] = ((closureN)self_73892)->elts[12]; +c_732334.elts[4] = ((closureN)self_73892)->elts[13]; + +return_closcall1(data,(closure)&c_731602, &c_732334);; +} + +static void __lambda_249(void *data, int argc, object self_73893, object k_73423, object term_73189) { + +closureN_type c_732336; +c_732336.hdr.mark = gc_color_red; + c_732336.hdr.grayed = 0; +c_732336.tag = closureN_tag; + c_732336.fn = (function_type)__lambda_248; +c_732336.num_args = 1; +c_732336.num_elt = 7; +c_732336.elts = (object *)alloca(sizeof(object) * 7); +c_732336.elts[0] = ((closureN)self_73893)->elts[0]; +c_732336.elts[1] = k_73423; +c_732336.elts[2] = ((closureN)self_73893)->elts[1]; +c_732336.elts[3] = ((closureN)self_73893)->elts[2]; +c_732336.elts[4] = ((closureN)self_73893)->elts[3]; +c_732336.elts[5] = ((closureN)self_73893)->elts[4]; +c_732336.elts[6] = term_73189; + + +object c_732394 = Cyc_sum(data,(closure)&c_732336,2,cell_get(((closureN)self_73893)->elts[2]), obj_int2obj(1)); +return_closcall1(data,(closure)&c_732336, c_732394);; +} + +static void __lambda_248(void *data, int argc, object self_73894, object r_73432) { + +closureN_type c_732338; +c_732338.hdr.mark = gc_color_red; + c_732338.hdr.grayed = 0; +c_732338.tag = closureN_tag; + c_732338.fn = (function_type)__lambda_247; +c_732338.num_args = 1; +c_732338.num_elt = 6; +c_732338.elts = (object *)alloca(sizeof(object) * 6); +c_732338.elts[0] = ((closureN)self_73894)->elts[0]; +c_732338.elts[1] = ((closureN)self_73894)->elts[1]; +c_732338.elts[2] = ((closureN)self_73894)->elts[2]; +c_732338.elts[3] = ((closureN)self_73894)->elts[4]; +c_732338.elts[4] = ((closureN)self_73894)->elts[5]; +c_732338.elts[5] = ((closureN)self_73894)->elts[6]; + +return_closcall1(data,(closure)&c_732338, Cyc_set_car(data, ((closureN)self_73894)->elts[3], r_73432));; +} + +static void __lambda_247(void *data, int argc, object self_73895, object r_73424) { + +closureN_type c_732340; +c_732340.hdr.mark = gc_color_red; + c_732340.hdr.grayed = 0; +c_732340.tag = closureN_tag; + c_732340.fn = (function_type)__lambda_246; +c_732340.num_args = 1; +c_732340.num_elt = 6; +c_732340.elts = (object *)alloca(sizeof(object) * 6); +c_732340.elts[0] = ((closureN)self_73895)->elts[0]; +c_732340.elts[1] = ((closureN)self_73895)->elts[1]; +c_732340.elts[2] = ((closureN)self_73895)->elts[2]; +c_732340.elts[3] = ((closureN)self_73895)->elts[3]; +c_732340.elts[4] = ((closureN)self_73895)->elts[4]; +c_732340.elts[5] = ((closureN)self_73895)->elts[5]; + +return_closcall1(data,(closure)&c_732340, Cyc_is_cons(((closureN)self_73895)->elts[5]));; +} + +static void __lambda_246(void *data, int argc, object self_73896, object r_73425) { + if( !eq(boolean_f, r_73425) ){ + +closureN_type c_732342; +c_732342.hdr.mark = gc_color_red; + c_732342.hdr.grayed = 0; +c_732342.tag = closureN_tag; + c_732342.fn = (function_type)__lambda_244; +c_732342.num_args = 0; +c_732342.num_elt = 6; +c_732342.elts = (object *)alloca(sizeof(object) * 6); +c_732342.elts[0] = ((closureN)self_73896)->elts[0]; +c_732342.elts[1] = ((closureN)self_73896)->elts[1]; +c_732342.elts[2] = ((closureN)self_73896)->elts[2]; +c_732342.elts[3] = ((closureN)self_73896)->elts[3]; +c_732342.elts[4] = ((closureN)self_73896)->elts[4]; +c_732342.elts[5] = ((closureN)self_73896)->elts[5]; + +return_closcall0(data,(closure)&c_732342); +} else { + +closureN_type c_732382; +c_732382.hdr.mark = gc_color_red; + c_732382.hdr.grayed = 0; +c_732382.tag = closureN_tag; + c_732382.fn = (function_type)__lambda_245; +c_732382.num_args = 0; +c_732382.num_elt = 2; +c_732382.elts = (object *)alloca(sizeof(object) * 2); +c_732382.elts[0] = ((closureN)self_73896)->elts[1]; +c_732382.elts[1] = ((closureN)self_73896)->elts[5]; + +return_closcall0(data,(closure)&c_732382);} +; +} + +static void __lambda_245(void *data, int argc, object self_73897) { + return_closcall1(data, ((closureN)self_73897)->elts[0], ((closureN)self_73897)->elts[1]);; +} + +static void __lambda_244(void *data, int argc, object self_73898) { + +closureN_type c_732344; +c_732344.hdr.mark = gc_color_red; + c_732344.hdr.grayed = 0; +c_732344.tag = closureN_tag; + c_732344.fn = (function_type)__lambda_243; +c_732344.num_args = 1; +c_732344.num_elt = 6; +c_732344.elts = (object *)alloca(sizeof(object) * 6); +c_732344.elts[0] = ((closureN)self_73898)->elts[0]; +c_732344.elts[1] = ((closureN)self_73898)->elts[1]; +c_732344.elts[2] = ((closureN)self_73898)->elts[2]; +c_732344.elts[3] = ((closureN)self_73898)->elts[3]; +c_732344.elts[4] = ((closureN)self_73898)->elts[4]; +c_732344.elts[5] = ((closureN)self_73898)->elts[5]; + +return_closcall1(data,(closure)&c_732344, car(((closureN)self_73898)->elts[5]));; +} + +static void __lambda_243(void *data, int argc, object self_73899, object r_73429) { + +closureN_type c_732346; +c_732346.hdr.mark = gc_color_red; + c_732346.hdr.grayed = 0; +c_732346.tag = closureN_tag; + c_732346.fn = (function_type)__lambda_242; +c_732346.num_args = 1; +c_732346.num_elt = 7; +c_732346.elts = (object *)alloca(sizeof(object) * 7); +c_732346.elts[0] = ((closureN)self_73899)->elts[0]; +c_732346.elts[1] = ((closureN)self_73899)->elts[1]; +c_732346.elts[2] = r_73429; +c_732346.elts[3] = ((closureN)self_73899)->elts[2]; +c_732346.elts[4] = ((closureN)self_73899)->elts[3]; +c_732346.elts[5] = ((closureN)self_73899)->elts[4]; +c_732346.elts[6] = ((closureN)self_73899)->elts[5]; + +return_closcall1(data,(closure)&c_732346, cdr(((closureN)self_73899)->elts[5]));; +} + +static void __lambda_242(void *data, int argc, object self_73900, object r_73431) { + +closureN_type c_732351; +c_732351.hdr.mark = gc_color_red; + c_732351.hdr.grayed = 0; +c_732351.tag = closureN_tag; + c_732351.fn = (function_type)__lambda_241; +c_732351.num_args = 1; +c_732351.num_elt = 6; +c_732351.elts = (object *)alloca(sizeof(object) * 6); +c_732351.elts[0] = ((closureN)self_73900)->elts[0]; +c_732351.elts[1] = ((closureN)self_73900)->elts[1]; +c_732351.elts[2] = ((closureN)self_73900)->elts[2]; +c_732351.elts[3] = ((closureN)self_73900)->elts[4]; +c_732351.elts[4] = ((closureN)self_73900)->elts[5]; +c_732351.elts[5] = ((closureN)self_73900)->elts[6]; + +return_closcall2(data, cell_get(((closureN)self_73900)->elts[3]), &c_732351, r_73431);; +} + +static void __lambda_241(void *data, int argc, object self_73901, object r_73430) { + +closureN_type c_732356; +c_732356.hdr.mark = gc_color_red; + c_732356.hdr.grayed = 0; +c_732356.tag = closureN_tag; + c_732356.fn = (function_type)__lambda_240; +c_732356.num_args = 1; +c_732356.num_elt = 4; +c_732356.elts = (object *)alloca(sizeof(object) * 4); +c_732356.elts[0] = ((closureN)self_73901)->elts[0]; +c_732356.elts[1] = ((closureN)self_73901)->elts[1]; +c_732356.elts[2] = ((closureN)self_73901)->elts[3]; +c_732356.elts[3] = ((closureN)self_73901)->elts[5]; + +return_closcall4(data, cell_get(((closureN)self_73901)->elts[4]), &c_732356, ((closureN)self_73901)->elts[2], r_73430, ((closureN)self_73901)->elts[5]);; +} + +static void __lambda_240(void *data, int argc, object self_73902, object r_73426) { + +closureN_type c_732358; +c_732358.hdr.mark = gc_color_red; + c_732358.hdr.grayed = 0; +c_732358.tag = closureN_tag; + c_732358.fn = (function_type)__lambda_239; +c_732358.num_args = 1; +c_732358.num_elt = 4; +c_732358.elts = (object *)alloca(sizeof(object) * 4); +c_732358.elts[0] = ((closureN)self_73902)->elts[0]; +c_732358.elts[1] = ((closureN)self_73902)->elts[1]; +c_732358.elts[2] = r_73426; +c_732358.elts[3] = ((closureN)self_73902)->elts[2]; + +return_closcall1(data,(closure)&c_732358, car(((closureN)self_73902)->elts[3]));; +} + +static void __lambda_239(void *data, int argc, object self_73903, object r_73428) { + +closureN_type c_732363; +c_732363.hdr.mark = gc_color_red; + c_732363.hdr.grayed = 0; +c_732363.tag = closureN_tag; + c_732363.fn = (function_type)__lambda_238; +c_732363.num_args = 1; +c_732363.num_elt = 3; +c_732363.elts = (object *)alloca(sizeof(object) * 3); +c_732363.elts[0] = ((closureN)self_73903)->elts[1]; +c_732363.elts[1] = ((closureN)self_73903)->elts[2]; +c_732363.elts[2] = ((closureN)self_73903)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73903)->elts[0]), &c_732363, r_73428);; +} + +static void __lambda_238(void *data, int argc, object self_73904, object r_73427) { + return_closcall3(data, cell_get(((closureN)self_73904)->elts[2]), ((closureN)self_73904)->elts[0], ((closureN)self_73904)->elts[1], r_73427);; +} + +static void __lambda_237(void *data, int argc, object self_73905, object r_73422) { + +closureN_type c_731604; +c_731604.hdr.mark = gc_color_red; + c_731604.hdr.grayed = 0; +c_731604.tag = closureN_tag; + c_731604.fn = (function_type)__lambda_236; +c_731604.num_args = 1; +c_731604.num_elt = 26; +c_731604.elts = (object *)alloca(sizeof(object) * 26); +c_731604.elts[0] = ((closureN)self_73905)->elts[0]; +c_731604.elts[1] = ((closureN)self_73905)->elts[1]; +c_731604.elts[2] = ((closureN)self_73905)->elts[2]; +c_731604.elts[3] = ((closureN)self_73905)->elts[3]; +c_731604.elts[4] = ((closureN)self_73905)->elts[4]; +c_731604.elts[5] = ((closureN)self_73905)->elts[5]; +c_731604.elts[6] = ((closureN)self_73905)->elts[6]; +c_731604.elts[7] = ((closureN)self_73905)->elts[7]; +c_731604.elts[8] = ((closureN)self_73905)->elts[8]; +c_731604.elts[9] = ((closureN)self_73905)->elts[9]; +c_731604.elts[10] = ((closureN)self_73905)->elts[10]; +c_731604.elts[11] = ((closureN)self_73905)->elts[11]; +c_731604.elts[12] = ((closureN)self_73905)->elts[12]; +c_731604.elts[13] = ((closureN)self_73905)->elts[13]; +c_731604.elts[14] = ((closureN)self_73905)->elts[14]; +c_731604.elts[15] = ((closureN)self_73905)->elts[15]; +c_731604.elts[16] = ((closureN)self_73905)->elts[16]; +c_731604.elts[17] = ((closureN)self_73905)->elts[17]; +c_731604.elts[18] = ((closureN)self_73905)->elts[18]; +c_731604.elts[19] = ((closureN)self_73905)->elts[19]; +c_731604.elts[20] = ((closureN)self_73905)->elts[20]; +c_731604.elts[21] = ((closureN)self_73905)->elts[21]; +c_731604.elts[22] = ((closureN)self_73905)->elts[22]; +c_731604.elts[23] = ((closureN)self_73905)->elts[23]; +c_731604.elts[24] = ((closureN)self_73905)->elts[24]; +c_731604.elts[25] = ((closureN)self_73905)->elts[25]; + +return_closcall1(data,(closure)&c_731604, Cyc_set_car(data, ((closureN)self_73905)->elts[8], r_73422));; +} + +static void __lambda_236(void *data, int argc, object self_73906, object r_73293) { + +closureN_type c_731606; +c_731606.hdr.mark = gc_color_red; + c_731606.hdr.grayed = 0; +c_731606.tag = closureN_tag; + c_731606.fn = (function_type)__lambda_227; +c_731606.num_args = 1; +c_731606.num_elt = 25; +c_731606.elts = (object *)alloca(sizeof(object) * 25); +c_731606.elts[0] = ((closureN)self_73906)->elts[0]; +c_731606.elts[1] = ((closureN)self_73906)->elts[1]; +c_731606.elts[2] = ((closureN)self_73906)->elts[2]; +c_731606.elts[3] = ((closureN)self_73906)->elts[3]; +c_731606.elts[4] = ((closureN)self_73906)->elts[4]; +c_731606.elts[5] = ((closureN)self_73906)->elts[5]; +c_731606.elts[6] = ((closureN)self_73906)->elts[6]; +c_731606.elts[7] = ((closureN)self_73906)->elts[7]; +c_731606.elts[8] = ((closureN)self_73906)->elts[8]; +c_731606.elts[9] = ((closureN)self_73906)->elts[9]; +c_731606.elts[10] = ((closureN)self_73906)->elts[10]; +c_731606.elts[11] = ((closureN)self_73906)->elts[11]; +c_731606.elts[12] = ((closureN)self_73906)->elts[13]; +c_731606.elts[13] = ((closureN)self_73906)->elts[14]; +c_731606.elts[14] = ((closureN)self_73906)->elts[15]; +c_731606.elts[15] = ((closureN)self_73906)->elts[16]; +c_731606.elts[16] = ((closureN)self_73906)->elts[17]; +c_731606.elts[17] = ((closureN)self_73906)->elts[18]; +c_731606.elts[18] = ((closureN)self_73906)->elts[19]; +c_731606.elts[19] = ((closureN)self_73906)->elts[20]; +c_731606.elts[20] = ((closureN)self_73906)->elts[21]; +c_731606.elts[21] = ((closureN)self_73906)->elts[22]; +c_731606.elts[22] = ((closureN)self_73906)->elts[23]; +c_731606.elts[23] = ((closureN)self_73906)->elts[24]; +c_731606.elts[24] = ((closureN)self_73906)->elts[25]; + + +closureN_type c_732293; +c_732293.hdr.mark = gc_color_red; + c_732293.hdr.grayed = 0; +c_732293.tag = closureN_tag; + c_732293.fn = (function_type)__lambda_235; +c_732293.num_args = 1; +c_732293.num_elt = 3; +c_732293.elts = (object *)alloca(sizeof(object) * 3); +c_732293.elts[0] = ((closureN)self_73906)->elts[8]; +c_732293.elts[1] = ((closureN)self_73906)->elts[9]; +c_732293.elts[2] = ((closureN)self_73906)->elts[12]; + +return_closcall1(data,(closure)&c_731606, &c_732293);; +} + +static void __lambda_235(void *data, int argc, object self_73907, object k_73416, object lst_73188) { + +closureN_type c_732295; +c_732295.hdr.mark = gc_color_red; + c_732295.hdr.grayed = 0; +c_732295.tag = closureN_tag; + c_732295.fn = (function_type)__lambda_234; +c_732295.num_args = 1; +c_732295.num_elt = 5; +c_732295.elts = (object *)alloca(sizeof(object) * 5); +c_732295.elts[0] = k_73416; +c_732295.elts[1] = lst_73188; +c_732295.elts[2] = ((closureN)self_73907)->elts[0]; +c_732295.elts[3] = ((closureN)self_73907)->elts[1]; +c_732295.elts[4] = ((closureN)self_73907)->elts[2]; + +return_closcall1(data,(closure)&c_732295, Cyc_is_null(lst_73188));; +} + +static void __lambda_234(void *data, int argc, object self_73908, object r_73417) { + if( !eq(boolean_f, r_73417) ){ + +closureN_type c_732297; +c_732297.hdr.mark = gc_color_red; + c_732297.hdr.grayed = 0; +c_732297.tag = closureN_tag; + c_732297.fn = (function_type)__lambda_228; +c_732297.num_args = 0; +c_732297.num_elt = 1; +c_732297.elts = (object *)alloca(sizeof(object) * 1); +c_732297.elts[0] = ((closureN)self_73908)->elts[0]; + +return_closcall0(data,(closure)&c_732297); +} else { + +closureN_type c_732301; +c_732301.hdr.mark = gc_color_red; + c_732301.hdr.grayed = 0; +c_732301.tag = closureN_tag; + c_732301.fn = (function_type)__lambda_233; +c_732301.num_args = 0; +c_732301.num_elt = 5; +c_732301.elts = (object *)alloca(sizeof(object) * 5); +c_732301.elts[0] = ((closureN)self_73908)->elts[0]; +c_732301.elts[1] = ((closureN)self_73908)->elts[1]; +c_732301.elts[2] = ((closureN)self_73908)->elts[2]; +c_732301.elts[3] = ((closureN)self_73908)->elts[3]; +c_732301.elts[4] = ((closureN)self_73908)->elts[4]; + +return_closcall0(data,(closure)&c_732301);} +; +} + +static void __lambda_233(void *data, int argc, object self_73909) { + +closureN_type c_732303; +c_732303.hdr.mark = gc_color_red; + c_732303.hdr.grayed = 0; +c_732303.tag = closureN_tag; + c_732303.fn = (function_type)__lambda_232; +c_732303.num_args = 1; +c_732303.num_elt = 5; +c_732303.elts = (object *)alloca(sizeof(object) * 5); +c_732303.elts[0] = ((closureN)self_73909)->elts[0]; +c_732303.elts[1] = ((closureN)self_73909)->elts[1]; +c_732303.elts[2] = ((closureN)self_73909)->elts[2]; +c_732303.elts[3] = ((closureN)self_73909)->elts[3]; +c_732303.elts[4] = ((closureN)self_73909)->elts[4]; + +return_closcall1(data,(closure)&c_732303, car(((closureN)self_73909)->elts[1]));; +} + +static void __lambda_232(void *data, int argc, object self_73910, object r_73421) { + +closureN_type c_732308; +c_732308.hdr.mark = gc_color_red; + c_732308.hdr.grayed = 0; +c_732308.tag = closureN_tag; + c_732308.fn = (function_type)__lambda_231; +c_732308.num_args = 1; +c_732308.num_elt = 4; +c_732308.elts = (object *)alloca(sizeof(object) * 4); +c_732308.elts[0] = ((closureN)self_73910)->elts[0]; +c_732308.elts[1] = ((closureN)self_73910)->elts[1]; +c_732308.elts[2] = ((closureN)self_73910)->elts[3]; +c_732308.elts[3] = ((closureN)self_73910)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_73910)->elts[2]), &c_732308, r_73421);; +} + +static void __lambda_231(void *data, int argc, object self_73911, object r_73418) { + +closureN_type c_732310; +c_732310.hdr.mark = gc_color_red; + c_732310.hdr.grayed = 0; +c_732310.tag = closureN_tag; + c_732310.fn = (function_type)__lambda_230; +c_732310.num_args = 1; +c_732310.num_elt = 5; +c_732310.elts = (object *)alloca(sizeof(object) * 5); +c_732310.elts[0] = ((closureN)self_73911)->elts[0]; +c_732310.elts[1] = ((closureN)self_73911)->elts[1]; +c_732310.elts[2] = r_73418; +c_732310.elts[3] = ((closureN)self_73911)->elts[2]; +c_732310.elts[4] = ((closureN)self_73911)->elts[3]; + +return_closcall1(data,(closure)&c_732310, cdr(((closureN)self_73911)->elts[1]));; +} + +static void __lambda_230(void *data, int argc, object self_73912, object r_73420) { + +closureN_type c_732315; +c_732315.hdr.mark = gc_color_red; + c_732315.hdr.grayed = 0; +c_732315.tag = closureN_tag; + c_732315.fn = (function_type)__lambda_229; +c_732315.num_args = 1; +c_732315.num_elt = 4; +c_732315.elts = (object *)alloca(sizeof(object) * 4); +c_732315.elts[0] = ((closureN)self_73912)->elts[0]; +c_732315.elts[1] = ((closureN)self_73912)->elts[1]; +c_732315.elts[2] = ((closureN)self_73912)->elts[2]; +c_732315.elts[3] = ((closureN)self_73912)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_73912)->elts[3]), &c_732315, r_73420);; +} + +static void __lambda_229(void *data, int argc, object self_73913, object r_73419) { + return_closcall4(data, cell_get(((closureN)self_73913)->elts[3]), ((closureN)self_73913)->elts[0], ((closureN)self_73913)->elts[2], r_73419, ((closureN)self_73913)->elts[1]);; +} + +static void __lambda_228(void *data, int argc, object self_73914) { + return_closcall1(data, ((closureN)self_73914)->elts[0], nil);; +} + +static void __lambda_227(void *data, int argc, object self_73915, object r_73415) { + +closureN_type c_731608; +c_731608.hdr.mark = gc_color_red; + c_731608.hdr.grayed = 0; +c_731608.tag = closureN_tag; + c_731608.fn = (function_type)__lambda_226; +c_731608.num_args = 1; +c_731608.num_elt = 24; +c_731608.elts = (object *)alloca(sizeof(object) * 24); +c_731608.elts[0] = ((closureN)self_73915)->elts[0]; +c_731608.elts[1] = ((closureN)self_73915)->elts[1]; +c_731608.elts[2] = ((closureN)self_73915)->elts[2]; +c_731608.elts[3] = ((closureN)self_73915)->elts[3]; +c_731608.elts[4] = ((closureN)self_73915)->elts[4]; +c_731608.elts[5] = ((closureN)self_73915)->elts[5]; +c_731608.elts[6] = ((closureN)self_73915)->elts[6]; +c_731608.elts[7] = ((closureN)self_73915)->elts[7]; +c_731608.elts[8] = ((closureN)self_73915)->elts[8]; +c_731608.elts[9] = ((closureN)self_73915)->elts[10]; +c_731608.elts[10] = ((closureN)self_73915)->elts[11]; +c_731608.elts[11] = ((closureN)self_73915)->elts[12]; +c_731608.elts[12] = ((closureN)self_73915)->elts[13]; +c_731608.elts[13] = ((closureN)self_73915)->elts[14]; +c_731608.elts[14] = ((closureN)self_73915)->elts[15]; +c_731608.elts[15] = ((closureN)self_73915)->elts[16]; +c_731608.elts[16] = ((closureN)self_73915)->elts[17]; +c_731608.elts[17] = ((closureN)self_73915)->elts[18]; +c_731608.elts[18] = ((closureN)self_73915)->elts[19]; +c_731608.elts[19] = ((closureN)self_73915)->elts[20]; +c_731608.elts[20] = ((closureN)self_73915)->elts[21]; +c_731608.elts[21] = ((closureN)self_73915)->elts[22]; +c_731608.elts[22] = ((closureN)self_73915)->elts[23]; +c_731608.elts[23] = ((closureN)self_73915)->elts[24]; + +return_closcall1(data,(closure)&c_731608, Cyc_set_car(data, ((closureN)self_73915)->elts[9], r_73415));; +} + +static void __lambda_226(void *data, int argc, object self_73916, object r_73294) { + +closureN_type c_731610; +c_731610.hdr.mark = gc_color_red; + c_731610.hdr.grayed = 0; +c_731610.tag = closureN_tag; + c_731610.fn = (function_type)__lambda_213; +c_731610.num_args = 1; +c_731610.num_elt = 22; +c_731610.elts = (object *)alloca(sizeof(object) * 22); +c_731610.elts[0] = ((closureN)self_73916)->elts[0]; +c_731610.elts[1] = ((closureN)self_73916)->elts[2]; +c_731610.elts[2] = ((closureN)self_73916)->elts[3]; +c_731610.elts[3] = ((closureN)self_73916)->elts[4]; +c_731610.elts[4] = ((closureN)self_73916)->elts[5]; +c_731610.elts[5] = ((closureN)self_73916)->elts[6]; +c_731610.elts[6] = ((closureN)self_73916)->elts[7]; +c_731610.elts[7] = ((closureN)self_73916)->elts[9]; +c_731610.elts[8] = ((closureN)self_73916)->elts[10]; +c_731610.elts[9] = ((closureN)self_73916)->elts[11]; +c_731610.elts[10] = ((closureN)self_73916)->elts[12]; +c_731610.elts[11] = ((closureN)self_73916)->elts[13]; +c_731610.elts[12] = ((closureN)self_73916)->elts[14]; +c_731610.elts[13] = ((closureN)self_73916)->elts[15]; +c_731610.elts[14] = ((closureN)self_73916)->elts[16]; +c_731610.elts[15] = ((closureN)self_73916)->elts[17]; +c_731610.elts[16] = ((closureN)self_73916)->elts[18]; +c_731610.elts[17] = ((closureN)self_73916)->elts[19]; +c_731610.elts[18] = ((closureN)self_73916)->elts[20]; +c_731610.elts[19] = ((closureN)self_73916)->elts[21]; +c_731610.elts[20] = ((closureN)self_73916)->elts[22]; +c_731610.elts[21] = ((closureN)self_73916)->elts[23]; + + +closureN_type c_732228; +c_732228.hdr.mark = gc_color_red; + c_732228.hdr.grayed = 0; +c_732228.tag = closureN_tag; + c_732228.fn = (function_type)__lambda_225; +c_732228.num_args = 2; +c_732228.num_elt = 5; +c_732228.elts = (object *)alloca(sizeof(object) * 5); +c_732228.elts[0] = ((closureN)self_73916)->elts[1]; +c_732228.elts[1] = ((closureN)self_73916)->elts[5]; +c_732228.elts[2] = ((closureN)self_73916)->elts[8]; +c_732228.elts[3] = ((closureN)self_73916)->elts[10]; +c_732228.elts[4] = ((closureN)self_73916)->elts[23]; + +return_closcall1(data,(closure)&c_731610, &c_732228);; +} + +static void __lambda_225(void *data, int argc, object self_73917, object k_73406, object term_73187, object lst_73186) { + +closureN_type c_732230; +c_732230.hdr.mark = gc_color_red; + c_732230.hdr.grayed = 0; +c_732230.tag = closureN_tag; + c_732230.fn = (function_type)__lambda_224; +c_732230.num_args = 1; +c_732230.num_elt = 8; +c_732230.elts = (object *)alloca(sizeof(object) * 8); +c_732230.elts[0] = ((closureN)self_73917)->elts[0]; +c_732230.elts[1] = k_73406; +c_732230.elts[2] = lst_73186; +c_732230.elts[3] = ((closureN)self_73917)->elts[1]; +c_732230.elts[4] = ((closureN)self_73917)->elts[2]; +c_732230.elts[5] = ((closureN)self_73917)->elts[3]; +c_732230.elts[6] = term_73187; +c_732230.elts[7] = ((closureN)self_73917)->elts[4]; + +return_closcall1(data,(closure)&c_732230, Cyc_is_null(lst_73186));; +} + +static void __lambda_224(void *data, int argc, object self_73918, object r_73407) { + if( !eq(boolean_f, r_73407) ){ + +closureN_type c_732232; +c_732232.hdr.mark = gc_color_red; + c_732232.hdr.grayed = 0; +c_732232.tag = closureN_tag; + c_732232.fn = (function_type)__lambda_214; +c_732232.num_args = 0; +c_732232.num_elt = 2; +c_732232.elts = (object *)alloca(sizeof(object) * 2); +c_732232.elts[0] = ((closureN)self_73918)->elts[1]; +c_732232.elts[1] = ((closureN)self_73918)->elts[6]; + +return_closcall0(data,(closure)&c_732232); +} else { + +closureN_type c_732237; +c_732237.hdr.mark = gc_color_red; + c_732237.hdr.grayed = 0; +c_732237.tag = closureN_tag; + c_732237.fn = (function_type)__lambda_223; +c_732237.num_args = 1; +c_732237.num_elt = 8; +c_732237.elts = (object *)alloca(sizeof(object) * 8); +c_732237.elts[0] = ((closureN)self_73918)->elts[0]; +c_732237.elts[1] = ((closureN)self_73918)->elts[1]; +c_732237.elts[2] = ((closureN)self_73918)->elts[2]; +c_732237.elts[3] = ((closureN)self_73918)->elts[3]; +c_732237.elts[4] = ((closureN)self_73918)->elts[4]; +c_732237.elts[5] = ((closureN)self_73918)->elts[5]; +c_732237.elts[6] = ((closureN)self_73918)->elts[6]; +c_732237.elts[7] = ((closureN)self_73918)->elts[7]; + +return_closcall1(data,(closure)&c_732237, car(((closureN)self_73918)->elts[2]));} +; +} + +static void __lambda_223(void *data, int argc, object self_73919, object r_73414) { + +closureN_type c_732239; +c_732239.hdr.mark = gc_color_red; + c_732239.hdr.grayed = 0; +c_732239.tag = closureN_tag; + c_732239.fn = (function_type)__lambda_222; +c_732239.num_args = 1; +c_732239.num_elt = 8; +c_732239.elts = (object *)alloca(sizeof(object) * 8); +c_732239.elts[0] = ((closureN)self_73919)->elts[0]; +c_732239.elts[1] = ((closureN)self_73919)->elts[1]; +c_732239.elts[2] = ((closureN)self_73919)->elts[2]; +c_732239.elts[3] = ((closureN)self_73919)->elts[3]; +c_732239.elts[4] = ((closureN)self_73919)->elts[4]; +c_732239.elts[5] = ((closureN)self_73919)->elts[5]; +c_732239.elts[6] = ((closureN)self_73919)->elts[6]; +c_732239.elts[7] = ((closureN)self_73919)->elts[7]; + +return_closcall1(data,(closure)&c_732239, cadr(r_73414));; +} + +static void __lambda_222(void *data, int argc, object self_73920, object r_73413) { + +closureN_type c_732244; +c_732244.hdr.mark = gc_color_red; + c_732244.hdr.grayed = 0; +c_732244.tag = closureN_tag; + c_732244.fn = (function_type)__lambda_221; +c_732244.num_args = 1; +c_732244.num_elt = 7; +c_732244.elts = (object *)alloca(sizeof(object) * 7); +c_732244.elts[0] = ((closureN)self_73920)->elts[0]; +c_732244.elts[1] = ((closureN)self_73920)->elts[1]; +c_732244.elts[2] = ((closureN)self_73920)->elts[2]; +c_732244.elts[3] = ((closureN)self_73920)->elts[4]; +c_732244.elts[4] = ((closureN)self_73920)->elts[5]; +c_732244.elts[5] = ((closureN)self_73920)->elts[6]; +c_732244.elts[6] = ((closureN)self_73920)->elts[7]; + +return_closcall3(data, cell_get(((closureN)self_73920)->elts[3]), &c_732244, ((closureN)self_73920)->elts[6], r_73413);; +} + +static void __lambda_221(void *data, int argc, object self_73921, object r_73408) { + if( !eq(boolean_f, r_73408) ){ + +closureN_type c_732246; +c_732246.hdr.mark = gc_color_red; + c_732246.hdr.grayed = 0; +c_732246.tag = closureN_tag; + c_732246.fn = (function_type)__lambda_218; +c_732246.num_args = 0; +c_732246.num_elt = 5; +c_732246.elts = (object *)alloca(sizeof(object) * 5); +c_732246.elts[0] = ((closureN)self_73921)->elts[0]; +c_732246.elts[1] = ((closureN)self_73921)->elts[1]; +c_732246.elts[2] = ((closureN)self_73921)->elts[2]; +c_732246.elts[3] = ((closureN)self_73921)->elts[3]; +c_732246.elts[4] = ((closureN)self_73921)->elts[6]; + +return_closcall0(data,(closure)&c_732246); +} else { + +closureN_type c_732270; +c_732270.hdr.mark = gc_color_red; + c_732270.hdr.grayed = 0; +c_732270.tag = closureN_tag; + c_732270.fn = (function_type)__lambda_220; +c_732270.num_args = 0; +c_732270.num_elt = 4; +c_732270.elts = (object *)alloca(sizeof(object) * 4); +c_732270.elts[0] = ((closureN)self_73921)->elts[1]; +c_732270.elts[1] = ((closureN)self_73921)->elts[2]; +c_732270.elts[2] = ((closureN)self_73921)->elts[4]; +c_732270.elts[3] = ((closureN)self_73921)->elts[5]; + +return_closcall0(data,(closure)&c_732270);} +; +} + +static void __lambda_220(void *data, int argc, object self_73922) { + +closureN_type c_732272; +c_732272.hdr.mark = gc_color_red; + c_732272.hdr.grayed = 0; +c_732272.tag = closureN_tag; + c_732272.fn = (function_type)__lambda_219; +c_732272.num_args = 1; +c_732272.num_elt = 3; +c_732272.elts = (object *)alloca(sizeof(object) * 3); +c_732272.elts[0] = ((closureN)self_73922)->elts[0]; +c_732272.elts[1] = ((closureN)self_73922)->elts[2]; +c_732272.elts[2] = ((closureN)self_73922)->elts[3]; + +return_closcall1(data,(closure)&c_732272, cdr(((closureN)self_73922)->elts[1]));; +} + +static void __lambda_219(void *data, int argc, object self_73923, object r_73412) { + return_closcall3(data, cell_get(((closureN)self_73923)->elts[1]), ((closureN)self_73923)->elts[0], ((closureN)self_73923)->elts[2], r_73412);; +} + +static void __lambda_218(void *data, int argc, object self_73924) { + +closureN_type c_732248; +c_732248.hdr.mark = gc_color_red; + c_732248.hdr.grayed = 0; +c_732248.tag = closureN_tag; + c_732248.fn = (function_type)__lambda_217; +c_732248.num_args = 1; +c_732248.num_elt = 4; +c_732248.elts = (object *)alloca(sizeof(object) * 4); +c_732248.elts[0] = ((closureN)self_73924)->elts[0]; +c_732248.elts[1] = ((closureN)self_73924)->elts[1]; +c_732248.elts[2] = ((closureN)self_73924)->elts[3]; +c_732248.elts[3] = ((closureN)self_73924)->elts[4]; + +return_closcall1(data,(closure)&c_732248, car(((closureN)self_73924)->elts[2]));; +} + +static void __lambda_217(void *data, int argc, object self_73925, object r_73411) { + +closureN_type c_732250; +c_732250.hdr.mark = gc_color_red; + c_732250.hdr.grayed = 0; +c_732250.tag = closureN_tag; + c_732250.fn = (function_type)__lambda_216; +c_732250.num_args = 1; +c_732250.num_elt = 4; +c_732250.elts = (object *)alloca(sizeof(object) * 4); +c_732250.elts[0] = ((closureN)self_73925)->elts[0]; +c_732250.elts[1] = ((closureN)self_73925)->elts[1]; +c_732250.elts[2] = ((closureN)self_73925)->elts[2]; +c_732250.elts[3] = ((closureN)self_73925)->elts[3]; + +return_closcall1(data,(closure)&c_732250, caddr(r_73411));; +} + +static void __lambda_216(void *data, int argc, object self_73926, object r_73410) { + +closureN_type c_732255; +c_732255.hdr.mark = gc_color_red; + c_732255.hdr.grayed = 0; +c_732255.tag = closureN_tag; + c_732255.fn = (function_type)__lambda_215; +c_732255.num_args = 1; +c_732255.num_elt = 2; +c_732255.elts = (object *)alloca(sizeof(object) * 2); +c_732255.elts[0] = ((closureN)self_73926)->elts[1]; +c_732255.elts[1] = ((closureN)self_73926)->elts[2]; + +return_closcall3(data, cell_get(((closureN)self_73926)->elts[0]), &c_732255, cell_get(((closureN)self_73926)->elts[3]), r_73410);; +} + +static void __lambda_215(void *data, int argc, object self_73927, object r_73409) { + return_closcall2(data, cell_get(((closureN)self_73927)->elts[1]), ((closureN)self_73927)->elts[0], r_73409);; +} + +static void __lambda_214(void *data, int argc, object self_73928) { + return_closcall1(data, ((closureN)self_73928)->elts[0], ((closureN)self_73928)->elts[1]);; +} + +static void __lambda_213(void *data, int argc, object self_73929, object r_73405) { + +closureN_type c_731612; +c_731612.hdr.mark = gc_color_red; + c_731612.hdr.grayed = 0; +c_731612.tag = closureN_tag; + c_731612.fn = (function_type)__lambda_212; +c_731612.num_args = 1; +c_731612.num_elt = 21; +c_731612.elts = (object *)alloca(sizeof(object) * 21); +c_731612.elts[0] = ((closureN)self_73929)->elts[0]; +c_731612.elts[1] = ((closureN)self_73929)->elts[1]; +c_731612.elts[2] = ((closureN)self_73929)->elts[2]; +c_731612.elts[3] = ((closureN)self_73929)->elts[3]; +c_731612.elts[4] = ((closureN)self_73929)->elts[4]; +c_731612.elts[5] = ((closureN)self_73929)->elts[5]; +c_731612.elts[6] = ((closureN)self_73929)->elts[6]; +c_731612.elts[7] = ((closureN)self_73929)->elts[7]; +c_731612.elts[8] = ((closureN)self_73929)->elts[9]; +c_731612.elts[9] = ((closureN)self_73929)->elts[10]; +c_731612.elts[10] = ((closureN)self_73929)->elts[11]; +c_731612.elts[11] = ((closureN)self_73929)->elts[12]; +c_731612.elts[12] = ((closureN)self_73929)->elts[13]; +c_731612.elts[13] = ((closureN)self_73929)->elts[14]; +c_731612.elts[14] = ((closureN)self_73929)->elts[15]; +c_731612.elts[15] = ((closureN)self_73929)->elts[16]; +c_731612.elts[16] = ((closureN)self_73929)->elts[17]; +c_731612.elts[17] = ((closureN)self_73929)->elts[18]; +c_731612.elts[18] = ((closureN)self_73929)->elts[19]; +c_731612.elts[19] = ((closureN)self_73929)->elts[20]; +c_731612.elts[20] = ((closureN)self_73929)->elts[21]; + +return_closcall1(data,(closure)&c_731612, Cyc_set_car(data, ((closureN)self_73929)->elts[8], r_73405));; +} + +static void __lambda_212(void *data, int argc, object self_73930, object r_73295) { + +closureN_type c_731614; +c_731614.hdr.mark = gc_color_red; + c_731614.hdr.grayed = 0; +c_731614.tag = closureN_tag; + c_731614.fn = (function_type)__lambda_211; +c_731614.num_args = 1; +c_731614.num_elt = 21; +c_731614.elts = (object *)alloca(sizeof(object) * 21); +c_731614.elts[0] = ((closureN)self_73930)->elts[0]; +c_731614.elts[1] = ((closureN)self_73930)->elts[1]; +c_731614.elts[2] = ((closureN)self_73930)->elts[2]; +c_731614.elts[3] = ((closureN)self_73930)->elts[3]; +c_731614.elts[4] = ((closureN)self_73930)->elts[4]; +c_731614.elts[5] = ((closureN)self_73930)->elts[5]; +c_731614.elts[6] = ((closureN)self_73930)->elts[6]; +c_731614.elts[7] = ((closureN)self_73930)->elts[7]; +c_731614.elts[8] = ((closureN)self_73930)->elts[8]; +c_731614.elts[9] = ((closureN)self_73930)->elts[9]; +c_731614.elts[10] = ((closureN)self_73930)->elts[10]; +c_731614.elts[11] = ((closureN)self_73930)->elts[11]; +c_731614.elts[12] = ((closureN)self_73930)->elts[12]; +c_731614.elts[13] = ((closureN)self_73930)->elts[13]; +c_731614.elts[14] = ((closureN)self_73930)->elts[14]; +c_731614.elts[15] = ((closureN)self_73930)->elts[15]; +c_731614.elts[16] = ((closureN)self_73930)->elts[16]; +c_731614.elts[17] = ((closureN)self_73930)->elts[17]; +c_731614.elts[18] = ((closureN)self_73930)->elts[18]; +c_731614.elts[19] = ((closureN)self_73930)->elts[19]; +c_731614.elts[20] = ((closureN)self_73930)->elts[20]; + +return_closcall1(data,(closure)&c_731614, quote__85);; +} + +static void __lambda_211(void *data, int argc, object self_73931, object r_73404) { + +closureN_type c_731616; +c_731616.hdr.mark = gc_color_red; + c_731616.hdr.grayed = 0; +c_731616.tag = closureN_tag; + c_731616.fn = (function_type)__lambda_210; +c_731616.num_args = 1; +c_731616.num_elt = 21; +c_731616.elts = (object *)alloca(sizeof(object) * 21); +c_731616.elts[0] = ((closureN)self_73931)->elts[0]; +c_731616.elts[1] = ((closureN)self_73931)->elts[1]; +c_731616.elts[2] = ((closureN)self_73931)->elts[2]; +c_731616.elts[3] = ((closureN)self_73931)->elts[3]; +c_731616.elts[4] = ((closureN)self_73931)->elts[4]; +c_731616.elts[5] = ((closureN)self_73931)->elts[5]; +c_731616.elts[6] = ((closureN)self_73931)->elts[6]; +c_731616.elts[7] = ((closureN)self_73931)->elts[7]; +c_731616.elts[8] = ((closureN)self_73931)->elts[8]; +c_731616.elts[9] = ((closureN)self_73931)->elts[9]; +c_731616.elts[10] = ((closureN)self_73931)->elts[10]; +c_731616.elts[11] = ((closureN)self_73931)->elts[11]; +c_731616.elts[12] = ((closureN)self_73931)->elts[12]; +c_731616.elts[13] = ((closureN)self_73931)->elts[13]; +c_731616.elts[14] = ((closureN)self_73931)->elts[14]; +c_731616.elts[15] = ((closureN)self_73931)->elts[15]; +c_731616.elts[16] = ((closureN)self_73931)->elts[16]; +c_731616.elts[17] = ((closureN)self_73931)->elts[17]; +c_731616.elts[18] = ((closureN)self_73931)->elts[18]; +c_731616.elts[19] = ((closureN)self_73931)->elts[19]; +c_731616.elts[20] = ((closureN)self_73931)->elts[20]; + +return_closcall1(data,(closure)&c_731616, Cyc_set_car(data, ((closureN)self_73931)->elts[20], r_73404));; +} + +static void __lambda_210(void *data, int argc, object self_73932, object r_73296) { + +closureN_type c_731618; +c_731618.hdr.mark = gc_color_red; + c_731618.hdr.grayed = 0; +c_731618.tag = closureN_tag; + c_731618.fn = (function_type)__lambda_206; +c_731618.num_args = 1; +c_731618.num_elt = 21; +c_731618.elts = (object *)alloca(sizeof(object) * 21); +c_731618.elts[0] = ((closureN)self_73932)->elts[0]; +c_731618.elts[1] = ((closureN)self_73932)->elts[1]; +c_731618.elts[2] = ((closureN)self_73932)->elts[2]; +c_731618.elts[3] = ((closureN)self_73932)->elts[3]; +c_731618.elts[4] = ((closureN)self_73932)->elts[4]; +c_731618.elts[5] = ((closureN)self_73932)->elts[5]; +c_731618.elts[6] = ((closureN)self_73932)->elts[6]; +c_731618.elts[7] = ((closureN)self_73932)->elts[7]; +c_731618.elts[8] = ((closureN)self_73932)->elts[8]; +c_731618.elts[9] = ((closureN)self_73932)->elts[9]; +c_731618.elts[10] = ((closureN)self_73932)->elts[10]; +c_731618.elts[11] = ((closureN)self_73932)->elts[11]; +c_731618.elts[12] = ((closureN)self_73932)->elts[12]; +c_731618.elts[13] = ((closureN)self_73932)->elts[13]; +c_731618.elts[14] = ((closureN)self_73932)->elts[14]; +c_731618.elts[15] = ((closureN)self_73932)->elts[15]; +c_731618.elts[16] = ((closureN)self_73932)->elts[16]; +c_731618.elts[17] = ((closureN)self_73932)->elts[17]; +c_731618.elts[18] = ((closureN)self_73932)->elts[18]; +c_731618.elts[19] = ((closureN)self_73932)->elts[19]; +c_731618.elts[20] = ((closureN)self_73932)->elts[20]; + + +closureN_type c_732207; +c_732207.hdr.mark = gc_color_red; + c_732207.hdr.grayed = 0; +c_732207.tag = closureN_tag; + c_732207.fn = (function_type)__lambda_209; +c_732207.num_args = 2; +c_732207.num_elt = 2; +c_732207.elts = (object *)alloca(sizeof(object) * 2); +c_732207.elts[0] = ((closureN)self_73932)->elts[5]; +c_732207.elts[1] = ((closureN)self_73932)->elts[20]; + +return_closcall1(data,(closure)&c_731618, &c_732207);; +} + +static void __lambda_209(void *data, int argc, object self_73933, object k_73401, object term1_73185, object term2_73184) { + +closureN_type c_732209; +c_732209.hdr.mark = gc_color_red; + c_732209.hdr.grayed = 0; +c_732209.tag = closureN_tag; + c_732209.fn = (function_type)__lambda_208; +c_732209.num_args = 1; +c_732209.num_elt = 5; +c_732209.elts = (object *)alloca(sizeof(object) * 5); +c_732209.elts[0] = k_73401; +c_732209.elts[1] = ((closureN)self_73933)->elts[0]; +c_732209.elts[2] = term1_73185; +c_732209.elts[3] = term2_73184; +c_732209.elts[4] = ((closureN)self_73933)->elts[1]; + +return_closcall1(data,(closure)&c_732209, nil);; +} + +static void __lambda_208(void *data, int argc, object self_73934, object r_73403) { + +closureN_type c_732211; +c_732211.hdr.mark = gc_color_red; + c_732211.hdr.grayed = 0; +c_732211.tag = closureN_tag; + c_732211.fn = (function_type)__lambda_207; +c_732211.num_args = 1; +c_732211.num_elt = 4; +c_732211.elts = (object *)alloca(sizeof(object) * 4); +c_732211.elts[0] = ((closureN)self_73934)->elts[0]; +c_732211.elts[1] = ((closureN)self_73934)->elts[1]; +c_732211.elts[2] = ((closureN)self_73934)->elts[2]; +c_732211.elts[3] = ((closureN)self_73934)->elts[3]; + +return_closcall1(data,(closure)&c_732211, Cyc_set_car(data, ((closureN)self_73934)->elts[4], r_73403));; +} + +static void __lambda_207(void *data, int argc, object self_73935, object r_73402) { + return_closcall3(data, cell_get(((closureN)self_73935)->elts[1]), ((closureN)self_73935)->elts[0], ((closureN)self_73935)->elts[2], ((closureN)self_73935)->elts[3]);; +} + +static void __lambda_206(void *data, int argc, object self_73936, object r_73400) { + +closureN_type c_731620; +c_731620.hdr.mark = gc_color_red; + c_731620.hdr.grayed = 0; +c_731620.tag = closureN_tag; + c_731620.fn = (function_type)__lambda_205; +c_731620.num_args = 1; +c_731620.num_elt = 20; +c_731620.elts = (object *)alloca(sizeof(object) * 20); +c_731620.elts[0] = ((closureN)self_73936)->elts[0]; +c_731620.elts[1] = ((closureN)self_73936)->elts[1]; +c_731620.elts[2] = ((closureN)self_73936)->elts[2]; +c_731620.elts[3] = ((closureN)self_73936)->elts[3]; +c_731620.elts[4] = ((closureN)self_73936)->elts[5]; +c_731620.elts[5] = ((closureN)self_73936)->elts[6]; +c_731620.elts[6] = ((closureN)self_73936)->elts[7]; +c_731620.elts[7] = ((closureN)self_73936)->elts[8]; +c_731620.elts[8] = ((closureN)self_73936)->elts[9]; +c_731620.elts[9] = ((closureN)self_73936)->elts[10]; +c_731620.elts[10] = ((closureN)self_73936)->elts[11]; +c_731620.elts[11] = ((closureN)self_73936)->elts[12]; +c_731620.elts[12] = ((closureN)self_73936)->elts[13]; +c_731620.elts[13] = ((closureN)self_73936)->elts[14]; +c_731620.elts[14] = ((closureN)self_73936)->elts[15]; +c_731620.elts[15] = ((closureN)self_73936)->elts[16]; +c_731620.elts[16] = ((closureN)self_73936)->elts[17]; +c_731620.elts[17] = ((closureN)self_73936)->elts[18]; +c_731620.elts[18] = ((closureN)self_73936)->elts[19]; +c_731620.elts[19] = ((closureN)self_73936)->elts[20]; + +return_closcall1(data,(closure)&c_731620, Cyc_set_car(data, ((closureN)self_73936)->elts[4], r_73400));; +} + +static void __lambda_205(void *data, int argc, object self_73937, object r_73297) { + +closureN_type c_731622; +c_731622.hdr.mark = gc_color_red; + c_731622.hdr.grayed = 0; +c_731622.tag = closureN_tag; + c_731622.fn = (function_type)__lambda_183; +c_731622.num_args = 1; +c_731622.num_elt = 19; +c_731622.elts = (object *)alloca(sizeof(object) * 19); +c_731622.elts[0] = ((closureN)self_73937)->elts[0]; +c_731622.elts[1] = ((closureN)self_73937)->elts[1]; +c_731622.elts[2] = ((closureN)self_73937)->elts[2]; +c_731622.elts[3] = ((closureN)self_73937)->elts[3]; +c_731622.elts[4] = ((closureN)self_73937)->elts[4]; +c_731622.elts[5] = ((closureN)self_73937)->elts[5]; +c_731622.elts[6] = ((closureN)self_73937)->elts[6]; +c_731622.elts[7] = ((closureN)self_73937)->elts[7]; +c_731622.elts[8] = ((closureN)self_73937)->elts[8]; +c_731622.elts[9] = ((closureN)self_73937)->elts[9]; +c_731622.elts[10] = ((closureN)self_73937)->elts[10]; +c_731622.elts[11] = ((closureN)self_73937)->elts[11]; +c_731622.elts[12] = ((closureN)self_73937)->elts[12]; +c_731622.elts[13] = ((closureN)self_73937)->elts[13]; +c_731622.elts[14] = ((closureN)self_73937)->elts[14]; +c_731622.elts[15] = ((closureN)self_73937)->elts[15]; +c_731622.elts[16] = ((closureN)self_73937)->elts[16]; +c_731622.elts[17] = ((closureN)self_73937)->elts[17]; +c_731622.elts[18] = ((closureN)self_73937)->elts[18]; + + +closureN_type c_732093; +c_732093.hdr.mark = gc_color_red; + c_732093.hdr.grayed = 0; +c_732093.tag = closureN_tag; + c_732093.fn = (function_type)__lambda_204; +c_732093.num_args = 2; +c_732093.num_elt = 3; +c_732093.elts = (object *)alloca(sizeof(object) * 3); +c_732093.elts[0] = ((closureN)self_73937)->elts[5]; +c_732093.elts[1] = ((closureN)self_73937)->elts[11]; +c_732093.elts[2] = ((closureN)self_73937)->elts[19]; + +return_closcall1(data,(closure)&c_731622, &c_732093);; +} + +static void __lambda_204(void *data, int argc, object self_73938, object k_73386, object term1_73182, object term2_73181) { + +closureN_type c_732095; +c_732095.hdr.mark = gc_color_red; + c_732095.hdr.grayed = 0; +c_732095.tag = closureN_tag; + c_732095.fn = (function_type)__lambda_203; +c_732095.num_args = 1; +c_732095.num_elt = 6; +c_732095.elts = (object *)alloca(sizeof(object) * 6); +c_732095.elts[0] = k_73386; +c_732095.elts[1] = ((closureN)self_73938)->elts[0]; +c_732095.elts[2] = ((closureN)self_73938)->elts[1]; +c_732095.elts[3] = term1_73182; +c_732095.elts[4] = term2_73181; +c_732095.elts[5] = ((closureN)self_73938)->elts[2]; + +return_closcall1(data,(closure)&c_732095, Cyc_is_cons(term2_73181));; +} + +static void __lambda_203(void *data, int argc, object self_73939, object r_73387) { + if( !eq(boolean_f, r_73387) ){ + +closureN_type c_732097; +c_732097.hdr.mark = gc_color_red; + c_732097.hdr.grayed = 0; +c_732097.tag = closureN_tag; + c_732097.fn = (function_type)__lambda_192; +c_732097.num_args = 1; +c_732097.num_elt = 4; +c_732097.elts = (object *)alloca(sizeof(object) * 4); +c_732097.elts[0] = ((closureN)self_73939)->elts[0]; +c_732097.elts[1] = ((closureN)self_73939)->elts[1]; +c_732097.elts[2] = ((closureN)self_73939)->elts[3]; +c_732097.elts[3] = ((closureN)self_73939)->elts[4]; + +return_closcall1(data,(closure)&c_732097, Cyc_is_cons(((closureN)self_73939)->elts[3])); +} else { + +closureN_type c_732143; +c_732143.hdr.mark = gc_color_red; + c_732143.hdr.grayed = 0; +c_732143.tag = closureN_tag; + c_732143.fn = (function_type)__lambda_202; +c_732143.num_args = 0; +c_732143.num_elt = 5; +c_732143.elts = (object *)alloca(sizeof(object) * 5); +c_732143.elts[0] = ((closureN)self_73939)->elts[0]; +c_732143.elts[1] = ((closureN)self_73939)->elts[2]; +c_732143.elts[2] = ((closureN)self_73939)->elts[3]; +c_732143.elts[3] = ((closureN)self_73939)->elts[4]; +c_732143.elts[4] = ((closureN)self_73939)->elts[5]; + +return_closcall0(data,(closure)&c_732143);} +; +} + +static void __lambda_202(void *data, int argc, object self_73940) { + +closureN_type c_732145; +c_732145.hdr.mark = gc_color_red; + c_732145.hdr.grayed = 0; +c_732145.tag = closureN_tag; + c_732145.fn = (function_type)__lambda_201; +c_732145.num_args = 1; +c_732145.num_elt = 5; +c_732145.elts = (object *)alloca(sizeof(object) * 5); +c_732145.elts[0] = ((closureN)self_73940)->elts[0]; +c_732145.elts[1] = ((closureN)self_73940)->elts[1]; +c_732145.elts[2] = ((closureN)self_73940)->elts[2]; +c_732145.elts[3] = ((closureN)self_73940)->elts[3]; +c_732145.elts[4] = ((closureN)self_73940)->elts[4]; + +return_closcall1(data,(closure)&c_732145, assq(data, ((closureN)self_73940)->elts[3], cell_get(((closureN)self_73940)->elts[4])));; +} + +static void __lambda_201(void *data, int argc, object self_73941, object temp_91temp_73183) { + if( !eq(boolean_f, temp_91temp_73183) ){ + +closureN_type c_732147; +c_732147.hdr.mark = gc_color_red; + c_732147.hdr.grayed = 0; +c_732147.tag = closureN_tag; + c_732147.fn = (function_type)__lambda_194; +c_732147.num_args = 0; +c_732147.num_elt = 4; +c_732147.elts = (object *)alloca(sizeof(object) * 4); +c_732147.elts[0] = ((closureN)self_73941)->elts[0]; +c_732147.elts[1] = temp_91temp_73183; +c_732147.elts[2] = ((closureN)self_73941)->elts[1]; +c_732147.elts[3] = ((closureN)self_73941)->elts[2]; + +return_closcall0(data,(closure)&c_732147); +} else { + +closureN_type c_732160; +c_732160.hdr.mark = gc_color_red; + c_732160.hdr.grayed = 0; +c_732160.tag = closureN_tag; + c_732160.fn = (function_type)__lambda_200; +c_732160.num_args = 1; +c_732160.num_elt = 4; +c_732160.elts = (object *)alloca(sizeof(object) * 4); +c_732160.elts[0] = ((closureN)self_73941)->elts[0]; +c_732160.elts[1] = ((closureN)self_73941)->elts[2]; +c_732160.elts[2] = ((closureN)self_73941)->elts[3]; +c_732160.elts[3] = ((closureN)self_73941)->elts[4]; + +return_closcall1(data,(closure)&c_732160, Cyc_is_number(((closureN)self_73941)->elts[3]));} +; +} + +static void __lambda_200(void *data, int argc, object self_73942, object r_73396) { + if( !eq(boolean_f, r_73396) ){ + +closureN_type c_732162; +c_732162.hdr.mark = gc_color_red; + c_732162.hdr.grayed = 0; +c_732162.tag = closureN_tag; + c_732162.fn = (function_type)__lambda_195; +c_732162.num_args = 0; +c_732162.num_elt = 3; +c_732162.elts = (object *)alloca(sizeof(object) * 3); +c_732162.elts[0] = ((closureN)self_73942)->elts[0]; +c_732162.elts[1] = ((closureN)self_73942)->elts[1]; +c_732162.elts[2] = ((closureN)self_73942)->elts[2]; + +return_closcall0(data,(closure)&c_732162); +} else { + +closureN_type c_732170; +c_732170.hdr.mark = gc_color_red; + c_732170.hdr.grayed = 0; +c_732170.tag = closureN_tag; + c_732170.fn = (function_type)__lambda_199; +c_732170.num_args = 0; +c_732170.num_elt = 4; +c_732170.elts = (object *)alloca(sizeof(object) * 4); +c_732170.elts[0] = ((closureN)self_73942)->elts[0]; +c_732170.elts[1] = ((closureN)self_73942)->elts[1]; +c_732170.elts[2] = ((closureN)self_73942)->elts[2]; +c_732170.elts[3] = ((closureN)self_73942)->elts[3]; + +return_closcall0(data,(closure)&c_732170);} +; +} + +static void __lambda_199(void *data, int argc, object self_73943) { + +closureN_type c_732172; +c_732172.hdr.mark = gc_color_red; + c_732172.hdr.grayed = 0; +c_732172.tag = closureN_tag; + c_732172.fn = (function_type)__lambda_198; +c_732172.num_args = 1; +c_732172.num_elt = 2; +c_732172.elts = (object *)alloca(sizeof(object) * 2); +c_732172.elts[0] = ((closureN)self_73943)->elts[0]; +c_732172.elts[1] = ((closureN)self_73943)->elts[3]; + + +make_cons(c_732190,((closureN)self_73943)->elts[2], ((closureN)self_73943)->elts[1]); +return_closcall1(data,(closure)&c_732172, &c_732190);; +} + +static void __lambda_198(void *data, int argc, object self_73944, object r_73399) { + +closureN_type c_732174; +c_732174.hdr.mark = gc_color_red; + c_732174.hdr.grayed = 0; +c_732174.tag = closureN_tag; + c_732174.fn = (function_type)__lambda_197; +c_732174.num_args = 1; +c_732174.num_elt = 2; +c_732174.elts = (object *)alloca(sizeof(object) * 2); +c_732174.elts[0] = ((closureN)self_73944)->elts[0]; +c_732174.elts[1] = ((closureN)self_73944)->elts[1]; + + +make_cons(c_732184,r_73399, cell_get(((closureN)self_73944)->elts[1])); +return_closcall1(data,(closure)&c_732174, &c_732184);; +} + +static void __lambda_197(void *data, int argc, object self_73945, object r_73398) { + +closureN_type c_732176; +c_732176.hdr.mark = gc_color_red; + c_732176.hdr.grayed = 0; +c_732176.tag = closureN_tag; + c_732176.fn = (function_type)__lambda_196; +c_732176.num_args = 1; +c_732176.num_elt = 1; +c_732176.elts = (object *)alloca(sizeof(object) * 1); +c_732176.elts[0] = ((closureN)self_73945)->elts[0]; + +return_closcall1(data,(closure)&c_732176, Cyc_set_car(data, ((closureN)self_73945)->elts[1], r_73398));; +} + +static void __lambda_196(void *data, int argc, object self_73946, object r_73397) { + return_closcall1(data, ((closureN)self_73946)->elts[0], boolean_t);; +} + +static void __lambda_195(void *data, int argc, object self_73947) { + return_closcall1(data, ((closureN)self_73947)->elts[0], equalp(((closureN)self_73947)->elts[1], ((closureN)self_73947)->elts[2]));; +} + +static void __lambda_194(void *data, int argc, object self_73948) { + +closureN_type c_732149; +c_732149.hdr.mark = gc_color_red; + c_732149.hdr.grayed = 0; +c_732149.tag = closureN_tag; + c_732149.fn = (function_type)__lambda_193; +c_732149.num_args = 1; +c_732149.num_elt = 3; +c_732149.elts = (object *)alloca(sizeof(object) * 3); +c_732149.elts[0] = ((closureN)self_73948)->elts[0]; +c_732149.elts[1] = ((closureN)self_73948)->elts[2]; +c_732149.elts[2] = ((closureN)self_73948)->elts[3]; + +return_closcall1(data,(closure)&c_732149, cdr(((closureN)self_73948)->elts[1]));; +} + +static void __lambda_193(void *data, int argc, object self_73949, object r_73395) { + return_closcall3(data, cell_get(((closureN)self_73949)->elts[1]), ((closureN)self_73949)->elts[0], ((closureN)self_73949)->elts[2], r_73395);; +} + +static void __lambda_192(void *data, int argc, object self_73950, object r_73388) { + if( !eq(boolean_f, r_73388) ){ + +closureN_type c_732099; +c_732099.hdr.mark = gc_color_red; + c_732099.hdr.grayed = 0; +c_732099.tag = closureN_tag; + c_732099.fn = (function_type)__lambda_190; +c_732099.num_args = 1; +c_732099.num_elt = 4; +c_732099.elts = (object *)alloca(sizeof(object) * 4); +c_732099.elts[0] = ((closureN)self_73950)->elts[0]; +c_732099.elts[1] = ((closureN)self_73950)->elts[1]; +c_732099.elts[2] = ((closureN)self_73950)->elts[2]; +c_732099.elts[3] = ((closureN)self_73950)->elts[3]; + +return_closcall1(data,(closure)&c_732099, car(((closureN)self_73950)->elts[2])); +} else { + +closureN_type c_732136; +c_732136.hdr.mark = gc_color_red; + c_732136.hdr.grayed = 0; +c_732136.tag = closureN_tag; + c_732136.fn = (function_type)__lambda_191; +c_732136.num_args = 0; +c_732136.num_elt = 1; +c_732136.elts = (object *)alloca(sizeof(object) * 1); +c_732136.elts[0] = ((closureN)self_73950)->elts[0]; + +return_closcall0(data,(closure)&c_732136);} +; +} + +static void __lambda_191(void *data, int argc, object self_73951) { + return_closcall1(data, ((closureN)self_73951)->elts[0], boolean_f);; +} + +static void __lambda_190(void *data, int argc, object self_73952, object r_73392) { + +closureN_type c_732101; +c_732101.hdr.mark = gc_color_red; + c_732101.hdr.grayed = 0; +c_732101.tag = closureN_tag; + c_732101.fn = (function_type)__lambda_189; +c_732101.num_args = 1; +c_732101.num_elt = 5; +c_732101.elts = (object *)alloca(sizeof(object) * 5); +c_732101.elts[0] = ((closureN)self_73952)->elts[0]; +c_732101.elts[1] = ((closureN)self_73952)->elts[1]; +c_732101.elts[2] = r_73392; +c_732101.elts[3] = ((closureN)self_73952)->elts[2]; +c_732101.elts[4] = ((closureN)self_73952)->elts[3]; + +return_closcall1(data,(closure)&c_732101, car(((closureN)self_73952)->elts[3]));; +} + +static void __lambda_189(void *data, int argc, object self_73953, object r_73393) { + +closureN_type c_732103; +c_732103.hdr.mark = gc_color_red; + c_732103.hdr.grayed = 0; +c_732103.tag = closureN_tag; + c_732103.fn = (function_type)__lambda_188; +c_732103.num_args = 1; +c_732103.num_elt = 4; +c_732103.elts = (object *)alloca(sizeof(object) * 4); +c_732103.elts[0] = ((closureN)self_73953)->elts[0]; +c_732103.elts[1] = ((closureN)self_73953)->elts[1]; +c_732103.elts[2] = ((closureN)self_73953)->elts[3]; +c_732103.elts[3] = ((closureN)self_73953)->elts[4]; + +return_closcall1(data,(closure)&c_732103, Cyc_eq(((closureN)self_73953)->elts[2], r_73393));; +} + +static void __lambda_188(void *data, int argc, object self_73954, object r_73389) { + if( !eq(boolean_f, r_73389) ){ + +closureN_type c_732105; +c_732105.hdr.mark = gc_color_red; + c_732105.hdr.grayed = 0; +c_732105.tag = closureN_tag; + c_732105.fn = (function_type)__lambda_186; +c_732105.num_args = 0; +c_732105.num_elt = 4; +c_732105.elts = (object *)alloca(sizeof(object) * 4); +c_732105.elts[0] = ((closureN)self_73954)->elts[0]; +c_732105.elts[1] = ((closureN)self_73954)->elts[1]; +c_732105.elts[2] = ((closureN)self_73954)->elts[2]; +c_732105.elts[3] = ((closureN)self_73954)->elts[3]; + +return_closcall0(data,(closure)&c_732105); +} else { + +closureN_type c_732123; +c_732123.hdr.mark = gc_color_red; + c_732123.hdr.grayed = 0; +c_732123.tag = closureN_tag; + c_732123.fn = (function_type)__lambda_187; +c_732123.num_args = 0; +c_732123.num_elt = 1; +c_732123.elts = (object *)alloca(sizeof(object) * 1); +c_732123.elts[0] = ((closureN)self_73954)->elts[0]; + +return_closcall0(data,(closure)&c_732123);} +; +} + +static void __lambda_187(void *data, int argc, object self_73955) { + return_closcall1(data, ((closureN)self_73955)->elts[0], boolean_f);; +} + +static void __lambda_186(void *data, int argc, object self_73956) { + +closureN_type c_732107; +c_732107.hdr.mark = gc_color_red; + c_732107.hdr.grayed = 0; +c_732107.tag = closureN_tag; + c_732107.fn = (function_type)__lambda_185; +c_732107.num_args = 1; +c_732107.num_elt = 3; +c_732107.elts = (object *)alloca(sizeof(object) * 3); +c_732107.elts[0] = ((closureN)self_73956)->elts[0]; +c_732107.elts[1] = ((closureN)self_73956)->elts[1]; +c_732107.elts[2] = ((closureN)self_73956)->elts[3]; + +return_closcall1(data,(closure)&c_732107, cdr(((closureN)self_73956)->elts[2]));; +} + +static void __lambda_185(void *data, int argc, object self_73957, object r_73390) { + +closureN_type c_732109; +c_732109.hdr.mark = gc_color_red; + c_732109.hdr.grayed = 0; +c_732109.tag = closureN_tag; + c_732109.fn = (function_type)__lambda_184; +c_732109.num_args = 1; +c_732109.num_elt = 3; +c_732109.elts = (object *)alloca(sizeof(object) * 3); +c_732109.elts[0] = ((closureN)self_73957)->elts[0]; +c_732109.elts[1] = ((closureN)self_73957)->elts[1]; +c_732109.elts[2] = r_73390; + +return_closcall1(data,(closure)&c_732109, cdr(((closureN)self_73957)->elts[2]));; +} + +static void __lambda_184(void *data, int argc, object self_73958, object r_73391) { + return_closcall3(data, cell_get(((closureN)self_73958)->elts[1]), ((closureN)self_73958)->elts[0], ((closureN)self_73958)->elts[2], r_73391);; +} + +static void __lambda_183(void *data, int argc, object self_73959, object r_73385) { + +closureN_type c_731624; +c_731624.hdr.mark = gc_color_red; + c_731624.hdr.grayed = 0; +c_731624.tag = closureN_tag; + c_731624.fn = (function_type)__lambda_182; +c_731624.num_args = 1; +c_731624.num_elt = 19; +c_731624.elts = (object *)alloca(sizeof(object) * 19); +c_731624.elts[0] = ((closureN)self_73959)->elts[0]; +c_731624.elts[1] = ((closureN)self_73959)->elts[1]; +c_731624.elts[2] = ((closureN)self_73959)->elts[2]; +c_731624.elts[3] = ((closureN)self_73959)->elts[3]; +c_731624.elts[4] = ((closureN)self_73959)->elts[4]; +c_731624.elts[5] = ((closureN)self_73959)->elts[5]; +c_731624.elts[6] = ((closureN)self_73959)->elts[6]; +c_731624.elts[7] = ((closureN)self_73959)->elts[7]; +c_731624.elts[8] = ((closureN)self_73959)->elts[8]; +c_731624.elts[9] = ((closureN)self_73959)->elts[9]; +c_731624.elts[10] = ((closureN)self_73959)->elts[10]; +c_731624.elts[11] = ((closureN)self_73959)->elts[11]; +c_731624.elts[12] = ((closureN)self_73959)->elts[12]; +c_731624.elts[13] = ((closureN)self_73959)->elts[13]; +c_731624.elts[14] = ((closureN)self_73959)->elts[14]; +c_731624.elts[15] = ((closureN)self_73959)->elts[15]; +c_731624.elts[16] = ((closureN)self_73959)->elts[16]; +c_731624.elts[17] = ((closureN)self_73959)->elts[17]; +c_731624.elts[18] = ((closureN)self_73959)->elts[18]; + +return_closcall1(data,(closure)&c_731624, Cyc_set_car(data, ((closureN)self_73959)->elts[4], r_73385));; +} + +static void __lambda_182(void *data, int argc, object self_73960, object r_73298) { + +closureN_type c_731626; +c_731626.hdr.mark = gc_color_red; + c_731626.hdr.grayed = 0; +c_731626.tag = closureN_tag; + c_731626.fn = (function_type)__lambda_169; +c_731626.num_args = 1; +c_731626.num_elt = 18; +c_731626.elts = (object *)alloca(sizeof(object) * 18); +c_731626.elts[0] = ((closureN)self_73960)->elts[0]; +c_731626.elts[1] = ((closureN)self_73960)->elts[1]; +c_731626.elts[2] = ((closureN)self_73960)->elts[2]; +c_731626.elts[3] = ((closureN)self_73960)->elts[3]; +c_731626.elts[4] = ((closureN)self_73960)->elts[5]; +c_731626.elts[5] = ((closureN)self_73960)->elts[6]; +c_731626.elts[6] = ((closureN)self_73960)->elts[7]; +c_731626.elts[7] = ((closureN)self_73960)->elts[8]; +c_731626.elts[8] = ((closureN)self_73960)->elts[9]; +c_731626.elts[9] = ((closureN)self_73960)->elts[10]; +c_731626.elts[10] = ((closureN)self_73960)->elts[11]; +c_731626.elts[11] = ((closureN)self_73960)->elts[12]; +c_731626.elts[12] = ((closureN)self_73960)->elts[13]; +c_731626.elts[13] = ((closureN)self_73960)->elts[14]; +c_731626.elts[14] = ((closureN)self_73960)->elts[15]; +c_731626.elts[15] = ((closureN)self_73960)->elts[16]; +c_731626.elts[16] = ((closureN)self_73960)->elts[17]; +c_731626.elts[17] = ((closureN)self_73960)->elts[18]; + + +closureN_type c_732031; +c_732031.hdr.mark = gc_color_red; + c_732031.hdr.grayed = 0; +c_732031.tag = closureN_tag; + c_732031.fn = (function_type)__lambda_181; +c_732031.num_args = 2; +c_732031.num_elt = 2; +c_732031.elts = (object *)alloca(sizeof(object) * 2); +c_732031.elts[0] = ((closureN)self_73960)->elts[4]; +c_732031.elts[1] = ((closureN)self_73960)->elts[5]; + +return_closcall1(data,(closure)&c_731626, &c_732031);; +} + +static void __lambda_181(void *data, int argc, object self_73961, object k_73377, object lst1_73180, object lst2_73179) { + +closureN_type c_732033; +c_732033.hdr.mark = gc_color_red; + c_732033.hdr.grayed = 0; +c_732033.tag = closureN_tag; + c_732033.fn = (function_type)__lambda_180; +c_732033.num_args = 1; +c_732033.num_elt = 5; +c_732033.elts = (object *)alloca(sizeof(object) * 5); +c_732033.elts[0] = k_73377; +c_732033.elts[1] = lst1_73180; +c_732033.elts[2] = lst2_73179; +c_732033.elts[3] = ((closureN)self_73961)->elts[0]; +c_732033.elts[4] = ((closureN)self_73961)->elts[1]; + +return_closcall1(data,(closure)&c_732033, Cyc_is_null(lst1_73180));; +} + +static void __lambda_180(void *data, int argc, object self_73962, object r_73378) { + if( !eq(boolean_f, r_73378) ){ + +closureN_type c_732035; +c_732035.hdr.mark = gc_color_red; + c_732035.hdr.grayed = 0; +c_732035.tag = closureN_tag; + c_732035.fn = (function_type)__lambda_170; +c_732035.num_args = 0; +c_732035.num_elt = 2; +c_732035.elts = (object *)alloca(sizeof(object) * 2); +c_732035.elts[0] = ((closureN)self_73962)->elts[0]; +c_732035.elts[1] = ((closureN)self_73962)->elts[2]; + +return_closcall0(data,(closure)&c_732035); +} else { + +closureN_type c_732042; +c_732042.hdr.mark = gc_color_red; + c_732042.hdr.grayed = 0; +c_732042.tag = closureN_tag; + c_732042.fn = (function_type)__lambda_179; +c_732042.num_args = 1; +c_732042.num_elt = 5; +c_732042.elts = (object *)alloca(sizeof(object) * 5); +c_732042.elts[0] = ((closureN)self_73962)->elts[0]; +c_732042.elts[1] = ((closureN)self_73962)->elts[1]; +c_732042.elts[2] = ((closureN)self_73962)->elts[2]; +c_732042.elts[3] = ((closureN)self_73962)->elts[3]; +c_732042.elts[4] = ((closureN)self_73962)->elts[4]; + +return_closcall1(data,(closure)&c_732042, Cyc_is_null(((closureN)self_73962)->elts[2]));} +; +} + +static void __lambda_179(void *data, int argc, object self_73963, object r_73379) { + if( !eq(boolean_f, r_73379) ){ + +closureN_type c_732044; +c_732044.hdr.mark = gc_color_red; + c_732044.hdr.grayed = 0; +c_732044.tag = closureN_tag; + c_732044.fn = (function_type)__lambda_171; +c_732044.num_args = 0; +c_732044.num_elt = 1; +c_732044.elts = (object *)alloca(sizeof(object) * 1); +c_732044.elts[0] = ((closureN)self_73963)->elts[0]; + +return_closcall0(data,(closure)&c_732044); +} else { + +closureN_type c_732048; +c_732048.hdr.mark = gc_color_red; + c_732048.hdr.grayed = 0; +c_732048.tag = closureN_tag; + c_732048.fn = (function_type)__lambda_178; +c_732048.num_args = 1; +c_732048.num_elt = 5; +c_732048.elts = (object *)alloca(sizeof(object) * 5); +c_732048.elts[0] = ((closureN)self_73963)->elts[0]; +c_732048.elts[1] = ((closureN)self_73963)->elts[1]; +c_732048.elts[2] = ((closureN)self_73963)->elts[2]; +c_732048.elts[3] = ((closureN)self_73963)->elts[3]; +c_732048.elts[4] = ((closureN)self_73963)->elts[4]; + +return_closcall1(data,(closure)&c_732048, car(((closureN)self_73963)->elts[1]));} +; +} + +static void __lambda_178(void *data, int argc, object self_73964, object r_73383) { + +closureN_type c_732050; +c_732050.hdr.mark = gc_color_red; + c_732050.hdr.grayed = 0; +c_732050.tag = closureN_tag; + c_732050.fn = (function_type)__lambda_177; +c_732050.num_args = 1; +c_732050.num_elt = 6; +c_732050.elts = (object *)alloca(sizeof(object) * 6); +c_732050.elts[0] = ((closureN)self_73964)->elts[0]; +c_732050.elts[1] = ((closureN)self_73964)->elts[1]; +c_732050.elts[2] = ((closureN)self_73964)->elts[2]; +c_732050.elts[3] = ((closureN)self_73964)->elts[3]; +c_732050.elts[4] = ((closureN)self_73964)->elts[4]; +c_732050.elts[5] = r_73383; + +return_closcall1(data,(closure)&c_732050, car(((closureN)self_73964)->elts[2]));; +} + +static void __lambda_177(void *data, int argc, object self_73965, object r_73384) { + +closureN_type c_732055; +c_732055.hdr.mark = gc_color_red; + c_732055.hdr.grayed = 0; +c_732055.tag = closureN_tag; + c_732055.fn = (function_type)__lambda_176; +c_732055.num_args = 1; +c_732055.num_elt = 4; +c_732055.elts = (object *)alloca(sizeof(object) * 4); +c_732055.elts[0] = ((closureN)self_73965)->elts[0]; +c_732055.elts[1] = ((closureN)self_73965)->elts[1]; +c_732055.elts[2] = ((closureN)self_73965)->elts[2]; +c_732055.elts[3] = ((closureN)self_73965)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_73965)->elts[3]), &c_732055, ((closureN)self_73965)->elts[5], r_73384);; +} + +static void __lambda_176(void *data, int argc, object self_73966, object r_73380) { + if( !eq(boolean_f, r_73380) ){ + +closureN_type c_732057; +c_732057.hdr.mark = gc_color_red; + c_732057.hdr.grayed = 0; +c_732057.tag = closureN_tag; + c_732057.fn = (function_type)__lambda_174; +c_732057.num_args = 0; +c_732057.num_elt = 4; +c_732057.elts = (object *)alloca(sizeof(object) * 4); +c_732057.elts[0] = ((closureN)self_73966)->elts[0]; +c_732057.elts[1] = ((closureN)self_73966)->elts[1]; +c_732057.elts[2] = ((closureN)self_73966)->elts[2]; +c_732057.elts[3] = ((closureN)self_73966)->elts[3]; + +return_closcall0(data,(closure)&c_732057); +} else { + +closureN_type c_732075; +c_732075.hdr.mark = gc_color_red; + c_732075.hdr.grayed = 0; +c_732075.tag = closureN_tag; + c_732075.fn = (function_type)__lambda_175; +c_732075.num_args = 0; +c_732075.num_elt = 1; +c_732075.elts = (object *)alloca(sizeof(object) * 1); +c_732075.elts[0] = ((closureN)self_73966)->elts[0]; + +return_closcall0(data,(closure)&c_732075);} +; +} + +static void __lambda_175(void *data, int argc, object self_73967) { + return_closcall1(data, ((closureN)self_73967)->elts[0], boolean_f);; +} + +static void __lambda_174(void *data, int argc, object self_73968) { + +closureN_type c_732059; +c_732059.hdr.mark = gc_color_red; + c_732059.hdr.grayed = 0; +c_732059.tag = closureN_tag; + c_732059.fn = (function_type)__lambda_173; +c_732059.num_args = 1; +c_732059.num_elt = 3; +c_732059.elts = (object *)alloca(sizeof(object) * 3); +c_732059.elts[0] = ((closureN)self_73968)->elts[0]; +c_732059.elts[1] = ((closureN)self_73968)->elts[2]; +c_732059.elts[2] = ((closureN)self_73968)->elts[3]; + +return_closcall1(data,(closure)&c_732059, cdr(((closureN)self_73968)->elts[1]));; +} + +static void __lambda_173(void *data, int argc, object self_73969, object r_73381) { + +closureN_type c_732061; +c_732061.hdr.mark = gc_color_red; + c_732061.hdr.grayed = 0; +c_732061.tag = closureN_tag; + c_732061.fn = (function_type)__lambda_172; +c_732061.num_args = 1; +c_732061.num_elt = 3; +c_732061.elts = (object *)alloca(sizeof(object) * 3); +c_732061.elts[0] = ((closureN)self_73969)->elts[0]; +c_732061.elts[1] = ((closureN)self_73969)->elts[2]; +c_732061.elts[2] = r_73381; + +return_closcall1(data,(closure)&c_732061, cdr(((closureN)self_73969)->elts[1]));; +} + +static void __lambda_172(void *data, int argc, object self_73970, object r_73382) { + return_closcall3(data, cell_get(((closureN)self_73970)->elts[1]), ((closureN)self_73970)->elts[0], ((closureN)self_73970)->elts[2], r_73382);; +} + +static void __lambda_171(void *data, int argc, object self_73971) { + return_closcall1(data, ((closureN)self_73971)->elts[0], boolean_f);; +} + +static void __lambda_170(void *data, int argc, object self_73972) { + return_closcall1(data, ((closureN)self_73972)->elts[0], Cyc_is_null(((closureN)self_73972)->elts[1]));; +} + +static void __lambda_169(void *data, int argc, object self_73973, object r_73376) { + +closureN_type c_731628; +c_731628.hdr.mark = gc_color_red; + c_731628.hdr.grayed = 0; +c_731628.tag = closureN_tag; + c_731628.fn = (function_type)__lambda_168; +c_731628.num_args = 1; +c_731628.num_elt = 17; +c_731628.elts = (object *)alloca(sizeof(object) * 17); +c_731628.elts[0] = ((closureN)self_73973)->elts[0]; +c_731628.elts[1] = ((closureN)self_73973)->elts[1]; +c_731628.elts[2] = ((closureN)self_73973)->elts[2]; +c_731628.elts[3] = ((closureN)self_73973)->elts[3]; +c_731628.elts[4] = ((closureN)self_73973)->elts[5]; +c_731628.elts[5] = ((closureN)self_73973)->elts[6]; +c_731628.elts[6] = ((closureN)self_73973)->elts[7]; +c_731628.elts[7] = ((closureN)self_73973)->elts[8]; +c_731628.elts[8] = ((closureN)self_73973)->elts[9]; +c_731628.elts[9] = ((closureN)self_73973)->elts[10]; +c_731628.elts[10] = ((closureN)self_73973)->elts[11]; +c_731628.elts[11] = ((closureN)self_73973)->elts[12]; +c_731628.elts[12] = ((closureN)self_73973)->elts[13]; +c_731628.elts[13] = ((closureN)self_73973)->elts[14]; +c_731628.elts[14] = ((closureN)self_73973)->elts[15]; +c_731628.elts[15] = ((closureN)self_73973)->elts[16]; +c_731628.elts[16] = ((closureN)self_73973)->elts[17]; + +return_closcall1(data,(closure)&c_731628, Cyc_set_car(data, ((closureN)self_73973)->elts[4], r_73376));; +} + +static void __lambda_168(void *data, int argc, object self_73974, object r_73299) { + +closureN_type c_731630; +c_731630.hdr.mark = gc_color_red; + c_731630.hdr.grayed = 0; +c_731630.tag = closureN_tag; + c_731630.fn = (function_type)__lambda_165; +c_731630.num_args = 1; +c_731630.num_elt = 17; +c_731630.elts = (object *)alloca(sizeof(object) * 17); +c_731630.elts[0] = ((closureN)self_73974)->elts[0]; +c_731630.elts[1] = ((closureN)self_73974)->elts[1]; +c_731630.elts[2] = ((closureN)self_73974)->elts[2]; +c_731630.elts[3] = ((closureN)self_73974)->elts[3]; +c_731630.elts[4] = ((closureN)self_73974)->elts[4]; +c_731630.elts[5] = ((closureN)self_73974)->elts[5]; +c_731630.elts[6] = ((closureN)self_73974)->elts[6]; +c_731630.elts[7] = ((closureN)self_73974)->elts[7]; +c_731630.elts[8] = ((closureN)self_73974)->elts[8]; +c_731630.elts[9] = ((closureN)self_73974)->elts[9]; +c_731630.elts[10] = ((closureN)self_73974)->elts[10]; +c_731630.elts[11] = ((closureN)self_73974)->elts[11]; +c_731630.elts[12] = ((closureN)self_73974)->elts[12]; +c_731630.elts[13] = ((closureN)self_73974)->elts[13]; +c_731630.elts[14] = ((closureN)self_73974)->elts[14]; +c_731630.elts[15] = ((closureN)self_73974)->elts[15]; +c_731630.elts[16] = ((closureN)self_73974)->elts[16]; + + +closureN_type c_732010; +c_732010.hdr.mark = gc_color_red; + c_732010.hdr.grayed = 0; +c_732010.tag = closureN_tag; + c_732010.fn = (function_type)__lambda_167; +c_732010.num_args = 2; +c_732010.num_elt = 3; +c_732010.elts = (object *)alloca(sizeof(object) * 3); +c_732010.elts[0] = ((closureN)self_73974)->elts[1]; +c_732010.elts[1] = ((closureN)self_73974)->elts[9]; +c_732010.elts[2] = ((closureN)self_73974)->elts[10]; + +return_closcall1(data,(closure)&c_731630, &c_732010);; +} + +static void __lambda_167(void *data, int argc, object self_73975, object k_73374, object x_73177, object lst_73176) { + +closureN_type c_732015; +c_732015.hdr.mark = gc_color_red; + c_732015.hdr.grayed = 0; +c_732015.tag = closureN_tag; + c_732015.fn = (function_type)__lambda_166; +c_732015.num_args = 1; +c_732015.num_elt = 4; +c_732015.elts = (object *)alloca(sizeof(object) * 4); +c_732015.elts[0] = k_73374; +c_732015.elts[1] = lst_73176; +c_732015.elts[2] = ((closureN)self_73975)->elts[2]; +c_732015.elts[3] = x_73177; + +return_closcall3(data, cell_get(((closureN)self_73975)->elts[1]), &c_732015, x_73177, cell_get(((closureN)self_73975)->elts[0]));; +} + +static void __lambda_166(void *data, int argc, object self_73976, object tmp_73178) { + if( !eq(boolean_f, tmp_73178) ){ + return_closcall1(data, ((closureN)self_73976)->elts[0], tmp_73178); +} else { + return_closcall3(data, cell_get(((closureN)self_73976)->elts[2]), ((closureN)self_73976)->elts[0], ((closureN)self_73976)->elts[3], ((closureN)self_73976)->elts[1]);} +; +} + +static void __lambda_165(void *data, int argc, object self_73977, object r_73373) { + +closureN_type c_731632; +c_731632.hdr.mark = gc_color_red; + c_731632.hdr.grayed = 0; +c_731632.tag = closureN_tag; + c_731632.fn = (function_type)__lambda_164; +c_731632.num_args = 1; +c_731632.num_elt = 16; +c_731632.elts = (object *)alloca(sizeof(object) * 16); +c_731632.elts[0] = ((closureN)self_73977)->elts[0]; +c_731632.elts[1] = ((closureN)self_73977)->elts[1]; +c_731632.elts[2] = ((closureN)self_73977)->elts[3]; +c_731632.elts[3] = ((closureN)self_73977)->elts[4]; +c_731632.elts[4] = ((closureN)self_73977)->elts[5]; +c_731632.elts[5] = ((closureN)self_73977)->elts[6]; +c_731632.elts[6] = ((closureN)self_73977)->elts[7]; +c_731632.elts[7] = ((closureN)self_73977)->elts[8]; +c_731632.elts[8] = ((closureN)self_73977)->elts[9]; +c_731632.elts[9] = ((closureN)self_73977)->elts[10]; +c_731632.elts[10] = ((closureN)self_73977)->elts[11]; +c_731632.elts[11] = ((closureN)self_73977)->elts[12]; +c_731632.elts[12] = ((closureN)self_73977)->elts[13]; +c_731632.elts[13] = ((closureN)self_73977)->elts[14]; +c_731632.elts[14] = ((closureN)self_73977)->elts[15]; +c_731632.elts[15] = ((closureN)self_73977)->elts[16]; + +return_closcall1(data,(closure)&c_731632, Cyc_set_car(data, ((closureN)self_73977)->elts[2], r_73373));; +} + +static void __lambda_164(void *data, int argc, object self_73978, object r_73300) { + +closureN_type c_731634; +c_731634.hdr.mark = gc_color_red; + c_731634.hdr.grayed = 0; +c_731634.tag = closureN_tag; + c_731634.fn = (function_type)__lambda_161; +c_731634.num_args = 1; +c_731634.num_elt = 16; +c_731634.elts = (object *)alloca(sizeof(object) * 16); +c_731634.elts[0] = ((closureN)self_73978)->elts[0]; +c_731634.elts[1] = ((closureN)self_73978)->elts[1]; +c_731634.elts[2] = ((closureN)self_73978)->elts[2]; +c_731634.elts[3] = ((closureN)self_73978)->elts[3]; +c_731634.elts[4] = ((closureN)self_73978)->elts[4]; +c_731634.elts[5] = ((closureN)self_73978)->elts[5]; +c_731634.elts[6] = ((closureN)self_73978)->elts[6]; +c_731634.elts[7] = ((closureN)self_73978)->elts[7]; +c_731634.elts[8] = ((closureN)self_73978)->elts[8]; +c_731634.elts[9] = ((closureN)self_73978)->elts[9]; +c_731634.elts[10] = ((closureN)self_73978)->elts[10]; +c_731634.elts[11] = ((closureN)self_73978)->elts[11]; +c_731634.elts[12] = ((closureN)self_73978)->elts[12]; +c_731634.elts[13] = ((closureN)self_73978)->elts[13]; +c_731634.elts[14] = ((closureN)self_73978)->elts[14]; +c_731634.elts[15] = ((closureN)self_73978)->elts[15]; + + +closureN_type c_731989; +c_731989.hdr.mark = gc_color_red; + c_731989.hdr.grayed = 0; +c_731989.tag = closureN_tag; + c_731989.fn = (function_type)__lambda_163; +c_731989.num_args = 2; +c_731989.num_elt = 3; +c_731989.elts = (object *)alloca(sizeof(object) * 3); +c_731989.elts[0] = ((closureN)self_73978)->elts[8]; +c_731989.elts[1] = ((closureN)self_73978)->elts[9]; +c_731989.elts[2] = ((closureN)self_73978)->elts[14]; + +return_closcall1(data,(closure)&c_731634, &c_731989);; +} + +static void __lambda_163(void *data, int argc, object self_73979, object k_73371, object x_73174, object lst_73173) { + +closureN_type c_731994; +c_731994.hdr.mark = gc_color_red; + c_731994.hdr.grayed = 0; +c_731994.tag = closureN_tag; + c_731994.fn = (function_type)__lambda_162; +c_731994.num_args = 1; +c_731994.num_elt = 4; +c_731994.elts = (object *)alloca(sizeof(object) * 4); +c_731994.elts[0] = k_73371; +c_731994.elts[1] = lst_73173; +c_731994.elts[2] = ((closureN)self_73979)->elts[1]; +c_731994.elts[3] = x_73174; + +return_closcall3(data, cell_get(((closureN)self_73979)->elts[0]), &c_731994, x_73174, cell_get(((closureN)self_73979)->elts[2]));; +} + +static void __lambda_162(void *data, int argc, object self_73980, object tmp_73175) { + if( !eq(boolean_f, tmp_73175) ){ + return_closcall1(data, ((closureN)self_73980)->elts[0], tmp_73175); +} else { + return_closcall3(data, cell_get(((closureN)self_73980)->elts[2]), ((closureN)self_73980)->elts[0], ((closureN)self_73980)->elts[3], ((closureN)self_73980)->elts[1]);} +; +} + +static void __lambda_161(void *data, int argc, object self_73981, object r_73370) { + +closureN_type c_731636; +c_731636.hdr.mark = gc_color_red; + c_731636.hdr.grayed = 0; +c_731636.tag = closureN_tag; + c_731636.fn = (function_type)__lambda_160; +c_731636.num_args = 1; +c_731636.num_elt = 15; +c_731636.elts = (object *)alloca(sizeof(object) * 15); +c_731636.elts[0] = ((closureN)self_73981)->elts[0]; +c_731636.elts[1] = ((closureN)self_73981)->elts[1]; +c_731636.elts[2] = ((closureN)self_73981)->elts[2]; +c_731636.elts[3] = ((closureN)self_73981)->elts[3]; +c_731636.elts[4] = ((closureN)self_73981)->elts[4]; +c_731636.elts[5] = ((closureN)self_73981)->elts[5]; +c_731636.elts[6] = ((closureN)self_73981)->elts[6]; +c_731636.elts[7] = ((closureN)self_73981)->elts[7]; +c_731636.elts[8] = ((closureN)self_73981)->elts[8]; +c_731636.elts[9] = ((closureN)self_73981)->elts[9]; +c_731636.elts[10] = ((closureN)self_73981)->elts[10]; +c_731636.elts[11] = ((closureN)self_73981)->elts[11]; +c_731636.elts[12] = ((closureN)self_73981)->elts[12]; +c_731636.elts[13] = ((closureN)self_73981)->elts[13]; +c_731636.elts[14] = ((closureN)self_73981)->elts[14]; + +return_closcall1(data,(closure)&c_731636, Cyc_set_car(data, ((closureN)self_73981)->elts[15], r_73370));; +} + +static void __lambda_160(void *data, int argc, object self_73982, object r_73301) { + +closureN_type c_731638; +c_731638.hdr.mark = gc_color_red; + c_731638.hdr.grayed = 0; +c_731638.tag = closureN_tag; + c_731638.fn = (function_type)__lambda_159; +c_731638.num_args = 1; +c_731638.num_elt = 15; +c_731638.elts = (object *)alloca(sizeof(object) * 15); +c_731638.elts[0] = ((closureN)self_73982)->elts[0]; +c_731638.elts[1] = ((closureN)self_73982)->elts[1]; +c_731638.elts[2] = ((closureN)self_73982)->elts[2]; +c_731638.elts[3] = ((closureN)self_73982)->elts[3]; +c_731638.elts[4] = ((closureN)self_73982)->elts[4]; +c_731638.elts[5] = ((closureN)self_73982)->elts[5]; +c_731638.elts[6] = ((closureN)self_73982)->elts[6]; +c_731638.elts[7] = ((closureN)self_73982)->elts[7]; +c_731638.elts[8] = ((closureN)self_73982)->elts[8]; +c_731638.elts[9] = ((closureN)self_73982)->elts[9]; +c_731638.elts[10] = ((closureN)self_73982)->elts[10]; +c_731638.elts[11] = ((closureN)self_73982)->elts[11]; +c_731638.elts[12] = ((closureN)self_73982)->elts[12]; +c_731638.elts[13] = ((closureN)self_73982)->elts[13]; +c_731638.elts[14] = ((closureN)self_73982)->elts[14]; + +return_closcall1(data,(closure)&c_731638, quote__85);; +} + +static void __lambda_159(void *data, int argc, object self_73983, object r_73369) { + +closureN_type c_731640; +c_731640.hdr.mark = gc_color_red; + c_731640.hdr.grayed = 0; +c_731640.tag = closureN_tag; + c_731640.fn = (function_type)__lambda_158; +c_731640.num_args = 1; +c_731640.num_elt = 15; +c_731640.elts = (object *)alloca(sizeof(object) * 15); +c_731640.elts[0] = ((closureN)self_73983)->elts[0]; +c_731640.elts[1] = ((closureN)self_73983)->elts[1]; +c_731640.elts[2] = ((closureN)self_73983)->elts[2]; +c_731640.elts[3] = ((closureN)self_73983)->elts[3]; +c_731640.elts[4] = ((closureN)self_73983)->elts[4]; +c_731640.elts[5] = ((closureN)self_73983)->elts[5]; +c_731640.elts[6] = ((closureN)self_73983)->elts[6]; +c_731640.elts[7] = ((closureN)self_73983)->elts[7]; +c_731640.elts[8] = ((closureN)self_73983)->elts[8]; +c_731640.elts[9] = ((closureN)self_73983)->elts[9]; +c_731640.elts[10] = ((closureN)self_73983)->elts[10]; +c_731640.elts[11] = ((closureN)self_73983)->elts[11]; +c_731640.elts[12] = ((closureN)self_73983)->elts[12]; +c_731640.elts[13] = ((closureN)self_73983)->elts[13]; +c_731640.elts[14] = ((closureN)self_73983)->elts[14]; + +return_closcall1(data,(closure)&c_731640, Cyc_set_car(data, ((closureN)self_73983)->elts[1], r_73369));; +} + +static void __lambda_158(void *data, int argc, object self_73984, object r_73302) { + +closureN_type c_731642; +c_731642.hdr.mark = gc_color_red; + c_731642.hdr.grayed = 0; +c_731642.tag = closureN_tag; + c_731642.fn = (function_type)__lambda_157; +c_731642.num_args = 1; +c_731642.num_elt = 15; +c_731642.elts = (object *)alloca(sizeof(object) * 15); +c_731642.elts[0] = ((closureN)self_73984)->elts[0]; +c_731642.elts[1] = ((closureN)self_73984)->elts[1]; +c_731642.elts[2] = ((closureN)self_73984)->elts[2]; +c_731642.elts[3] = ((closureN)self_73984)->elts[3]; +c_731642.elts[4] = ((closureN)self_73984)->elts[4]; +c_731642.elts[5] = ((closureN)self_73984)->elts[5]; +c_731642.elts[6] = ((closureN)self_73984)->elts[6]; +c_731642.elts[7] = ((closureN)self_73984)->elts[7]; +c_731642.elts[8] = ((closureN)self_73984)->elts[8]; +c_731642.elts[9] = ((closureN)self_73984)->elts[9]; +c_731642.elts[10] = ((closureN)self_73984)->elts[10]; +c_731642.elts[11] = ((closureN)self_73984)->elts[11]; +c_731642.elts[12] = ((closureN)self_73984)->elts[12]; +c_731642.elts[13] = ((closureN)self_73984)->elts[13]; +c_731642.elts[14] = ((closureN)self_73984)->elts[14]; + +return_closcall1(data,(closure)&c_731642, quote__85);; +} + +static void __lambda_157(void *data, int argc, object self_73985, object r_73368) { + +closureN_type c_731644; +c_731644.hdr.mark = gc_color_red; + c_731644.hdr.grayed = 0; +c_731644.tag = closureN_tag; + c_731644.fn = (function_type)__lambda_156; +c_731644.num_args = 1; +c_731644.num_elt = 15; +c_731644.elts = (object *)alloca(sizeof(object) * 15); +c_731644.elts[0] = ((closureN)self_73985)->elts[0]; +c_731644.elts[1] = ((closureN)self_73985)->elts[1]; +c_731644.elts[2] = ((closureN)self_73985)->elts[2]; +c_731644.elts[3] = ((closureN)self_73985)->elts[3]; +c_731644.elts[4] = ((closureN)self_73985)->elts[4]; +c_731644.elts[5] = ((closureN)self_73985)->elts[5]; +c_731644.elts[6] = ((closureN)self_73985)->elts[6]; +c_731644.elts[7] = ((closureN)self_73985)->elts[7]; +c_731644.elts[8] = ((closureN)self_73985)->elts[8]; +c_731644.elts[9] = ((closureN)self_73985)->elts[9]; +c_731644.elts[10] = ((closureN)self_73985)->elts[10]; +c_731644.elts[11] = ((closureN)self_73985)->elts[11]; +c_731644.elts[12] = ((closureN)self_73985)->elts[12]; +c_731644.elts[13] = ((closureN)self_73985)->elts[13]; +c_731644.elts[14] = ((closureN)self_73985)->elts[14]; + +return_closcall1(data,(closure)&c_731644, Cyc_set_car(data, ((closureN)self_73985)->elts[14], r_73368));; +} + +static void __lambda_156(void *data, int argc, object self_73986, object r_73303) { + +closureN_type c_731646; +c_731646.hdr.mark = gc_color_red; + c_731646.hdr.grayed = 0; +c_731646.tag = closureN_tag; + c_731646.fn = (function_type)__lambda_149; +c_731646.num_args = 1; +c_731646.num_elt = 15; +c_731646.elts = (object *)alloca(sizeof(object) * 15); +c_731646.elts[0] = ((closureN)self_73986)->elts[0]; +c_731646.elts[1] = ((closureN)self_73986)->elts[1]; +c_731646.elts[2] = ((closureN)self_73986)->elts[2]; +c_731646.elts[3] = ((closureN)self_73986)->elts[3]; +c_731646.elts[4] = ((closureN)self_73986)->elts[4]; +c_731646.elts[5] = ((closureN)self_73986)->elts[5]; +c_731646.elts[6] = ((closureN)self_73986)->elts[6]; +c_731646.elts[7] = ((closureN)self_73986)->elts[7]; +c_731646.elts[8] = ((closureN)self_73986)->elts[8]; +c_731646.elts[9] = ((closureN)self_73986)->elts[9]; +c_731646.elts[10] = ((closureN)self_73986)->elts[10]; +c_731646.elts[11] = ((closureN)self_73986)->elts[11]; +c_731646.elts[12] = ((closureN)self_73986)->elts[12]; +c_731646.elts[13] = ((closureN)self_73986)->elts[13]; +c_731646.elts[14] = ((closureN)self_73986)->elts[14]; + + +closureN_type c_731957; +c_731957.hdr.mark = gc_color_red; + c_731957.hdr.grayed = 0; +c_731957.tag = closureN_tag; + c_731957.fn = (function_type)__lambda_155; +c_731957.num_args = 1; +c_731957.num_elt = 2; +c_731957.elts = (object *)alloca(sizeof(object) * 2); +c_731957.elts[0] = ((closureN)self_73986)->elts[12]; +c_731957.elts[1] = ((closureN)self_73986)->elts[13]; + +return_closcall1(data,(closure)&c_731646, &c_731957);; +} + +static void __lambda_155(void *data, int argc, object self_73987, object k_73362, object n_73172) { + +closureN_type c_731959; +c_731959.hdr.mark = gc_color_red; + c_731959.hdr.grayed = 0; +c_731959.tag = closureN_tag; + c_731959.fn = (function_type)__lambda_154; +c_731959.num_args = 1; +c_731959.num_elt = 4; +c_731959.elts = (object *)alloca(sizeof(object) * 4); +c_731959.elts[0] = k_73362; +c_731959.elts[1] = n_73172; +c_731959.elts[2] = ((closureN)self_73987)->elts[0]; +c_731959.elts[3] = ((closureN)self_73987)->elts[1]; + +return_closcall1(data,(closure)&c_731959, quote_implies);; +} + +static void __lambda_154(void *data, int argc, object self_73988, object r_73364) { + +closureN_type c_731964; +c_731964.hdr.mark = gc_color_red; + c_731964.hdr.grayed = 0; +c_731964.tag = closureN_tag; + c_731964.fn = (function_type)__lambda_153; +c_731964.num_args = 1; +c_731964.num_elt = 4; +c_731964.elts = (object *)alloca(sizeof(object) * 4); +c_731964.elts[0] = ((closureN)self_73988)->elts[0]; +c_731964.elts[1] = ((closureN)self_73988)->elts[1]; +c_731964.elts[2] = r_73364; +c_731964.elts[3] = ((closureN)self_73988)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_73988)->elts[2]), &c_731964, ((closureN)self_73988)->elts[1]);; +} + +static void __lambda_153(void *data, int argc, object self_73989, object r_73365) { + +closureN_type c_731966; +c_731966.hdr.mark = gc_color_red; + c_731966.hdr.grayed = 0; +c_731966.tag = closureN_tag; + c_731966.fn = (function_type)__lambda_152; +c_731966.num_args = 1; +c_731966.num_elt = 5; +c_731966.elts = (object *)alloca(sizeof(object) * 5); +c_731966.elts[0] = ((closureN)self_73989)->elts[0]; +c_731966.elts[1] = ((closureN)self_73989)->elts[1]; +c_731966.elts[2] = ((closureN)self_73989)->elts[2]; +c_731966.elts[3] = r_73365; +c_731966.elts[4] = ((closureN)self_73989)->elts[3]; + +return_closcall1(data,(closure)&c_731966, quote_implies);; +} + +static void __lambda_152(void *data, int argc, object self_73990, object r_73367) { + +closureN_type c_731968; +c_731968.hdr.mark = gc_color_red; + c_731968.hdr.grayed = 0; +c_731968.tag = closureN_tag; + c_731968.fn = (function_type)__lambda_151; +c_731968.num_args = 1; +c_731968.num_elt = 4; +c_731968.elts = (object *)alloca(sizeof(object) * 4); +c_731968.elts[0] = ((closureN)self_73990)->elts[0]; +c_731968.elts[1] = ((closureN)self_73990)->elts[2]; +c_731968.elts[2] = ((closureN)self_73990)->elts[3]; +c_731968.elts[3] = ((closureN)self_73990)->elts[4]; + +return_closcall4(data, __glo__list_scheme_base, &c_731968, r_73367, obj_int2obj(0), ((closureN)self_73990)->elts[1]);; +} + +static void __lambda_151(void *data, int argc, object self_73991, object r_73366) { + +closureN_type c_731970; +c_731970.hdr.mark = gc_color_red; + c_731970.hdr.grayed = 0; +c_731970.tag = closureN_tag; + c_731970.fn = (function_type)__lambda_150; +c_731970.num_args = 1; +c_731970.num_elt = 2; +c_731970.elts = (object *)alloca(sizeof(object) * 2); +c_731970.elts[0] = ((closureN)self_73991)->elts[0]; +c_731970.elts[1] = ((closureN)self_73991)->elts[3]; + +return_closcall4(data, __glo__list_scheme_base, &c_731970, ((closureN)self_73991)->elts[1], ((closureN)self_73991)->elts[2], r_73366);; +} + +static void __lambda_150(void *data, int argc, object self_73992, object r_73363) { + return_closcall2(data, cell_get(((closureN)self_73992)->elts[1]), ((closureN)self_73992)->elts[0], r_73363);; +} + +static void __lambda_149(void *data, int argc, object self_73993, object r_73361) { + +closureN_type c_731648; +c_731648.hdr.mark = gc_color_red; + c_731648.hdr.grayed = 0; +c_731648.tag = closureN_tag; + c_731648.fn = (function_type)__lambda_148; +c_731648.num_args = 1; +c_731648.num_elt = 14; +c_731648.elts = (object *)alloca(sizeof(object) * 14); +c_731648.elts[0] = ((closureN)self_73993)->elts[0]; +c_731648.elts[1] = ((closureN)self_73993)->elts[1]; +c_731648.elts[2] = ((closureN)self_73993)->elts[2]; +c_731648.elts[3] = ((closureN)self_73993)->elts[3]; +c_731648.elts[4] = ((closureN)self_73993)->elts[4]; +c_731648.elts[5] = ((closureN)self_73993)->elts[5]; +c_731648.elts[6] = ((closureN)self_73993)->elts[6]; +c_731648.elts[7] = ((closureN)self_73993)->elts[7]; +c_731648.elts[8] = ((closureN)self_73993)->elts[8]; +c_731648.elts[9] = ((closureN)self_73993)->elts[9]; +c_731648.elts[10] = ((closureN)self_73993)->elts[10]; +c_731648.elts[11] = ((closureN)self_73993)->elts[12]; +c_731648.elts[12] = ((closureN)self_73993)->elts[13]; +c_731648.elts[13] = ((closureN)self_73993)->elts[14]; + +return_closcall1(data,(closure)&c_731648, Cyc_set_car(data, ((closureN)self_73993)->elts[11], r_73361));; +} + +static void __lambda_148(void *data, int argc, object self_73994, object r_73304) { + +closureN_type c_731650; +c_731650.hdr.mark = gc_color_red; + c_731650.hdr.grayed = 0; +c_731650.tag = closureN_tag; + c_731650.fn = (function_type)__lambda_136; +c_731650.num_args = 1; +c_731650.num_elt = 14; +c_731650.elts = (object *)alloca(sizeof(object) * 14); +c_731650.elts[0] = ((closureN)self_73994)->elts[0]; +c_731650.elts[1] = ((closureN)self_73994)->elts[1]; +c_731650.elts[2] = ((closureN)self_73994)->elts[2]; +c_731650.elts[3] = ((closureN)self_73994)->elts[3]; +c_731650.elts[4] = ((closureN)self_73994)->elts[4]; +c_731650.elts[5] = ((closureN)self_73994)->elts[5]; +c_731650.elts[6] = ((closureN)self_73994)->elts[6]; +c_731650.elts[7] = ((closureN)self_73994)->elts[7]; +c_731650.elts[8] = ((closureN)self_73994)->elts[8]; +c_731650.elts[9] = ((closureN)self_73994)->elts[9]; +c_731650.elts[10] = ((closureN)self_73994)->elts[10]; +c_731650.elts[11] = ((closureN)self_73994)->elts[11]; +c_731650.elts[12] = ((closureN)self_73994)->elts[12]; +c_731650.elts[13] = ((closureN)self_73994)->elts[13]; + + +closureN_type c_731912; +c_731912.hdr.mark = gc_color_red; + c_731912.hdr.grayed = 0; +c_731912.tag = closureN_tag; + c_731912.fn = (function_type)__lambda_147; +c_731912.num_args = 1; +c_731912.num_elt = 1; +c_731912.elts = (object *)alloca(sizeof(object) * 1); +c_731912.elts[0] = ((closureN)self_73994)->elts[11]; + +return_closcall1(data,(closure)&c_731650, &c_731912);; +} + +static void __lambda_147(void *data, int argc, object self_73995, object k_73352, object n_73171) { + +closureN_type c_731914; +c_731914.hdr.mark = gc_color_red; + c_731914.hdr.grayed = 0; +c_731914.tag = closureN_tag; + c_731914.fn = (function_type)__lambda_146; +c_731914.num_args = 1; +c_731914.num_elt = 3; +c_731914.elts = (object *)alloca(sizeof(object) * 3); +c_731914.elts[0] = k_73352; +c_731914.elts[1] = n_73171; +c_731914.elts[2] = ((closureN)self_73995)->elts[0]; + +return_closcall1(data,(closure)&c_731914, equalp(n_73171, obj_int2obj(1)));; +} + +static void __lambda_146(void *data, int argc, object self_73996, object r_73353) { + if( !eq(boolean_f, r_73353) ){ + +closureN_type c_731916; +c_731916.hdr.mark = gc_color_red; + c_731916.hdr.grayed = 0; +c_731916.tag = closureN_tag; + c_731916.fn = (function_type)__lambda_138; +c_731916.num_args = 0; +c_731916.num_elt = 1; +c_731916.elts = (object *)alloca(sizeof(object) * 1); +c_731916.elts[0] = ((closureN)self_73996)->elts[0]; + +return_closcall0(data,(closure)&c_731916); +} else { + +closureN_type c_731922; +c_731922.hdr.mark = gc_color_red; + c_731922.hdr.grayed = 0; +c_731922.tag = closureN_tag; + c_731922.fn = (function_type)__lambda_145; +c_731922.num_args = 0; +c_731922.num_elt = 3; +c_731922.elts = (object *)alloca(sizeof(object) * 3); +c_731922.elts[0] = ((closureN)self_73996)->elts[0]; +c_731922.elts[1] = ((closureN)self_73996)->elts[1]; +c_731922.elts[2] = ((closureN)self_73996)->elts[2]; + +return_closcall0(data,(closure)&c_731922);} +; +} + +static void __lambda_145(void *data, int argc, object self_73997) { + +closureN_type c_731924; +c_731924.hdr.mark = gc_color_red; + c_731924.hdr.grayed = 0; +c_731924.tag = closureN_tag; + c_731924.fn = (function_type)__lambda_144; +c_731924.num_args = 1; +c_731924.num_elt = 3; +c_731924.elts = (object *)alloca(sizeof(object) * 3); +c_731924.elts[0] = ((closureN)self_73997)->elts[0]; +c_731924.elts[1] = ((closureN)self_73997)->elts[1]; +c_731924.elts[2] = ((closureN)self_73997)->elts[2]; + +return_closcall1(data,(closure)&c_731924, quote_and);; +} + +static void __lambda_144(void *data, int argc, object self_73998, object r_73355) { + +closureN_type c_731926; +c_731926.hdr.mark = gc_color_red; + c_731926.hdr.grayed = 0; +c_731926.tag = closureN_tag; + c_731926.fn = (function_type)__lambda_143; +c_731926.num_args = 1; +c_731926.num_elt = 4; +c_731926.elts = (object *)alloca(sizeof(object) * 4); +c_731926.elts[0] = ((closureN)self_73998)->elts[0]; +c_731926.elts[1] = ((closureN)self_73998)->elts[1]; +c_731926.elts[2] = r_73355; +c_731926.elts[3] = ((closureN)self_73998)->elts[2]; + +return_closcall1(data,(closure)&c_731926, quote_implies);; +} + +static void __lambda_143(void *data, int argc, object self_73999, object r_73359) { + +closureN_type c_731928; +c_731928.hdr.mark = gc_color_red; + c_731928.hdr.grayed = 0; +c_731928.tag = closureN_tag; + c_731928.fn = (function_type)__lambda_142; +c_731928.num_args = 1; +c_731928.num_elt = 5; +c_731928.elts = (object *)alloca(sizeof(object) * 5); +c_731928.elts[0] = ((closureN)self_73999)->elts[0]; +c_731928.elts[1] = ((closureN)self_73999)->elts[1]; +c_731928.elts[2] = ((closureN)self_73999)->elts[2]; +c_731928.elts[3] = r_73359; +c_731928.elts[4] = ((closureN)self_73999)->elts[3]; + + +object c_731950 = Cyc_sub(data,(closure)&c_731928,2,((closureN)self_73999)->elts[1], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731928, c_731950);; +} + +static void __lambda_142(void *data, int argc, object self_731000, object r_73360) { + +closureN_type c_731930; +c_731930.hdr.mark = gc_color_red; + c_731930.hdr.grayed = 0; +c_731930.tag = closureN_tag; + c_731930.fn = (function_type)__lambda_141; +c_731930.num_args = 1; +c_731930.num_elt = 4; +c_731930.elts = (object *)alloca(sizeof(object) * 4); +c_731930.elts[0] = ((closureN)self_731000)->elts[0]; +c_731930.elts[1] = ((closureN)self_731000)->elts[1]; +c_731930.elts[2] = ((closureN)self_731000)->elts[2]; +c_731930.elts[3] = ((closureN)self_731000)->elts[4]; + +return_closcall4(data, __glo__list_scheme_base, &c_731930, ((closureN)self_731000)->elts[3], r_73360, ((closureN)self_731000)->elts[1]);; +} + +static void __lambda_141(void *data, int argc, object self_731001, object r_73356) { + +closureN_type c_731932; +c_731932.hdr.mark = gc_color_red; + c_731932.hdr.grayed = 0; +c_731932.tag = closureN_tag; + c_731932.fn = (function_type)__lambda_140; +c_731932.num_args = 1; +c_731932.num_elt = 4; +c_731932.elts = (object *)alloca(sizeof(object) * 4); +c_731932.elts[0] = ((closureN)self_731001)->elts[0]; +c_731932.elts[1] = ((closureN)self_731001)->elts[2]; +c_731932.elts[2] = r_73356; +c_731932.elts[3] = ((closureN)self_731001)->elts[3]; + + +object c_731944 = Cyc_sub(data,(closure)&c_731932,2,((closureN)self_731001)->elts[1], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731932, c_731944);; +} + +static void __lambda_140(void *data, int argc, object self_731002, object r_73358) { + +closureN_type c_731937; +c_731937.hdr.mark = gc_color_red; + c_731937.hdr.grayed = 0; +c_731937.tag = closureN_tag; + c_731937.fn = (function_type)__lambda_139; +c_731937.num_args = 1; +c_731937.num_elt = 3; +c_731937.elts = (object *)alloca(sizeof(object) * 3); +c_731937.elts[0] = ((closureN)self_731002)->elts[0]; +c_731937.elts[1] = ((closureN)self_731002)->elts[1]; +c_731937.elts[2] = ((closureN)self_731002)->elts[2]; + +return_closcall2(data, cell_get(((closureN)self_731002)->elts[3]), &c_731937, r_73358);; +} + +static void __lambda_139(void *data, int argc, object self_731003, object r_73357) { + return_closcall4(data, __glo__list_scheme_base, ((closureN)self_731003)->elts[0], ((closureN)self_731003)->elts[1], ((closureN)self_731003)->elts[2], r_73357);; +} + +static void __lambda_138(void *data, int argc, object self_731004) { + +closureN_type c_731918; +c_731918.hdr.mark = gc_color_red; + c_731918.hdr.grayed = 0; +c_731918.tag = closureN_tag; + c_731918.fn = (function_type)__lambda_137; +c_731918.num_args = 1; +c_731918.num_elt = 1; +c_731918.elts = (object *)alloca(sizeof(object) * 1); +c_731918.elts[0] = ((closureN)self_731004)->elts[0]; + +return_closcall1(data,(closure)&c_731918, quote_implies);; +} + +static void __lambda_137(void *data, int argc, object self_731005, object r_73354) { + return_closcall4(data, __glo__list_scheme_base, ((closureN)self_731005)->elts[0], r_73354, obj_int2obj(0), obj_int2obj(1));; +} + +static void __lambda_136(void *data, int argc, object self_731006, object r_73351) { + +closureN_type c_731652; +c_731652.hdr.mark = gc_color_red; + c_731652.hdr.grayed = 0; +c_731652.tag = closureN_tag; + c_731652.fn = (function_type)__lambda_135; +c_731652.num_args = 1; +c_731652.num_elt = 13; +c_731652.elts = (object *)alloca(sizeof(object) * 13); +c_731652.elts[0] = ((closureN)self_731006)->elts[0]; +c_731652.elts[1] = ((closureN)self_731006)->elts[1]; +c_731652.elts[2] = ((closureN)self_731006)->elts[2]; +c_731652.elts[3] = ((closureN)self_731006)->elts[3]; +c_731652.elts[4] = ((closureN)self_731006)->elts[4]; +c_731652.elts[5] = ((closureN)self_731006)->elts[5]; +c_731652.elts[6] = ((closureN)self_731006)->elts[6]; +c_731652.elts[7] = ((closureN)self_731006)->elts[7]; +c_731652.elts[8] = ((closureN)self_731006)->elts[8]; +c_731652.elts[9] = ((closureN)self_731006)->elts[9]; +c_731652.elts[10] = ((closureN)self_731006)->elts[10]; +c_731652.elts[11] = ((closureN)self_731006)->elts[12]; +c_731652.elts[12] = ((closureN)self_731006)->elts[13]; + +return_closcall1(data,(closure)&c_731652, Cyc_set_car(data, ((closureN)self_731006)->elts[11], r_73351));; +} + +static void __lambda_135(void *data, int argc, object self_731007, object r_73305) { + +closureN_type c_731654; +c_731654.hdr.mark = gc_color_red; + c_731654.hdr.grayed = 0; +c_731654.tag = closureN_tag; + c_731654.fn = (function_type)__lambda_124; +c_731654.num_args = 1; +c_731654.num_elt = 12; +c_731654.elts = (object *)alloca(sizeof(object) * 12); +c_731654.elts[0] = ((closureN)self_731007)->elts[0]; +c_731654.elts[1] = ((closureN)self_731007)->elts[1]; +c_731654.elts[2] = ((closureN)self_731007)->elts[2]; +c_731654.elts[3] = ((closureN)self_731007)->elts[3]; +c_731654.elts[4] = ((closureN)self_731007)->elts[4]; +c_731654.elts[5] = ((closureN)self_731007)->elts[5]; +c_731654.elts[6] = ((closureN)self_731007)->elts[7]; +c_731654.elts[7] = ((closureN)self_731007)->elts[8]; +c_731654.elts[8] = ((closureN)self_731007)->elts[9]; +c_731654.elts[9] = ((closureN)self_731007)->elts[10]; +c_731654.elts[10] = ((closureN)self_731007)->elts[11]; +c_731654.elts[11] = ((closureN)self_731007)->elts[12]; + + +closureN_type c_731853; +c_731853.hdr.mark = gc_color_red; + c_731853.hdr.grayed = 0; +c_731853.tag = closureN_tag; + c_731853.fn = (function_type)__lambda_134; +c_731853.num_args = 2; +c_731853.num_elt = 2; +c_731853.elts = (object *)alloca(sizeof(object) * 2); +c_731853.elts[0] = ((closureN)self_731007)->elts[6]; +c_731853.elts[1] = ((closureN)self_731007)->elts[7]; + +return_closcall1(data,(closure)&c_731654, &c_731853);; +} + +static void __lambda_134(void *data, int argc, object self_731008, object k_73343, object x_73170, object y_73169) { + +closureN_type c_731855; +c_731855.hdr.mark = gc_color_red; + c_731855.hdr.grayed = 0; +c_731855.tag = closureN_tag; + c_731855.fn = (function_type)__lambda_133; +c_731855.num_args = 1; +c_731855.num_elt = 5; +c_731855.elts = (object *)alloca(sizeof(object) * 5); +c_731855.elts[0] = k_73343; +c_731855.elts[1] = ((closureN)self_731008)->elts[0]; +c_731855.elts[2] = ((closureN)self_731008)->elts[1]; +c_731855.elts[3] = x_73170; +c_731855.elts[4] = y_73169; + +return_closcall1(data,(closure)&c_731855, Cyc_is_cons(x_73170));; +} + +static void __lambda_133(void *data, int argc, object self_731009, object r_73344) { + if( !eq(boolean_f, r_73344) ){ + +closureN_type c_731857; +c_731857.hdr.mark = gc_color_red; + c_731857.hdr.grayed = 0; +c_731857.tag = closureN_tag; + c_731857.fn = (function_type)__lambda_131; +c_731857.num_args = 0; +c_731857.num_elt = 5; +c_731857.elts = (object *)alloca(sizeof(object) * 5); +c_731857.elts[0] = ((closureN)self_731009)->elts[0]; +c_731857.elts[1] = ((closureN)self_731009)->elts[1]; +c_731857.elts[2] = ((closureN)self_731009)->elts[2]; +c_731857.elts[3] = ((closureN)self_731009)->elts[3]; +c_731857.elts[4] = ((closureN)self_731009)->elts[4]; + +return_closcall0(data,(closure)&c_731857); +} else { + +closureN_type c_731900; +c_731900.hdr.mark = gc_color_red; + c_731900.hdr.grayed = 0; +c_731900.tag = closureN_tag; + c_731900.fn = (function_type)__lambda_132; +c_731900.num_args = 0; +c_731900.num_elt = 3; +c_731900.elts = (object *)alloca(sizeof(object) * 3); +c_731900.elts[0] = ((closureN)self_731009)->elts[0]; +c_731900.elts[1] = ((closureN)self_731009)->elts[3]; +c_731900.elts[2] = ((closureN)self_731009)->elts[4]; + +return_closcall0(data,(closure)&c_731900);} +; +} + +static void __lambda_132(void *data, int argc, object self_731010) { + return_closcall1(data, ((closureN)self_731010)->elts[0], equalp(((closureN)self_731010)->elts[1], ((closureN)self_731010)->elts[2]));; +} + +static void __lambda_131(void *data, int argc, object self_731011) { + +closureN_type c_731859; +c_731859.hdr.mark = gc_color_red; + c_731859.hdr.grayed = 0; +c_731859.tag = closureN_tag; + c_731859.fn = (function_type)__lambda_130; +c_731859.num_args = 1; +c_731859.num_elt = 5; +c_731859.elts = (object *)alloca(sizeof(object) * 5); +c_731859.elts[0] = ((closureN)self_731011)->elts[0]; +c_731859.elts[1] = ((closureN)self_731011)->elts[1]; +c_731859.elts[2] = ((closureN)self_731011)->elts[2]; +c_731859.elts[3] = ((closureN)self_731011)->elts[3]; +c_731859.elts[4] = ((closureN)self_731011)->elts[4]; + +return_closcall1(data,(closure)&c_731859, Cyc_is_cons(((closureN)self_731011)->elts[4]));; +} + +static void __lambda_130(void *data, int argc, object self_731012, object r_73345) { + if( !eq(boolean_f, r_73345) ){ + +closureN_type c_731861; +c_731861.hdr.mark = gc_color_red; + c_731861.hdr.grayed = 0; +c_731861.tag = closureN_tag; + c_731861.fn = (function_type)__lambda_129; +c_731861.num_args = 1; +c_731861.num_elt = 5; +c_731861.elts = (object *)alloca(sizeof(object) * 5); +c_731861.elts[0] = ((closureN)self_731012)->elts[0]; +c_731861.elts[1] = ((closureN)self_731012)->elts[1]; +c_731861.elts[2] = ((closureN)self_731012)->elts[2]; +c_731861.elts[3] = ((closureN)self_731012)->elts[3]; +c_731861.elts[4] = ((closureN)self_731012)->elts[4]; + +return_closcall1(data,(closure)&c_731861, car(((closureN)self_731012)->elts[3])); +} else { + return_closcall1(data, ((closureN)self_731012)->elts[0], boolean_f);} +; +} + +static void __lambda_129(void *data, int argc, object self_731013, object r_73349) { + +closureN_type c_731863; +c_731863.hdr.mark = gc_color_red; + c_731863.hdr.grayed = 0; +c_731863.tag = closureN_tag; + c_731863.fn = (function_type)__lambda_128; +c_731863.num_args = 1; +c_731863.num_elt = 6; +c_731863.elts = (object *)alloca(sizeof(object) * 6); +c_731863.elts[0] = ((closureN)self_731013)->elts[0]; +c_731863.elts[1] = r_73349; +c_731863.elts[2] = ((closureN)self_731013)->elts[1]; +c_731863.elts[3] = ((closureN)self_731013)->elts[2]; +c_731863.elts[4] = ((closureN)self_731013)->elts[3]; +c_731863.elts[5] = ((closureN)self_731013)->elts[4]; + +return_closcall1(data,(closure)&c_731863, car(((closureN)self_731013)->elts[4]));; +} + +static void __lambda_128(void *data, int argc, object self_731014, object r_73350) { + +closureN_type c_731868; +c_731868.hdr.mark = gc_color_red; + c_731868.hdr.grayed = 0; +c_731868.tag = closureN_tag; + c_731868.fn = (function_type)__lambda_127; +c_731868.num_args = 1; +c_731868.num_elt = 4; +c_731868.elts = (object *)alloca(sizeof(object) * 4); +c_731868.elts[0] = ((closureN)self_731014)->elts[0]; +c_731868.elts[1] = ((closureN)self_731014)->elts[3]; +c_731868.elts[2] = ((closureN)self_731014)->elts[4]; +c_731868.elts[3] = ((closureN)self_731014)->elts[5]; + +return_closcall3(data, cell_get(((closureN)self_731014)->elts[2]), &c_731868, ((closureN)self_731014)->elts[1], r_73350);; +} + +static void __lambda_127(void *data, int argc, object self_731015, object r_73346) { + if( !eq(boolean_f, r_73346) ){ + +closureN_type c_731870; +c_731870.hdr.mark = gc_color_red; + c_731870.hdr.grayed = 0; +c_731870.tag = closureN_tag; + c_731870.fn = (function_type)__lambda_126; +c_731870.num_args = 1; +c_731870.num_elt = 3; +c_731870.elts = (object *)alloca(sizeof(object) * 3); +c_731870.elts[0] = ((closureN)self_731015)->elts[0]; +c_731870.elts[1] = ((closureN)self_731015)->elts[1]; +c_731870.elts[2] = ((closureN)self_731015)->elts[3]; + +return_closcall1(data,(closure)&c_731870, cdr(((closureN)self_731015)->elts[2])); +} else { + return_closcall1(data, ((closureN)self_731015)->elts[0], boolean_f);} +; +} + +static void __lambda_126(void *data, int argc, object self_731016, object r_73347) { + +closureN_type c_731872; +c_731872.hdr.mark = gc_color_red; + c_731872.hdr.grayed = 0; +c_731872.tag = closureN_tag; + c_731872.fn = (function_type)__lambda_125; +c_731872.num_args = 1; +c_731872.num_elt = 3; +c_731872.elts = (object *)alloca(sizeof(object) * 3); +c_731872.elts[0] = ((closureN)self_731016)->elts[0]; +c_731872.elts[1] = r_73347; +c_731872.elts[2] = ((closureN)self_731016)->elts[1]; + +return_closcall1(data,(closure)&c_731872, cdr(((closureN)self_731016)->elts[2]));; +} + +static void __lambda_125(void *data, int argc, object self_731017, object r_73348) { + return_closcall3(data, cell_get(((closureN)self_731017)->elts[2]), ((closureN)self_731017)->elts[0], ((closureN)self_731017)->elts[1], r_73348);; +} + +static void __lambda_124(void *data, int argc, object self_731018, object r_73342) { + +closureN_type c_731656; +c_731656.hdr.mark = gc_color_red; + c_731656.hdr.grayed = 0; +c_731656.tag = closureN_tag; + c_731656.fn = (function_type)__lambda_123; +c_731656.num_args = 1; +c_731656.num_elt = 12; +c_731656.elts = (object *)alloca(sizeof(object) * 12); +c_731656.elts[0] = ((closureN)self_731018)->elts[0]; +c_731656.elts[1] = ((closureN)self_731018)->elts[1]; +c_731656.elts[2] = ((closureN)self_731018)->elts[2]; +c_731656.elts[3] = ((closureN)self_731018)->elts[3]; +c_731656.elts[4] = ((closureN)self_731018)->elts[4]; +c_731656.elts[5] = ((closureN)self_731018)->elts[5]; +c_731656.elts[6] = ((closureN)self_731018)->elts[6]; +c_731656.elts[7] = ((closureN)self_731018)->elts[7]; +c_731656.elts[8] = ((closureN)self_731018)->elts[8]; +c_731656.elts[9] = ((closureN)self_731018)->elts[9]; +c_731656.elts[10] = ((closureN)self_731018)->elts[10]; +c_731656.elts[11] = ((closureN)self_731018)->elts[11]; + +return_closcall1(data,(closure)&c_731656, Cyc_set_car(data, ((closureN)self_731018)->elts[7], r_73342));; +} + +static void __lambda_123(void *data, int argc, object self_731019, object r_73306) { + +closureN_type c_731658; +c_731658.hdr.mark = gc_color_red; + c_731658.hdr.grayed = 0; +c_731658.tag = closureN_tag; + c_731658.fn = (function_type)__lambda_110; +c_731658.num_args = 1; +c_731658.num_elt = 12; +c_731658.elts = (object *)alloca(sizeof(object) * 12); +c_731658.elts[0] = ((closureN)self_731019)->elts[0]; +c_731658.elts[1] = ((closureN)self_731019)->elts[1]; +c_731658.elts[2] = ((closureN)self_731019)->elts[2]; +c_731658.elts[3] = ((closureN)self_731019)->elts[3]; +c_731658.elts[4] = ((closureN)self_731019)->elts[4]; +c_731658.elts[5] = ((closureN)self_731019)->elts[5]; +c_731658.elts[6] = ((closureN)self_731019)->elts[6]; +c_731658.elts[7] = ((closureN)self_731019)->elts[7]; +c_731658.elts[8] = ((closureN)self_731019)->elts[8]; +c_731658.elts[9] = ((closureN)self_731019)->elts[9]; +c_731658.elts[10] = ((closureN)self_731019)->elts[10]; +c_731658.elts[11] = ((closureN)self_731019)->elts[11]; + + +closureN_type c_731791; +c_731791.hdr.mark = gc_color_red; + c_731791.hdr.grayed = 0; +c_731791.tag = closureN_tag; + c_731791.fn = (function_type)__lambda_122; +c_731791.num_args = 2; +c_731791.num_elt = 2; +c_731791.elts = (object *)alloca(sizeof(object) * 2); +c_731791.elts[0] = ((closureN)self_731019)->elts[6]; +c_731791.elts[1] = ((closureN)self_731019)->elts[7]; + +return_closcall1(data,(closure)&c_731658, &c_731791);; +} + +static void __lambda_122(void *data, int argc, object self_731020, object k_73334, object lst1_73168, object lst2_73167) { + +closureN_type c_731793; +c_731793.hdr.mark = gc_color_red; + c_731793.hdr.grayed = 0; +c_731793.tag = closureN_tag; + c_731793.fn = (function_type)__lambda_121; +c_731793.num_args = 1; +c_731793.num_elt = 5; +c_731793.elts = (object *)alloca(sizeof(object) * 5); +c_731793.elts[0] = k_73334; +c_731793.elts[1] = lst1_73168; +c_731793.elts[2] = lst2_73167; +c_731793.elts[3] = ((closureN)self_731020)->elts[0]; +c_731793.elts[4] = ((closureN)self_731020)->elts[1]; + +return_closcall1(data,(closure)&c_731793, Cyc_is_null(lst1_73168));; +} + +static void __lambda_121(void *data, int argc, object self_731021, object r_73335) { + if( !eq(boolean_f, r_73335) ){ + +closureN_type c_731795; +c_731795.hdr.mark = gc_color_red; + c_731795.hdr.grayed = 0; +c_731795.tag = closureN_tag; + c_731795.fn = (function_type)__lambda_111; +c_731795.num_args = 0; +c_731795.num_elt = 2; +c_731795.elts = (object *)alloca(sizeof(object) * 2); +c_731795.elts[0] = ((closureN)self_731021)->elts[0]; +c_731795.elts[1] = ((closureN)self_731021)->elts[2]; + +return_closcall0(data,(closure)&c_731795); +} else { + +closureN_type c_731802; +c_731802.hdr.mark = gc_color_red; + c_731802.hdr.grayed = 0; +c_731802.tag = closureN_tag; + c_731802.fn = (function_type)__lambda_120; +c_731802.num_args = 1; +c_731802.num_elt = 5; +c_731802.elts = (object *)alloca(sizeof(object) * 5); +c_731802.elts[0] = ((closureN)self_731021)->elts[0]; +c_731802.elts[1] = ((closureN)self_731021)->elts[1]; +c_731802.elts[2] = ((closureN)self_731021)->elts[2]; +c_731802.elts[3] = ((closureN)self_731021)->elts[3]; +c_731802.elts[4] = ((closureN)self_731021)->elts[4]; + +return_closcall1(data,(closure)&c_731802, Cyc_is_null(((closureN)self_731021)->elts[2]));} +; +} + +static void __lambda_120(void *data, int argc, object self_731022, object r_73336) { + if( !eq(boolean_f, r_73336) ){ + +closureN_type c_731804; +c_731804.hdr.mark = gc_color_red; + c_731804.hdr.grayed = 0; +c_731804.tag = closureN_tag; + c_731804.fn = (function_type)__lambda_112; +c_731804.num_args = 0; +c_731804.num_elt = 1; +c_731804.elts = (object *)alloca(sizeof(object) * 1); +c_731804.elts[0] = ((closureN)self_731022)->elts[0]; + +return_closcall0(data,(closure)&c_731804); +} else { + +closureN_type c_731808; +c_731808.hdr.mark = gc_color_red; + c_731808.hdr.grayed = 0; +c_731808.tag = closureN_tag; + c_731808.fn = (function_type)__lambda_119; +c_731808.num_args = 1; +c_731808.num_elt = 5; +c_731808.elts = (object *)alloca(sizeof(object) * 5); +c_731808.elts[0] = ((closureN)self_731022)->elts[0]; +c_731808.elts[1] = ((closureN)self_731022)->elts[1]; +c_731808.elts[2] = ((closureN)self_731022)->elts[2]; +c_731808.elts[3] = ((closureN)self_731022)->elts[3]; +c_731808.elts[4] = ((closureN)self_731022)->elts[4]; + +return_closcall1(data,(closure)&c_731808, car(((closureN)self_731022)->elts[1]));} +; +} + +static void __lambda_119(void *data, int argc, object self_731023, object r_73340) { + +closureN_type c_731810; +c_731810.hdr.mark = gc_color_red; + c_731810.hdr.grayed = 0; +c_731810.tag = closureN_tag; + c_731810.fn = (function_type)__lambda_118; +c_731810.num_args = 1; +c_731810.num_elt = 6; +c_731810.elts = (object *)alloca(sizeof(object) * 6); +c_731810.elts[0] = ((closureN)self_731023)->elts[0]; +c_731810.elts[1] = ((closureN)self_731023)->elts[1]; +c_731810.elts[2] = ((closureN)self_731023)->elts[2]; +c_731810.elts[3] = r_73340; +c_731810.elts[4] = ((closureN)self_731023)->elts[3]; +c_731810.elts[5] = ((closureN)self_731023)->elts[4]; + +return_closcall1(data,(closure)&c_731810, car(((closureN)self_731023)->elts[2]));; +} + +static void __lambda_118(void *data, int argc, object self_731024, object r_73341) { + +closureN_type c_731815; +c_731815.hdr.mark = gc_color_red; + c_731815.hdr.grayed = 0; +c_731815.tag = closureN_tag; + c_731815.fn = (function_type)__lambda_117; +c_731815.num_args = 1; +c_731815.num_elt = 4; +c_731815.elts = (object *)alloca(sizeof(object) * 4); +c_731815.elts[0] = ((closureN)self_731024)->elts[0]; +c_731815.elts[1] = ((closureN)self_731024)->elts[1]; +c_731815.elts[2] = ((closureN)self_731024)->elts[2]; +c_731815.elts[3] = ((closureN)self_731024)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_731024)->elts[5]), &c_731815, ((closureN)self_731024)->elts[3], r_73341);; +} + +static void __lambda_117(void *data, int argc, object self_731025, object r_73337) { + if( !eq(boolean_f, r_73337) ){ + +closureN_type c_731817; +c_731817.hdr.mark = gc_color_red; + c_731817.hdr.grayed = 0; +c_731817.tag = closureN_tag; + c_731817.fn = (function_type)__lambda_115; +c_731817.num_args = 0; +c_731817.num_elt = 4; +c_731817.elts = (object *)alloca(sizeof(object) * 4); +c_731817.elts[0] = ((closureN)self_731025)->elts[0]; +c_731817.elts[1] = ((closureN)self_731025)->elts[1]; +c_731817.elts[2] = ((closureN)self_731025)->elts[2]; +c_731817.elts[3] = ((closureN)self_731025)->elts[3]; + +return_closcall0(data,(closure)&c_731817); +} else { + +closureN_type c_731835; +c_731835.hdr.mark = gc_color_red; + c_731835.hdr.grayed = 0; +c_731835.tag = closureN_tag; + c_731835.fn = (function_type)__lambda_116; +c_731835.num_args = 0; +c_731835.num_elt = 1; +c_731835.elts = (object *)alloca(sizeof(object) * 1); +c_731835.elts[0] = ((closureN)self_731025)->elts[0]; + +return_closcall0(data,(closure)&c_731835);} +; +} + +static void __lambda_116(void *data, int argc, object self_731026) { + return_closcall1(data, ((closureN)self_731026)->elts[0], boolean_f);; +} + +static void __lambda_115(void *data, int argc, object self_731027) { + +closureN_type c_731819; +c_731819.hdr.mark = gc_color_red; + c_731819.hdr.grayed = 0; +c_731819.tag = closureN_tag; + c_731819.fn = (function_type)__lambda_114; +c_731819.num_args = 1; +c_731819.num_elt = 3; +c_731819.elts = (object *)alloca(sizeof(object) * 3); +c_731819.elts[0] = ((closureN)self_731027)->elts[0]; +c_731819.elts[1] = ((closureN)self_731027)->elts[2]; +c_731819.elts[2] = ((closureN)self_731027)->elts[3]; + +return_closcall1(data,(closure)&c_731819, cdr(((closureN)self_731027)->elts[1]));; +} + +static void __lambda_114(void *data, int argc, object self_731028, object r_73338) { + +closureN_type c_731821; +c_731821.hdr.mark = gc_color_red; + c_731821.hdr.grayed = 0; +c_731821.tag = closureN_tag; + c_731821.fn = (function_type)__lambda_113; +c_731821.num_args = 1; +c_731821.num_elt = 3; +c_731821.elts = (object *)alloca(sizeof(object) * 3); +c_731821.elts[0] = ((closureN)self_731028)->elts[0]; +c_731821.elts[1] = r_73338; +c_731821.elts[2] = ((closureN)self_731028)->elts[2]; + +return_closcall1(data,(closure)&c_731821, cdr(((closureN)self_731028)->elts[1]));; +} + +static void __lambda_113(void *data, int argc, object self_731029, object r_73339) { + return_closcall3(data, cell_get(((closureN)self_731029)->elts[2]), ((closureN)self_731029)->elts[0], ((closureN)self_731029)->elts[1], r_73339);; +} + +static void __lambda_112(void *data, int argc, object self_731030) { + return_closcall1(data, ((closureN)self_731030)->elts[0], boolean_f);; +} + +static void __lambda_111(void *data, int argc, object self_731031) { + return_closcall1(data, ((closureN)self_731031)->elts[0], Cyc_is_null(((closureN)self_731031)->elts[1]));; +} + +static void __lambda_110(void *data, int argc, object self_731032, object r_73333) { + +closureN_type c_731660; +c_731660.hdr.mark = gc_color_red; + c_731660.hdr.grayed = 0; +c_731660.tag = closureN_tag; + c_731660.fn = (function_type)__lambda_109; +c_731660.num_args = 1; +c_731660.num_elt = 11; +c_731660.elts = (object *)alloca(sizeof(object) * 11); +c_731660.elts[0] = ((closureN)self_731032)->elts[0]; +c_731660.elts[1] = ((closureN)self_731032)->elts[1]; +c_731660.elts[2] = ((closureN)self_731032)->elts[2]; +c_731660.elts[3] = ((closureN)self_731032)->elts[3]; +c_731660.elts[4] = ((closureN)self_731032)->elts[4]; +c_731660.elts[5] = ((closureN)self_731032)->elts[5]; +c_731660.elts[6] = ((closureN)self_731032)->elts[7]; +c_731660.elts[7] = ((closureN)self_731032)->elts[8]; +c_731660.elts[8] = ((closureN)self_731032)->elts[9]; +c_731660.elts[9] = ((closureN)self_731032)->elts[10]; +c_731660.elts[10] = ((closureN)self_731032)->elts[11]; + +return_closcall1(data,(closure)&c_731660, Cyc_set_car(data, ((closureN)self_731032)->elts[6], r_73333));; +} + +static void __lambda_109(void *data, int argc, object self_731033, object r_73307) { + +closureN_type c_731662; +c_731662.hdr.mark = gc_color_red; + c_731662.hdr.grayed = 0; +c_731662.tag = closureN_tag; + c_731662.fn = (function_type)__lambda_100; +c_731662.num_args = 1; +c_731662.num_elt = 10; +c_731662.elts = (object *)alloca(sizeof(object) * 10); +c_731662.elts[0] = ((closureN)self_731033)->elts[0]; +c_731662.elts[1] = ((closureN)self_731033)->elts[1]; +c_731662.elts[2] = ((closureN)self_731033)->elts[2]; +c_731662.elts[3] = ((closureN)self_731033)->elts[3]; +c_731662.elts[4] = ((closureN)self_731033)->elts[4]; +c_731662.elts[5] = ((closureN)self_731033)->elts[5]; +c_731662.elts[6] = ((closureN)self_731033)->elts[7]; +c_731662.elts[7] = ((closureN)self_731033)->elts[8]; +c_731662.elts[8] = ((closureN)self_731033)->elts[9]; +c_731662.elts[9] = ((closureN)self_731033)->elts[10]; + + +closureN_type c_731751; +c_731751.hdr.mark = gc_color_red; + c_731751.hdr.grayed = 0; +c_731751.tag = closureN_tag; + c_731751.fn = (function_type)__lambda_108; +c_731751.num_args = 2; +c_731751.num_elt = 2; +c_731751.elts = (object *)alloca(sizeof(object) * 2); +c_731751.elts[0] = ((closureN)self_731033)->elts[6]; +c_731751.elts[1] = ((closureN)self_731033)->elts[7]; + +return_closcall1(data,(closure)&c_731662, &c_731751);; +} + +static void __lambda_108(void *data, int argc, object self_731034, object k_73328, object x_73166, object lst_73165) { + +closureN_type c_731753; +c_731753.hdr.mark = gc_color_red; + c_731753.hdr.grayed = 0; +c_731753.tag = closureN_tag; + c_731753.fn = (function_type)__lambda_107; +c_731753.num_args = 1; +c_731753.num_elt = 5; +c_731753.elts = (object *)alloca(sizeof(object) * 5); +c_731753.elts[0] = k_73328; +c_731753.elts[1] = lst_73165; +c_731753.elts[2] = ((closureN)self_731034)->elts[0]; +c_731753.elts[3] = ((closureN)self_731034)->elts[1]; +c_731753.elts[4] = x_73166; + +return_closcall1(data,(closure)&c_731753, Cyc_is_null(lst_73165));; +} + +static void __lambda_107(void *data, int argc, object self_731035, object r_73329) { + if( !eq(boolean_f, r_73329) ){ + +closureN_type c_731755; +c_731755.hdr.mark = gc_color_red; + c_731755.hdr.grayed = 0; +c_731755.tag = closureN_tag; + c_731755.fn = (function_type)__lambda_101; +c_731755.num_args = 0; +c_731755.num_elt = 1; +c_731755.elts = (object *)alloca(sizeof(object) * 1); +c_731755.elts[0] = ((closureN)self_731035)->elts[0]; + +return_closcall0(data,(closure)&c_731755); +} else { + +closureN_type c_731759; +c_731759.hdr.mark = gc_color_red; + c_731759.hdr.grayed = 0; +c_731759.tag = closureN_tag; + c_731759.fn = (function_type)__lambda_106; +c_731759.num_args = 1; +c_731759.num_elt = 5; +c_731759.elts = (object *)alloca(sizeof(object) * 5); +c_731759.elts[0] = ((closureN)self_731035)->elts[0]; +c_731759.elts[1] = ((closureN)self_731035)->elts[1]; +c_731759.elts[2] = ((closureN)self_731035)->elts[2]; +c_731759.elts[3] = ((closureN)self_731035)->elts[3]; +c_731759.elts[4] = ((closureN)self_731035)->elts[4]; + +return_closcall1(data,(closure)&c_731759, car(((closureN)self_731035)->elts[1]));} +; +} + +static void __lambda_106(void *data, int argc, object self_731036, object r_73332) { + +closureN_type c_731764; +c_731764.hdr.mark = gc_color_red; + c_731764.hdr.grayed = 0; +c_731764.tag = closureN_tag; + c_731764.fn = (function_type)__lambda_105; +c_731764.num_args = 1; +c_731764.num_elt = 4; +c_731764.elts = (object *)alloca(sizeof(object) * 4); +c_731764.elts[0] = ((closureN)self_731036)->elts[0]; +c_731764.elts[1] = ((closureN)self_731036)->elts[1]; +c_731764.elts[2] = ((closureN)self_731036)->elts[3]; +c_731764.elts[3] = ((closureN)self_731036)->elts[4]; + +return_closcall3(data, cell_get(((closureN)self_731036)->elts[2]), &c_731764, ((closureN)self_731036)->elts[4], r_73332);; +} + +static void __lambda_105(void *data, int argc, object self_731037, object r_73330) { + if( !eq(boolean_f, r_73330) ){ + +closureN_type c_731766; +c_731766.hdr.mark = gc_color_red; + c_731766.hdr.grayed = 0; +c_731766.tag = closureN_tag; + c_731766.fn = (function_type)__lambda_102; +c_731766.num_args = 0; +c_731766.num_elt = 1; +c_731766.elts = (object *)alloca(sizeof(object) * 1); +c_731766.elts[0] = ((closureN)self_731037)->elts[0]; + +return_closcall0(data,(closure)&c_731766); +} else { + +closureN_type c_731770; +c_731770.hdr.mark = gc_color_red; + c_731770.hdr.grayed = 0; +c_731770.tag = closureN_tag; + c_731770.fn = (function_type)__lambda_104; +c_731770.num_args = 0; +c_731770.num_elt = 4; +c_731770.elts = (object *)alloca(sizeof(object) * 4); +c_731770.elts[0] = ((closureN)self_731037)->elts[0]; +c_731770.elts[1] = ((closureN)self_731037)->elts[1]; +c_731770.elts[2] = ((closureN)self_731037)->elts[2]; +c_731770.elts[3] = ((closureN)self_731037)->elts[3]; + +return_closcall0(data,(closure)&c_731770);} +; +} + +static void __lambda_104(void *data, int argc, object self_731038) { + +closureN_type c_731772; +c_731772.hdr.mark = gc_color_red; + c_731772.hdr.grayed = 0; +c_731772.tag = closureN_tag; + c_731772.fn = (function_type)__lambda_103; +c_731772.num_args = 1; +c_731772.num_elt = 3; +c_731772.elts = (object *)alloca(sizeof(object) * 3); +c_731772.elts[0] = ((closureN)self_731038)->elts[0]; +c_731772.elts[1] = ((closureN)self_731038)->elts[2]; +c_731772.elts[2] = ((closureN)self_731038)->elts[3]; + +return_closcall1(data,(closure)&c_731772, cdr(((closureN)self_731038)->elts[1]));; +} + +static void __lambda_103(void *data, int argc, object self_731039, object r_73331) { + return_closcall3(data, cell_get(((closureN)self_731039)->elts[1]), ((closureN)self_731039)->elts[0], ((closureN)self_731039)->elts[2], r_73331);; +} + +static void __lambda_102(void *data, int argc, object self_731040) { + return_closcall1(data, ((closureN)self_731040)->elts[0], boolean_t);; +} + +static void __lambda_101(void *data, int argc, object self_731041) { + return_closcall1(data, ((closureN)self_731041)->elts[0], boolean_f);; +} + +static void __lambda_100(void *data, int argc, object self_731042, object r_73327) { + +closureN_type c_731664; +c_731664.hdr.mark = gc_color_red; + c_731664.hdr.grayed = 0; +c_731664.tag = closureN_tag; + c_731664.fn = (function_type)__lambda_99; +c_731664.num_args = 1; +c_731664.num_elt = 9; +c_731664.elts = (object *)alloca(sizeof(object) * 9); +c_731664.elts[0] = ((closureN)self_731042)->elts[0]; +c_731664.elts[1] = ((closureN)self_731042)->elts[1]; +c_731664.elts[2] = ((closureN)self_731042)->elts[2]; +c_731664.elts[3] = ((closureN)self_731042)->elts[3]; +c_731664.elts[4] = ((closureN)self_731042)->elts[4]; +c_731664.elts[5] = ((closureN)self_731042)->elts[5]; +c_731664.elts[6] = ((closureN)self_731042)->elts[7]; +c_731664.elts[7] = ((closureN)self_731042)->elts[8]; +c_731664.elts[8] = ((closureN)self_731042)->elts[9]; + +return_closcall1(data,(closure)&c_731664, Cyc_set_car(data, ((closureN)self_731042)->elts[6], r_73327));; +} + +static void __lambda_99(void *data, int argc, object self_731043, object r_73308) { + +closureN_type c_731666; +c_731666.hdr.mark = gc_color_red; + c_731666.hdr.grayed = 0; +c_731666.tag = closureN_tag; + c_731666.fn = (function_type)__lambda_86; +c_731666.num_args = 1; +c_731666.num_elt = 2; +c_731666.elts = (object *)alloca(sizeof(object) * 2); +c_731666.elts[0] = ((closureN)self_731043)->elts[3]; +c_731666.elts[1] = ((closureN)self_731043)->elts[6]; + + +closureN_type c_731697; +c_731697.hdr.mark = gc_color_red; + c_731697.hdr.grayed = 0; +c_731697.tag = closureN_tag; + c_731697.fn = (function_type)__lambda_98; +c_731697.num_args = 0; +c_731697.num_elt = 7; +c_731697.elts = (object *)alloca(sizeof(object) * 7); +c_731697.elts[0] = ((closureN)self_731043)->elts[0]; +c_731697.elts[1] = ((closureN)self_731043)->elts[1]; +c_731697.elts[2] = ((closureN)self_731043)->elts[2]; +c_731697.elts[3] = ((closureN)self_731043)->elts[4]; +c_731697.elts[4] = ((closureN)self_731043)->elts[5]; +c_731697.elts[5] = ((closureN)self_731043)->elts[7]; +c_731697.elts[6] = ((closureN)self_731043)->elts[8]; + +return_closcall1(data,(closure)&c_731666, &c_731697);; +} + +static void __lambda_98(void *data, int argc, object self_731044, object k_73315) { + +closureN_type c_731699; +c_731699.hdr.mark = gc_color_red; + c_731699.hdr.grayed = 0; +c_731699.tag = closureN_tag; + c_731699.fn = (function_type)__lambda_97; +c_731699.num_args = 1; +c_731699.num_elt = 8; +c_731699.elts = (object *)alloca(sizeof(object) * 8); +c_731699.elts[0] = ((closureN)self_731044)->elts[0]; +c_731699.elts[1] = ((closureN)self_731044)->elts[1]; +c_731699.elts[2] = ((closureN)self_731044)->elts[2]; +c_731699.elts[3] = k_73315; +c_731699.elts[4] = ((closureN)self_731044)->elts[3]; +c_731699.elts[5] = ((closureN)self_731044)->elts[4]; +c_731699.elts[6] = ((closureN)self_731044)->elts[5]; +c_731699.elts[7] = ((closureN)self_731044)->elts[6]; + +return_closcall1(data,(closure)&c_731699, nil);; +} + +static void __lambda_97(void *data, int argc, object self_731045, object r_73326) { + +closureN_type c_731701; +c_731701.hdr.mark = gc_color_red; + c_731701.hdr.grayed = 0; +c_731701.tag = closureN_tag; + c_731701.fn = (function_type)__lambda_96; +c_731701.num_args = 1; +c_731701.num_elt = 7; +c_731701.elts = (object *)alloca(sizeof(object) * 7); +c_731701.elts[0] = ((closureN)self_731045)->elts[1]; +c_731701.elts[1] = ((closureN)self_731045)->elts[2]; +c_731701.elts[2] = ((closureN)self_731045)->elts[3]; +c_731701.elts[3] = ((closureN)self_731045)->elts[4]; +c_731701.elts[4] = ((closureN)self_731045)->elts[5]; +c_731701.elts[5] = ((closureN)self_731045)->elts[6]; +c_731701.elts[6] = ((closureN)self_731045)->elts[7]; + +return_closcall1(data,(closure)&c_731701, Cyc_set_car(data, ((closureN)self_731045)->elts[0], r_73326));; +} + +static void __lambda_96(void *data, int argc, object self_731046, object r_73316) { + +closureN_type c_731703; +c_731703.hdr.mark = gc_color_red; + c_731703.hdr.grayed = 0; +c_731703.tag = closureN_tag; + c_731703.fn = (function_type)__lambda_95; +c_731703.num_args = 1; +c_731703.num_elt = 7; +c_731703.elts = (object *)alloca(sizeof(object) * 7); +c_731703.elts[0] = ((closureN)self_731046)->elts[0]; +c_731703.elts[1] = ((closureN)self_731046)->elts[1]; +c_731703.elts[2] = ((closureN)self_731046)->elts[2]; +c_731703.elts[3] = ((closureN)self_731046)->elts[3]; +c_731703.elts[4] = ((closureN)self_731046)->elts[4]; +c_731703.elts[5] = ((closureN)self_731046)->elts[5]; +c_731703.elts[6] = ((closureN)self_731046)->elts[6]; + +return_closcall1(data,(closure)&c_731703, quote__if);; +} + +static void __lambda_95(void *data, int argc, object self_731047, object r_73325) { + +closureN_type c_731708; +c_731708.hdr.mark = gc_color_red; + c_731708.hdr.grayed = 0; +c_731708.tag = closureN_tag; + c_731708.fn = (function_type)__lambda_94; +c_731708.num_args = 1; +c_731708.num_elt = 6; +c_731708.elts = (object *)alloca(sizeof(object) * 6); +c_731708.elts[0] = ((closureN)self_731047)->elts[0]; +c_731708.elts[1] = ((closureN)self_731047)->elts[1]; +c_731708.elts[2] = ((closureN)self_731047)->elts[2]; +c_731708.elts[3] = ((closureN)self_731047)->elts[3]; +c_731708.elts[4] = ((closureN)self_731047)->elts[5]; +c_731708.elts[5] = ((closureN)self_731047)->elts[6]; + +return_closcall2(data, cell_get(((closureN)self_731047)->elts[4]), &c_731708, r_73325);; +} + +static void __lambda_94(void *data, int argc, object self_731048, object r_73324) { + +closureN_type c_731710; +c_731710.hdr.mark = gc_color_red; + c_731710.hdr.grayed = 0; +c_731710.tag = closureN_tag; + c_731710.fn = (function_type)__lambda_93; +c_731710.num_args = 1; +c_731710.num_elt = 5; +c_731710.elts = (object *)alloca(sizeof(object) * 5); +c_731710.elts[0] = ((closureN)self_731048)->elts[0]; +c_731710.elts[1] = ((closureN)self_731048)->elts[2]; +c_731710.elts[2] = ((closureN)self_731048)->elts[3]; +c_731710.elts[3] = ((closureN)self_731048)->elts[4]; +c_731710.elts[4] = ((closureN)self_731048)->elts[5]; + +return_closcall1(data,(closure)&c_731710, Cyc_set_car(data, ((closureN)self_731048)->elts[1], r_73324));; +} + +static void __lambda_93(void *data, int argc, object self_731049, object r_73317) { + +closureN_type c_731712; +c_731712.hdr.mark = gc_color_red; + c_731712.hdr.grayed = 0; +c_731712.tag = closureN_tag; + c_731712.fn = (function_type)__lambda_92; +c_731712.num_args = 1; +c_731712.num_elt = 5; +c_731712.elts = (object *)alloca(sizeof(object) * 5); +c_731712.elts[0] = ((closureN)self_731049)->elts[0]; +c_731712.elts[1] = ((closureN)self_731049)->elts[1]; +c_731712.elts[2] = ((closureN)self_731049)->elts[2]; +c_731712.elts[3] = ((closureN)self_731049)->elts[3]; +c_731712.elts[4] = ((closureN)self_731049)->elts[4]; + + +make_cons(c_731741,quote_f,nil); +return_closcall1(data,(closure)&c_731712, &c_731741);; +} + +static void __lambda_92(void *data, int argc, object self_731050, object r_73323) { + +closureN_type c_731717; +c_731717.hdr.mark = gc_color_red; + c_731717.hdr.grayed = 0; +c_731717.tag = closureN_tag; + c_731717.fn = (function_type)__lambda_91; +c_731717.num_args = 1; +c_731717.num_elt = 5; +c_731717.elts = (object *)alloca(sizeof(object) * 5); +c_731717.elts[0] = ((closureN)self_731050)->elts[0]; +c_731717.elts[1] = ((closureN)self_731050)->elts[1]; +c_731717.elts[2] = ((closureN)self_731050)->elts[2]; +c_731717.elts[3] = ((closureN)self_731050)->elts[3]; +c_731717.elts[4] = ((closureN)self_731050)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_731050)->elts[3]), &c_731717, r_73323);; +} + +static void __lambda_91(void *data, int argc, object self_731051, object r_73322) { + +closureN_type c_731719; +c_731719.hdr.mark = gc_color_red; + c_731719.hdr.grayed = 0; +c_731719.tag = closureN_tag; + c_731719.fn = (function_type)__lambda_90; +c_731719.num_args = 1; +c_731719.num_elt = 4; +c_731719.elts = (object *)alloca(sizeof(object) * 4); +c_731719.elts[0] = ((closureN)self_731051)->elts[1]; +c_731719.elts[1] = ((closureN)self_731051)->elts[2]; +c_731719.elts[2] = ((closureN)self_731051)->elts[3]; +c_731719.elts[3] = ((closureN)self_731051)->elts[4]; + +return_closcall1(data,(closure)&c_731719, Cyc_set_car(data, ((closureN)self_731051)->elts[0], r_73322));; +} + +static void __lambda_90(void *data, int argc, object self_731052, object r_73318) { + +closureN_type c_731721; +c_731721.hdr.mark = gc_color_red; + c_731721.hdr.grayed = 0; +c_731721.tag = closureN_tag; + c_731721.fn = (function_type)__lambda_89; +c_731721.num_args = 1; +c_731721.num_elt = 4; +c_731721.elts = (object *)alloca(sizeof(object) * 4); +c_731721.elts[0] = ((closureN)self_731052)->elts[0]; +c_731721.elts[1] = ((closureN)self_731052)->elts[1]; +c_731721.elts[2] = ((closureN)self_731052)->elts[2]; +c_731721.elts[3] = ((closureN)self_731052)->elts[3]; + + +make_cons(c_731737,quote_t,nil); +return_closcall1(data,(closure)&c_731721, &c_731737);; +} + +static void __lambda_89(void *data, int argc, object self_731053, object r_73321) { + +closureN_type c_731726; +c_731726.hdr.mark = gc_color_red; + c_731726.hdr.grayed = 0; +c_731726.tag = closureN_tag; + c_731726.fn = (function_type)__lambda_88; +c_731726.num_args = 1; +c_731726.num_elt = 3; +c_731726.elts = (object *)alloca(sizeof(object) * 3); +c_731726.elts[0] = ((closureN)self_731053)->elts[0]; +c_731726.elts[1] = ((closureN)self_731053)->elts[1]; +c_731726.elts[2] = ((closureN)self_731053)->elts[3]; + +return_closcall2(data, cell_get(((closureN)self_731053)->elts[2]), &c_731726, r_73321);; +} + +static void __lambda_88(void *data, int argc, object self_731054, object r_73320) { + +closureN_type c_731728; +c_731728.hdr.mark = gc_color_red; + c_731728.hdr.grayed = 0; +c_731728.tag = closureN_tag; + c_731728.fn = (function_type)__lambda_87; +c_731728.num_args = 1; +c_731728.num_elt = 2; +c_731728.elts = (object *)alloca(sizeof(object) * 2); +c_731728.elts[0] = ((closureN)self_731054)->elts[0]; +c_731728.elts[1] = ((closureN)self_731054)->elts[1]; + +return_closcall1(data,(closure)&c_731728, Cyc_set_car(data, ((closureN)self_731054)->elts[2], r_73320));; +} + +static void __lambda_87(void *data, int argc, object self_731055, object r_73319) { + return_closcall1(data, cell_get(((closureN)self_731055)->elts[1]), ((closureN)self_731055)->elts[0]);; +} + +static void __lambda_86(void *data, int argc, object self_731056, object r_73314) { + +closureN_type c_731668; +c_731668.hdr.mark = gc_color_red; + c_731668.hdr.grayed = 0; +c_731668.tag = closureN_tag; + c_731668.fn = (function_type)__lambda_85; +c_731668.num_args = 1; +c_731668.num_elt = 2; +c_731668.elts = (object *)alloca(sizeof(object) * 2); +c_731668.elts[0] = ((closureN)self_731056)->elts[0]; +c_731668.elts[1] = ((closureN)self_731056)->elts[1]; + +return_closcall1(data,(closure)&c_731668, global_set(__glo_setup_91boyer, r_73314));; +} + +static void __lambda_85(void *data, int argc, object self_731057, object r_73309) { + closureN_type c_731674; +c_731674.hdr.mark = gc_color_red; + c_731674.hdr.grayed = 0; +c_731674.tag = closureN_tag; + c_731674.fn = (function_type)__lambda_84; +c_731674.num_args = 3; +c_731674.num_elt = 2; +c_731674.elts = (object *)alloca(sizeof(object) * 2); +c_731674.elts[0] = ((closureN)self_731057)->elts[0]; +c_731674.elts[1] = ((closureN)self_731057)->elts[1]; + +return_direct1(data,__lambda_81,&c_731674);; +} + +static void __lambda_84(void *data, int argc, object self_731058, object k_73311, object alist_73163, object term_73162, object n_73161) { + +closureN_type c_731676; +c_731676.hdr.mark = gc_color_red; + c_731676.hdr.grayed = 0; +c_731676.tag = closureN_tag; + c_731676.fn = (function_type)__lambda_83; +c_731676.num_args = 1; +c_731676.num_elt = 6; +c_731676.elts = (object *)alloca(sizeof(object) * 6); +c_731676.elts[0] = alist_73163; +c_731676.elts[1] = k_73311; +c_731676.elts[2] = n_73161; +c_731676.elts[3] = ((closureN)self_731058)->elts[0]; +c_731676.elts[4] = term_73162; +c_731676.elts[5] = ((closureN)self_731058)->elts[1]; + +return_closcall1(data,(closure)&c_731676, Cyc_set_car(data, ((closureN)self_731058)->elts[0], obj_int2obj(0)));; +} + +static void __lambda_83(void *data, int argc, object self_731059, object r_73312) { + +closureN_type c_731681; +c_731681.hdr.mark = gc_color_red; + c_731681.hdr.grayed = 0; +c_731681.tag = closureN_tag; + c_731681.fn = (function_type)__lambda_82; +c_731681.num_args = 1; +c_731681.num_elt = 2; +c_731681.elts = (object *)alloca(sizeof(object) * 2); +c_731681.elts[0] = ((closureN)self_731059)->elts[1]; +c_731681.elts[1] = ((closureN)self_731059)->elts[3]; + +return_closcall4(data, cell_get(((closureN)self_731059)->elts[5]), &c_731681, ((closureN)self_731059)->elts[0], ((closureN)self_731059)->elts[4], ((closureN)self_731059)->elts[2]);; +} + +static void __lambda_82(void *data, int argc, object self_731060, object answer_73164) { + if( !eq(boolean_f, answer_73164) ){ + return_closcall1(data, ((closureN)self_731060)->elts[0], cell_get(((closureN)self_731060)->elts[1])); +} else { + return_closcall1(data, ((closureN)self_731060)->elts[0], boolean_f);} +; +} + +static void __lambda_81(void *data, int argc, closure _,object r_73310) { + return_direct1(data,__lambda_80,global_set(__glo_test_91boyer, r_73310));; +} + +static void __lambda_80(void *data, int argc, closure _,object r_73268) { + return_closcall1(data, __glo_main, primitive__75halt);; +} + +static void __lambda_79(void *data, int argc, closure _,object k_73580, object name_73235, object count_73234, object thunk_73233, object ok_127_73232) { + Cyc_st_add(data, "sboyer.scm:run-r7rs-benchmark"); + +closureN_type c_731246; +c_731246.hdr.mark = gc_color_red; + c_731246.hdr.grayed = 0; +c_731246.tag = closureN_tag; + c_731246.fn = (function_type)__lambda_78; +c_731246.num_args = 1; +c_731246.num_elt = 5; +c_731246.elts = (object *)alloca(sizeof(object) * 5); +c_731246.elts[0] = count_73234; +c_731246.elts[1] = k_73580; +c_731246.elts[2] = name_73235; +c_731246.elts[3] = ok_127_73232; +c_731246.elts[4] = thunk_73233; + +return_closcall1(data,(closure)&c_731246, boolean_f);; +} + +static void __lambda_78(void *data, int argc, object self_731061, object rounded_73237) { + +closureN_type c_731248; +c_731248.hdr.mark = gc_color_red; + c_731248.hdr.grayed = 0; +c_731248.tag = closureN_tag; + c_731248.fn = (function_type)__lambda_77; +c_731248.num_args = 1; +c_731248.num_elt = 5; +c_731248.elts = (object *)alloca(sizeof(object) * 5); +c_731248.elts[0] = ((closureN)self_731061)->elts[0]; +c_731248.elts[1] = ((closureN)self_731061)->elts[1]; +c_731248.elts[2] = ((closureN)self_731061)->elts[2]; +c_731248.elts[3] = ((closureN)self_731061)->elts[3]; +c_731248.elts[4] = ((closureN)self_731061)->elts[4]; + + +make_cell(c_731417,rounded_73237); +return_closcall1(data,(closure)&c_731248, &c_731417);; +} + +static void __lambda_77(void *data, int argc, object self_731062, object rounded_73237) { + +closureN_type c_731250; +c_731250.hdr.mark = gc_color_red; + c_731250.hdr.grayed = 0; +c_731250.tag = closureN_tag; + c_731250.fn = (function_type)__lambda_76; +c_731250.num_args = 1; +c_731250.num_elt = 6; +c_731250.elts = (object *)alloca(sizeof(object) * 6); +c_731250.elts[0] = ((closureN)self_731062)->elts[0]; +c_731250.elts[1] = ((closureN)self_731062)->elts[1]; +c_731250.elts[2] = ((closureN)self_731062)->elts[2]; +c_731250.elts[3] = ((closureN)self_731062)->elts[3]; +c_731250.elts[4] = rounded_73237; +c_731250.elts[5] = ((closureN)self_731062)->elts[4]; + +return_closcall1(data,(closure)&c_731250, boolean_f);; +} + +static void __lambda_76(void *data, int argc, object self_731063, object rounded_73238) { + +closureN_type c_731252; +c_731252.hdr.mark = gc_color_red; + c_731252.hdr.grayed = 0; +c_731252.tag = closureN_tag; + c_731252.fn = (function_type)__lambda_72; +c_731252.num_args = 1; +c_731252.num_elt = 6; +c_731252.elts = (object *)alloca(sizeof(object) * 6); +c_731252.elts[0] = ((closureN)self_731063)->elts[0]; +c_731252.elts[1] = ((closureN)self_731063)->elts[1]; +c_731252.elts[2] = ((closureN)self_731063)->elts[2]; +c_731252.elts[3] = ((closureN)self_731063)->elts[3]; +c_731252.elts[4] = ((closureN)self_731063)->elts[4]; +c_731252.elts[5] = ((closureN)self_731063)->elts[5]; + + +mclosure0(c_731402, (function_type)__lambda_75);c_731402.num_args = 1; +return_closcall1(data,(closure)&c_731252, &c_731402);; +} + +static void __lambda_75(void *data, int argc, object self_731064, object k_73616, object x_73252) { + +closureN_type c_731404; +c_731404.hdr.mark = gc_color_red; + c_731404.hdr.grayed = 0; +c_731404.tag = closureN_tag; + c_731404.fn = (function_type)__lambda_74; +c_731404.num_args = 1; +c_731404.num_elt = 1; +c_731404.elts = (object *)alloca(sizeof(object) * 1); +c_731404.elts[0] = k_73616; + + +object c_731414 = Cyc_mul(data,(closure)&c_731404,2,obj_int2obj(1000), x_73252); +return_closcall1(data,(closure)&c_731404, c_731414);; +} + +static void __lambda_74(void *data, int argc, object self_731065, object r_73618) { + +closureN_type c_731406; +c_731406.hdr.mark = gc_color_red; + c_731406.hdr.grayed = 0; +c_731406.tag = closureN_tag; + c_731406.fn = (function_type)__lambda_73; +c_731406.num_args = 1; +c_731406.num_elt = 1; +c_731406.elts = (object *)alloca(sizeof(object) * 1); +c_731406.elts[0] = ((closureN)self_731065)->elts[0]; + +return_closcall2(data, __glo_round_scheme_base, &c_731406, r_73618);; +} + +static void __lambda_73(void *data, int argc, object self_731066, object r_73617) { + +object c_731411 = Cyc_div(data, ((closureN)self_731066)->elts[0],2,r_73617, obj_int2obj(1000)); +return_closcall1(data, ((closureN)self_731066)->elts[0], c_731411);; +} + +static void __lambda_72(void *data, int argc, object self_731067, object r_73615) { + +closureN_type c_731254; +c_731254.hdr.mark = gc_color_red; + c_731254.hdr.grayed = 0; +c_731254.tag = closureN_tag; + c_731254.fn = (function_type)__lambda_71; +c_731254.num_args = 1; +c_731254.num_elt = 6; +c_731254.elts = (object *)alloca(sizeof(object) * 6); +c_731254.elts[0] = ((closureN)self_731067)->elts[0]; +c_731254.elts[1] = ((closureN)self_731067)->elts[1]; +c_731254.elts[2] = ((closureN)self_731067)->elts[2]; +c_731254.elts[3] = ((closureN)self_731067)->elts[3]; +c_731254.elts[4] = ((closureN)self_731067)->elts[4]; +c_731254.elts[5] = ((closureN)self_731067)->elts[5]; + +return_closcall1(data,(closure)&c_731254, Cyc_set_car(data, ((closureN)self_731067)->elts[4], r_73615));; +} + +static void __lambda_71(void *data, int argc, object self_731068, object r_73581) { + +closureN_type c_731256; +c_731256.hdr.mark = gc_color_red; + c_731256.hdr.grayed = 0; +c_731256.tag = closureN_tag; + c_731256.fn = (function_type)__lambda_70; +c_731256.num_args = 1; +c_731256.num_elt = 6; +c_731256.elts = (object *)alloca(sizeof(object) * 6); +c_731256.elts[0] = ((closureN)self_731068)->elts[0]; +c_731256.elts[1] = ((closureN)self_731068)->elts[1]; +c_731256.elts[2] = ((closureN)self_731068)->elts[2]; +c_731256.elts[3] = ((closureN)self_731068)->elts[3]; +c_731256.elts[4] = ((closureN)self_731068)->elts[4]; +c_731256.elts[5] = ((closureN)self_731068)->elts[5]; + + +make_string(c_731398, "Running "); +return_closcall2(data, __glo_display_scheme_write, &c_731256, &c_731398);; +} + +static void __lambda_70(void *data, int argc, object self_731069, object r_73582) { + +closureN_type c_731258; +c_731258.hdr.mark = gc_color_red; + c_731258.hdr.grayed = 0; +c_731258.tag = closureN_tag; + c_731258.fn = (function_type)__lambda_69; +c_731258.num_args = 1; +c_731258.num_elt = 6; +c_731258.elts = (object *)alloca(sizeof(object) * 6); +c_731258.elts[0] = ((closureN)self_731069)->elts[0]; +c_731258.elts[1] = ((closureN)self_731069)->elts[1]; +c_731258.elts[2] = ((closureN)self_731069)->elts[2]; +c_731258.elts[3] = ((closureN)self_731069)->elts[3]; +c_731258.elts[4] = ((closureN)self_731069)->elts[4]; +c_731258.elts[5] = ((closureN)self_731069)->elts[5]; + +return_closcall2(data, __glo_display_scheme_write, &c_731258, ((closureN)self_731069)->elts[2]);; +} + +static void __lambda_69(void *data, int argc, object self_731070, object r_73583) { + +closureN_type c_731260; +c_731260.hdr.mark = gc_color_red; + c_731260.hdr.grayed = 0; +c_731260.tag = closureN_tag; + c_731260.fn = (function_type)__lambda_68; +c_731260.num_args = 1; +c_731260.num_elt = 6; +c_731260.elts = (object *)alloca(sizeof(object) * 6); +c_731260.elts[0] = ((closureN)self_731070)->elts[0]; +c_731260.elts[1] = ((closureN)self_731070)->elts[1]; +c_731260.elts[2] = ((closureN)self_731070)->elts[2]; +c_731260.elts[3] = ((closureN)self_731070)->elts[3]; +c_731260.elts[4] = ((closureN)self_731070)->elts[4]; +c_731260.elts[5] = ((closureN)self_731070)->elts[5]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731260);; +} + +static void __lambda_68(void *data, int argc, object self_731071, object r_73584) { + +closureN_type c_731262; +c_731262.hdr.mark = gc_color_red; + c_731262.hdr.grayed = 0; +c_731262.tag = closureN_tag; + c_731262.fn = (function_type)__lambda_67; +c_731262.num_args = 1; +c_731262.num_elt = 6; +c_731262.elts = (object *)alloca(sizeof(object) * 6); +c_731262.elts[0] = ((closureN)self_731071)->elts[0]; +c_731262.elts[1] = ((closureN)self_731071)->elts[1]; +c_731262.elts[2] = ((closureN)self_731071)->elts[2]; +c_731262.elts[3] = ((closureN)self_731071)->elts[3]; +c_731262.elts[4] = ((closureN)self_731071)->elts[4]; +c_731262.elts[5] = ((closureN)self_731071)->elts[5]; + +return_closcall1(data, __glo_flush_91output_91port_scheme_base, &c_731262);; +} + +static void __lambda_67(void *data, int argc, object self_731072, object r_73585) { + +closureN_type c_731264; +c_731264.hdr.mark = gc_color_red; + c_731264.hdr.grayed = 0; +c_731264.tag = closureN_tag; + c_731264.fn = (function_type)__lambda_66; +c_731264.num_args = 1; +c_731264.num_elt = 6; +c_731264.elts = (object *)alloca(sizeof(object) * 6); +c_731264.elts[0] = ((closureN)self_731072)->elts[0]; +c_731264.elts[1] = ((closureN)self_731072)->elts[1]; +c_731264.elts[2] = ((closureN)self_731072)->elts[2]; +c_731264.elts[3] = ((closureN)self_731072)->elts[3]; +c_731264.elts[4] = ((closureN)self_731072)->elts[4]; +c_731264.elts[5] = ((closureN)self_731072)->elts[5]; + +return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_731264);; +} + +static void __lambda_66(void *data, int argc, object self_731073, object j_95s_73239) { + +closureN_type c_731266; +c_731266.hdr.mark = gc_color_red; + c_731266.hdr.grayed = 0; +c_731266.tag = closureN_tag; + c_731266.fn = (function_type)__lambda_65; +c_731266.num_args = 1; +c_731266.num_elt = 7; +c_731266.elts = (object *)alloca(sizeof(object) * 7); +c_731266.elts[0] = ((closureN)self_731073)->elts[0]; +c_731266.elts[1] = j_95s_73239; +c_731266.elts[2] = ((closureN)self_731073)->elts[1]; +c_731266.elts[3] = ((closureN)self_731073)->elts[2]; +c_731266.elts[4] = ((closureN)self_731073)->elts[3]; +c_731266.elts[5] = ((closureN)self_731073)->elts[4]; +c_731266.elts[6] = ((closureN)self_731073)->elts[5]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_731266);; +} + +static void __lambda_65(void *data, int argc, object self_731074, object t0_73240) { + +closureN_type c_731268; +c_731268.hdr.mark = gc_color_red; + c_731268.hdr.grayed = 0; +c_731268.tag = closureN_tag; + c_731268.fn = (function_type)__lambda_64; +c_731268.num_args = 1; +c_731268.num_elt = 8; +c_731268.elts = (object *)alloca(sizeof(object) * 8); +c_731268.elts[0] = ((closureN)self_731074)->elts[0]; +c_731268.elts[1] = ((closureN)self_731074)->elts[1]; +c_731268.elts[2] = ((closureN)self_731074)->elts[2]; +c_731268.elts[3] = ((closureN)self_731074)->elts[3]; +c_731268.elts[4] = ((closureN)self_731074)->elts[4]; +c_731268.elts[5] = ((closureN)self_731074)->elts[5]; +c_731268.elts[6] = t0_73240; +c_731268.elts[7] = ((closureN)self_731074)->elts[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731268);; +} + +static void __lambda_64(void *data, int argc, object self_731075, object j0_73241) { + +closureN_type c_731270; +c_731270.hdr.mark = gc_color_red; + c_731270.hdr.grayed = 0; +c_731270.tag = closureN_tag; + c_731270.fn = (function_type)__lambda_63; +c_731270.num_args = 0; +c_731270.num_elt = 9; +c_731270.elts = (object *)alloca(sizeof(object) * 9); +c_731270.elts[0] = ((closureN)self_731075)->elts[0]; +c_731270.elts[1] = ((closureN)self_731075)->elts[1]; +c_731270.elts[2] = j0_73241; +c_731270.elts[3] = ((closureN)self_731075)->elts[2]; +c_731270.elts[4] = ((closureN)self_731075)->elts[3]; +c_731270.elts[5] = ((closureN)self_731075)->elts[4]; +c_731270.elts[6] = ((closureN)self_731075)->elts[5]; +c_731270.elts[7] = ((closureN)self_731075)->elts[6]; +c_731270.elts[8] = ((closureN)self_731075)->elts[7]; + +return_closcall0(data,(closure)&c_731270);; +} + +static void __lambda_63(void *data, int argc, object self_731076) { + closureN_type c_731274; +c_731274.hdr.mark = gc_color_red; + c_731274.hdr.grayed = 0; +c_731274.tag = closureN_tag; + c_731274.fn = (function_type)__lambda_62; +c_731274.num_args = 1; +c_731274.num_elt = 9; +c_731274.elts = (object *)alloca(sizeof(object) * 9); +c_731274.elts[0] = ((closureN)self_731076)->elts[0]; +c_731274.elts[1] = ((closureN)self_731076)->elts[1]; +c_731274.elts[2] = ((closureN)self_731076)->elts[2]; +c_731274.elts[3] = ((closureN)self_731076)->elts[3]; +c_731274.elts[4] = ((closureN)self_731076)->elts[4]; +c_731274.elts[5] = ((closureN)self_731076)->elts[5]; +c_731274.elts[6] = ((closureN)self_731076)->elts[6]; +c_731274.elts[7] = ((closureN)self_731076)->elts[7]; +c_731274.elts[8] = ((closureN)self_731076)->elts[8]; + +return_direct1(data,__lambda_30,&c_731274);; +} + +static void __lambda_62(void *data, int argc, object self_731077, object r_73589) { + +closureN_type c_731276; +c_731276.hdr.mark = gc_color_red; + c_731276.hdr.grayed = 0; +c_731276.tag = closureN_tag; + c_731276.fn = (function_type)__lambda_61; +c_731276.num_args = 2; +c_731276.num_elt = 9; +c_731276.elts = (object *)alloca(sizeof(object) * 9); +c_731276.elts[0] = ((closureN)self_731077)->elts[0]; +c_731276.elts[1] = ((closureN)self_731077)->elts[1]; +c_731276.elts[2] = ((closureN)self_731077)->elts[2]; +c_731276.elts[3] = ((closureN)self_731077)->elts[3]; +c_731276.elts[4] = ((closureN)self_731077)->elts[4]; +c_731276.elts[5] = ((closureN)self_731077)->elts[5]; +c_731276.elts[6] = ((closureN)self_731077)->elts[6]; +c_731276.elts[7] = ((closureN)self_731077)->elts[7]; +c_731276.elts[8] = ((closureN)self_731077)->elts[8]; + +return_closcall2(data,(closure)&c_731276, obj_int2obj(0), r_73589);; +} + +static void __lambda_61(void *data, int argc, object self_731078, object i_73243, object result_73242) { + +closureN_type c_731278; +c_731278.hdr.mark = gc_color_red; + c_731278.hdr.grayed = 0; +c_731278.tag = closureN_tag; + c_731278.fn = (function_type)__lambda_60; +c_731278.num_args = 1; +c_731278.num_elt = 11; +c_731278.elts = (object *)alloca(sizeof(object) * 11); +c_731278.elts[0] = ((closureN)self_731078)->elts[0]; +c_731278.elts[1] = i_73243; +c_731278.elts[2] = ((closureN)self_731078)->elts[1]; +c_731278.elts[3] = ((closureN)self_731078)->elts[2]; +c_731278.elts[4] = ((closureN)self_731078)->elts[3]; +c_731278.elts[5] = ((closureN)self_731078)->elts[4]; +c_731278.elts[6] = ((closureN)self_731078)->elts[5]; +c_731278.elts[7] = result_73242; +c_731278.elts[8] = ((closureN)self_731078)->elts[6]; +c_731278.elts[9] = ((closureN)self_731078)->elts[7]; +c_731278.elts[10] = ((closureN)self_731078)->elts[8]; + +return_closcall1(data,(closure)&c_731278, boolean_f);; +} + +static void __lambda_60(void *data, int argc, object self_731079, object loop_73244) { + +closureN_type c_731280; +c_731280.hdr.mark = gc_color_red; + c_731280.hdr.grayed = 0; +c_731280.tag = closureN_tag; + c_731280.fn = (function_type)__lambda_59; +c_731280.num_args = 1; +c_731280.num_elt = 11; +c_731280.elts = (object *)alloca(sizeof(object) * 11); +c_731280.elts[0] = ((closureN)self_731079)->elts[0]; +c_731280.elts[1] = ((closureN)self_731079)->elts[1]; +c_731280.elts[2] = ((closureN)self_731079)->elts[2]; +c_731280.elts[3] = ((closureN)self_731079)->elts[3]; +c_731280.elts[4] = ((closureN)self_731079)->elts[4]; +c_731280.elts[5] = ((closureN)self_731079)->elts[5]; +c_731280.elts[6] = ((closureN)self_731079)->elts[6]; +c_731280.elts[7] = ((closureN)self_731079)->elts[7]; +c_731280.elts[8] = ((closureN)self_731079)->elts[8]; +c_731280.elts[9] = ((closureN)self_731079)->elts[9]; +c_731280.elts[10] = ((closureN)self_731079)->elts[10]; + + +make_cell(c_731396,loop_73244); +return_closcall1(data,(closure)&c_731280, &c_731396);; +} + +static void __lambda_59(void *data, int argc, object self_731080, object loop_73244) { + +closureN_type c_731282; +c_731282.hdr.mark = gc_color_red; + c_731282.hdr.grayed = 0; +c_731282.tag = closureN_tag; + c_731282.fn = (function_type)__lambda_32; +c_731282.num_args = 1; +c_731282.num_elt = 4; +c_731282.elts = (object *)alloca(sizeof(object) * 4); +c_731282.elts[0] = ((closureN)self_731080)->elts[1]; +c_731282.elts[1] = ((closureN)self_731080)->elts[4]; +c_731282.elts[2] = loop_73244; +c_731282.elts[3] = ((closureN)self_731080)->elts[7]; + + +closureN_type c_731295; +c_731295.hdr.mark = gc_color_red; + c_731295.hdr.grayed = 0; +c_731295.tag = closureN_tag; + c_731295.fn = (function_type)__lambda_58; +c_731295.num_args = 2; +c_731295.num_elt = 9; +c_731295.elts = (object *)alloca(sizeof(object) * 9); +c_731295.elts[0] = ((closureN)self_731080)->elts[0]; +c_731295.elts[1] = ((closureN)self_731080)->elts[2]; +c_731295.elts[2] = ((closureN)self_731080)->elts[3]; +c_731295.elts[3] = loop_73244; +c_731295.elts[4] = ((closureN)self_731080)->elts[5]; +c_731295.elts[5] = ((closureN)self_731080)->elts[6]; +c_731295.elts[6] = ((closureN)self_731080)->elts[8]; +c_731295.elts[7] = ((closureN)self_731080)->elts[9]; +c_731295.elts[8] = ((closureN)self_731080)->elts[10]; + +return_closcall1(data,(closure)&c_731282, &c_731295);; +} + +static void __lambda_58(void *data, int argc, object self_731081, object k_73592, object i_73246, object result_73245) { + +closureN_type c_731297; +c_731297.hdr.mark = gc_color_red; + c_731297.hdr.grayed = 0; +c_731297.tag = closureN_tag; + c_731297.fn = (function_type)__lambda_57; +c_731297.num_args = 1; +c_731297.num_elt = 11; +c_731297.elts = (object *)alloca(sizeof(object) * 11); +c_731297.elts[0] = i_73246; +c_731297.elts[1] = ((closureN)self_731081)->elts[1]; +c_731297.elts[2] = ((closureN)self_731081)->elts[2]; +c_731297.elts[3] = k_73592; +c_731297.elts[4] = ((closureN)self_731081)->elts[3]; +c_731297.elts[5] = ((closureN)self_731081)->elts[4]; +c_731297.elts[6] = ((closureN)self_731081)->elts[5]; +c_731297.elts[7] = result_73245; +c_731297.elts[8] = ((closureN)self_731081)->elts[6]; +c_731297.elts[9] = ((closureN)self_731081)->elts[7]; +c_731297.elts[10] = ((closureN)self_731081)->elts[8]; + + +object c_731392 = Cyc_num_lt(data,(closure)&c_731297,2,i_73246, ((closureN)self_731081)->elts[0]); +return_closcall1(data,(closure)&c_731297, c_731392);; +} + +static void __lambda_57(void *data, int argc, object self_731082, object r_73593) { + if( !eq(boolean_f, r_73593) ){ + +closureN_type c_731299; +c_731299.hdr.mark = gc_color_red; + c_731299.hdr.grayed = 0; +c_731299.tag = closureN_tag; + c_731299.fn = (function_type)__lambda_35; +c_731299.num_args = 0; +c_731299.num_elt = 4; +c_731299.elts = (object *)alloca(sizeof(object) * 4); +c_731299.elts[0] = ((closureN)self_731082)->elts[0]; +c_731299.elts[1] = ((closureN)self_731082)->elts[3]; +c_731299.elts[2] = ((closureN)self_731082)->elts[4]; +c_731299.elts[3] = ((closureN)self_731082)->elts[10]; + +return_closcall0(data,(closure)&c_731299); +} else { + +closureN_type c_731317; +c_731317.hdr.mark = gc_color_red; + c_731317.hdr.grayed = 0; +c_731317.tag = closureN_tag; + c_731317.fn = (function_type)__lambda_56; +c_731317.num_args = 1; +c_731317.num_elt = 7; +c_731317.elts = (object *)alloca(sizeof(object) * 7); +c_731317.elts[0] = ((closureN)self_731082)->elts[1]; +c_731317.elts[1] = ((closureN)self_731082)->elts[2]; +c_731317.elts[2] = ((closureN)self_731082)->elts[3]; +c_731317.elts[3] = ((closureN)self_731082)->elts[5]; +c_731317.elts[4] = ((closureN)self_731082)->elts[7]; +c_731317.elts[5] = ((closureN)self_731082)->elts[8]; +c_731317.elts[6] = ((closureN)self_731082)->elts[9]; + +return_closcall2(data, ((closureN)self_731082)->elts[6], &c_731317, ((closureN)self_731082)->elts[7]);} +; +} + +static void __lambda_56(void *data, int argc, object self_731083, object r_73596) { + if( !eq(boolean_f, r_73596) ){ + +closureN_type c_731319; +c_731319.hdr.mark = gc_color_red; + c_731319.hdr.grayed = 0; +c_731319.tag = closureN_tag; + c_731319.fn = (function_type)__lambda_51; +c_731319.num_args = 0; +c_731319.num_elt = 7; +c_731319.elts = (object *)alloca(sizeof(object) * 7); +c_731319.elts[0] = ((closureN)self_731083)->elts[0]; +c_731319.elts[1] = ((closureN)self_731083)->elts[1]; +c_731319.elts[2] = ((closureN)self_731083)->elts[2]; +c_731319.elts[3] = ((closureN)self_731083)->elts[3]; +c_731319.elts[4] = ((closureN)self_731083)->elts[4]; +c_731319.elts[5] = ((closureN)self_731083)->elts[5]; +c_731319.elts[6] = ((closureN)self_731083)->elts[6]; + +return_closcall0(data,(closure)&c_731319); +} else { + +closureN_type c_731377; +c_731377.hdr.mark = gc_color_red; + c_731377.hdr.grayed = 0; +c_731377.tag = closureN_tag; + c_731377.fn = (function_type)__lambda_55; +c_731377.num_args = 0; +c_731377.num_elt = 2; +c_731377.elts = (object *)alloca(sizeof(object) * 2); +c_731377.elts[0] = ((closureN)self_731083)->elts[2]; +c_731377.elts[1] = ((closureN)self_731083)->elts[4]; + +return_closcall0(data,(closure)&c_731377);} +; +} + +static void __lambda_55(void *data, int argc, object self_731084) { + +closureN_type c_731379; +c_731379.hdr.mark = gc_color_red; + c_731379.hdr.grayed = 0; +c_731379.tag = closureN_tag; + c_731379.fn = (function_type)__lambda_54; +c_731379.num_args = 1; +c_731379.num_elt = 2; +c_731379.elts = (object *)alloca(sizeof(object) * 2); +c_731379.elts[0] = ((closureN)self_731084)->elts[0]; +c_731379.elts[1] = ((closureN)self_731084)->elts[1]; + + +make_string(c_731388, "ERROR: returned incorrect result: "); +return_closcall2(data, __glo_display_scheme_write, &c_731379, &c_731388);; +} + +static void __lambda_54(void *data, int argc, object self_731085, object r_73611) { + +closureN_type c_731381; +c_731381.hdr.mark = gc_color_red; + c_731381.hdr.grayed = 0; +c_731381.tag = closureN_tag; + c_731381.fn = (function_type)__lambda_53; +c_731381.num_args = 1; +c_731381.num_elt = 2; +c_731381.elts = (object *)alloca(sizeof(object) * 2); +c_731381.elts[0] = ((closureN)self_731085)->elts[0]; +c_731381.elts[1] = ((closureN)self_731085)->elts[1]; + +return_closcall2(data, __glo_write_scheme_write, &c_731381, ((closureN)self_731085)->elts[1]);; +} + +static void __lambda_53(void *data, int argc, object self_731086, object r_73612) { + +closureN_type c_731383; +c_731383.hdr.mark = gc_color_red; + c_731383.hdr.grayed = 0; +c_731383.tag = closureN_tag; + c_731383.fn = (function_type)__lambda_52; +c_731383.num_args = 1; +c_731383.num_elt = 2; +c_731383.elts = (object *)alloca(sizeof(object) * 2); +c_731383.elts[0] = ((closureN)self_731086)->elts[0]; +c_731383.elts[1] = ((closureN)self_731086)->elts[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731383);; +} + +static void __lambda_52(void *data, int argc, object self_731087, object r_73613) { + return_closcall1(data, ((closureN)self_731087)->elts[0], ((closureN)self_731087)->elts[1]);; +} + +static void __lambda_51(void *data, int argc, object self_731088) { + +closureN_type c_731321; +c_731321.hdr.mark = gc_color_red; + c_731321.hdr.grayed = 0; +c_731321.tag = closureN_tag; + c_731321.fn = (function_type)__lambda_50; +c_731321.num_args = 1; +c_731321.num_elt = 7; +c_731321.elts = (object *)alloca(sizeof(object) * 7); +c_731321.elts[0] = ((closureN)self_731088)->elts[0]; +c_731321.elts[1] = ((closureN)self_731088)->elts[1]; +c_731321.elts[2] = ((closureN)self_731088)->elts[2]; +c_731321.elts[3] = ((closureN)self_731088)->elts[3]; +c_731321.elts[4] = ((closureN)self_731088)->elts[4]; +c_731321.elts[5] = ((closureN)self_731088)->elts[5]; +c_731321.elts[6] = ((closureN)self_731088)->elts[6]; + +return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_731321);; +} + +static void __lambda_50(void *data, int argc, object self_731089, object j1_73247) { + +closureN_type c_731323; +c_731323.hdr.mark = gc_color_red; + c_731323.hdr.grayed = 0; +c_731323.tag = closureN_tag; + c_731323.fn = (function_type)__lambda_49; +c_731323.num_args = 1; +c_731323.num_elt = 8; +c_731323.elts = (object *)alloca(sizeof(object) * 8); +c_731323.elts[0] = ((closureN)self_731089)->elts[0]; +c_731323.elts[1] = ((closureN)self_731089)->elts[1]; +c_731323.elts[2] = j1_73247; +c_731323.elts[3] = ((closureN)self_731089)->elts[2]; +c_731323.elts[4] = ((closureN)self_731089)->elts[3]; +c_731323.elts[5] = ((closureN)self_731089)->elts[4]; +c_731323.elts[6] = ((closureN)self_731089)->elts[5]; +c_731323.elts[7] = ((closureN)self_731089)->elts[6]; + +return_closcall1(data, __glo_current_91second_scheme_time, &c_731323);; +} + +static void __lambda_49(void *data, int argc, object self_731090, object t1_73248) { + +closureN_type c_731325; +c_731325.hdr.mark = gc_color_red; + c_731325.hdr.grayed = 0; +c_731325.tag = closureN_tag; + c_731325.fn = (function_type)__lambda_48; +c_731325.num_args = 1; +c_731325.num_elt = 7; +c_731325.elts = (object *)alloca(sizeof(object) * 7); +c_731325.elts[0] = ((closureN)self_731090)->elts[0]; +c_731325.elts[1] = ((closureN)self_731090)->elts[3]; +c_731325.elts[2] = ((closureN)self_731090)->elts[4]; +c_731325.elts[3] = ((closureN)self_731090)->elts[5]; +c_731325.elts[4] = ((closureN)self_731090)->elts[6]; +c_731325.elts[5] = ((closureN)self_731090)->elts[7]; +c_731325.elts[6] = t1_73248; + + +object c_731373 = Cyc_sub(data,(closure)&c_731325,2,((closureN)self_731090)->elts[2], ((closureN)self_731090)->elts[1]); +return_closcall1(data,(closure)&c_731325, c_731373);; +} + +static void __lambda_48(void *data, int argc, object self_731091, object jifs_73249) { + +closureN_type c_731327; +c_731327.hdr.mark = gc_color_red; + c_731327.hdr.grayed = 0; +c_731327.tag = closureN_tag; + c_731327.fn = (function_type)__lambda_47; +c_731327.num_args = 1; +c_731327.num_elt = 6; +c_731327.elts = (object *)alloca(sizeof(object) * 6); +c_731327.elts[0] = ((closureN)self_731091)->elts[1]; +c_731327.elts[1] = ((closureN)self_731091)->elts[2]; +c_731327.elts[2] = ((closureN)self_731091)->elts[3]; +c_731327.elts[3] = ((closureN)self_731091)->elts[4]; +c_731327.elts[4] = ((closureN)self_731091)->elts[5]; +c_731327.elts[5] = ((closureN)self_731091)->elts[6]; + + +object c_731369 = Cyc_div(data,(closure)&c_731327,2,jifs_73249, ((closureN)self_731091)->elts[0]); +return_closcall1(data,(closure)&c_731327, c_731369);; +} + +static void __lambda_47(void *data, int argc, object self_731092, object r_73610) { + +closureN_type c_731329; +c_731329.hdr.mark = gc_color_red; + c_731329.hdr.grayed = 0; +c_731329.tag = closureN_tag; + c_731329.fn = (function_type)__lambda_46; +c_731329.num_args = 1; +c_731329.num_elt = 6; +c_731329.elts = (object *)alloca(sizeof(object) * 6); +c_731329.elts[0] = ((closureN)self_731092)->elts[0]; +c_731329.elts[1] = ((closureN)self_731092)->elts[1]; +c_731329.elts[2] = ((closureN)self_731092)->elts[2]; +c_731329.elts[3] = ((closureN)self_731092)->elts[3]; +c_731329.elts[4] = ((closureN)self_731092)->elts[4]; +c_731329.elts[5] = ((closureN)self_731092)->elts[5]; + +return_closcall2(data, __glo_inexact_scheme_base, &c_731329, r_73610);; +} + +static void __lambda_46(void *data, int argc, object self_731093, object secs_73250) { + +closureN_type c_731331; +c_731331.hdr.mark = gc_color_red; + c_731331.hdr.grayed = 0; +c_731331.tag = closureN_tag; + c_731331.fn = (function_type)__lambda_45; +c_731331.num_args = 1; +c_731331.num_elt = 5; +c_731331.elts = (object *)alloca(sizeof(object) * 5); +c_731331.elts[0] = ((closureN)self_731093)->elts[0]; +c_731331.elts[1] = ((closureN)self_731093)->elts[1]; +c_731331.elts[2] = ((closureN)self_731093)->elts[2]; +c_731331.elts[3] = ((closureN)self_731093)->elts[3]; +c_731331.elts[4] = secs_73250; + + +object c_731364 = Cyc_sub(data,(closure)&c_731331,2,((closureN)self_731093)->elts[5], ((closureN)self_731093)->elts[4]); +return_closcall1(data,(closure)&c_731331, c_731364);; +} + +static void __lambda_45(void *data, int argc, object self_731094, object r_73609) { + +closureN_type c_731336; +c_731336.hdr.mark = gc_color_red; + c_731336.hdr.grayed = 0; +c_731336.tag = closureN_tag; + c_731336.fn = (function_type)__lambda_44; +c_731336.num_args = 1; +c_731336.num_elt = 4; +c_731336.elts = (object *)alloca(sizeof(object) * 4); +c_731336.elts[0] = ((closureN)self_731094)->elts[0]; +c_731336.elts[1] = ((closureN)self_731094)->elts[1]; +c_731336.elts[2] = ((closureN)self_731094)->elts[2]; +c_731336.elts[3] = ((closureN)self_731094)->elts[4]; + +return_closcall2(data, cell_get(((closureN)self_731094)->elts[3]), &c_731336, r_73609);; +} + +static void __lambda_44(void *data, int argc, object self_731095, object secs2_73251) { + +closureN_type c_731338; +c_731338.hdr.mark = gc_color_red; + c_731338.hdr.grayed = 0; +c_731338.tag = closureN_tag; + c_731338.fn = (function_type)__lambda_43; +c_731338.num_args = 0; +c_731338.num_elt = 5; +c_731338.elts = (object *)alloca(sizeof(object) * 5); +c_731338.elts[0] = ((closureN)self_731095)->elts[0]; +c_731338.elts[1] = ((closureN)self_731095)->elts[1]; +c_731338.elts[2] = ((closureN)self_731095)->elts[2]; +c_731338.elts[3] = ((closureN)self_731095)->elts[3]; +c_731338.elts[4] = secs2_73251; + +return_closcall0(data,(closure)&c_731338);; +} + +static void __lambda_43(void *data, int argc, object self_731096) { + +closureN_type c_731340; +c_731340.hdr.mark = gc_color_red; + c_731340.hdr.grayed = 0; +c_731340.tag = closureN_tag; + c_731340.fn = (function_type)__lambda_42; +c_731340.num_args = 1; +c_731340.num_elt = 5; +c_731340.elts = (object *)alloca(sizeof(object) * 5); +c_731340.elts[0] = ((closureN)self_731096)->elts[0]; +c_731340.elts[1] = ((closureN)self_731096)->elts[1]; +c_731340.elts[2] = ((closureN)self_731096)->elts[2]; +c_731340.elts[3] = ((closureN)self_731096)->elts[3]; +c_731340.elts[4] = ((closureN)self_731096)->elts[4]; + + +make_string(c_731361, "Elapsed time: "); +return_closcall2(data, __glo_display_scheme_write, &c_731340, &c_731361);; +} + +static void __lambda_42(void *data, int argc, object self_731097, object r_73603) { + +closureN_type c_731342; +c_731342.hdr.mark = gc_color_red; + c_731342.hdr.grayed = 0; +c_731342.tag = closureN_tag; + c_731342.fn = (function_type)__lambda_41; +c_731342.num_args = 1; +c_731342.num_elt = 4; +c_731342.elts = (object *)alloca(sizeof(object) * 4); +c_731342.elts[0] = ((closureN)self_731097)->elts[0]; +c_731342.elts[1] = ((closureN)self_731097)->elts[1]; +c_731342.elts[2] = ((closureN)self_731097)->elts[2]; +c_731342.elts[3] = ((closureN)self_731097)->elts[4]; + +return_closcall2(data, __glo_write_scheme_write, &c_731342, ((closureN)self_731097)->elts[3]);; +} + +static void __lambda_41(void *data, int argc, object self_731098, object r_73604) { + +closureN_type c_731344; +c_731344.hdr.mark = gc_color_red; + c_731344.hdr.grayed = 0; +c_731344.tag = closureN_tag; + c_731344.fn = (function_type)__lambda_40; +c_731344.num_args = 1; +c_731344.num_elt = 4; +c_731344.elts = (object *)alloca(sizeof(object) * 4); +c_731344.elts[0] = ((closureN)self_731098)->elts[0]; +c_731344.elts[1] = ((closureN)self_731098)->elts[1]; +c_731344.elts[2] = ((closureN)self_731098)->elts[2]; +c_731344.elts[3] = ((closureN)self_731098)->elts[3]; + + +make_string(c_731359, " seconds ("); +return_closcall2(data, __glo_display_scheme_write, &c_731344, &c_731359);; +} + +static void __lambda_40(void *data, int argc, object self_731099, object r_73605) { + +closureN_type c_731346; +c_731346.hdr.mark = gc_color_red; + c_731346.hdr.grayed = 0; +c_731346.tag = closureN_tag; + c_731346.fn = (function_type)__lambda_39; +c_731346.num_args = 1; +c_731346.num_elt = 3; +c_731346.elts = (object *)alloca(sizeof(object) * 3); +c_731346.elts[0] = ((closureN)self_731099)->elts[0]; +c_731346.elts[1] = ((closureN)self_731099)->elts[1]; +c_731346.elts[2] = ((closureN)self_731099)->elts[2]; + +return_closcall2(data, __glo_write_scheme_write, &c_731346, ((closureN)self_731099)->elts[3]);; +} + +static void __lambda_39(void *data, int argc, object self_731100, object r_73606) { + +closureN_type c_731348; +c_731348.hdr.mark = gc_color_red; + c_731348.hdr.grayed = 0; +c_731348.tag = closureN_tag; + c_731348.fn = (function_type)__lambda_38; +c_731348.num_args = 1; +c_731348.num_elt = 3; +c_731348.elts = (object *)alloca(sizeof(object) * 3); +c_731348.elts[0] = ((closureN)self_731100)->elts[0]; +c_731348.elts[1] = ((closureN)self_731100)->elts[1]; +c_731348.elts[2] = ((closureN)self_731100)->elts[2]; + + +make_string(c_731357, ") for "); +return_closcall2(data, __glo_display_scheme_write, &c_731348, &c_731357);; +} + +static void __lambda_38(void *data, int argc, object self_731101, object r_73607) { + +closureN_type c_731350; +c_731350.hdr.mark = gc_color_red; + c_731350.hdr.grayed = 0; +c_731350.tag = closureN_tag; + c_731350.fn = (function_type)__lambda_37; +c_731350.num_args = 1; +c_731350.num_elt = 2; +c_731350.elts = (object *)alloca(sizeof(object) * 2); +c_731350.elts[0] = ((closureN)self_731101)->elts[0]; +c_731350.elts[1] = ((closureN)self_731101)->elts[2]; + +return_closcall2(data, __glo_display_scheme_write, &c_731350, ((closureN)self_731101)->elts[1]);; +} + +static void __lambda_37(void *data, int argc, object self_731102, object r_73608) { + +closureN_type c_731352; +c_731352.hdr.mark = gc_color_red; + c_731352.hdr.grayed = 0; +c_731352.tag = closureN_tag; + c_731352.fn = (function_type)__lambda_36; +c_731352.num_args = 1; +c_731352.num_elt = 2; +c_731352.elts = (object *)alloca(sizeof(object) * 2); +c_731352.elts[0] = ((closureN)self_731102)->elts[0]; +c_731352.elts[1] = ((closureN)self_731102)->elts[1]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731352);; +} + +static void __lambda_36(void *data, int argc, object self_731103, object r_73597) { + return_closcall1(data, ((closureN)self_731103)->elts[0], ((closureN)self_731103)->elts[1]);; +} + +static void __lambda_35(void *data, int argc, object self_731104) { + +closureN_type c_731301; +c_731301.hdr.mark = gc_color_red; + c_731301.hdr.grayed = 0; +c_731301.tag = closureN_tag; + c_731301.fn = (function_type)__lambda_34; +c_731301.num_args = 1; +c_731301.num_elt = 3; +c_731301.elts = (object *)alloca(sizeof(object) * 3); +c_731301.elts[0] = ((closureN)self_731104)->elts[1]; +c_731301.elts[1] = ((closureN)self_731104)->elts[2]; +c_731301.elts[2] = ((closureN)self_731104)->elts[3]; + + +object c_731313 = Cyc_sum(data,(closure)&c_731301,2,((closureN)self_731104)->elts[0], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731301, c_731313);; +} + +static void __lambda_34(void *data, int argc, object self_731105, object r_73594) { + +closureN_type c_731304; +c_731304.hdr.mark = gc_color_red; + c_731304.hdr.grayed = 0; +c_731304.tag = closureN_tag; + c_731304.fn = (function_type)__lambda_33; +c_731304.num_args = 1; +c_731304.num_elt = 3; +c_731304.elts = (object *)alloca(sizeof(object) * 3); +c_731304.elts[0] = ((closureN)self_731105)->elts[0]; +c_731304.elts[1] = ((closureN)self_731105)->elts[1]; +c_731304.elts[2] = r_73594; + +return_closcall1(data, ((closureN)self_731105)->elts[2], &c_731304);; +} + +static void __lambda_33(void *data, int argc, object self_731106, object r_73595) { + return_closcall3(data, cell_get(((closureN)self_731106)->elts[1]), ((closureN)self_731106)->elts[0], ((closureN)self_731106)->elts[2], r_73595);; +} + +static void __lambda_32(void *data, int argc, object self_731107, object r_73591) { + +closureN_type c_731284; +c_731284.hdr.mark = gc_color_red; + c_731284.hdr.grayed = 0; +c_731284.tag = closureN_tag; + c_731284.fn = (function_type)__lambda_31; +c_731284.num_args = 1; +c_731284.num_elt = 4; +c_731284.elts = (object *)alloca(sizeof(object) * 4); +c_731284.elts[0] = ((closureN)self_731107)->elts[0]; +c_731284.elts[1] = ((closureN)self_731107)->elts[1]; +c_731284.elts[2] = ((closureN)self_731107)->elts[2]; +c_731284.elts[3] = ((closureN)self_731107)->elts[3]; + +return_closcall1(data,(closure)&c_731284, Cyc_set_car(data, ((closureN)self_731107)->elts[2], r_73591));; +} + +static void __lambda_31(void *data, int argc, object self_731108, object r_73590) { + return_closcall3(data, cell_get(((closureN)self_731108)->elts[2]), ((closureN)self_731108)->elts[1], ((closureN)self_731108)->elts[0], ((closureN)self_731108)->elts[3]);; +} + +static void __lambda_30(void *data, int argc, closure _,object k_73614) { + Cyc_st_add(data, "sboyer.scm:run-r7rs-benchmark"); +if( !eq(boolean_f, boolean_f) ){ + return_closcall1(data, k_73614, boolean_f); +} else { + return_closcall1(data, k_73614, boolean_f);} +; +} + +static void __lambda_29(void *data, int argc, closure _,object k_73621, object r_73254, object x_73253) { + Cyc_st_add(data, "sboyer.scm:hide"); + +closureN_type c_731207; +c_731207.hdr.mark = gc_color_red; + c_731207.hdr.grayed = 0; +c_731207.tag = closureN_tag; + c_731207.fn = (function_type)__lambda_21; +c_731207.num_args = 1; +c_731207.num_elt = 2; +c_731207.elts = (object *)alloca(sizeof(object) * 2); +c_731207.elts[0] = k_73621; +c_731207.elts[1] = x_73253; + + +closureN_type c_731221; +c_731221.hdr.mark = gc_color_red; + c_731221.hdr.grayed = 0; +c_731221.tag = closureN_tag; + c_731221.fn = (function_type)__lambda_28; +c_731221.num_args = 0; +c_731221.num_elt = 1; +c_731221.elts = (object *)alloca(sizeof(object) * 1); +c_731221.elts[0] = r_73254; + +return_closcall1(data,(closure)&c_731207, &c_731221);; +} + +static void __lambda_28(void *data, int argc, object self_731109, object k_73626) { + +closureN_type c_731223; +c_731223.hdr.mark = gc_color_red; + c_731223.hdr.grayed = 0; +c_731223.tag = closureN_tag; + c_731223.fn = (function_type)__lambda_26; +c_731223.num_args = 1; +c_731223.num_elt = 2; +c_731223.elts = (object *)alloca(sizeof(object) * 2); +c_731223.elts[0] = k_73626; +c_731223.elts[1] = ((closureN)self_731109)->elts[0]; + + +mclosure0(c_731242, (function_type)__lambda_27);c_731242.num_args = 1; +return_closcall1(data,(closure)&c_731223, &c_731242);; +} + +static void __lambda_27(void *data, int argc, object self_731110, object k_73632, object x_73257) { + return_closcall1(data, k_73632, x_73257);; +} + +static void __lambda_26(void *data, int argc, object self_731111, object r_73631) { + +closureN_type c_731225; +c_731225.hdr.mark = gc_color_red; + c_731225.hdr.grayed = 0; +c_731225.tag = closureN_tag; + c_731225.fn = (function_type)__lambda_25; +c_731225.num_args = 1; +c_731225.num_elt = 2; +c_731225.elts = (object *)alloca(sizeof(object) * 2); +c_731225.elts[0] = ((closureN)self_731111)->elts[0]; +c_731225.elts[1] = ((closureN)self_731111)->elts[1]; + +return_closcall3(data, __glo_vector_scheme_base, &c_731225, __glo_values_scheme_base, r_73631);; +} + +static void __lambda_25(void *data, int argc, object self_731112, object r_73627) { + +closureN_type c_731227; +c_731227.hdr.mark = gc_color_red; + c_731227.hdr.grayed = 0; +c_731227.tag = closureN_tag; + c_731227.fn = (function_type)__lambda_23; +c_731227.num_args = 0; +c_731227.num_elt = 1; +c_731227.elts = (object *)alloca(sizeof(object) * 1); +c_731227.elts[0] = ((closureN)self_731112)->elts[1]; + + +closureN_type c_731238; +c_731238.hdr.mark = gc_color_red; + c_731238.hdr.grayed = 0; +c_731238.tag = closureN_tag; + c_731238.fn = (function_type)__lambda_24; +c_731238.num_args = 1; +c_731238.num_elt = 2; +c_731238.elts = (object *)alloca(sizeof(object) * 2); +c_731238.elts[0] = ((closureN)self_731112)->elts[0]; +c_731238.elts[1] = r_73627; + +return_closcall1(data,(closure)&c_731227, &c_731238);; +} + +static void __lambda_24(void *data, int argc, object self_731113, object r_73628) { + return_closcall3(data, __glo_values_scheme_base, ((closureN)self_731113)->elts[0], ((closureN)self_731113)->elts[1], r_73628);; +} + +static void __lambda_23(void *data, int argc, object self_731114, object k_73629) { + +closureN_type c_731229; +c_731229.hdr.mark = gc_color_red; + c_731229.hdr.grayed = 0; +c_731229.tag = closureN_tag; + c_731229.fn = (function_type)__lambda_22; +c_731229.num_args = 1; +c_731229.num_elt = 1; +c_731229.elts = (object *)alloca(sizeof(object) * 1); +c_731229.elts[0] = k_73629; + + +object c_731236 = Cyc_num_lt(data,(closure)&c_731229,2,((closureN)self_731114)->elts[0], obj_int2obj(100)); +return_closcall1(data,(closure)&c_731229, c_731236);; +} + +static void __lambda_22(void *data, int argc, object self_731115, object r_73630) { + if( !eq(boolean_f, r_73630) ){ + return_closcall1(data, ((closureN)self_731115)->elts[0], obj_int2obj(0)); +} else { + return_closcall1(data, ((closureN)self_731115)->elts[0], obj_int2obj(1));} +; +} + +static void __lambda_21(void *data, int argc, object self_731116, object r_73622) { + +closureN_type c_731209; +c_731209.hdr.mark = gc_color_red; + c_731209.hdr.grayed = 0; +c_731209.tag = closureN_tag; + c_731209.fn = (function_type)__lambda_18; +c_731209.num_args = 1; +c_731209.num_elt = 2; +c_731209.elts = (object *)alloca(sizeof(object) * 2); +c_731209.elts[0] = ((closureN)self_731116)->elts[0]; +c_731209.elts[1] = r_73622; + + +closureN_type c_731213; +c_731213.hdr.mark = gc_color_red; + c_731213.hdr.grayed = 0; +c_731213.tag = closureN_tag; + c_731213.fn = (function_type)__lambda_20; +c_731213.num_args = 2; +c_731213.num_elt = 1; +c_731213.elts = (object *)alloca(sizeof(object) * 1); +c_731213.elts[0] = ((closureN)self_731116)->elts[1]; + +return_closcall1(data,(closure)&c_731209, &c_731213);; +} + +static void __lambda_20(void *data, int argc, object self_731117, object k_73624, object v_73256, object i_73255) { + +closureN_type c_731215; +c_731215.hdr.mark = gc_color_red; + c_731215.hdr.grayed = 0; +c_731215.tag = closureN_tag; + c_731215.fn = (function_type)__lambda_19; +c_731215.num_args = 1; +c_731215.num_elt = 2; +c_731215.elts = (object *)alloca(sizeof(object) * 2); +c_731215.elts[0] = k_73624; +c_731215.elts[1] = ((closureN)self_731117)->elts[0]; + +return_closcall1(data,(closure)&c_731215, Cyc_vector_ref(data, v_73256, i_73255));; +} + +static void __lambda_19(void *data, int argc, object self_731118, object r_73625) { + return_closcall2(data, r_73625, ((closureN)self_731118)->elts[0], ((closureN)self_731118)->elts[1]);; +} + +static void __lambda_18(void *data, int argc, object self_731119, object r_73623) { + return_closcall3(data, __glo_call_91with_91values_scheme_base, ((closureN)self_731119)->elts[0], ((closureN)self_731119)->elts[1], r_73623);; +} + +static void __lambda_17(void *data, int argc, closure _,object k_73635) { + Cyc_st_add(data, "sboyer.scm:test-boyer"); +return_closcall1(data, k_73635, boolean_t);; +} + +static void __lambda_16(void *data, int argc, closure _,object k_73638) { + Cyc_st_add(data, "sboyer.scm:setup-boyer"); +return_closcall1(data, k_73638, boolean_t);; +} + +static void __lambda_15(void *data, int argc, closure _,object k_73645) { + Cyc_st_add(data, "sboyer.scm:main"); + +closureN_type c_731137; +c_731137.hdr.mark = gc_color_red; + c_731137.hdr.grayed = 0; +c_731137.tag = closureN_tag; + c_731137.fn = (function_type)__lambda_14; +c_731137.num_args = 1; +c_731137.num_elt = 1; +c_731137.elts = (object *)alloca(sizeof(object) * 1); +c_731137.elts[0] = k_73645; + +return_closcall1(data, __glo_read_scheme_read, &c_731137);; +} + +static void __lambda_14(void *data, int argc, object self_731120, object count_73258) { + +closureN_type c_731139; +c_731139.hdr.mark = gc_color_red; + c_731139.hdr.grayed = 0; +c_731139.tag = closureN_tag; + c_731139.fn = (function_type)__lambda_13; +c_731139.num_args = 1; +c_731139.num_elt = 2; +c_731139.elts = (object *)alloca(sizeof(object) * 2); +c_731139.elts[0] = count_73258; +c_731139.elts[1] = ((closureN)self_731120)->elts[0]; + +return_closcall1(data, __glo_read_scheme_read, &c_731139);; +} + +static void __lambda_13(void *data, int argc, object self_731121, object input_73259) { + +closureN_type c_731141; +c_731141.hdr.mark = gc_color_red; + c_731141.hdr.grayed = 0; +c_731141.tag = closureN_tag; + c_731141.fn = (function_type)__lambda_12; +c_731141.num_args = 1; +c_731141.num_elt = 3; +c_731141.elts = (object *)alloca(sizeof(object) * 3); +c_731141.elts[0] = ((closureN)self_731121)->elts[0]; +c_731141.elts[1] = input_73259; +c_731141.elts[2] = ((closureN)self_731121)->elts[1]; + +return_closcall1(data, __glo_read_scheme_read, &c_731141);; +} + +static void __lambda_12(void *data, int argc, object self_731122, object output_73260) { + +closureN_type c_731143; +c_731143.hdr.mark = gc_color_red; + c_731143.hdr.grayed = 0; +c_731143.tag = closureN_tag; + c_731143.fn = (function_type)__lambda_11; +c_731143.num_args = 1; +c_731143.num_elt = 4; +c_731143.elts = (object *)alloca(sizeof(object) * 4); +c_731143.elts[0] = ((closureN)self_731122)->elts[0]; +c_731143.elts[1] = ((closureN)self_731122)->elts[1]; +c_731143.elts[2] = ((closureN)self_731122)->elts[2]; +c_731143.elts[3] = output_73260; + + +object c_731199 = Cyc_number2string2(data,(closure)&c_731143,1,((closureN)self_731122)->elts[0]); +return_closcall1(data,(closure)&c_731143, c_731199);; +} + +static void __lambda_11(void *data, int argc, object self_731123, object s2_73261) { + +closureN_type c_731145; +c_731145.hdr.mark = gc_color_red; + c_731145.hdr.grayed = 0; +c_731145.tag = closureN_tag; + c_731145.fn = (function_type)__lambda_10; +c_731145.num_args = 1; +c_731145.num_elt = 5; +c_731145.elts = (object *)alloca(sizeof(object) * 5); +c_731145.elts[0] = ((closureN)self_731123)->elts[0]; +c_731145.elts[1] = ((closureN)self_731123)->elts[1]; +c_731145.elts[2] = ((closureN)self_731123)->elts[2]; +c_731145.elts[3] = ((closureN)self_731123)->elts[3]; +c_731145.elts[4] = s2_73261; + + +object c_731195 = Cyc_number2string2(data,(closure)&c_731145,1,((closureN)self_731123)->elts[1]); +return_closcall1(data,(closure)&c_731145, c_731195);; +} + +static void __lambda_10(void *data, int argc, object self_731124, object s1_73262) { + +closureN_type c_731147; +c_731147.hdr.mark = gc_color_red; + c_731147.hdr.grayed = 0; +c_731147.tag = closureN_tag; + c_731147.fn = (function_type)__lambda_9; +c_731147.num_args = 1; +c_731147.num_elt = 6; +c_731147.elts = (object *)alloca(sizeof(object) * 6); +c_731147.elts[0] = ((closureN)self_731124)->elts[0]; +c_731147.elts[1] = ((closureN)self_731124)->elts[1]; +c_731147.elts[2] = ((closureN)self_731124)->elts[2]; +c_731147.elts[3] = ((closureN)self_731124)->elts[3]; +c_731147.elts[4] = s1_73262; +c_731147.elts[5] = ((closureN)self_731124)->elts[4]; + + +make_string(c_731192, "sboyer"); +return_closcall1(data,(closure)&c_731147, &c_731192);; +} + +static void __lambda_9(void *data, int argc, object self_731125, object name_73263) { + +closureN_type c_731149; +c_731149.hdr.mark = gc_color_red; + c_731149.hdr.grayed = 0; +c_731149.tag = closureN_tag; + c_731149.fn = (function_type)__lambda_8; +c_731149.num_args = 0; +c_731149.num_elt = 7; +c_731149.elts = (object *)alloca(sizeof(object) * 7); +c_731149.elts[0] = ((closureN)self_731125)->elts[0]; +c_731149.elts[1] = ((closureN)self_731125)->elts[1]; +c_731149.elts[2] = ((closureN)self_731125)->elts[2]; +c_731149.elts[3] = name_73263; +c_731149.elts[4] = ((closureN)self_731125)->elts[3]; +c_731149.elts[5] = ((closureN)self_731125)->elts[4]; +c_731149.elts[6] = ((closureN)self_731125)->elts[5]; + +return_closcall0(data,(closure)&c_731149);; +} + +static void __lambda_8(void *data, int argc, object self_731126) { + +closureN_type c_731151; +c_731151.hdr.mark = gc_color_red; + c_731151.hdr.grayed = 0; +c_731151.tag = closureN_tag; + c_731151.fn = (function_type)__lambda_7; +c_731151.num_args = 1; +c_731151.num_elt = 4; +c_731151.elts = (object *)alloca(sizeof(object) * 4); +c_731151.elts[0] = ((closureN)self_731126)->elts[0]; +c_731151.elts[1] = ((closureN)self_731126)->elts[1]; +c_731151.elts[2] = ((closureN)self_731126)->elts[2]; +c_731151.elts[3] = ((closureN)self_731126)->elts[4]; + + +make_string(c_731188, ":"); + +make_string(c_731190, ":"); + +object c_731186 = Cyc_string_append(data,(closure)&c_731151,5,((closureN)self_731126)->elts[3], &c_731188, ((closureN)self_731126)->elts[5], &c_731190, ((closureN)self_731126)->elts[6]); +return_closcall1(data,(closure)&c_731151, c_731186);; +} + +static void __lambda_7(void *data, int argc, object self_731127, object r_73651) { + +closureN_type c_731153; +c_731153.hdr.mark = gc_color_red; + c_731153.hdr.grayed = 0; +c_731153.tag = closureN_tag; + c_731153.fn = (function_type)__lambda_3; +c_731153.num_args = 1; +c_731153.num_elt = 4; +c_731153.elts = (object *)alloca(sizeof(object) * 4); +c_731153.elts[0] = ((closureN)self_731127)->elts[0]; +c_731153.elts[1] = ((closureN)self_731127)->elts[2]; +c_731153.elts[2] = ((closureN)self_731127)->elts[3]; +c_731153.elts[3] = r_73651; + + +closureN_type c_731175; +c_731175.hdr.mark = gc_color_red; + c_731175.hdr.grayed = 0; +c_731175.tag = closureN_tag; + c_731175.fn = (function_type)__lambda_6; +c_731175.num_args = 0; +c_731175.num_elt = 2; +c_731175.elts = (object *)alloca(sizeof(object) * 2); +c_731175.elts[0] = ((closureN)self_731127)->elts[0]; +c_731175.elts[1] = ((closureN)self_731127)->elts[1]; + +return_closcall1(data,(closure)&c_731153, &c_731175);; +} + +static void __lambda_6(void *data, int argc, object self_731128, object k_73656) { + +closureN_type c_731177; +c_731177.hdr.mark = gc_color_red; + c_731177.hdr.grayed = 0; +c_731177.tag = closureN_tag; + c_731177.fn = (function_type)__lambda_5; +c_731177.num_args = 1; +c_731177.num_elt = 3; +c_731177.elts = (object *)alloca(sizeof(object) * 3); +c_731177.elts[0] = ((closureN)self_731128)->elts[0]; +c_731177.elts[1] = ((closureN)self_731128)->elts[1]; +c_731177.elts[2] = k_73656; + +return_closcall1(data, __glo_setup_91boyer, &c_731177);; +} + +static void __lambda_5(void *data, int argc, object self_731129, object r_73657) { + +closureN_type c_731179; +c_731179.hdr.mark = gc_color_red; + c_731179.hdr.grayed = 0; +c_731179.tag = closureN_tag; + c_731179.fn = (function_type)__lambda_4; +c_731179.num_args = 1; +c_731179.num_elt = 1; +c_731179.elts = (object *)alloca(sizeof(object) * 1); +c_731179.elts[0] = ((closureN)self_731129)->elts[2]; + +return_closcall3(data, __glo_hide, &c_731179, ((closureN)self_731129)->elts[0], ((closureN)self_731129)->elts[1]);; +} + +static void __lambda_4(void *data, int argc, object self_731130, object r_73658) { + return_closcall4(data, __glo_test_91boyer, ((closureN)self_731130)->elts[0], __glo_alist, __glo_term, r_73658);; +} + +static void __lambda_3(void *data, int argc, object self_731131, object r_73652) { + +closureN_type c_731155; +c_731155.hdr.mark = gc_color_red; + c_731155.hdr.grayed = 0; +c_731155.tag = closureN_tag; + c_731155.fn = (function_type)__lambda_0; +c_731155.num_args = 1; +c_731155.num_elt = 4; +c_731155.elts = (object *)alloca(sizeof(object) * 4); +c_731155.elts[0] = ((closureN)self_731131)->elts[0]; +c_731155.elts[1] = ((closureN)self_731131)->elts[1]; +c_731155.elts[2] = ((closureN)self_731131)->elts[3]; +c_731155.elts[3] = r_73652; + + +closureN_type c_731161; +c_731161.hdr.mark = gc_color_red; + c_731161.hdr.grayed = 0; +c_731161.tag = closureN_tag; + c_731161.fn = (function_type)__lambda_2; +c_731161.num_args = 1; +c_731161.num_elt = 1; +c_731161.elts = (object *)alloca(sizeof(object) * 1); +c_731161.elts[0] = ((closureN)self_731131)->elts[2]; + +return_closcall1(data,(closure)&c_731155, &c_731161);; +} + +static void __lambda_2(void *data, int argc, object self_731132, object k_73654, object rewrites_73264) { + +closureN_type c_731163; +c_731163.hdr.mark = gc_color_red; + c_731163.hdr.grayed = 0; +c_731163.tag = closureN_tag; + c_731163.fn = (function_type)__lambda_1; +c_731163.num_args = 1; +c_731163.num_elt = 3; +c_731163.elts = (object *)alloca(sizeof(object) * 3); +c_731163.elts[0] = k_73654; +c_731163.elts[1] = ((closureN)self_731132)->elts[0]; +c_731163.elts[2] = rewrites_73264; + +return_closcall1(data,(closure)&c_731163, Cyc_is_number(rewrites_73264));; +} + +static void __lambda_1(void *data, int argc, object self_731133, object r_73655) { + if( !eq(boolean_f, r_73655) ){ + +object c_731168 = Cyc_num_eq(data, ((closureN)self_731133)->elts[0],2,((closureN)self_731133)->elts[2], ((closureN)self_731133)->elts[1]); +return_closcall1(data, ((closureN)self_731133)->elts[0], c_731168); +} else { + return_closcall1(data, ((closureN)self_731133)->elts[0], boolean_f);} +; +} + +static void __lambda_0(void *data, int argc, object self_731134, object r_73653) { + return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_731134)->elts[1], ((closureN)self_731134)->elts[2], ((closureN)self_731134)->elts[0], ((closureN)self_731134)->elts[3], r_73653);; +} + +static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value); +extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemecxr_entry_pt(void *data, int argc, closure cont, object value); +extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value); +extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value); +static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { + quote_u = find_or_add_symbol("u"); + quote_mem = find_or_add_symbol("mem"); + quote_val = find_or_add_symbol("val"); + quote_set = find_or_add_symbol("set"); + quote_get = find_or_add_symbol("get"); + quote_cdr = find_or_add_symbol("cdr"); + quote_assignedp = find_or_add_symbol("assignedp"); + quote_assignment = find_or_add_symbol("assignment"); + quote_car = find_or_add_symbol("car"); + quote_last = find_or_add_symbol("last"); + quote_sigma = find_or_add_symbol("sigma"); + quote_x7 = find_or_add_symbol("x7"); + quote_x6 = find_or_add_symbol("x6"); + quote_x5 = find_or_add_symbol("x5"); + quote_x4 = find_or_add_symbol("x4"); + quote_x3 = find_or_add_symbol("x3"); + quote_x2 = find_or_add_symbol("x2"); + quote_x1 = find_or_add_symbol("x1"); + quote_dsort = find_or_add_symbol("dsort"); + quote_sort2 = find_or_add_symbol("sort2"); + quote_delete = find_or_add_symbol("delete"); + quote_prime_91list = find_or_add_symbol("prime-list"); + quote_times_91list = find_or_add_symbol("times-list"); + quote_greatest_91factor = find_or_add_symbol("greatest-factor"); + quote_samefringe = find_or_add_symbol("samefringe"); + quote_gopher = find_or_add_symbol("gopher"); + quote_listp = find_or_add_symbol("listp"); + quote_nlistp = find_or_add_symbol("nlistp"); + quote_value = find_or_add_symbol("value"); + quote_w = find_or_add_symbol("w"); + quote_gcd = find_or_add_symbol("gcd"); + quote_power_91rep = find_or_add_symbol("power-rep"); + quote_big_91plus = find_or_add_symbol("big-plus"); + quote_base = find_or_add_symbol("base"); + quote_big_91plus1 = find_or_add_symbol("big-plus1"); + quote_power_91eval = find_or_add_symbol("power-eval"); + quote_quotient = find_or_add_symbol("quotient"); + quote_sort_91lp = find_or_add_symbol("sort-lp"); + quote_count_91list = find_or_add_symbol("count-list"); + quote_k = find_or_add_symbol("k"); + quote_j = find_or_add_symbol("j"); + quote_exp = find_or_add_symbol("exp"); + quote_nth = find_or_add_symbol("nth"); + quote_intersect = find_or_add_symbol("intersect"); + quote_length = find_or_add_symbol("length"); + quote_member = find_or_add_symbol("member"); + quote_flatten = find_or_add_symbol("flatten"); + quote_mc_91flatten = find_or_add_symbol("mc-flatten"); + quote_envrn = find_or_add_symbol("envrn"); + quote_pds = find_or_add_symbol("pds"); + quote_exec = find_or_add_symbol("exec"); + quote_times = find_or_add_symbol("times"); + quote_plus_91fringe = find_or_add_symbol("plus-fringe"); + quote_append = find_or_add_symbol("append"); + quote_plus_91tree = find_or_add_symbol("plus-tree"); + quote_meaning = find_or_add_symbol("meaning"); + quote_difference = find_or_add_symbol("difference"); + quote_z = find_or_add_symbol("z"); + quote_plus = find_or_add_symbol("plus"); + quote_e = find_or_add_symbol("e"); + quote_d = find_or_add_symbol("d"); + quote_c = find_or_add_symbol("c"); + quote_b = find_or_add_symbol("b"); + quote_a = find_or_add_symbol("a"); + quote_numberp = find_or_add_symbol("numberp"); + quote_q = find_or_add_symbol("q"); + quote_p = find_or_add_symbol("p"); + quote_prime1 = find_or_add_symbol("prime1"); + quote_add1 = find_or_add_symbol("add1"); + quote_prime = find_or_add_symbol("prime"); + quote_falsify1 = find_or_add_symbol("falsify1"); + quote_falsify = find_or_add_symbol("falsify"); + quote_normalize = find_or_add_symbol("normalize"); + quote_tautologyp = find_or_add_symbol("tautologyp"); + quote_tautology_91checker = find_or_add_symbol("tautology-checker"); + quote_assume_91false = find_or_add_symbol("assume-false"); + quote_cons = find_or_add_symbol("cons"); + quote_alist = find_or_add_symbol("alist"); + quote_var = find_or_add_symbol("var"); + quote_assume_91true = find_or_add_symbol("assume-true"); + quote_remainder = find_or_add_symbol("remainder"); + quote_divides = find_or_add_symbol("divides"); + quote_reverse_91loop = find_or_add_symbol("reverse-loop"); + quote_reverse_91 = find_or_add_symbol("reverse-"); + quote_fact_91loop = find_or_add_symbol("fact-loop"); + quote_i = find_or_add_symbol("i"); + quote_fact_91 = find_or_add_symbol("fact-"); + quote_zero = find_or_add_symbol("zero"); + quote_countps_91loop = find_or_add_symbol("countps-loop"); + quote_pred = find_or_add_symbol("pred"); + quote_l = find_or_add_symbol("l"); + quote_countps_91 = find_or_add_symbol("countps-"); + quote__1911_91 = find_or_add_symbol("_1-"); + quote_odd = find_or_add_symbol("odd"); + quote_zerop = find_or_add_symbol("zerop"); + quote_even1 = find_or_add_symbol("even1"); + quote_iff = find_or_add_symbol("iff"); + quote_boolean = find_or_add_symbol("boolean"); + quote_greatereqp = find_or_add_symbol("greatereqp"); + quote_not = find_or_add_symbol("not"); + quote_lesseqp = find_or_add_symbol("lesseqp"); + quote_lessp = find_or_add_symbol("lessp"); + quote_greaterp = find_or_add_symbol("greaterp"); + quote_fix = find_or_add_symbol("fix"); + quote_y = find_or_add_symbol("y"); + quote_x = find_or_add_symbol("x"); + quote_eqp = find_or_add_symbol("eqp"); + quote_nil = find_or_add_symbol("nil"); + quote_optimize = find_or_add_symbol("optimize"); + quote_codegen = find_or_add_symbol("codegen"); + quote_reverse = find_or_add_symbol("reverse"); + quote_form = find_or_add_symbol("form"); + quote_compile = find_or_add_symbol("compile"); + quote_lemmas = find_or_add_symbol("lemmas"); + quote_equal = find_or_add_symbol("equal"); + quote_or = find_or_add_symbol("or"); + quote__85 = find_or_add_symbol("*"); + quote_and = find_or_add_symbol("and"); + quote_implies = find_or_add_symbol("implies"); + quote__if = find_or_add_symbol("if"); + quote_f = find_or_add_symbol("f"); + quote_t = find_or_add_symbol("t"); + + add_global((object *) &__glo_run_91r7rs_91benchmark); + add_global((object *) &__glo_hide); + add_global((object *) &__glo_test_91boyer); + add_global((object *) &__glo_setup_91boyer); + add_global((object *) &__glo_term); + add_global((object *) &__glo_alist); + add_global((object *) &__glo_main); + add_symbol(quote_u); + add_symbol(quote_mem); + add_symbol(quote_val); + add_symbol(quote_set); + add_symbol(quote_get); + add_symbol(quote_cdr); + add_symbol(quote_assignedp); + add_symbol(quote_assignment); + add_symbol(quote_car); + add_symbol(quote_last); + add_symbol(quote_sigma); + add_symbol(quote_x7); + add_symbol(quote_x6); + add_symbol(quote_x5); + add_symbol(quote_x4); + add_symbol(quote_x3); + add_symbol(quote_x2); + add_symbol(quote_x1); + add_symbol(quote_dsort); + add_symbol(quote_sort2); + add_symbol(quote_delete); + add_symbol(quote_prime_91list); + add_symbol(quote_times_91list); + add_symbol(quote_greatest_91factor); + add_symbol(quote_samefringe); + add_symbol(quote_gopher); + add_symbol(quote_listp); + add_symbol(quote_nlistp); + add_symbol(quote_value); + add_symbol(quote_w); + add_symbol(quote_gcd); + add_symbol(quote_power_91rep); + add_symbol(quote_big_91plus); + add_symbol(quote_base); + add_symbol(quote_big_91plus1); + add_symbol(quote_power_91eval); + add_symbol(quote_quotient); + add_symbol(quote_sort_91lp); + add_symbol(quote_count_91list); + add_symbol(quote_k); + add_symbol(quote_j); + add_symbol(quote_exp); + add_symbol(quote_nth); + add_symbol(quote_intersect); + add_symbol(quote_length); + add_symbol(quote_member); + add_symbol(quote_flatten); + add_symbol(quote_mc_91flatten); + add_symbol(quote_envrn); + add_symbol(quote_pds); + add_symbol(quote_exec); + add_symbol(quote_times); + add_symbol(quote_plus_91fringe); + add_symbol(quote_append); + add_symbol(quote_plus_91tree); + add_symbol(quote_meaning); + add_symbol(quote_difference); + add_symbol(quote_z); + add_symbol(quote_plus); + add_symbol(quote_e); + add_symbol(quote_d); + add_symbol(quote_c); + add_symbol(quote_b); + add_symbol(quote_a); + add_symbol(quote_numberp); + add_symbol(quote_q); + add_symbol(quote_p); + add_symbol(quote_prime1); + add_symbol(quote_add1); + add_symbol(quote_prime); + add_symbol(quote_falsify1); + add_symbol(quote_falsify); + add_symbol(quote_normalize); + add_symbol(quote_tautologyp); + add_symbol(quote_tautology_91checker); + add_symbol(quote_assume_91false); + add_symbol(quote_cons); + add_symbol(quote_alist); + add_symbol(quote_var); + add_symbol(quote_assume_91true); + add_symbol(quote_remainder); + add_symbol(quote_divides); + add_symbol(quote_reverse_91loop); + add_symbol(quote_reverse_91); + add_symbol(quote_fact_91loop); + add_symbol(quote_i); + add_symbol(quote_fact_91); + add_symbol(quote_zero); + add_symbol(quote_countps_91loop); + add_symbol(quote_pred); + add_symbol(quote_l); + add_symbol(quote_countps_91); + add_symbol(quote__1911_91); + add_symbol(quote_odd); + add_symbol(quote_zerop); + add_symbol(quote_even1); + add_symbol(quote_iff); + add_symbol(quote_boolean); + add_symbol(quote_greatereqp); + add_symbol(quote_not); + add_symbol(quote_lesseqp); + add_symbol(quote_lessp); + add_symbol(quote_greaterp); + add_symbol(quote_fix); + add_symbol(quote_y); + add_symbol(quote_x); + add_symbol(quote_eqp); + add_symbol(quote_nil); + add_symbol(quote_optimize); + add_symbol(quote_codegen); + add_symbol(quote_reverse); + add_symbol(quote_form); + add_symbol(quote_compile); + add_symbol(quote_lemmas); + add_symbol(quote_equal); + add_symbol(quote_or); + add_symbol(quote__85); + add_symbol(quote_and); + add_symbol(quote_implies); + add_symbol(quote__if); + add_symbol(quote_f); + add_symbol(quote_t); + mclosure0(c_731244, (function_type)__lambda_79);c_731244.num_args = 4; + __glo_run_91r7rs_91benchmark = &c_731244; + mclosure0(c_731205, (function_type)__lambda_29);c_731205.num_args = 2; + __glo_hide = &c_731205; + mclosure0(c_731203, (function_type)__lambda_17);c_731203.num_args = 0; + __glo_test_91boyer = &c_731203; + mclosure0(c_731201, (function_type)__lambda_16);c_731201.num_args = 0; + __glo_setup_91boyer = &c_731201; + mclosure0(c_731135, (function_type)__lambda_15);c_731135.num_args = 0; + __glo_main = &c_731135; + __glo_term = boolean_f; + __glo_alist = boolean_f; + + make_cvar(cvar_735303, (object *)&__glo_run_91r7rs_91benchmark);make_cons(pair_735304, find_or_add_symbol("run-r7rs-benchmark"), &cvar_735303); + make_cvar(cvar_735305, (object *)&__glo_hide);make_cons(pair_735306, find_or_add_symbol("hide"), &cvar_735305); + make_cvar(cvar_735307, (object *)&__glo_test_91boyer);make_cons(pair_735308, find_or_add_symbol("test-boyer"), &cvar_735307); + make_cvar(cvar_735309, (object *)&__glo_setup_91boyer);make_cons(pair_735310, find_or_add_symbol("setup-boyer"), &cvar_735309); + make_cvar(cvar_735311, (object *)&__glo_term);make_cons(pair_735312, find_or_add_symbol("term"), &cvar_735311); + make_cvar(cvar_735313, (object *)&__glo_alist);make_cons(pair_735314, find_or_add_symbol("alist"), &cvar_735313); + make_cvar(cvar_735315, (object *)&__glo_main);make_cons(pair_735316, find_or_add_symbol("main"), &cvar_735315); +make_cons(c_735317, &pair_735304,Cyc_global_variables); +make_cons(c_735318, &pair_735306, &c_735317); +make_cons(c_735319, &pair_735308, &c_735318); +make_cons(c_735320, &pair_735310, &c_735319); +make_cons(c_735321, &pair_735312, &c_735320); +make_cons(c_735322, &pair_735314, &c_735321); +make_cons(c_735323, &pair_735316, &c_735322); +Cyc_global_variables = &c_735323; +mclosure1(c_done, c_entry_pt_first_lambda, &c_done); +mclosure1(c_735324, c_schemewrite_entry_pt, &c_done); +mclosure1(c_735325, c_schemeread_entry_pt, &c_735324); +mclosure1(c_735326, c_scheme_char_entry_pt, &c_735325); +mclosure1(c_735327, c_schemecxr_entry_pt, &c_735326); +mclosure1(c_735328, c_schemetime_entry_pt, &c_735327); +mclosure1(c_735329, c_schemebase_entry_pt, &c_735328); +(c_735329.fn)(data, 0, &c_735329, &c_735329); +} +static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) { + + + + + + + + return_direct40(data,__lambda_492,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f); +} +main(int argc,char **argv) +{gc_thread_data *thd; + long stack_size = global_stack_size = STACK_SIZE; + long heap_size = global_heap_size = HEAP_SIZE; + mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached + mclosure0(entry_pt,&c_entry_pt); // First function to execute + _cyc_argc = argc; + _cyc_argv = argv; + gc_initialize(); + thd = malloc(sizeof(gc_thread_data)); + gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size); + thd->gc_cont = &entry_pt; + thd->gc_args[0] = &clos_halt; + thd->gc_num_args = 1; + gc_add_mutator(thd); + Cyc_heap_init(heap_size); + thd->thread_state = CYC_THREAD_STATE_RUNNABLE; + Cyc_start_trampoline(thd); + return 0;} diff --git a/debug/compilation/boyer/sboyer.scm b/debug/compilation/boyer/sboyer.scm new file mode 100644 index 00000000..e2ae6013 --- /dev/null +++ b/debug/compilation/boyer/sboyer.scm @@ -0,0 +1,849 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; File: sboyer.sch +; Description: The Boyer benchmark +; Author: Bob Boyer +; Created: 5-Apr-85 +; Modified: 10-Apr-85 14:52:20 (Bob Shaw) +; 22-Jul-87 (Will Clinger) +; 2-Jul-88 (Will Clinger -- distinguished #f and the empty list) +; 13-Feb-97 (Will Clinger -- fixed bugs in unifier and rules, +; rewrote to eliminate property lists, and added +; a scaling parameter suggested by Bob Boyer) +; 19-Mar-99 (Will Clinger -- cleaned up comments) +; Language: Scheme +; Status: Public Domain +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;; SBOYER -- Logic programming benchmark, originally written by Bob Boyer. +;;; Much less CONS-intensive than NBOYER because it uses Henry Baker's +;;; "sharing cons". + +; Note: The version of this benchmark that appears in Dick Gabriel's book +; contained several bugs that are corrected here. These bugs are discussed +; by Henry Baker, "The Boyer Benchmark Meets Linear Logic", ACM SIGPLAN Lisp +; Pointers 6(4), October-December 1993, pages 3-10. The fixed bugs are: +; +; The benchmark now returns a boolean result. +; FALSEP and TRUEP use TERM-MEMBER? rather than MEMV (which is called MEMBER +; in Common Lisp) +; ONE-WAY-UNIFY1 now treats numbers correctly +; ONE-WAY-UNIFY1-LST now treats empty lists correctly +; Rule 19 has been corrected (this rule was not touched by the original +; benchmark, but is used by this version) +; Rules 84 and 101 have been corrected (but these rules are never touched +; by the benchmark) +; +; According to Baker, these bug fixes make the benchmark 10-25% slower. +; Please do not compare the timings from this benchmark against those of +; the original benchmark. +; +; This version of the benchmark also prints the number of rewrites as a sanity +; check, because it is too easy for a buggy version to return the correct +; boolean result. The correct number of rewrites is +; +; n rewrites peak live storage (approximate, in bytes) +; 0 95024 +; 1 591777 +; 2 1813975 +; 3 5375678 +; 4 16445406 +; 5 51507739 + +; Sboyer is a 2-phase benchmark. +; The first phase attaches lemmas to symbols. This phase is not timed, +; but it accounts for very little of the runtime anyway. +; The second phase creates the test problem, and tests to see +; whether it is implied by the lemmas. + +(import (scheme base) + (scheme cxr) + (scheme read) + (scheme write) + (scheme time)) + +(define (main) + (let* ((count (read)) + (input (read)) + (output (read)) + (s2 (number->string count)) + (s1 (number->string input)) + (name "sboyer")) + (run-r7rs-benchmark + (string-append name ":" s1 ":" s2) + count + (lambda () + (setup-boyer) + (test-boyer alist term (hide count input))) + (lambda (rewrites) + (and (number? rewrites) (= rewrites output)))))) + +(define alist + (quote ((x f (plus (plus a b) + (plus c (zero)))) + (y f (times (times a b) + (plus c d))) + (z f (reverse (append (append a b) + (nil)))) + (u equal (plus a b) + (difference x y)) + (w lessp (remainder a b) + (member a (length b)))))) + +(define term + (quote (implies (and (implies x y) + (and (implies y z) + (and (implies z u) + (implies u w)))) + (implies x w)))) + +(define (setup-boyer) #t) ; assigned below +(define (test-boyer) #t) ; assigned below + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; +; The first phase. +; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +; In the original benchmark, it stored a list of lemmas on the +; property lists of symbols. +; In the new benchmark, it maintains an association list of +; symbols and symbol-records, and stores the list of lemmas +; within the symbol-records. + +(let () + + (define (setup) + (add-lemma-lst + (quote ((equal (compile form) + (reverse (codegen (optimize form) + (nil)))) + (equal (eqp x y) + (equal (fix x) + (fix y))) + (equal (greaterp x y) + (lessp y x)) + (equal (lesseqp x y) + (not (lessp y x))) + (equal (greatereqp x y) + (not (lessp x y))) + (equal (boolean x) + (or (equal x (t)) + (equal x (f)))) + (equal (iff x y) + (and (implies x y) + (implies y x))) + (equal (even1 x) + (if (zerop x) + (t) + (odd (_1- x)))) + (equal (countps- l pred) + (countps-loop l pred (zero))) + (equal (fact- i) + (fact-loop i 1)) + (equal (reverse- x) + (reverse-loop x (nil))) + (equal (divides x y) + (zerop (remainder y x))) + (equal (assume-true var alist) + (cons (cons var (t)) + alist)) + (equal (assume-false var alist) + (cons (cons var (f)) + alist)) + (equal (tautology-checker x) + (tautologyp (normalize x) + (nil))) + (equal (falsify x) + (falsify1 (normalize x) + (nil))) + (equal (prime x) + (and (not (zerop x)) + (not (equal x (add1 (zero)))) + (prime1 x (_1- x)))) + (equal (and p q) + (if p (if q (t) + (f)) + (f))) + (equal (or p q) + (if p (t) + (if q (t) + (f)))) + (equal (not p) + (if p (f) + (t))) + (equal (implies p q) + (if p (if q (t) + (f)) + (t))) + (equal (fix x) + (if (numberp x) + x + (zero))) + (equal (if (if a b c) + d e) + (if a (if b d e) + (if c d e))) + (equal (zerop x) + (or (equal x (zero)) + (not (numberp x)))) + (equal (plus (plus x y) + z) + (plus x (plus y z))) + (equal (equal (plus a b) + (zero)) + (and (zerop a) + (zerop b))) + (equal (difference x x) + (zero)) + (equal (equal (plus a b) + (plus a c)) + (equal (fix b) + (fix c))) + (equal (equal (zero) + (difference x y)) + (not (lessp y x))) + (equal (equal x (difference x y)) + (and (numberp x) + (or (equal x (zero)) + (zerop y)))) + (equal (meaning (plus-tree (append x y)) + a) + (plus (meaning (plus-tree x) + a) + (meaning (plus-tree y) + a))) + (equal (meaning (plus-tree (plus-fringe x)) + a) + (fix (meaning x a))) + (equal (append (append x y) + z) + (append x (append y z))) + (equal (reverse (append a b)) + (append (reverse b) + (reverse a))) + (equal (times x (plus y z)) + (plus (times x y) + (times x z))) + (equal (times (times x y) + z) + (times x (times y z))) + (equal (equal (times x y) + (zero)) + (or (zerop x) + (zerop y))) + (equal (exec (append x y) + pds envrn) + (exec y (exec x pds envrn) + envrn)) + (equal (mc-flatten x y) + (append (flatten x) + y)) + (equal (member x (append a b)) + (or (member x a) + (member x b))) + (equal (member x (reverse y)) + (member x y)) + (equal (length (reverse x)) + (length x)) + (equal (member a (intersect b c)) + (and (member a b) + (member a c))) + (equal (nth (zero) + i) + (zero)) + (equal (exp i (plus j k)) + (times (exp i j) + (exp i k))) + (equal (exp i (times j k)) + (exp (exp i j) + k)) + (equal (reverse-loop x y) + (append (reverse x) + y)) + (equal (reverse-loop x (nil)) + (reverse x)) + (equal (count-list z (sort-lp x y)) + (plus (count-list z x) + (count-list z y))) + (equal (equal (append a b) + (append a c)) + (equal b c)) + (equal (plus (remainder x y) + (times y (quotient x y))) + (fix x)) + (equal (power-eval (big-plus1 l i base) + base) + (plus (power-eval l base) + i)) + (equal (power-eval (big-plus x y i base) + base) + (plus i (plus (power-eval x base) + (power-eval y base)))) + (equal (remainder y 1) + (zero)) + (equal (lessp (remainder x y) + y) + (not (zerop y))) + (equal (remainder x x) + (zero)) + (equal (lessp (quotient i j) + i) + (and (not (zerop i)) + (or (zerop j) + (not (equal j 1))))) + (equal (lessp (remainder x y) + x) + (and (not (zerop y)) + (not (zerop x)) + (not (lessp x y)))) + (equal (power-eval (power-rep i base) + base) + (fix i)) + (equal (power-eval (big-plus (power-rep i base) + (power-rep j base) + (zero) + base) + base) + (plus i j)) + (equal (gcd x y) + (gcd y x)) + (equal (nth (append a b) + i) + (append (nth a i) + (nth b (difference i (length a))))) + (equal (difference (plus x y) + x) + (fix y)) + (equal (difference (plus y x) + x) + (fix y)) + (equal (difference (plus x y) + (plus x z)) + (difference y z)) + (equal (times x (difference c w)) + (difference (times c x) + (times w x))) + (equal (remainder (times x z) + z) + (zero)) + (equal (difference (plus b (plus a c)) + a) + (plus b c)) + (equal (difference (add1 (plus y z)) + z) + (add1 y)) + (equal (lessp (plus x y) + (plus x z)) + (lessp y z)) + (equal (lessp (times x z) + (times y z)) + (and (not (zerop z)) + (lessp x y))) + (equal (lessp y (plus x y)) + (not (zerop x))) + (equal (gcd (times x z) + (times y z)) + (times z (gcd x y))) + (equal (value (normalize x) + a) + (value x a)) + (equal (equal (flatten x) + (cons y (nil))) + (and (nlistp x) + (equal x y))) + (equal (listp (gopher x)) + (listp x)) + (equal (samefringe x y) + (equal (flatten x) + (flatten y))) + (equal (equal (greatest-factor x y) + (zero)) + (and (or (zerop y) + (equal y 1)) + (equal x (zero)))) + (equal (equal (greatest-factor x y) + 1) + (equal x 1)) + (equal (numberp (greatest-factor x y)) + (not (and (or (zerop y) + (equal y 1)) + (not (numberp x))))) + (equal (times-list (append x y)) + (times (times-list x) + (times-list y))) + (equal (prime-list (append x y)) + (and (prime-list x) + (prime-list y))) + (equal (equal z (times w z)) + (and (numberp z) + (or (equal z (zero)) + (equal w 1)))) + (equal (greatereqp x y) + (not (lessp x y))) + (equal (equal x (times x y)) + (or (equal x (zero)) + (and (numberp x) + (equal y 1)))) + (equal (remainder (times y x) + y) + (zero)) + (equal (equal (times a b) + 1) + (and (not (equal a (zero))) + (not (equal b (zero))) + (numberp a) + (numberp b) + (equal (_1- a) + (zero)) + (equal (_1- b) + (zero)))) + (equal (lessp (length (delete x l)) + (length l)) + (member x l)) + (equal (sort2 (delete x l)) + (delete x (sort2 l))) + (equal (dsort x) + (sort2 x)) + (equal (length (cons x1 + (cons x2 + (cons x3 (cons x4 + (cons x5 + (cons x6 x7))))))) + (plus 6 (length x7))) + (equal (difference (add1 (add1 x)) + 2) + (fix x)) + (equal (quotient (plus x (plus x y)) + 2) + (plus x (quotient y 2))) + (equal (sigma (zero) + i) + (quotient (times i (add1 i)) + 2)) + (equal (plus x (add1 y)) + (if (numberp y) + (add1 (plus x y)) + (add1 x))) + (equal (equal (difference x y) + (difference z y)) + (if (lessp x y) + (not (lessp y z)) + (if (lessp z y) + (not (lessp y x)) + (equal (fix x) + (fix z))))) + (equal (meaning (plus-tree (delete x y)) + a) + (if (member x y) + (difference (meaning (plus-tree y) + a) + (meaning x a)) + (meaning (plus-tree y) + a))) + (equal (times x (add1 y)) + (if (numberp y) + (plus x (times x y)) + (fix x))) + (equal (nth (nil) + i) + (if (zerop i) + (nil) + (zero))) + (equal (last (append a b)) + (if (listp b) + (last b) + (if (listp a) + (cons (car (last a)) + b) + b))) + (equal (equal (lessp x y) + z) + (if (lessp x y) + (equal (t) z) + (equal (f) z))) + (equal (assignment x (append a b)) + (if (assignedp x a) + (assignment x a) + (assignment x b))) + (equal (car (gopher x)) + (if (listp x) + (car (flatten x)) + (zero))) + (equal (flatten (cdr (gopher x))) + (if (listp x) + (cdr (flatten x)) + (cons (zero) + (nil)))) + (equal (quotient (times y x) + y) + (if (zerop y) + (zero) + (fix x))) + (equal (get j (set i val mem)) + (if (eqp j i) + val + (get j mem))))))) + + (define (add-lemma-lst lst) + (cond ((null? lst) + #t) + (else (add-lemma (car lst)) + (add-lemma-lst (cdr lst))))) + + (define (add-lemma term) + (cond ((and (pair? term) + (eq? (car term) + (quote equal)) + (pair? (cadr term))) + (put (car (cadr term)) + (quote lemmas) + (cons + (translate-term term) + (get (car (cadr term)) (quote lemmas))))) + (else (error #f "ADD-LEMMA did not like term: " term)))) + + ; Translates a term by replacing its constructor symbols by symbol-records. + + (define (translate-term term) + (cond ((not (pair? term)) + term) + (else (cons (symbol->symbol-record (car term)) + (translate-args (cdr term)))))) + + (define (translate-args lst) + (cond ((null? lst) + '()) + (else (cons (translate-term (car lst)) + (translate-args (cdr lst)))))) + + ; For debugging only, so the use of MAP does not change + ; the first-order character of the benchmark. + + (define (untranslate-term term) + (cond ((not (pair? term)) + term) + (else (cons (get-name (car term)) + (map untranslate-term (cdr term)))))) + + ; A symbol-record is represented as a vector with two fields: + ; the symbol (for debugging) and + ; the list of lemmas associated with the symbol. + + (define (put sym property value) + (put-lemmas! (symbol->symbol-record sym) value)) + + (define (get sym property) + (get-lemmas (symbol->symbol-record sym))) + + (define (symbol->symbol-record sym) + (let ((x (assq sym *symbol-records-alist*))) + (if x + (cdr x) + (let ((r (make-symbol-record sym))) + (set! *symbol-records-alist* + (cons (cons sym r) + *symbol-records-alist*)) + r)))) + + ; Association list of symbols and symbol-records. + + (define *symbol-records-alist* '()) + + ; A symbol-record is represented as a vector with two fields: + ; the symbol (for debugging) and + ; the list of lemmas associated with the symbol. + + (define (make-symbol-record sym) + (vector sym '())) + + (define (put-lemmas! symbol-record lemmas) + (vector-set! symbol-record 1 lemmas)) + + (define (get-lemmas symbol-record) + (vector-ref symbol-record 1)) + + (define (get-name symbol-record) + (vector-ref symbol-record 0)) + + (define (symbol-record-equal? r1 r2) + (eq? r1 r2)) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ; + ; The second phase. + ; + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + (define (test alist term n) + (let ((term + (apply-subst + (translate-alist alist) + (translate-term + (do ((term term (list 'or term '(f))) + (n n (- n 1))) + ((zero? n) term)))))) + (tautp term))) + + (define (translate-alist alist) + (cond ((null? alist) + '()) + (else (cons (cons (caar alist) + (translate-term (cdar alist))) + (translate-alist (cdr alist)))))) + + (define (apply-subst alist term) + (cond ((not (pair? term)) + (let ((temp-temp (assq term alist))) + (if temp-temp + (cdr temp-temp) + term))) + (else (cons (car term) + (apply-subst-lst alist (cdr term)))))) + + (define (apply-subst-lst alist lst) + (cond ((null? lst) + '()) + (else (cons (apply-subst alist (car lst)) + (apply-subst-lst alist (cdr lst)))))) + + (define (tautp x) + (tautologyp (rewrite x) + '() '())) + + (define (tautologyp x true-lst false-lst) + (cond ((truep x true-lst) + #t) + ((falsep x false-lst) + #f) + ((not (pair? x)) + #f) + ((eq? (car x) if-constructor) + (cond ((truep (cadr x) + true-lst) + (tautologyp (caddr x) + true-lst false-lst)) + ((falsep (cadr x) + false-lst) + (tautologyp (cadddr x) + true-lst false-lst)) + (else (and (tautologyp (caddr x) + (cons (cadr x) + true-lst) + false-lst) + (tautologyp (cadddr x) + true-lst + (cons (cadr x) + false-lst)))))) + (else #f))) + + (define if-constructor '*) ; becomes (symbol->symbol-record 'if) + + (define rewrite-count 0) ; sanity check + + ; The next procedure is Henry Baker's sharing CONS, which avoids + ; allocation if the result is already in hand. + ; The REWRITE and REWRITE-ARGS procedures have been modified to + ; use SCONS instead of CONS. + + (define (scons x y original) + (if (and (eq? x (car original)) + (eq? y (cdr original))) + original + (cons x y))) + + (define (rewrite term) + (set! rewrite-count (+ rewrite-count 1)) + (cond ((not (pair? term)) + term) + (else (rewrite-with-lemmas (scons (car term) + (rewrite-args (cdr term)) + term) + (get-lemmas (car term)))))) + + (define (rewrite-args lst) + (cond ((null? lst) + '()) + (else (scons (rewrite (car lst)) + (rewrite-args (cdr lst)) + lst)))) + + (define (rewrite-with-lemmas term lst) + (cond ((null? lst) + term) + ((one-way-unify term (cadr (car lst))) + (rewrite (apply-subst unify-subst (caddr (car lst))))) + (else (rewrite-with-lemmas term (cdr lst))))) + + (define unify-subst '*) + + (define (one-way-unify term1 term2) + (begin (set! unify-subst '()) + (one-way-unify1 term1 term2))) + + (define (one-way-unify1 term1 term2) + (cond ((not (pair? term2)) + (let ((temp-temp (assq term2 unify-subst))) + (cond (temp-temp + (term-equal? term1 (cdr temp-temp))) + ((number? term2) ; This bug fix makes + (equal? term1 term2)) ; nboyer 10-25% slower! + (else + (set! unify-subst (cons (cons term2 term1) + unify-subst)) + #t)))) + ((not (pair? term1)) + #f) + ((eq? (car term1) + (car term2)) + (one-way-unify1-lst (cdr term1) + (cdr term2))) + (else #f))) + + (define (one-way-unify1-lst lst1 lst2) + (cond ((null? lst1) + (null? lst2)) + ((null? lst2) + #f) + ((one-way-unify1 (car lst1) + (car lst2)) + (one-way-unify1-lst (cdr lst1) + (cdr lst2))) + (else #f))) + + (define (falsep x lst) + (or (term-equal? x false-term) + (term-member? x lst))) + + (define (truep x lst) + (or (term-equal? x true-term) + (term-member? x lst))) + + (define false-term '*) ; becomes (translate-term '(f)) + (define true-term '*) ; becomes (translate-term '(t)) + + ; The next two procedures were in the original benchmark + ; but were never used. + + (define (trans-of-implies n) + (translate-term + (list (quote implies) + (trans-of-implies1 n) + (list (quote implies) + 0 n)))) + + (define (trans-of-implies1 n) + (cond ((equal? n 1) + (list (quote implies) + 0 1)) + (else (list (quote and) + (list (quote implies) + (- n 1) + n) + (trans-of-implies1 (- n 1)))))) + + ; Translated terms can be circular structures, which can't be + ; compared using Scheme's equal? and member procedures, so we + ; use these instead. + + (define (term-equal? x y) + (cond ((pair? x) + (and (pair? y) + (symbol-record-equal? (car x) (car y)) + (term-args-equal? (cdr x) (cdr y)))) + (else (equal? x y)))) + + (define (term-args-equal? lst1 lst2) + (cond ((null? lst1) + (null? lst2)) + ((null? lst2) + #f) + ((term-equal? (car lst1) (car lst2)) + (term-args-equal? (cdr lst1) (cdr lst2))) + (else #f))) + + (define (term-member? x lst) + (cond ((null? lst) + #f) + ((term-equal? x (car lst)) + #t) + (else (term-member? x (cdr lst))))) + + (set! setup-boyer + (lambda () + (set! *symbol-records-alist* '()) + (set! if-constructor (symbol->symbol-record 'if)) + (set! false-term (translate-term '(f))) + (set! true-term (translate-term '(t))) + (setup))) + + (set! test-boyer + (lambda (alist term n) + (set! rewrite-count 0) + (let ((answer (test alist term n))) +; (write rewrite-count) +; (display " rewrites") +; (newline) + (if answer + rewrite-count + #f))))) + +;;; The following code is appended to all benchmarks. + +;;; Given an integer and an object, returns the object +;;; without making it too easy for compilers to tell +;;; the object will be returned. + +(define (hide r x) + (call-with-values + (lambda () + (values (vector values (lambda (x) x)) + (if (< r 100) 0 1))) + (lambda (v i) + ((vector-ref v i) x)))) + +;;; Given the name of a benchmark, +;;; the number of times it should be executed, +;;; a thunk that runs the benchmark once, +;;; and a unary predicate that is true of the +;;; correct results the thunk may return, +;;; runs the benchmark for the number of specified iterations. + +(define (run-r7rs-benchmark name count thunk ok?) + + ;; Rounds to thousandths. + (define (rounded x) + (/ (round (* 1000 x)) 1000)) + + (display "Running ") + (display name) + (newline) + (flush-output-port) + (let* ((j/s (jiffies-per-second)) + (t0 (current-second)) + (j0 (current-jiffy))) + (let loop ((i 0) + (result (if #f #f))) + (cond ((< i count) + (loop (+ i 1) (thunk))) + ((ok? result) + (let* ((j1 (current-jiffy)) + (t1 (current-second)) + (jifs (- j1 j0)) + (secs (inexact (/ jifs j/s))) + (secs2 (rounded (- t1 t0)))) + (display "Elapsed time: ") + (write secs) + (display " seconds (") + (write secs2) + (display ") for ") + (display name) + (newline)) + result) + (else + (display "ERROR: returned incorrect result: ") + (write result) + (newline) + result))))) + +(main)