cyclone/debug/compilation/boyer/sboyer.c

/**
 ** 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) (char>=? scheme base) (string=? scheme base) (string<? 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;}