cyclone/debug/compilation/boyer/nboyer.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 "nboyer")) (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (and (number? rewrites) (= rewrites output)))))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define (setup-boyer . args) #t) (define (test-boyer . args) #t) (let () (define (setup) (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) (quote equal)) (pair? (cadr term))) (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas))))) (else (error #f "ADD-LEMMA did not like term:  " term)))) (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) (quote ())) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) (define *symbol-records-alist* (quote ())) (define (make-symbol-record sym) (vector sym (quote ()))) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) (define (test alist term n) (let ((term (apply-subst (translate-alist alist) (translate-term (do ((term term (list (quote or) term (quote (f))) ...) (n n (- n 1) ...)) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) (quote ())) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) (quote ())) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) (quote ()) (quote ()))) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor (quote *)) (define rewrite-count 0) (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) (quote ())) (else (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst (quote *)) (define (one-way-unify term1 term2) (begin (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) (equal? term1 term2)) (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term (quote *)) (define true-term (quote *)) (define (trans-of-implies n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list (quote implies) 0 1)) (else (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))) (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) (let ((answer (test alist term n))) (if answer rewrite-count #f))))) (define (hide r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x)))) (define (run-r7rs-benchmark name count thunk ok?) (define (rounded x) (/ (round (* 1000 x)) 1000)) (display "Running ") (display name) (newline) (flush-output-port) (let* ((j/s (jiffies-per-second)) (t0 (current-second)) (j0 (current-jiffy))) (let loop ((i 0) (result (if #f #f))) (cond ((< i count) (loop (+ i 1) (thunk))) ((ok? result) (let* ((j1 (current-jiffy)) (t1 (current-second)) (jifs (- j1 j0)) (secs (inexact (/ jifs j/s))) (secs2 (rounded (- t1 t0)))) (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)) result) (else (display "ERROR: returned incorrect result: ") (write result) (newline) result))))) (main)) */
/* 
"imports:" */
/* 
((scheme base) (scheme cxr) (scheme read) (scheme write) (scheme time)) */
/* 
"resolved imports:" */
/* 
((cons-source scheme base) (syntax-rules scheme base) (letrec* scheme base) (guard scheme base) (guard-aux scheme base) (receive scheme base) (abs scheme base) (max scheme base) (min scheme base) (modulo scheme base) (floor-remainder scheme base) (even? scheme base) (exact-integer? scheme base) (exact? scheme base) (inexact? scheme base) (odd? scheme base) (complex? scheme base) (rational? scheme base) (gcd scheme base) (lcm scheme base) (quotient scheme base) (remainder scheme base) (truncate-quotient scheme base) (truncate-remainder scheme base) (truncate/ scheme base) (floor-quotient scheme base) (floor-remainder scheme base) (floor/ scheme base) (square scheme base) (expt scheme base) (call-with-current-continuation scheme base) (call/cc scheme base) (call-with-values scheme base) (dynamic-wind scheme base) (values scheme base) (char=? scheme base) (char<? scheme base) (char>? scheme base) (char<=? scheme base) (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)))))) "nboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (define term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (define setup-boyer (lambda args #t)) (define test-boyer (lambda args #t)) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term:  " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) (main)) */
/* 
"---------------- after processing globals" */
/* 
((define main (lambda () ((lambda (count) ((lambda (input) ((lambda (output) ((lambda (s2) ((lambda (s1) ((lambda (name) ((lambda () (run-r7rs-benchmark (string-append name ":" s1 ":" s2) count (lambda () (setup-boyer) (test-boyer alist term (hide count input))) (lambda (rewrites) (if (number? rewrites) (= rewrites output) #f)))))) "nboyer")) (number->string input))) (number->string count))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda args #t)) (define test-boyer (lambda args #t)) (define hide (lambda (r x) (call-with-values (lambda () (values (vector values (lambda (x) x)) (if (< r 100) 0 1))) (lambda (v i) ((vector-ref v i) x))))) (define run-r7rs-benchmark (lambda (name count thunk ok?) (define rounded (lambda (x) (/ (round (* 1000 x)) 1000))) (display "Running ") (display name) (newline) (flush-output-port) ((lambda (j/s) ((lambda (t0) ((lambda (j0) ((lambda () ((lambda (i result) ((lambda (loop) (set! loop (lambda (i result) (if (< i count) ((lambda () (loop (+ i 1) (thunk)))) (if (ok? result) ((lambda () ((lambda (j1) ((lambda (t1) ((lambda (jifs) ((lambda (secs) ((lambda (secs2) ((lambda () (display "Elapsed time: ") (write secs) (display " seconds (") (write secs2) (display ") for ") (display name) (newline)))) (rounded (- t1 t0)))) (inexact (/ jifs j/s)))) (- j1 j0))) (current-second))) (current-jiffy)) result)) ((lambda () (display "ERROR: returned incorrect result: ") (write result) (newline) result)))))) (loop i result)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second)))) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () (define setup (lambda () (add-lemma-lst (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (define add-lemma-lst (lambda (lst) (if (null? lst) ((lambda () #t)) ((lambda () (add-lemma (car lst)) (add-lemma-lst (cdr lst))))))) (define add-lemma (lambda (term) (if (if (pair? term) (if (eq? (car term) (quote equal)) (pair? (cadr term)) #f) #f) ((lambda () (put (car (cadr term)) (quote lemmas) (cons (translate-term term) (get (car (cadr term)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term:  " term)))))) (define translate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))))) (define translate-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (translate-term (car lst)) (translate-args (cdr lst)))))))) (define untranslate-term (lambda (term) (if (not (pair? term)) ((lambda () term)) ((lambda () (cons (get-name (car term)) (map untranslate-term (cdr term)))))))) (define put (lambda (sym property value) (put-lemmas! (symbol->symbol-record sym) value))) (define get (lambda (sym property) (get-lemmas (symbol->symbol-record sym)))) (define symbol->symbol-record (lambda (sym) ((lambda (x) (if x (cdr x) ((lambda (r) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r) (make-symbol-record sym)))) (assq sym *symbol-records-alist*)))) (define *symbol-records-alist* (quote ())) (define make-symbol-record (lambda (sym) (vector sym (quote ())))) (define put-lemmas! (lambda (symbol-record lemmas) (vector-set! symbol-record 1 lemmas))) (define get-lemmas (lambda (symbol-record) (vector-ref symbol-record 1))) (define get-name (lambda (symbol-record) (vector-ref symbol-record 0))) (define symbol-record-equal? (lambda (r1 r2) (eq? r1 r2))) (define test (lambda (alist term n) ((lambda (term) (tautp term)) (apply-subst (translate-alist alist) (translate-term ((lambda (term n) ((lambda (lp) (set! lp (lambda (term n) (if (zero? n) term (lp (list (quote or) term (quote (f))) (- n 1))))) (lp term n)) #f)) term n)))))) (define translate-alist (lambda (alist) (if (null? alist) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))))) (define apply-subst (lambda (alist term) (if (not (pair? term)) ((lambda () ((lambda (temp-temp) (if temp-temp (cdr temp-temp) term)) (assq term alist)))) ((lambda () (cons (car term) (apply-subst-lst alist (cdr term)))))))) (define apply-subst-lst (lambda (alist lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))))) (define tautp (lambda (x) (tautologyp (rewrite x) (quote ()) (quote ())))) (define tautologyp (lambda (x true-lst false-lst) (if (truep x true-lst) ((lambda () #t)) (if (falsep x false-lst) ((lambda () #f)) (if (not (pair? x)) ((lambda () #f)) (if (eq? (car x) if-constructor) ((lambda () (if (truep (cadr x) true-lst) ((lambda () (tautologyp (caddr x) true-lst false-lst))) (if (falsep (cadr x) false-lst) ((lambda () (tautologyp (cadddr x) true-lst false-lst))) ((lambda () (if (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)) #f))))))) ((lambda () #f)))))))) (define if-constructor (quote *)) (define rewrite-count 0) (define rewrite (lambda (term) (set! rewrite-count (+ rewrite-count 1)) (if (not (pair? term)) ((lambda () term)) ((lambda () (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))))) (define rewrite-args (lambda (lst) (if (null? lst) ((lambda () (quote ()))) ((lambda () (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))))) (define rewrite-with-lemmas (lambda (term lst) (if (null? lst) ((lambda () term)) (if (one-way-unify term (cadr (car lst))) ((lambda () (rewrite (apply-subst unify-subst (caddr (car lst)))))) ((lambda () (rewrite-with-lemmas term (cdr lst)))))))) (define unify-subst (quote *)) (define one-way-unify (lambda (term1 term2) (set! unify-subst (quote ())) (one-way-unify1 term1 term2))) (define one-way-unify1 (lambda (term1 term2) (if (not (pair? term2)) ((lambda () ((lambda (temp-temp) (if temp-temp ((lambda () (term-equal? term1 (cdr temp-temp)))) (if (number? term2) ((lambda () (equal? term1 term2))) ((lambda () (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))))) (assq term2 unify-subst)))) (if (not (pair? term1)) ((lambda () #f)) (if (eq? (car term1) (car term2)) ((lambda () (one-way-unify1-lst (cdr term1) (cdr term2)))) ((lambda () #f))))))) (define one-way-unify1-lst (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (one-way-unify1 (car lst1) (car lst2)) ((lambda () (one-way-unify1-lst (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define falsep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x false-term)))) (define truep (lambda (x lst) ((lambda (tmp) (if tmp tmp (term-member? x lst))) (term-equal? x true-term)))) (define false-term (quote *)) (define true-term (quote *)) (define trans-of-implies (lambda (n) (translate-term (list (quote implies) (trans-of-implies1 n) (list (quote implies) 0 n))))) (define trans-of-implies1 (lambda (n) (if (equal? n 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n 1) n) (trans-of-implies1 (- n 1)))))))) (define term-equal? (lambda (x y) (if (pair? x) ((lambda () (if (pair? y) (if (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)) #f) #f))) ((lambda () (equal? x y)))))) (define term-args-equal? (lambda (lst1 lst2) (if (null? lst1) ((lambda () (null? lst2))) (if (null? lst2) ((lambda () #f)) (if (term-equal? (car lst1) (car lst2)) ((lambda () (term-args-equal? (cdr lst1) (cdr lst2)))) ((lambda () #f))))))) (define term-member? (lambda (x lst) (if (null? lst) ((lambda () #f)) (if (term-equal? x (car lst)) ((lambda () #t)) ((lambda () (term-member? x (cdr lst)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* (quote ())) (set! if-constructor (symbol->symbol-record (quote if))) (set! false-term (translate-term (quote (f)))) (set! true-term (translate-term (quote (t)))) (setup))) (set! test-boyer (lambda (alist term n) (set! rewrite-count 0) ((lambda (answer) (if answer rewrite-count #f)) (test alist term n)))))) (main)))) */
/* 
"---------------- after alpha conversion:" */
/* 
((define main (lambda () ((lambda (count$254) ((lambda (input$255) ((lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () (run-r7rs-benchmark (string-append name$259 ":" s1$258 ":" s2$257) count$254 (lambda () (setup-boyer) (test-boyer alist term (hide count$254 input$255))) (lambda (rewrites$260) (if (number? rewrites$260) (= rewrites$260 output$256) #f)))))) "nboyer")) (number->string input$255))) (number->string count$254))) (read))) (read))) (read)))) (define alist #f) (define term #f) (define setup-boyer (lambda args$253 #t)) (define test-boyer (lambda args$252 #t)) (define hide (lambda (r$248 x$247) (call-with-values (lambda () (values (vector values (lambda (x$251) x$251)) (if (< r$248 100) 0 1))) (lambda (v$250 i$249) ((vector-ref v$250 i$249) x$247))))) (define run-r7rs-benchmark (lambda (name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) (set! rounded$231 (lambda (x$246) (/ (round (* 1000 x$246)) 1000))) (display "Running ") (display name$229) (newline) (flush-output-port) ((lambda (j/s$233) ((lambda (t0$234) ((lambda (j0$235) ((lambda () ((lambda (i$237 result$236) ((lambda (loop$238) (set! loop$238 (lambda (i$240 result$239) (if (< i$240 count$228) ((lambda () (loop$238 (+ i$240 1) (thunk$227)))) (if (ok?$226 result$239) ((lambda () ((lambda (j1$241) ((lambda (t1$242) ((lambda (jifs$243) ((lambda (secs$244) ((lambda (secs2$245) ((lambda () (display "Elapsed time: ") (write secs$244) (display " seconds (") (write secs2$245) (display ") for ") (display name$229) (newline)))) (rounded$231 (- t1$242 t0$234)))) (inexact (/ jifs$243 j/s$233)))) (- j1$241 j0$235))) (current-second))) (current-jiffy)) result$239)) ((lambda () (display "ERROR: returned incorrect result: ") (write result$239) (newline) result$239)))))) (loop$238 i$237 result$236)) #f)) 0 (if #f #f #f))))) (current-jiffy))) (current-second))) (jiffies-per-second))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () 0 (set! alist (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))))) (set! term (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) (set! setup$157 (lambda () (add-lemma-lst$156 (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))))) (set! add-lemma-lst$156 (lambda (lst$225) (if (null? lst$225) ((lambda () #t)) ((lambda () (add-lemma$155 (car lst$225)) (add-lemma-lst$156 (cdr lst$225))))))) (set! add-lemma$155 (lambda (term$224) (if (if (pair? term$224) (if (eq? (car term$224) (quote equal)) (pair? (cadr term$224)) #f) #f) ((lambda () (put$151 (car (cadr term$224)) (quote lemmas) (cons (translate-term$154 term$224) (get$150 (car (cadr term$224)) (quote lemmas)))))) ((lambda () (error #f "ADD-LEMMA did not like term:  " term$224)))))) (set! translate-term$154 (lambda (term$223) (if (pair? term$223) ((lambda () (cons (symbol->symbol-record$149 (car term$223)) (translate-args$153 (cdr term$223))))) ((lambda () term$223))))) (set! translate-args$153 (lambda (lst$222) (if (null? lst$222) ((lambda () (quote ()))) ((lambda () (cons (translate-term$154 (car lst$222)) (translate-args$153 (cdr lst$222)))))))) (set! untranslate-term$152 (lambda (term$221) (if (pair? term$221) ((lambda () (cons (get-name$144 (car term$221)) (map untranslate-term$152 (cdr term$221))))) ((lambda () term$221))))) (set! put$151 (lambda (sym$220 property$219 value$218) (put-lemmas!$146 (symbol->symbol-record$149 sym$220) value$218))) (set! get$150 (lambda (sym$217 property$216) (get-lemmas$145 (symbol->symbol-record$149 sym$217)))) (set! symbol->symbol-record$149 (lambda (sym$213) ((lambda (x$214) (if x$214 (cdr x$214) ((lambda (r$215) (set! *symbol-records-alist*$148 (cons (cons sym$213 r$215) *symbol-records-alist*$148)) r$215) (make-symbol-record$147 sym$213)))) (assq sym$213 *symbol-records-alist*$148)))) (set! *symbol-records-alist*$148 (quote ())) (set! make-symbol-record$147 (lambda (sym$212) (vector sym$212 (quote ())))) (set! put-lemmas!$146 (lambda (symbol-record$211 lemmas$210) (vector-set! symbol-record$211 1 lemmas$210))) (set! get-lemmas$145 (lambda (symbol-record$209) (vector-ref symbol-record$209 1))) (set! get-name$144 (lambda (symbol-record$208) (vector-ref symbol-record$208 0))) (set! symbol-record-equal?$143 (lambda (r1$207 r2$206) (eq? r1$207 r2$206))) (set! test$142 (lambda (alist$199 term$198 n$197) ((lambda (term$205) (tautp$138 term$205)) (apply-subst$140 (translate-alist$141 alist$199) (translate-term$154 ((lambda (term$201 n$200) ((lambda (lp$202) (set! lp$202 (lambda (term$204 n$203) (if (zero? n$203) term$204 (lp$202 (list (quote or) term$204 (quote (f))) (- n$203 1))))) (lp$202 term$201 n$200)) #f)) term$198 n$197)))))) (set! translate-alist$141 (lambda (alist$196) (if (null? alist$196) ((lambda () (quote ()))) ((lambda () (cons (cons (caar alist$196) (translate-term$154 (cdar alist$196))) (translate-alist$141 (cdr alist$196)))))))) (set! apply-subst$140 (lambda (alist$194 term$193) (if (pair? term$193) ((lambda () (cons (car term$193) (apply-subst-lst$139 alist$194 (cdr term$193))))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (cdr temp-temp$195) term$193)) (assq term$193 alist$194))))))) (set! apply-subst-lst$139 (lambda (alist$192 lst$191) (if (null? lst$191) ((lambda () (quote ()))) ((lambda () (cons (apply-subst$140 alist$192 (car lst$191)) (apply-subst-lst$139 alist$192 (cdr lst$191)))))))) (set! tautp$138 (lambda (x$190) (tautologyp$137 (rewrite$134 x$190) (quote ()) (quote ())))) (set! tautologyp$137 (lambda (x$189 true-lst$188 false-lst$187) (if (truep$126 x$189 true-lst$188) ((lambda () #t)) (if (falsep$127 x$189 false-lst$187) ((lambda () #f)) (if (pair? x$189) (if (eq? (car x$189) if-constructor$136) ((lambda () (if (truep$126 (cadr x$189) true-lst$188) ((lambda () (tautologyp$137 (caddr x$189) true-lst$188 false-lst$187))) (if (falsep$127 (cadr x$189) false-lst$187) ((lambda () (tautologyp$137 (cadddr x$189) true-lst$188 false-lst$187))) ((lambda () (if (tautologyp$137 (caddr x$189) (cons (cadr x$189) true-lst$188) false-lst$187) (tautologyp$137 (cadddr x$189) true-lst$188 (cons (cadr x$189) false-lst$187)) #f))))))) ((lambda () #f))) ((lambda () #f))))))) (set! if-constructor$136 (quote *)) (set! rewrite-count$135 0) (set! rewrite$134 (lambda (term$186) (set! rewrite-count$135 (+ rewrite-count$135 1)) (if (pair? term$186) ((lambda () (rewrite-with-lemmas$132 (cons (car term$186) (rewrite-args$133 (cdr term$186))) (get-lemmas$145 (car term$186))))) ((lambda () term$186))))) (set! rewrite-args$133 (lambda (lst$185) (if (null? lst$185) ((lambda () (quote ()))) ((lambda () (cons (rewrite$134 (car lst$185)) (rewrite-args$133 (cdr lst$185)))))))) (set! rewrite-with-lemmas$132 (lambda (term$184 lst$183) (if (null? lst$183) ((lambda () term$184)) (if (one-way-unify$130 term$184 (cadr (car lst$183))) ((lambda () (rewrite$134 (apply-subst$140 unify-subst$131 (caddr (car lst$183)))))) ((lambda () (rewrite-with-lemmas$132 term$184 (cdr lst$183)))))))) (set! unify-subst$131 (quote *)) (set! one-way-unify$130 (lambda (term1$182 term2$181) (set! unify-subst$131 (quote ())) (one-way-unify1$129 term1$182 term2$181))) (set! one-way-unify1$129 (lambda (term1$179 term2$178) (if (pair? term2$178) (if (pair? term1$179) (if (eq? (car term1$179) (car term2$178)) ((lambda () (one-way-unify1-lst$128 (cdr term1$179) (cdr term2$178)))) ((lambda () #f))) ((lambda () #f))) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () (term-equal?$121 term1$179 (cdr temp-temp$180)))) (if (number? term2$178) ((lambda () (equal? term1$179 term2$178))) ((lambda () (set! unify-subst$131 (cons (cons term2$178 term1$179) unify-subst$131)) #t))))) (assq term2$178 unify-subst$131))))))) (set! one-way-unify1-lst$128 (lambda (lst1$177 lst2$176) (if (null? lst1$177) ((lambda () (null? lst2$176))) (if (null? lst2$176) ((lambda () #f)) (if (one-way-unify1$129 (car lst1$177) (car lst2$176)) ((lambda () (one-way-unify1-lst$128 (cdr lst1$177) (cdr lst2$176)))) ((lambda () #f))))))) (set! falsep$127 (lambda (x$174 lst$173) ((lambda (tmp$175) (if tmp$175 tmp$175 (term-member?$119 x$174 lst$173))) (term-equal?$121 x$174 false-term$125)))) (set! truep$126 (lambda (x$171 lst$170) ((lambda (tmp$172) (if tmp$172 tmp$172 (term-member?$119 x$171 lst$170))) (term-equal?$121 x$171 true-term$124)))) (set! false-term$125 (quote *)) (set! true-term$124 (quote *)) (set! trans-of-implies$123 (lambda (n$169) (translate-term$154 (list (quote implies) (trans-of-implies1$122 n$169) (list (quote implies) 0 n$169))))) (set! trans-of-implies1$122 (lambda (n$168) (if (equal? n$168 1) ((lambda () (list (quote implies) 0 1))) ((lambda () (list (quote and) (list (quote implies) (- n$168 1) n$168) (trans-of-implies1$122 (- n$168 1)))))))) (set! term-equal?$121 (lambda (x$167 y$166) (if (pair? x$167) ((lambda () (if (pair? y$166) (if (symbol-record-equal?$143 (car x$167) (car y$166)) (term-args-equal?$120 (cdr x$167) (cdr y$166)) #f) #f))) ((lambda () (equal? x$167 y$166)))))) (set! term-args-equal?$120 (lambda (lst1$165 lst2$164) (if (null? lst1$165) ((lambda () (null? lst2$164))) (if (null? lst2$164) ((lambda () #f)) (if (term-equal?$121 (car lst1$165) (car lst2$164)) ((lambda () (term-args-equal?$120 (cdr lst1$165) (cdr lst2$164)))) ((lambda () #f))))))) (set! term-member?$119 (lambda (x$163 lst$162) (if (null? lst$162) ((lambda () #f)) (if (term-equal?$121 x$163 (car lst$162)) ((lambda () #t)) ((lambda () (term-member?$119 x$163 (cdr lst$162)))))))) (set! setup-boyer (lambda () (set! *symbol-records-alist*$148 (quote ())) (set! if-constructor$136 (symbol->symbol-record$149 (quote if))) (set! false-term$125 (translate-term$154 (quote (f)))) (set! true-term$124 (translate-term$154 (quote (t)))) (setup$157))) (set! test-boyer (lambda (alist$160 term$159 n$158) (set! rewrite-count$135 0) ((lambda (answer$161) (if answer$161 rewrite-count$135 #f)) (test$142 alist$160 term$159 n$158))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (main)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */
/* 
"---------------- after CPS:" */
/* 
((define main (lambda (k$633) (read (lambda (r$634) ((lambda (count$254) (read (lambda (r$635) ((lambda (input$255) (read (lambda (r$636) ((lambda (output$256) ((lambda (r$637) ((lambda (s2$257) ((lambda (r$638) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) r$638)) (number->string input$255))) r$637)) (number->string count$254))) r$636)))) r$635)))) r$634))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (r$574) ((lambda (j/s$233) (current-second (lambda (r$575) ((lambda (t0$234) (current-jiffy (lambda (r$576) ((lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) (loop$238 k$568 i$237 result$236)) (set! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) (loop$238 k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (r$586) ((lambda (j1$241) (current-second (lambda (r$587) ((lambda (t1$242) ((lambda (r$588) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (r$589) ((lambda (secs$244) ((lambda (r$597) (rounded$231 (lambda (r$590) ((lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$590)) r$597)) (- t1$242 t0$234))) r$589)) r$598)) (/ jifs$243 j/s$233))) r$588)) (- j1$241 j0$235))) r$587)))) r$586))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) #f)) 0 r$577)))))) r$576)))) r$575)))) r$574)))))))) name$229)) "Running ")) (set! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) (test$142 (lambda (r$308) ((lambda (answer$161) (if answer$161 (k$306 rewrite-count$135) (k$306 #f))) r$308)) alist$160 term$159 n$158)) (set! rewrite-count$135 0))))) (set! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) (symbol->symbol-record$149 (lambda (r$319) ((lambda (r$312) ((lambda (r$318) (translate-term$154 (lambda (r$317) ((lambda (r$313) ((lambda (r$316) (translate-term$154 (lambda (r$315) ((lambda (r$314) (setup$157 k$310)) (set! true-term$124 r$315))) r$316)) (quote (t)))) (set! false-term$125 r$317))) r$318)) (quote (f)))) (set! if-constructor$136 r$319))) r$320)) (quote if))) (set! *symbol-records-alist*$148 r$321))) (quote ()))))) (set! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) (term-equal?$121 (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) (term-member?$119 k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) (term-equal?$121 (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) (term-args-equal?$120 k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) (symbol-record-equal?$143 (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) (term-args-equal?$120 k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) (trans-of-implies1$122 (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) (trans-of-implies1$122 (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) (translate-term$154 k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set! true-term$124 r$363))) (quote *))) (set! false-term$125 r$364))) (quote *))) (set! truep$126 r$365))) (lambda (k$366 x$171 lst$170) (term-equal?$121 (lambda (r$367) ((lambda (tmp$172) (if tmp$172 (k$366 tmp$172) (term-member?$119 k$366 x$171 lst$170))) r$367)) x$171 true-term$124)))) (set! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) (term-equal?$121 (lambda (r$370) ((lambda (tmp$175) (if tmp$175 (k$369 tmp$175) (term-member?$119 k$369 x$174 lst$173))) r$370)) x$174 false-term$125)))) (set! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) (one-way-unify1$129 (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) (one-way-unify1-lst$128 k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) (one-way-unify1-lst$128 k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (r$389) ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) (term-equal?$121 k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set! unify-subst$131 r$393))) (cons r$394 unify-subst$131))) (cons term2$178 term1$179)))))) (number? term2$178)))) r$389)) (assq term2$178 unify-subst$131)))))) (pair? term2$178))))) (set! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) (one-way-unify1$129 k$396 term1$182 term2$181)) (set! unify-subst$131 r$398))) (quote ()))))) (set! unify-subst$131 r$399))) (quote *))) (set! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) (one-way-unify$130 (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) (apply-subst$140 (lambda (r$404) (rewrite$134 k$401 r$404)) unify-subst$131 r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) (rewrite-with-lemmas$132 k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) (rewrite$134 (lambda (r$413) ((lambda (r$415) (rewrite-args$133 (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) (rewrite-args$133 (lambda (r$425) ((lambda (r$421) ((lambda (r$423) (get-lemmas$145 (lambda (r$422) (rewrite-with-lemmas$132 k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set! rewrite-count$135 r$427))) (+ rewrite-count$135 1))))) (set! rewrite-count$135 0))) (set! if-constructor$136 r$428))) (quote *))) (set! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) (truep$126 (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) (falsep$127 (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) (truep$126 (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) (tautologyp$137 k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) (falsep$127 (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) (tautologyp$137 k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) (tautologyp$137 (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) (tautologyp$137 k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 if-constructor$136))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set! tautp$138 r$449))) (lambda (k$450 x$190) (rewrite$134 (lambda (r$451) ((lambda (r$452) ((lambda (r$453) (tautologyp$137 k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) (apply-subst$140 (lambda (r$457) ((lambda (r$459) (apply-subst-lst$139 (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) (apply-subst-lst$139 (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (r$467) ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) r$467)) (assq term$193 alist$194)))))) (pair? term$193))))) (set! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) (translate-term$154 (lambda (r$475) ((lambda (r$471) ((lambda (r$473) (translate-alist$141 (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) (translate-alist$141 (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) (lp$202 (lambda (r$482) (translate-term$154 (lambda (r$481) (apply-subst$140 (lambda (r$479) ((lambda (term$205) (tautp$138 k$478 term$205)) r$479)) r$480 r$481)) r$482)) term$201 n$200)) (set! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) (lp$202 k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) #f)) term$198 n$197)) alist$199)))) (set! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set! *symbol-records-alist*$148 r$502))) (quote ()))) (set! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (r$505) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) (make-symbol-record$147 (lambda (r$506) ((lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set! *symbol-records-alist*$148 r$508))) (cons r$509 *symbol-records-alist*$148))) (cons sym$213 r$215))) r$506)) sym$213))) r$505)) (assq sym$213 *symbol-records-alist*$148))))) (set! get$150 r$510))) (lambda (k$511 sym$217 property$216) (symbol->symbol-record$149 (lambda (r$512) (get-lemmas$145 k$511 r$512)) sym$217)))) (set! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) (symbol->symbol-record$149 (lambda (r$515) (put-lemmas!$146 k$514 r$515 value$218)) sym$220)))) (set! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) (get-name$144 (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) untranslate-term$152 r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) (translate-term$154 (lambda (r$526) ((lambda (r$528) (translate-args$153 (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) (symbol->symbol-record$149 (lambda (r$533) ((lambda (r$535) (translate-args$153 (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) (translate-term$154 (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) (get$150 (lambda (r$544) ((lambda (r$542) (put$151 k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term:  " term$224))))))))) (set! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) (add-lemma$155 (lambda (r$558) ((lambda (r$559) (add-lemma-lst$156 k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) (add-lemma-lst$156 k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */
/* 
"---------------- after cps optimizations:" */
/* 
((define main (lambda (k$633) (read (lambda (count$254) (read (lambda (input$255) (read (lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) (number->string input$255))) (number->string count$254)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (j/s$233) (current-second (lambda (t0$234) (current-jiffy (lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) (loop$238 k$568 i$237 result$236)) (set! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) (loop$238 k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (j1$241) (current-second (lambda (t1$242) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (secs$244) ((lambda (r$597) (rounded$231 (lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$597)) (- t1$242 t0$234))) r$598)) (/ jifs$243 j/s$233))) (- j1$241 j0$235)))))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) #f)) 0 r$577)))))))))))))))) name$229)) "Running ")) (set! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) (test$142 (lambda (answer$161) (if answer$161 (k$306 rewrite-count$135) (k$306 #f))) alist$160 term$159 n$158)) (set! rewrite-count$135 0))))) (set! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) (symbol->symbol-record$149 (lambda (r$319) ((lambda (r$312) ((lambda (r$318) (translate-term$154 (lambda (r$317) ((lambda (r$313) ((lambda (r$316) (translate-term$154 (lambda (r$315) ((lambda (r$314) (setup$157 k$310)) (set! true-term$124 r$315))) r$316)) (quote (t)))) (set! false-term$125 r$317))) r$318)) (quote (f)))) (set! if-constructor$136 r$319))) r$320)) (quote if))) (set! *symbol-records-alist*$148 r$321))) (quote ()))))) (set! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) (term-equal?$121 (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) (term-member?$119 k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) (term-equal?$121 (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) (term-args-equal?$120 k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) (symbol-record-equal?$143 (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) (term-args-equal?$120 k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) (trans-of-implies1$122 (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) (trans-of-implies1$122 (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) (translate-term$154 k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set! true-term$124 r$363))) (quote *))) (set! false-term$125 r$364))) (quote *))) (set! truep$126 r$365))) (lambda (k$366 x$171 lst$170) (term-equal?$121 (lambda (tmp$172) (if tmp$172 (k$366 tmp$172) (term-member?$119 k$366 x$171 lst$170))) x$171 true-term$124)))) (set! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) (term-equal?$121 (lambda (tmp$175) (if tmp$175 (k$369 tmp$175) (term-member?$119 k$369 x$174 lst$173))) x$174 false-term$125)))) (set! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) (one-way-unify1$129 (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) (one-way-unify1-lst$128 k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) (one-way-unify1-lst$128 k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) (term-equal?$121 k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set! unify-subst$131 r$393))) (cons r$394 unify-subst$131))) (cons term2$178 term1$179)))))) (number? term2$178)))) (assq term2$178 unify-subst$131)))))) (pair? term2$178))))) (set! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) (one-way-unify1$129 k$396 term1$182 term2$181)) (set! unify-subst$131 r$398))) (quote ()))))) (set! unify-subst$131 r$399))) (quote *))) (set! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) (one-way-unify$130 (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) (apply-subst$140 (lambda (r$404) (rewrite$134 k$401 r$404)) unify-subst$131 r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) (rewrite-with-lemmas$132 k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) (rewrite$134 (lambda (r$413) ((lambda (r$415) (rewrite-args$133 (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) (rewrite-args$133 (lambda (r$425) ((lambda (r$421) ((lambda (r$423) (get-lemmas$145 (lambda (r$422) (rewrite-with-lemmas$132 k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set! rewrite-count$135 r$427))) (+ rewrite-count$135 1))))) (set! rewrite-count$135 0))) (set! if-constructor$136 r$428))) (quote *))) (set! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) (truep$126 (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) (falsep$127 (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) (truep$126 (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) (tautologyp$137 k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) (falsep$127 (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) (tautologyp$137 k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) (tautologyp$137 (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) (tautologyp$137 k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 if-constructor$136))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set! tautp$138 r$449))) (lambda (k$450 x$190) (rewrite$134 (lambda (r$451) ((lambda (r$452) ((lambda (r$453) (tautologyp$137 k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) (apply-subst$140 (lambda (r$457) ((lambda (r$459) (apply-subst-lst$139 (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) (apply-subst-lst$139 (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) (assq term$193 alist$194)))))) (pair? term$193))))) (set! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) (translate-term$154 (lambda (r$475) ((lambda (r$471) ((lambda (r$473) (translate-alist$141 (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) (translate-alist$141 (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) (lp$202 (lambda (r$482) (translate-term$154 (lambda (r$481) (apply-subst$140 (lambda (term$205) (tautp$138 k$478 term$205)) r$480 r$481)) r$482)) term$201 n$200)) (set! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) (lp$202 k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) #f)) term$198 n$197)) alist$199)))) (set! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set! *symbol-records-alist*$148 r$502))) (quote ()))) (set! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) (make-symbol-record$147 (lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set! *symbol-records-alist*$148 r$508))) (cons r$509 *symbol-records-alist*$148))) (cons sym$213 r$215))) sym$213))) (assq sym$213 *symbol-records-alist*$148))))) (set! get$150 r$510))) (lambda (k$511 sym$217 property$216) (symbol->symbol-record$149 (lambda (r$512) (get-lemmas$145 k$511 r$512)) sym$217)))) (set! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) (symbol->symbol-record$149 (lambda (r$515) (put-lemmas!$146 k$514 r$515 value$218)) sym$220)))) (set! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) (get-name$144 (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) untranslate-term$152 r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) (translate-term$154 (lambda (r$526) ((lambda (r$528) (translate-args$153 (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) (symbol->symbol-record$149 (lambda (r$533) ((lambda (r$535) (translate-args$153 (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) (translate-term$154 (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) (get$150 (lambda (r$544) ((lambda (r$542) (put$151 k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term:  " term$224))))))))) (set! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) (add-lemma$155 (lambda (r$558) ((lambda (r$559) (add-lemma-lst$156 k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) (add-lemma-lst$156 k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */
/* 
"---------------- after wrap-mutables:" */
/* 
((define main (lambda (k$633) (read (lambda (count$254) (read (lambda (input$255) (read (lambda (output$256) ((lambda (s2$257) ((lambda (s1$258) ((lambda (name$259) ((lambda () ((lambda (r$639) ((lambda (r$640) ((lambda (r$641) (run-r7rs-benchmark k$633 r$639 count$254 r$640 r$641)) (lambda (k$642 rewrites$260) ((lambda (r$643) (if r$643 (k$642 (= rewrites$260 output$256)) (k$642 #f))) (number? rewrites$260))))) (lambda (k$644) (setup-boyer (lambda (r$645) (hide (lambda (r$646) (test-boyer k$644 alist term r$646)) count$254 input$255)))))) (string-append name$259 ":" s1$258 ":" s2$257))))) "nboyer")) (number->string input$255))) (number->string count$254)))))))))) (define alist #f) (define term #f) (define setup-boyer (lambda (k$626 . args$253) (k$626 #t))) (define test-boyer (lambda (k$623 . args$252) (k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((lambda (r$610) ((lambda (r$611) (call-with-values k$609 r$610 r$611)) (lambda (k$612 v$250 i$249) ((lambda (r$613) (r$613 k$612 x$247)) (vector-ref v$250 i$249))))) (lambda (k$614) ((lambda (r$619) (vector (lambda (r$615) ((lambda (k$617) ((lambda (r$618) (if r$618 (k$617 0) (k$617 1))) (< r$248 100))) (lambda (r$616) (values k$614 r$615 r$616)))) values r$619)) (lambda (k$620 x$251) (k$620 x$251))))))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((lambda (rounded$231) ((lambda (rounded$231) ((lambda (rounded$232) ((lambda (r$603) ((lambda (r$569) (display (lambda (r$570) (display (lambda (r$571) (newline (lambda (r$572) (flush-output-port (lambda (r$573) (jiffies-per-second (lambda (j/s$233) (current-second (lambda (t0$234) (current-jiffy (lambda (j0$235) ((lambda () ((lambda (k$602) (if #f (k$602 #f) (k$602 #f))) (lambda (r$577) ((lambda (i$237 result$236) ((lambda (loop$238) ((lambda (loop$238) ((lambda (r$579) ((lambda (r$578) ((cell-get loop$238) k$568 i$237 result$236)) (set-cell! loop$238 r$579))) (lambda (k$580 i$240 result$239) ((lambda (r$581) (if r$581 ((lambda () ((lambda (r$582) (thunk$227 (lambda (r$583) ((cell-get loop$238) k$580 r$582 r$583)))) (+ i$240 1)))) (ok?$226 (lambda (r$584) (if r$584 ((lambda () (current-jiffy (lambda (j1$241) (current-second (lambda (t1$242) ((lambda (jifs$243) ((lambda (r$598) (inexact (lambda (secs$244) ((lambda (r$597) ((cell-get rounded$231) (lambda (secs2$245) ((lambda () (display (lambda (r$591) (write (lambda (r$592) (display (lambda (r$593) (write (lambda (r$594) (display (lambda (r$595) (display (lambda (r$596) (newline (lambda (r$585) (k$580 result$239)))) name$229)) ") for ")) secs2$245)) " seconds (")) secs$244)) "Elapsed time: ")))) r$597)) (- t1$242 t0$234))) r$598)) (/ jifs$243 j/s$233))) (- j1$241 j0$235)))))))) ((lambda () (display (lambda (r$599) (write (lambda (r$600) (newline (lambda (r$601) (k$580 result$239)))) result$239)) "ERROR: returned incorrect result: "))))) result$239))) (< i$240 count$228))))) (cell loop$238))) #f)) 0 r$577)))))))))))))))) name$229)) "Running ")) (set-cell! rounded$231 r$603))) (lambda (k$604 x$246) ((lambda (r$606) (round (lambda (r$605) (k$604 (/ r$605 1000))) r$606)) (* 1000 x$246))))) #f)) (cell rounded$231))) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((lambda (setup$157) ((lambda (add-lemma-lst$156) ((lambda (add-lemma$155) ((lambda (translate-term$154) ((lambda (translate-args$153) ((lambda (untranslate-term$152) ((lambda (put$151) ((lambda (get$150) ((lambda (symbol->symbol-record$149) ((lambda (*symbol-records-alist*$148) ((lambda (make-symbol-record$147) ((lambda (put-lemmas!$146) ((lambda (get-lemmas$145) ((lambda (get-name$144) ((lambda (symbol-record-equal?$143) ((lambda (test$142) ((lambda (translate-alist$141) ((lambda (apply-subst$140) ((lambda (apply-subst-lst$139) ((lambda (tautp$138) ((lambda (tautologyp$137) ((lambda (if-constructor$136) ((lambda (rewrite-count$135) ((lambda (rewrite$134) ((lambda (rewrite-args$133) ((lambda (rewrite-with-lemmas$132) ((lambda (unify-subst$131) ((lambda (one-way-unify$130) ((lambda (one-way-unify1$129) ((lambda (one-way-unify1-lst$128) ((lambda (falsep$127) ((lambda (truep$126) ((lambda (false-term$125) ((lambda (true-term$124) ((lambda (trans-of-implies$123) ((lambda (trans-of-implies1$122) ((lambda (term-equal?$121) ((lambda (term-args-equal?$120) ((lambda (term-member?$119) ((lambda (r$561) ((lambda (r$265) ((lambda (r$555) ((lambda (r$266) ((lambda (r$537) ((lambda (r$267) ((lambda (r$530) ((lambda (r$268) ((lambda (r$523) ((lambda (r$269) ((lambda (r$516) ((lambda (r$270) ((lambda (r$513) ((lambda (r$271) ((lambda (r$510) ((lambda (r$272) ((lambda (r$503) ((lambda (r$273) ((lambda (r$502) ((lambda (r$274) ((lambda (r$499) ((lambda (r$275) ((lambda (r$497) ((lambda (r$276) ((lambda (r$495) ((lambda (r$277) ((lambda (r$493) ((lambda (r$278) ((lambda (r$491) ((lambda (r$279) ((lambda (r$477) ((lambda (r$280) ((lambda (r$468) ((lambda (r$281) ((lambda (r$461) ((lambda (r$282) ((lambda (r$454) ((lambda (r$283) ((lambda (r$449) ((lambda (r$284) ((lambda (r$429) ((lambda (r$285) ((lambda (r$428) ((lambda (r$286) ((lambda (r$287) ((lambda (r$417) ((lambda (r$288) ((lambda (r$410) ((lambda (r$289) ((lambda (r$400) ((lambda (r$290) ((lambda (r$399) ((lambda (r$291) ((lambda (r$395) ((lambda (r$292) ((lambda (r$380) ((lambda (r$293) ((lambda (r$371) ((lambda (r$294) ((lambda (r$368) ((lambda (r$295) ((lambda (r$365) ((lambda (r$296) ((lambda (r$364) ((lambda (r$297) ((lambda (r$363) ((lambda (r$298) ((lambda (r$356) ((lambda (r$299) ((lambda (r$346) ((lambda (r$300) ((lambda (r$337) ((lambda (r$301) ((lambda (r$328) ((lambda (r$302) ((lambda (r$322) ((lambda (r$303) ((lambda (r$309) ((lambda (r$304) ((lambda (r$305) ((lambda (r$264) (main %halt)) (set-global! test-boyer r$305))) (lambda (k$306 alist$160 term$159 n$158) ((lambda (r$307) ((cell-get test$142) (lambda (answer$161) (if answer$161 (k$306 (cell-get rewrite-count$135)) (k$306 #f))) alist$160 term$159 n$158)) (set-cell! rewrite-count$135 0))))) (set-global! setup-boyer r$309))) (lambda (k$310) ((lambda (r$321) ((lambda (r$311) ((lambda (r$320) ((cell-get symbol->symbol-record$149) (lambda (r$319) ((lambda (r$312) ((lambda (r$318) ((cell-get translate-term$154) (lambda (r$317) ((lambda (r$313) ((lambda (r$316) ((cell-get translate-term$154) (lambda (r$315) ((lambda (r$314) ((cell-get setup$157) k$310)) (set-cell! true-term$124 r$315))) r$316)) (quote (t)))) (set-cell! false-term$125 r$317))) r$318)) (quote (f)))) (set-cell! if-constructor$136 r$319))) r$320)) (quote if))) (set-cell! *symbol-records-alist*$148 r$321))) (quote ()))))) (set-cell! term-member?$119 r$322))) (lambda (k$323 x$163 lst$162) ((lambda (r$324) (if r$324 ((lambda () (k$323 #f))) ((lambda (r$327) ((cell-get term-equal?$121) (lambda (r$325) (if r$325 ((lambda () (k$323 #t))) ((lambda () ((lambda (r$326) ((cell-get term-member?$119) k$323 x$163 r$326)) (cdr lst$162)))))) x$163 r$327)) (car lst$162)))) (null? lst$162))))) (set-cell! term-args-equal?$120 r$328))) (lambda (k$329 lst1$165 lst2$164) ((lambda (r$330) (if r$330 ((lambda () (k$329 (null? lst2$164)))) ((lambda (r$331) (if r$331 ((lambda () (k$329 #f))) ((lambda (r$335) ((lambda (r$336) ((cell-get term-equal?$121) (lambda (r$332) (if r$332 ((lambda () ((lambda (r$333) ((lambda (r$334) ((cell-get term-args-equal?$120) k$329 r$333 r$334)) (cdr lst2$164))) (cdr lst1$165)))) ((lambda () (k$329 #f))))) r$335 r$336)) (car lst2$164))) (car lst1$165)))) (null? lst2$164)))) (null? lst1$165))))) (set-cell! term-equal?$121 r$337))) (lambda (k$338 x$167 y$166) ((lambda (r$339) (if r$339 ((lambda () ((lambda (r$340) (if r$340 ((lambda (r$344) ((lambda (r$345) ((cell-get symbol-record-equal?$143) (lambda (r$341) (if r$341 ((lambda (r$342) ((lambda (r$343) ((cell-get term-args-equal?$120) k$338 r$342 r$343)) (cdr y$166))) (cdr x$167)) (k$338 #f))) r$344 r$345)) (car y$166))) (car x$167)) (k$338 #f))) (pair? y$166)))) ((lambda () (k$338 (equal? x$167 y$166)))))) (pair? x$167))))) (set-cell! trans-of-implies1$122 r$346))) (lambda (k$347 n$168) ((lambda (r$348) (if r$348 ((lambda () ((lambda (r$349) (list k$347 r$349 0 1)) (quote implies)))) ((lambda () ((lambda (r$350) ((lambda (r$354) ((lambda (r$355) (list (lambda (r$351) ((lambda (r$353) ((cell-get trans-of-implies1$122) (lambda (r$352) (list k$347 r$350 r$351 r$352)) r$353)) (- n$168 1))) r$354 r$355 n$168)) (- n$168 1))) (quote implies))) (quote and)))))) (equal? n$168 1))))) (set-cell! trans-of-implies$123 r$356))) (lambda (k$357 n$169) ((lambda (r$359) ((cell-get trans-of-implies1$122) (lambda (r$360) ((lambda (r$362) (list (lambda (r$361) (list (lambda (r$358) ((cell-get translate-term$154) k$357 r$358)) r$359 r$360 r$361)) r$362 0 n$169)) (quote implies))) n$169)) (quote implies))))) (set-cell! true-term$124 r$363))) (quote *))) (set-cell! false-term$125 r$364))) (quote *))) (set-cell! truep$126 r$365))) (lambda (k$366 x$171 lst$170) ((cell-get term-equal?$121) (lambda (tmp$172) (if tmp$172 (k$366 tmp$172) ((cell-get term-member?$119) k$366 x$171 lst$170))) x$171 (cell-get true-term$124))))) (set-cell! falsep$127 r$368))) (lambda (k$369 x$174 lst$173) ((cell-get term-equal?$121) (lambda (tmp$175) (if tmp$175 (k$369 tmp$175) ((cell-get term-member?$119) k$369 x$174 lst$173))) x$174 (cell-get false-term$125))))) (set-cell! one-way-unify1-lst$128 r$371))) (lambda (k$372 lst1$177 lst2$176) ((lambda (r$373) (if r$373 ((lambda () (k$372 (null? lst2$176)))) ((lambda (r$374) (if r$374 ((lambda () (k$372 #f))) ((lambda (r$378) ((lambda (r$379) ((cell-get one-way-unify1$129) (lambda (r$375) (if r$375 ((lambda () ((lambda (r$376) ((lambda (r$377) ((cell-get one-way-unify1-lst$128) k$372 r$376 r$377)) (cdr lst2$176))) (cdr lst1$177)))) ((lambda () (k$372 #f))))) r$378 r$379)) (car lst2$176))) (car lst1$177)))) (null? lst2$176)))) (null? lst1$177))))) (set-cell! one-way-unify1$129 r$380))) (lambda (k$381 term1$179 term2$178) ((lambda (r$382) (if r$382 ((lambda (r$383) (if r$383 ((lambda (r$387) ((lambda (r$388) ((lambda (r$384) (if r$384 ((lambda () ((lambda (r$385) ((lambda (r$386) ((cell-get one-way-unify1-lst$128) k$381 r$385 r$386)) (cdr term2$178))) (cdr term1$179)))) ((lambda () (k$381 #f))))) (eq? r$387 r$388))) (car term2$178))) (car term1$179)) ((lambda () (k$381 #f))))) (pair? term1$179)) ((lambda () ((lambda (temp-temp$180) (if temp-temp$180 ((lambda () ((lambda (r$390) ((cell-get term-equal?$121) k$381 term1$179 r$390)) (cdr temp-temp$180)))) ((lambda (r$391) (if r$391 ((lambda () (k$381 (equal? term1$179 term2$178)))) ((lambda () ((lambda (r$394) ((lambda (r$393) ((lambda (r$392) (k$381 #t)) (set-cell! unify-subst$131 r$393))) (cons r$394 (cell-get unify-subst$131)))) (cons term2$178 term1$179)))))) (number? term2$178)))) (assq term2$178 (cell-get unify-subst$131))))))) (pair? term2$178))))) (set-cell! one-way-unify$130 r$395))) (lambda (k$396 term1$182 term2$181) ((lambda (r$398) ((lambda (r$397) ((cell-get one-way-unify1$129) k$396 term1$182 term2$181)) (set-cell! unify-subst$131 r$398))) (quote ()))))) (set-cell! unify-subst$131 r$399))) (quote *))) (set-cell! rewrite-with-lemmas$132 r$400))) (lambda (k$401 term$184 lst$183) ((lambda (r$402) (if r$402 ((lambda () (k$401 term$184))) ((lambda (r$409) ((lambda (r$408) ((cell-get one-way-unify$130) (lambda (r$403) (if r$403 ((lambda () ((lambda (r$406) ((lambda (r$405) ((cell-get apply-subst$140) (lambda (r$404) ((cell-get rewrite$134) k$401 r$404)) (cell-get unify-subst$131) r$405)) (caddr r$406))) (car lst$183)))) ((lambda () ((lambda (r$407) ((cell-get rewrite-with-lemmas$132) k$401 term$184 r$407)) (cdr lst$183)))))) term$184 r$408)) (cadr r$409))) (car lst$183)))) (null? lst$183))))) (set-cell! rewrite-args$133 r$410))) (lambda (k$411 lst$185) ((lambda (r$412) (if r$412 ((lambda () (k$411 (quote ())))) ((lambda () ((lambda (r$416) ((cell-get rewrite$134) (lambda (r$413) ((lambda (r$415) ((cell-get rewrite-args$133) (lambda (r$414) (k$411 (cons r$413 r$414))) r$415)) (cdr lst$185))) r$416)) (car lst$185)))))) (null? lst$185))))) (set-cell! rewrite$134 r$417))) (lambda (k$418 term$186) ((lambda (r$427) ((lambda (r$419) ((lambda (r$420) (if r$420 ((lambda () ((lambda (r$424) ((lambda (r$426) ((cell-get rewrite-args$133) (lambda (r$425) ((lambda (r$421) ((lambda (r$423) ((cell-get get-lemmas$145) (lambda (r$422) ((cell-get rewrite-with-lemmas$132) k$418 r$421 r$422)) r$423)) (car term$186))) (cons r$424 r$425))) r$426)) (cdr term$186))) (car term$186)))) ((lambda () (k$418 term$186))))) (pair? term$186))) (set-cell! rewrite-count$135 r$427))) (+ (cell-get rewrite-count$135) 1))))) (set-cell! rewrite-count$135 0))) (set-cell! if-constructor$136 r$428))) (quote *))) (set-cell! tautologyp$137 r$429))) (lambda (k$430 x$189 true-lst$188 false-lst$187) ((cell-get truep$126) (lambda (r$431) (if r$431 ((lambda () (k$430 #t))) ((cell-get falsep$127) (lambda (r$432) (if r$432 ((lambda () (k$430 #f))) ((lambda (r$433) (if r$433 ((lambda (r$448) ((lambda (r$434) (if r$434 ((lambda () ((lambda (r$447) ((cell-get truep$126) (lambda (r$435) (if r$435 ((lambda () ((lambda (r$436) ((cell-get tautologyp$137) k$430 r$436 true-lst$188 false-lst$187)) (caddr x$189)))) ((lambda (r$446) ((cell-get falsep$127) (lambda (r$437) (if r$437 ((lambda () ((lambda (r$438) ((cell-get tautologyp$137) k$430 r$438 true-lst$188 false-lst$187)) (cadddr x$189)))) ((lambda () ((lambda (r$443) ((lambda (r$445) ((lambda (r$444) ((cell-get tautologyp$137) (lambda (r$439) (if r$439 ((lambda (r$440) ((lambda (r$442) ((lambda (r$441) ((cell-get tautologyp$137) k$430 r$440 true-lst$188 r$441)) (cons r$442 false-lst$187))) (cadr x$189))) (cadddr x$189)) (k$430 #f))) r$443 r$444 false-lst$187)) (cons r$445 true-lst$188))) (cadr x$189))) (caddr x$189)))))) r$446 false-lst$187)) (cadr x$189)))) r$447 true-lst$188)) (cadr x$189)))) ((lambda () (k$430 #f))))) (eq? r$448 (cell-get if-constructor$136)))) (car x$189)) ((lambda () (k$430 #f))))) (pair? x$189)))) x$189 false-lst$187))) x$189 true-lst$188)))) (set-cell! tautp$138 r$449))) (lambda (k$450 x$190) ((cell-get rewrite$134) (lambda (r$451) ((lambda (r$452) ((lambda (r$453) ((cell-get tautologyp$137) k$450 r$451 r$452 r$453)) (quote ()))) (quote ()))) x$190)))) (set-cell! apply-subst-lst$139 r$454))) (lambda (k$455 alist$192 lst$191) ((lambda (r$456) (if r$456 ((lambda () (k$455 (quote ())))) ((lambda () ((lambda (r$460) ((cell-get apply-subst$140) (lambda (r$457) ((lambda (r$459) ((cell-get apply-subst-lst$139) (lambda (r$458) (k$455 (cons r$457 r$458))) alist$192 r$459)) (cdr lst$191))) alist$192 r$460)) (car lst$191)))))) (null? lst$191))))) (set-cell! apply-subst$140 r$461))) (lambda (k$462 alist$194 term$193) ((lambda (r$463) (if r$463 ((lambda () ((lambda (r$464) ((lambda (r$466) ((cell-get apply-subst-lst$139) (lambda (r$465) (k$462 (cons r$464 r$465))) alist$194 r$466)) (cdr term$193))) (car term$193)))) ((lambda () ((lambda (temp-temp$195) (if temp-temp$195 (k$462 (cdr temp-temp$195)) (k$462 term$193))) (assq term$193 alist$194)))))) (pair? term$193))))) (set-cell! translate-alist$141 r$468))) (lambda (k$469 alist$196) ((lambda (r$470) (if r$470 ((lambda () (k$469 (quote ())))) ((lambda () ((lambda (r$474) ((lambda (r$476) ((cell-get translate-term$154) (lambda (r$475) ((lambda (r$471) ((lambda (r$473) ((cell-get translate-alist$141) (lambda (r$472) (k$469 (cons r$471 r$472))) r$473)) (cdr alist$196))) (cons r$474 r$475))) r$476)) (cdar alist$196))) (caar alist$196)))))) (null? alist$196))))) (set-cell! test$142 r$477))) (lambda (k$478 alist$199 term$198 n$197) ((cell-get translate-alist$141) (lambda (r$480) ((lambda (term$201 n$200) ((lambda (lp$202) ((lambda (lp$202) ((lambda (r$484) ((lambda (r$483) ((cell-get lp$202) (lambda (r$482) ((cell-get translate-term$154) (lambda (r$481) ((cell-get apply-subst$140) (lambda (term$205) ((cell-get tautp$138) k$478 term$205)) r$480 r$481)) r$482)) term$201 n$200)) (set-cell! lp$202 r$484))) (lambda (k$485 term$204 n$203) (zero? (lambda (r$486) (if r$486 (k$485 term$204) ((lambda (r$489) ((lambda (r$490) (list (lambda (r$487) ((lambda (r$488) ((cell-get lp$202) k$485 r$487 r$488)) (- n$203 1))) r$489 term$204 r$490)) (quote (f)))) (quote or)))) n$203)))) (cell lp$202))) #f)) term$198 n$197)) alist$199)))) (set-cell! symbol-record-equal?$143 r$491))) (lambda (k$492 r1$207 r2$206) (k$492 (eq? r1$207 r2$206))))) (set-cell! get-name$144 r$493))) (lambda (k$494 symbol-record$208) (k$494 (vector-ref symbol-record$208 0))))) (set-cell! get-lemmas$145 r$495))) (lambda (k$496 symbol-record$209) (k$496 (vector-ref symbol-record$209 1))))) (set-cell! put-lemmas!$146 r$497))) (lambda (k$498 symbol-record$211 lemmas$210) (k$498 (vector-set! symbol-record$211 1 lemmas$210))))) (set-cell! make-symbol-record$147 r$499))) (lambda (k$500 sym$212) ((lambda (r$501) (vector k$500 sym$212 r$501)) (quote ()))))) (set-cell! *symbol-records-alist*$148 r$502))) (quote ()))) (set-cell! symbol->symbol-record$149 r$503))) (lambda (k$504 sym$213) ((lambda (x$214) (if x$214 (k$504 (cdr x$214)) ((cell-get make-symbol-record$147) (lambda (r$215) ((lambda (r$509) ((lambda (r$508) ((lambda (r$507) (k$504 r$215)) (set-cell! *symbol-records-alist*$148 r$508))) (cons r$509 (cell-get *symbol-records-alist*$148)))) (cons sym$213 r$215))) sym$213))) (assq sym$213 (cell-get *symbol-records-alist*$148)))))) (set-cell! get$150 r$510))) (lambda (k$511 sym$217 property$216) ((cell-get symbol->symbol-record$149) (lambda (r$512) ((cell-get get-lemmas$145) k$511 r$512)) sym$217)))) (set-cell! put$151 r$513))) (lambda (k$514 sym$220 property$219 value$218) ((cell-get symbol->symbol-record$149) (lambda (r$515) ((cell-get put-lemmas!$146) k$514 r$515 value$218)) sym$220)))) (set-cell! untranslate-term$152 r$516))) (lambda (k$517 term$221) ((lambda (r$518) (if r$518 ((lambda () ((lambda (r$522) ((cell-get get-name$144) (lambda (r$519) ((lambda (r$521) (map (lambda (r$520) (k$517 (cons r$519 r$520))) (cell-get untranslate-term$152) r$521)) (cdr term$221))) r$522)) (car term$221)))) ((lambda () (k$517 term$221))))) (pair? term$221))))) (set-cell! translate-args$153 r$523))) (lambda (k$524 lst$222) ((lambda (r$525) (if r$525 ((lambda () (k$524 (quote ())))) ((lambda () ((lambda (r$529) ((cell-get translate-term$154) (lambda (r$526) ((lambda (r$528) ((cell-get translate-args$153) (lambda (r$527) (k$524 (cons r$526 r$527))) r$528)) (cdr lst$222))) r$529)) (car lst$222)))))) (null? lst$222))))) (set-cell! translate-term$154 r$530))) (lambda (k$531 term$223) ((lambda (r$532) (if r$532 ((lambda () ((lambda (r$536) ((cell-get symbol->symbol-record$149) (lambda (r$533) ((lambda (r$535) ((cell-get translate-args$153) (lambda (r$534) (k$531 (cons r$533 r$534))) r$535)) (cdr term$223))) r$536)) (car term$223)))) ((lambda () (k$531 term$223))))) (pair? term$223))))) (set-cell! add-lemma$155 r$537))) (lambda (k$538 term$224) ((lambda (k$549) ((lambda (r$550) (if r$550 ((lambda (r$553) ((lambda (r$554) ((lambda (r$551) (if r$551 ((lambda (r$552) (k$549 (pair? r$552))) (cadr term$224)) (k$549 #f))) (eq? r$553 r$554))) (quote equal))) (car term$224)) (k$549 #f))) (pair? term$224))) (lambda (r$539) (if r$539 ((lambda () ((lambda (r$548) ((lambda (r$540) ((lambda (r$541) ((cell-get translate-term$154) (lambda (r$543) ((lambda (r$547) ((lambda (r$545) ((lambda (r$546) ((cell-get get$150) (lambda (r$544) ((lambda (r$542) ((cell-get put$151) k$538 r$540 r$541 r$542)) (cons r$543 r$544))) r$545 r$546)) (quote lemmas))) (car r$547))) (cadr term$224))) term$224)) (quote lemmas))) (car r$548))) (cadr term$224)))) ((lambda () (error k$538 #f "ADD-LEMMA did not like term:  " term$224))))))))) (set-cell! add-lemma-lst$156 r$555))) (lambda (k$556 lst$225) ((lambda (r$557) (if r$557 ((lambda () (k$556 #t))) ((lambda () ((lambda (r$560) ((cell-get add-lemma$155) (lambda (r$558) ((lambda (r$559) ((cell-get add-lemma-lst$156) k$556 r$559)) (cdr lst$225))) r$560)) (car lst$225)))))) (null? lst$225))))) (set-cell! setup$157 r$561))) (lambda (k$562) ((lambda (r$563) ((cell-get add-lemma-lst$156) k$562 r$563)) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))))) (cell term-member?$119))) (cell term-args-equal?$120))) (cell term-equal?$121))) (cell trans-of-implies1$122))) (cell trans-of-implies$123))) (cell true-term$124))) (cell false-term$125))) (cell truep$126))) (cell falsep$127))) (cell one-way-unify1-lst$128))) (cell one-way-unify1$129))) (cell one-way-unify$130))) (cell unify-subst$131))) (cell rewrite-with-lemmas$132))) (cell rewrite-args$133))) (cell rewrite$134))) (cell rewrite-count$135))) (cell if-constructor$136))) (cell tautologyp$137))) (cell tautp$138))) (cell apply-subst-lst$139))) (cell apply-subst$140))) (cell translate-alist$141))) (cell test$142))) (cell symbol-record-equal?$143))) (cell get-name$144))) (cell get-lemmas$145))) (cell put-lemmas!$146))) (cell make-symbol-record$147))) (cell *symbol-records-alist*$148))) (cell symbol->symbol-record$149))) (cell get$150))) (cell put$151))) (cell untranslate-term$152))) (cell translate-args$153))) (cell translate-term$154))) (cell add-lemma$155))) (cell add-lemma-lst$156))) (cell setup$157))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */
/* 
"---------------- after closure-convert:" */
/* 
((define main (lambda (k$633) ((%closure-ref read 0) read (%closure (lambda (self$1099 count$254) ((%closure-ref read 0) read (%closure (lambda (self$1100 input$255) ((%closure-ref read 0) read (%closure (lambda (self$1101 output$256) ((%closure (lambda (self$1102 s2$257) ((%closure (lambda (self$1103 s1$258) ((%closure (lambda (self$1104 name$259) ((%closure (lambda (self$1105) ((%closure (lambda (self$1106 r$639) ((%closure (lambda (self$1110 r$640) ((%closure (lambda (self$1113 r$641) ((%closure-ref run-r7rs-benchmark 0) run-r7rs-benchmark (%closure-ref self$1113 2) (%closure-ref self$1113 3) (%closure-ref self$1113 1) (%closure-ref self$1113 4) r$641)) (%closure-ref self$1110 1) (%closure-ref self$1110 2) (%closure-ref self$1110 4) r$640) (%closure (lambda (self$1111 k$642 rewrites$260) ((%closure (lambda (self$1112 r$643) (if r$643 ((%closure-ref (%closure-ref self$1112 1) 0) (%closure-ref self$1112 1) (= (%closure-ref self$1112 3) (%closure-ref self$1112 2))) ((%closure-ref (%closure-ref self$1112 1) 0) (%closure-ref self$1112 1) #f))) k$642 (%closure-ref self$1111 1) rewrites$260) (number? rewrites$260))) (%closure-ref self$1110 3)))) (%closure-ref self$1106 1) (%closure-ref self$1106 3) (%closure-ref self$1106 4) r$639) (%closure (lambda (self$1107 k$644) ((%closure-ref setup-boyer 0) setup-boyer (%closure (lambda (self$1108 r$645) ((%closure-ref hide 0) hide (%closure (lambda (self$1109 r$646) ((%closure-ref test-boyer 0) test-boyer (%closure-ref self$1109 1) alist term r$646)) (%closure-ref self$1108 3)) (%closure-ref self$1108 1) (%closure-ref self$1108 2))) (%closure-ref self$1107 1) (%closure-ref self$1107 2) k$644))) (%closure-ref self$1106 1) (%closure-ref self$1106 2)))) (%closure-ref self$1105 1) (%closure-ref self$1105 2) (%closure-ref self$1105 3) (%closure-ref self$1105 5)) (string-append (%closure-ref self$1105 4) ":" (%closure-ref self$1105 6) ":" (%closure-ref self$1105 7)))) (%closure-ref self$1104 1) (%closure-ref self$1104 2) (%closure-ref self$1104 3) name$259 (%closure-ref self$1104 4) (%closure-ref self$1104 5) (%closure-ref self$1104 6)))) (%closure-ref self$1103 1) (%closure-ref self$1103 2) (%closure-ref self$1103 3) (%closure-ref self$1103 4) s1$258 (%closure-ref self$1103 5)) "nboyer")) (%closure-ref self$1102 1) (%closure-ref self$1102 2) (%closure-ref self$1102 3) (%closure-ref self$1102 4) s2$257) (number->string (%closure-ref self$1102 2)))) (%closure-ref self$1101 1) (%closure-ref self$1101 2) (%closure-ref self$1101 3) output$256) (number->string (%closure-ref self$1101 1)))) (%closure-ref self$1100 1) input$255 (%closure-ref self$1100 2)))) count$254 (%closure-ref self$1099 1)))) k$633)))) (define alist (%closure-ref #f 0) #f) (define term (%closure-ref #f 0) #f) (define setup-boyer (lambda (k$626 . args$253) ((%closure-ref k$626 0) k$626 #t))) (define test-boyer (lambda (k$623 . args$252) ((%closure-ref k$623 0) k$623 #t))) (define hide (lambda (k$609 r$248 x$247) ((%closure (lambda (self$1095 r$610) ((%closure (lambda (self$1098 r$611) ((%closure-ref call-with-values 0) call-with-values (%closure-ref self$1098 1) (%closure-ref self$1098 2) r$611)) (%closure-ref self$1095 1) r$610) (%closure (lambda (self$1096 k$612 v$250 i$249) ((%closure (lambda (self$1097 r$613) ((%closure-ref r$613 0) r$613 (%closure-ref self$1097 1) (%closure-ref self$1097 2))) k$612 (%closure-ref self$1096 1)) (vector-ref v$250 i$249))) (%closure-ref self$1095 2)))) k$609 x$247) (%closure (lambda (self$1088 k$614) ((%closure (lambda (self$1090 r$619) ((%closure-ref vector 0) vector (%closure (lambda (self$1091 r$615) ((%closure (lambda (self$1093 k$617) ((%closure (lambda (self$1094 r$618) (if r$618 ((%closure-ref (%closure-ref self$1094 1) 0) (%closure-ref self$1094 1) 0) ((%closure-ref (%closure-ref self$1094 1) 0) (%closure-ref self$1094 1) 1))) k$617) (< (%closure-ref self$1093 1) 100))) (%closure-ref self$1091 2)) (%closure (lambda (self$1092 r$616) ((%closure-ref values 0) values (%closure-ref self$1092 1) (%closure-ref self$1092 2) r$616)) (%closure-ref self$1091 1) r$615))) (%closure-ref self$1090 1) (%closure-ref self$1090 2)) values r$619)) k$614 (%closure-ref self$1088 1)) (%closure (lambda (self$1089 k$620 x$251) ((%closure-ref k$620 0) k$620 x$251))))) r$248)))) (define run-r7rs-benchmark (lambda (k$568 name$229 count$228 thunk$227 ok?$226) ((%closure (lambda (self$1040 rounded$231) ((%closure (lambda (self$1041 rounded$231) ((%closure (lambda (self$1042 rounded$232) ((%closure (lambda (self$1046 r$603) ((%closure (lambda (self$1047 r$569) ((%closure-ref display 0) display (%closure (lambda (self$1048 r$570) ((%closure-ref display 0) display (%closure (lambda (self$1049 r$571) ((%closure-ref newline 0) newline (%closure (lambda (self$1050 r$572) ((%closure-ref flush-output-port 0) flush-output-port (%closure (lambda (self$1051 r$573) ((%closure-ref jiffies-per-second 0) jiffies-per-second (%closure (lambda (self$1052 j/s$233) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1053 t0$234) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1054 j0$235) ((%closure (lambda (self$1055) ((lambda (k$602) (if #f ((%closure-ref k$602 0) k$602 #f) ((%closure-ref k$602 0) k$602 #f))) (%closure (lambda (self$1056 r$577) ((%closure (lambda (self$1057 i$237 result$236) ((%closure (lambda (self$1058 loop$238) ((%closure (lambda (self$1059 loop$238) ((%closure (lambda (self$1086 r$579) ((%closure (lambda (self$1087 r$578) ((%closure-ref (cell-get (%closure-ref self$1087 3)) 0) (cell-get (%closure-ref self$1087 3)) (%closure-ref self$1087 2) (%closure-ref self$1087 1) (%closure-ref self$1087 4))) (%closure-ref self$1086 1) (%closure-ref self$1086 2) (%closure-ref self$1086 3) (%closure-ref self$1086 4)) (set-cell! (%closure-ref self$1086 3) r$579))) (%closure-ref self$1059 2) (%closure-ref self$1059 5) loop$238 (%closure-ref self$1059 8)) (%closure (lambda (self$1060 k$580 i$240 result$239) ((%closure (lambda (self$1061 r$581) (if r$581 ((%closure (lambda (self$1083) ((%closure (lambda (self$1084 r$582) ((%closure-ref (%closure-ref self$1084 3) 0) (%closure-ref self$1084 3) (%closure (lambda (self$1085 r$583) ((%closure-ref (cell-get (%closure-ref self$1085 2)) 0) (cell-get (%closure-ref self$1085 2)) (%closure-ref self$1085 1) (%closure-ref self$1085 3) r$583)) (%closure-ref self$1084 1) (%closure-ref self$1084 2) r$582))) (%closure-ref self$1083 2) (%closure-ref self$1083 3) (%closure-ref self$1083 4)) (+ (%closure-ref self$1083 1) 1))) (%closure-ref self$1061 1) (%closure-ref self$1061 4) (%closure-ref self$1061 5) (%closure-ref self$1061 11))) ((%closure-ref (%closure-ref self$1061 7) 0) (%closure-ref self$1061 7) (%closure (lambda (self$1062 r$584) (if r$584 ((%closure (lambda (self$1067) ((%closure-ref current-jiffy 0) current-jiffy (%closure (lambda (self$1068 j1$241) ((%closure-ref current-second 0) current-second (%closure (lambda (self$1069 t1$242) ((%closure (lambda (self$1070 jifs$243) ((%closure (lambda (self$1071 r$598) ((%closure-ref inexact 0) inexact (%closure (lambda (self$1072 secs$244) ((%closure (lambda (self$1073 r$597) ((%closure-ref (cell-get (%closure-ref self$1073 4)) 0) (cell-get (%closure-ref self$1073 4)) (%closure (lambda (self$1074 secs2$245) ((%closure (lambda (self$1075) ((%closure-ref display 0) display (%closure (lambda (self$1076 r$591) ((%closure-ref write 0) write (%closure (lambda (self$1077 r$592) ((%closure-ref display 0) display (%closure (lambda (self$1078 r$593) ((%closure-ref write 0) write (%closure (lambda (self$1079 r$594) ((%closure-ref display 0) display (%closure (lambda (self$1080 r$595) ((%closure-ref display 0) display (%closure (lambda (self$1081 r$596) ((%closure-ref newline 0) newline (%closure (lambda (self$1082 r$585) ((%closure-ref (%closure-ref self$1082 1) 0) (%closure-ref self$1082 1) (%closure-ref self$1082 2))) (%closure-ref self$1081 1) (%closure-ref self$1081 2)))) (%closure-ref self$1080 1) (%closure-ref self$1080 3)) (%closure-ref self$1080 2))) (%closure-ref self$1079 1) (%closure-ref self$1079 2) (%closure-ref self$1079 3)) ") for ")) (%closure-ref self$1078 1) (%closure-ref self$1078 2) (%closure-ref self$1078 3)) (%closure-ref self$1078 4))) (%closure-ref self$1077 1) (%closure-ref self$1077 2) (%closure-ref self$1077 3) (%closure-ref self$1077 4)) " seconds (")) (%closure-ref self$1076 1) (%closure-ref self$1076 2) (%closure-ref self$1076 3) (%closure-ref self$1076 5)) (%closure-ref self$1076 4))) (%closure-ref self$1075 1) (%closure-ref self$1075 2) (%closure-ref self$1075 3) (%closure-ref self$1075 4) (%closure-ref self$1075 5)) "Elapsed time: ")) (%closure-ref self$1074 1) (%closure-ref self$1074 2) (%closure-ref self$1074 3) (%closure-ref self$1074 4) secs2$245))) (%closure-ref self$1073 1) (%closure-ref self$1073 2) (%closure-ref self$1073 3) (%closure-ref self$1073 5)) r$597)) (%closure-ref self$1072 1) (%closure-ref self$1072 2) (%closure-ref self$1072 3) (%closure-ref self$1072 4) secs$244) (- (%closure-ref self$1072 6) (%closure-ref self$1072 5)))) (%closure-ref self$1071 1) (%closure-ref self$1071 2) (%closure-ref self$1071 3) (%closure-ref self$1071 4) (%closure-ref self$1071 5) (%closure-ref self$1071 6)) r$598)) (%closure-ref self$1070 2) (%closure-ref self$1070 3) (%closure-ref self$1070 4) (%closure-ref self$1070 5) (%closure-ref self$1070 6) (%closure-ref self$1070 7)) (/ jifs$243 (%closure-ref self$1070 1)))) (%closure-ref self$1069 1) (%closure-ref self$1069 4) (%closure-ref self$1069 5) (%closure-ref self$1069 6) (%closure-ref self$1069 7) (%closure-ref self$1069 8) t1$242) (- (%closure-ref self$1069 3) (%closure-ref self$1069 2)))) (%closure-ref self$1068 1) (%closure-ref self$1068 2) j1$241 (%closure-ref self$1068 3) (%closure-ref self$1068 4) (%closure-ref self$1068 5) (%closure-ref self$1068 6) (%closure-ref self$1068 7)))) (%closure-ref self$1067 1) (%closure-ref self$1067 2) (%closure-ref self$1067 3) (%closure-ref self$1067 4) (%closure-ref self$1067 5) (%closure-ref self$1067 6) (%closure-ref self$1067 7)))) (%closure-ref self$1062 1) (%closure-ref self$1062 2) (%closure-ref self$1062 3) (%closure-ref self$1062 4) (%closure-ref self$1062 5) (%closure-ref self$1062 6) (%closure-ref self$1062 7))) ((%closure (lambda (self$1063) ((%closure-ref display 0) display (%closure (lambda (self$1064 r$599) ((%closure-ref write 0) write (%closure (lambda (self$1065 r$600) ((%closure-ref newline 0) newline (%closure (lambda (self$1066 r$601) ((%closure-ref (%closure-ref self$1066 1) 0) (%closure-ref self$1066 1) (%closure-ref self$1066 2))) (%closure-ref self$1065 1) (%closure-ref self$1065 2)))) (%closure-ref self$1064 1) (%closure-ref self$1064 2)) (%closure-ref self$1064 2))) (%closure-ref self$1063 1) (%closure-ref self$1063 2)) "ERROR: returned incorrect result: ")) (%closure-ref self$1062 3) (%closure-ref self$1062 5))))) (%closure-ref self$1061 2) (%closure-ref self$1061 3) (%closure-ref self$1061 4) (%closure-ref self$1061 6) (%closure-ref self$1061 8) (%closure-ref self$1061 9) (%closure-ref self$1061 10)) (%closure-ref self$1061 8)))) i$240 (%closure-ref self$1060 2) (%closure-ref self$1060 3) k$580 (%closure-ref self$1060 4) (%closure-ref self$1060 5) (%closure-ref self$1060 6) result$239 (%closure-ref self$1060 7) (%closure-ref self$1060 8) (%closure-ref self$1060 9)) (< i$240 (%closure-ref self$1060 1)))) (%closure-ref self$1059 1) (%closure-ref self$1059 3) (%closure-ref self$1059 4) loop$238 (%closure-ref self$1059 6) (%closure-ref self$1059 7) (%closure-ref self$1059 9) (%closure-ref self$1059 10) (%closure-ref self$1059 11)))) (%closure-ref self$1058 1) (%closure-ref self$1058 2) (%closure-ref self$1058 3) (%closure-ref self$1058 4) (%closure-ref self$1058 5) (%closure-ref self$1058 6) (%closure-ref self$1058 7) (%closure-ref self$1058 8) (%closure-ref self$1058 9) (%closure-ref self$1058 10) (%closure-ref self$1058 11)) (cell loop$238))) (%closure-ref self$1057 1) i$237 (%closure-ref self$1057 2) (%closure-ref self$1057 3) (%closure-ref self$1057 4) (%closure-ref self$1057 5) (%closure-ref self$1057 6) result$236 (%closure-ref self$1057 7) (%closure-ref self$1057 8) (%closure-ref self$1057 9)) #f)) (%closure-ref self$1056 1) (%closure-ref self$1056 2) (%closure-ref self$1056 3) (%closure-ref self$1056 4) (%closure-ref self$1056 5) (%closure-ref self$1056 6) (%closure-ref self$1056 7) (%closure-ref self$1056 8) (%closure-ref self$1056 9)) 0 r$577)) (%closure-ref self$1055 1) (%closure-ref self$1055 2) (%closure-ref self$1055 3) (%closure-ref self$1055 4) (%closure-ref self$1055 5) (%closure-ref self$1055 6) (%closure-ref self$1055 7) (%closure-ref self$1055 8) (%closure-ref self$1055 9)))) (%closure-ref self$1054 1) (%closure-ref self$1054 2) j0$235 (%closure-ref self$1054 3) (%closure-ref self$1054 4) (%closure-ref self$1054 5) (%closure-ref self$1054 6) (%closure-ref self$1054 7) (%closure-ref self$1054 8)))) (%closure-ref self$1053 1) (%closure-ref self$1053 2) (%closure-ref self$1053 3) (%closure-ref self$1053 4) (%closure-ref self$1053 5) (%closure-ref self$1053 6) t0$234 (%closure-ref self$1053 7)))) (%closure-ref self$1052 1) j/s$233 (%closure-ref self$1052 2) (%closure-ref self$1052 3) (%closure-ref self$1052 4) (%closure-ref self$1052 5) (%closure-ref self$1052 6)))) (%closure-ref self$1051 1) (%closure-ref self$1051 2) (%closure-ref self$1051 3) (%closure-ref self$1051 4) (%closure-ref self$1051 5) (%closure-ref self$1051 6)))) (%closure-ref self$1050 1) (%closure-ref self$1050 2) (%closure-ref self$1050 3) (%closure-ref self$1050 4) (%closure-ref self$1050 5) (%closure-ref self$1050 6)))) (%closure-ref self$1049 1) (%closure-ref self$1049 2) (%closure-ref self$1049 3) (%closure-ref self$1049 4) (%closure-ref self$1049 5) (%closure-ref self$1049 6)))) (%closure-ref self$1048 1) (%closure-ref self$1048 2) (%closure-ref self$1048 3) (%closure-ref self$1048 4) (%closure-ref self$1048 5) (%closure-ref self$1048 6)) (%closure-ref self$1048 3))) (%closure-ref self$1047 1) (%closure-ref self$1047 2) (%closure-ref self$1047 3) (%closure-ref self$1047 4) (%closure-ref self$1047 5) (%closure-ref self$1047 6)) "Running ")) (%closure-ref self$1046 1) (%closure-ref self$1046 2) (%closure-ref self$1046 3) (%closure-ref self$1046 4) (%closure-ref self$1046 5) (%closure-ref self$1046 6)) (set-cell! (%closure-ref self$1046 5) r$603))) (%closure-ref self$1042 1) (%closure-ref self$1042 2) (%closure-ref self$1042 3) (%closure-ref self$1042 4) (%closure-ref self$1042 5) (%closure-ref self$1042 6)) (%closure (lambda (self$1043 k$604 x$246) ((%closure (lambda (self$1044 r$606) ((%closure-ref round 0) round (%closure (lambda (self$1045 r$605) ((%closure-ref (%closure-ref self$1045 1) 0) (%closure-ref self$1045 1) (/ r$605 1000))) (%closure-ref self$1044 1)) r$606)) k$604) (* 1000 x$246)))))) (%closure-ref self$1041 1) (%closure-ref self$1041 2) (%closure-ref self$1041 3) (%closure-ref self$1041 4) rounded$231 (%closure-ref self$1041 5)) #f)) (%closure-ref self$1040 1) (%closure-ref self$1040 2) (%closure-ref self$1040 3) (%closure-ref self$1040 4) (%closure-ref self$1040 5)) (cell rounded$231))) count$228 k$568 name$229 ok?$226 thunk$227) #f))) ((lambda (*symbol-records-alist*$118 add-lemma$117 add-lemma-lst$116 apply-subst$115 apply-subst-lst$114 false-term$113 falsep$112 get$111 get-lemmas$110 get-name$109 if-constructor$108 make-symbol-record$107 one-way-unify$106 one-way-unify1$105 one-way-unify1-lst$104 put$103 put-lemmas!$102 rewrite$101 rewrite-args$100 rewrite-count$99 rewrite-with-lemmas$98 setup$97 symbol->symbol-record$96 symbol-record-equal?$95 tautologyp$94 tautp$93 term-args-equal?$92 term-equal?$91 term-member?$90 test$89 trans-of-implies$88 trans-of-implies1$87 translate-alist$86 translate-args$85 translate-term$84 true-term$83 truep$82 unify-subst$81 untranslate-term$80) ((lambda () ((lambda (r$261) ((lambda (r$565) ((lambda (r$262) ((lambda (r$564) ((lambda (r$263) ((lambda () ((lambda (setup$157 add-lemma-lst$156 add-lemma$155 translate-term$154 translate-args$153 untranslate-term$152 put$151 get$150 symbol->symbol-record$149 *symbol-records-alist*$148 make-symbol-record$147 put-lemmas!$146 get-lemmas$145 get-name$144 symbol-record-equal?$143 test$142 translate-alist$141 apply-subst$140 apply-subst-lst$139 tautp$138 tautologyp$137 if-constructor$136 rewrite-count$135 rewrite$134 rewrite-args$133 rewrite-with-lemmas$132 unify-subst$131 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 falsep$127 truep$126 false-term$125 true-term$124 trans-of-implies$123 trans-of-implies1$122 term-equal?$121 term-args-equal?$120 term-member?$119) ((%closure (lambda (self$647 setup$157) ((%closure (lambda (self$648 add-lemma-lst$156) ((%closure (lambda (self$649 add-lemma$155) ((%closure (lambda (self$650 translate-term$154) ((%closure (lambda (self$651 translate-args$153) ((%closure (lambda (self$652 untranslate-term$152) ((%closure (lambda (self$653 put$151) ((%closure (lambda (self$654 get$150) ((%closure (lambda (self$655 symbol->symbol-record$149) ((%closure (lambda (self$656 *symbol-records-alist*$148) ((%closure (lambda (self$657 make-symbol-record$147) ((%closure (lambda (self$658 put-lemmas!$146) ((%closure (lambda (self$659 get-lemmas$145) ((%closure (lambda (self$660 get-name$144) ((%closure (lambda (self$661 symbol-record-equal?$143) ((%closure (lambda (self$662 test$142) ((%closure (lambda (self$663 translate-alist$141) ((%closure (lambda (self$664 apply-subst$140) ((%closure (lambda (self$665 apply-subst-lst$139) ((%closure (lambda (self$666 tautp$138) ((%closure (lambda (self$667 tautologyp$137) ((%closure (lambda (self$668 if-constructor$136) ((%closure (lambda (self$669 rewrite-count$135) ((%closure (lambda (self$670 rewrite$134) ((%closure (lambda (self$671 rewrite-args$133) ((%closure (lambda (self$672 rewrite-with-lemmas$132) ((%closure (lambda (self$673 unify-subst$131) ((%closure (lambda (self$674 one-way-unify$130) ((%closure (lambda (self$675 one-way-unify1$129) ((%closure (lambda (self$676 one-way-unify1-lst$128) ((%closure (lambda (self$677 falsep$127) ((%closure (lambda (self$678 truep$126) ((%closure (lambda (self$679 false-term$125) ((%closure (lambda (self$680 true-term$124) ((%closure (lambda (self$681 trans-of-implies$123) ((%closure (lambda (self$682 trans-of-implies1$122) ((%closure (lambda (self$683 term-equal?$121) ((%closure (lambda (self$684 term-args-equal?$120) ((%closure (lambda (self$685 term-member?$119) ((%closure (lambda (self$688 r$561) ((%closure (lambda (self$689 r$265) ((%closure (lambda (self$697 r$555) ((%closure (lambda (self$698 r$266) ((%closure (lambda (self$718 r$537) ((%closure (lambda (self$719 r$267) ((%closure (lambda (self$728 r$530) ((%closure (lambda (self$729 r$268) ((%closure (lambda (self$738 r$523) ((%closure (lambda (self$739 r$269) ((%closure (lambda (self$748 r$516) ((%closure (lambda (self$749 r$270) ((%closure (lambda (self$752 r$513) ((%closure (lambda (self$753 r$271) ((%closure (lambda (self$756 r$510) ((%closure (lambda (self$757 r$272) ((%closure (lambda (self$764 r$503) ((%closure (lambda (self$765 r$273) ((%closure (lambda (self$766 r$502) ((%closure (lambda (self$767 r$274) ((%closure (lambda (self$770 r$499) ((%closure (lambda (self$771 r$275) ((%closure (lambda (self$773 r$497) ((%closure (lambda (self$774 r$276) ((%closure (lambda (self$776 r$495) ((%closure (lambda (self$777 r$277) ((%closure (lambda (self$779 r$493) ((%closure (lambda (self$780 r$278) ((%closure (lambda (self$782 r$491) ((%closure (lambda (self$783 r$279) ((%closure (lambda (self$800 r$477) ((%closure (lambda (self$801 r$280) ((%closure (lambda (self$812 r$468) ((%closure (lambda (self$813 r$281) ((%closure (lambda (self$822 r$461) ((%closure (lambda (self$823 r$282) ((%closure (lambda (self$832 r$454) ((%closure (lambda (self$833 r$283) ((%closure (lambda (self$838 r$449) ((%closure (lambda (self$839 r$284) ((%closure (lambda (self$867 r$429) ((%closure (lambda (self$868 r$285) ((%closure (lambda (self$869 r$428) ((%closure (lambda (self$870 r$286) ((%closure (lambda (self$871 r$287) ((%closure (lambda (self$884 r$417) ((%closure (lambda (self$885 r$288) ((%closure (lambda (self$894 r$410) ((%closure (lambda (self$895 r$289) ((%closure (lambda (self$908 r$400) ((%closure (lambda (self$909 r$290) ((%closure (lambda (self$910 r$399) ((%closure (lambda (self$911 r$291) ((%closure (lambda (self$915 r$395) ((%closure (lambda (self$916 r$292) ((%closure (lambda (self$938 r$380) ((%closure (lambda (self$939 r$293) ((%closure (lambda (self$952 r$371) ((%closure (lambda (self$953 r$294) ((%closure (lambda (self$956 r$368) ((%closure (lambda (self$957 r$295) ((%closure (lambda (self$960 r$365) ((%closure (lambda (self$961 r$296) ((%closure (lambda (self$962 r$364) ((%closure (lambda (self$963 r$297) ((%closure (lambda (self$964 r$363) ((%closure (lambda (self$965 r$298) ((%closure (lambda (self$972 r$356) ((%closure (lambda (self$973 r$299) ((%closure (lambda (self$985 r$346) ((%closure (lambda (self$986 r$300) ((%closure (lambda (self$997 r$337) ((%closure (lambda (self$998 r$301) ((%closure (lambda (self$1011 r$328) ((%closure (lambda (self$1012 r$302) ((%closure (lambda (self$1021 r$322) ((%closure (lambda (self$1022 r$303) ((%closure (lambda (self$1035 r$309) ((%closure (lambda (self$1036 r$304) ((lambda (r$305) ((lambda (r$264) ((%closure-ref main 0) main %halt)) (set-global! test-boyer r$305))) (%closure (lambda (self$1037 k$306 alist$160 term$159 n$158) ((%closure (lambda (self$1038 r$307) ((%closure-ref (cell-get (%closure-ref self$1038 6)) 0) (cell-get (%closure-ref self$1038 6)) (%closure (lambda (self$1039 answer$161) (if answer$161 ((%closure-ref (%closure-ref self$1039 1) 0) (%closure-ref self$1039 1) (cell-get (%closure-ref self$1039 2))) ((%closure-ref (%closure-ref self$1039 1) 0) (%closure-ref self$1039 1) #f))) (%closure-ref self$1038 2) (%closure-ref self$1038 4)) (%closure-ref self$1038 1) (%closure-ref self$1038 5) (%closure-ref self$1038 3))) alist$160 k$306 n$158 (%closure-ref self$1037 1) term$159 (%closure-ref self$1037 2)) (set-cell! (%closure-ref self$1037 1) 0))) (%closure-ref self$1036 1) (%closure-ref self$1036 2)))) (%closure-ref self$1035 1) (%closure-ref self$1035 2)) (set-global! setup-boyer r$309))) (%closure-ref self$1022 4) (%closure-ref self$1022 7)) (%closure (lambda (self$1023 k$310) ((%closure (lambda (self$1024 r$321) ((%closure (lambda (self$1025 r$311) ((%closure (lambda (self$1026 r$320) ((%closure-ref (cell-get (%closure-ref self$1026 5)) 0) (cell-get (%closure-ref self$1026 5)) (%closure (lambda (self$1027 r$319) ((%closure (lambda (self$1028 r$312) ((%closure (lambda (self$1029 r$318) ((%closure-ref (cell-get (%closure-ref self$1029 4)) 0) (cell-get (%closure-ref self$1029 4)) (%closure (lambda (self$1030 r$317) ((%closure (lambda (self$1031 r$313) ((%closure (lambda (self$1032 r$316) ((%closure-ref (cell-get (%closure-ref self$1032 3)) 0) (cell-get (%closure-ref self$1032 3)) (%closure (lambda (self$1033 r$315) ((%closure (lambda (self$1034 r$314) ((%closure-ref (cell-get (%closure-ref self$1034 2)) 0) (cell-get (%closure-ref self$1034 2)) (%closure-ref self$1034 1))) (%closure-ref self$1033 1) (%closure-ref self$1033 2)) (set-cell! (%closure-ref self$1033 3) r$315))) (%closure-ref self$1032 1) (%closure-ref self$1032 2) (%closure-ref self$1032 4)) r$316)) (%closure-ref self$1031 1) (%closure-ref self$1031 2) (%closure-ref self$1031 3) (%closure-ref self$1031 4)) (quote (t)))) (%closure-ref self$1030 2) (%closure-ref self$1030 3) (%closure-ref self$1030 4) (%closure-ref self$1030 5)) (set-cell! (%closure-ref self$1030 1) r$317))) (%closure-ref self$1029 1) (%closure-ref self$1029 2) (%closure-ref self$1029 3) (%closure-ref self$1029 4) (%closure-ref self$1029 5)) r$318)) (%closure-ref self$1028 1) (%closure-ref self$1028 2) (%closure-ref self$1028 3) (%closure-ref self$1028 4) (%closure-ref self$1028 5)) (quote (f)))) (%closure-ref self$1027 1) (%closure-ref self$1027 3) (%closure-ref self$1027 4) (%closure-ref self$1027 5) (%closure-ref self$1027 6)) (set-cell! (%closure-ref self$1027 2) r$319))) (%closure-ref self$1026 1) (%closure-ref self$1026 2) (%closure-ref self$1026 3) (%closure-ref self$1026 4) (%closure-ref self$1026 6) (%closure-ref self$1026 7)) r$320)) (%closure-ref self$1025 1) (%closure-ref self$1025 2) (%closure-ref self$1025 3) (%closure-ref self$1025 4) (%closure-ref self$1025 5) (%closure-ref self$1025 6) (%closure-ref self$1025 7)) (quote if))) (%closure-ref self$1024 2) (%closure-ref self$1024 3) (%closure-ref self$1024 4) (%closure-ref self$1024 5) (%closure-ref self$1024 6) (%closure-ref self$1024 7) (%closure-ref self$1024 8)) (set-cell! (%closure-ref self$1024 1) r$321))) (%closure-ref self$1023 1) (%closure-ref self$1023 2) (%closure-ref self$1023 3) k$310 (%closure-ref self$1023 4) (%closure-ref self$1023 5) (%closure-ref self$1023 6) (%closure-ref self$1023 7)) (quote ()))) (%closure-ref self$1022 1) (%closure-ref self$1022 2) (%closure-ref self$1022 3) (%closure-ref self$1022 5) (%closure-ref self$1022 6) (%closure-ref self$1022 8) (%closure-ref self$1022 9)))) (%closure-ref self$1021 1) (%closure-ref self$1021 2) (%closure-ref self$1021 3) (%closure-ref self$1021 4) (%closure-ref self$1021 5) (%closure-ref self$1021 6) (%closure-ref self$1021 8) (%closure-ref self$1021 9) (%closure-ref self$1021 10)) (set-cell! (%closure-ref self$1021 7) r$322))) (%closure-ref self$1012 1) (%closure-ref self$1012 2) (%closure-ref self$1012 3) (%closure-ref self$1012 4) (%closure-ref self$1012 5) (%closure-ref self$1012 6) (%closure-ref self$1012 8) (%closure-ref self$1012 9) (%closure-ref self$1012 10) (%closure-ref self$1012 11)) (%closure (lambda (self$1013 k$323 x$163 lst$162) ((%closure (lambda (self$1014 r$324) (if r$324 ((%closure (lambda (self$1020) ((%closure-ref (%closure-ref self$1020 1) 0) (%closure-ref self$1020 1) #f)) (%closure-ref self$1014 1))) ((%closure (lambda (self$1015 r$327) ((%closure-ref (cell-get (%closure-ref self$1015 3)) 0) (cell-get (%closure-ref self$1015 3)) (%closure (lambda (self$1016 r$325) (if r$325 ((%closure (lambda (self$1019) ((%closure-ref (%closure-ref self$1019 1) 0) (%closure-ref self$1019 1) #t)) (%closure-ref self$1016 1))) ((%closure (lambda (self$1017) ((%closure (lambda (self$1018 r$326) ((%closure-ref (cell-get (%closure-ref self$1018 2)) 0) (cell-get (%closure-ref self$1018 2)) (%closure-ref self$1018 1) (%closure-ref self$1018 3) r$326)) (%closure-ref self$1017 1) (%closure-ref self$1017 3) (%closure-ref self$1017 4)) (cdr (%closure-ref self$1017 2)))) (%closure-ref self$1016 1) (%closure-ref self$1016 2) (%closure-ref self$1016 3) (%closure-ref self$1016 4))))) (%closure-ref self$1015 1) (%closure-ref self$1015 2) (%closure-ref self$1015 4) (%closure-ref self$1015 5)) (%closure-ref self$1015 5) r$327)) (%closure-ref self$1014 1) (%closure-ref self$1014 2) (%closure-ref self$1014 3) (%closure-ref self$1014 4) (%closure-ref self$1014 5)) (car (%closure-ref self$1014 2))))) k$323 lst$162 (%closure-ref self$1013 1) (%closure-ref self$1013 2) x$163) (null? lst$162))) (%closure-ref self$1012 7) (%closure-ref self$1012 8)))) (%closure-ref self$1011 1) (%closure-ref self$1011 2) (%closure-ref self$1011 3) (%closure-ref self$1011 4) (%closure-ref self$1011 5) (%closure-ref self$1011 6) (%closure-ref self$1011 8) (%closure-ref self$1011 9) (%closure-ref self$1011 10) (%closure-ref self$1011 11) (%closure-ref self$1011 12)) (set-cell! (%closure-ref self$1011 7) r$328))) (%closure-ref self$998 1) (%closure-ref self$998 2) (%closure-ref self$998 3) (%closure-ref self$998 4) (%closure-ref self$998 5) (%closure-ref self$998 6) (%closure-ref self$998 7) (%closure-ref self$998 8) (%closure-ref self$998 9) (%closure-ref self$998 10) (%closure-ref self$998 11) (%closure-ref self$998 12)) (%closure (lambda (self$999 k$329 lst1$165 lst2$164) ((%closure (lambda (self$1000 r$330) (if r$330 ((%closure (lambda (self$1010) ((%closure-ref (%closure-ref self$1010 1) 0) (%closure-ref self$1010 1) (null? (%closure-ref self$1010 2)))) (%closure-ref self$1000 1) (%closure-ref self$1000 3))) ((%closure (lambda (self$1001 r$331) (if r$331 ((%closure (lambda (self$1009) ((%closure-ref (%closure-ref self$1009 1) 0) (%closure-ref self$1009 1) #f)) (%closure-ref self$1001 1))) ((%closure (lambda (self$1002 r$335) ((%closure (lambda (self$1003 r$336) ((%closure-ref (cell-get (%closure-ref self$1003 6)) 0) (cell-get (%closure-ref self$1003 6)) (%closure (lambda (self$1004 r$332) (if r$332 ((%closure (lambda (self$1006) ((%closure (lambda (self$1007 r$333) ((%closure (lambda (self$1008 r$334) ((%closure-ref (cell-get (%closure-ref self$1008 3)) 0) (cell-get (%closure-ref self$1008 3)) (%closure-ref self$1008 1) (%closure-ref self$1008 2) r$334)) (%closure-ref self$1007 1) r$333 (%closure-ref self$1007 3)) (cdr (%closure-ref self$1007 2)))) (%closure-ref self$1006 1) (%closure-ref self$1006 3) (%closure-ref self$1006 4)) (cdr (%closure-ref self$1006 2)))) (%closure-ref self$1004 1) (%closure-ref self$1004 2) (%closure-ref self$1004 3) (%closure-ref self$1004 4))) ((%closure (lambda (self$1005) ((%closure-ref (%closure-ref self$1005 1) 0) (%closure-ref self$1005 1) #f)) (%closure-ref self$1004 1))))) (%closure-ref self$1003 1) (%closure-ref self$1003 2) (%closure-ref self$1003 3) (%closure-ref self$1003 5)) (%closure-ref self$1003 4) r$336)) (%closure-ref self$1002 1) (%closure-ref self$1002 2) (%closure-ref self$1002 3) r$335 (%closure-ref self$1002 4) (%closure-ref self$1002 5)) (car (%closure-ref self$1002 3)))) (%closure-ref self$1001 1) (%closure-ref self$1001 2) (%closure-ref self$1001 3) (%closure-ref self$1001 4) (%closure-ref self$1001 5)) (car (%closure-ref self$1001 2))))) (%closure-ref self$1000 1) (%closure-ref self$1000 2) (%closure-ref self$1000 3) (%closure-ref self$1000 4) (%closure-ref self$1000 5)) (null? (%closure-ref self$1000 3))))) k$329 lst1$165 lst2$164 (%closure-ref self$999 1) (%closure-ref self$999 2)) (null? lst1$165))) (%closure-ref self$998 7) (%closure-ref self$998 8)))) (%closure-ref self$997 1) (%closure-ref self$997 2) (%closure-ref self$997 3) (%closure-ref self$997 4) (%closure-ref self$997 5) (%closure-ref self$997 6) (%closure-ref self$997 7) (%closure-ref self$997 8) (%closure-ref self$997 9) (%closure-ref self$997 10) (%closure-ref self$997 11) (%closure-ref self$997 12)) (set-cell! (%closure-ref self$997 8) r$337))) (%closure-ref self$986 1) (%closure-ref self$986 2) (%closure-ref self$986 3) (%closure-ref self$986 4) (%closure-ref self$986 5) (%closure-ref self$986 6) (%closure-ref self$986 8) (%closure-ref self$986 9) (%closure-ref self$986 10) (%closure-ref self$986 11) (%closure-ref self$986 12) (%closure-ref self$986 13)) (%closure (lambda (self$987 k$338 x$167 y$166) ((%closure (lambda (self$988 r$339) (if r$339 ((%closure (lambda (self$990) ((%closure (lambda (self$991 r$340) (if r$340 ((%closure (lambda (self$992 r$344) ((%closure (lambda (self$993 r$345) ((%closure-ref (cell-get (%closure-ref self$993 3)) 0) (cell-get (%closure-ref self$993 3)) (%closure (lambda (self$994 r$341) (if r$341 ((%closure (lambda (self$995 r$342) ((%closure (lambda (self$996 r$343) ((%closure-ref (cell-get (%closure-ref self$996 3)) 0) (cell-get (%closure-ref self$996 3)) (%closure-ref self$996 1) (%closure-ref self$996 2) r$343)) (%closure-ref self$995 1) r$342 (%closure-ref self$995 2)) (cdr (%closure-ref self$995 3)))) (%closure-ref self$994 1) (%closure-ref self$994 2) (%closure-ref self$994 4)) (cdr (%closure-ref self$994 3))) ((%closure-ref (%closure-ref self$994 1) 0) (%closure-ref self$994 1) #f))) (%closure-ref self$993 1) (%closure-ref self$993 4) (%closure-ref self$993 5) (%closure-ref self$993 6)) (%closure-ref self$993 2) r$345)) (%closure-ref self$992 1) r$344 (%closure-ref self$992 2) (%closure-ref self$992 3) (%closure-ref self$992 4) (%closure-ref self$992 5)) (car (%closure-ref self$992 5)))) (%closure-ref self$991 1) (%closure-ref self$991 2) (%closure-ref self$991 3) (%closure-ref self$991 4) (%closure-ref self$991 5)) (car (%closure-ref self$991 4))) ((%closure-ref (%closure-ref self$991 1) 0) (%closure-ref self$991 1) #f))) (%closure-ref self$990 1) (%closure-ref self$990 2) (%closure-ref self$990 3) (%closure-ref self$990 4) (%closure-ref self$990 5)) (pair? (%closure-ref self$990 5)))) (%closure-ref self$988 1) (%closure-ref self$988 2) (%closure-ref self$988 3) (%closure-ref self$988 4) (%closure-ref self$988 5))) ((%closure (lambda (self$989) ((%closure-ref (%closure-ref self$989 1) 0) (%closure-ref self$989 1) (equal? (%closure-ref self$989 2) (%closure-ref self$989 3)))) (%closure-ref self$988 1) (%closure-ref self$988 4) (%closure-ref self$988 5))))) k$338 (%closure-ref self$987 1) (%closure-ref self$987 2) x$167 y$166) (pair? x$167))) (%closure-ref self$986 7) (%closure-ref self$986 8)))) (%closure-ref self$985 1) (%closure-ref self$985 2) (%closure-ref self$985 3) (%closure-ref self$985 4) (%closure-ref self$985 5) (%closure-ref self$985 6) (%closure-ref self$985 7) (%closure-ref self$985 8) (%closure-ref self$985 9) (%closure-ref self$985 10) (%closure-ref self$985 11) (%closure-ref self$985 13) (%closure-ref self$985 14)) (set-cell! (%closure-ref self$985 12) r$346))) (%closure-ref self$973 1) (%closure-ref self$973 2) (%closure-ref self$973 3) (%closure-ref self$973 4) (%closure-ref self$973 5) (%closure-ref self$973 6) (%closure-ref self$973 7) (%closure-ref self$973 8) (%closure-ref self$973 9) (%closure-ref self$973 10) (%closure-ref self$973 11) (%closure-ref self$973 12) (%closure-ref self$973 13) (%closure-ref self$973 14)) (%closure (lambda (self$974 k$347 n$168) ((%closure (lambda (self$975 r$348) (if r$348 ((%closure (lambda (self$983) ((%closure (lambda (self$984 r$349) ((%closure-ref list 0) list (%closure-ref self$984 1) r$349 0 1)) (%closure-ref self$983 1)) (quote implies))) (%closure-ref self$975 1))) ((%closure (lambda (self$976) ((%closure (lambda (self$977 r$350) ((%closure (lambda (self$978 r$354) ((%closure (lambda (self$979 r$355) ((%closure-ref list 0) list (%closure (lambda (self$980 r$351) ((%closure (lambda (self$981 r$353) ((%closure-ref (cell-get (%closure-ref self$981 4)) 0) (cell-get (%closure-ref self$981 4)) (%closure (lambda (self$982 r$352) ((%closure-ref list 0) list (%closure-ref self$982 1) (%closure-ref self$982 2) (%closure-ref self$982 3) r$352)) (%closure-ref self$981 1) (%closure-ref self$981 2) (%closure-ref self$981 3)) r$353)) (%closure-ref self$980 1) (%closure-ref self$980 3) r$351 (%closure-ref self$980 4)) (- (%closure-ref self$980 2) 1))) (%closure-ref self$979 1) (%closure-ref self$979 2) (%closure-ref self$979 3) (%closure-ref self$979 5)) (%closure-ref self$979 4) r$355 (%closure-ref self$979 2))) (%closure-ref self$978 1) (%closure-ref self$978 2) (%closure-ref self$978 3) r$354 (%closure-ref self$978 4)) (- (%closure-ref self$978 2) 1))) (%closure-ref self$977 1) (%closure-ref self$977 2) r$350 (%closure-ref self$977 3)) (quote implies))) (%closure-ref self$976 1) (%closure-ref self$976 2) (%closure-ref self$976 3)) (quote and))) (%closure-ref self$975 1) (%closure-ref self$975 2) (%closure-ref self$975 3))))) k$347 n$168 (%closure-ref self$974 1)) (equal? n$168 1))) (%closure-ref self$973 12)))) (%closure-ref self$972 1) (%closure-ref self$972 2) (%closure-ref self$972 3) (%closure-ref self$972 4) (%closure-ref self$972 5) (%closure-ref self$972 6) (%closure-ref self$972 7) (%closure-ref self$972 8) (%closure-ref self$972 9) (%closure-ref self$972 10) (%closure-ref self$972 11) (%closure-ref self$972 13) (%closure-ref self$972 14) (%closure-ref self$972 15)) (set-cell! (%closure-ref self$972 12) r$356))) (%closure-ref self$965 1) (%closure-ref self$965 2) (%closure-ref self$965 3) (%closure-ref self$965 4) (%closure-ref self$965 5) (%closure-ref self$965 6) (%closure-ref self$965 7) (%closure-ref self$965 8) (%closure-ref self$965 9) (%closure-ref self$965 10) (%closure-ref self$965 11) (%closure-ref self$965 12) (%closure-ref self$965 13) (%closure-ref self$965 14) (%closure-ref self$965 15)) (%closure (lambda (self$966 k$357 n$169) ((%closure (lambda (self$967 r$359) ((%closure-ref (cell-get (%closure-ref self$967 3)) 0) (cell-get (%closure-ref self$967 3)) (%closure (lambda (self$968 r$360) ((%closure (lambda (self$969 r$362) ((%closure-ref list 0) list (%closure (lambda (self$970 r$361) ((%closure-ref list 0) list (%closure (lambda (self$971 r$358) ((%closure-ref (cell-get (%closure-ref self$971 2)) 0) (cell-get (%closure-ref self$971 2)) (%closure-ref self$971 1) r$358)) (%closure-ref self$970 1) (%closure-ref self$970 4)) (%closure-ref self$970 2) (%closure-ref self$970 3) r$361)) (%closure-ref self$969 1) (%closure-ref self$969 3) (%closure-ref self$969 4) (%closure-ref self$969 5)) r$362 0 (%closure-ref self$969 2))) (%closure-ref self$968 1) (%closure-ref self$968 2) (%closure-ref self$968 3) r$360 (%closure-ref self$968 4)) (quote implies))) (%closure-ref self$967 1) (%closure-ref self$967 2) r$359 (%closure-ref self$967 4)) (%closure-ref self$967 2))) k$357 n$169 (%closure-ref self$966 1) (%closure-ref self$966 2)) (quote implies))) (%closure-ref self$965 13) (%closure-ref self$965 14)))) (%closure-ref self$964 1) (%closure-ref self$964 2) (%closure-ref self$964 3) (%closure-ref self$964 4) (%closure-ref self$964 5) (%closure-ref self$964 6) (%closure-ref self$964 7) (%closure-ref self$964 8) (%closure-ref self$964 9) (%closure-ref self$964 10) (%closure-ref self$964 11) (%closure-ref self$964 12) (%closure-ref self$964 13) (%closure-ref self$964 14) (%closure-ref self$964 15)) (set-cell! (%closure-ref self$964 15) r$363))) (%closure-ref self$963 1) (%closure-ref self$963 2) (%closure-ref self$963 3) (%closure-ref self$963 4) (%closure-ref self$963 5) (%closure-ref self$963 6) (%closure-ref self$963 7) (%closure-ref self$963 8) (%closure-ref self$963 9) (%closure-ref self$963 10) (%closure-ref self$963 11) (%closure-ref self$963 12) (%closure-ref self$963 13) (%closure-ref self$963 14) (%closure-ref self$963 15)) (quote *))) (%closure-ref self$962 1) (%closure-ref self$962 2) (%closure-ref self$962 3) (%closure-ref self$962 4) (%closure-ref self$962 5) (%closure-ref self$962 6) (%closure-ref self$962 7) (%closure-ref self$962 8) (%closure-ref self$962 9) (%closure-ref self$962 10) (%closure-ref self$962 11) (%closure-ref self$962 12) (%closure-ref self$962 13) (%closure-ref self$962 14) (%closure-ref self$962 15)) (set-cell! (%closure-ref self$962 2) r$364))) (%closure-ref self$961 1) (%closure-ref self$961 2) (%closure-ref self$961 3) (%closure-ref self$961 4) (%closure-ref self$961 5) (%closure-ref self$961 6) (%closure-ref self$961 7) (%closure-ref self$961 8) (%closure-ref self$961 9) (%closure-ref self$961 10) (%closure-ref self$961 11) (%closure-ref self$961 12) (%closure-ref self$961 13) (%closure-ref self$961 14) (%closure-ref self$961 15)) (quote *))) (%closure-ref self$960 1) (%closure-ref self$960 2) (%closure-ref self$960 3) (%closure-ref self$960 4) (%closure-ref self$960 5) (%closure-ref self$960 6) (%closure-ref self$960 7) (%closure-ref self$960 8) (%closure-ref self$960 9) (%closure-ref self$960 10) (%closure-ref self$960 11) (%closure-ref self$960 12) (%closure-ref self$960 13) (%closure-ref self$960 14) (%closure-ref self$960 15)) (set-cell! (%closure-ref self$960 16) r$365))) (%closure-ref self$957 1) (%closure-ref self$957 2) (%closure-ref self$957 3) (%closure-ref self$957 4) (%closure-ref self$957 5) (%closure-ref self$957 6) (%closure-ref self$957 7) (%closure-ref self$957 8) (%closure-ref self$957 9) (%closure-ref self$957 10) (%closure-ref self$957 11) (%closure-ref self$957 12) (%closure-ref self$957 13) (%closure-ref self$957 14) (%closure-ref self$957 15) (%closure-ref self$957 16)) (%closure (lambda (self$958 k$366 x$171 lst$170) ((%closure-ref (cell-get (%closure-ref self$958 1)) 0) (cell-get (%closure-ref self$958 1)) (%closure (lambda (self$959 tmp$172) (if tmp$172 ((%closure-ref (%closure-ref self$959 1) 0) (%closure-ref self$959 1) tmp$172) ((%closure-ref (cell-get (%closure-ref self$959 3)) 0) (cell-get (%closure-ref self$959 3)) (%closure-ref self$959 1) (%closure-ref self$959 4) (%closure-ref self$959 2)))) k$366 lst$170 (%closure-ref self$958 2) x$171) x$171 (cell-get (%closure-ref self$958 3)))) (%closure-ref self$957 9) (%closure-ref self$957 10) (%closure-ref self$957 15)))) (%closure-ref self$956 1) (%closure-ref self$956 2) (%closure-ref self$956 4) (%closure-ref self$956 5) (%closure-ref self$956 6) (%closure-ref self$956 7) (%closure-ref self$956 8) (%closure-ref self$956 9) (%closure-ref self$956 10) (%closure-ref self$956 11) (%closure-ref self$956 12) (%closure-ref self$956 13) (%closure-ref self$956 14) (%closure-ref self$956 15) (%closure-ref self$956 16) (%closure-ref self$956 17)) (set-cell! (%closure-ref self$956 3) r$368))) (%closure-ref self$953 1) (%closure-ref self$953 2) (%closure-ref self$953 3) (%closure-ref self$953 4) (%closure-ref self$953 5) (%closure-ref self$953 6) (%closure-ref self$953 7) (%closure-ref self$953 8) (%closure-ref self$953 9) (%closure-ref self$953 10) (%closure-ref self$953 11) (%closure-ref self$953 12) (%closure-ref self$953 13) (%closure-ref self$953 14) (%closure-ref self$953 15) (%closure-ref self$953 16) (%closure-ref self$953 17)) (%closure (lambda (self$954 k$369 x$174 lst$173) ((%closure-ref (cell-get (%closure-ref self$954 2)) 0) (cell-get (%closure-ref self$954 2)) (%closure (lambda (self$955 tmp$175) (if tmp$175 ((%closure-ref (%closure-ref self$955 1) 0) (%closure-ref self$955 1) tmp$175) ((%closure-ref (cell-get (%closure-ref self$955 3)) 0) (cell-get (%closure-ref self$955 3)) (%closure-ref self$955 1) (%closure-ref self$955 4) (%closure-ref self$955 2)))) k$369 lst$173 (%closure-ref self$954 3) x$174) x$174 (cell-get (%closure-ref self$954 1)))) (%closure-ref self$953 2) (%closure-ref self$953 10) (%closure-ref self$953 11)))) (%closure-ref self$952 1) (%closure-ref self$952 2) (%closure-ref self$952 3) (%closure-ref self$952 4) (%closure-ref self$952 6) (%closure-ref self$952 7) (%closure-ref self$952 8) (%closure-ref self$952 9) (%closure-ref self$952 10) (%closure-ref self$952 11) (%closure-ref self$952 12) (%closure-ref self$952 13) (%closure-ref self$952 14) (%closure-ref self$952 15) (%closure-ref self$952 16) (%closure-ref self$952 17) (%closure-ref self$952 18)) (set-cell! (%closure-ref self$952 5) r$371))) (%closure-ref self$939 1) (%closure-ref self$939 2) (%closure-ref self$939 3) (%closure-ref self$939 4) (%closure-ref self$939 6) (%closure-ref self$939 7) (%closure-ref self$939 8) (%closure-ref self$939 9) (%closure-ref self$939 10) (%closure-ref self$939 11) (%closure-ref self$939 12) (%closure-ref self$939 13) (%closure-ref self$939 14) (%closure-ref self$939 15) (%closure-ref self$939 16) (%closure-ref self$939 17) (%closure-ref self$939 18) (%closure-ref self$939 19)) (%closure (lambda (self$940 k$372 lst1$177 lst2$176) ((%closure (lambda (self$941 r$373) (if r$373 ((%closure (lambda (self$951) ((%closure-ref (%closure-ref self$951 1) 0) (%closure-ref self$951 1) (null? (%closure-ref self$951 2)))) (%closure-ref self$941 1) (%closure-ref self$941 3))) ((%closure (lambda (self$942 r$374) (if r$374 ((%closure (lambda (self$950) ((%closure-ref (%closure-ref self$950 1) 0) (%closure-ref self$950 1) #f)) (%closure-ref self$942 1))) ((%closure (lambda (self$943 r$378) ((%closure (lambda (self$944 r$379) ((%closure-ref (cell-get (%closure-ref self$944 4)) 0) (cell-get (%closure-ref self$944 4)) (%closure (lambda (self$945 r$375) (if r$375 ((%closure (lambda (self$947) ((%closure (lambda (self$948 r$376) ((%closure (lambda (self$949 r$377) ((%closure-ref (cell-get (%closure-ref self$949 2)) 0) (cell-get (%closure-ref self$949 2)) (%closure-ref self$949 1) (%closure-ref self$949 3) r$377)) (%closure-ref self$948 1) (%closure-ref self$948 3) r$376) (cdr (%closure-ref self$948 2)))) (%closure-ref self$947 1) (%closure-ref self$947 3) (%closure-ref self$947 4)) (cdr (%closure-ref self$947 2)))) (%closure-ref self$945 1) (%closure-ref self$945 2) (%closure-ref self$945 3) (%closure-ref self$945 4))) ((%closure (lambda (self$946) ((%closure-ref (%closure-ref self$946 1) 0) (%closure-ref self$946 1) #f)) (%closure-ref self$945 1))))) (%closure-ref self$944 1) (%closure-ref self$944 2) (%closure-ref self$944 3) (%closure-ref self$944 5)) (%closure-ref self$944 6) r$379)) (%closure-ref self$943 1) (%closure-ref self$943 2) (%closure-ref self$943 3) (%closure-ref self$943 4) (%closure-ref self$943 5) r$378) (car (%closure-ref self$943 3)))) (%closure-ref self$942 1) (%closure-ref self$942 2) (%closure-ref self$942 3) (%closure-ref self$942 4) (%closure-ref self$942 5)) (car (%closure-ref self$942 2))))) (%closure-ref self$941 1) (%closure-ref self$941 2) (%closure-ref self$941 3) (%closure-ref self$941 4) (%closure-ref self$941 5)) (null? (%closure-ref self$941 3))))) k$372 lst1$177 lst2$176 (%closure-ref self$940 1) (%closure-ref self$940 2)) (null? lst1$177))) (%closure-ref self$939 5) (%closure-ref self$939 6)))) (%closure-ref self$938 1) (%closure-ref self$938 2) (%closure-ref self$938 3) (%closure-ref self$938 4) (%closure-ref self$938 5) (%closure-ref self$938 6) (%closure-ref self$938 7) (%closure-ref self$938 8) (%closure-ref self$938 9) (%closure-ref self$938 10) (%closure-ref self$938 11) (%closure-ref self$938 12) (%closure-ref self$938 13) (%closure-ref self$938 14) (%closure-ref self$938 15) (%closure-ref self$938 16) (%closure-ref self$938 17) (%closure-ref self$938 18) (%closure-ref self$938 19)) (set-cell! (%closure-ref self$938 5) r$380))) (%closure-ref self$916 1) (%closure-ref self$916 2) (%closure-ref self$916 3) (%closure-ref self$916 4) (%closure-ref self$916 5) (%closure-ref self$916 6) (%closure-ref self$916 7) (%closure-ref self$916 8) (%closure-ref self$916 9) (%closure-ref self$916 10) (%closure-ref self$916 11) (%closure-ref self$916 12) (%closure-ref self$916 13) (%closure-ref self$916 14) (%closure-ref self$916 15) (%closure-ref self$916 16) (%closure-ref self$916 17) (%closure-ref self$916 18) (%closure-ref self$916 19)) (%closure (lambda (self$917 k$381 term1$179 term2$178) ((%closure (lambda (self$918 r$382) (if r$382 ((%closure (lambda (self$929 r$383) (if r$383 ((%closure (lambda (self$931 r$387) ((%closure (lambda (self$932 r$388) ((%closure (lambda (self$933 r$384) (if r$384 ((%closure (lambda (self$935) ((%closure (lambda (self$936 r$385) ((%closure (lambda (self$937 r$386) ((%closure-ref (cell-get (%closure-ref self$937 2)) 0) (cell-get (%closure-ref self$937 2)) (%closure-ref self$937 1) (%closure-ref self$937 3) r$386)) (%closure-ref self$936 1) (%closure-ref self$936 2) r$385) (cdr (%closure-ref self$936 3)))) (%closure-ref self$935 1) (%closure-ref self$935 2) (%closure-ref self$935 4)) (cdr (%closure-ref self$935 3)))) (%closure-ref self$933 1) (%closure-ref self$933 2) (%closure-ref self$933 3) (%closure-ref self$933 4))) ((%closure (lambda (self$934) ((%closure-ref (%closure-ref self$934 1) 0) (%closure-ref self$934 1) #f)) (%closure-ref self$933 1))))) (%closure-ref self$932 1) (%closure-ref self$932 2) (%closure-ref self$932 4) (%closure-ref self$932 5)) (eq? (%closure-ref self$932 3) r$388))) (%closure-ref self$931 1) (%closure-ref self$931 2) r$387 (%closure-ref self$931 3) (%closure-ref self$931 4)) (car (%closure-ref self$931 4)))) (%closure-ref self$929 1) (%closure-ref self$929 2) (%closure-ref self$929 3) (%closure-ref self$929 4)) (car (%closure-ref self$929 3))) ((%closure (lambda (self$930) ((%closure-ref (%closure-ref self$930 1) 0) (%closure-ref self$930 1) #f)) (%closure-ref self$929 1))))) (%closure-ref self$918 1) (%closure-ref self$918 2) (%closure-ref self$918 4) (%closure-ref self$918 5)) (pair? (%closure-ref self$918 4))) ((%closure (lambda (self$919) ((%closure (lambda (self$920 temp-temp$180) (if temp-temp$180 ((%closure (lambda (self$927) ((%closure (lambda (self$928 r$390) ((%closure-ref (cell-get (%closure-ref self$928 2)) 0) (cell-get (%closure-ref self$928 2)) (%closure-ref self$928 1) (%closure-ref self$928 3) r$390)) (%closure-ref self$927 1) (%closure-ref self$927 3) (%closure-ref self$927 4)) (cdr (%closure-ref self$927 2)))) (%closure-ref self$920 1) temp-temp$180 (%closure-ref self$920 2) (%closure-ref self$920 3))) ((%closure (lambda (self$921 r$391) (if r$391 ((%closure (lambda (self$926) ((%closure-ref (%closure-ref self$926 1) 0) (%closure-ref self$926 1) (equal? (%closure-ref self$926 2) (%closure-ref self$926 3)))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3))) ((%closure (lambda (self$922) ((%closure (lambda (self$923 r$394) ((%closure (lambda (self$924 r$393) ((%closure (lambda (self$925 r$392) ((%closure-ref (%closure-ref self$925 1) 0) (%closure-ref self$925 1) #t)) (%closure-ref self$924 1)) (set-cell! (%closure-ref self$924 2) r$393))) (%closure-ref self$923 1) (%closure-ref self$923 2)) (cons r$394 (cell-get (%closure-ref self$923 2))))) (%closure-ref self$922 1) (%closure-ref self$922 4)) (cons (%closure-ref self$922 3) (%closure-ref self$922 2)))) (%closure-ref self$921 1) (%closure-ref self$921 2) (%closure-ref self$921 3) (%closure-ref self$921 4))))) (%closure-ref self$920 1) (%closure-ref self$920 3) (%closure-ref self$920 4) (%closure-ref self$920 5)) (number? (%closure-ref self$920 4))))) (%closure-ref self$919 1) (%closure-ref self$919 2) (%closure-ref self$919 3) (%closure-ref self$919 4) (%closure-ref self$919 5)) (assq (%closure-ref self$919 4) (cell-get (%closure-ref self$919 5))))) (%closure-ref self$918 1) (%closure-ref self$918 3) (%closure-ref self$918 4) (%closure-ref self$918 5) (%closure-ref self$918 6))))) k$381 (%closure-ref self$917 1) (%closure-ref self$917 2) term1$179 term2$178 (%closure-ref self$917 3)) (pair? term2$178))) (%closure-ref self$916 6) (%closure-ref self$916 12) (%closure-ref self$916 20)))) (%closure-ref self$915 1) (%closure-ref self$915 2) (%closure-ref self$915 3) (%closure-ref self$915 4) (%closure-ref self$915 6) (%closure-ref self$915 7) (%closure-ref self$915 8) (%closure-ref self$915 9) (%closure-ref self$915 10) (%closure-ref self$915 11) (%closure-ref self$915 12) (%closure-ref self$915 13) (%closure-ref self$915 14) (%closure-ref self$915 15) (%closure-ref self$915 16) (%closure-ref self$915 17) (%closure-ref self$915 18) (%closure-ref self$915 19) (%closure-ref self$915 20) (%closure-ref self$915 21)) (set-cell! (%closure-ref self$915 5) r$395))) (%closure-ref self$911 1) (%closure-ref self$911 2) (%closure-ref self$911 3) (%closure-ref self$911 4) (%closure-ref self$911 5) (%closure-ref self$911 6) (%closure-ref self$911 7) (%closure-ref self$911 8) (%closure-ref self$911 9) (%closure-ref self$911 10) (%closure-ref self$911 11) (%closure-ref self$911 12) (%closure-ref self$911 13) (%closure-ref self$911 14) (%closure-ref self$911 15) (%closure-ref self$911 16) (%closure-ref self$911 17) (%closure-ref self$911 18) (%closure-ref self$911 19) (%closure-ref self$911 20) (%closure-ref self$911 21)) (%closure (lambda (self$912 k$396 term1$182 term2$181) ((%closure (lambda (self$913 r$398) ((%closure (lambda (self$914 r$397) ((%closure-ref (cell-get (%closure-ref self$914 2)) 0) (cell-get (%closure-ref self$914 2)) (%closure-ref self$914 1) (%closure-ref self$914 3) (%closure-ref self$914 4))) (%closure-ref self$913 1) (%closure-ref self$913 2) (%closure-ref self$913 3) (%closure-ref self$913 4)) (set-cell! (%closure-ref self$913 5) r$398))) k$396 (%closure-ref self$912 1) term1$182 term2$181 (%closure-ref self$912 2)) (quote ()))) (%closure-ref self$911 6) (%closure-ref self$911 21)))) (%closure-ref self$910 1) (%closure-ref self$910 2) (%closure-ref self$910 3) (%closure-ref self$910 4) (%closure-ref self$910 5) (%closure-ref self$910 6) (%closure-ref self$910 7) (%closure-ref self$910 8) (%closure-ref self$910 9) (%closure-ref self$910 10) (%closure-ref self$910 11) (%closure-ref self$910 12) (%closure-ref self$910 13) (%closure-ref self$910 14) (%closure-ref self$910 15) (%closure-ref self$910 16) (%closure-ref self$910 17) (%closure-ref self$910 18) (%closure-ref self$910 19) (%closure-ref self$910 20) (%closure-ref self$910 21)) (set-cell! (%closure-ref self$910 21) r$399))) (%closure-ref self$909 1) (%closure-ref self$909 2) (%closure-ref self$909 3) (%closure-ref self$909 4) (%closure-ref self$909 5) (%closure-ref self$909 6) (%closure-ref self$909 7) (%closure-ref self$909 8) (%closure-ref self$909 9) (%closure-ref self$909 10) (%closure-ref self$909 11) (%closure-ref self$909 12) (%closure-ref self$909 13) (%closure-ref self$909 14) (%closure-ref self$909 15) (%closure-ref self$909 16) (%closure-ref self$909 17) (%closure-ref self$909 18) (%closure-ref self$909 19) (%closure-ref self$909 20) (%closure-ref self$909 21)) (quote *))) (%closure-ref self$908 1) (%closure-ref self$908 2) (%closure-ref self$908 3) (%closure-ref self$908 4) (%closure-ref self$908 5) (%closure-ref self$908 6) (%closure-ref self$908 7) (%closure-ref self$908 8) (%closure-ref self$908 10) (%closure-ref self$908 11) (%closure-ref self$908 12) (%closure-ref self$908 13) (%closure-ref self$908 14) (%closure-ref self$908 15) (%closure-ref self$908 16) (%closure-ref self$908 17) (%closure-ref self$908 18) (%closure-ref self$908 19) (%closure-ref self$908 20) (%closure-ref self$908 21) (%closure-ref self$908 22)) (set-cell! (%closure-ref self$908 9) r$400))) (%closure-ref self$895 1) (%closure-ref self$895 3) (%closure-ref self$895 4) (%closure-ref self$895 5) (%closure-ref self$895 6) (%closure-ref self$895 7) (%closure-ref self$895 8) (%closure-ref self$895 10) (%closure-ref self$895 11) (%closure-ref self$895 12) (%closure-ref self$895 13) (%closure-ref self$895 14) (%closure-ref self$895 15) (%closure-ref self$895 16) (%closure-ref self$895 17) (%closure-ref self$895 18) (%closure-ref self$895 19) (%closure-ref self$895 20) (%closure-ref self$895 21) (%closure-ref self$895 22) (%closure-ref self$895 23) (%closure-ref self$895 24)) (%closure (lambda (self$896 k$401 term$184 lst$183) ((%closure (lambda (self$897 r$402) (if r$402 ((%closure (lambda (self$907) ((%closure-ref (%closure-ref self$907 1) 0) (%closure-ref self$907 1) (%closure-ref self$907 2))) (%closure-ref self$897 2) (%closure-ref self$897 7))) ((%closure (lambda (self$898 r$409) ((%closure (lambda (self$899 r$408) ((%closure-ref (cell-get (%closure-ref self$899 4)) 0) (cell-get (%closure-ref self$899 4)) (%closure (lambda (self$900 r$403) (if r$403 ((%closure (lambda (self$903) ((%closure (lambda (self$904 r$406) ((%closure (lambda (self$905 r$405) ((%closure-ref (cell-get (%closure-ref self$905 1)) 0) (cell-get (%closure-ref self$905 1)) (%closure (lambda (self$906 r$404) ((%closure-ref (cell-get (%closure-ref self$906 2)) 0) (cell-get (%closure-ref self$906 2)) (%closure-ref self$906 1) r$404)) (%closure-ref self$905 2) (%closure-ref self$905 3)) (cell-get (%closure-ref self$905 4)) r$405)) (%closure-ref self$904 1) (%closure-ref self$904 2) (%closure-ref self$904 3) (%closure-ref self$904 4)) (caddr r$406))) (%closure-ref self$903 1) (%closure-ref self$903 2) (%closure-ref self$903 4) (%closure-ref self$903 5)) (car (%closure-ref self$903 3)))) (%closure-ref self$900 1) (%closure-ref self$900 2) (%closure-ref self$900 3) (%closure-ref self$900 4) (%closure-ref self$900 7))) ((%closure (lambda (self$901) ((%closure (lambda (self$902 r$407) ((%closure-ref (cell-get (%closure-ref self$902 2)) 0) (cell-get (%closure-ref self$902 2)) (%closure-ref self$902 1) (%closure-ref self$902 3) r$407)) (%closure-ref self$901 1) (%closure-ref self$901 3) (%closure-ref self$901 4)) (cdr (%closure-ref self$901 2)))) (%closure-ref self$900 2) (%closure-ref self$900 3) (%closure-ref self$900 5) (%closure-ref self$900 6))))) (%closure-ref self$899 1) (%closure-ref self$899 2) (%closure-ref self$899 3) (%closure-ref self$899 5) (%closure-ref self$899 6) (%closure-ref self$899 7) (%closure-ref self$899 8)) (%closure-ref self$899 7) r$408)) (%closure-ref self$898 1) (%closure-ref self$898 2) (%closure-ref self$898 3) (%closure-ref self$898 4) (%closure-ref self$898 5) (%closure-ref self$898 6) (%closure-ref self$898 7) (%closure-ref self$898 8)) (cadr r$409))) (%closure-ref self$897 1) (%closure-ref self$897 2) (%closure-ref self$897 3) (%closure-ref self$897 4) (%closure-ref self$897 5) (%closure-ref self$897 6) (%closure-ref self$897 7) (%closure-ref self$897 8)) (car (%closure-ref self$897 3))))) (%closure-ref self$896 1) k$401 lst$183 (%closure-ref self$896 2) (%closure-ref self$896 3) (%closure-ref self$896 4) term$184 (%closure-ref self$896 5)) (null? lst$183))) (%closure-ref self$895 2) (%closure-ref self$895 6) (%closure-ref self$895 9) (%closure-ref self$895 11) (%closure-ref self$895 24)))) (%closure-ref self$894 1) (%closure-ref self$894 2) (%closure-ref self$894 3) (%closure-ref self$894 4) (%closure-ref self$894 5) (%closure-ref self$894 6) (%closure-ref self$894 7) (%closure-ref self$894 8) (%closure-ref self$894 9) (%closure-ref self$894 11) (%closure-ref self$894 12) (%closure-ref self$894 13) (%closure-ref self$894 14) (%closure-ref self$894 15) (%closure-ref self$894 16) (%closure-ref self$894 17) (%closure-ref self$894 18) (%closure-ref self$894 19) (%closure-ref self$894 20) (%closure-ref self$894 21) (%closure-ref self$894 22) (%closure-ref self$894 23) (%closure-ref self$894 24) (%closure-ref self$894 25)) (set-cell! (%closure-ref self$894 10) r$410))) (%closure-ref self$885 1) (%closure-ref self$885 2) (%closure-ref self$885 3) (%closure-ref self$885 4) (%closure-ref self$885 5) (%closure-ref self$885 6) (%closure-ref self$885 7) (%closure-ref self$885 8) (%closure-ref self$885 9) (%closure-ref self$885 10) (%closure-ref self$885 11) (%closure-ref self$885 12) (%closure-ref self$885 13) (%closure-ref self$885 14) (%closure-ref self$885 15) (%closure-ref self$885 16) (%closure-ref self$885 17) (%closure-ref self$885 18) (%closure-ref self$885 19) (%closure-ref self$885 20) (%closure-ref self$885 21) (%closure-ref self$885 22) (%closure-ref self$885 23) (%closure-ref self$885 24) (%closure-ref self$885 25)) (%closure (lambda (self$886 k$411 lst$185) ((%closure (lambda (self$887 r$412) (if r$412 ((%closure (lambda (self$893) ((%closure-ref (%closure-ref self$893 1) 0) (%closure-ref self$893 1) (quote ()))) (%closure-ref self$887 1))) ((%closure (lambda (self$888) ((%closure (lambda (self$889 r$416) ((%closure-ref (cell-get (%closure-ref self$889 3)) 0) (cell-get (%closure-ref self$889 3)) (%closure (lambda (self$890 r$413) ((%closure (lambda (self$891 r$415) ((%closure-ref (cell-get (%closure-ref self$891 3)) 0) (cell-get (%closure-ref self$891 3)) (%closure (lambda (self$892 r$414) ((%closure-ref (%closure-ref self$892 1) 0) (%closure-ref self$892 1) (cons (%closure-ref self$892 2) r$414))) (%closure-ref self$891 1) (%closure-ref self$891 2)) r$415)) (%closure-ref self$890 1) r$413 (%closure-ref self$890 3)) (cdr (%closure-ref self$890 2)))) (%closure-ref self$889 1) (%closure-ref self$889 2) (%closure-ref self$889 4)) r$416)) (%closure-ref self$888 1) (%closure-ref self$888 2) (%closure-ref self$888 3) (%closure-ref self$888 4)) (car (%closure-ref self$888 2)))) (%closure-ref self$887 1) (%closure-ref self$887 2) (%closure-ref self$887 3) (%closure-ref self$887 4))))) k$411 lst$185 (%closure-ref self$886 1) (%closure-ref self$886 2)) (null? lst$185))) (%closure-ref self$885 9) (%closure-ref self$885 10)))) (%closure-ref self$884 1) (%closure-ref self$884 2) (%closure-ref self$884 3) (%closure-ref self$884 4) (%closure-ref self$884 5) (%closure-ref self$884 6) (%closure-ref self$884 7) (%closure-ref self$884 8) (%closure-ref self$884 9) (%closure-ref self$884 10) (%closure-ref self$884 11) (%closure-ref self$884 12) (%closure-ref self$884 13) (%closure-ref self$884 14) (%closure-ref self$884 15) (%closure-ref self$884 16) (%closure-ref self$884 17) (%closure-ref self$884 18) (%closure-ref self$884 19) (%closure-ref self$884 20) (%closure-ref self$884 21) (%closure-ref self$884 22) (%closure-ref self$884 23) (%closure-ref self$884 24) (%closure-ref self$884 25)) (set-cell! (%closure-ref self$884 9) r$417))) (%closure-ref self$871 1) (%closure-ref self$871 2) (%closure-ref self$871 3) (%closure-ref self$871 4) (%closure-ref self$871 6) (%closure-ref self$871 7) (%closure-ref self$871 8) (%closure-ref self$871 9) (%closure-ref self$871 10) (%closure-ref self$871 11) (%closure-ref self$871 12) (%closure-ref self$871 13) (%closure-ref self$871 14) (%closure-ref self$871 15) (%closure-ref self$871 16) (%closure-ref self$871 17) (%closure-ref self$871 18) (%closure-ref self$871 19) (%closure-ref self$871 20) (%closure-ref self$871 21) (%closure-ref self$871 22) (%closure-ref self$871 23) (%closure-ref self$871 24) (%closure-ref self$871 25) (%closure-ref self$871 26)) (%closure (lambda (self$872 k$418 term$186) ((%closure (lambda (self$873 r$427) ((%closure (lambda (self$874 r$419) ((%closure (lambda (self$875 r$420) (if r$420 ((%closure (lambda (self$877) ((%closure (lambda (self$878 r$424) ((%closure (lambda (self$879 r$426) ((%closure-ref (cell-get (%closure-ref self$879 4)) 0) (cell-get (%closure-ref self$879 4)) (%closure (lambda (self$880 r$425) ((%closure (lambda (self$881 r$421) ((%closure (lambda (self$882 r$423) ((%closure-ref (cell-get (%closure-ref self$882 1)) 0) (cell-get (%closure-ref self$882 1)) (%closure (lambda (self$883 r$422) ((%closure-ref (cell-get (%closure-ref self$883 3)) 0) (cell-get (%closure-ref self$883 3)) (%closure-ref self$883 1) (%closure-ref self$883 2) r$422)) (%closure-ref self$882 2) (%closure-ref self$882 3) (%closure-ref self$882 4)) r$423)) (%closure-ref self$881 1) (%closure-ref self$881 2) r$421 (%closure-ref self$881 3)) (car (%closure-ref self$881 4)))) (%closure-ref self$880 1) (%closure-ref self$880 2) (%closure-ref self$880 4) (%closure-ref self$880 5)) (cons (%closure-ref self$880 3) r$425))) (%closure-ref self$879 1) (%closure-ref self$879 2) (%closure-ref self$879 3) (%closure-ref self$879 5) (%closure-ref self$879 6)) r$426)) (%closure-ref self$878 1) (%closure-ref self$878 2) r$424 (%closure-ref self$878 3) (%closure-ref self$878 4) (%closure-ref self$878 5)) (cdr (%closure-ref self$878 5)))) (%closure-ref self$877 1) (%closure-ref self$877 2) (%closure-ref self$877 3) (%closure-ref self$877 4) (%closure-ref self$877 5)) (car (%closure-ref self$877 5)))) (%closure-ref self$875 1) (%closure-ref self$875 2) (%closure-ref self$875 3) (%closure-ref self$875 4) (%closure-ref self$875 5))) ((%closure (lambda (self$876) ((%closure-ref (%closure-ref self$876 1) 0) (%closure-ref self$876 1) (%closure-ref self$876 2))) (%closure-ref self$875 2) (%closure-ref self$875 5))))) (%closure-ref self$874 1) (%closure-ref self$874 2) (%closure-ref self$874 3) (%closure-ref self$874 4) (%closure-ref self$874 5)) (pair? (%closure-ref self$874 5)))) (%closure-ref self$873 1) (%closure-ref self$873 2) (%closure-ref self$873 3) (%closure-ref self$873 5) (%closure-ref self$873 6)) (set-cell! (%closure-ref self$873 4) r$427))) (%closure-ref self$872 1) k$418 (%closure-ref self$872 2) (%closure-ref self$872 3) (%closure-ref self$872 4) term$186) (+ (cell-get (%closure-ref self$872 3)) 1))) (%closure-ref self$871 5) (%closure-ref self$871 11) (%closure-ref self$871 12) (%closure-ref self$871 13)))) (%closure-ref self$870 1) (%closure-ref self$870 2) (%closure-ref self$870 3) (%closure-ref self$870 4) (%closure-ref self$870 5) (%closure-ref self$870 6) (%closure-ref self$870 7) (%closure-ref self$870 8) (%closure-ref self$870 9) (%closure-ref self$870 10) (%closure-ref self$870 11) (%closure-ref self$870 12) (%closure-ref self$870 13) (%closure-ref self$870 14) (%closure-ref self$870 15) (%closure-ref self$870 16) (%closure-ref self$870 17) (%closure-ref self$870 18) (%closure-ref self$870 19) (%closure-ref self$870 20) (%closure-ref self$870 21) (%closure-ref self$870 22) (%closure-ref self$870 23) (%closure-ref self$870 24) (%closure-ref self$870 25) (%closure-ref self$870 26)) (set-cell! (%closure-ref self$870 12) 0))) (%closure-ref self$869 1) (%closure-ref self$869 2) (%closure-ref self$869 3) (%closure-ref self$869 4) (%closure-ref self$869 5) (%closure-ref self$869 6) (%closure-ref self$869 7) (%closure-ref self$869 8) (%closure-ref self$869 9) (%closure-ref self$869 10) (%closure-ref self$869 11) (%closure-ref self$869 12) (%closure-ref self$869 13) (%closure-ref self$869 14) (%closure-ref self$869 15) (%closure-ref self$869 16) (%closure-ref self$869 17) (%closure-ref self$869 18) (%closure-ref self$869 19) (%closure-ref self$869 20) (%closure-ref self$869 21) (%closure-ref self$869 22) (%closure-ref self$869 23) (%closure-ref self$869 24) (%closure-ref self$869 25) (%closure-ref self$869 26)) (set-cell! (%closure-ref self$869 6) r$428))) (%closure-ref self$868 1) (%closure-ref self$868 2) (%closure-ref self$868 3) (%closure-ref self$868 4) (%closure-ref self$868 5) (%closure-ref self$868 6) (%closure-ref self$868 7) (%closure-ref self$868 8) (%closure-ref self$868 9) (%closure-ref self$868 10) (%closure-ref self$868 11) (%closure-ref self$868 12) (%closure-ref self$868 13) (%closure-ref self$868 14) (%closure-ref self$868 15) (%closure-ref self$868 16) (%closure-ref self$868 17) (%closure-ref self$868 18) (%closure-ref self$868 19) (%closure-ref self$868 20) (%closure-ref self$868 21) (%closure-ref self$868 22) (%closure-ref self$868 23) (%closure-ref self$868 24) (%closure-ref self$868 25) (%closure-ref self$868 26)) (quote *))) (%closure-ref self$867 1) (%closure-ref self$867 2) (%closure-ref self$867 3) (%closure-ref self$867 4) (%closure-ref self$867 5) (%closure-ref self$867 6) (%closure-ref self$867 7) (%closure-ref self$867 8) (%closure-ref self$867 9) (%closure-ref self$867 10) (%closure-ref self$867 11) (%closure-ref self$867 12) (%closure-ref self$867 13) (%closure-ref self$867 14) (%closure-ref self$867 15) (%closure-ref self$867 16) (%closure-ref self$867 18) (%closure-ref self$867 19) (%closure-ref self$867 20) (%closure-ref self$867 21) (%closure-ref self$867 22) (%closure-ref self$867 23) (%closure-ref self$867 24) (%closure-ref self$867 25) (%closure-ref self$867 26) (%closure-ref self$867 27)) (set-cell! (%closure-ref self$867 17) r$429))) (%closure-ref self$839 1) (%closure-ref self$839 2) (%closure-ref self$839 3) (%closure-ref self$839 4) (%closure-ref self$839 5) (%closure-ref self$839 6) (%closure-ref self$839 7) (%closure-ref self$839 8) (%closure-ref self$839 9) (%closure-ref self$839 10) (%closure-ref self$839 11) (%closure-ref self$839 12) (%closure-ref self$839 13) (%closure-ref self$839 14) (%closure-ref self$839 15) (%closure-ref self$839 16) (%closure-ref self$839 17) (%closure-ref self$839 18) (%closure-ref self$839 19) (%closure-ref self$839 20) (%closure-ref self$839 21) (%closure-ref self$839 22) (%closure-ref self$839 23) (%closure-ref self$839 24) (%closure-ref self$839 25) (%closure-ref self$839 26) (%closure-ref self$839 27)) (%closure (lambda (self$840 k$430 x$189 true-lst$188 false-lst$187) ((%closure-ref (cell-get (%closure-ref self$840 4)) 0) (cell-get (%closure-ref self$840 4)) (%closure (lambda (self$841 r$431) (if r$431 ((%closure (lambda (self$866) ((%closure-ref (%closure-ref self$866 1) 0) (%closure-ref self$866 1) #t)) (%closure-ref self$841 4))) ((%closure-ref (cell-get (%closure-ref self$841 2)) 0) (cell-get (%closure-ref self$841 2)) (%closure (lambda (self$842 r$432) (if r$432 ((%closure (lambda (self$865) ((%closure-ref (%closure-ref self$865 1) 0) (%closure-ref self$865 1) #f)) (%closure-ref self$842 4))) ((%closure (lambda (self$843 r$433) (if r$433 ((%closure (lambda (self$845 r$448) ((%closure (lambda (self$846 r$434) (if r$434 ((%closure (lambda (self$848) ((%closure (lambda (self$849 r$447) ((%closure-ref (cell-get (%closure-ref self$849 6)) 0) (cell-get (%closure-ref self$849 6)) (%closure (lambda (self$850 r$435) (if r$435 ((%closure (lambda (self$863) ((%closure (lambda (self$864 r$436) ((%closure-ref (cell-get (%closure-ref self$864 3)) 0) (cell-get (%closure-ref self$864 3)) (%closure-ref self$864 2) r$436 (%closure-ref self$864 4) (%closure-ref self$864 1))) (%closure-ref self$863 1) (%closure-ref self$863 2) (%closure-ref self$863 3) (%closure-ref self$863 4)) (caddr (%closure-ref self$863 5)))) (%closure-ref self$850 1) (%closure-ref self$850 3) (%closure-ref self$850 4) (%closure-ref self$850 5) (%closure-ref self$850 6))) ((%closure (lambda (self$851 r$446) ((%closure-ref (cell-get (%closure-ref self$851 2)) 0) (cell-get (%closure-ref self$851 2)) (%closure (lambda (self$852 r$437) (if r$437 ((%closure (lambda (self$861) ((%closure (lambda (self$862 r$438) ((%closure-ref (cell-get (%closure-ref self$862 3)) 0) (cell-get (%closure-ref self$862 3)) (%closure-ref self$862 2) r$438 (%closure-ref self$862 4) (%closure-ref self$862 1))) (%closure-ref self$861 1) (%closure-ref self$861 2) (%closure-ref self$861 3) (%closure-ref self$861 4)) (cadddr (%closure-ref self$861 5)))) (%closure-ref self$852 1) (%closure-ref self$852 2) (%closure-ref self$852 3) (%closure-ref self$852 4) (%closure-ref self$852 5))) ((%closure (lambda (self$853) ((%closure (lambda (self$854 r$443) ((%closure (lambda (self$855 r$445) ((%closure (lambda (self$856 r$444) ((%closure-ref (cell-get (%closure-ref self$856 4)) 0) (cell-get (%closure-ref self$856 4)) (%closure (lambda (self$857 r$439) (if r$439 ((%closure (lambda (self$858 r$440) ((%closure (lambda (self$859 r$442) ((%closure (lambda (self$860 r$441) ((%closure-ref (cell-get (%closure-ref self$860 3)) 0) (cell-get (%closure-ref self$860 3)) (%closure-ref self$860 1) (%closure-ref self$860 2) (%closure-ref self$860 4) r$441)) (%closure-ref self$859 2) (%closure-ref self$859 3) (%closure-ref self$859 4) (%closure-ref self$859 5)) (cons r$442 (%closure-ref self$859 1)))) (%closure-ref self$858 1) (%closure-ref self$858 2) r$440 (%closure-ref self$858 3) (%closure-ref self$858 4)) (cadr (%closure-ref self$858 5)))) (%closure-ref self$857 1) (%closure-ref self$857 2) (%closure-ref self$857 3) (%closure-ref self$857 4) (%closure-ref self$857 5)) (cadddr (%closure-ref self$857 5))) ((%closure-ref (%closure-ref self$857 2) 0) (%closure-ref self$857 2) #f))) (%closure-ref self$856 1) (%closure-ref self$856 2) (%closure-ref self$856 4) (%closure-ref self$856 5) (%closure-ref self$856 6)) (%closure-ref self$856 3) r$444 (%closure-ref self$856 1))) (%closure-ref self$855 1) (%closure-ref self$855 2) (%closure-ref self$855 3) (%closure-ref self$855 4) (%closure-ref self$855 5) (%closure-ref self$855 6)) (cons r$445 (%closure-ref self$855 5)))) (%closure-ref self$854 1) (%closure-ref self$854 2) r$443 (%closure-ref self$854 3) (%closure-ref self$854 4) (%closure-ref self$854 5)) (cadr (%closure-ref self$854 5)))) (%closure-ref self$853 1) (%closure-ref self$853 2) (%closure-ref self$853 3) (%closure-ref self$853 4) (%closure-ref self$853 5)) (caddr (%closure-ref self$853 5)))) (%closure-ref self$852 1) (%closure-ref self$852 2) (%closure-ref self$852 3) (%closure-ref self$852 4) (%closure-ref self$852 5))))) (%closure-ref self$851 1) (%closure-ref self$851 3) (%closure-ref self$851 4) (%closure-ref self$851 5) (%closure-ref self$851 6)) r$446 (%closure-ref self$851 1))) (%closure-ref self$850 1) (%closure-ref self$850 2) (%closure-ref self$850 3) (%closure-ref self$850 4) (%closure-ref self$850 5) (%closure-ref self$850 6)) (cadr (%closure-ref self$850 6))))) (%closure-ref self$849 1) (%closure-ref self$849 2) (%closure-ref self$849 3) (%closure-ref self$849 4) (%closure-ref self$849 5) (%closure-ref self$849 7)) r$447 (%closure-ref self$849 5))) (%closure-ref self$848 1) (%closure-ref self$848 2) (%closure-ref self$848 3) (%closure-ref self$848 4) (%closure-ref self$848 5) (%closure-ref self$848 6) (%closure-ref self$848 7)) (cadr (%closure-ref self$848 7)))) (%closure-ref self$846 1) (%closure-ref self$846 2) (%closure-ref self$846 3) (%closure-ref self$846 4) (%closure-ref self$846 5) (%closure-ref self$846 6) (%closure-ref self$846 7))) ((%closure (lambda (self$847) ((%closure-ref (%closure-ref self$847 1) 0) (%closure-ref self$847 1) #f)) (%closure-ref self$846 3))))) (%closure-ref self$845 1) (%closure-ref self$845 2) (%closure-ref self$845 4) (%closure-ref self$845 5) (%closure-ref self$845 6) (%closure-ref self$845 7) (%closure-ref self$845 8)) (eq? r$448 (cell-get (%closure-ref self$845 3))))) (%closure-ref self$843 1) (%closure-ref self$843 2) (%closure-ref self$843 3) (%closure-ref self$843 4) (%closure-ref self$843 5) (%closure-ref self$843 6) (%closure-ref self$843 7) (%closure-ref self$843 8)) (car (%closure-ref self$843 8))) ((%closure (lambda (self$844) ((%closure-ref (%closure-ref self$844 1) 0) (%closure-ref self$844 1) #f)) (%closure-ref self$843 4))))) (%closure-ref self$842 1) (%closure-ref self$842 2) (%closure-ref self$842 3) (%closure-ref self$842 4) (%closure-ref self$842 5) (%closure-ref self$842 6) (%closure-ref self$842 7) (%closure-ref self$842 8)) (pair? (%closure-ref self$842 8))))) (%closure-ref self$841 1) (%closure-ref self$841 2) (%closure-ref self$841 3) (%closure-ref self$841 4) (%closure-ref self$841 5) (%closure-ref self$841 6) (%closure-ref self$841 7) (%closure-ref self$841 8)) (%closure-ref self$841 8) (%closure-ref self$841 1)))) false-lst$187 (%closure-ref self$840 1) (%closure-ref self$840 2) k$430 (%closure-ref self$840 3) true-lst$188 (%closure-ref self$840 4) x$189) x$189 true-lst$188)) (%closure-ref self$839 4) (%closure-ref self$839 6) (%closure-ref self$839 17) (%closure-ref self$839 26)))) (%closure-ref self$838 1) (%closure-ref self$838 2) (%closure-ref self$838 3) (%closure-ref self$838 4) (%closure-ref self$838 5) (%closure-ref self$838 6) (%closure-ref self$838 7) (%closure-ref self$838 8) (%closure-ref self$838 9) (%closure-ref self$838 10) (%closure-ref self$838 11) (%closure-ref self$838 12) (%closure-ref self$838 13) (%closure-ref self$838 14) (%closure-ref self$838 15) (%closure-ref self$838 16) (%closure-ref self$838 17) (%closure-ref self$838 19) (%closure-ref self$838 20) (%closure-ref self$838 21) (%closure-ref self$838 22) (%closure-ref self$838 23) (%closure-ref self$838 24) (%closure-ref self$838 25) (%closure-ref self$838 26) (%closure-ref self$838 27) (%closure-ref self$838 28)) (set-cell! (%closure-ref self$838 18) r$449))) (%closure-ref self$833 1) (%closure-ref self$833 2) (%closure-ref self$833 3) (%closure-ref self$833 4) (%closure-ref self$833 5) (%closure-ref self$833 6) (%closure-ref self$833 7) (%closure-ref self$833 8) (%closure-ref self$833 9) (%closure-ref self$833 10) (%closure-ref self$833 11) (%closure-ref self$833 12) (%closure-ref self$833 13) (%closure-ref self$833 14) (%closure-ref self$833 15) (%closure-ref self$833 16) (%closure-ref self$833 17) (%closure-ref self$833 18) (%closure-ref self$833 19) (%closure-ref self$833 20) (%closure-ref self$833 21) (%closure-ref self$833 22) (%closure-ref self$833 23) (%closure-ref self$833 24) (%closure-ref self$833 25) (%closure-ref self$833 26) (%closure-ref self$833 27) (%closure-ref self$833 28)) (%closure (lambda (self$834 k$450 x$190) ((%closure-ref (cell-get (%closure-ref self$834 1)) 0) (cell-get (%closure-ref self$834 1)) (%closure (lambda (self$835 r$451) ((%closure (lambda (self$836 r$452) ((%closure (lambda (self$837 r$453) ((%closure-ref (cell-get (%closure-ref self$837 4)) 0) (cell-get (%closure-ref self$837 4)) (%closure-ref self$837 1) (%closure-ref self$837 2) (%closure-ref self$837 3) r$453)) (%closure-ref self$836 1) (%closure-ref self$836 2) r$452 (%closure-ref self$836 3)) (quote ()))) (%closure-ref self$835 1) r$451 (%closure-ref self$835 2)) (quote ()))) k$450 (%closure-ref self$834 2)) x$190)) (%closure-ref self$833 10) (%closure-ref self$833 17)))) (%closure-ref self$832 1) (%closure-ref self$832 2) (%closure-ref self$832 4) (%closure-ref self$832 5) (%closure-ref self$832 6) (%closure-ref self$832 7) (%closure-ref self$832 8) (%closure-ref self$832 9) (%closure-ref self$832 10) (%closure-ref self$832 11) (%closure-ref self$832 12) (%closure-ref self$832 13) (%closure-ref self$832 14) (%closure-ref self$832 15) (%closure-ref self$832 16) (%closure-ref self$832 17) (%closure-ref self$832 18) (%closure-ref self$832 19) (%closure-ref self$832 20) (%closure-ref self$832 21) (%closure-ref self$832 22) (%closure-ref self$832 23) (%closure-ref self$832 24) (%closure-ref self$832 25) (%closure-ref self$832 26) (%closure-ref self$832 27) (%closure-ref self$832 28) (%closure-ref self$832 29)) (set-cell! (%closure-ref self$832 3) r$454))) (%closure-ref self$823 1) (%closure-ref self$823 2) (%closure-ref self$823 3) (%closure-ref self$823 4) (%closure-ref self$823 5) (%closure-ref self$823 6) (%closure-ref self$823 7) (%closure-ref self$823 8) (%closure-ref self$823 9) (%closure-ref self$823 10) (%closure-ref self$823 11) (%closure-ref self$823 12) (%closure-ref self$823 13) (%closure-ref self$823 14) (%closure-ref self$823 15) (%closure-ref self$823 16) (%closure-ref self$823 17) (%closure-ref self$823 18) (%closure-ref self$823 19) (%closure-ref self$823 20) (%closure-ref self$823 21) (%closure-ref self$823 22) (%closure-ref self$823 23) (%closure-ref self$823 24) (%closure-ref self$823 25) (%closure-ref self$823 26) (%closure-ref self$823 27) (%closure-ref self$823 28) (%closure-ref self$823 29)) (%closure (lambda (self$824 k$455 alist$192 lst$191) ((%closure (lambda (self$825 r$456) (if r$456 ((%closure (lambda (self$831) ((%closure-ref (%closure-ref self$831 1) 0) (%closure-ref self$831 1) (quote ()))) (%closure-ref self$825 4))) ((%closure (lambda (self$826) ((%closure (lambda (self$827 r$460) ((%closure-ref (cell-get (%closure-ref self$827 2)) 0) (cell-get (%closure-ref self$827 2)) (%closure (lambda (self$828 r$457) ((%closure (lambda (self$829 r$459) ((%closure-ref (cell-get (%closure-ref self$829 2)) 0) (cell-get (%closure-ref self$829 2)) (%closure (lambda (self$830 r$458) ((%closure-ref (%closure-ref self$830 1) 0) (%closure-ref self$830 1) (cons (%closure-ref self$830 2) r$458))) (%closure-ref self$829 3) (%closure-ref self$829 4)) (%closure-ref self$829 1) r$459)) (%closure-ref self$828 1) (%closure-ref self$828 2) (%closure-ref self$828 3) r$457) (cdr (%closure-ref self$828 4)))) (%closure-ref self$827 1) (%closure-ref self$827 3) (%closure-ref self$827 4) (%closure-ref self$827 5)) (%closure-ref self$827 1) r$460)) (%closure-ref self$826 1) (%closure-ref self$826 2) (%closure-ref self$826 3) (%closure-ref self$826 4) (%closure-ref self$826 5)) (car (%closure-ref self$826 5)))) (%closure-ref self$825 1) (%closure-ref self$825 2) (%closure-ref self$825 3) (%closure-ref self$825 4) (%closure-ref self$825 5))))) alist$192 (%closure-ref self$824 1) (%closure-ref self$824 2) k$455 lst$191) (null? lst$191))) (%closure-ref self$823 2) (%closure-ref self$823 3)))) (%closure-ref self$822 1) (%closure-ref self$822 2) (%closure-ref self$822 3) (%closure-ref self$822 4) (%closure-ref self$822 5) (%closure-ref self$822 6) (%closure-ref self$822 7) (%closure-ref self$822 8) (%closure-ref self$822 9) (%closure-ref self$822 10) (%closure-ref self$822 11) (%closure-ref self$822 12) (%closure-ref self$822 13) (%closure-ref self$822 14) (%closure-ref self$822 15) (%closure-ref self$822 16) (%closure-ref self$822 17) (%closure-ref self$822 18) (%closure-ref self$822 19) (%closure-ref self$822 20) (%closure-ref self$822 21) (%closure-ref self$822 22) (%closure-ref self$822 23) (%closure-ref self$822 24) (%closure-ref self$822 25) (%closure-ref self$822 26) (%closure-ref self$822 27) (%closure-ref self$822 28) (%closure-ref self$822 29)) (set-cell! (%closure-ref self$822 2) r$461))) (%closure-ref self$813 1) (%closure-ref self$813 2) (%closure-ref self$813 3) (%closure-ref self$813 4) (%closure-ref self$813 5) (%closure-ref self$813 6) (%closure-ref self$813 7) (%closure-ref self$813 8) (%closure-ref self$813 9) (%closure-ref self$813 10) (%closure-ref self$813 11) (%closure-ref self$813 12) (%closure-ref self$813 13) (%closure-ref self$813 14) (%closure-ref self$813 15) (%closure-ref self$813 16) (%closure-ref self$813 17) (%closure-ref self$813 18) (%closure-ref self$813 19) (%closure-ref self$813 20) (%closure-ref self$813 21) (%closure-ref self$813 22) (%closure-ref self$813 23) (%closure-ref self$813 24) (%closure-ref self$813 25) (%closure-ref self$813 26) (%closure-ref self$813 27) (%closure-ref self$813 28) (%closure-ref self$813 29)) (%closure (lambda (self$814 k$462 alist$194 term$193) ((%closure (lambda (self$815 r$463) (if r$463 ((%closure (lambda (self$818) ((%closure (lambda (self$819 r$464) ((%closure (lambda (self$820 r$466) ((%closure-ref (cell-get (%closure-ref self$820 2)) 0) (cell-get (%closure-ref self$820 2)) (%closure (lambda (self$821 r$465) ((%closure-ref (%closure-ref self$821 1) 0) (%closure-ref self$821 1) (cons (%closure-ref self$821 2) r$465))) (%closure-ref self$820 3) (%closure-ref self$820 4)) (%closure-ref self$820 1) r$466)) (%closure-ref self$819 1) (%closure-ref self$819 2) (%closure-ref self$819 3) r$464) (cdr (%closure-ref self$819 4)))) (%closure-ref self$818 1) (%closure-ref self$818 2) (%closure-ref self$818 3) (%closure-ref self$818 4)) (car (%closure-ref self$818 4)))) (%closure-ref self$815 1) (%closure-ref self$815 2) (%closure-ref self$815 3) (%closure-ref self$815 4))) ((%closure (lambda (self$816) ((%closure (lambda (self$817 temp-temp$195) (if temp-temp$195 ((%closure-ref (%closure-ref self$817 1) 0) (%closure-ref self$817 1) (cdr temp-temp$195)) ((%closure-ref (%closure-ref self$817 1) 0) (%closure-ref self$817 1) (%closure-ref self$817 2)))) (%closure-ref self$816 2) (%closure-ref self$816 3)) (assq (%closure-ref self$816 3) (%closure-ref self$816 1)))) (%closure-ref self$815 1) (%closure-ref self$815 3) (%closure-ref self$815 4))))) alist$194 (%closure-ref self$814 1) k$462 term$193) (pair? term$193))) (%closure-ref self$813 3)))) (%closure-ref self$812 1) (%closure-ref self$812 2) (%closure-ref self$812 3) (%closure-ref self$812 4) (%closure-ref self$812 5) (%closure-ref self$812 6) (%closure-ref self$812 7) (%closure-ref self$812 8) (%closure-ref self$812 9) (%closure-ref self$812 10) (%closure-ref self$812 11) (%closure-ref self$812 12) (%closure-ref self$812 13) (%closure-ref self$812 14) (%closure-ref self$812 15) (%closure-ref self$812 16) (%closure-ref self$812 17) (%closure-ref self$812 18) (%closure-ref self$812 19) (%closure-ref self$812 20) (%closure-ref self$812 21) (%closure-ref self$812 22) (%closure-ref self$812 23) (%closure-ref self$812 24) (%closure-ref self$812 25) (%closure-ref self$812 27) (%closure-ref self$812 28) (%closure-ref self$812 29) (%closure-ref self$812 30)) (set-cell! (%closure-ref self$812 26) r$468))) (%closure-ref self$801 1) (%closure-ref self$801 2) (%closure-ref self$801 3) (%closure-ref self$801 4) (%closure-ref self$801 5) (%closure-ref self$801 6) (%closure-ref self$801 7) (%closure-ref self$801 8) (%closure-ref self$801 9) (%closure-ref self$801 10) (%closure-ref self$801 11) (%closure-ref self$801 12) (%closure-ref self$801 13) (%closure-ref self$801 14) (%closure-ref self$801 15) (%closure-ref self$801 16) (%closure-ref self$801 17) (%closure-ref self$801 18) (%closure-ref self$801 19) (%closure-ref self$801 20) (%closure-ref self$801 21) (%closure-ref self$801 22) (%closure-ref self$801 23) (%closure-ref self$801 24) (%closure-ref self$801 25) (%closure-ref self$801 26) (%closure-ref self$801 27) (%closure-ref self$801 28) (%closure-ref self$801 29) (%closure-ref self$801 30)) (%closure (lambda (self$802 k$469 alist$196) ((%closure (lambda (self$803 r$470) (if r$470 ((%closure (lambda (self$811) ((%closure-ref (%closure-ref self$811 1) 0) (%closure-ref self$811 1) (quote ()))) (%closure-ref self$803 2))) ((%closure (lambda (self$804) ((%closure (lambda (self$805 r$474) ((%closure (lambda (self$806 r$476) ((%closure-ref (cell-get (%closure-ref self$806 5)) 0) (cell-get (%closure-ref self$806 5)) (%closure (lambda (self$807 r$475) ((%closure (lambda (self$808 r$471) ((%closure (lambda (self$809 r$473) ((%closure-ref (cell-get (%closure-ref self$809 3)) 0) (cell-get (%closure-ref self$809 3)) (%closure (lambda (self$810 r$472) ((%closure-ref (%closure-ref self$810 1) 0) (%closure-ref self$810 1) (cons (%closure-ref self$810 2) r$472))) (%closure-ref self$809 1) (%closure-ref self$809 2)) r$473)) (%closure-ref self$808 2) r$471 (%closure-ref self$808 3)) (cdr (%closure-ref self$808 1)))) (%closure-ref self$807 1) (%closure-ref self$807 2) (%closure-ref self$807 4)) (cons (%closure-ref self$807 3) r$475))) (%closure-ref self$806 1) (%closure-ref self$806 2) (%closure-ref self$806 3) (%closure-ref self$806 4)) r$476)) (%closure-ref self$805 1) (%closure-ref self$805 2) r$474 (%closure-ref self$805 3) (%closure-ref self$805 4)) (cdar (%closure-ref self$805 1)))) (%closure-ref self$804 1) (%closure-ref self$804 2) (%closure-ref self$804 3) (%closure-ref self$804 4)) (caar (%closure-ref self$804 1)))) (%closure-ref self$803 1) (%closure-ref self$803 2) (%closure-ref self$803 3) (%closure-ref self$803 4))))) alist$196 k$469 (%closure-ref self$802 1) (%closure-ref self$802 2)) (null? alist$196))) (%closure-ref self$801 26) (%closure-ref self$801 27)))) (%closure-ref self$800 1) (%closure-ref self$800 2) (%closure-ref self$800 3) (%closure-ref self$800 4) (%closure-ref self$800 5) (%closure-ref self$800 6) (%closure-ref self$800 7) (%closure-ref self$800 8) (%closure-ref self$800 9) (%closure-ref self$800 10) (%closure-ref self$800 11) (%closure-ref self$800 12) (%closure-ref self$800 13) (%closure-ref self$800 14) (%closure-ref self$800 15) (%closure-ref self$800 16) (%closure-ref self$800 17) (%closure-ref self$800 18) (%closure-ref self$800 19) (%closure-ref self$800 20) (%closure-ref self$800 21) (%closure-ref self$800 22) (%closure-ref self$800 23) (%closure-ref self$800 24) (%closure-ref self$800 25) (%closure-ref self$800 26) (%closure-ref self$800 27) (%closure-ref self$800 28) (%closure-ref self$800 29) (%closure-ref self$800 30)) (set-cell! (%closure-ref self$800 23) r$477))) (%closure-ref self$783 1) (%closure-ref self$783 2) (%closure-ref self$783 3) (%closure-ref self$783 4) (%closure-ref self$783 5) (%closure-ref self$783 6) (%closure-ref self$783 7) (%closure-ref self$783 8) (%closure-ref self$783 9) (%closure-ref self$783 10) (%closure-ref self$783 11) (%closure-ref self$783 12) (%closure-ref self$783 13) (%closure-ref self$783 14) (%closure-ref self$783 15) (%closure-ref self$783 16) (%closure-ref self$783 17) (%closure-ref self$783 18) (%closure-ref self$783 19) (%closure-ref self$783 20) (%closure-ref self$783 21) (%closure-ref self$783 22) (%closure-ref self$783 23) (%closure-ref self$783 24) (%closure-ref self$783 25) (%closure-ref self$783 26) (%closure-ref self$783 27) (%closure-ref self$783 28) (%closure-ref self$783 29) (%closure-ref self$783 30)) (%closure (lambda (self$784 k$478 alist$199 term$198 n$197) ((%closure-ref (cell-get (%closure-ref self$784 3)) 0) (cell-get (%closure-ref self$784 3)) (%closure (lambda (self$785 r$480) ((%closure (lambda (self$786 term$201 n$200) ((%closure (lambda (self$787 lp$202) ((%closure (lambda (self$788 lp$202) ((%closure (lambda (self$795 r$484) ((%closure (lambda (self$796 r$483) ((%closure-ref (cell-get (%closure-ref self$796 3)) 0) (cell-get (%closure-ref self$796 3)) (%closure (lambda (self$797 r$482) ((%closure-ref (cell-get (%closure-ref self$797 5)) 0) (cell-get (%closure-ref self$797 5)) (%closure (lambda (self$798 r$481) ((%closure-ref (cell-get (%closure-ref self$798 1)) 0) (cell-get (%closure-ref self$798 1)) (%closure (lambda (self$799 term$205) ((%closure-ref (cell-get (%closure-ref self$799 2)) 0) (cell-get (%closure-ref self$799 2)) (%closure-ref self$799 1) term$205)) (%closure-ref self$798 2) (%closure-ref self$798 4)) (%closure-ref self$798 3) r$481)) (%closure-ref self$797 1) (%closure-ref self$797 2) (%closure-ref self$797 3) (%closure-ref self$797 4)) r$482)) (%closure-ref self$796 1) (%closure-ref self$796 2) (%closure-ref self$796 5) (%closure-ref self$796 6) (%closure-ref self$796 8)) (%closure-ref self$796 7) (%closure-ref self$796 4))) (%closure-ref self$795 1) (%closure-ref self$795 2) (%closure-ref self$795 3) (%closure-ref self$795 4) (%closure-ref self$795 5) (%closure-ref self$795 6) (%closure-ref self$795 7) (%closure-ref self$795 8)) (set-cell! (%closure-ref self$795 3) r$484))) (%closure-ref self$788 1) (%closure-ref self$788 2) lp$202 (%closure-ref self$788 3) (%closure-ref self$788 4) (%closure-ref self$788 5) (%closure-ref self$788 6) (%closure-ref self$788 7)) (%closure (lambda (self$789 k$485 term$204 n$203) ((%closure-ref zero? 0) zero? (%closure (lambda (self$790 r$486) (if r$486 ((%closure-ref (%closure-ref self$790 1) 0) (%closure-ref self$790 1) (%closure-ref self$790 4)) ((%closure (lambda (self$791 r$489) ((%closure (lambda (self$792 r$490) ((%closure-ref list 0) list (%closure (lambda (self$793 r$487) ((%closure (lambda (self$794 r$488) ((%closure-ref (cell-get (%closure-ref self$794 2)) 0) (cell-get (%closure-ref self$794 2)) (%closure-ref self$794 1) (%closure-ref self$794 3) r$488)) (%closure-ref self$793 1) (%closure-ref self$793 2) r$487) (- (%closure-ref self$793 3) 1))) (%closure-ref self$792 1) (%closure-ref self$792 2) (%closure-ref self$792 3)) (%closure-ref self$792 4) (%closure-ref self$792 5) r$490)) (%closure-ref self$791 1) (%closure-ref self$791 2) (%closure-ref self$791 3) r$489 (%closure-ref self$791 4)) (quote (f)))) (%closure-ref self$790 1) (%closure-ref self$790 2) (%closure-ref self$790 3) (%closure-ref self$790 4)) (quote or)))) k$485 (%closure-ref self$789 1) n$203 term$204) n$203)) lp$202))) (%closure-ref self$787 1) (%closure-ref self$787 2) (%closure-ref self$787 3) (%closure-ref self$787 4) (%closure-ref self$787 5) (%closure-ref self$787 6) (%closure-ref self$787 7)) (cell lp$202))) (%closure-ref self$786 1) (%closure-ref self$786 2) n$200 (%closure-ref self$786 3) (%closure-ref self$786 4) term$201 (%closure-ref self$786 5)) #f)) (%closure-ref self$785 1) (%closure-ref self$785 2) r$480 (%closure-ref self$785 4) (%closure-ref self$785 6)) (%closure-ref self$785 5) (%closure-ref self$785 3))) (%closure-ref self$784 1) k$478 n$197 (%closure-ref self$784 2) term$198 (%closure-ref self$784 4)) alist$199)) (%closure-ref self$783 2) (%closure-ref self$783 19) (%closure-ref self$783 26) (%closure-ref self$783 27)))) (%closure-ref self$782 1) (%closure-ref self$782 2) (%closure-ref self$782 3) (%closure-ref self$782 4) (%closure-ref self$782 5) (%closure-ref self$782 6) (%closure-ref self$782 7) (%closure-ref self$782 8) (%closure-ref self$782 9) (%closure-ref self$782 10) (%closure-ref self$782 11) (%closure-ref self$782 12) (%closure-ref self$782 13) (%closure-ref self$782 14) (%closure-ref self$782 15) (%closure-ref self$782 16) (%closure-ref self$782 17) (%closure-ref self$782 18) (%closure-ref self$782 19) (%closure-ref self$782 20) (%closure-ref self$782 21) (%closure-ref self$782 22) (%closure-ref self$782 23) (%closure-ref self$782 24) (%closure-ref self$782 25) (%closure-ref self$782 26) (%closure-ref self$782 27) (%closure-ref self$782 28) (%closure-ref self$782 29) (%closure-ref self$782 30)) (set-cell! (%closure-ref self$782 17) r$491))) (%closure-ref self$780 1) (%closure-ref self$780 2) (%closure-ref self$780 3) (%closure-ref self$780 4) (%closure-ref self$780 5) (%closure-ref self$780 6) (%closure-ref self$780 7) (%closure-ref self$780 8) (%closure-ref self$780 9) (%closure-ref self$780 10) (%closure-ref self$780 11) (%closure-ref self$780 12) (%closure-ref self$780 13) (%closure-ref self$780 14) (%closure-ref self$780 15) (%closure-ref self$780 16) (%closure-ref self$780 17) (%closure-ref self$780 18) (%closure-ref self$780 19) (%closure-ref self$780 20) (%closure-ref self$780 21) (%closure-ref self$780 22) (%closure-ref self$780 23) (%closure-ref self$780 24) (%closure-ref self$780 25) (%closure-ref self$780 26) (%closure-ref self$780 27) (%closure-ref self$780 28) (%closure-ref self$780 29) (%closure-ref self$780 30)) (%closure (lambda (self$781 k$492 r1$207 r2$206) ((%closure-ref k$492 0) k$492 (eq? r1$207 r2$206)))))) (%closure-ref self$779 1) (%closure-ref self$779 2) (%closure-ref self$779 3) (%closure-ref self$779 4) (%closure-ref self$779 5) (%closure-ref self$779 6) (%closure-ref self$779 8) (%closure-ref self$779 9) (%closure-ref self$779 10) (%closure-ref self$779 11) (%closure-ref self$779 12) (%closure-ref self$779 13) (%closure-ref self$779 14) (%closure-ref self$779 15) (%closure-ref self$779 16) (%closure-ref self$779 17) (%closure-ref self$779 18) (%closure-ref self$779 19) (%closure-ref self$779 20) (%closure-ref self$779 21) (%closure-ref self$779 22) (%closure-ref self$779 23) (%closure-ref self$779 24) (%closure-ref self$779 25) (%closure-ref self$779 26) (%closure-ref self$779 27) (%closure-ref self$779 28) (%closure-ref self$779 29) (%closure-ref self$779 30) (%closure-ref self$779 31)) (set-cell! (%closure-ref self$779 7) r$493))) (%closure-ref self$777 1) (%closure-ref self$777 2) (%closure-ref self$777 3) (%closure-ref self$777 4) (%closure-ref self$777 5) (%closure-ref self$777 6) (%closure-ref self$777 7) (%closure-ref self$777 8) (%closure-ref self$777 9) (%closure-ref self$777 10) (%closure-ref self$777 11) (%closure-ref self$777 12) (%closure-ref self$777 13) (%closure-ref self$777 14) (%closure-ref self$777 15) (%closure-ref self$777 16) (%closure-ref self$777 17) (%closure-ref self$777 18) (%closure-ref self$777 19) (%closure-ref self$777 20) (%closure-ref self$777 21) (%closure-ref self$777 22) (%closure-ref self$777 23) (%closure-ref self$777 24) (%closure-ref self$777 25) (%closure-ref self$777 26) (%closure-ref self$777 27) (%closure-ref self$777 28) (%closure-ref self$777 29) (%closure-ref self$777 30) (%closure-ref self$777 31)) (%closure (lambda (self$778 k$494 symbol-record$208) ((%closure-ref k$494 0) k$494 (vector-ref symbol-record$208 0)))))) (%closure-ref self$776 1) (%closure-ref self$776 2) (%closure-ref self$776 3) (%closure-ref self$776 4) (%closure-ref self$776 5) (%closure-ref self$776 6) (%closure-ref self$776 7) (%closure-ref self$776 8) (%closure-ref self$776 9) (%closure-ref self$776 10) (%closure-ref self$776 11) (%closure-ref self$776 12) (%closure-ref self$776 13) (%closure-ref self$776 14) (%closure-ref self$776 15) (%closure-ref self$776 16) (%closure-ref self$776 17) (%closure-ref self$776 18) (%closure-ref self$776 19) (%closure-ref self$776 20) (%closure-ref self$776 21) (%closure-ref self$776 22) (%closure-ref self$776 23) (%closure-ref self$776 24) (%closure-ref self$776 25) (%closure-ref self$776 26) (%closure-ref self$776 27) (%closure-ref self$776 28) (%closure-ref self$776 29) (%closure-ref self$776 30) (%closure-ref self$776 31)) (set-cell! (%closure-ref self$776 6) r$495))) (%closure-ref self$774 1) (%closure-ref self$774 2) (%closure-ref self$774 3) (%closure-ref self$774 4) (%closure-ref self$774 5) (%closure-ref self$774 6) (%closure-ref self$774 7) (%closure-ref self$774 8) (%closure-ref self$774 9) (%closure-ref self$774 10) (%closure-ref self$774 11) (%closure-ref self$774 12) (%closure-ref self$774 13) (%closure-ref self$774 14) (%closure-ref self$774 15) (%closure-ref self$774 16) (%closure-ref self$774 17) (%closure-ref self$774 18) (%closure-ref self$774 19) (%closure-ref self$774 20) (%closure-ref self$774 21) (%closure-ref self$774 22) (%closure-ref self$774 23) (%closure-ref self$774 24) (%closure-ref self$774 25) (%closure-ref self$774 26) (%closure-ref self$774 27) (%closure-ref self$774 28) (%closure-ref self$774 29) (%closure-ref self$774 30) (%closure-ref self$774 31)) (%closure (lambda (self$775 k$496 symbol-record$209) ((%closure-ref k$496 0) k$496 (vector-ref symbol-record$209 1)))))) (%closure-ref self$773 1) (%closure-ref self$773 2) (%closure-ref self$773 3) (%closure-ref self$773 4) (%closure-ref self$773 5) (%closure-ref self$773 6) (%closure-ref self$773 7) (%closure-ref self$773 8) (%closure-ref self$773 9) (%closure-ref self$773 10) (%closure-ref self$773 11) (%closure-ref self$773 13) (%closure-ref self$773 14) (%closure-ref self$773 15) (%closure-ref self$773 16) (%closure-ref self$773 17) (%closure-ref self$773 18) (%closure-ref self$773 19) (%closure-ref self$773 20) (%closure-ref self$773 21) (%closure-ref self$773 22) (%closure-ref self$773 23) (%closure-ref self$773 24) (%closure-ref self$773 25) (%closure-ref self$773 26) (%closure-ref self$773 27) (%closure-ref self$773 28) (%closure-ref self$773 29) (%closure-ref self$773 30) (%closure-ref self$773 31) (%closure-ref self$773 32)) (set-cell! (%closure-ref self$773 12) r$497))) (%closure-ref self$771 1) (%closure-ref self$771 2) (%closure-ref self$771 3) (%closure-ref self$771 4) (%closure-ref self$771 5) (%closure-ref self$771 6) (%closure-ref self$771 7) (%closure-ref self$771 8) (%closure-ref self$771 9) (%closure-ref self$771 10) (%closure-ref self$771 11) (%closure-ref self$771 12) (%closure-ref self$771 13) (%closure-ref self$771 14) (%closure-ref self$771 15) (%closure-ref self$771 16) (%closure-ref self$771 17) (%closure-ref self$771 18) (%closure-ref self$771 19) (%closure-ref self$771 20) (%closure-ref self$771 21) (%closure-ref self$771 22) (%closure-ref self$771 23) (%closure-ref self$771 24) (%closure-ref self$771 25) (%closure-ref self$771 26) (%closure-ref self$771 27) (%closure-ref self$771 28) (%closure-ref self$771 29) (%closure-ref self$771 30) (%closure-ref self$771 31) (%closure-ref self$771 32)) (%closure (lambda (self$772 k$498 symbol-record$211 lemmas$210) ((%closure-ref k$498 0) k$498 (vector-set! symbol-record$211 1 lemmas$210)))))) (%closure-ref self$770 1) (%closure-ref self$770 2) (%closure-ref self$770 3) (%closure-ref self$770 4) (%closure-ref self$770 5) (%closure-ref self$770 6) (%closure-ref self$770 7) (%closure-ref self$770 8) (%closure-ref self$770 10) (%closure-ref self$770 11) (%closure-ref self$770 12) (%closure-ref self$770 13) (%closure-ref self$770 14) (%closure-ref self$770 15) (%closure-ref self$770 16) (%closure-ref self$770 17) (%closure-ref self$770 18) (%closure-ref self$770 19) (%closure-ref self$770 20) (%closure-ref self$770 21) (%closure-ref self$770 22) (%closure-ref self$770 23) (%closure-ref self$770 24) (%closure-ref self$770 25) (%closure-ref self$770 26) (%closure-ref self$770 27) (%closure-ref self$770 28) (%closure-ref self$770 29) (%closure-ref self$770 30) (%closure-ref self$770 31) (%closure-ref self$770 32) (%closure-ref self$770 33)) (set-cell! (%closure-ref self$770 9) r$499))) (%closure-ref self$767 1) (%closure-ref self$767 2) (%closure-ref self$767 3) (%closure-ref self$767 4) (%closure-ref self$767 5) (%closure-ref self$767 6) (%closure-ref self$767 7) (%closure-ref self$767 8) (%closure-ref self$767 9) (%closure-ref self$767 10) (%closure-ref self$767 11) (%closure-ref self$767 12) (%closure-ref self$767 13) (%closure-ref self$767 14) (%closure-ref self$767 15) (%closure-ref self$767 16) (%closure-ref self$767 17) (%closure-ref self$767 18) (%closure-ref self$767 19) (%closure-ref self$767 20) (%closure-ref self$767 21) (%closure-ref self$767 22) (%closure-ref self$767 23) (%closure-ref self$767 24) (%closure-ref self$767 25) (%closure-ref self$767 26) (%closure-ref self$767 27) (%closure-ref self$767 28) (%closure-ref self$767 29) (%closure-ref self$767 30) (%closure-ref self$767 31) (%closure-ref self$767 32) (%closure-ref self$767 33)) (%closure (lambda (self$768 k$500 sym$212) ((%closure (lambda (self$769 r$501) ((%closure-ref vector 0) vector (%closure-ref self$769 1) (%closure-ref self$769 2) r$501)) k$500 sym$212) (quote ())))))) (%closure-ref self$766 1) (%closure-ref self$766 2) (%closure-ref self$766 3) (%closure-ref self$766 4) (%closure-ref self$766 5) (%closure-ref self$766 6) (%closure-ref self$766 7) (%closure-ref self$766 8) (%closure-ref self$766 9) (%closure-ref self$766 10) (%closure-ref self$766 11) (%closure-ref self$766 12) (%closure-ref self$766 13) (%closure-ref self$766 14) (%closure-ref self$766 15) (%closure-ref self$766 16) (%closure-ref self$766 17) (%closure-ref self$766 18) (%closure-ref self$766 19) (%closure-ref self$766 20) (%closure-ref self$766 21) (%closure-ref self$766 22) (%closure-ref self$766 23) (%closure-ref self$766 24) (%closure-ref self$766 25) (%closure-ref self$766 26) (%closure-ref self$766 27) (%closure-ref self$766 28) (%closure-ref self$766 29) (%closure-ref self$766 30) (%closure-ref self$766 31) (%closure-ref self$766 32) (%closure-ref self$766 33)) (set-cell! (%closure-ref self$766 1) r$502))) (%closure-ref self$765 1) (%closure-ref self$765 2) (%closure-ref self$765 3) (%closure-ref self$765 4) (%closure-ref self$765 5) (%closure-ref self$765 6) (%closure-ref self$765 7) (%closure-ref self$765 8) (%closure-ref self$765 9) (%closure-ref self$765 10) (%closure-ref self$765 11) (%closure-ref self$765 12) (%closure-ref self$765 13) (%closure-ref self$765 14) (%closure-ref self$765 15) (%closure-ref self$765 16) (%closure-ref self$765 17) (%closure-ref self$765 18) (%closure-ref self$765 19) (%closure-ref self$765 20) (%closure-ref self$765 21) (%closure-ref self$765 22) (%closure-ref self$765 23) (%closure-ref self$765 24) (%closure-ref self$765 25) (%closure-ref self$765 26) (%closure-ref self$765 27) (%closure-ref self$765 28) (%closure-ref self$765 29) (%closure-ref self$765 30) (%closure-ref self$765 31) (%closure-ref self$765 32) (%closure-ref self$765 33)) (quote ()))) (%closure-ref self$764 1) (%closure-ref self$764 2) (%closure-ref self$764 3) (%closure-ref self$764 4) (%closure-ref self$764 5) (%closure-ref self$764 6) (%closure-ref self$764 7) (%closure-ref self$764 8) (%closure-ref self$764 9) (%closure-ref self$764 10) (%closure-ref self$764 11) (%closure-ref self$764 12) (%closure-ref self$764 13) (%closure-ref self$764 14) (%closure-ref self$764 15) (%closure-ref self$764 16) (%closure-ref self$764 17) (%closure-ref self$764 18) (%closure-ref self$764 19) (%closure-ref self$764 20) (%closure-ref self$764 21) (%closure-ref self$764 22) (%closure-ref self$764 23) (%closure-ref self$764 24) (%closure-ref self$764 25) (%closure-ref self$764 26) (%closure-ref self$764 27) (%closure-ref self$764 28) (%closure-ref self$764 29) (%closure-ref self$764 30) (%closure-ref self$764 31) (%closure-ref self$764 32) (%closure-ref self$764 33)) (set-cell! (%closure-ref self$764 19) r$503))) (%closure-ref self$757 1) (%closure-ref self$757 2) (%closure-ref self$757 3) (%closure-ref self$757 4) (%closure-ref self$757 5) (%closure-ref self$757 6) (%closure-ref self$757 7) (%closure-ref self$757 8) (%closure-ref self$757 9) (%closure-ref self$757 10) (%closure-ref self$757 11) (%closure-ref self$757 12) (%closure-ref self$757 13) (%closure-ref self$757 14) (%closure-ref self$757 15) (%closure-ref self$757 16) (%closure-ref self$757 17) (%closure-ref self$757 18) (%closure-ref self$757 19) (%closure-ref self$757 20) (%closure-ref self$757 21) (%closure-ref self$757 22) (%closure-ref self$757 23) (%closure-ref self$757 24) (%closure-ref self$757 25) (%closure-ref self$757 26) (%closure-ref self$757 27) (%closure-ref self$757 28) (%closure-ref self$757 29) (%closure-ref self$757 30) (%closure-ref self$757 31) (%closure-ref self$757 32) (%closure-ref self$757 33)) (%closure (lambda (self$758 k$504 sym$213) ((%closure (lambda (self$759 x$214) (if x$214 ((%closure-ref (%closure-ref self$759 2) 0) (%closure-ref self$759 2) (cdr x$214)) ((%closure-ref (cell-get (%closure-ref self$759 3)) 0) (cell-get (%closure-ref self$759 3)) (%closure (lambda (self$760 r$215) ((%closure (lambda (self$761 r$509) ((%closure (lambda (self$762 r$508) ((%closure (lambda (self$763 r$507) ((%closure-ref (%closure-ref self$763 1) 0) (%closure-ref self$763 1) (%closure-ref self$763 2))) (%closure-ref self$762 2) (%closure-ref self$762 3)) (set-cell! (%closure-ref self$762 1) r$508))) (%closure-ref self$761 1) (%closure-ref self$761 2) (%closure-ref self$761 3)) (cons r$509 (cell-get (%closure-ref self$761 1))))) (%closure-ref self$760 1) (%closure-ref self$760 2) r$215) (cons (%closure-ref self$760 3) r$215))) (%closure-ref self$759 1) (%closure-ref self$759 2) (%closure-ref self$759 4)) (%closure-ref self$759 4)))) (%closure-ref self$758 1) k$504 (%closure-ref self$758 2) sym$213) (assq sym$213 (cell-get (%closure-ref self$758 1))))) (%closure-ref self$757 1) (%closure-ref self$757 9)))) (%closure-ref self$756 1) (%closure-ref self$756 2) (%closure-ref self$756 3) (%closure-ref self$756 4) (%closure-ref self$756 5) (%closure-ref self$756 7) (%closure-ref self$756 8) (%closure-ref self$756 9) (%closure-ref self$756 10) (%closure-ref self$756 11) (%closure-ref self$756 12) (%closure-ref self$756 13) (%closure-ref self$756 14) (%closure-ref self$756 15) (%closure-ref self$756 16) (%closure-ref self$756 17) (%closure-ref self$756 18) (%closure-ref self$756 19) (%closure-ref self$756 20) (%closure-ref self$756 21) (%closure-ref self$756 22) (%closure-ref self$756 23) (%closure-ref self$756 24) (%closure-ref self$756 25) (%closure-ref self$756 26) (%closure-ref self$756 27) (%closure-ref self$756 28) (%closure-ref self$756 29) (%closure-ref self$756 30) (%closure-ref self$756 31) (%closure-ref self$756 32) (%closure-ref self$756 33) (%closure-ref self$756 34)) (set-cell! (%closure-ref self$756 6) r$510))) (%closure-ref self$753 1) (%closure-ref self$753 2) (%closure-ref self$753 3) (%closure-ref self$753 4) (%closure-ref self$753 5) (%closure-ref self$753 6) (%closure-ref self$753 7) (%closure-ref self$753 8) (%closure-ref self$753 9) (%closure-ref self$753 10) (%closure-ref self$753 11) (%closure-ref self$753 12) (%closure-ref self$753 13) (%closure-ref self$753 14) (%closure-ref self$753 15) (%closure-ref self$753 16) (%closure-ref self$753 17) (%closure-ref self$753 18) (%closure-ref self$753 19) (%closure-ref self$753 20) (%closure-ref self$753 21) (%closure-ref self$753 22) (%closure-ref self$753 23) (%closure-ref self$753 24) (%closure-ref self$753 25) (%closure-ref self$753 26) (%closure-ref self$753 27) (%closure-ref self$753 28) (%closure-ref self$753 29) (%closure-ref self$753 30) (%closure-ref self$753 31) (%closure-ref self$753 32) (%closure-ref self$753 33) (%closure-ref self$753 34)) (%closure (lambda (self$754 k$511 sym$217 property$216) ((%closure-ref (cell-get (%closure-ref self$754 2)) 0) (cell-get (%closure-ref self$754 2)) (%closure (lambda (self$755 r$512) ((%closure-ref (cell-get (%closure-ref self$755 1)) 0) (cell-get (%closure-ref self$755 1)) (%closure-ref self$755 2) r$512)) (%closure-ref self$754 1) k$511) sym$217)) (%closure-ref self$753 7) (%closure-ref self$753 20)))) (%closure-ref self$752 1) (%closure-ref self$752 2) (%closure-ref self$752 3) (%closure-ref self$752 4) (%closure-ref self$752 5) (%closure-ref self$752 6) (%closure-ref self$752 7) (%closure-ref self$752 8) (%closure-ref self$752 9) (%closure-ref self$752 10) (%closure-ref self$752 11) (%closure-ref self$752 12) (%closure-ref self$752 13) (%closure-ref self$752 15) (%closure-ref self$752 16) (%closure-ref self$752 17) (%closure-ref self$752 18) (%closure-ref self$752 19) (%closure-ref self$752 20) (%closure-ref self$752 21) (%closure-ref self$752 22) (%closure-ref self$752 23) (%closure-ref self$752 24) (%closure-ref self$752 25) (%closure-ref self$752 26) (%closure-ref self$752 27) (%closure-ref self$752 28) (%closure-ref self$752 29) (%closure-ref self$752 30) (%closure-ref self$752 31) (%closure-ref self$752 32) (%closure-ref self$752 33) (%closure-ref self$752 34) (%closure-ref self$752 35)) (set-cell! (%closure-ref self$752 14) r$513))) (%closure-ref self$749 1) (%closure-ref self$749 2) (%closure-ref self$749 3) (%closure-ref self$749 4) (%closure-ref self$749 5) (%closure-ref self$749 6) (%closure-ref self$749 7) (%closure-ref self$749 8) (%closure-ref self$749 9) (%closure-ref self$749 10) (%closure-ref self$749 11) (%closure-ref self$749 12) (%closure-ref self$749 13) (%closure-ref self$749 14) (%closure-ref self$749 15) (%closure-ref self$749 16) (%closure-ref self$749 17) (%closure-ref self$749 18) (%closure-ref self$749 19) (%closure-ref self$749 20) (%closure-ref self$749 21) (%closure-ref self$749 22) (%closure-ref self$749 23) (%closure-ref self$749 24) (%closure-ref self$749 25) (%closure-ref self$749 26) (%closure-ref self$749 27) (%closure-ref self$749 28) (%closure-ref self$749 29) (%closure-ref self$749 30) (%closure-ref self$749 31) (%closure-ref self$749 32) (%closure-ref self$749 33) (%closure-ref self$749 34) (%closure-ref self$749 35)) (%closure (lambda (self$750 k$514 sym$220 property$219 value$218) ((%closure-ref (cell-get (%closure-ref self$750 2)) 0) (cell-get (%closure-ref self$750 2)) (%closure (lambda (self$751 r$515) ((%closure-ref (cell-get (%closure-ref self$751 2)) 0) (cell-get (%closure-ref self$751 2)) (%closure-ref self$751 1) r$515 (%closure-ref self$751 3))) k$514 (%closure-ref self$750 1) value$218) sym$220)) (%closure-ref self$749 15) (%closure-ref self$749 21)))) (%closure-ref self$748 1) (%closure-ref self$748 2) (%closure-ref self$748 3) (%closure-ref self$748 4) (%closure-ref self$748 5) (%closure-ref self$748 6) (%closure-ref self$748 7) (%closure-ref self$748 8) (%closure-ref self$748 9) (%closure-ref self$748 10) (%closure-ref self$748 11) (%closure-ref self$748 12) (%closure-ref self$748 13) (%closure-ref self$748 14) (%closure-ref self$748 15) (%closure-ref self$748 16) (%closure-ref self$748 17) (%closure-ref self$748 18) (%closure-ref self$748 19) (%closure-ref self$748 20) (%closure-ref self$748 21) (%closure-ref self$748 22) (%closure-ref self$748 23) (%closure-ref self$748 24) (%closure-ref self$748 25) (%closure-ref self$748 26) (%closure-ref self$748 27) (%closure-ref self$748 28) (%closure-ref self$748 29) (%closure-ref self$748 30) (%closure-ref self$748 31) (%closure-ref self$748 32) (%closure-ref self$748 33) (%closure-ref self$748 34) (%closure-ref self$748 35)) (set-cell! (%closure-ref self$748 36) r$516))) (%closure-ref self$739 1) (%closure-ref self$739 2) (%closure-ref self$739 3) (%closure-ref self$739 4) (%closure-ref self$739 5) (%closure-ref self$739 6) (%closure-ref self$739 7) (%closure-ref self$739 8) (%closure-ref self$739 9) (%closure-ref self$739 10) (%closure-ref self$739 11) (%closure-ref self$739 12) (%closure-ref self$739 13) (%closure-ref self$739 14) (%closure-ref self$739 15) (%closure-ref self$739 16) (%closure-ref self$739 17) (%closure-ref self$739 18) (%closure-ref self$739 19) (%closure-ref self$739 20) (%closure-ref self$739 21) (%closure-ref self$739 22) (%closure-ref self$739 23) (%closure-ref self$739 24) (%closure-ref self$739 25) (%closure-ref self$739 26) (%closure-ref self$739 27) (%closure-ref self$739 28) (%closure-ref self$739 29) (%closure-ref self$739 30) (%closure-ref self$739 31) (%closure-ref self$739 32) (%closure-ref self$739 33) (%closure-ref self$739 34) (%closure-ref self$739 35) (%closure-ref self$739 36)) (%closure (lambda (self$740 k$517 term$221) ((%closure (lambda (self$741 r$518) (if r$518 ((%closure (lambda (self$743) ((%closure (lambda (self$744 r$522) ((%closure-ref (cell-get (%closure-ref self$744 1)) 0) (cell-get (%closure-ref self$744 1)) (%closure (lambda (self$745 r$519) ((%closure (lambda (self$746 r$521) ((%closure-ref map 0) map (%closure (lambda (self$747 r$520) ((%closure-ref (%closure-ref self$747 1) 0) (%closure-ref self$747 1) (cons (%closure-ref self$747 2) r$520))) (%closure-ref self$746 1) (%closure-ref self$746 2)) (cell-get (%closure-ref self$746 3)) r$521)) (%closure-ref self$745 1) r$519 (%closure-ref self$745 3)) (cdr (%closure-ref self$745 2)))) (%closure-ref self$744 2) (%closure-ref self$744 3) (%closure-ref self$744 4)) r$522)) (%closure-ref self$743 1) (%closure-ref self$743 2) (%closure-ref self$743 3) (%closure-ref self$743 4)) (car (%closure-ref self$743 3)))) (%closure-ref self$741 1) (%closure-ref self$741 2) (%closure-ref self$741 3) (%closure-ref self$741 4))) ((%closure (lambda (self$742) ((%closure-ref (%closure-ref self$742 1) 0) (%closure-ref self$742 1) (%closure-ref self$742 2))) (%closure-ref self$741 2) (%closure-ref self$741 3))))) (%closure-ref self$740 1) k$517 term$221 (%closure-ref self$740 2)) (pair? term$221))) (%closure-ref self$739 8) (%closure-ref self$739 36)))) (%closure-ref self$738 1) (%closure-ref self$738 2) (%closure-ref self$738 3) (%closure-ref self$738 4) (%closure-ref self$738 5) (%closure-ref self$738 6) (%closure-ref self$738 7) (%closure-ref self$738 8) (%closure-ref self$738 9) (%closure-ref self$738 10) (%closure-ref self$738 11) (%closure-ref self$738 12) (%closure-ref self$738 13) (%closure-ref self$738 14) (%closure-ref self$738 15) (%closure-ref self$738 16) (%closure-ref self$738 17) (%closure-ref self$738 18) (%closure-ref self$738 19) (%closure-ref self$738 20) (%closure-ref self$738 21) (%closure-ref self$738 22) (%closure-ref self$738 23) (%closure-ref self$738 24) (%closure-ref self$738 25) (%closure-ref self$738 26) (%closure-ref self$738 27) (%closure-ref self$738 28) (%closure-ref self$738 29) (%closure-ref self$738 30) (%closure-ref self$738 31) (%closure-ref self$738 33) (%closure-ref self$738 34) (%closure-ref self$738 35) (%closure-ref self$738 36) (%closure-ref self$738 37)) (set-cell! (%closure-ref self$738 32) r$523))) (%closure-ref self$729 1) (%closure-ref self$729 2) (%closure-ref self$729 3) (%closure-ref self$729 4) (%closure-ref self$729 5) (%closure-ref self$729 6) (%closure-ref self$729 7) (%closure-ref self$729 8) (%closure-ref self$729 9) (%closure-ref self$729 10) (%closure-ref self$729 11) (%closure-ref self$729 12) (%closure-ref self$729 13) (%closure-ref self$729 14) (%closure-ref self$729 15) (%closure-ref self$729 16) (%closure-ref self$729 17) (%closure-ref self$729 18) (%closure-ref self$729 19) (%closure-ref self$729 20) (%closure-ref self$729 21) (%closure-ref self$729 22) (%closure-ref self$729 23) (%closure-ref self$729 24) (%closure-ref self$729 25) (%closure-ref self$729 26) (%closure-ref self$729 27) (%closure-ref self$729 28) (%closure-ref self$729 29) (%closure-ref self$729 30) (%closure-ref self$729 31) (%closure-ref self$729 32) (%closure-ref self$729 33) (%closure-ref self$729 34) (%closure-ref self$729 35) (%closure-ref self$729 36) (%closure-ref self$729 37)) (%closure (lambda (self$730 k$524 lst$222) ((%closure (lambda (self$731 r$525) (if r$525 ((%closure (lambda (self$737) ((%closure-ref (%closure-ref self$737 1) 0) (%closure-ref self$737 1) (quote ()))) (%closure-ref self$731 1))) ((%closure (lambda (self$732) ((%closure (lambda (self$733 r$529) ((%closure-ref (cell-get (%closure-ref self$733 4)) 0) (cell-get (%closure-ref self$733 4)) (%closure (lambda (self$734 r$526) ((%closure (lambda (self$735 r$528) ((%closure-ref (cell-get (%closure-ref self$735 3)) 0) (cell-get (%closure-ref self$735 3)) (%closure (lambda (self$736 r$527) ((%closure-ref (%closure-ref self$736 1) 0) (%closure-ref self$736 1) (cons (%closure-ref self$736 2) r$527))) (%closure-ref self$735 1) (%closure-ref self$735 2)) r$528)) (%closure-ref self$734 1) r$526 (%closure-ref self$734 3)) (cdr (%closure-ref self$734 2)))) (%closure-ref self$733 1) (%closure-ref self$733 2) (%closure-ref self$733 3)) r$529)) (%closure-ref self$732 1) (%closure-ref self$732 2) (%closure-ref self$732 3) (%closure-ref self$732 4)) (car (%closure-ref self$732 2)))) (%closure-ref self$731 1) (%closure-ref self$731 2) (%closure-ref self$731 3) (%closure-ref self$731 4))))) k$524 lst$222 (%closure-ref self$730 1) (%closure-ref self$730 2)) (null? lst$222))) (%closure-ref self$729 32) (%closure-ref self$729 33)))) (%closure-ref self$728 1) (%closure-ref self$728 2) (%closure-ref self$728 3) (%closure-ref self$728 4) (%closure-ref self$728 5) (%closure-ref self$728 6) (%closure-ref self$728 7) (%closure-ref self$728 8) (%closure-ref self$728 9) (%closure-ref self$728 10) (%closure-ref self$728 11) (%closure-ref self$728 12) (%closure-ref self$728 13) (%closure-ref self$728 14) (%closure-ref self$728 15) (%closure-ref self$728 16) (%closure-ref self$728 17) (%closure-ref self$728 18) (%closure-ref self$728 19) (%closure-ref self$728 20) (%closure-ref self$728 21) (%closure-ref self$728 22) (%closure-ref self$728 23) (%closure-ref self$728 24) (%closure-ref self$728 25) (%closure-ref self$728 26) (%closure-ref self$728 27) (%closure-ref self$728 28) (%closure-ref self$728 29) (%closure-ref self$728 30) (%closure-ref self$728 31) (%closure-ref self$728 32) (%closure-ref self$728 33) (%closure-ref self$728 34) (%closure-ref self$728 35) (%closure-ref self$728 36) (%closure-ref self$728 37)) (set-cell! (%closure-ref self$728 33) r$530))) (%closure-ref self$719 1) (%closure-ref self$719 2) (%closure-ref self$719 3) (%closure-ref self$719 4) (%closure-ref self$719 5) (%closure-ref self$719 6) (%closure-ref self$719 7) (%closure-ref self$719 8) (%closure-ref self$719 9) (%closure-ref self$719 10) (%closure-ref self$719 11) (%closure-ref self$719 12) (%closure-ref self$719 13) (%closure-ref self$719 14) (%closure-ref self$719 15) (%closure-ref self$719 16) (%closure-ref self$719 17) (%closure-ref self$719 18) (%closure-ref self$719 19) (%closure-ref self$719 20) (%closure-ref self$719 21) (%closure-ref self$719 22) (%closure-ref self$719 23) (%closure-ref self$719 24) (%closure-ref self$719 25) (%closure-ref self$719 26) (%closure-ref self$719 27) (%closure-ref self$719 28) (%closure-ref self$719 29) (%closure-ref self$719 30) (%closure-ref self$719 31) (%closure-ref self$719 32) (%closure-ref self$719 33) (%closure-ref self$719 34) (%closure-ref self$719 35) (%closure-ref self$719 36) (%closure-ref self$719 37)) (%closure (lambda (self$720 k$531 term$223) ((%closure (lambda (self$721 r$532) (if r$532 ((%closure (lambda (self$723) ((%closure (lambda (self$724 r$536) ((%closure-ref (cell-get (%closure-ref self$724 2)) 0) (cell-get (%closure-ref self$724 2)) (%closure (lambda (self$725 r$533) ((%closure (lambda (self$726 r$535) ((%closure-ref (cell-get (%closure-ref self$726 3)) 0) (cell-get (%closure-ref self$726 3)) (%closure (lambda (self$727 r$534) ((%closure-ref (%closure-ref self$727 1) 0) (%closure-ref self$727 1) (cons (%closure-ref self$727 2) r$534))) (%closure-ref self$726 1) (%closure-ref self$726 2)) r$535)) (%closure-ref self$725 1) r$533 (%closure-ref self$725 3)) (cdr (%closure-ref self$725 2)))) (%closure-ref self$724 1) (%closure-ref self$724 3) (%closure-ref self$724 4)) r$536)) (%closure-ref self$723 1) (%closure-ref self$723 2) (%closure-ref self$723 3) (%closure-ref self$723 4)) (car (%closure-ref self$723 3)))) (%closure-ref self$721 1) (%closure-ref self$721 2) (%closure-ref self$721 3) (%closure-ref self$721 4))) ((%closure (lambda (self$722) ((%closure-ref (%closure-ref self$722 1) 0) (%closure-ref self$722 1) (%closure-ref self$722 2))) (%closure-ref self$721 1) (%closure-ref self$721 3))))) k$531 (%closure-ref self$720 1) term$223 (%closure-ref self$720 2)) (pair? term$223))) (%closure-ref self$719 21) (%closure-ref self$719 32)))) (%closure-ref self$718 1) (%closure-ref self$718 3) (%closure-ref self$718 4) (%closure-ref self$718 5) (%closure-ref self$718 6) (%closure-ref self$718 7) (%closure-ref self$718 8) (%closure-ref self$718 9) (%closure-ref self$718 10) (%closure-ref self$718 11) (%closure-ref self$718 12) (%closure-ref self$718 13) (%closure-ref self$718 14) (%closure-ref self$718 15) (%closure-ref self$718 16) (%closure-ref self$718 17) (%closure-ref self$718 18) (%closure-ref self$718 19) (%closure-ref self$718 20) (%closure-ref self$718 21) (%closure-ref self$718 22) (%closure-ref self$718 23) (%closure-ref self$718 24) (%closure-ref self$718 25) (%closure-ref self$718 26) (%closure-ref self$718 27) (%closure-ref self$718 28) (%closure-ref self$718 29) (%closure-ref self$718 30) (%closure-ref self$718 31) (%closure-ref self$718 32) (%closure-ref self$718 33) (%closure-ref self$718 34) (%closure-ref self$718 35) (%closure-ref self$718 36) (%closure-ref self$718 37) (%closure-ref self$718 38)) (set-cell! (%closure-ref self$718 2) r$537))) (%closure-ref self$698 1) (%closure-ref self$698 2) (%closure-ref self$698 3) (%closure-ref self$698 4) (%closure-ref self$698 5) (%closure-ref self$698 6) (%closure-ref self$698 7) (%closure-ref self$698 8) (%closure-ref self$698 9) (%closure-ref self$698 10) (%closure-ref self$698 11) (%closure-ref self$698 12) (%closure-ref self$698 13) (%closure-ref self$698 14) (%closure-ref self$698 15) (%closure-ref self$698 16) (%closure-ref self$698 17) (%closure-ref self$698 18) (%closure-ref self$698 19) (%closure-ref self$698 20) (%closure-ref self$698 21) (%closure-ref self$698 22) (%closure-ref self$698 23) (%closure-ref self$698 24) (%closure-ref self$698 25) (%closure-ref self$698 26) (%closure-ref self$698 27) (%closure-ref self$698 28) (%closure-ref self$698 29) (%closure-ref self$698 30) (%closure-ref self$698 31) (%closure-ref self$698 32) (%closure-ref self$698 33) (%closure-ref self$698 34) (%closure-ref self$698 35) (%closure-ref self$698 36) (%closure-ref self$698 37) (%closure-ref self$698 38)) (%closure (lambda (self$699 k$538 term$224) ((%closure (lambda (self$712 k$549) ((%closure (lambda (self$713 r$550) (if r$550 ((%closure (lambda (self$714 r$553) ((%closure (lambda (self$715 r$554) ((%closure (lambda (self$716 r$551) (if r$551 ((%closure (lambda (self$717 r$552) ((%closure-ref (%closure-ref self$717 1) 0) (%closure-ref self$717 1) (pair? r$552))) (%closure-ref self$716 1)) (cadr (%closure-ref self$716 2))) ((%closure-ref (%closure-ref self$716 1) 0) (%closure-ref self$716 1) #f))) (%closure-ref self$715 1) (%closure-ref self$715 3)) (eq? (%closure-ref self$715 2) r$554))) (%closure-ref self$714 1) r$553 (%closure-ref self$714 2)) (quote equal))) (%closure-ref self$713 1) (%closure-ref self$713 2)) (car (%closure-ref self$713 2))) ((%closure-ref (%closure-ref self$713 1) 0) (%closure-ref self$713 1) #f))) k$549 (%closure-ref self$712 1)) (pair? (%closure-ref self$712 1)))) term$224) (%closure (lambda (self$700 r$539) (if r$539 ((%closure (lambda (self$702) ((%closure (lambda (self$703 r$548) ((%closure (lambda (self$704 r$540) ((%closure (lambda (self$705 r$541) ((%closure-ref (cell-get (%closure-ref self$705 6)) 0) (cell-get (%closure-ref self$705 6)) (%closure (lambda (self$706 r$543) ((%closure (lambda (self$707 r$547) ((%closure (lambda (self$708 r$545) ((%closure (lambda (self$709 r$546) ((%closure-ref (cell-get (%closure-ref self$709 1)) 0) (cell-get (%closure-ref self$709 1)) (%closure (lambda (self$710 r$544) ((%closure (lambda (self$711 r$542) ((%closure-ref (cell-get (%closure-ref self$711 2)) 0) (cell-get (%closure-ref self$711 2)) (%closure-ref self$711 1) (%closure-ref self$711 3) (%closure-ref self$711 4) r$542)) (%closure-ref self$710 1) (%closure-ref self$710 2) (%closure-ref self$710 3) (%closure-ref self$710 4)) (cons (%closure-ref self$710 5) r$544))) (%closure-ref self$709 2) (%closure-ref self$709 3) (%closure-ref self$709 4) (%closure-ref self$709 5) (%closure-ref self$709 6)) (%closure-ref self$709 7) r$546)) (%closure-ref self$708 1) (%closure-ref self$708 2) (%closure-ref self$708 3) (%closure-ref self$708 4) (%closure-ref self$708 5) (%closure-ref self$708 6) r$545) (quote lemmas))) (%closure-ref self$707 1) (%closure-ref self$707 2) (%closure-ref self$707 3) (%closure-ref self$707 4) (%closure-ref self$707 5) (%closure-ref self$707 6)) (car r$547))) (%closure-ref self$706 1) (%closure-ref self$706 2) (%closure-ref self$706 3) (%closure-ref self$706 4) (%closure-ref self$706 5) r$543) (cadr (%closure-ref self$706 6)))) (%closure-ref self$705 1) (%closure-ref self$705 2) (%closure-ref self$705 3) (%closure-ref self$705 4) r$541 (%closure-ref self$705 5)) (%closure-ref self$705 5))) (%closure-ref self$704 1) (%closure-ref self$704 2) (%closure-ref self$704 3) r$540 (%closure-ref self$704 4) (%closure-ref self$704 5)) (quote lemmas))) (%closure-ref self$703 1) (%closure-ref self$703 2) (%closure-ref self$703 3) (%closure-ref self$703 4) (%closure-ref self$703 5)) (car r$548))) (%closure-ref self$702 1) (%closure-ref self$702 2) (%closure-ref self$702 3) (%closure-ref self$702 4) (%closure-ref self$702 5)) (cadr (%closure-ref self$702 4)))) (%closure-ref self$700 1) (%closure-ref self$700 2) (%closure-ref self$700 3) (%closure-ref self$700 4) (%closure-ref self$700 5))) ((%closure (lambda (self$701) ((%closure-ref error 0) error (%closure-ref self$701 1) #f "ADD-LEMMA did not like term:  " (%closure-ref self$701 2))) (%closure-ref self$700 2) (%closure-ref self$700 4))))) (%closure-ref self$699 1) k$538 (%closure-ref self$699 2) term$224 (%closure-ref self$699 3)))) (%closure-ref self$698 7) (%closure-ref self$698 15) (%closure-ref self$698 34)))) (%closure-ref self$697 1) (%closure-ref self$697 2) (%closure-ref self$697 4) (%closure-ref self$697 5) (%closure-ref self$697 6) (%closure-ref self$697 7) (%closure-ref self$697 8) (%closure-ref self$697 9) (%closure-ref self$697 10) (%closure-ref self$697 11) (%closure-ref self$697 12) (%closure-ref self$697 13) (%closure-ref self$697 14) (%closure-ref self$697 15) (%closure-ref self$697 16) (%closure-ref self$697 17) (%closure-ref self$697 18) (%closure-ref self$697 19) (%closure-ref self$697 20) (%closure-ref self$697 21) (%closure-ref self$697 22) (%closure-ref self$697 23) (%closure-ref self$697 24) (%closure-ref self$697 25) (%closure-ref self$697 26) (%closure-ref self$697 27) (%closure-ref self$697 28) (%closure-ref self$697 29) (%closure-ref self$697 30) (%closure-ref self$697 31) (%closure-ref self$697 32) (%closure-ref self$697 33) (%closure-ref self$697 34) (%closure-ref self$697 35) (%closure-ref self$697 36) (%closure-ref self$697 37) (%closure-ref self$697 38) (%closure-ref self$697 39)) (set-cell! (%closure-ref self$697 3) r$555))) (%closure-ref self$689 1) (%closure-ref self$689 2) (%closure-ref self$689 3) (%closure-ref self$689 4) (%closure-ref self$689 5) (%closure-ref self$689 6) (%closure-ref self$689 7) (%closure-ref self$689 8) (%closure-ref self$689 9) (%closure-ref self$689 10) (%closure-ref self$689 11) (%closure-ref self$689 12) (%closure-ref self$689 13) (%closure-ref self$689 14) (%closure-ref self$689 15) (%closure-ref self$689 16) (%closure-ref self$689 17) (%closure-ref self$689 18) (%closure-ref self$689 19) (%closure-ref self$689 20) (%closure-ref self$689 21) (%closure-ref self$689 22) (%closure-ref self$689 23) (%closure-ref self$689 24) (%closure-ref self$689 25) (%closure-ref self$689 26) (%closure-ref self$689 27) (%closure-ref self$689 28) (%closure-ref self$689 29) (%closure-ref self$689 30) (%closure-ref self$689 31) (%closure-ref self$689 32) (%closure-ref self$689 33) (%closure-ref self$689 34) (%closure-ref self$689 35) (%closure-ref self$689 36) (%closure-ref self$689 37) (%closure-ref self$689 38) (%closure-ref self$689 39)) (%closure (lambda (self$690 k$556 lst$225) ((%closure (lambda (self$691 r$557) (if r$557 ((%closure (lambda (self$696) ((%closure-ref (%closure-ref self$696 1) 0) (%closure-ref self$696 1) #t)) (%closure-ref self$691 3))) ((%closure (lambda (self$692) ((%closure (lambda (self$693 r$560) ((%closure-ref (cell-get (%closure-ref self$693 1)) 0) (cell-get (%closure-ref self$693 1)) (%closure (lambda (self$694 r$558) ((%closure (lambda (self$695 r$559) ((%closure-ref (cell-get (%closure-ref self$695 1)) 0) (cell-get (%closure-ref self$695 1)) (%closure-ref self$695 2) r$559)) (%closure-ref self$694 1) (%closure-ref self$694 2)) (cdr (%closure-ref self$694 3)))) (%closure-ref self$693 2) (%closure-ref self$693 3) (%closure-ref self$693 4)) r$560)) (%closure-ref self$692 1) (%closure-ref self$692 2) (%closure-ref self$692 3) (%closure-ref self$692 4)) (car (%closure-ref self$692 4)))) (%closure-ref self$691 1) (%closure-ref self$691 2) (%closure-ref self$691 3) (%closure-ref self$691 4))))) (%closure-ref self$690 1) (%closure-ref self$690 2) k$556 lst$225) (null? lst$225))) (%closure-ref self$689 2) (%closure-ref self$689 3)))) (%closure-ref self$688 1) (%closure-ref self$688 2) (%closure-ref self$688 3) (%closure-ref self$688 4) (%closure-ref self$688 5) (%closure-ref self$688 6) (%closure-ref self$688 7) (%closure-ref self$688 8) (%closure-ref self$688 9) (%closure-ref self$688 10) (%closure-ref self$688 11) (%closure-ref self$688 12) (%closure-ref self$688 13) (%closure-ref self$688 14) (%closure-ref self$688 15) (%closure-ref self$688 16) (%closure-ref self$688 17) (%closure-ref self$688 18) (%closure-ref self$688 19) (%closure-ref self$688 20) (%closure-ref self$688 21) (%closure-ref self$688 22) (%closure-ref self$688 23) (%closure-ref self$688 24) (%closure-ref self$688 25) (%closure-ref self$688 26) (%closure-ref self$688 27) (%closure-ref self$688 28) (%closure-ref self$688 29) (%closure-ref self$688 30) (%closure-ref self$688 31) (%closure-ref self$688 32) (%closure-ref self$688 33) (%closure-ref self$688 34) (%closure-ref self$688 35) (%closure-ref self$688 36) (%closure-ref self$688 37) (%closure-ref self$688 38) (%closure-ref self$688 39)) (set-cell! (%closure-ref self$688 22) r$561))) (%closure-ref self$685 1) (%closure-ref self$685 2) (%closure-ref self$685 3) (%closure-ref self$685 4) (%closure-ref self$685 5) (%closure-ref self$685 6) (%closure-ref self$685 7) (%closure-ref self$685 8) (%closure-ref self$685 9) (%closure-ref self$685 10) (%closure-ref self$685 11) (%closure-ref self$685 12) (%closure-ref self$685 13) (%closure-ref self$685 14) (%closure-ref self$685 15) (%closure-ref self$685 16) (%closure-ref self$685 17) (%closure-ref self$685 18) (%closure-ref self$685 19) (%closure-ref self$685 20) (%closure-ref self$685 21) (%closure-ref self$685 22) (%closure-ref self$685 23) (%closure-ref self$685 24) (%closure-ref self$685 25) (%closure-ref self$685 26) (%closure-ref self$685 27) (%closure-ref self$685 28) term-member?$119 (%closure-ref self$685 29) (%closure-ref self$685 30) (%closure-ref self$685 31) (%closure-ref self$685 32) (%closure-ref self$685 33) (%closure-ref self$685 34) (%closure-ref self$685 35) (%closure-ref self$685 36) (%closure-ref self$685 37) (%closure-ref self$685 38)) (%closure (lambda (self$686 k$562) ((%closure (lambda (self$687 r$563) ((%closure-ref (cell-get (%closure-ref self$687 1)) 0) (cell-get (%closure-ref self$687 1)) (%closure-ref self$687 2) r$563)) (%closure-ref self$686 1) k$562) (quote ((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (_1- x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (_1- x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (_1- a) (zero)) (equal (_1- b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem))))))) (%closure-ref self$685 3)))) (%closure-ref self$684 1) (%closure-ref self$684 2) (%closure-ref self$684 3) (%closure-ref self$684 4) (%closure-ref self$684 5) (%closure-ref self$684 6) (%closure-ref self$684 7) (%closure-ref self$684 8) (%closure-ref self$684 9) (%closure-ref self$684 10) (%closure-ref self$684 11) (%closure-ref self$684 12) (%closure-ref self$684 13) (%closure-ref self$684 14) (%closure-ref self$684 15) (%closure-ref self$684 16) (%closure-ref self$684 17) (%closure-ref self$684 18) (%closure-ref self$684 19) (%closure-ref self$684 20) (%closure-ref self$684 21) (%closure-ref self$684 22) (%closure-ref self$684 23) (%closure-ref self$684 24) (%closure-ref self$684 25) (%closure-ref self$684 26) term-args-equal?$120 (%closure-ref self$684 27) (%closure-ref self$684 29) (%closure-ref self$684 30) (%closure-ref self$684 31) (%closure-ref self$684 32) (%closure-ref self$684 33) (%closure-ref self$684 34) (%closure-ref self$684 35) (%closure-ref self$684 36) (%closure-ref self$684 37) (%closure-ref self$684 38)) (cell (%closure-ref self$684 28)))) (%closure-ref self$683 1) (%closure-ref self$683 2) (%closure-ref self$683 3) (%closure-ref self$683 4) (%closure-ref self$683 5) (%closure-ref self$683 6) (%closure-ref self$683 7) (%closure-ref self$683 8) (%closure-ref self$683 9) (%closure-ref self$683 10) (%closure-ref self$683 11) (%closure-ref self$683 12) (%closure-ref self$683 13) (%closure-ref self$683 14) (%closure-ref self$683 15) (%closure-ref self$683 16) (%closure-ref self$683 17) (%closure-ref self$683 18) (%closure-ref self$683 19) (%closure-ref self$683 20) (%closure-ref self$683 21) (%closure-ref self$683 22) (%closure-ref self$683 23) (%closure-ref self$683 24) (%closure-ref self$683 25) (%closure-ref self$683 26) term-equal?$121 (%closure-ref self$683 28) (%closure-ref self$683 29) (%closure-ref self$683 30) (%closure-ref self$683 31) (%closure-ref self$683 32) (%closure-ref self$683 33) (%closure-ref self$683 34) (%closure-ref self$683 35) (%closure-ref self$683 36) (%closure-ref self$683 37) (%closure-ref self$683 38)) (cell (%closure-ref self$683 27)))) (%closure-ref self$682 1) (%closure-ref self$682 2) (%closure-ref self$682 3) (%closure-ref self$682 4) (%closure-ref self$682 5) (%closure-ref self$682 6) (%closure-ref self$682 7) (%closure-ref self$682 8) (%closure-ref self$682 9) (%closure-ref self$682 10) (%closure-ref self$682 11) (%closure-ref self$682 12) (%closure-ref self$682 13) (%closure-ref self$682 14) (%closure-ref self$682 15) (%closure-ref self$682 16) (%closure-ref self$682 17) (%closure-ref self$682 18) (%closure-ref self$682 19) (%closure-ref self$682 20) (%closure-ref self$682 21) (%closure-ref self$682 22) (%closure-ref self$682 23) (%closure-ref self$682 24) (%closure-ref self$682 25) (%closure-ref self$682 26) (%closure-ref self$682 27) (%closure-ref self$682 29) (%closure-ref self$682 30) (%closure-ref self$682 31) trans-of-implies1$122 (%closure-ref self$682 32) (%closure-ref self$682 33) (%closure-ref self$682 34) (%closure-ref self$682 35) (%closure-ref self$682 36) (%closure-ref self$682 37) (%closure-ref self$682 38)) (cell (%closure-ref self$682 28)))) (%closure-ref self$681 1) (%closure-ref self$681 2) (%closure-ref self$681 3) (%closure-ref self$681 4) (%closure-ref self$681 5) (%closure-ref self$681 6) (%closure-ref self$681 7) (%closure-ref self$681 8) (%closure-ref self$681 9) (%closure-ref self$681 10) (%closure-ref self$681 11) (%closure-ref self$681 12) (%closure-ref self$681 13) (%closure-ref self$681 14) (%closure-ref self$681 15) (%closure-ref self$681 16) (%closure-ref self$681 17) (%closure-ref self$681 18) (%closure-ref self$681 19) (%closure-ref self$681 20) (%closure-ref self$681 21) (%closure-ref self$681 22) (%closure-ref self$681 23) (%closure-ref self$681 24) (%closure-ref self$681 25) (%closure-ref self$681 26) (%closure-ref self$681 27) (%closure-ref self$681 28) (%closure-ref self$681 29) (%closure-ref self$681 30) trans-of-implies$123 (%closure-ref self$681 32) (%closure-ref self$681 33) (%closure-ref self$681 34) (%closure-ref self$681 35) (%closure-ref self$681 36) (%closure-ref self$681 37) (%closure-ref self$681 38)) (cell (%closure-ref self$681 31)))) (%closure-ref self$680 1) (%closure-ref self$680 2) (%closure-ref self$680 3) (%closure-ref self$680 4) (%closure-ref self$680 5) (%closure-ref self$680 6) (%closure-ref self$680 7) (%closure-ref self$680 8) (%closure-ref self$680 9) (%closure-ref self$680 10) (%closure-ref self$680 11) (%closure-ref self$680 12) (%closure-ref self$680 13) (%closure-ref self$680 14) (%closure-ref self$680 15) (%closure-ref self$680 16) (%closure-ref self$680 17) (%closure-ref self$680 18) (%closure-ref self$680 19) (%closure-ref self$680 20) (%closure-ref self$680 21) (%closure-ref self$680 22) (%closure-ref self$680 23) (%closure-ref self$680 24) (%closure-ref self$680 25) (%closure-ref self$680 26) (%closure-ref self$680 27) (%closure-ref self$680 28) (%closure-ref self$680 29) (%closure-ref self$680 30) (%closure-ref self$680 32) (%closure-ref self$680 33) (%closure-ref self$680 34) (%closure-ref self$680 35) true-term$124 (%closure-ref self$680 36) (%closure-ref self$680 37) (%closure-ref self$680 38)) (cell (%closure-ref self$680 31)))) (%closure-ref self$679 1) (%closure-ref self$679 2) (%closure-ref self$679 3) (%closure-ref self$679 4) (%closure-ref self$679 5) false-term$125 (%closure-ref self$679 6) (%closure-ref self$679 7) (%closure-ref self$679 8) (%closure-ref self$679 9) (%closure-ref self$679 10) (%closure-ref self$679 11) (%closure-ref self$679 12) (%closure-ref self$679 13) (%closure-ref self$679 14) (%closure-ref self$679 15) (%closure-ref self$679 16) (%closure-ref self$679 17) (%closure-ref self$679 18) (%closure-ref self$679 19) (%closure-ref self$679 20) (%closure-ref self$679 21) (%closure-ref self$679 22) (%closure-ref self$679 23) (%closure-ref self$679 24) (%closure-ref self$679 25) (%closure-ref self$679 26) (%closure-ref self$679 27) (%closure-ref self$679 28) (%closure-ref self$679 29) (%closure-ref self$679 30) (%closure-ref self$679 31) (%closure-ref self$679 32) (%closure-ref self$679 33) (%closure-ref self$679 34) (%closure-ref self$679 36) (%closure-ref self$679 37) (%closure-ref self$679 38)) (cell (%closure-ref self$679 35)))) (%closure-ref self$678 1) (%closure-ref self$678 2) (%closure-ref self$678 3) (%closure-ref self$678 4) (%closure-ref self$678 5) (%closure-ref self$678 7) (%closure-ref self$678 8) (%closure-ref self$678 9) (%closure-ref self$678 10) (%closure-ref self$678 11) (%closure-ref self$678 12) (%closure-ref self$678 13) (%closure-ref self$678 14) (%closure-ref self$678 15) (%closure-ref self$678 16) (%closure-ref self$678 17) (%closure-ref self$678 18) (%closure-ref self$678 19) (%closure-ref self$678 20) (%closure-ref self$678 21) (%closure-ref self$678 22) (%closure-ref self$678 23) (%closure-ref self$678 24) (%closure-ref self$678 25) (%closure-ref self$678 26) (%closure-ref self$678 27) (%closure-ref self$678 28) (%closure-ref self$678 29) (%closure-ref self$678 30) (%closure-ref self$678 31) (%closure-ref self$678 32) (%closure-ref self$678 33) (%closure-ref self$678 34) (%closure-ref self$678 35) (%closure-ref self$678 36) truep$126 (%closure-ref self$678 37) (%closure-ref self$678 38)) (cell (%closure-ref self$678 6)))) (%closure-ref self$677 1) (%closure-ref self$677 2) (%closure-ref self$677 3) (%closure-ref self$677 4) (%closure-ref self$677 5) (%closure-ref self$677 6) falsep$127 (%closure-ref self$677 7) (%closure-ref self$677 8) (%closure-ref self$677 9) (%closure-ref self$677 10) (%closure-ref self$677 11) (%closure-ref self$677 12) (%closure-ref self$677 13) (%closure-ref self$677 14) (%closure-ref self$677 15) (%closure-ref self$677 16) (%closure-ref self$677 17) (%closure-ref self$677 18) (%closure-ref self$677 19) (%closure-ref self$677 20) (%closure-ref self$677 21) (%closure-ref self$677 22) (%closure-ref self$677 23) (%closure-ref self$677 24) (%closure-ref self$677 25) (%closure-ref self$677 26) (%closure-ref self$677 27) (%closure-ref self$677 28) (%closure-ref self$677 29) (%closure-ref self$677 30) (%closure-ref self$677 31) (%closure-ref self$677 32) (%closure-ref self$677 33) (%closure-ref self$677 34) (%closure-ref self$677 35) (%closure-ref self$677 37) (%closure-ref self$677 38)) (cell (%closure-ref self$677 36)))) (%closure-ref self$676 1) (%closure-ref self$676 2) (%closure-ref self$676 3) (%closure-ref self$676 4) (%closure-ref self$676 5) (%closure-ref self$676 6) (%closure-ref self$676 8) (%closure-ref self$676 9) (%closure-ref self$676 10) (%closure-ref self$676 11) (%closure-ref self$676 12) (%closure-ref self$676 13) (%closure-ref self$676 14) one-way-unify1-lst$128 (%closure-ref self$676 15) (%closure-ref self$676 16) (%closure-ref self$676 17) (%closure-ref self$676 18) (%closure-ref self$676 19) (%closure-ref self$676 20) (%closure-ref self$676 21) (%closure-ref self$676 22) (%closure-ref self$676 23) (%closure-ref self$676 24) (%closure-ref self$676 25) (%closure-ref self$676 26) (%closure-ref self$676 27) (%closure-ref self$676 28) (%closure-ref self$676 29) (%closure-ref self$676 30) (%closure-ref self$676 31) (%closure-ref self$676 32) (%closure-ref self$676 33) (%closure-ref self$676 34) (%closure-ref self$676 35) (%closure-ref self$676 36) (%closure-ref self$676 37) (%closure-ref self$676 38)) (cell (%closure-ref self$676 7)))) (%closure-ref self$675 1) (%closure-ref self$675 2) (%closure-ref self$675 3) (%closure-ref self$675 4) (%closure-ref self$675 5) (%closure-ref self$675 6) (%closure-ref self$675 7) (%closure-ref self$675 8) (%closure-ref self$675 9) (%closure-ref self$675 10) (%closure-ref self$675 11) (%closure-ref self$675 12) (%closure-ref self$675 13) one-way-unify1$129 (%closure-ref self$675 15) (%closure-ref self$675 16) (%closure-ref self$675 17) (%closure-ref self$675 18) (%closure-ref self$675 19) (%closure-ref self$675 20) (%closure-ref self$675 21) (%closure-ref self$675 22) (%closure-ref self$675 23) (%closure-ref self$675 24) (%closure-ref self$675 25) (%closure-ref self$675 26) (%closure-ref self$675 27) (%closure-ref self$675 28) (%closure-ref self$675 29) (%closure-ref self$675 30) (%closure-ref self$675 31) (%closure-ref self$675 32) (%closure-ref self$675 33) (%closure-ref self$675 34) (%closure-ref self$675 35) (%closure-ref self$675 36) (%closure-ref self$675 37) (%closure-ref self$675 38)) (cell (%closure-ref self$675 14)))) (%closure-ref self$674 1) (%closure-ref self$674 2) (%closure-ref self$674 3) (%closure-ref self$674 4) (%closure-ref self$674 5) (%closure-ref self$674 6) (%closure-ref self$674 7) (%closure-ref self$674 8) (%closure-ref self$674 9) (%closure-ref self$674 10) (%closure-ref self$674 11) (%closure-ref self$674 12) one-way-unify$130 (%closure-ref self$674 14) (%closure-ref self$674 15) (%closure-ref self$674 16) (%closure-ref self$674 17) (%closure-ref self$674 18) (%closure-ref self$674 19) (%closure-ref self$674 20) (%closure-ref self$674 21) (%closure-ref self$674 22) (%closure-ref self$674 23) (%closure-ref self$674 24) (%closure-ref self$674 25) (%closure-ref self$674 26) (%closure-ref self$674 27) (%closure-ref self$674 28) (%closure-ref self$674 29) (%closure-ref self$674 30) (%closure-ref self$674 31) (%closure-ref self$674 32) (%closure-ref self$674 33) (%closure-ref self$674 34) (%closure-ref self$674 35) (%closure-ref self$674 36) (%closure-ref self$674 37) (%closure-ref self$674 38)) (cell (%closure-ref self$674 13)))) (%closure-ref self$673 1) (%closure-ref self$673 2) (%closure-ref self$673 3) (%closure-ref self$673 4) (%closure-ref self$673 5) (%closure-ref self$673 6) (%closure-ref self$673 7) (%closure-ref self$673 8) (%closure-ref self$673 9) (%closure-ref self$673 10) (%closure-ref self$673 11) (%closure-ref self$673 12) (%closure-ref self$673 14) (%closure-ref self$673 15) (%closure-ref self$673 16) (%closure-ref self$673 17) (%closure-ref self$673 18) (%closure-ref self$673 19) (%closure-ref self$673 20) (%closure-ref self$673 21) (%closure-ref self$673 22) (%closure-ref self$673 23) (%closure-ref self$673 24) (%closure-ref self$673 25) (%closure-ref self$673 26) (%closure-ref self$673 27) (%closure-ref self$673 28) (%closure-ref self$673 29) (%closure-ref self$673 30) (%closure-ref self$673 31) (%closure-ref self$673 32) (%closure-ref self$673 33) (%closure-ref self$673 34) (%closure-ref self$673 35) (%closure-ref self$673 36) (%closure-ref self$673 37) unify-subst$131 (%closure-ref self$673 38)) (cell (%closure-ref self$673 13)))) (%closure-ref self$672 1) (%closure-ref self$672 2) (%closure-ref self$672 3) (%closure-ref self$672 4) (%closure-ref self$672 5) (%closure-ref self$672 6) (%closure-ref self$672 7) (%closure-ref self$672 8) (%closure-ref self$672 9) (%closure-ref self$672 10) (%closure-ref self$672 11) (%closure-ref self$672 12) (%closure-ref self$672 13) (%closure-ref self$672 14) (%closure-ref self$672 15) (%closure-ref self$672 16) (%closure-ref self$672 17) (%closure-ref self$672 18) (%closure-ref self$672 19) (%closure-ref self$672 20) rewrite-with-lemmas$132 (%closure-ref self$672 21) (%closure-ref self$672 22) (%closure-ref self$672 23) (%closure-ref self$672 24) (%closure-ref self$672 25) (%closure-ref self$672 26) (%closure-ref self$672 27) (%closure-ref self$672 28) (%closure-ref self$672 29) (%closure-ref self$672 30) (%closure-ref self$672 31) (%closure-ref self$672 32) (%closure-ref self$672 33) (%closure-ref self$672 34) (%closure-ref self$672 35) (%closure-ref self$672 36) (%closure-ref self$672 38)) (cell (%closure-ref self$672 37)))) (%closure-ref self$671 1) (%closure-ref self$671 2) (%closure-ref self$671 3) (%closure-ref self$671 4) (%closure-ref self$671 5) (%closure-ref self$671 6) (%closure-ref self$671 7) (%closure-ref self$671 8) (%closure-ref self$671 9) (%closure-ref self$671 10) (%closure-ref self$671 11) (%closure-ref self$671 12) (%closure-ref self$671 13) (%closure-ref self$671 14) (%closure-ref self$671 15) (%closure-ref self$671 16) (%closure-ref self$671 17) (%closure-ref self$671 18) rewrite-args$133 (%closure-ref self$671 19) (%closure-ref self$671 21) (%closure-ref self$671 22) (%closure-ref self$671 23) (%closure-ref self$671 24) (%closure-ref self$671 25) (%closure-ref self$671 26) (%closure-ref self$671 27) (%closure-ref self$671 28) (%closure-ref self$671 29) (%closure-ref self$671 30) (%closure-ref self$671 31) (%closure-ref self$671 32) (%closure-ref self$671 33) (%closure-ref self$671 34) (%closure-ref self$671 35) (%closure-ref self$671 36) (%closure-ref self$671 37) (%closure-ref self$671 38)) (cell (%closure-ref self$671 20)))) (%closure-ref self$670 1) (%closure-ref self$670 2) (%closure-ref self$670 3) (%closure-ref self$670 4) (%closure-ref self$670 5) (%closure-ref self$670 6) (%closure-ref self$670 7) (%closure-ref self$670 8) (%closure-ref self$670 9) (%closure-ref self$670 10) (%closure-ref self$670 11) (%closure-ref self$670 12) (%closure-ref self$670 13) (%closure-ref self$670 14) (%closure-ref self$670 15) (%closure-ref self$670 16) (%closure-ref self$670 17) rewrite$134 (%closure-ref self$670 19) (%closure-ref self$670 20) (%closure-ref self$670 21) (%closure-ref self$670 22) (%closure-ref self$670 23) (%closure-ref self$670 24) (%closure-ref self$670 25) (%closure-ref self$670 26) (%closure-ref self$670 27) (%closure-ref self$670 28) (%closure-ref self$670 29) (%closure-ref self$670 30) (%closure-ref self$670 31) (%closure-ref self$670 32) (%closure-ref self$670 33) (%closure-ref self$670 34) (%closure-ref self$670 35) (%closure-ref self$670 36) (%closure-ref self$670 37) (%closure-ref self$670 38)) (cell (%closure-ref self$670 18)))) (%closure-ref self$669 1) (%closure-ref self$669 2) (%closure-ref self$669 3) (%closure-ref self$669 4) (%closure-ref self$669 5) (%closure-ref self$669 6) (%closure-ref self$669 7) (%closure-ref self$669 8) (%closure-ref self$669 9) (%closure-ref self$669 10) (%closure-ref self$669 11) (%closure-ref self$669 12) (%closure-ref self$669 13) (%closure-ref self$669 14) (%closure-ref self$669 15) (%closure-ref self$669 16) (%closure-ref self$669 17) (%closure-ref self$669 19) rewrite-count$135 (%closure-ref self$669 20) (%closure-ref self$669 21) (%closure-ref self$669 22) (%closure-ref self$669 23) (%closure-ref self$669 24) (%closure-ref self$669 25) (%closure-ref self$669 26) (%closure-ref self$669 27) (%closure-ref self$669 28) (%closure-ref self$669 29) (%closure-ref self$669 30) (%closure-ref self$669 31) (%closure-ref self$669 32) (%closure-ref self$669 33) (%closure-ref self$669 34) (%closure-ref self$669 35) (%closure-ref self$669 36) (%closure-ref self$669 37) (%closure-ref self$669 38)) (cell (%closure-ref self$669 18)))) (%closure-ref self$668 1) (%closure-ref self$668 2) (%closure-ref self$668 3) (%closure-ref self$668 4) (%closure-ref self$668 5) (%closure-ref self$668 6) (%closure-ref self$668 7) (%closure-ref self$668 8) (%closure-ref self$668 9) (%closure-ref self$668 10) if-constructor$136 (%closure-ref self$668 11) (%closure-ref self$668 12) (%closure-ref self$668 13) (%closure-ref self$668 14) (%closure-ref self$668 15) (%closure-ref self$668 16) (%closure-ref self$668 17) (%closure-ref self$668 18) (%closure-ref self$668 20) (%closure-ref self$668 21) (%closure-ref self$668 22) (%closure-ref self$668 23) (%closure-ref self$668 24) (%closure-ref self$668 25) (%closure-ref self$668 26) (%closure-ref self$668 27) (%closure-ref self$668 28) (%closure-ref self$668 29) (%closure-ref self$668 30) (%closure-ref self$668 31) (%closure-ref self$668 32) (%closure-ref self$668 33) (%closure-ref self$668 34) (%closure-ref self$668 35) (%closure-ref self$668 36) (%closure-ref self$668 37) (%closure-ref self$668 38)) (cell (%closure-ref self$668 19)))) (%closure-ref self$667 1) (%closure-ref self$667 2) (%closure-ref self$667 3) (%closure-ref self$667 4) (%closure-ref self$667 5) (%closure-ref self$667 6) (%closure-ref self$667 7) (%closure-ref self$667 8) (%closure-ref self$667 9) (%closure-ref self$667 10) (%closure-ref self$667 12) (%closure-ref self$667 13) (%closure-ref self$667 14) (%closure-ref self$667 15) (%closure-ref self$667 16) (%closure-ref self$667 17) (%closure-ref self$667 18) (%closure-ref self$667 19) (%closure-ref self$667 20) (%closure-ref self$667 21) (%closure-ref self$667 22) (%closure-ref self$667 23) (%closure-ref self$667 24) tautologyp$137 (%closure-ref self$667 25) (%closure-ref self$667 26) (%closure-ref self$667 27) (%closure-ref self$667 28) (%closure-ref self$667 29) (%closure-ref self$667 30) (%closure-ref self$667 31) (%closure-ref self$667 32) (%closure-ref self$667 33) (%closure-ref self$667 34) (%closure-ref self$667 35) (%closure-ref self$667 36) (%closure-ref self$667 37) (%closure-ref self$667 38)) (cell (%closure-ref self$667 11)))) (%closure-ref self$666 1) (%closure-ref self$666 2) (%closure-ref self$666 3) (%closure-ref self$666 4) (%closure-ref self$666 5) (%closure-ref self$666 6) (%closure-ref self$666 7) (%closure-ref self$666 8) (%closure-ref self$666 9) (%closure-ref self$666 10) (%closure-ref self$666 11) (%closure-ref self$666 12) (%closure-ref self$666 13) (%closure-ref self$666 14) (%closure-ref self$666 15) (%closure-ref self$666 16) (%closure-ref self$666 17) (%closure-ref self$666 18) (%closure-ref self$666 19) (%closure-ref self$666 20) (%closure-ref self$666 21) (%closure-ref self$666 22) (%closure-ref self$666 23) (%closure-ref self$666 24) tautp$138 (%closure-ref self$666 26) (%closure-ref self$666 27) (%closure-ref self$666 28) (%closure-ref self$666 29) (%closure-ref self$666 30) (%closure-ref self$666 31) (%closure-ref self$666 32) (%closure-ref self$666 33) (%closure-ref self$666 34) (%closure-ref self$666 35) (%closure-ref self$666 36) (%closure-ref self$666 37) (%closure-ref self$666 38)) (cell (%closure-ref self$666 25)))) (%closure-ref self$665 1) (%closure-ref self$665 2) (%closure-ref self$665 3) (%closure-ref self$665 4) apply-subst-lst$139 (%closure-ref self$665 5) (%closure-ref self$665 6) (%closure-ref self$665 7) (%closure-ref self$665 8) (%closure-ref self$665 9) (%closure-ref self$665 10) (%closure-ref self$665 11) (%closure-ref self$665 12) (%closure-ref self$665 13) (%closure-ref self$665 14) (%closure-ref self$665 15) (%closure-ref self$665 16) (%closure-ref self$665 17) (%closure-ref self$665 18) (%closure-ref self$665 19) (%closure-ref self$665 20) (%closure-ref self$665 21) (%closure-ref self$665 22) (%closure-ref self$665 23) (%closure-ref self$665 24) (%closure-ref self$665 26) (%closure-ref self$665 27) (%closure-ref self$665 28) (%closure-ref self$665 29) (%closure-ref self$665 30) (%closure-ref self$665 31) (%closure-ref self$665 32) (%closure-ref self$665 33) (%closure-ref self$665 34) (%closure-ref self$665 35) (%closure-ref self$665 36) (%closure-ref self$665 37) (%closure-ref self$665 38)) (cell (%closure-ref self$665 25)))) (%closure-ref self$664 1) (%closure-ref self$664 2) (%closure-ref self$664 3) apply-subst$140 (%closure-ref self$664 5) (%closure-ref self$664 6) (%closure-ref self$664 7) (%closure-ref self$664 8) (%closure-ref self$664 9) (%closure-ref self$664 10) (%closure-ref self$664 11) (%closure-ref self$664 12) (%closure-ref self$664 13) (%closure-ref self$664 14) (%closure-ref self$664 15) (%closure-ref self$664 16) (%closure-ref self$664 17) (%closure-ref self$664 18) (%closure-ref self$664 19) (%closure-ref self$664 20) (%closure-ref self$664 21) (%closure-ref self$664 22) (%closure-ref self$664 23) (%closure-ref self$664 24) (%closure-ref self$664 25) (%closure-ref self$664 26) (%closure-ref self$664 27) (%closure-ref self$664 28) (%closure-ref self$664 29) (%closure-ref self$664 30) (%closure-ref self$664 31) (%closure-ref self$664 32) (%closure-ref self$664 33) (%closure-ref self$664 34) (%closure-ref self$664 35) (%closure-ref self$664 36) (%closure-ref self$664 37) (%closure-ref self$664 38)) (cell (%closure-ref self$664 4)))) (%closure-ref self$663 1) (%closure-ref self$663 2) (%closure-ref self$663 3) (%closure-ref self$663 5) (%closure-ref self$663 6) (%closure-ref self$663 7) (%closure-ref self$663 8) (%closure-ref self$663 9) (%closure-ref self$663 10) (%closure-ref self$663 11) (%closure-ref self$663 12) (%closure-ref self$663 13) (%closure-ref self$663 14) (%closure-ref self$663 15) (%closure-ref self$663 16) (%closure-ref self$663 17) (%closure-ref self$663 18) (%closure-ref self$663 19) (%closure-ref self$663 20) (%closure-ref self$663 21) (%closure-ref self$663 22) (%closure-ref self$663 23) (%closure-ref self$663 24) (%closure-ref self$663 25) (%closure-ref self$663 26) (%closure-ref self$663 27) (%closure-ref self$663 28) (%closure-ref self$663 29) (%closure-ref self$663 30) (%closure-ref self$663 31) (%closure-ref self$663 32) translate-alist$141 (%closure-ref self$663 33) (%closure-ref self$663 34) (%closure-ref self$663 35) (%closure-ref self$663 36) (%closure-ref self$663 37) (%closure-ref self$663 38)) (cell (%closure-ref self$663 4)))) (%closure-ref self$662 1) (%closure-ref self$662 2) (%closure-ref self$662 3) (%closure-ref self$662 4) (%closure-ref self$662 5) (%closure-ref self$662 6) (%closure-ref self$662 7) (%closure-ref self$662 8) (%closure-ref self$662 9) (%closure-ref self$662 10) (%closure-ref self$662 11) (%closure-ref self$662 12) (%closure-ref self$662 13) (%closure-ref self$662 14) (%closure-ref self$662 15) (%closure-ref self$662 16) (%closure-ref self$662 17) (%closure-ref self$662 18) (%closure-ref self$662 19) (%closure-ref self$662 20) (%closure-ref self$662 21) (%closure-ref self$662 22) (%closure-ref self$662 23) (%closure-ref self$662 24) (%closure-ref self$662 25) (%closure-ref self$662 26) (%closure-ref self$662 27) (%closure-ref self$662 28) (%closure-ref self$662 29) test$142 (%closure-ref self$662 30) (%closure-ref self$662 31) (%closure-ref self$662 33) (%closure-ref self$662 34) (%closure-ref self$662 35) (%closure-ref self$662 36) (%closure-ref self$662 37) (%closure-ref self$662 38)) (cell (%closure-ref self$662 32)))) (%closure-ref self$661 1) (%closure-ref self$661 2) (%closure-ref self$661 3) (%closure-ref self$661 4) (%closure-ref self$661 5) (%closure-ref self$661 6) (%closure-ref self$661 7) (%closure-ref self$661 8) (%closure-ref self$661 9) (%closure-ref self$661 10) (%closure-ref self$661 11) (%closure-ref self$661 12) (%closure-ref self$661 13) (%closure-ref self$661 14) (%closure-ref self$661 15) (%closure-ref self$661 16) (%closure-ref self$661 17) (%closure-ref self$661 18) (%closure-ref self$661 19) (%closure-ref self$661 20) (%closure-ref self$661 21) (%closure-ref self$661 22) (%closure-ref self$661 23) symbol-record-equal?$143 (%closure-ref self$661 24) (%closure-ref self$661 25) (%closure-ref self$661 26) (%closure-ref self$661 27) (%closure-ref self$661 28) (%closure-ref self$661 30) (%closure-ref self$661 31) (%closure-ref self$661 32) (%closure-ref self$661 33) (%closure-ref self$661 34) (%closure-ref self$661 35) (%closure-ref self$661 36) (%closure-ref self$661 37) (%closure-ref self$661 38)) (cell (%closure-ref self$661 29)))) (%closure-ref self$660 1) (%closure-ref self$660 2) (%closure-ref self$660 3) (%closure-ref self$660 4) (%closure-ref self$660 5) (%closure-ref self$660 6) (%closure-ref self$660 7) (%closure-ref self$660 8) (%closure-ref self$660 9) get-name$144 (%closure-ref self$660 10) (%closure-ref self$660 11) (%closure-ref self$660 12) (%closure-ref self$660 13) (%closure-ref self$660 14) (%closure-ref self$660 15) (%closure-ref self$660 16) (%closure-ref self$660 17) (%closure-ref self$660 18) (%closure-ref self$660 19) (%closure-ref self$660 20) (%closure-ref self$660 21) (%closure-ref self$660 22) (%closure-ref self$660 24) (%closure-ref self$660 25) (%closure-ref self$660 26) (%closure-ref self$660 27) (%closure-ref self$660 28) (%closure-ref self$660 29) (%closure-ref self$660 30) (%closure-ref self$660 31) (%closure-ref self$660 32) (%closure-ref self$660 33) (%closure-ref self$660 34) (%closure-ref self$660 35) (%closure-ref self$660 36) (%closure-ref self$660 37) (%closure-ref self$660 38)) (cell (%closure-ref self$660 23)))) (%closure-ref self$659 1) (%closure-ref self$659 2) (%closure-ref self$659 3) (%closure-ref self$659 4) (%closure-ref self$659 5) (%closure-ref self$659 6) (%closure-ref self$659 7) (%closure-ref self$659 8) get-lemmas$145 (%closure-ref self$659 10) (%closure-ref self$659 11) (%closure-ref self$659 12) (%closure-ref self$659 13) (%closure-ref self$659 14) (%closure-ref self$659 15) (%closure-ref self$659 16) (%closure-ref self$659 17) (%closure-ref self$659 18) (%closure-ref self$659 19) (%closure-ref self$659 20) (%closure-ref self$659 21) (%closure-ref self$659 22) (%closure-ref self$659 23) (%closure-ref self$659 24) (%closure-ref self$659 25) (%closure-ref self$659 26) (%closure-ref self$659 27) (%closure-ref self$659 28) (%closure-ref self$659 29) (%closure-ref self$659 30) (%closure-ref self$659 31) (%closure-ref self$659 32) (%closure-ref self$659 33) (%closure-ref self$659 34) (%closure-ref self$659 35) (%closure-ref self$659 36) (%closure-ref self$659 37) (%closure-ref self$659 38)) (cell (%closure-ref self$659 9)))) (%closure-ref self$658 1) (%closure-ref self$658 2) (%closure-ref self$658 3) (%closure-ref self$658 4) (%closure-ref self$658 5) (%closure-ref self$658 6) (%closure-ref self$658 7) (%closure-ref self$658 8) (%closure-ref self$658 10) (%closure-ref self$658 11) (%closure-ref self$658 12) (%closure-ref self$658 13) (%closure-ref self$658 14) (%closure-ref self$658 15) (%closure-ref self$658 16) put-lemmas!$146 (%closure-ref self$658 17) (%closure-ref self$658 18) (%closure-ref self$658 19) (%closure-ref self$658 20) (%closure-ref self$658 21) (%closure-ref self$658 22) (%closure-ref self$658 23) (%closure-ref self$658 24) (%closure-ref self$658 25) (%closure-ref self$658 26) (%closure-ref self$658 27) (%closure-ref self$658 28) (%closure-ref self$658 29) (%closure-ref self$658 30) (%closure-ref self$658 31) (%closure-ref self$658 32) (%closure-ref self$658 33) (%closure-ref self$658 34) (%closure-ref self$658 35) (%closure-ref self$658 36) (%closure-ref self$658 37) (%closure-ref self$658 38)) (cell (%closure-ref self$658 9)))) (%closure-ref self$657 1) (%closure-ref self$657 2) (%closure-ref self$657 3) (%closure-ref self$657 4) (%closure-ref self$657 5) (%closure-ref self$657 6) (%closure-ref self$657 7) (%closure-ref self$657 8) (%closure-ref self$657 9) (%closure-ref self$657 10) (%closure-ref self$657 11) make-symbol-record$147 (%closure-ref self$657 12) (%closure-ref self$657 13) (%closure-ref self$657 14) (%closure-ref self$657 15) (%closure-ref self$657 17) (%closure-ref self$657 18) (%closure-ref self$657 19) (%closure-ref self$657 20) (%closure-ref self$657 21) (%closure-ref self$657 22) (%closure-ref self$657 23) (%closure-ref self$657 24) (%closure-ref self$657 25) (%closure-ref self$657 26) (%closure-ref self$657 27) (%closure-ref self$657 28) (%closure-ref self$657 29) (%closure-ref self$657 30) (%closure-ref self$657 31) (%closure-ref self$657 32) (%closure-ref self$657 33) (%closure-ref self$657 34) (%closure-ref self$657 35) (%closure-ref self$657 36) (%closure-ref self$657 37) (%closure-ref self$657 38)) (cell (%closure-ref self$657 16)))) *symbol-records-alist*$148 (%closure-ref self$656 1) (%closure-ref self$656 2) (%closure-ref self$656 3) (%closure-ref self$656 4) (%closure-ref self$656 5) (%closure-ref self$656 6) (%closure-ref self$656 7) (%closure-ref self$656 8) (%closure-ref self$656 9) (%closure-ref self$656 10) (%closure-ref self$656 12) (%closure-ref self$656 13) (%closure-ref self$656 14) (%closure-ref self$656 15) (%closure-ref self$656 16) (%closure-ref self$656 17) (%closure-ref self$656 18) (%closure-ref self$656 19) (%closure-ref self$656 20) (%closure-ref self$656 21) (%closure-ref self$656 22) (%closure-ref self$656 23) (%closure-ref self$656 24) (%closure-ref self$656 25) (%closure-ref self$656 26) (%closure-ref self$656 27) (%closure-ref self$656 28) (%closure-ref self$656 29) (%closure-ref self$656 30) (%closure-ref self$656 31) (%closure-ref self$656 32) (%closure-ref self$656 33) (%closure-ref self$656 34) (%closure-ref self$656 35) (%closure-ref self$656 36) (%closure-ref self$656 37) (%closure-ref self$656 38)) (cell (%closure-ref self$656 11)))) (%closure-ref self$655 2) (%closure-ref self$655 3) (%closure-ref self$655 4) (%closure-ref self$655 5) (%closure-ref self$655 6) (%closure-ref self$655 7) (%closure-ref self$655 8) (%closure-ref self$655 9) (%closure-ref self$655 10) (%closure-ref self$655 11) (%closure-ref self$655 12) (%closure-ref self$655 13) (%closure-ref self$655 14) (%closure-ref self$655 15) (%closure-ref self$655 16) (%closure-ref self$655 17) (%closure-ref self$655 18) (%closure-ref self$655 19) (%closure-ref self$655 20) (%closure-ref self$655 21) (%closure-ref self$655 22) symbol->symbol-record$149 (%closure-ref self$655 23) (%closure-ref self$655 24) (%closure-ref self$655 25) (%closure-ref self$655 26) (%closure-ref self$655 27) (%closure-ref self$655 28) (%closure-ref self$655 29) (%closure-ref self$655 30) (%closure-ref self$655 31) (%closure-ref self$655 32) (%closure-ref self$655 33) (%closure-ref self$655 34) (%closure-ref self$655 35) (%closure-ref self$655 36) (%closure-ref self$655 37) (%closure-ref self$655 38)) (cell (%closure-ref self$655 1)))) (%closure-ref self$654 1) (%closure-ref self$654 2) (%closure-ref self$654 3) (%closure-ref self$654 4) (%closure-ref self$654 5) (%closure-ref self$654 6) (%closure-ref self$654 7) get$150 (%closure-ref self$654 8) (%closure-ref self$654 9) (%closure-ref self$654 10) (%closure-ref self$654 11) (%closure-ref self$654 12) (%closure-ref self$654 13) (%closure-ref self$654 14) (%closure-ref self$654 15) (%closure-ref self$654 16) (%closure-ref self$654 17) (%closure-ref self$654 18) (%closure-ref self$654 19) (%closure-ref self$654 20) (%closure-ref self$654 21) (%closure-ref self$654 23) (%closure-ref self$654 24) (%closure-ref self$654 25) (%closure-ref self$654 26) (%closure-ref self$654 27) (%closure-ref self$654 28) (%closure-ref self$654 29) (%closure-ref self$654 30) (%closure-ref self$654 31) (%closure-ref self$654 32) (%closure-ref self$654 33) (%closure-ref self$654 34) (%closure-ref self$654 35) (%closure-ref self$654 36) (%closure-ref self$654 37) (%closure-ref self$654 38)) (cell (%closure-ref self$654 22)))) (%closure-ref self$653 1) (%closure-ref self$653 2) (%closure-ref self$653 3) (%closure-ref self$653 4) (%closure-ref self$653 5) (%closure-ref self$653 6) (%closure-ref self$653 7) (%closure-ref self$653 9) (%closure-ref self$653 10) (%closure-ref self$653 11) (%closure-ref self$653 12) (%closure-ref self$653 13) (%closure-ref self$653 14) (%closure-ref self$653 15) put$151 (%closure-ref self$653 16) (%closure-ref self$653 17) (%closure-ref self$653 18) (%closure-ref self$653 19) (%closure-ref self$653 20) (%closure-ref self$653 21) (%closure-ref self$653 22) (%closure-ref self$653 23) (%closure-ref self$653 24) (%closure-ref self$653 25) (%closure-ref self$653 26) (%closure-ref self$653 27) (%closure-ref self$653 28) (%closure-ref self$653 29) (%closure-ref self$653 30) (%closure-ref self$653 31) (%closure-ref self$653 32) (%closure-ref self$653 33) (%closure-ref self$653 34) (%closure-ref self$653 35) (%closure-ref self$653 36) (%closure-ref self$653 37) (%closure-ref self$653 38)) (cell (%closure-ref self$653 8)))) (%closure-ref self$652 1) (%closure-ref self$652 2) (%closure-ref self$652 3) (%closure-ref self$652 4) (%closure-ref self$652 5) (%closure-ref self$652 6) (%closure-ref self$652 7) (%closure-ref self$652 8) (%closure-ref self$652 9) (%closure-ref self$652 10) (%closure-ref self$652 11) (%closure-ref self$652 12) (%closure-ref self$652 13) (%closure-ref self$652 14) (%closure-ref self$652 15) (%closure-ref self$652 17) (%closure-ref self$652 18) (%closure-ref self$652 19) (%closure-ref self$652 20) (%closure-ref self$652 21) (%closure-ref self$652 22) (%closure-ref self$652 23) (%closure-ref self$652 24) (%closure-ref self$652 25) (%closure-ref self$652 26) (%closure-ref self$652 27) (%closure-ref self$652 28) (%closure-ref self$652 29) (%closure-ref self$652 30) (%closure-ref self$652 31) (%closure-ref self$652 32) (%closure-ref self$652 33) (%closure-ref self$652 34) (%closure-ref self$652 35) (%closure-ref self$652 36) (%closure-ref self$652 37) (%closure-ref self$652 38) untranslate-term$152) (cell (%closure-ref self$652 16)))) (%closure-ref self$651 1) (%closure-ref self$651 2) (%closure-ref self$651 3) (%closure-ref self$651 4) (%closure-ref self$651 5) (%closure-ref self$651 6) (%closure-ref self$651 7) (%closure-ref self$651 8) (%closure-ref self$651 9) (%closure-ref self$651 10) (%closure-ref self$651 11) (%closure-ref self$651 12) (%closure-ref self$651 13) (%closure-ref self$651 14) (%closure-ref self$651 15) (%closure-ref self$651 16) (%closure-ref self$651 17) (%closure-ref self$651 18) (%closure-ref self$651 19) (%closure-ref self$651 20) (%closure-ref self$651 21) (%closure-ref self$651 22) (%closure-ref self$651 23) (%closure-ref self$651 24) (%closure-ref self$651 25) (%closure-ref self$651 26) (%closure-ref self$651 27) (%closure-ref self$651 28) (%closure-ref self$651 29) (%closure-ref self$651 30) (%closure-ref self$651 31) (%closure-ref self$651 32) (%closure-ref self$651 33) translate-args$153 (%closure-ref self$651 34) (%closure-ref self$651 35) (%closure-ref self$651 36) (%closure-ref self$651 37)) (cell (%closure-ref self$651 38)))) (%closure-ref self$650 1) (%closure-ref self$650 2) (%closure-ref self$650 3) (%closure-ref self$650 4) (%closure-ref self$650 5) (%closure-ref self$650 6) (%closure-ref self$650 7) (%closure-ref self$650 8) (%closure-ref self$650 9) (%closure-ref self$650 10) (%closure-ref self$650 11) (%closure-ref self$650 12) (%closure-ref self$650 13) (%closure-ref self$650 14) (%closure-ref self$650 15) (%closure-ref self$650 16) (%closure-ref self$650 17) (%closure-ref self$650 18) (%closure-ref self$650 19) (%closure-ref self$650 20) (%closure-ref self$650 21) (%closure-ref self$650 22) (%closure-ref self$650 23) (%closure-ref self$650 24) (%closure-ref self$650 25) (%closure-ref self$650 26) (%closure-ref self$650 27) (%closure-ref self$650 28) (%closure-ref self$650 29) (%closure-ref self$650 30) (%closure-ref self$650 31) (%closure-ref self$650 32) (%closure-ref self$650 33) translate-term$154 (%closure-ref self$650 35) (%closure-ref self$650 36) (%closure-ref self$650 37) (%closure-ref self$650 38)) (cell (%closure-ref self$650 34)))) (%closure-ref self$649 1) add-lemma$155 (%closure-ref self$649 2) (%closure-ref self$649 3) (%closure-ref self$649 4) (%closure-ref self$649 5) (%closure-ref self$649 6) (%closure-ref self$649 7) (%closure-ref self$649 8) (%closure-ref self$649 9) (%closure-ref self$649 10) (%closure-ref self$649 11) (%closure-ref self$649 12) (%closure-ref self$649 13) (%closure-ref self$649 14) (%closure-ref self$649 15) (%closure-ref self$649 16) (%closure-ref self$649 17) (%closure-ref self$649 18) (%closure-ref self$649 19) (%closure-ref self$649 20) (%closure-ref self$649 21) (%closure-ref self$649 22) (%closure-ref self$649 23) (%closure-ref self$649 24) (%closure-ref self$649 25) (%closure-ref self$649 26) (%closure-ref self$649 27) (%closure-ref self$649 28) (%closure-ref self$649 29) (%closure-ref self$649 30) (%closure-ref self$649 31) (%closure-ref self$649 32) (%closure-ref self$649 33) (%closure-ref self$649 35) (%closure-ref self$649 36) (%closure-ref self$649 37) (%closure-ref self$649 38)) (cell (%closure-ref self$649 34)))) (%closure-ref self$648 1) add-lemma-lst$156 (%closure-ref self$648 3) (%closure-ref self$648 4) (%closure-ref self$648 5) (%closure-ref self$648 6) (%closure-ref self$648 7) (%closure-ref self$648 8) (%closure-ref self$648 9) (%closure-ref self$648 10) (%closure-ref self$648 11) (%closure-ref self$648 12) (%closure-ref self$648 13) (%closure-ref self$648 14) (%closure-ref self$648 15) (%closure-ref self$648 16) (%closure-ref self$648 17) (%closure-ref self$648 18) (%closure-ref self$648 19) (%closure-ref self$648 20) (%closure-ref self$648 21) (%closure-ref self$648 22) (%closure-ref self$648 23) (%closure-ref self$648 24) (%closure-ref self$648 25) (%closure-ref self$648 26) (%closure-ref self$648 27) (%closure-ref self$648 28) (%closure-ref self$648 29) (%closure-ref self$648 30) (%closure-ref self$648 31) (%closure-ref self$648 32) (%closure-ref self$648 33) (%closure-ref self$648 34) (%closure-ref self$648 35) (%closure-ref self$648 36) (%closure-ref self$648 37) (%closure-ref self$648 38)) (cell (%closure-ref self$648 2)))) (%closure-ref self$647 1) (%closure-ref self$647 2) (%closure-ref self$647 4) (%closure-ref self$647 5) (%closure-ref self$647 6) (%closure-ref self$647 7) (%closure-ref self$647 8) (%closure-ref self$647 9) (%closure-ref self$647 10) (%closure-ref self$647 11) (%closure-ref self$647 12) (%closure-ref self$647 13) (%closure-ref self$647 14) (%closure-ref self$647 15) (%closure-ref self$647 16) (%closure-ref self$647 17) (%closure-ref self$647 18) (%closure-ref self$647 19) (%closure-ref self$647 20) (%closure-ref self$647 21) setup$157 (%closure-ref self$647 22) (%closure-ref self$647 23) (%closure-ref self$647 24) (%closure-ref self$647 25) (%closure-ref self$647 26) (%closure-ref self$647 27) (%closure-ref self$647 28) (%closure-ref self$647 29) (%closure-ref self$647 30) (%closure-ref self$647 31) (%closure-ref self$647 32) (%closure-ref self$647 33) (%closure-ref self$647 34) (%closure-ref self$647 35) (%closure-ref self$647 36) (%closure-ref self$647 37) (%closure-ref self$647 38)) (cell (%closure-ref self$647 3)))) *symbol-records-alist*$148 add-lemma$155 add-lemma-lst$156 apply-subst$140 apply-subst-lst$139 false-term$125 falsep$127 get$150 get-lemmas$145 get-name$144 if-constructor$136 make-symbol-record$147 one-way-unify$130 one-way-unify1$129 one-way-unify1-lst$128 put$151 put-lemmas!$146 rewrite$134 rewrite-args$133 rewrite-count$135 rewrite-with-lemmas$132 symbol->symbol-record$149 symbol-record-equal?$143 tautologyp$137 tautp$138 term-args-equal?$120 term-equal?$121 term-member?$119 test$142 trans-of-implies$123 trans-of-implies1$122 translate-alist$141 translate-args$153 translate-term$154 true-term$124 truep$126 unify-subst$131 untranslate-term$152) (cell setup$157))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))) (set-global! term r$564))) (quote (implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w))))) (set-global! alist r$565))) (quote ((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))))) 0)))) #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)) */
/* 
"---------------- C code:" */
#define closcall0(td,clo) ((clo)->fn)(td,0,clo)
#define return_closcall0(td, clo) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[0]; \
     GC(td,clo,buf,0); return; \
 } else {closcall0(td,(closure) (clo)); return;}}

#define return_direct0(td, _fn) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[0];  \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 0); return; \
 } else { (_fn)(td,0,(closure)_fn); }}

#define closcall1(td,clo,a1) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,0, (closure)(a1), clo); } else { ((clo)->fn)(td,1,clo,a1);}
#define return_closcall1(td, clo,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td,clo,buf,1); return; \
 } else {closcall1(td,(closure) (clo),a1); return;}}

#define return_direct1(td, _fn,a1) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 1); return; \
 } else { (_fn)(td,1,(closure)_fn,a1); }}

#define closcall2(td,clo,a1,a2) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,1, (closure)(a1), clo,a2); } else { ((clo)->fn)(td,2,clo,a1,a2);}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td,clo,buf,2); return; \
 } else {closcall2(td,(closure) (clo),a1,a2); return;}}

#define return_direct2(td, _fn,a1,a2) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 2); return; \
 } else { (_fn)(td,2,(closure)_fn,a1,a2); }}

#define closcall3(td,clo,a1,a2,a3) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,2, (closure)(a1), clo,a2,a3); } else { ((clo)->fn)(td,3,clo,a1,a2,a3);}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td,clo,buf,3); return; \
 } else {closcall3(td,(closure) (clo),a1,a2,a3); return;}}

#define return_direct3(td, _fn,a1,a2,a3) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 3); return; \
 } else { (_fn)(td,3,(closure)_fn,a1,a2,a3); }}

#define closcall4(td,clo,a1,a2,a3,a4) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,3, (closure)(a1), clo,a2,a3,a4); } else { ((clo)->fn)(td,4,clo,a1,a2,a3,a4);}
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td,clo,buf,4); return; \
 } else {closcall4(td,(closure) (clo),a1,a2,a3,a4); return;}}

#define return_direct4(td, _fn,a1,a2,a3,a4) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 4); return; \
 } else { (_fn)(td,4,(closure)_fn,a1,a2,a3,a4); }}

#define closcall5(td,clo,a1,a2,a3,a4,a5) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,4, (closure)(a1), clo,a2,a3,a4,a5); } else { ((clo)->fn)(td,5,clo,a1,a2,a3,a4,a5);}
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
     GC(td,clo,buf,5); return; \
 } else {closcall5(td,(closure) (clo),a1,a2,a3,a4,a5); return;}}

#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 5); return; \
 } else { (_fn)(td,5,(closure)_fn,a1,a2,a3,a4,a5); }}

#define closcall39(td,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) if (type_of(clo) == cons_tag || prim(clo)) { Cyc_apply(td,38, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); } else { ((clo)->fn)(td,39,clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39);}
#define return_closcall39(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[39]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39;\
     GC(td,clo,buf,39); return; \
 } else {closcall39(td,(closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); return;}}

#define return_direct39(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39) { \
 char top; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[39]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;buf[9] = a10;buf[10] = a11;buf[11] = a12;buf[12] = a13;buf[13] = a14;buf[14] = a15;buf[15] = a16;buf[16] = a17;buf[17] = a18;buf[18] = a19;buf[19] = a20;buf[20] = a21;buf[21] = a22;buf[22] = a23;buf[23] = a24;buf[24] = a25;buf[25] = a26;buf[26] = a27;buf[27] = a28;buf[28] = a29;buf[29] = a30;buf[30] = a31;buf[31] = a32;buf[32] = a33;buf[33] = a34;buf[34] = a35;buf[35] = a36;buf[36] = a37;buf[37] = a38;buf[38] = a39; \
     mclosure0(c1, _fn); \
     GC(td, &c1, buf, 39); return; \
 } else { (_fn)(td,39,(closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39); }}

#include "cyclone/types.h"
object __glo_run_91r7rs_91benchmark = nil;
object __glo_hide = nil;
object __glo_test_91boyer = nil;
object __glo_setup_91boyer = nil;
object __glo_term = nil;
object __glo_alist = nil;
object __glo_main = nil;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_caaaaar_scheme_cxr;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
defsymbol(u);
defsymbol(mem);
defsymbol(val);
defsymbol(set);
defsymbol(get);
defsymbol(cdr);
defsymbol(assignedp);
defsymbol(assignment);
defsymbol(car);
defsymbol(last);
defsymbol(sigma);
defsymbol(x7);
defsymbol(x6);
defsymbol(x5);
defsymbol(x4);
defsymbol(x3);
defsymbol(x2);
defsymbol(x1);
defsymbol(dsort);
defsymbol(sort2);
defsymbol(delete);
defsymbol(prime_91list);
defsymbol(times_91list);
defsymbol(greatest_91factor);
defsymbol(samefringe);
defsymbol(gopher);
defsymbol(listp);
defsymbol(nlistp);
defsymbol(value);
defsymbol(w);
defsymbol(gcd);
defsymbol(power_91rep);
defsymbol(big_91plus);
defsymbol(base);
defsymbol(big_91plus1);
defsymbol(power_91eval);
defsymbol(quotient);
defsymbol(sort_91lp);
defsymbol(count_91list);
defsymbol(k);
defsymbol(j);
defsymbol(exp);
defsymbol(nth);
defsymbol(intersect);
defsymbol(length);
defsymbol(member);
defsymbol(flatten);
defsymbol(mc_91flatten);
defsymbol(envrn);
defsymbol(pds);
defsymbol(exec);
defsymbol(times);
defsymbol(plus_91fringe);
defsymbol(append);
defsymbol(plus_91tree);
defsymbol(meaning);
defsymbol(difference);
defsymbol(z);
defsymbol(plus);
defsymbol(e);
defsymbol(d);
defsymbol(c);
defsymbol(b);
defsymbol(a);
defsymbol(numberp);
defsymbol(q);
defsymbol(p);
defsymbol(prime1);
defsymbol(add1);
defsymbol(prime);
defsymbol(falsify1);
defsymbol(falsify);
defsymbol(normalize);
defsymbol(tautologyp);
defsymbol(tautology_91checker);
defsymbol(assume_91false);
defsymbol(cons);
defsymbol(alist);
defsymbol(var);
defsymbol(assume_91true);
defsymbol(remainder);
defsymbol(divides);
defsymbol(reverse_91loop);
defsymbol(reverse_91);
defsymbol(fact_91loop);
defsymbol(i);
defsymbol(fact_91);
defsymbol(zero);
defsymbol(countps_91loop);
defsymbol(pred);
defsymbol(l);
defsymbol(countps_91);
defsymbol(_1911_91);
defsymbol(odd);
defsymbol(zerop);
defsymbol(even1);
defsymbol(iff);
defsymbol(boolean);
defsymbol(greatereqp);
defsymbol(not);
defsymbol(lesseqp);
defsymbol(lessp);
defsymbol(greaterp);
defsymbol(fix);
defsymbol(y);
defsymbol(x);
defsymbol(eqp);
defsymbol(nil);
defsymbol(optimize);
defsymbol(codegen);
defsymbol(reverse);
defsymbol(form);
defsymbol(compile);
defsymbol(lemmas);
defsymbol(equal);
defsymbol(or);
defsymbol(_85);
defsymbol(and);
defsymbol(implies);
defsymbol(_if);
defsymbol(f);
defsymbol(t);
static void __lambda_483(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73118, object add_91lemma_73117, object add_91lemma_91lst_73116, object apply_91subst_73115, object apply_91subst_91lst_73114, object false_91term_73113, object falsep_73112, object get_73111, object get_91lemmas_73110, object get_91name_73109, object if_91constructor_73108, object make_91symbol_91record_73107, object one_91way_91unify_73106, object one_91way_91unify1_73105, object one_91way_91unify1_91lst_73104, object put_73103, object put_91lemmas_67_73102, object rewrite_73101, object rewrite_91args_73100, object rewrite_91count_7399, object rewrite_91with_91lemmas_7398, object setup_7397, object symbol_91_125symbol_91record_7396, object symbol_91record_91equal_127_7395, object tautologyp_7394, object tautp_7393, object term_91args_91equal_127_7392, object term_91equal_127_7391, object term_91member_127_7390, object test_7389, object trans_91of_91implies_7388, object trans_91of_91implies1_7387, object translate_91alist_7386, object translate_91args_7385, object translate_91term_7384, object true_91term_7383, object truep_7382, object unify_91subst_7381, object untranslate_91term_7380) ;
static void __lambda_482(void *data, int argc, closure _) ;
static void __lambda_481(void *data, int argc, closure _,object r_73261) ;
static void __lambda_480(void *data, int argc, closure _,object r_73565) ;
static void __lambda_479(void *data, int argc, closure _,object r_73262) ;
static void __lambda_478(void *data, int argc, closure _,object r_73564) ;
static void __lambda_477(void *data, int argc, closure _,object r_73263) ;
static void __lambda_476(void *data, int argc, closure _) ;
static void __lambda_475(void *data, int argc, closure _,object setup_73157, object add_91lemma_91lst_73156, object add_91lemma_73155, object translate_91term_73154, object translate_91args_73153, object untranslate_91term_73152, object put_73151, object get_73150, object symbol_91_125symbol_91record_73149, object _85symbol_91records_91alist_85_73148, object make_91symbol_91record_73147, object put_91lemmas_67_73146, object get_91lemmas_73145, object get_91name_73144, object symbol_91record_91equal_127_73143, object test_73142, object translate_91alist_73141, object apply_91subst_73140, object apply_91subst_91lst_73139, object tautp_73138, object tautologyp_73137, object if_91constructor_73136, object rewrite_91count_73135, object rewrite_73134, object rewrite_91args_73133, object rewrite_91with_91lemmas_73132, object unify_91subst_73131, object one_91way_91unify_73130, object one_91way_91unify1_73129, object one_91way_91unify1_91lst_73128, object falsep_73127, object truep_73126, object false_91term_73125, object true_91term_73124, object trans_91of_91implies_73123, object trans_91of_91implies1_73122, object term_91equal_127_73121, object term_91args_91equal_127_73120, object term_91member_127_73119) ;
static void __lambda_474(void *data, int argc, object self_73647, object setup_73157) ;
static void __lambda_473(void *data, int argc, object self_73648, object add_91lemma_91lst_73156) ;
static void __lambda_472(void *data, int argc, object self_73649, object add_91lemma_73155) ;
static void __lambda_471(void *data, int argc, object self_73650, object translate_91term_73154) ;
static void __lambda_470(void *data, int argc, object self_73651, object translate_91args_73153) ;
static void __lambda_469(void *data, int argc, object self_73652, object untranslate_91term_73152) ;
static void __lambda_468(void *data, int argc, object self_73653, object put_73151) ;
static void __lambda_467(void *data, int argc, object self_73654, object get_73150) ;
static void __lambda_466(void *data, int argc, object self_73655, object symbol_91_125symbol_91record_73149) ;
static void __lambda_465(void *data, int argc, object self_73656, object _85symbol_91records_91alist_85_73148) ;
static void __lambda_464(void *data, int argc, object self_73657, object make_91symbol_91record_73147) ;
static void __lambda_463(void *data, int argc, object self_73658, object put_91lemmas_67_73146) ;
static void __lambda_462(void *data, int argc, object self_73659, object get_91lemmas_73145) ;
static void __lambda_461(void *data, int argc, object self_73660, object get_91name_73144) ;
static void __lambda_460(void *data, int argc, object self_73661, object symbol_91record_91equal_127_73143) ;
static void __lambda_459(void *data, int argc, object self_73662, object test_73142) ;
static void __lambda_458(void *data, int argc, object self_73663, object translate_91alist_73141) ;
static void __lambda_457(void *data, int argc, object self_73664, object apply_91subst_73140) ;
static void __lambda_456(void *data, int argc, object self_73665, object apply_91subst_91lst_73139) ;
static void __lambda_455(void *data, int argc, object self_73666, object tautp_73138) ;
static void __lambda_454(void *data, int argc, object self_73667, object tautologyp_73137) ;
static void __lambda_453(void *data, int argc, object self_73668, object if_91constructor_73136) ;
static void __lambda_452(void *data, int argc, object self_73669, object rewrite_91count_73135) ;
static void __lambda_451(void *data, int argc, object self_73670, object rewrite_73134) ;
static void __lambda_450(void *data, int argc, object self_73671, object rewrite_91args_73133) ;
static void __lambda_449(void *data, int argc, object self_73672, object rewrite_91with_91lemmas_73132) ;
static void __lambda_448(void *data, int argc, object self_73673, object unify_91subst_73131) ;
static void __lambda_447(void *data, int argc, object self_73674, object one_91way_91unify_73130) ;
static void __lambda_446(void *data, int argc, object self_73675, object one_91way_91unify1_73129) ;
static void __lambda_445(void *data, int argc, object self_73676, object one_91way_91unify1_91lst_73128) ;
static void __lambda_444(void *data, int argc, object self_73677, object falsep_73127) ;
static void __lambda_443(void *data, int argc, object self_73678, object truep_73126) ;
static void __lambda_442(void *data, int argc, object self_73679, object false_91term_73125) ;
static void __lambda_441(void *data, int argc, object self_73680, object true_91term_73124) ;
static void __lambda_440(void *data, int argc, object self_73681, object trans_91of_91implies_73123) ;
static void __lambda_439(void *data, int argc, object self_73682, object trans_91of_91implies1_73122) ;
static void __lambda_438(void *data, int argc, object self_73683, object term_91equal_127_73121) ;
static void __lambda_437(void *data, int argc, object self_73684, object term_91args_91equal_127_73120) ;
static void __lambda_436(void *data, int argc, object self_73685, object term_91member_127_73119) ;
static void __lambda_435(void *data, int argc, object self_73686, object k_73562) ;
static void __lambda_434(void *data, int argc, object self_73687, object r_73563) ;
static void __lambda_433(void *data, int argc, object self_73688, object r_73561) ;
static void __lambda_432(void *data, int argc, object self_73689, object r_73265) ;
static void __lambda_431(void *data, int argc, object self_73690, object k_73556, object lst_73225) ;
static void __lambda_430(void *data, int argc, object self_73691, object r_73557) ;
static void __lambda_429(void *data, int argc, object self_73692) ;
static void __lambda_428(void *data, int argc, object self_73693, object r_73560) ;
static void __lambda_427(void *data, int argc, object self_73694, object r_73558) ;
static void __lambda_426(void *data, int argc, object self_73695, object r_73559) ;
static void __lambda_425(void *data, int argc, object self_73696) ;
static void __lambda_424(void *data, int argc, object self_73697, object r_73555) ;
static void __lambda_423(void *data, int argc, object self_73698, object r_73266) ;
static void __lambda_422(void *data, int argc, object self_73699, object k_73538, object term_73224) ;
static void __lambda_421(void *data, int argc, object self_73700, object r_73539) ;
static void __lambda_420(void *data, int argc, object self_73701) ;
static void __lambda_419(void *data, int argc, object self_73702) ;
static void __lambda_418(void *data, int argc, object self_73703, object r_73548) ;
static void __lambda_417(void *data, int argc, object self_73704, object r_73540) ;
static void __lambda_416(void *data, int argc, object self_73705, object r_73541) ;
static void __lambda_415(void *data, int argc, object self_73706, object r_73543) ;
static void __lambda_414(void *data, int argc, object self_73707, object r_73547) ;
static void __lambda_413(void *data, int argc, object self_73708, object r_73545) ;
static void __lambda_412(void *data, int argc, object self_73709, object r_73546) ;
static void __lambda_411(void *data, int argc, object self_73710, object r_73544) ;
static void __lambda_410(void *data, int argc, object self_73711, object r_73542) ;
static void __lambda_409(void *data, int argc, object self_73712, object k_73549) ;
static void __lambda_408(void *data, int argc, object self_73713, object r_73550) ;
static void __lambda_407(void *data, int argc, object self_73714, object r_73553) ;
static void __lambda_406(void *data, int argc, object self_73715, object r_73554) ;
static void __lambda_405(void *data, int argc, object self_73716, object r_73551) ;
static void __lambda_404(void *data, int argc, object self_73717, object r_73552) ;
static void __lambda_403(void *data, int argc, object self_73718, object r_73537) ;
static void __lambda_402(void *data, int argc, object self_73719, object r_73267) ;
static void __lambda_401(void *data, int argc, object self_73720, object k_73531, object term_73223) ;
static void __lambda_400(void *data, int argc, object self_73721, object r_73532) ;
static void __lambda_399(void *data, int argc, object self_73722) ;
static void __lambda_398(void *data, int argc, object self_73723) ;
static void __lambda_397(void *data, int argc, object self_73724, object r_73536) ;
static void __lambda_396(void *data, int argc, object self_73725, object r_73533) ;
static void __lambda_395(void *data, int argc, object self_73726, object r_73535) ;
static void __lambda_394(void *data, int argc, object self_73727, object r_73534) ;
static void __lambda_393(void *data, int argc, object self_73728, object r_73530) ;
static void __lambda_392(void *data, int argc, object self_73729, object r_73268) ;
static void __lambda_391(void *data, int argc, object self_73730, object k_73524, object lst_73222) ;
static void __lambda_390(void *data, int argc, object self_73731, object r_73525) ;
static void __lambda_389(void *data, int argc, object self_73732) ;
static void __lambda_388(void *data, int argc, object self_73733, object r_73529) ;
static void __lambda_387(void *data, int argc, object self_73734, object r_73526) ;
static void __lambda_386(void *data, int argc, object self_73735, object r_73528) ;
static void __lambda_385(void *data, int argc, object self_73736, object r_73527) ;
static void __lambda_384(void *data, int argc, object self_73737) ;
static void __lambda_383(void *data, int argc, object self_73738, object r_73523) ;
static void __lambda_382(void *data, int argc, object self_73739, object r_73269) ;
static void __lambda_381(void *data, int argc, object self_73740, object k_73517, object term_73221) ;
static void __lambda_380(void *data, int argc, object self_73741, object r_73518) ;
static void __lambda_379(void *data, int argc, object self_73742) ;
static void __lambda_378(void *data, int argc, object self_73743) ;
static void __lambda_377(void *data, int argc, object self_73744, object r_73522) ;
static void __lambda_376(void *data, int argc, object self_73745, object r_73519) ;
static void __lambda_375(void *data, int argc, object self_73746, object r_73521) ;
static void __lambda_374(void *data, int argc, object self_73747, object r_73520) ;
static void __lambda_373(void *data, int argc, object self_73748, object r_73516) ;
static void __lambda_372(void *data, int argc, object self_73749, object r_73270) ;
static void __lambda_371(void *data, int argc, object self_73750, object k_73514, object sym_73220, object property_73219, object value_73218) ;
static void __lambda_370(void *data, int argc, object self_73751, object r_73515) ;
static void __lambda_369(void *data, int argc, object self_73752, object r_73513) ;
static void __lambda_368(void *data, int argc, object self_73753, object r_73271) ;
static void __lambda_367(void *data, int argc, object self_73754, object k_73511, object sym_73217, object property_73216) ;
static void __lambda_366(void *data, int argc, object self_73755, object r_73512) ;
static void __lambda_365(void *data, int argc, object self_73756, object r_73510) ;
static void __lambda_364(void *data, int argc, object self_73757, object r_73272) ;
static void __lambda_363(void *data, int argc, object self_73758, object k_73504, object sym_73213) ;
static void __lambda_362(void *data, int argc, object self_73759, object x_73214) ;
static void __lambda_361(void *data, int argc, object self_73760, object r_73215) ;
static void __lambda_360(void *data, int argc, object self_73761, object r_73509) ;
static void __lambda_359(void *data, int argc, object self_73762, object r_73508) ;
static void __lambda_358(void *data, int argc, object self_73763, object r_73507) ;
static void __lambda_357(void *data, int argc, object self_73764, object r_73503) ;
static void __lambda_356(void *data, int argc, object self_73765, object r_73273) ;
static void __lambda_355(void *data, int argc, object self_73766, object r_73502) ;
static void __lambda_354(void *data, int argc, object self_73767, object r_73274) ;
static void __lambda_353(void *data, int argc, object self_73768, object k_73500, object sym_73212) ;
static void __lambda_352(void *data, int argc, object self_73769, object r_73501) ;
static void __lambda_351(void *data, int argc, object self_73770, object r_73499) ;
static void __lambda_350(void *data, int argc, object self_73771, object r_73275) ;
static void __lambda_349(void *data, int argc, object self_73772, object k_73498, object symbol_91record_73211, object lemmas_73210) ;
static void __lambda_348(void *data, int argc, object self_73773, object r_73497) ;
static void __lambda_347(void *data, int argc, object self_73774, object r_73276) ;
static void __lambda_346(void *data, int argc, object self_73775, object k_73496, object symbol_91record_73209) ;
static void __lambda_345(void *data, int argc, object self_73776, object r_73495) ;
static void __lambda_344(void *data, int argc, object self_73777, object r_73277) ;
static void __lambda_343(void *data, int argc, object self_73778, object k_73494, object symbol_91record_73208) ;
static void __lambda_342(void *data, int argc, object self_73779, object r_73493) ;
static void __lambda_341(void *data, int argc, object self_73780, object r_73278) ;
static void __lambda_340(void *data, int argc, object self_73781, object k_73492, object r1_73207, object r2_73206) ;
static void __lambda_339(void *data, int argc, object self_73782, object r_73491) ;
static void __lambda_338(void *data, int argc, object self_73783, object r_73279) ;
static void __lambda_337(void *data, int argc, object self_73784, object k_73478, object alist_73199, object term_73198, object n_73197) ;
static void __lambda_336(void *data, int argc, object self_73785, object r_73480) ;
static void __lambda_335(void *data, int argc, object self_73786, object term_73201, object n_73200) ;
static void __lambda_334(void *data, int argc, object self_73787, object lp_73202) ;
static void __lambda_333(void *data, int argc, object self_73788, object lp_73202) ;
static void __lambda_332(void *data, int argc, object self_73789, object k_73485, object term_73204, object n_73203) ;
static void __lambda_331(void *data, int argc, object self_73790, object r_73486) ;
static void __lambda_330(void *data, int argc, object self_73791, object r_73489) ;
static void __lambda_329(void *data, int argc, object self_73792, object r_73490) ;
static void __lambda_328(void *data, int argc, object self_73793, object r_73487) ;
static void __lambda_327(void *data, int argc, object self_73794, object r_73488) ;
static void __lambda_326(void *data, int argc, object self_73795, object r_73484) ;
static void __lambda_325(void *data, int argc, object self_73796, object r_73483) ;
static void __lambda_324(void *data, int argc, object self_73797, object r_73482) ;
static void __lambda_323(void *data, int argc, object self_73798, object r_73481) ;
static void __lambda_322(void *data, int argc, object self_73799, object term_73205) ;
static void __lambda_321(void *data, int argc, object self_73800, object r_73477) ;
static void __lambda_320(void *data, int argc, object self_73801, object r_73280) ;
static void __lambda_319(void *data, int argc, object self_73802, object k_73469, object alist_73196) ;
static void __lambda_318(void *data, int argc, object self_73803, object r_73470) ;
static void __lambda_317(void *data, int argc, object self_73804) ;
static void __lambda_316(void *data, int argc, object self_73805, object r_73474) ;
static void __lambda_315(void *data, int argc, object self_73806, object r_73476) ;
static void __lambda_314(void *data, int argc, object self_73807, object r_73475) ;
static void __lambda_313(void *data, int argc, object self_73808, object r_73471) ;
static void __lambda_312(void *data, int argc, object self_73809, object r_73473) ;
static void __lambda_311(void *data, int argc, object self_73810, object r_73472) ;
static void __lambda_310(void *data, int argc, object self_73811) ;
static void __lambda_309(void *data, int argc, object self_73812, object r_73468) ;
static void __lambda_308(void *data, int argc, object self_73813, object r_73281) ;
static void __lambda_307(void *data, int argc, object self_73814, object k_73462, object alist_73194, object term_73193) ;
static void __lambda_306(void *data, int argc, object self_73815, object r_73463) ;
static void __lambda_305(void *data, int argc, object self_73816) ;
static void __lambda_304(void *data, int argc, object self_73817, object temp_91temp_73195) ;
static void __lambda_303(void *data, int argc, object self_73818) ;
static void __lambda_302(void *data, int argc, object self_73819, object r_73464) ;
static void __lambda_301(void *data, int argc, object self_73820, object r_73466) ;
static void __lambda_300(void *data, int argc, object self_73821, object r_73465) ;
static void __lambda_299(void *data, int argc, object self_73822, object r_73461) ;
static void __lambda_298(void *data, int argc, object self_73823, object r_73282) ;
static void __lambda_297(void *data, int argc, object self_73824, object k_73455, object alist_73192, object lst_73191) ;
static void __lambda_296(void *data, int argc, object self_73825, object r_73456) ;
static void __lambda_295(void *data, int argc, object self_73826) ;
static void __lambda_294(void *data, int argc, object self_73827, object r_73460) ;
static void __lambda_293(void *data, int argc, object self_73828, object r_73457) ;
static void __lambda_292(void *data, int argc, object self_73829, object r_73459) ;
static void __lambda_291(void *data, int argc, object self_73830, object r_73458) ;
static void __lambda_290(void *data, int argc, object self_73831) ;
static void __lambda_289(void *data, int argc, object self_73832, object r_73454) ;
static void __lambda_288(void *data, int argc, object self_73833, object r_73283) ;
static void __lambda_287(void *data, int argc, object self_73834, object k_73450, object x_73190) ;
static void __lambda_286(void *data, int argc, object self_73835, object r_73451) ;
static void __lambda_285(void *data, int argc, object self_73836, object r_73452) ;
static void __lambda_284(void *data, int argc, object self_73837, object r_73453) ;
static void __lambda_283(void *data, int argc, object self_73838, object r_73449) ;
static void __lambda_282(void *data, int argc, object self_73839, object r_73284) ;
static void __lambda_281(void *data, int argc, object self_73840, object k_73430, object x_73189, object true_91lst_73188, object false_91lst_73187) ;
static void __lambda_280(void *data, int argc, object self_73841, object r_73431) ;
static void __lambda_279(void *data, int argc, object self_73842, object r_73432) ;
static void __lambda_278(void *data, int argc, object self_73843, object r_73433) ;
static void __lambda_277(void *data, int argc, object self_73844) ;
static void __lambda_276(void *data, int argc, object self_73845, object r_73448) ;
static void __lambda_275(void *data, int argc, object self_73846, object r_73434) ;
static void __lambda_274(void *data, int argc, object self_73847) ;
static void __lambda_273(void *data, int argc, object self_73848) ;
static void __lambda_272(void *data, int argc, object self_73849, object r_73447) ;
static void __lambda_271(void *data, int argc, object self_73850, object r_73435) ;
static void __lambda_270(void *data, int argc, object self_73851, object r_73446) ;
static void __lambda_269(void *data, int argc, object self_73852, object r_73437) ;
static void __lambda_268(void *data, int argc, object self_73853) ;
static void __lambda_267(void *data, int argc, object self_73854, object r_73443) ;
static void __lambda_266(void *data, int argc, object self_73855, object r_73445) ;
static void __lambda_265(void *data, int argc, object self_73856, object r_73444) ;
static void __lambda_264(void *data, int argc, object self_73857, object r_73439) ;
static void __lambda_263(void *data, int argc, object self_73858, object r_73440) ;
static void __lambda_262(void *data, int argc, object self_73859, object r_73442) ;
static void __lambda_261(void *data, int argc, object self_73860, object r_73441) ;
static void __lambda_260(void *data, int argc, object self_73861) ;
static void __lambda_259(void *data, int argc, object self_73862, object r_73438) ;
static void __lambda_258(void *data, int argc, object self_73863) ;
static void __lambda_257(void *data, int argc, object self_73864, object r_73436) ;
static void __lambda_256(void *data, int argc, object self_73865) ;
static void __lambda_255(void *data, int argc, object self_73866) ;
static void __lambda_254(void *data, int argc, object self_73867, object r_73429) ;
static void __lambda_253(void *data, int argc, object self_73868, object r_73285) ;
static void __lambda_252(void *data, int argc, object self_73869, object r_73428) ;
static void __lambda_251(void *data, int argc, object self_73870, object r_73286) ;
static void __lambda_250(void *data, int argc, object self_73871, object r_73287) ;
static void __lambda_249(void *data, int argc, object self_73872, object k_73418, object term_73186) ;
static void __lambda_248(void *data, int argc, object self_73873, object r_73427) ;
static void __lambda_247(void *data, int argc, object self_73874, object r_73419) ;
static void __lambda_246(void *data, int argc, object self_73875, object r_73420) ;
static void __lambda_245(void *data, int argc, object self_73876) ;
static void __lambda_244(void *data, int argc, object self_73877) ;
static void __lambda_243(void *data, int argc, object self_73878, object r_73424) ;
static void __lambda_242(void *data, int argc, object self_73879, object r_73426) ;
static void __lambda_241(void *data, int argc, object self_73880, object r_73425) ;
static void __lambda_240(void *data, int argc, object self_73881, object r_73421) ;
static void __lambda_239(void *data, int argc, object self_73882, object r_73423) ;
static void __lambda_238(void *data, int argc, object self_73883, object r_73422) ;
static void __lambda_237(void *data, int argc, object self_73884, object r_73417) ;
static void __lambda_236(void *data, int argc, object self_73885, object r_73288) ;
static void __lambda_235(void *data, int argc, object self_73886, object k_73411, object lst_73185) ;
static void __lambda_234(void *data, int argc, object self_73887, object r_73412) ;
static void __lambda_233(void *data, int argc, object self_73888) ;
static void __lambda_232(void *data, int argc, object self_73889, object r_73416) ;
static void __lambda_231(void *data, int argc, object self_73890, object r_73413) ;
static void __lambda_230(void *data, int argc, object self_73891, object r_73415) ;
static void __lambda_229(void *data, int argc, object self_73892, object r_73414) ;
static void __lambda_228(void *data, int argc, object self_73893) ;
static void __lambda_227(void *data, int argc, object self_73894, object r_73410) ;
static void __lambda_226(void *data, int argc, object self_73895, object r_73289) ;
static void __lambda_225(void *data, int argc, object self_73896, object k_73401, object term_73184, object lst_73183) ;
static void __lambda_224(void *data, int argc, object self_73897, object r_73402) ;
static void __lambda_223(void *data, int argc, object self_73898, object r_73409) ;
static void __lambda_222(void *data, int argc, object self_73899, object r_73408) ;
static void __lambda_221(void *data, int argc, object self_73900, object r_73403) ;
static void __lambda_220(void *data, int argc, object self_73901) ;
static void __lambda_219(void *data, int argc, object self_73902, object r_73407) ;
static void __lambda_218(void *data, int argc, object self_73903) ;
static void __lambda_217(void *data, int argc, object self_73904, object r_73406) ;
static void __lambda_216(void *data, int argc, object self_73905, object r_73405) ;
static void __lambda_215(void *data, int argc, object self_73906, object r_73404) ;
static void __lambda_214(void *data, int argc, object self_73907) ;
static void __lambda_213(void *data, int argc, object self_73908, object r_73400) ;
static void __lambda_212(void *data, int argc, object self_73909, object r_73290) ;
static void __lambda_211(void *data, int argc, object self_73910, object r_73399) ;
static void __lambda_210(void *data, int argc, object self_73911, object r_73291) ;
static void __lambda_209(void *data, int argc, object self_73912, object k_73396, object term1_73182, object term2_73181) ;
static void __lambda_208(void *data, int argc, object self_73913, object r_73398) ;
static void __lambda_207(void *data, int argc, object self_73914, object r_73397) ;
static void __lambda_206(void *data, int argc, object self_73915, object r_73395) ;
static void __lambda_205(void *data, int argc, object self_73916, object r_73292) ;
static void __lambda_204(void *data, int argc, object self_73917, object k_73381, object term1_73179, object term2_73178) ;
static void __lambda_203(void *data, int argc, object self_73918, object r_73382) ;
static void __lambda_202(void *data, int argc, object self_73919) ;
static void __lambda_201(void *data, int argc, object self_73920, object temp_91temp_73180) ;
static void __lambda_200(void *data, int argc, object self_73921, object r_73391) ;
static void __lambda_199(void *data, int argc, object self_73922) ;
static void __lambda_198(void *data, int argc, object self_73923, object r_73394) ;
static void __lambda_197(void *data, int argc, object self_73924, object r_73393) ;
static void __lambda_196(void *data, int argc, object self_73925, object r_73392) ;
static void __lambda_195(void *data, int argc, object self_73926) ;
static void __lambda_194(void *data, int argc, object self_73927) ;
static void __lambda_193(void *data, int argc, object self_73928, object r_73390) ;
static void __lambda_192(void *data, int argc, object self_73929, object r_73383) ;
static void __lambda_191(void *data, int argc, object self_73930) ;
static void __lambda_190(void *data, int argc, object self_73931, object r_73387) ;
static void __lambda_189(void *data, int argc, object self_73932, object r_73388) ;
static void __lambda_188(void *data, int argc, object self_73933, object r_73384) ;
static void __lambda_187(void *data, int argc, object self_73934) ;
static void __lambda_186(void *data, int argc, object self_73935) ;
static void __lambda_185(void *data, int argc, object self_73936, object r_73385) ;
static void __lambda_184(void *data, int argc, object self_73937, object r_73386) ;
static void __lambda_183(void *data, int argc, object self_73938, object r_73380) ;
static void __lambda_182(void *data, int argc, object self_73939, object r_73293) ;
static void __lambda_181(void *data, int argc, object self_73940, object k_73372, object lst1_73177, object lst2_73176) ;
static void __lambda_180(void *data, int argc, object self_73941, object r_73373) ;
static void __lambda_179(void *data, int argc, object self_73942, object r_73374) ;
static void __lambda_178(void *data, int argc, object self_73943, object r_73378) ;
static void __lambda_177(void *data, int argc, object self_73944, object r_73379) ;
static void __lambda_176(void *data, int argc, object self_73945, object r_73375) ;
static void __lambda_175(void *data, int argc, object self_73946) ;
static void __lambda_174(void *data, int argc, object self_73947) ;
static void __lambda_173(void *data, int argc, object self_73948, object r_73376) ;
static void __lambda_172(void *data, int argc, object self_73949, object r_73377) ;
static void __lambda_171(void *data, int argc, object self_73950) ;
static void __lambda_170(void *data, int argc, object self_73951) ;
static void __lambda_169(void *data, int argc, object self_73952, object r_73371) ;
static void __lambda_168(void *data, int argc, object self_73953, object r_73294) ;
static void __lambda_167(void *data, int argc, object self_73954, object k_73369, object x_73174, object lst_73173) ;
static void __lambda_166(void *data, int argc, object self_73955, object tmp_73175) ;
static void __lambda_165(void *data, int argc, object self_73956, object r_73368) ;
static void __lambda_164(void *data, int argc, object self_73957, object r_73295) ;
static void __lambda_163(void *data, int argc, object self_73958, object k_73366, object x_73171, object lst_73170) ;
static void __lambda_162(void *data, int argc, object self_73959, object tmp_73172) ;
static void __lambda_161(void *data, int argc, object self_73960, object r_73365) ;
static void __lambda_160(void *data, int argc, object self_73961, object r_73296) ;
static void __lambda_159(void *data, int argc, object self_73962, object r_73364) ;
static void __lambda_158(void *data, int argc, object self_73963, object r_73297) ;
static void __lambda_157(void *data, int argc, object self_73964, object r_73363) ;
static void __lambda_156(void *data, int argc, object self_73965, object r_73298) ;
static void __lambda_155(void *data, int argc, object self_73966, object k_73357, object n_73169) ;
static void __lambda_154(void *data, int argc, object self_73967, object r_73359) ;
static void __lambda_153(void *data, int argc, object self_73968, object r_73360) ;
static void __lambda_152(void *data, int argc, object self_73969, object r_73362) ;
static void __lambda_151(void *data, int argc, object self_73970, object r_73361) ;
static void __lambda_150(void *data, int argc, object self_73971, object r_73358) ;
static void __lambda_149(void *data, int argc, object self_73972, object r_73356) ;
static void __lambda_148(void *data, int argc, object self_73973, object r_73299) ;
static void __lambda_147(void *data, int argc, object self_73974, object k_73347, object n_73168) ;
static void __lambda_146(void *data, int argc, object self_73975, object r_73348) ;
static void __lambda_145(void *data, int argc, object self_73976) ;
static void __lambda_144(void *data, int argc, object self_73977, object r_73350) ;
static void __lambda_143(void *data, int argc, object self_73978, object r_73354) ;
static void __lambda_142(void *data, int argc, object self_73979, object r_73355) ;
static void __lambda_141(void *data, int argc, object self_73980, object r_73351) ;
static void __lambda_140(void *data, int argc, object self_73981, object r_73353) ;
static void __lambda_139(void *data, int argc, object self_73982, object r_73352) ;
static void __lambda_138(void *data, int argc, object self_73983) ;
static void __lambda_137(void *data, int argc, object self_73984, object r_73349) ;
static void __lambda_136(void *data, int argc, object self_73985, object r_73346) ;
static void __lambda_135(void *data, int argc, object self_73986, object r_73300) ;
static void __lambda_134(void *data, int argc, object self_73987, object k_73338, object x_73167, object y_73166) ;
static void __lambda_133(void *data, int argc, object self_73988, object r_73339) ;
static void __lambda_132(void *data, int argc, object self_73989) ;
static void __lambda_131(void *data, int argc, object self_73990) ;
static void __lambda_130(void *data, int argc, object self_73991, object r_73340) ;
static void __lambda_129(void *data, int argc, object self_73992, object r_73344) ;
static void __lambda_128(void *data, int argc, object self_73993, object r_73345) ;
static void __lambda_127(void *data, int argc, object self_73994, object r_73341) ;
static void __lambda_126(void *data, int argc, object self_73995, object r_73342) ;
static void __lambda_125(void *data, int argc, object self_73996, object r_73343) ;
static void __lambda_124(void *data, int argc, object self_73997, object r_73337) ;
static void __lambda_123(void *data, int argc, object self_73998, object r_73301) ;
static void __lambda_122(void *data, int argc, object self_73999, object k_73329, object lst1_73165, object lst2_73164) ;
static void __lambda_121(void *data, int argc, object self_731000, object r_73330) ;
static void __lambda_120(void *data, int argc, object self_731001, object r_73331) ;
static void __lambda_119(void *data, int argc, object self_731002, object r_73335) ;
static void __lambda_118(void *data, int argc, object self_731003, object r_73336) ;
static void __lambda_117(void *data, int argc, object self_731004, object r_73332) ;
static void __lambda_116(void *data, int argc, object self_731005) ;
static void __lambda_115(void *data, int argc, object self_731006) ;
static void __lambda_114(void *data, int argc, object self_731007, object r_73333) ;
static void __lambda_113(void *data, int argc, object self_731008, object r_73334) ;
static void __lambda_112(void *data, int argc, object self_731009) ;
static void __lambda_111(void *data, int argc, object self_731010) ;
static void __lambda_110(void *data, int argc, object self_731011, object r_73328) ;
static void __lambda_109(void *data, int argc, object self_731012, object r_73302) ;
static void __lambda_108(void *data, int argc, object self_731013, object k_73323, object x_73163, object lst_73162) ;
static void __lambda_107(void *data, int argc, object self_731014, object r_73324) ;
static void __lambda_106(void *data, int argc, object self_731015, object r_73327) ;
static void __lambda_105(void *data, int argc, object self_731016, object r_73325) ;
static void __lambda_104(void *data, int argc, object self_731017) ;
static void __lambda_103(void *data, int argc, object self_731018, object r_73326) ;
static void __lambda_102(void *data, int argc, object self_731019) ;
static void __lambda_101(void *data, int argc, object self_731020) ;
static void __lambda_100(void *data, int argc, object self_731021, object r_73322) ;
static void __lambda_99(void *data, int argc, object self_731022, object r_73303) ;
static void __lambda_98(void *data, int argc, object self_731023, object k_73310) ;
static void __lambda_97(void *data, int argc, object self_731024, object r_73321) ;
static void __lambda_96(void *data, int argc, object self_731025, object r_73311) ;
static void __lambda_95(void *data, int argc, object self_731026, object r_73320) ;
static void __lambda_94(void *data, int argc, object self_731027, object r_73319) ;
static void __lambda_93(void *data, int argc, object self_731028, object r_73312) ;
static void __lambda_92(void *data, int argc, object self_731029, object r_73318) ;
static void __lambda_91(void *data, int argc, object self_731030, object r_73317) ;
static void __lambda_90(void *data, int argc, object self_731031, object r_73313) ;
static void __lambda_89(void *data, int argc, object self_731032, object r_73316) ;
static void __lambda_88(void *data, int argc, object self_731033, object r_73315) ;
static void __lambda_87(void *data, int argc, object self_731034, object r_73314) ;
static void __lambda_86(void *data, int argc, object self_731035, object r_73309) ;
static void __lambda_85(void *data, int argc, object self_731036, object r_73304) ;
static void __lambda_84(void *data, int argc, object self_731037, object k_73306, object alist_73160, object term_73159, object n_73158) ;
static void __lambda_83(void *data, int argc, object self_731038, object r_73307) ;
static void __lambda_82(void *data, int argc, object self_731039, object answer_73161) ;
static void __lambda_81(void *data, int argc, closure _,object r_73305) ;
static void __lambda_80(void *data, int argc, closure _,object r_73264) ;
static void __lambda_79(void *data, int argc, closure _,object k_73568, object name_73229, object count_73228, object thunk_73227, object ok_127_73226) ;
static void __lambda_78(void *data, int argc, object self_731040, object rounded_73231) ;
static void __lambda_77(void *data, int argc, object self_731041, object rounded_73231) ;
static void __lambda_76(void *data, int argc, object self_731042, object rounded_73232) ;
static void __lambda_75(void *data, int argc, object self_731043, object k_73604, object x_73246) ;
static void __lambda_74(void *data, int argc, object self_731044, object r_73606) ;
static void __lambda_73(void *data, int argc, object self_731045, object r_73605) ;
static void __lambda_72(void *data, int argc, object self_731046, object r_73603) ;
static void __lambda_71(void *data, int argc, object self_731047, object r_73569) ;
static void __lambda_70(void *data, int argc, object self_731048, object r_73570) ;
static void __lambda_69(void *data, int argc, object self_731049, object r_73571) ;
static void __lambda_68(void *data, int argc, object self_731050, object r_73572) ;
static void __lambda_67(void *data, int argc, object self_731051, object r_73573) ;
static void __lambda_66(void *data, int argc, object self_731052, object j_95s_73233) ;
static void __lambda_65(void *data, int argc, object self_731053, object t0_73234) ;
static void __lambda_64(void *data, int argc, object self_731054, object j0_73235) ;
static void __lambda_63(void *data, int argc, object self_731055) ;
static void __lambda_62(void *data, int argc, object self_731056, object r_73577) ;
static void __lambda_61(void *data, int argc, object self_731057, object i_73237, object result_73236) ;
static void __lambda_60(void *data, int argc, object self_731058, object loop_73238) ;
static void __lambda_59(void *data, int argc, object self_731059, object loop_73238) ;
static void __lambda_58(void *data, int argc, object self_731060, object k_73580, object i_73240, object result_73239) ;
static void __lambda_57(void *data, int argc, object self_731061, object r_73581) ;
static void __lambda_56(void *data, int argc, object self_731062, object r_73584) ;
static void __lambda_55(void *data, int argc, object self_731063) ;
static void __lambda_54(void *data, int argc, object self_731064, object r_73599) ;
static void __lambda_53(void *data, int argc, object self_731065, object r_73600) ;
static void __lambda_52(void *data, int argc, object self_731066, object r_73601) ;
static void __lambda_51(void *data, int argc, object self_731067) ;
static void __lambda_50(void *data, int argc, object self_731068, object j1_73241) ;
static void __lambda_49(void *data, int argc, object self_731069, object t1_73242) ;
static void __lambda_48(void *data, int argc, object self_731070, object jifs_73243) ;
static void __lambda_47(void *data, int argc, object self_731071, object r_73598) ;
static void __lambda_46(void *data, int argc, object self_731072, object secs_73244) ;
static void __lambda_45(void *data, int argc, object self_731073, object r_73597) ;
static void __lambda_44(void *data, int argc, object self_731074, object secs2_73245) ;
static void __lambda_43(void *data, int argc, object self_731075) ;
static void __lambda_42(void *data, int argc, object self_731076, object r_73591) ;
static void __lambda_41(void *data, int argc, object self_731077, object r_73592) ;
static void __lambda_40(void *data, int argc, object self_731078, object r_73593) ;
static void __lambda_39(void *data, int argc, object self_731079, object r_73594) ;
static void __lambda_38(void *data, int argc, object self_731080, object r_73595) ;
static void __lambda_37(void *data, int argc, object self_731081, object r_73596) ;
static void __lambda_36(void *data, int argc, object self_731082, object r_73585) ;
static void __lambda_35(void *data, int argc, object self_731083) ;
static void __lambda_34(void *data, int argc, object self_731084, object r_73582) ;
static void __lambda_33(void *data, int argc, object self_731085, object r_73583) ;
static void __lambda_32(void *data, int argc, object self_731086, object r_73579) ;
static void __lambda_31(void *data, int argc, object self_731087, object r_73578) ;
static void __lambda_30(void *data, int argc, closure _,object k_73602) ;
static void __lambda_29(void *data, int argc, closure _,object k_73609, object r_73248, object x_73247) ;
static void __lambda_28(void *data, int argc, object self_731088, object k_73614) ;
static void __lambda_27(void *data, int argc, object self_731089, object k_73620, object x_73251) ;
static void __lambda_26(void *data, int argc, object self_731090, object r_73619) ;
static void __lambda_25(void *data, int argc, object self_731091, object r_73615) ;
static void __lambda_24(void *data, int argc, object self_731092, object r_73616) ;
static void __lambda_23(void *data, int argc, object self_731093, object k_73617) ;
static void __lambda_22(void *data, int argc, object self_731094, object r_73618) ;
static void __lambda_21(void *data, int argc, object self_731095, object r_73610) ;
static void __lambda_20(void *data, int argc, object self_731096, object k_73612, object v_73250, object i_73249) ;
static void __lambda_19(void *data, int argc, object self_731097, object r_73613) ;
static void __lambda_18(void *data, int argc, object self_731098, object r_73611) ;
static void __lambda_17(void *data, int argc, closure _,object k_73623, object args_73252_raw, ...) ;
static void __lambda_16(void *data, int argc, closure _,object k_73626, object args_73253_raw, ...) ;
static void __lambda_15(void *data, int argc, closure _,object k_73633) ;
static void __lambda_14(void *data, int argc, object self_731099, object count_73254) ;
static void __lambda_13(void *data, int argc, object self_731100, object input_73255) ;
static void __lambda_12(void *data, int argc, object self_731101, object output_73256) ;
static void __lambda_11(void *data, int argc, object self_731102, object s2_73257) ;
static void __lambda_10(void *data, int argc, object self_731103, object s1_73258) ;
static void __lambda_9(void *data, int argc, object self_731104, object name_73259) ;
static void __lambda_8(void *data, int argc, object self_731105) ;
static void __lambda_7(void *data, int argc, object self_731106, object r_73639) ;
static void __lambda_6(void *data, int argc, object self_731107, object k_73644) ;
static void __lambda_5(void *data, int argc, object self_731108, object r_73645) ;
static void __lambda_4(void *data, int argc, object self_731109, object r_73646) ;
static void __lambda_3(void *data, int argc, object self_731110, object r_73640) ;
static void __lambda_2(void *data, int argc, object self_731111, object k_73642, object rewrites_73260) ;
static void __lambda_1(void *data, int argc, object self_731112, object r_73643) ;
static void __lambda_0(void *data, int argc, object self_731113, object r_73641) ;

static void __lambda_483(void *data, int argc, closure _,object _85symbol_91records_91alist_85_73118, object add_91lemma_73117, object add_91lemma_91lst_73116, object apply_91subst_73115, object apply_91subst_91lst_73114, object false_91term_73113, object falsep_73112, object get_73111, object get_91lemmas_73110, object get_91name_73109, object if_91constructor_73108, object make_91symbol_91record_73107, object one_91way_91unify_73106, object one_91way_91unify1_73105, object one_91way_91unify1_91lst_73104, object put_73103, object put_91lemmas_67_73102, object rewrite_73101, object rewrite_91args_73100, object rewrite_91count_7399, object rewrite_91with_91lemmas_7398, object setup_7397, object symbol_91_125symbol_91record_7396, object symbol_91record_91equal_127_7395, object tautologyp_7394, object tautp_7393, object term_91args_91equal_127_7392, object term_91equal_127_7391, object term_91member_127_7390, object test_7389, object trans_91of_91implies_7388, object trans_91of_91implies1_7387, object translate_91alist_7386, object translate_91args_7385, object translate_91term_7384, object true_91term_7383, object truep_7382, object unify_91subst_7381, object untranslate_91term_7380) {
  return_direct0(data,__lambda_482);; 
}

static void __lambda_482(void *data, int argc, closure _) {
  return_direct1(data,__lambda_481,obj_int2obj(0));; 
}

static void __lambda_481(void *data, int argc, closure _,object r_73261) {
  make_cons(c_735175,quote_b,nil);
make_cons(c_735174,quote_a,&c_735175);
make_cons(c_735173,quote_plus,&c_735174);
make_cons(c_735180,quote_zero,nil);
make_cons(c_735179,&c_735180,nil);
make_cons(c_735178,quote_c,&c_735179);
make_cons(c_735177,quote_plus,&c_735178);
make_cons(c_735176,&c_735177,nil);
make_cons(c_735172,&c_735173,&c_735176);
make_cons(c_735171,quote_plus,&c_735172);
make_cons(c_735170,&c_735171,nil);
make_cons(c_735169,quote_f,&c_735170);
make_cons(c_735168,quote_x,&c_735169);
make_cons(c_735189,quote_b,nil);
make_cons(c_735188,quote_a,&c_735189);
make_cons(c_735187,quote_times,&c_735188);
make_cons(c_735193,quote_d,nil);
make_cons(c_735192,quote_c,&c_735193);
make_cons(c_735191,quote_plus,&c_735192);
make_cons(c_735190,&c_735191,nil);
make_cons(c_735186,&c_735187,&c_735190);
make_cons(c_735185,quote_times,&c_735186);
make_cons(c_735184,&c_735185,nil);
make_cons(c_735183,quote_f,&c_735184);
make_cons(c_735182,quote_y,&c_735183);
make_cons(c_735204,quote_b,nil);
make_cons(c_735203,quote_a,&c_735204);
make_cons(c_735202,quote_append,&c_735203);
make_cons(c_735206,quote_nil,nil);
make_cons(c_735205,&c_735206,nil);
make_cons(c_735201,&c_735202,&c_735205);
make_cons(c_735200,quote_append,&c_735201);
make_cons(c_735199,&c_735200,nil);
make_cons(c_735198,quote_reverse,&c_735199);
make_cons(c_735197,&c_735198,nil);
make_cons(c_735196,quote_f,&c_735197);
make_cons(c_735195,quote_z,&c_735196);
make_cons(c_735213,quote_b,nil);
make_cons(c_735212,quote_a,&c_735213);
make_cons(c_735211,quote_plus,&c_735212);
make_cons(c_735217,quote_y,nil);
make_cons(c_735216,quote_x,&c_735217);
make_cons(c_735215,quote_difference,&c_735216);
make_cons(c_735214,&c_735215,nil);
make_cons(c_735210,&c_735211,&c_735214);
make_cons(c_735209,quote_equal,&c_735210);
make_cons(c_735208,quote_u,&c_735209);
make_cons(c_735224,quote_b,nil);
make_cons(c_735223,quote_a,&c_735224);
make_cons(c_735222,quote_remainder,&c_735223);
make_cons(c_735230,quote_b,nil);
make_cons(c_735229,quote_length,&c_735230);
make_cons(c_735228,&c_735229,nil);
make_cons(c_735227,quote_a,&c_735228);
make_cons(c_735226,quote_member,&c_735227);
make_cons(c_735225,&c_735226,nil);
make_cons(c_735221,&c_735222,&c_735225);
make_cons(c_735220,quote_lessp,&c_735221);
make_cons(c_735219,quote_w,&c_735220);
make_cons(c_735218,&c_735219,nil);
make_cons(c_735207,&c_735208,&c_735218);
make_cons(c_735194,&c_735195,&c_735207);
make_cons(c_735181,&c_735182,&c_735194);
make_cons(c_735167,&c_735168,&c_735181);
return_direct1(data,__lambda_480,&c_735167);; 
}

static void __lambda_480(void *data, int argc, closure _,object r_73565) {
  return_direct1(data,__lambda_479,global_set(__glo_alist, r_73565));; 
}

static void __lambda_479(void *data, int argc, closure _,object r_73262) {
  make_cons(c_735144,quote_y,nil);
make_cons(c_735143,quote_x,&c_735144);
make_cons(c_735142,quote_implies,&c_735143);
make_cons(c_735150,quote_z,nil);
make_cons(c_735149,quote_y,&c_735150);
make_cons(c_735148,quote_implies,&c_735149);
make_cons(c_735156,quote_u,nil);
make_cons(c_735155,quote_z,&c_735156);
make_cons(c_735154,quote_implies,&c_735155);
make_cons(c_735160,quote_w,nil);
make_cons(c_735159,quote_u,&c_735160);
make_cons(c_735158,quote_implies,&c_735159);
make_cons(c_735157,&c_735158,nil);
make_cons(c_735153,&c_735154,&c_735157);
make_cons(c_735152,quote_and,&c_735153);
make_cons(c_735151,&c_735152,nil);
make_cons(c_735147,&c_735148,&c_735151);
make_cons(c_735146,quote_and,&c_735147);
make_cons(c_735145,&c_735146,nil);
make_cons(c_735141,&c_735142,&c_735145);
make_cons(c_735140,quote_and,&c_735141);
make_cons(c_735164,quote_w,nil);
make_cons(c_735163,quote_x,&c_735164);
make_cons(c_735162,quote_implies,&c_735163);
make_cons(c_735161,&c_735162,nil);
make_cons(c_735139,&c_735140,&c_735161);
make_cons(c_735138,quote_implies,&c_735139);
return_direct1(data,__lambda_478,&c_735138);; 
}

static void __lambda_478(void *data, int argc, closure _,object r_73564) {
  return_direct1(data,__lambda_477,global_set(__glo_term, r_73564));; 
}

static void __lambda_477(void *data, int argc, closure _,object r_73263) {
  return_direct0(data,__lambda_476);; 
}

static void __lambda_476(void *data, int argc, closure _) {
  return_direct39(data,__lambda_475,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_475(void *data, int argc, closure _,object setup_73157, object add_91lemma_91lst_73156, object add_91lemma_73155, object translate_91term_73154, object translate_91args_73153, object untranslate_91term_73152, object put_73151, object get_73150, object symbol_91_125symbol_91record_73149, object _85symbol_91records_91alist_85_73148, object make_91symbol_91record_73147, object put_91lemmas_67_73146, object get_91lemmas_73145, object get_91name_73144, object symbol_91record_91equal_127_73143, object test_73142, object translate_91alist_73141, object apply_91subst_73140, object apply_91subst_91lst_73139, object tautp_73138, object tautologyp_73137, object if_91constructor_73136, object rewrite_91count_73135, object rewrite_73134, object rewrite_91args_73133, object rewrite_91with_91lemmas_73132, object unify_91subst_73131, object one_91way_91unify_73130, object one_91way_91unify1_73129, object one_91way_91unify1_91lst_73128, object falsep_73127, object truep_73126, object false_91term_73125, object true_91term_73124, object trans_91of_91implies_73123, object trans_91of_91implies1_73122, object term_91equal_127_73121, object term_91args_91equal_127_73120, object term_91member_127_73119) {
  
closureN_type c_731407;
c_731407.hdr.mark = gc_color_red;
 c_731407.hdr.grayed = 0;
c_731407.tag = closureN_tag;
 c_731407.fn = (function_type)__lambda_474;
c_731407.num_args = 1;
c_731407.num_elt = 38;
c_731407.elts = (object *)alloca(sizeof(object) * 38);
c_731407.elts[0] = _85symbol_91records_91alist_85_73148;
c_731407.elts[1] = add_91lemma_73155;
c_731407.elts[2] = add_91lemma_91lst_73156;
c_731407.elts[3] = apply_91subst_73140;
c_731407.elts[4] = apply_91subst_91lst_73139;
c_731407.elts[5] = false_91term_73125;
c_731407.elts[6] = falsep_73127;
c_731407.elts[7] = get_73150;
c_731407.elts[8] = get_91lemmas_73145;
c_731407.elts[9] = get_91name_73144;
c_731407.elts[10] = if_91constructor_73136;
c_731407.elts[11] = make_91symbol_91record_73147;
c_731407.elts[12] = one_91way_91unify_73130;
c_731407.elts[13] = one_91way_91unify1_73129;
c_731407.elts[14] = one_91way_91unify1_91lst_73128;
c_731407.elts[15] = put_73151;
c_731407.elts[16] = put_91lemmas_67_73146;
c_731407.elts[17] = rewrite_73134;
c_731407.elts[18] = rewrite_91args_73133;
c_731407.elts[19] = rewrite_91count_73135;
c_731407.elts[20] = rewrite_91with_91lemmas_73132;
c_731407.elts[21] = symbol_91_125symbol_91record_73149;
c_731407.elts[22] = symbol_91record_91equal_127_73143;
c_731407.elts[23] = tautologyp_73137;
c_731407.elts[24] = tautp_73138;
c_731407.elts[25] = term_91args_91equal_127_73120;
c_731407.elts[26] = term_91equal_127_73121;
c_731407.elts[27] = term_91member_127_73119;
c_731407.elts[28] = test_73142;
c_731407.elts[29] = trans_91of_91implies_73123;
c_731407.elts[30] = trans_91of_91implies1_73122;
c_731407.elts[31] = translate_91alist_73141;
c_731407.elts[32] = translate_91args_73153;
c_731407.elts[33] = translate_91term_73154;
c_731407.elts[34] = true_91term_73124;
c_731407.elts[35] = truep_73126;
c_731407.elts[36] = unify_91subst_73131;
c_731407.elts[37] = untranslate_91term_73152;


make_cell(c_735135,setup_73157);
return_closcall1(data,(closure)&c_731407,  &c_735135);; 
}

static void __lambda_474(void *data, int argc, object self_73647, object setup_73157) {
  
closureN_type c_731409;
c_731409.hdr.mark = gc_color_red;
 c_731409.hdr.grayed = 0;
c_731409.tag = closureN_tag;
 c_731409.fn = (function_type)__lambda_473;
c_731409.num_args = 1;
c_731409.num_elt = 38;
c_731409.elts = (object *)alloca(sizeof(object) * 38);
c_731409.elts[0] = ((closureN)self_73647)->elts[0];
c_731409.elts[1] = ((closureN)self_73647)->elts[1];
c_731409.elts[2] = ((closureN)self_73647)->elts[3];
c_731409.elts[3] = ((closureN)self_73647)->elts[4];
c_731409.elts[4] = ((closureN)self_73647)->elts[5];
c_731409.elts[5] = ((closureN)self_73647)->elts[6];
c_731409.elts[6] = ((closureN)self_73647)->elts[7];
c_731409.elts[7] = ((closureN)self_73647)->elts[8];
c_731409.elts[8] = ((closureN)self_73647)->elts[9];
c_731409.elts[9] = ((closureN)self_73647)->elts[10];
c_731409.elts[10] = ((closureN)self_73647)->elts[11];
c_731409.elts[11] = ((closureN)self_73647)->elts[12];
c_731409.elts[12] = ((closureN)self_73647)->elts[13];
c_731409.elts[13] = ((closureN)self_73647)->elts[14];
c_731409.elts[14] = ((closureN)self_73647)->elts[15];
c_731409.elts[15] = ((closureN)self_73647)->elts[16];
c_731409.elts[16] = ((closureN)self_73647)->elts[17];
c_731409.elts[17] = ((closureN)self_73647)->elts[18];
c_731409.elts[18] = ((closureN)self_73647)->elts[19];
c_731409.elts[19] = ((closureN)self_73647)->elts[20];
c_731409.elts[20] = setup_73157;
c_731409.elts[21] = ((closureN)self_73647)->elts[21];
c_731409.elts[22] = ((closureN)self_73647)->elts[22];
c_731409.elts[23] = ((closureN)self_73647)->elts[23];
c_731409.elts[24] = ((closureN)self_73647)->elts[24];
c_731409.elts[25] = ((closureN)self_73647)->elts[25];
c_731409.elts[26] = ((closureN)self_73647)->elts[26];
c_731409.elts[27] = ((closureN)self_73647)->elts[27];
c_731409.elts[28] = ((closureN)self_73647)->elts[28];
c_731409.elts[29] = ((closureN)self_73647)->elts[29];
c_731409.elts[30] = ((closureN)self_73647)->elts[30];
c_731409.elts[31] = ((closureN)self_73647)->elts[31];
c_731409.elts[32] = ((closureN)self_73647)->elts[32];
c_731409.elts[33] = ((closureN)self_73647)->elts[33];
c_731409.elts[34] = ((closureN)self_73647)->elts[34];
c_731409.elts[35] = ((closureN)self_73647)->elts[35];
c_731409.elts[36] = ((closureN)self_73647)->elts[36];
c_731409.elts[37] = ((closureN)self_73647)->elts[37];


make_cell(c_735131,((closureN)self_73647)->elts[2]);
return_closcall1(data,(closure)&c_731409,  &c_735131);; 
}

static void __lambda_473(void *data, int argc, object self_73648, object add_91lemma_91lst_73156) {
  
closureN_type c_731411;
c_731411.hdr.mark = gc_color_red;
 c_731411.hdr.grayed = 0;
c_731411.tag = closureN_tag;
 c_731411.fn = (function_type)__lambda_472;
c_731411.num_args = 1;
c_731411.num_elt = 38;
c_731411.elts = (object *)alloca(sizeof(object) * 38);
c_731411.elts[0] = ((closureN)self_73648)->elts[0];
c_731411.elts[1] = add_91lemma_91lst_73156;
c_731411.elts[2] = ((closureN)self_73648)->elts[2];
c_731411.elts[3] = ((closureN)self_73648)->elts[3];
c_731411.elts[4] = ((closureN)self_73648)->elts[4];
c_731411.elts[5] = ((closureN)self_73648)->elts[5];
c_731411.elts[6] = ((closureN)self_73648)->elts[6];
c_731411.elts[7] = ((closureN)self_73648)->elts[7];
c_731411.elts[8] = ((closureN)self_73648)->elts[8];
c_731411.elts[9] = ((closureN)self_73648)->elts[9];
c_731411.elts[10] = ((closureN)self_73648)->elts[10];
c_731411.elts[11] = ((closureN)self_73648)->elts[11];
c_731411.elts[12] = ((closureN)self_73648)->elts[12];
c_731411.elts[13] = ((closureN)self_73648)->elts[13];
c_731411.elts[14] = ((closureN)self_73648)->elts[14];
c_731411.elts[15] = ((closureN)self_73648)->elts[15];
c_731411.elts[16] = ((closureN)self_73648)->elts[16];
c_731411.elts[17] = ((closureN)self_73648)->elts[17];
c_731411.elts[18] = ((closureN)self_73648)->elts[18];
c_731411.elts[19] = ((closureN)self_73648)->elts[19];
c_731411.elts[20] = ((closureN)self_73648)->elts[20];
c_731411.elts[21] = ((closureN)self_73648)->elts[21];
c_731411.elts[22] = ((closureN)self_73648)->elts[22];
c_731411.elts[23] = ((closureN)self_73648)->elts[23];
c_731411.elts[24] = ((closureN)self_73648)->elts[24];
c_731411.elts[25] = ((closureN)self_73648)->elts[25];
c_731411.elts[26] = ((closureN)self_73648)->elts[26];
c_731411.elts[27] = ((closureN)self_73648)->elts[27];
c_731411.elts[28] = ((closureN)self_73648)->elts[28];
c_731411.elts[29] = ((closureN)self_73648)->elts[29];
c_731411.elts[30] = ((closureN)self_73648)->elts[30];
c_731411.elts[31] = ((closureN)self_73648)->elts[31];
c_731411.elts[32] = ((closureN)self_73648)->elts[32];
c_731411.elts[33] = ((closureN)self_73648)->elts[33];
c_731411.elts[34] = ((closureN)self_73648)->elts[34];
c_731411.elts[35] = ((closureN)self_73648)->elts[35];
c_731411.elts[36] = ((closureN)self_73648)->elts[36];
c_731411.elts[37] = ((closureN)self_73648)->elts[37];


make_cell(c_735127,((closureN)self_73648)->elts[1]);
return_closcall1(data,(closure)&c_731411,  &c_735127);; 
}

static void __lambda_472(void *data, int argc, object self_73649, object add_91lemma_73155) {
  
closureN_type c_731413;
c_731413.hdr.mark = gc_color_red;
 c_731413.hdr.grayed = 0;
c_731413.tag = closureN_tag;
 c_731413.fn = (function_type)__lambda_471;
c_731413.num_args = 1;
c_731413.num_elt = 38;
c_731413.elts = (object *)alloca(sizeof(object) * 38);
c_731413.elts[0] = ((closureN)self_73649)->elts[0];
c_731413.elts[1] = add_91lemma_73155;
c_731413.elts[2] = ((closureN)self_73649)->elts[1];
c_731413.elts[3] = ((closureN)self_73649)->elts[2];
c_731413.elts[4] = ((closureN)self_73649)->elts[3];
c_731413.elts[5] = ((closureN)self_73649)->elts[4];
c_731413.elts[6] = ((closureN)self_73649)->elts[5];
c_731413.elts[7] = ((closureN)self_73649)->elts[6];
c_731413.elts[8] = ((closureN)self_73649)->elts[7];
c_731413.elts[9] = ((closureN)self_73649)->elts[8];
c_731413.elts[10] = ((closureN)self_73649)->elts[9];
c_731413.elts[11] = ((closureN)self_73649)->elts[10];
c_731413.elts[12] = ((closureN)self_73649)->elts[11];
c_731413.elts[13] = ((closureN)self_73649)->elts[12];
c_731413.elts[14] = ((closureN)self_73649)->elts[13];
c_731413.elts[15] = ((closureN)self_73649)->elts[14];
c_731413.elts[16] = ((closureN)self_73649)->elts[15];
c_731413.elts[17] = ((closureN)self_73649)->elts[16];
c_731413.elts[18] = ((closureN)self_73649)->elts[17];
c_731413.elts[19] = ((closureN)self_73649)->elts[18];
c_731413.elts[20] = ((closureN)self_73649)->elts[19];
c_731413.elts[21] = ((closureN)self_73649)->elts[20];
c_731413.elts[22] = ((closureN)self_73649)->elts[21];
c_731413.elts[23] = ((closureN)self_73649)->elts[22];
c_731413.elts[24] = ((closureN)self_73649)->elts[23];
c_731413.elts[25] = ((closureN)self_73649)->elts[24];
c_731413.elts[26] = ((closureN)self_73649)->elts[25];
c_731413.elts[27] = ((closureN)self_73649)->elts[26];
c_731413.elts[28] = ((closureN)self_73649)->elts[27];
c_731413.elts[29] = ((closureN)self_73649)->elts[28];
c_731413.elts[30] = ((closureN)self_73649)->elts[29];
c_731413.elts[31] = ((closureN)self_73649)->elts[30];
c_731413.elts[32] = ((closureN)self_73649)->elts[31];
c_731413.elts[33] = ((closureN)self_73649)->elts[32];
c_731413.elts[34] = ((closureN)self_73649)->elts[34];
c_731413.elts[35] = ((closureN)self_73649)->elts[35];
c_731413.elts[36] = ((closureN)self_73649)->elts[36];
c_731413.elts[37] = ((closureN)self_73649)->elts[37];


make_cell(c_735123,((closureN)self_73649)->elts[33]);
return_closcall1(data,(closure)&c_731413,  &c_735123);; 
}

static void __lambda_471(void *data, int argc, object self_73650, object translate_91term_73154) {
  
closureN_type c_731415;
c_731415.hdr.mark = gc_color_red;
 c_731415.hdr.grayed = 0;
c_731415.tag = closureN_tag;
 c_731415.fn = (function_type)__lambda_470;
c_731415.num_args = 1;
c_731415.num_elt = 38;
c_731415.elts = (object *)alloca(sizeof(object) * 38);
c_731415.elts[0] = ((closureN)self_73650)->elts[0];
c_731415.elts[1] = ((closureN)self_73650)->elts[1];
c_731415.elts[2] = ((closureN)self_73650)->elts[2];
c_731415.elts[3] = ((closureN)self_73650)->elts[3];
c_731415.elts[4] = ((closureN)self_73650)->elts[4];
c_731415.elts[5] = ((closureN)self_73650)->elts[5];
c_731415.elts[6] = ((closureN)self_73650)->elts[6];
c_731415.elts[7] = ((closureN)self_73650)->elts[7];
c_731415.elts[8] = ((closureN)self_73650)->elts[8];
c_731415.elts[9] = ((closureN)self_73650)->elts[9];
c_731415.elts[10] = ((closureN)self_73650)->elts[10];
c_731415.elts[11] = ((closureN)self_73650)->elts[11];
c_731415.elts[12] = ((closureN)self_73650)->elts[12];
c_731415.elts[13] = ((closureN)self_73650)->elts[13];
c_731415.elts[14] = ((closureN)self_73650)->elts[14];
c_731415.elts[15] = ((closureN)self_73650)->elts[15];
c_731415.elts[16] = ((closureN)self_73650)->elts[16];
c_731415.elts[17] = ((closureN)self_73650)->elts[17];
c_731415.elts[18] = ((closureN)self_73650)->elts[18];
c_731415.elts[19] = ((closureN)self_73650)->elts[19];
c_731415.elts[20] = ((closureN)self_73650)->elts[20];
c_731415.elts[21] = ((closureN)self_73650)->elts[21];
c_731415.elts[22] = ((closureN)self_73650)->elts[22];
c_731415.elts[23] = ((closureN)self_73650)->elts[23];
c_731415.elts[24] = ((closureN)self_73650)->elts[24];
c_731415.elts[25] = ((closureN)self_73650)->elts[25];
c_731415.elts[26] = ((closureN)self_73650)->elts[26];
c_731415.elts[27] = ((closureN)self_73650)->elts[27];
c_731415.elts[28] = ((closureN)self_73650)->elts[28];
c_731415.elts[29] = ((closureN)self_73650)->elts[29];
c_731415.elts[30] = ((closureN)self_73650)->elts[30];
c_731415.elts[31] = ((closureN)self_73650)->elts[31];
c_731415.elts[32] = ((closureN)self_73650)->elts[32];
c_731415.elts[33] = translate_91term_73154;
c_731415.elts[34] = ((closureN)self_73650)->elts[34];
c_731415.elts[35] = ((closureN)self_73650)->elts[35];
c_731415.elts[36] = ((closureN)self_73650)->elts[36];
c_731415.elts[37] = ((closureN)self_73650)->elts[37];


make_cell(c_735119,((closureN)self_73650)->elts[33]);
return_closcall1(data,(closure)&c_731415,  &c_735119);; 
}

static void __lambda_470(void *data, int argc, object self_73651, object translate_91args_73153) {
  
closureN_type c_731417;
c_731417.hdr.mark = gc_color_red;
 c_731417.hdr.grayed = 0;
c_731417.tag = closureN_tag;
 c_731417.fn = (function_type)__lambda_469;
c_731417.num_args = 1;
c_731417.num_elt = 38;
c_731417.elts = (object *)alloca(sizeof(object) * 38);
c_731417.elts[0] = ((closureN)self_73651)->elts[0];
c_731417.elts[1] = ((closureN)self_73651)->elts[1];
c_731417.elts[2] = ((closureN)self_73651)->elts[2];
c_731417.elts[3] = ((closureN)self_73651)->elts[3];
c_731417.elts[4] = ((closureN)self_73651)->elts[4];
c_731417.elts[5] = ((closureN)self_73651)->elts[5];
c_731417.elts[6] = ((closureN)self_73651)->elts[6];
c_731417.elts[7] = ((closureN)self_73651)->elts[7];
c_731417.elts[8] = ((closureN)self_73651)->elts[8];
c_731417.elts[9] = ((closureN)self_73651)->elts[9];
c_731417.elts[10] = ((closureN)self_73651)->elts[10];
c_731417.elts[11] = ((closureN)self_73651)->elts[11];
c_731417.elts[12] = ((closureN)self_73651)->elts[12];
c_731417.elts[13] = ((closureN)self_73651)->elts[13];
c_731417.elts[14] = ((closureN)self_73651)->elts[14];
c_731417.elts[15] = ((closureN)self_73651)->elts[15];
c_731417.elts[16] = ((closureN)self_73651)->elts[16];
c_731417.elts[17] = ((closureN)self_73651)->elts[17];
c_731417.elts[18] = ((closureN)self_73651)->elts[18];
c_731417.elts[19] = ((closureN)self_73651)->elts[19];
c_731417.elts[20] = ((closureN)self_73651)->elts[20];
c_731417.elts[21] = ((closureN)self_73651)->elts[21];
c_731417.elts[22] = ((closureN)self_73651)->elts[22];
c_731417.elts[23] = ((closureN)self_73651)->elts[23];
c_731417.elts[24] = ((closureN)self_73651)->elts[24];
c_731417.elts[25] = ((closureN)self_73651)->elts[25];
c_731417.elts[26] = ((closureN)self_73651)->elts[26];
c_731417.elts[27] = ((closureN)self_73651)->elts[27];
c_731417.elts[28] = ((closureN)self_73651)->elts[28];
c_731417.elts[29] = ((closureN)self_73651)->elts[29];
c_731417.elts[30] = ((closureN)self_73651)->elts[30];
c_731417.elts[31] = ((closureN)self_73651)->elts[31];
c_731417.elts[32] = ((closureN)self_73651)->elts[32];
c_731417.elts[33] = translate_91args_73153;
c_731417.elts[34] = ((closureN)self_73651)->elts[33];
c_731417.elts[35] = ((closureN)self_73651)->elts[34];
c_731417.elts[36] = ((closureN)self_73651)->elts[35];
c_731417.elts[37] = ((closureN)self_73651)->elts[36];


make_cell(c_735115,((closureN)self_73651)->elts[37]);
return_closcall1(data,(closure)&c_731417,  &c_735115);; 
}

static void __lambda_469(void *data, int argc, object self_73652, object untranslate_91term_73152) {
  
closureN_type c_731419;
c_731419.hdr.mark = gc_color_red;
 c_731419.hdr.grayed = 0;
c_731419.tag = closureN_tag;
 c_731419.fn = (function_type)__lambda_468;
c_731419.num_args = 1;
c_731419.num_elt = 38;
c_731419.elts = (object *)alloca(sizeof(object) * 38);
c_731419.elts[0] = ((closureN)self_73652)->elts[0];
c_731419.elts[1] = ((closureN)self_73652)->elts[1];
c_731419.elts[2] = ((closureN)self_73652)->elts[2];
c_731419.elts[3] = ((closureN)self_73652)->elts[3];
c_731419.elts[4] = ((closureN)self_73652)->elts[4];
c_731419.elts[5] = ((closureN)self_73652)->elts[5];
c_731419.elts[6] = ((closureN)self_73652)->elts[6];
c_731419.elts[7] = ((closureN)self_73652)->elts[7];
c_731419.elts[8] = ((closureN)self_73652)->elts[8];
c_731419.elts[9] = ((closureN)self_73652)->elts[9];
c_731419.elts[10] = ((closureN)self_73652)->elts[10];
c_731419.elts[11] = ((closureN)self_73652)->elts[11];
c_731419.elts[12] = ((closureN)self_73652)->elts[12];
c_731419.elts[13] = ((closureN)self_73652)->elts[13];
c_731419.elts[14] = ((closureN)self_73652)->elts[14];
c_731419.elts[15] = ((closureN)self_73652)->elts[16];
c_731419.elts[16] = ((closureN)self_73652)->elts[17];
c_731419.elts[17] = ((closureN)self_73652)->elts[18];
c_731419.elts[18] = ((closureN)self_73652)->elts[19];
c_731419.elts[19] = ((closureN)self_73652)->elts[20];
c_731419.elts[20] = ((closureN)self_73652)->elts[21];
c_731419.elts[21] = ((closureN)self_73652)->elts[22];
c_731419.elts[22] = ((closureN)self_73652)->elts[23];
c_731419.elts[23] = ((closureN)self_73652)->elts[24];
c_731419.elts[24] = ((closureN)self_73652)->elts[25];
c_731419.elts[25] = ((closureN)self_73652)->elts[26];
c_731419.elts[26] = ((closureN)self_73652)->elts[27];
c_731419.elts[27] = ((closureN)self_73652)->elts[28];
c_731419.elts[28] = ((closureN)self_73652)->elts[29];
c_731419.elts[29] = ((closureN)self_73652)->elts[30];
c_731419.elts[30] = ((closureN)self_73652)->elts[31];
c_731419.elts[31] = ((closureN)self_73652)->elts[32];
c_731419.elts[32] = ((closureN)self_73652)->elts[33];
c_731419.elts[33] = ((closureN)self_73652)->elts[34];
c_731419.elts[34] = ((closureN)self_73652)->elts[35];
c_731419.elts[35] = ((closureN)self_73652)->elts[36];
c_731419.elts[36] = ((closureN)self_73652)->elts[37];
c_731419.elts[37] = untranslate_91term_73152;


make_cell(c_735111,((closureN)self_73652)->elts[15]);
return_closcall1(data,(closure)&c_731419,  &c_735111);; 
}

static void __lambda_468(void *data, int argc, object self_73653, object put_73151) {
  
closureN_type c_731421;
c_731421.hdr.mark = gc_color_red;
 c_731421.hdr.grayed = 0;
c_731421.tag = closureN_tag;
 c_731421.fn = (function_type)__lambda_467;
c_731421.num_args = 1;
c_731421.num_elt = 38;
c_731421.elts = (object *)alloca(sizeof(object) * 38);
c_731421.elts[0] = ((closureN)self_73653)->elts[0];
c_731421.elts[1] = ((closureN)self_73653)->elts[1];
c_731421.elts[2] = ((closureN)self_73653)->elts[2];
c_731421.elts[3] = ((closureN)self_73653)->elts[3];
c_731421.elts[4] = ((closureN)self_73653)->elts[4];
c_731421.elts[5] = ((closureN)self_73653)->elts[5];
c_731421.elts[6] = ((closureN)self_73653)->elts[6];
c_731421.elts[7] = ((closureN)self_73653)->elts[8];
c_731421.elts[8] = ((closureN)self_73653)->elts[9];
c_731421.elts[9] = ((closureN)self_73653)->elts[10];
c_731421.elts[10] = ((closureN)self_73653)->elts[11];
c_731421.elts[11] = ((closureN)self_73653)->elts[12];
c_731421.elts[12] = ((closureN)self_73653)->elts[13];
c_731421.elts[13] = ((closureN)self_73653)->elts[14];
c_731421.elts[14] = put_73151;
c_731421.elts[15] = ((closureN)self_73653)->elts[15];
c_731421.elts[16] = ((closureN)self_73653)->elts[16];
c_731421.elts[17] = ((closureN)self_73653)->elts[17];
c_731421.elts[18] = ((closureN)self_73653)->elts[18];
c_731421.elts[19] = ((closureN)self_73653)->elts[19];
c_731421.elts[20] = ((closureN)self_73653)->elts[20];
c_731421.elts[21] = ((closureN)self_73653)->elts[21];
c_731421.elts[22] = ((closureN)self_73653)->elts[22];
c_731421.elts[23] = ((closureN)self_73653)->elts[23];
c_731421.elts[24] = ((closureN)self_73653)->elts[24];
c_731421.elts[25] = ((closureN)self_73653)->elts[25];
c_731421.elts[26] = ((closureN)self_73653)->elts[26];
c_731421.elts[27] = ((closureN)self_73653)->elts[27];
c_731421.elts[28] = ((closureN)self_73653)->elts[28];
c_731421.elts[29] = ((closureN)self_73653)->elts[29];
c_731421.elts[30] = ((closureN)self_73653)->elts[30];
c_731421.elts[31] = ((closureN)self_73653)->elts[31];
c_731421.elts[32] = ((closureN)self_73653)->elts[32];
c_731421.elts[33] = ((closureN)self_73653)->elts[33];
c_731421.elts[34] = ((closureN)self_73653)->elts[34];
c_731421.elts[35] = ((closureN)self_73653)->elts[35];
c_731421.elts[36] = ((closureN)self_73653)->elts[36];
c_731421.elts[37] = ((closureN)self_73653)->elts[37];


make_cell(c_735107,((closureN)self_73653)->elts[7]);
return_closcall1(data,(closure)&c_731421,  &c_735107);; 
}

static void __lambda_467(void *data, int argc, object self_73654, object get_73150) {
  
closureN_type c_731423;
c_731423.hdr.mark = gc_color_red;
 c_731423.hdr.grayed = 0;
c_731423.tag = closureN_tag;
 c_731423.fn = (function_type)__lambda_466;
c_731423.num_args = 1;
c_731423.num_elt = 38;
c_731423.elts = (object *)alloca(sizeof(object) * 38);
c_731423.elts[0] = ((closureN)self_73654)->elts[0];
c_731423.elts[1] = ((closureN)self_73654)->elts[1];
c_731423.elts[2] = ((closureN)self_73654)->elts[2];
c_731423.elts[3] = ((closureN)self_73654)->elts[3];
c_731423.elts[4] = ((closureN)self_73654)->elts[4];
c_731423.elts[5] = ((closureN)self_73654)->elts[5];
c_731423.elts[6] = ((closureN)self_73654)->elts[6];
c_731423.elts[7] = get_73150;
c_731423.elts[8] = ((closureN)self_73654)->elts[7];
c_731423.elts[9] = ((closureN)self_73654)->elts[8];
c_731423.elts[10] = ((closureN)self_73654)->elts[9];
c_731423.elts[11] = ((closureN)self_73654)->elts[10];
c_731423.elts[12] = ((closureN)self_73654)->elts[11];
c_731423.elts[13] = ((closureN)self_73654)->elts[12];
c_731423.elts[14] = ((closureN)self_73654)->elts[13];
c_731423.elts[15] = ((closureN)self_73654)->elts[14];
c_731423.elts[16] = ((closureN)self_73654)->elts[15];
c_731423.elts[17] = ((closureN)self_73654)->elts[16];
c_731423.elts[18] = ((closureN)self_73654)->elts[17];
c_731423.elts[19] = ((closureN)self_73654)->elts[18];
c_731423.elts[20] = ((closureN)self_73654)->elts[19];
c_731423.elts[21] = ((closureN)self_73654)->elts[20];
c_731423.elts[22] = ((closureN)self_73654)->elts[22];
c_731423.elts[23] = ((closureN)self_73654)->elts[23];
c_731423.elts[24] = ((closureN)self_73654)->elts[24];
c_731423.elts[25] = ((closureN)self_73654)->elts[25];
c_731423.elts[26] = ((closureN)self_73654)->elts[26];
c_731423.elts[27] = ((closureN)self_73654)->elts[27];
c_731423.elts[28] = ((closureN)self_73654)->elts[28];
c_731423.elts[29] = ((closureN)self_73654)->elts[29];
c_731423.elts[30] = ((closureN)self_73654)->elts[30];
c_731423.elts[31] = ((closureN)self_73654)->elts[31];
c_731423.elts[32] = ((closureN)self_73654)->elts[32];
c_731423.elts[33] = ((closureN)self_73654)->elts[33];
c_731423.elts[34] = ((closureN)self_73654)->elts[34];
c_731423.elts[35] = ((closureN)self_73654)->elts[35];
c_731423.elts[36] = ((closureN)self_73654)->elts[36];
c_731423.elts[37] = ((closureN)self_73654)->elts[37];


make_cell(c_735103,((closureN)self_73654)->elts[21]);
return_closcall1(data,(closure)&c_731423,  &c_735103);; 
}

static void __lambda_466(void *data, int argc, object self_73655, object symbol_91_125symbol_91record_73149) {
  
closureN_type c_731425;
c_731425.hdr.mark = gc_color_red;
 c_731425.hdr.grayed = 0;
c_731425.tag = closureN_tag;
 c_731425.fn = (function_type)__lambda_465;
c_731425.num_args = 1;
c_731425.num_elt = 38;
c_731425.elts = (object *)alloca(sizeof(object) * 38);
c_731425.elts[0] = ((closureN)self_73655)->elts[1];
c_731425.elts[1] = ((closureN)self_73655)->elts[2];
c_731425.elts[2] = ((closureN)self_73655)->elts[3];
c_731425.elts[3] = ((closureN)self_73655)->elts[4];
c_731425.elts[4] = ((closureN)self_73655)->elts[5];
c_731425.elts[5] = ((closureN)self_73655)->elts[6];
c_731425.elts[6] = ((closureN)self_73655)->elts[7];
c_731425.elts[7] = ((closureN)self_73655)->elts[8];
c_731425.elts[8] = ((closureN)self_73655)->elts[9];
c_731425.elts[9] = ((closureN)self_73655)->elts[10];
c_731425.elts[10] = ((closureN)self_73655)->elts[11];
c_731425.elts[11] = ((closureN)self_73655)->elts[12];
c_731425.elts[12] = ((closureN)self_73655)->elts[13];
c_731425.elts[13] = ((closureN)self_73655)->elts[14];
c_731425.elts[14] = ((closureN)self_73655)->elts[15];
c_731425.elts[15] = ((closureN)self_73655)->elts[16];
c_731425.elts[16] = ((closureN)self_73655)->elts[17];
c_731425.elts[17] = ((closureN)self_73655)->elts[18];
c_731425.elts[18] = ((closureN)self_73655)->elts[19];
c_731425.elts[19] = ((closureN)self_73655)->elts[20];
c_731425.elts[20] = ((closureN)self_73655)->elts[21];
c_731425.elts[21] = symbol_91_125symbol_91record_73149;
c_731425.elts[22] = ((closureN)self_73655)->elts[22];
c_731425.elts[23] = ((closureN)self_73655)->elts[23];
c_731425.elts[24] = ((closureN)self_73655)->elts[24];
c_731425.elts[25] = ((closureN)self_73655)->elts[25];
c_731425.elts[26] = ((closureN)self_73655)->elts[26];
c_731425.elts[27] = ((closureN)self_73655)->elts[27];
c_731425.elts[28] = ((closureN)self_73655)->elts[28];
c_731425.elts[29] = ((closureN)self_73655)->elts[29];
c_731425.elts[30] = ((closureN)self_73655)->elts[30];
c_731425.elts[31] = ((closureN)self_73655)->elts[31];
c_731425.elts[32] = ((closureN)self_73655)->elts[32];
c_731425.elts[33] = ((closureN)self_73655)->elts[33];
c_731425.elts[34] = ((closureN)self_73655)->elts[34];
c_731425.elts[35] = ((closureN)self_73655)->elts[35];
c_731425.elts[36] = ((closureN)self_73655)->elts[36];
c_731425.elts[37] = ((closureN)self_73655)->elts[37];


make_cell(c_735099,((closureN)self_73655)->elts[0]);
return_closcall1(data,(closure)&c_731425,  &c_735099);; 
}

static void __lambda_465(void *data, int argc, object self_73656, object _85symbol_91records_91alist_85_73148) {
  
closureN_type c_731427;
c_731427.hdr.mark = gc_color_red;
 c_731427.hdr.grayed = 0;
c_731427.tag = closureN_tag;
 c_731427.fn = (function_type)__lambda_464;
c_731427.num_args = 1;
c_731427.num_elt = 38;
c_731427.elts = (object *)alloca(sizeof(object) * 38);
c_731427.elts[0] = _85symbol_91records_91alist_85_73148;
c_731427.elts[1] = ((closureN)self_73656)->elts[0];
c_731427.elts[2] = ((closureN)self_73656)->elts[1];
c_731427.elts[3] = ((closureN)self_73656)->elts[2];
c_731427.elts[4] = ((closureN)self_73656)->elts[3];
c_731427.elts[5] = ((closureN)self_73656)->elts[4];
c_731427.elts[6] = ((closureN)self_73656)->elts[5];
c_731427.elts[7] = ((closureN)self_73656)->elts[6];
c_731427.elts[8] = ((closureN)self_73656)->elts[7];
c_731427.elts[9] = ((closureN)self_73656)->elts[8];
c_731427.elts[10] = ((closureN)self_73656)->elts[9];
c_731427.elts[11] = ((closureN)self_73656)->elts[11];
c_731427.elts[12] = ((closureN)self_73656)->elts[12];
c_731427.elts[13] = ((closureN)self_73656)->elts[13];
c_731427.elts[14] = ((closureN)self_73656)->elts[14];
c_731427.elts[15] = ((closureN)self_73656)->elts[15];
c_731427.elts[16] = ((closureN)self_73656)->elts[16];
c_731427.elts[17] = ((closureN)self_73656)->elts[17];
c_731427.elts[18] = ((closureN)self_73656)->elts[18];
c_731427.elts[19] = ((closureN)self_73656)->elts[19];
c_731427.elts[20] = ((closureN)self_73656)->elts[20];
c_731427.elts[21] = ((closureN)self_73656)->elts[21];
c_731427.elts[22] = ((closureN)self_73656)->elts[22];
c_731427.elts[23] = ((closureN)self_73656)->elts[23];
c_731427.elts[24] = ((closureN)self_73656)->elts[24];
c_731427.elts[25] = ((closureN)self_73656)->elts[25];
c_731427.elts[26] = ((closureN)self_73656)->elts[26];
c_731427.elts[27] = ((closureN)self_73656)->elts[27];
c_731427.elts[28] = ((closureN)self_73656)->elts[28];
c_731427.elts[29] = ((closureN)self_73656)->elts[29];
c_731427.elts[30] = ((closureN)self_73656)->elts[30];
c_731427.elts[31] = ((closureN)self_73656)->elts[31];
c_731427.elts[32] = ((closureN)self_73656)->elts[32];
c_731427.elts[33] = ((closureN)self_73656)->elts[33];
c_731427.elts[34] = ((closureN)self_73656)->elts[34];
c_731427.elts[35] = ((closureN)self_73656)->elts[35];
c_731427.elts[36] = ((closureN)self_73656)->elts[36];
c_731427.elts[37] = ((closureN)self_73656)->elts[37];


make_cell(c_735095,((closureN)self_73656)->elts[10]);
return_closcall1(data,(closure)&c_731427,  &c_735095);; 
}

static void __lambda_464(void *data, int argc, object self_73657, object make_91symbol_91record_73147) {
  
closureN_type c_731429;
c_731429.hdr.mark = gc_color_red;
 c_731429.hdr.grayed = 0;
c_731429.tag = closureN_tag;
 c_731429.fn = (function_type)__lambda_463;
c_731429.num_args = 1;
c_731429.num_elt = 38;
c_731429.elts = (object *)alloca(sizeof(object) * 38);
c_731429.elts[0] = ((closureN)self_73657)->elts[0];
c_731429.elts[1] = ((closureN)self_73657)->elts[1];
c_731429.elts[2] = ((closureN)self_73657)->elts[2];
c_731429.elts[3] = ((closureN)self_73657)->elts[3];
c_731429.elts[4] = ((closureN)self_73657)->elts[4];
c_731429.elts[5] = ((closureN)self_73657)->elts[5];
c_731429.elts[6] = ((closureN)self_73657)->elts[6];
c_731429.elts[7] = ((closureN)self_73657)->elts[7];
c_731429.elts[8] = ((closureN)self_73657)->elts[8];
c_731429.elts[9] = ((closureN)self_73657)->elts[9];
c_731429.elts[10] = ((closureN)self_73657)->elts[10];
c_731429.elts[11] = make_91symbol_91record_73147;
c_731429.elts[12] = ((closureN)self_73657)->elts[11];
c_731429.elts[13] = ((closureN)self_73657)->elts[12];
c_731429.elts[14] = ((closureN)self_73657)->elts[13];
c_731429.elts[15] = ((closureN)self_73657)->elts[14];
c_731429.elts[16] = ((closureN)self_73657)->elts[16];
c_731429.elts[17] = ((closureN)self_73657)->elts[17];
c_731429.elts[18] = ((closureN)self_73657)->elts[18];
c_731429.elts[19] = ((closureN)self_73657)->elts[19];
c_731429.elts[20] = ((closureN)self_73657)->elts[20];
c_731429.elts[21] = ((closureN)self_73657)->elts[21];
c_731429.elts[22] = ((closureN)self_73657)->elts[22];
c_731429.elts[23] = ((closureN)self_73657)->elts[23];
c_731429.elts[24] = ((closureN)self_73657)->elts[24];
c_731429.elts[25] = ((closureN)self_73657)->elts[25];
c_731429.elts[26] = ((closureN)self_73657)->elts[26];
c_731429.elts[27] = ((closureN)self_73657)->elts[27];
c_731429.elts[28] = ((closureN)self_73657)->elts[28];
c_731429.elts[29] = ((closureN)self_73657)->elts[29];
c_731429.elts[30] = ((closureN)self_73657)->elts[30];
c_731429.elts[31] = ((closureN)self_73657)->elts[31];
c_731429.elts[32] = ((closureN)self_73657)->elts[32];
c_731429.elts[33] = ((closureN)self_73657)->elts[33];
c_731429.elts[34] = ((closureN)self_73657)->elts[34];
c_731429.elts[35] = ((closureN)self_73657)->elts[35];
c_731429.elts[36] = ((closureN)self_73657)->elts[36];
c_731429.elts[37] = ((closureN)self_73657)->elts[37];


make_cell(c_735091,((closureN)self_73657)->elts[15]);
return_closcall1(data,(closure)&c_731429,  &c_735091);; 
}

static void __lambda_463(void *data, int argc, object self_73658, object put_91lemmas_67_73146) {
  
closureN_type c_731431;
c_731431.hdr.mark = gc_color_red;
 c_731431.hdr.grayed = 0;
c_731431.tag = closureN_tag;
 c_731431.fn = (function_type)__lambda_462;
c_731431.num_args = 1;
c_731431.num_elt = 38;
c_731431.elts = (object *)alloca(sizeof(object) * 38);
c_731431.elts[0] = ((closureN)self_73658)->elts[0];
c_731431.elts[1] = ((closureN)self_73658)->elts[1];
c_731431.elts[2] = ((closureN)self_73658)->elts[2];
c_731431.elts[3] = ((closureN)self_73658)->elts[3];
c_731431.elts[4] = ((closureN)self_73658)->elts[4];
c_731431.elts[5] = ((closureN)self_73658)->elts[5];
c_731431.elts[6] = ((closureN)self_73658)->elts[6];
c_731431.elts[7] = ((closureN)self_73658)->elts[7];
c_731431.elts[8] = ((closureN)self_73658)->elts[9];
c_731431.elts[9] = ((closureN)self_73658)->elts[10];
c_731431.elts[10] = ((closureN)self_73658)->elts[11];
c_731431.elts[11] = ((closureN)self_73658)->elts[12];
c_731431.elts[12] = ((closureN)self_73658)->elts[13];
c_731431.elts[13] = ((closureN)self_73658)->elts[14];
c_731431.elts[14] = ((closureN)self_73658)->elts[15];
c_731431.elts[15] = put_91lemmas_67_73146;
c_731431.elts[16] = ((closureN)self_73658)->elts[16];
c_731431.elts[17] = ((closureN)self_73658)->elts[17];
c_731431.elts[18] = ((closureN)self_73658)->elts[18];
c_731431.elts[19] = ((closureN)self_73658)->elts[19];
c_731431.elts[20] = ((closureN)self_73658)->elts[20];
c_731431.elts[21] = ((closureN)self_73658)->elts[21];
c_731431.elts[22] = ((closureN)self_73658)->elts[22];
c_731431.elts[23] = ((closureN)self_73658)->elts[23];
c_731431.elts[24] = ((closureN)self_73658)->elts[24];
c_731431.elts[25] = ((closureN)self_73658)->elts[25];
c_731431.elts[26] = ((closureN)self_73658)->elts[26];
c_731431.elts[27] = ((closureN)self_73658)->elts[27];
c_731431.elts[28] = ((closureN)self_73658)->elts[28];
c_731431.elts[29] = ((closureN)self_73658)->elts[29];
c_731431.elts[30] = ((closureN)self_73658)->elts[30];
c_731431.elts[31] = ((closureN)self_73658)->elts[31];
c_731431.elts[32] = ((closureN)self_73658)->elts[32];
c_731431.elts[33] = ((closureN)self_73658)->elts[33];
c_731431.elts[34] = ((closureN)self_73658)->elts[34];
c_731431.elts[35] = ((closureN)self_73658)->elts[35];
c_731431.elts[36] = ((closureN)self_73658)->elts[36];
c_731431.elts[37] = ((closureN)self_73658)->elts[37];


make_cell(c_735087,((closureN)self_73658)->elts[8]);
return_closcall1(data,(closure)&c_731431,  &c_735087);; 
}

static void __lambda_462(void *data, int argc, object self_73659, object get_91lemmas_73145) {
  
closureN_type c_731433;
c_731433.hdr.mark = gc_color_red;
 c_731433.hdr.grayed = 0;
c_731433.tag = closureN_tag;
 c_731433.fn = (function_type)__lambda_461;
c_731433.num_args = 1;
c_731433.num_elt = 38;
c_731433.elts = (object *)alloca(sizeof(object) * 38);
c_731433.elts[0] = ((closureN)self_73659)->elts[0];
c_731433.elts[1] = ((closureN)self_73659)->elts[1];
c_731433.elts[2] = ((closureN)self_73659)->elts[2];
c_731433.elts[3] = ((closureN)self_73659)->elts[3];
c_731433.elts[4] = ((closureN)self_73659)->elts[4];
c_731433.elts[5] = ((closureN)self_73659)->elts[5];
c_731433.elts[6] = ((closureN)self_73659)->elts[6];
c_731433.elts[7] = ((closureN)self_73659)->elts[7];
c_731433.elts[8] = get_91lemmas_73145;
c_731433.elts[9] = ((closureN)self_73659)->elts[9];
c_731433.elts[10] = ((closureN)self_73659)->elts[10];
c_731433.elts[11] = ((closureN)self_73659)->elts[11];
c_731433.elts[12] = ((closureN)self_73659)->elts[12];
c_731433.elts[13] = ((closureN)self_73659)->elts[13];
c_731433.elts[14] = ((closureN)self_73659)->elts[14];
c_731433.elts[15] = ((closureN)self_73659)->elts[15];
c_731433.elts[16] = ((closureN)self_73659)->elts[16];
c_731433.elts[17] = ((closureN)self_73659)->elts[17];
c_731433.elts[18] = ((closureN)self_73659)->elts[18];
c_731433.elts[19] = ((closureN)self_73659)->elts[19];
c_731433.elts[20] = ((closureN)self_73659)->elts[20];
c_731433.elts[21] = ((closureN)self_73659)->elts[21];
c_731433.elts[22] = ((closureN)self_73659)->elts[22];
c_731433.elts[23] = ((closureN)self_73659)->elts[23];
c_731433.elts[24] = ((closureN)self_73659)->elts[24];
c_731433.elts[25] = ((closureN)self_73659)->elts[25];
c_731433.elts[26] = ((closureN)self_73659)->elts[26];
c_731433.elts[27] = ((closureN)self_73659)->elts[27];
c_731433.elts[28] = ((closureN)self_73659)->elts[28];
c_731433.elts[29] = ((closureN)self_73659)->elts[29];
c_731433.elts[30] = ((closureN)self_73659)->elts[30];
c_731433.elts[31] = ((closureN)self_73659)->elts[31];
c_731433.elts[32] = ((closureN)self_73659)->elts[32];
c_731433.elts[33] = ((closureN)self_73659)->elts[33];
c_731433.elts[34] = ((closureN)self_73659)->elts[34];
c_731433.elts[35] = ((closureN)self_73659)->elts[35];
c_731433.elts[36] = ((closureN)self_73659)->elts[36];
c_731433.elts[37] = ((closureN)self_73659)->elts[37];


make_cell(c_735083,((closureN)self_73659)->elts[8]);
return_closcall1(data,(closure)&c_731433,  &c_735083);; 
}

static void __lambda_461(void *data, int argc, object self_73660, object get_91name_73144) {
  
closureN_type c_731435;
c_731435.hdr.mark = gc_color_red;
 c_731435.hdr.grayed = 0;
c_731435.tag = closureN_tag;
 c_731435.fn = (function_type)__lambda_460;
c_731435.num_args = 1;
c_731435.num_elt = 38;
c_731435.elts = (object *)alloca(sizeof(object) * 38);
c_731435.elts[0] = ((closureN)self_73660)->elts[0];
c_731435.elts[1] = ((closureN)self_73660)->elts[1];
c_731435.elts[2] = ((closureN)self_73660)->elts[2];
c_731435.elts[3] = ((closureN)self_73660)->elts[3];
c_731435.elts[4] = ((closureN)self_73660)->elts[4];
c_731435.elts[5] = ((closureN)self_73660)->elts[5];
c_731435.elts[6] = ((closureN)self_73660)->elts[6];
c_731435.elts[7] = ((closureN)self_73660)->elts[7];
c_731435.elts[8] = ((closureN)self_73660)->elts[8];
c_731435.elts[9] = get_91name_73144;
c_731435.elts[10] = ((closureN)self_73660)->elts[9];
c_731435.elts[11] = ((closureN)self_73660)->elts[10];
c_731435.elts[12] = ((closureN)self_73660)->elts[11];
c_731435.elts[13] = ((closureN)self_73660)->elts[12];
c_731435.elts[14] = ((closureN)self_73660)->elts[13];
c_731435.elts[15] = ((closureN)self_73660)->elts[14];
c_731435.elts[16] = ((closureN)self_73660)->elts[15];
c_731435.elts[17] = ((closureN)self_73660)->elts[16];
c_731435.elts[18] = ((closureN)self_73660)->elts[17];
c_731435.elts[19] = ((closureN)self_73660)->elts[18];
c_731435.elts[20] = ((closureN)self_73660)->elts[19];
c_731435.elts[21] = ((closureN)self_73660)->elts[20];
c_731435.elts[22] = ((closureN)self_73660)->elts[21];
c_731435.elts[23] = ((closureN)self_73660)->elts[23];
c_731435.elts[24] = ((closureN)self_73660)->elts[24];
c_731435.elts[25] = ((closureN)self_73660)->elts[25];
c_731435.elts[26] = ((closureN)self_73660)->elts[26];
c_731435.elts[27] = ((closureN)self_73660)->elts[27];
c_731435.elts[28] = ((closureN)self_73660)->elts[28];
c_731435.elts[29] = ((closureN)self_73660)->elts[29];
c_731435.elts[30] = ((closureN)self_73660)->elts[30];
c_731435.elts[31] = ((closureN)self_73660)->elts[31];
c_731435.elts[32] = ((closureN)self_73660)->elts[32];
c_731435.elts[33] = ((closureN)self_73660)->elts[33];
c_731435.elts[34] = ((closureN)self_73660)->elts[34];
c_731435.elts[35] = ((closureN)self_73660)->elts[35];
c_731435.elts[36] = ((closureN)self_73660)->elts[36];
c_731435.elts[37] = ((closureN)self_73660)->elts[37];


make_cell(c_735079,((closureN)self_73660)->elts[22]);
return_closcall1(data,(closure)&c_731435,  &c_735079);; 
}

static void __lambda_460(void *data, int argc, object self_73661, object symbol_91record_91equal_127_73143) {
  
closureN_type c_731437;
c_731437.hdr.mark = gc_color_red;
 c_731437.hdr.grayed = 0;
c_731437.tag = closureN_tag;
 c_731437.fn = (function_type)__lambda_459;
c_731437.num_args = 1;
c_731437.num_elt = 38;
c_731437.elts = (object *)alloca(sizeof(object) * 38);
c_731437.elts[0] = ((closureN)self_73661)->elts[0];
c_731437.elts[1] = ((closureN)self_73661)->elts[1];
c_731437.elts[2] = ((closureN)self_73661)->elts[2];
c_731437.elts[3] = ((closureN)self_73661)->elts[3];
c_731437.elts[4] = ((closureN)self_73661)->elts[4];
c_731437.elts[5] = ((closureN)self_73661)->elts[5];
c_731437.elts[6] = ((closureN)self_73661)->elts[6];
c_731437.elts[7] = ((closureN)self_73661)->elts[7];
c_731437.elts[8] = ((closureN)self_73661)->elts[8];
c_731437.elts[9] = ((closureN)self_73661)->elts[9];
c_731437.elts[10] = ((closureN)self_73661)->elts[10];
c_731437.elts[11] = ((closureN)self_73661)->elts[11];
c_731437.elts[12] = ((closureN)self_73661)->elts[12];
c_731437.elts[13] = ((closureN)self_73661)->elts[13];
c_731437.elts[14] = ((closureN)self_73661)->elts[14];
c_731437.elts[15] = ((closureN)self_73661)->elts[15];
c_731437.elts[16] = ((closureN)self_73661)->elts[16];
c_731437.elts[17] = ((closureN)self_73661)->elts[17];
c_731437.elts[18] = ((closureN)self_73661)->elts[18];
c_731437.elts[19] = ((closureN)self_73661)->elts[19];
c_731437.elts[20] = ((closureN)self_73661)->elts[20];
c_731437.elts[21] = ((closureN)self_73661)->elts[21];
c_731437.elts[22] = ((closureN)self_73661)->elts[22];
c_731437.elts[23] = symbol_91record_91equal_127_73143;
c_731437.elts[24] = ((closureN)self_73661)->elts[23];
c_731437.elts[25] = ((closureN)self_73661)->elts[24];
c_731437.elts[26] = ((closureN)self_73661)->elts[25];
c_731437.elts[27] = ((closureN)self_73661)->elts[26];
c_731437.elts[28] = ((closureN)self_73661)->elts[27];
c_731437.elts[29] = ((closureN)self_73661)->elts[29];
c_731437.elts[30] = ((closureN)self_73661)->elts[30];
c_731437.elts[31] = ((closureN)self_73661)->elts[31];
c_731437.elts[32] = ((closureN)self_73661)->elts[32];
c_731437.elts[33] = ((closureN)self_73661)->elts[33];
c_731437.elts[34] = ((closureN)self_73661)->elts[34];
c_731437.elts[35] = ((closureN)self_73661)->elts[35];
c_731437.elts[36] = ((closureN)self_73661)->elts[36];
c_731437.elts[37] = ((closureN)self_73661)->elts[37];


make_cell(c_735075,((closureN)self_73661)->elts[28]);
return_closcall1(data,(closure)&c_731437,  &c_735075);; 
}

static void __lambda_459(void *data, int argc, object self_73662, object test_73142) {
  
closureN_type c_731439;
c_731439.hdr.mark = gc_color_red;
 c_731439.hdr.grayed = 0;
c_731439.tag = closureN_tag;
 c_731439.fn = (function_type)__lambda_458;
c_731439.num_args = 1;
c_731439.num_elt = 38;
c_731439.elts = (object *)alloca(sizeof(object) * 38);
c_731439.elts[0] = ((closureN)self_73662)->elts[0];
c_731439.elts[1] = ((closureN)self_73662)->elts[1];
c_731439.elts[2] = ((closureN)self_73662)->elts[2];
c_731439.elts[3] = ((closureN)self_73662)->elts[3];
c_731439.elts[4] = ((closureN)self_73662)->elts[4];
c_731439.elts[5] = ((closureN)self_73662)->elts[5];
c_731439.elts[6] = ((closureN)self_73662)->elts[6];
c_731439.elts[7] = ((closureN)self_73662)->elts[7];
c_731439.elts[8] = ((closureN)self_73662)->elts[8];
c_731439.elts[9] = ((closureN)self_73662)->elts[9];
c_731439.elts[10] = ((closureN)self_73662)->elts[10];
c_731439.elts[11] = ((closureN)self_73662)->elts[11];
c_731439.elts[12] = ((closureN)self_73662)->elts[12];
c_731439.elts[13] = ((closureN)self_73662)->elts[13];
c_731439.elts[14] = ((closureN)self_73662)->elts[14];
c_731439.elts[15] = ((closureN)self_73662)->elts[15];
c_731439.elts[16] = ((closureN)self_73662)->elts[16];
c_731439.elts[17] = ((closureN)self_73662)->elts[17];
c_731439.elts[18] = ((closureN)self_73662)->elts[18];
c_731439.elts[19] = ((closureN)self_73662)->elts[19];
c_731439.elts[20] = ((closureN)self_73662)->elts[20];
c_731439.elts[21] = ((closureN)self_73662)->elts[21];
c_731439.elts[22] = ((closureN)self_73662)->elts[22];
c_731439.elts[23] = ((closureN)self_73662)->elts[23];
c_731439.elts[24] = ((closureN)self_73662)->elts[24];
c_731439.elts[25] = ((closureN)self_73662)->elts[25];
c_731439.elts[26] = ((closureN)self_73662)->elts[26];
c_731439.elts[27] = ((closureN)self_73662)->elts[27];
c_731439.elts[28] = ((closureN)self_73662)->elts[28];
c_731439.elts[29] = test_73142;
c_731439.elts[30] = ((closureN)self_73662)->elts[29];
c_731439.elts[31] = ((closureN)self_73662)->elts[30];
c_731439.elts[32] = ((closureN)self_73662)->elts[32];
c_731439.elts[33] = ((closureN)self_73662)->elts[33];
c_731439.elts[34] = ((closureN)self_73662)->elts[34];
c_731439.elts[35] = ((closureN)self_73662)->elts[35];
c_731439.elts[36] = ((closureN)self_73662)->elts[36];
c_731439.elts[37] = ((closureN)self_73662)->elts[37];


make_cell(c_735071,((closureN)self_73662)->elts[31]);
return_closcall1(data,(closure)&c_731439,  &c_735071);; 
}

static void __lambda_458(void *data, int argc, object self_73663, object translate_91alist_73141) {
  
closureN_type c_731441;
c_731441.hdr.mark = gc_color_red;
 c_731441.hdr.grayed = 0;
c_731441.tag = closureN_tag;
 c_731441.fn = (function_type)__lambda_457;
c_731441.num_args = 1;
c_731441.num_elt = 38;
c_731441.elts = (object *)alloca(sizeof(object) * 38);
c_731441.elts[0] = ((closureN)self_73663)->elts[0];
c_731441.elts[1] = ((closureN)self_73663)->elts[1];
c_731441.elts[2] = ((closureN)self_73663)->elts[2];
c_731441.elts[3] = ((closureN)self_73663)->elts[4];
c_731441.elts[4] = ((closureN)self_73663)->elts[5];
c_731441.elts[5] = ((closureN)self_73663)->elts[6];
c_731441.elts[6] = ((closureN)self_73663)->elts[7];
c_731441.elts[7] = ((closureN)self_73663)->elts[8];
c_731441.elts[8] = ((closureN)self_73663)->elts[9];
c_731441.elts[9] = ((closureN)self_73663)->elts[10];
c_731441.elts[10] = ((closureN)self_73663)->elts[11];
c_731441.elts[11] = ((closureN)self_73663)->elts[12];
c_731441.elts[12] = ((closureN)self_73663)->elts[13];
c_731441.elts[13] = ((closureN)self_73663)->elts[14];
c_731441.elts[14] = ((closureN)self_73663)->elts[15];
c_731441.elts[15] = ((closureN)self_73663)->elts[16];
c_731441.elts[16] = ((closureN)self_73663)->elts[17];
c_731441.elts[17] = ((closureN)self_73663)->elts[18];
c_731441.elts[18] = ((closureN)self_73663)->elts[19];
c_731441.elts[19] = ((closureN)self_73663)->elts[20];
c_731441.elts[20] = ((closureN)self_73663)->elts[21];
c_731441.elts[21] = ((closureN)self_73663)->elts[22];
c_731441.elts[22] = ((closureN)self_73663)->elts[23];
c_731441.elts[23] = ((closureN)self_73663)->elts[24];
c_731441.elts[24] = ((closureN)self_73663)->elts[25];
c_731441.elts[25] = ((closureN)self_73663)->elts[26];
c_731441.elts[26] = ((closureN)self_73663)->elts[27];
c_731441.elts[27] = ((closureN)self_73663)->elts[28];
c_731441.elts[28] = ((closureN)self_73663)->elts[29];
c_731441.elts[29] = ((closureN)self_73663)->elts[30];
c_731441.elts[30] = ((closureN)self_73663)->elts[31];
c_731441.elts[31] = translate_91alist_73141;
c_731441.elts[32] = ((closureN)self_73663)->elts[32];
c_731441.elts[33] = ((closureN)self_73663)->elts[33];
c_731441.elts[34] = ((closureN)self_73663)->elts[34];
c_731441.elts[35] = ((closureN)self_73663)->elts[35];
c_731441.elts[36] = ((closureN)self_73663)->elts[36];
c_731441.elts[37] = ((closureN)self_73663)->elts[37];


make_cell(c_735067,((closureN)self_73663)->elts[3]);
return_closcall1(data,(closure)&c_731441,  &c_735067);; 
}

static void __lambda_457(void *data, int argc, object self_73664, object apply_91subst_73140) {
  
closureN_type c_731443;
c_731443.hdr.mark = gc_color_red;
 c_731443.hdr.grayed = 0;
c_731443.tag = closureN_tag;
 c_731443.fn = (function_type)__lambda_456;
c_731443.num_args = 1;
c_731443.num_elt = 38;
c_731443.elts = (object *)alloca(sizeof(object) * 38);
c_731443.elts[0] = ((closureN)self_73664)->elts[0];
c_731443.elts[1] = ((closureN)self_73664)->elts[1];
c_731443.elts[2] = ((closureN)self_73664)->elts[2];
c_731443.elts[3] = apply_91subst_73140;
c_731443.elts[4] = ((closureN)self_73664)->elts[4];
c_731443.elts[5] = ((closureN)self_73664)->elts[5];
c_731443.elts[6] = ((closureN)self_73664)->elts[6];
c_731443.elts[7] = ((closureN)self_73664)->elts[7];
c_731443.elts[8] = ((closureN)self_73664)->elts[8];
c_731443.elts[9] = ((closureN)self_73664)->elts[9];
c_731443.elts[10] = ((closureN)self_73664)->elts[10];
c_731443.elts[11] = ((closureN)self_73664)->elts[11];
c_731443.elts[12] = ((closureN)self_73664)->elts[12];
c_731443.elts[13] = ((closureN)self_73664)->elts[13];
c_731443.elts[14] = ((closureN)self_73664)->elts[14];
c_731443.elts[15] = ((closureN)self_73664)->elts[15];
c_731443.elts[16] = ((closureN)self_73664)->elts[16];
c_731443.elts[17] = ((closureN)self_73664)->elts[17];
c_731443.elts[18] = ((closureN)self_73664)->elts[18];
c_731443.elts[19] = ((closureN)self_73664)->elts[19];
c_731443.elts[20] = ((closureN)self_73664)->elts[20];
c_731443.elts[21] = ((closureN)self_73664)->elts[21];
c_731443.elts[22] = ((closureN)self_73664)->elts[22];
c_731443.elts[23] = ((closureN)self_73664)->elts[23];
c_731443.elts[24] = ((closureN)self_73664)->elts[24];
c_731443.elts[25] = ((closureN)self_73664)->elts[25];
c_731443.elts[26] = ((closureN)self_73664)->elts[26];
c_731443.elts[27] = ((closureN)self_73664)->elts[27];
c_731443.elts[28] = ((closureN)self_73664)->elts[28];
c_731443.elts[29] = ((closureN)self_73664)->elts[29];
c_731443.elts[30] = ((closureN)self_73664)->elts[30];
c_731443.elts[31] = ((closureN)self_73664)->elts[31];
c_731443.elts[32] = ((closureN)self_73664)->elts[32];
c_731443.elts[33] = ((closureN)self_73664)->elts[33];
c_731443.elts[34] = ((closureN)self_73664)->elts[34];
c_731443.elts[35] = ((closureN)self_73664)->elts[35];
c_731443.elts[36] = ((closureN)self_73664)->elts[36];
c_731443.elts[37] = ((closureN)self_73664)->elts[37];


make_cell(c_735063,((closureN)self_73664)->elts[3]);
return_closcall1(data,(closure)&c_731443,  &c_735063);; 
}

static void __lambda_456(void *data, int argc, object self_73665, object apply_91subst_91lst_73139) {
  
closureN_type c_731445;
c_731445.hdr.mark = gc_color_red;
 c_731445.hdr.grayed = 0;
c_731445.tag = closureN_tag;
 c_731445.fn = (function_type)__lambda_455;
c_731445.num_args = 1;
c_731445.num_elt = 38;
c_731445.elts = (object *)alloca(sizeof(object) * 38);
c_731445.elts[0] = ((closureN)self_73665)->elts[0];
c_731445.elts[1] = ((closureN)self_73665)->elts[1];
c_731445.elts[2] = ((closureN)self_73665)->elts[2];
c_731445.elts[3] = ((closureN)self_73665)->elts[3];
c_731445.elts[4] = apply_91subst_91lst_73139;
c_731445.elts[5] = ((closureN)self_73665)->elts[4];
c_731445.elts[6] = ((closureN)self_73665)->elts[5];
c_731445.elts[7] = ((closureN)self_73665)->elts[6];
c_731445.elts[8] = ((closureN)self_73665)->elts[7];
c_731445.elts[9] = ((closureN)self_73665)->elts[8];
c_731445.elts[10] = ((closureN)self_73665)->elts[9];
c_731445.elts[11] = ((closureN)self_73665)->elts[10];
c_731445.elts[12] = ((closureN)self_73665)->elts[11];
c_731445.elts[13] = ((closureN)self_73665)->elts[12];
c_731445.elts[14] = ((closureN)self_73665)->elts[13];
c_731445.elts[15] = ((closureN)self_73665)->elts[14];
c_731445.elts[16] = ((closureN)self_73665)->elts[15];
c_731445.elts[17] = ((closureN)self_73665)->elts[16];
c_731445.elts[18] = ((closureN)self_73665)->elts[17];
c_731445.elts[19] = ((closureN)self_73665)->elts[18];
c_731445.elts[20] = ((closureN)self_73665)->elts[19];
c_731445.elts[21] = ((closureN)self_73665)->elts[20];
c_731445.elts[22] = ((closureN)self_73665)->elts[21];
c_731445.elts[23] = ((closureN)self_73665)->elts[22];
c_731445.elts[24] = ((closureN)self_73665)->elts[23];
c_731445.elts[25] = ((closureN)self_73665)->elts[25];
c_731445.elts[26] = ((closureN)self_73665)->elts[26];
c_731445.elts[27] = ((closureN)self_73665)->elts[27];
c_731445.elts[28] = ((closureN)self_73665)->elts[28];
c_731445.elts[29] = ((closureN)self_73665)->elts[29];
c_731445.elts[30] = ((closureN)self_73665)->elts[30];
c_731445.elts[31] = ((closureN)self_73665)->elts[31];
c_731445.elts[32] = ((closureN)self_73665)->elts[32];
c_731445.elts[33] = ((closureN)self_73665)->elts[33];
c_731445.elts[34] = ((closureN)self_73665)->elts[34];
c_731445.elts[35] = ((closureN)self_73665)->elts[35];
c_731445.elts[36] = ((closureN)self_73665)->elts[36];
c_731445.elts[37] = ((closureN)self_73665)->elts[37];


make_cell(c_735059,((closureN)self_73665)->elts[24]);
return_closcall1(data,(closure)&c_731445,  &c_735059);; 
}

static void __lambda_455(void *data, int argc, object self_73666, object tautp_73138) {
  
closureN_type c_731447;
c_731447.hdr.mark = gc_color_red;
 c_731447.hdr.grayed = 0;
c_731447.tag = closureN_tag;
 c_731447.fn = (function_type)__lambda_454;
c_731447.num_args = 1;
c_731447.num_elt = 38;
c_731447.elts = (object *)alloca(sizeof(object) * 38);
c_731447.elts[0] = ((closureN)self_73666)->elts[0];
c_731447.elts[1] = ((closureN)self_73666)->elts[1];
c_731447.elts[2] = ((closureN)self_73666)->elts[2];
c_731447.elts[3] = ((closureN)self_73666)->elts[3];
c_731447.elts[4] = ((closureN)self_73666)->elts[4];
c_731447.elts[5] = ((closureN)self_73666)->elts[5];
c_731447.elts[6] = ((closureN)self_73666)->elts[6];
c_731447.elts[7] = ((closureN)self_73666)->elts[7];
c_731447.elts[8] = ((closureN)self_73666)->elts[8];
c_731447.elts[9] = ((closureN)self_73666)->elts[9];
c_731447.elts[10] = ((closureN)self_73666)->elts[10];
c_731447.elts[11] = ((closureN)self_73666)->elts[11];
c_731447.elts[12] = ((closureN)self_73666)->elts[12];
c_731447.elts[13] = ((closureN)self_73666)->elts[13];
c_731447.elts[14] = ((closureN)self_73666)->elts[14];
c_731447.elts[15] = ((closureN)self_73666)->elts[15];
c_731447.elts[16] = ((closureN)self_73666)->elts[16];
c_731447.elts[17] = ((closureN)self_73666)->elts[17];
c_731447.elts[18] = ((closureN)self_73666)->elts[18];
c_731447.elts[19] = ((closureN)self_73666)->elts[19];
c_731447.elts[20] = ((closureN)self_73666)->elts[20];
c_731447.elts[21] = ((closureN)self_73666)->elts[21];
c_731447.elts[22] = ((closureN)self_73666)->elts[22];
c_731447.elts[23] = ((closureN)self_73666)->elts[23];
c_731447.elts[24] = tautp_73138;
c_731447.elts[25] = ((closureN)self_73666)->elts[25];
c_731447.elts[26] = ((closureN)self_73666)->elts[26];
c_731447.elts[27] = ((closureN)self_73666)->elts[27];
c_731447.elts[28] = ((closureN)self_73666)->elts[28];
c_731447.elts[29] = ((closureN)self_73666)->elts[29];
c_731447.elts[30] = ((closureN)self_73666)->elts[30];
c_731447.elts[31] = ((closureN)self_73666)->elts[31];
c_731447.elts[32] = ((closureN)self_73666)->elts[32];
c_731447.elts[33] = ((closureN)self_73666)->elts[33];
c_731447.elts[34] = ((closureN)self_73666)->elts[34];
c_731447.elts[35] = ((closureN)self_73666)->elts[35];
c_731447.elts[36] = ((closureN)self_73666)->elts[36];
c_731447.elts[37] = ((closureN)self_73666)->elts[37];


make_cell(c_735055,((closureN)self_73666)->elts[24]);
return_closcall1(data,(closure)&c_731447,  &c_735055);; 
}

static void __lambda_454(void *data, int argc, object self_73667, object tautologyp_73137) {
  
closureN_type c_731449;
c_731449.hdr.mark = gc_color_red;
 c_731449.hdr.grayed = 0;
c_731449.tag = closureN_tag;
 c_731449.fn = (function_type)__lambda_453;
c_731449.num_args = 1;
c_731449.num_elt = 38;
c_731449.elts = (object *)alloca(sizeof(object) * 38);
c_731449.elts[0] = ((closureN)self_73667)->elts[0];
c_731449.elts[1] = ((closureN)self_73667)->elts[1];
c_731449.elts[2] = ((closureN)self_73667)->elts[2];
c_731449.elts[3] = ((closureN)self_73667)->elts[3];
c_731449.elts[4] = ((closureN)self_73667)->elts[4];
c_731449.elts[5] = ((closureN)self_73667)->elts[5];
c_731449.elts[6] = ((closureN)self_73667)->elts[6];
c_731449.elts[7] = ((closureN)self_73667)->elts[7];
c_731449.elts[8] = ((closureN)self_73667)->elts[8];
c_731449.elts[9] = ((closureN)self_73667)->elts[9];
c_731449.elts[10] = ((closureN)self_73667)->elts[11];
c_731449.elts[11] = ((closureN)self_73667)->elts[12];
c_731449.elts[12] = ((closureN)self_73667)->elts[13];
c_731449.elts[13] = ((closureN)self_73667)->elts[14];
c_731449.elts[14] = ((closureN)self_73667)->elts[15];
c_731449.elts[15] = ((closureN)self_73667)->elts[16];
c_731449.elts[16] = ((closureN)self_73667)->elts[17];
c_731449.elts[17] = ((closureN)self_73667)->elts[18];
c_731449.elts[18] = ((closureN)self_73667)->elts[19];
c_731449.elts[19] = ((closureN)self_73667)->elts[20];
c_731449.elts[20] = ((closureN)self_73667)->elts[21];
c_731449.elts[21] = ((closureN)self_73667)->elts[22];
c_731449.elts[22] = ((closureN)self_73667)->elts[23];
c_731449.elts[23] = tautologyp_73137;
c_731449.elts[24] = ((closureN)self_73667)->elts[24];
c_731449.elts[25] = ((closureN)self_73667)->elts[25];
c_731449.elts[26] = ((closureN)self_73667)->elts[26];
c_731449.elts[27] = ((closureN)self_73667)->elts[27];
c_731449.elts[28] = ((closureN)self_73667)->elts[28];
c_731449.elts[29] = ((closureN)self_73667)->elts[29];
c_731449.elts[30] = ((closureN)self_73667)->elts[30];
c_731449.elts[31] = ((closureN)self_73667)->elts[31];
c_731449.elts[32] = ((closureN)self_73667)->elts[32];
c_731449.elts[33] = ((closureN)self_73667)->elts[33];
c_731449.elts[34] = ((closureN)self_73667)->elts[34];
c_731449.elts[35] = ((closureN)self_73667)->elts[35];
c_731449.elts[36] = ((closureN)self_73667)->elts[36];
c_731449.elts[37] = ((closureN)self_73667)->elts[37];


make_cell(c_735051,((closureN)self_73667)->elts[10]);
return_closcall1(data,(closure)&c_731449,  &c_735051);; 
}

static void __lambda_453(void *data, int argc, object self_73668, object if_91constructor_73136) {
  
closureN_type c_731451;
c_731451.hdr.mark = gc_color_red;
 c_731451.hdr.grayed = 0;
c_731451.tag = closureN_tag;
 c_731451.fn = (function_type)__lambda_452;
c_731451.num_args = 1;
c_731451.num_elt = 38;
c_731451.elts = (object *)alloca(sizeof(object) * 38);
c_731451.elts[0] = ((closureN)self_73668)->elts[0];
c_731451.elts[1] = ((closureN)self_73668)->elts[1];
c_731451.elts[2] = ((closureN)self_73668)->elts[2];
c_731451.elts[3] = ((closureN)self_73668)->elts[3];
c_731451.elts[4] = ((closureN)self_73668)->elts[4];
c_731451.elts[5] = ((closureN)self_73668)->elts[5];
c_731451.elts[6] = ((closureN)self_73668)->elts[6];
c_731451.elts[7] = ((closureN)self_73668)->elts[7];
c_731451.elts[8] = ((closureN)self_73668)->elts[8];
c_731451.elts[9] = ((closureN)self_73668)->elts[9];
c_731451.elts[10] = if_91constructor_73136;
c_731451.elts[11] = ((closureN)self_73668)->elts[10];
c_731451.elts[12] = ((closureN)self_73668)->elts[11];
c_731451.elts[13] = ((closureN)self_73668)->elts[12];
c_731451.elts[14] = ((closureN)self_73668)->elts[13];
c_731451.elts[15] = ((closureN)self_73668)->elts[14];
c_731451.elts[16] = ((closureN)self_73668)->elts[15];
c_731451.elts[17] = ((closureN)self_73668)->elts[16];
c_731451.elts[18] = ((closureN)self_73668)->elts[17];
c_731451.elts[19] = ((closureN)self_73668)->elts[19];
c_731451.elts[20] = ((closureN)self_73668)->elts[20];
c_731451.elts[21] = ((closureN)self_73668)->elts[21];
c_731451.elts[22] = ((closureN)self_73668)->elts[22];
c_731451.elts[23] = ((closureN)self_73668)->elts[23];
c_731451.elts[24] = ((closureN)self_73668)->elts[24];
c_731451.elts[25] = ((closureN)self_73668)->elts[25];
c_731451.elts[26] = ((closureN)self_73668)->elts[26];
c_731451.elts[27] = ((closureN)self_73668)->elts[27];
c_731451.elts[28] = ((closureN)self_73668)->elts[28];
c_731451.elts[29] = ((closureN)self_73668)->elts[29];
c_731451.elts[30] = ((closureN)self_73668)->elts[30];
c_731451.elts[31] = ((closureN)self_73668)->elts[31];
c_731451.elts[32] = ((closureN)self_73668)->elts[32];
c_731451.elts[33] = ((closureN)self_73668)->elts[33];
c_731451.elts[34] = ((closureN)self_73668)->elts[34];
c_731451.elts[35] = ((closureN)self_73668)->elts[35];
c_731451.elts[36] = ((closureN)self_73668)->elts[36];
c_731451.elts[37] = ((closureN)self_73668)->elts[37];


make_cell(c_735047,((closureN)self_73668)->elts[18]);
return_closcall1(data,(closure)&c_731451,  &c_735047);; 
}

static void __lambda_452(void *data, int argc, object self_73669, object rewrite_91count_73135) {
  
closureN_type c_731453;
c_731453.hdr.mark = gc_color_red;
 c_731453.hdr.grayed = 0;
c_731453.tag = closureN_tag;
 c_731453.fn = (function_type)__lambda_451;
c_731453.num_args = 1;
c_731453.num_elt = 38;
c_731453.elts = (object *)alloca(sizeof(object) * 38);
c_731453.elts[0] = ((closureN)self_73669)->elts[0];
c_731453.elts[1] = ((closureN)self_73669)->elts[1];
c_731453.elts[2] = ((closureN)self_73669)->elts[2];
c_731453.elts[3] = ((closureN)self_73669)->elts[3];
c_731453.elts[4] = ((closureN)self_73669)->elts[4];
c_731453.elts[5] = ((closureN)self_73669)->elts[5];
c_731453.elts[6] = ((closureN)self_73669)->elts[6];
c_731453.elts[7] = ((closureN)self_73669)->elts[7];
c_731453.elts[8] = ((closureN)self_73669)->elts[8];
c_731453.elts[9] = ((closureN)self_73669)->elts[9];
c_731453.elts[10] = ((closureN)self_73669)->elts[10];
c_731453.elts[11] = ((closureN)self_73669)->elts[11];
c_731453.elts[12] = ((closureN)self_73669)->elts[12];
c_731453.elts[13] = ((closureN)self_73669)->elts[13];
c_731453.elts[14] = ((closureN)self_73669)->elts[14];
c_731453.elts[15] = ((closureN)self_73669)->elts[15];
c_731453.elts[16] = ((closureN)self_73669)->elts[16];
c_731453.elts[17] = ((closureN)self_73669)->elts[18];
c_731453.elts[18] = rewrite_91count_73135;
c_731453.elts[19] = ((closureN)self_73669)->elts[19];
c_731453.elts[20] = ((closureN)self_73669)->elts[20];
c_731453.elts[21] = ((closureN)self_73669)->elts[21];
c_731453.elts[22] = ((closureN)self_73669)->elts[22];
c_731453.elts[23] = ((closureN)self_73669)->elts[23];
c_731453.elts[24] = ((closureN)self_73669)->elts[24];
c_731453.elts[25] = ((closureN)self_73669)->elts[25];
c_731453.elts[26] = ((closureN)self_73669)->elts[26];
c_731453.elts[27] = ((closureN)self_73669)->elts[27];
c_731453.elts[28] = ((closureN)self_73669)->elts[28];
c_731453.elts[29] = ((closureN)self_73669)->elts[29];
c_731453.elts[30] = ((closureN)self_73669)->elts[30];
c_731453.elts[31] = ((closureN)self_73669)->elts[31];
c_731453.elts[32] = ((closureN)self_73669)->elts[32];
c_731453.elts[33] = ((closureN)self_73669)->elts[33];
c_731453.elts[34] = ((closureN)self_73669)->elts[34];
c_731453.elts[35] = ((closureN)self_73669)->elts[35];
c_731453.elts[36] = ((closureN)self_73669)->elts[36];
c_731453.elts[37] = ((closureN)self_73669)->elts[37];


make_cell(c_735043,((closureN)self_73669)->elts[17]);
return_closcall1(data,(closure)&c_731453,  &c_735043);; 
}

static void __lambda_451(void *data, int argc, object self_73670, object rewrite_73134) {
  
closureN_type c_731455;
c_731455.hdr.mark = gc_color_red;
 c_731455.hdr.grayed = 0;
c_731455.tag = closureN_tag;
 c_731455.fn = (function_type)__lambda_450;
c_731455.num_args = 1;
c_731455.num_elt = 38;
c_731455.elts = (object *)alloca(sizeof(object) * 38);
c_731455.elts[0] = ((closureN)self_73670)->elts[0];
c_731455.elts[1] = ((closureN)self_73670)->elts[1];
c_731455.elts[2] = ((closureN)self_73670)->elts[2];
c_731455.elts[3] = ((closureN)self_73670)->elts[3];
c_731455.elts[4] = ((closureN)self_73670)->elts[4];
c_731455.elts[5] = ((closureN)self_73670)->elts[5];
c_731455.elts[6] = ((closureN)self_73670)->elts[6];
c_731455.elts[7] = ((closureN)self_73670)->elts[7];
c_731455.elts[8] = ((closureN)self_73670)->elts[8];
c_731455.elts[9] = ((closureN)self_73670)->elts[9];
c_731455.elts[10] = ((closureN)self_73670)->elts[10];
c_731455.elts[11] = ((closureN)self_73670)->elts[11];
c_731455.elts[12] = ((closureN)self_73670)->elts[12];
c_731455.elts[13] = ((closureN)self_73670)->elts[13];
c_731455.elts[14] = ((closureN)self_73670)->elts[14];
c_731455.elts[15] = ((closureN)self_73670)->elts[15];
c_731455.elts[16] = ((closureN)self_73670)->elts[16];
c_731455.elts[17] = rewrite_73134;
c_731455.elts[18] = ((closureN)self_73670)->elts[18];
c_731455.elts[19] = ((closureN)self_73670)->elts[19];
c_731455.elts[20] = ((closureN)self_73670)->elts[20];
c_731455.elts[21] = ((closureN)self_73670)->elts[21];
c_731455.elts[22] = ((closureN)self_73670)->elts[22];
c_731455.elts[23] = ((closureN)self_73670)->elts[23];
c_731455.elts[24] = ((closureN)self_73670)->elts[24];
c_731455.elts[25] = ((closureN)self_73670)->elts[25];
c_731455.elts[26] = ((closureN)self_73670)->elts[26];
c_731455.elts[27] = ((closureN)self_73670)->elts[27];
c_731455.elts[28] = ((closureN)self_73670)->elts[28];
c_731455.elts[29] = ((closureN)self_73670)->elts[29];
c_731455.elts[30] = ((closureN)self_73670)->elts[30];
c_731455.elts[31] = ((closureN)self_73670)->elts[31];
c_731455.elts[32] = ((closureN)self_73670)->elts[32];
c_731455.elts[33] = ((closureN)self_73670)->elts[33];
c_731455.elts[34] = ((closureN)self_73670)->elts[34];
c_731455.elts[35] = ((closureN)self_73670)->elts[35];
c_731455.elts[36] = ((closureN)self_73670)->elts[36];
c_731455.elts[37] = ((closureN)self_73670)->elts[37];


make_cell(c_735039,((closureN)self_73670)->elts[17]);
return_closcall1(data,(closure)&c_731455,  &c_735039);; 
}

static void __lambda_450(void *data, int argc, object self_73671, object rewrite_91args_73133) {
  
closureN_type c_731457;
c_731457.hdr.mark = gc_color_red;
 c_731457.hdr.grayed = 0;
c_731457.tag = closureN_tag;
 c_731457.fn = (function_type)__lambda_449;
c_731457.num_args = 1;
c_731457.num_elt = 38;
c_731457.elts = (object *)alloca(sizeof(object) * 38);
c_731457.elts[0] = ((closureN)self_73671)->elts[0];
c_731457.elts[1] = ((closureN)self_73671)->elts[1];
c_731457.elts[2] = ((closureN)self_73671)->elts[2];
c_731457.elts[3] = ((closureN)self_73671)->elts[3];
c_731457.elts[4] = ((closureN)self_73671)->elts[4];
c_731457.elts[5] = ((closureN)self_73671)->elts[5];
c_731457.elts[6] = ((closureN)self_73671)->elts[6];
c_731457.elts[7] = ((closureN)self_73671)->elts[7];
c_731457.elts[8] = ((closureN)self_73671)->elts[8];
c_731457.elts[9] = ((closureN)self_73671)->elts[9];
c_731457.elts[10] = ((closureN)self_73671)->elts[10];
c_731457.elts[11] = ((closureN)self_73671)->elts[11];
c_731457.elts[12] = ((closureN)self_73671)->elts[12];
c_731457.elts[13] = ((closureN)self_73671)->elts[13];
c_731457.elts[14] = ((closureN)self_73671)->elts[14];
c_731457.elts[15] = ((closureN)self_73671)->elts[15];
c_731457.elts[16] = ((closureN)self_73671)->elts[16];
c_731457.elts[17] = ((closureN)self_73671)->elts[17];
c_731457.elts[18] = rewrite_91args_73133;
c_731457.elts[19] = ((closureN)self_73671)->elts[18];
c_731457.elts[20] = ((closureN)self_73671)->elts[20];
c_731457.elts[21] = ((closureN)self_73671)->elts[21];
c_731457.elts[22] = ((closureN)self_73671)->elts[22];
c_731457.elts[23] = ((closureN)self_73671)->elts[23];
c_731457.elts[24] = ((closureN)self_73671)->elts[24];
c_731457.elts[25] = ((closureN)self_73671)->elts[25];
c_731457.elts[26] = ((closureN)self_73671)->elts[26];
c_731457.elts[27] = ((closureN)self_73671)->elts[27];
c_731457.elts[28] = ((closureN)self_73671)->elts[28];
c_731457.elts[29] = ((closureN)self_73671)->elts[29];
c_731457.elts[30] = ((closureN)self_73671)->elts[30];
c_731457.elts[31] = ((closureN)self_73671)->elts[31];
c_731457.elts[32] = ((closureN)self_73671)->elts[32];
c_731457.elts[33] = ((closureN)self_73671)->elts[33];
c_731457.elts[34] = ((closureN)self_73671)->elts[34];
c_731457.elts[35] = ((closureN)self_73671)->elts[35];
c_731457.elts[36] = ((closureN)self_73671)->elts[36];
c_731457.elts[37] = ((closureN)self_73671)->elts[37];


make_cell(c_735035,((closureN)self_73671)->elts[19]);
return_closcall1(data,(closure)&c_731457,  &c_735035);; 
}

static void __lambda_449(void *data, int argc, object self_73672, object rewrite_91with_91lemmas_73132) {
  
closureN_type c_731459;
c_731459.hdr.mark = gc_color_red;
 c_731459.hdr.grayed = 0;
c_731459.tag = closureN_tag;
 c_731459.fn = (function_type)__lambda_448;
c_731459.num_args = 1;
c_731459.num_elt = 38;
c_731459.elts = (object *)alloca(sizeof(object) * 38);
c_731459.elts[0] = ((closureN)self_73672)->elts[0];
c_731459.elts[1] = ((closureN)self_73672)->elts[1];
c_731459.elts[2] = ((closureN)self_73672)->elts[2];
c_731459.elts[3] = ((closureN)self_73672)->elts[3];
c_731459.elts[4] = ((closureN)self_73672)->elts[4];
c_731459.elts[5] = ((closureN)self_73672)->elts[5];
c_731459.elts[6] = ((closureN)self_73672)->elts[6];
c_731459.elts[7] = ((closureN)self_73672)->elts[7];
c_731459.elts[8] = ((closureN)self_73672)->elts[8];
c_731459.elts[9] = ((closureN)self_73672)->elts[9];
c_731459.elts[10] = ((closureN)self_73672)->elts[10];
c_731459.elts[11] = ((closureN)self_73672)->elts[11];
c_731459.elts[12] = ((closureN)self_73672)->elts[12];
c_731459.elts[13] = ((closureN)self_73672)->elts[13];
c_731459.elts[14] = ((closureN)self_73672)->elts[14];
c_731459.elts[15] = ((closureN)self_73672)->elts[15];
c_731459.elts[16] = ((closureN)self_73672)->elts[16];
c_731459.elts[17] = ((closureN)self_73672)->elts[17];
c_731459.elts[18] = ((closureN)self_73672)->elts[18];
c_731459.elts[19] = ((closureN)self_73672)->elts[19];
c_731459.elts[20] = rewrite_91with_91lemmas_73132;
c_731459.elts[21] = ((closureN)self_73672)->elts[20];
c_731459.elts[22] = ((closureN)self_73672)->elts[21];
c_731459.elts[23] = ((closureN)self_73672)->elts[22];
c_731459.elts[24] = ((closureN)self_73672)->elts[23];
c_731459.elts[25] = ((closureN)self_73672)->elts[24];
c_731459.elts[26] = ((closureN)self_73672)->elts[25];
c_731459.elts[27] = ((closureN)self_73672)->elts[26];
c_731459.elts[28] = ((closureN)self_73672)->elts[27];
c_731459.elts[29] = ((closureN)self_73672)->elts[28];
c_731459.elts[30] = ((closureN)self_73672)->elts[29];
c_731459.elts[31] = ((closureN)self_73672)->elts[30];
c_731459.elts[32] = ((closureN)self_73672)->elts[31];
c_731459.elts[33] = ((closureN)self_73672)->elts[32];
c_731459.elts[34] = ((closureN)self_73672)->elts[33];
c_731459.elts[35] = ((closureN)self_73672)->elts[34];
c_731459.elts[36] = ((closureN)self_73672)->elts[35];
c_731459.elts[37] = ((closureN)self_73672)->elts[37];


make_cell(c_735031,((closureN)self_73672)->elts[36]);
return_closcall1(data,(closure)&c_731459,  &c_735031);; 
}

static void __lambda_448(void *data, int argc, object self_73673, object unify_91subst_73131) {
  
closureN_type c_731461;
c_731461.hdr.mark = gc_color_red;
 c_731461.hdr.grayed = 0;
c_731461.tag = closureN_tag;
 c_731461.fn = (function_type)__lambda_447;
c_731461.num_args = 1;
c_731461.num_elt = 38;
c_731461.elts = (object *)alloca(sizeof(object) * 38);
c_731461.elts[0] = ((closureN)self_73673)->elts[0];
c_731461.elts[1] = ((closureN)self_73673)->elts[1];
c_731461.elts[2] = ((closureN)self_73673)->elts[2];
c_731461.elts[3] = ((closureN)self_73673)->elts[3];
c_731461.elts[4] = ((closureN)self_73673)->elts[4];
c_731461.elts[5] = ((closureN)self_73673)->elts[5];
c_731461.elts[6] = ((closureN)self_73673)->elts[6];
c_731461.elts[7] = ((closureN)self_73673)->elts[7];
c_731461.elts[8] = ((closureN)self_73673)->elts[8];
c_731461.elts[9] = ((closureN)self_73673)->elts[9];
c_731461.elts[10] = ((closureN)self_73673)->elts[10];
c_731461.elts[11] = ((closureN)self_73673)->elts[11];
c_731461.elts[12] = ((closureN)self_73673)->elts[13];
c_731461.elts[13] = ((closureN)self_73673)->elts[14];
c_731461.elts[14] = ((closureN)self_73673)->elts[15];
c_731461.elts[15] = ((closureN)self_73673)->elts[16];
c_731461.elts[16] = ((closureN)self_73673)->elts[17];
c_731461.elts[17] = ((closureN)self_73673)->elts[18];
c_731461.elts[18] = ((closureN)self_73673)->elts[19];
c_731461.elts[19] = ((closureN)self_73673)->elts[20];
c_731461.elts[20] = ((closureN)self_73673)->elts[21];
c_731461.elts[21] = ((closureN)self_73673)->elts[22];
c_731461.elts[22] = ((closureN)self_73673)->elts[23];
c_731461.elts[23] = ((closureN)self_73673)->elts[24];
c_731461.elts[24] = ((closureN)self_73673)->elts[25];
c_731461.elts[25] = ((closureN)self_73673)->elts[26];
c_731461.elts[26] = ((closureN)self_73673)->elts[27];
c_731461.elts[27] = ((closureN)self_73673)->elts[28];
c_731461.elts[28] = ((closureN)self_73673)->elts[29];
c_731461.elts[29] = ((closureN)self_73673)->elts[30];
c_731461.elts[30] = ((closureN)self_73673)->elts[31];
c_731461.elts[31] = ((closureN)self_73673)->elts[32];
c_731461.elts[32] = ((closureN)self_73673)->elts[33];
c_731461.elts[33] = ((closureN)self_73673)->elts[34];
c_731461.elts[34] = ((closureN)self_73673)->elts[35];
c_731461.elts[35] = ((closureN)self_73673)->elts[36];
c_731461.elts[36] = unify_91subst_73131;
c_731461.elts[37] = ((closureN)self_73673)->elts[37];


make_cell(c_735027,((closureN)self_73673)->elts[12]);
return_closcall1(data,(closure)&c_731461,  &c_735027);; 
}

static void __lambda_447(void *data, int argc, object self_73674, object one_91way_91unify_73130) {
  
closureN_type c_731463;
c_731463.hdr.mark = gc_color_red;
 c_731463.hdr.grayed = 0;
c_731463.tag = closureN_tag;
 c_731463.fn = (function_type)__lambda_446;
c_731463.num_args = 1;
c_731463.num_elt = 38;
c_731463.elts = (object *)alloca(sizeof(object) * 38);
c_731463.elts[0] = ((closureN)self_73674)->elts[0];
c_731463.elts[1] = ((closureN)self_73674)->elts[1];
c_731463.elts[2] = ((closureN)self_73674)->elts[2];
c_731463.elts[3] = ((closureN)self_73674)->elts[3];
c_731463.elts[4] = ((closureN)self_73674)->elts[4];
c_731463.elts[5] = ((closureN)self_73674)->elts[5];
c_731463.elts[6] = ((closureN)self_73674)->elts[6];
c_731463.elts[7] = ((closureN)self_73674)->elts[7];
c_731463.elts[8] = ((closureN)self_73674)->elts[8];
c_731463.elts[9] = ((closureN)self_73674)->elts[9];
c_731463.elts[10] = ((closureN)self_73674)->elts[10];
c_731463.elts[11] = ((closureN)self_73674)->elts[11];
c_731463.elts[12] = one_91way_91unify_73130;
c_731463.elts[13] = ((closureN)self_73674)->elts[13];
c_731463.elts[14] = ((closureN)self_73674)->elts[14];
c_731463.elts[15] = ((closureN)self_73674)->elts[15];
c_731463.elts[16] = ((closureN)self_73674)->elts[16];
c_731463.elts[17] = ((closureN)self_73674)->elts[17];
c_731463.elts[18] = ((closureN)self_73674)->elts[18];
c_731463.elts[19] = ((closureN)self_73674)->elts[19];
c_731463.elts[20] = ((closureN)self_73674)->elts[20];
c_731463.elts[21] = ((closureN)self_73674)->elts[21];
c_731463.elts[22] = ((closureN)self_73674)->elts[22];
c_731463.elts[23] = ((closureN)self_73674)->elts[23];
c_731463.elts[24] = ((closureN)self_73674)->elts[24];
c_731463.elts[25] = ((closureN)self_73674)->elts[25];
c_731463.elts[26] = ((closureN)self_73674)->elts[26];
c_731463.elts[27] = ((closureN)self_73674)->elts[27];
c_731463.elts[28] = ((closureN)self_73674)->elts[28];
c_731463.elts[29] = ((closureN)self_73674)->elts[29];
c_731463.elts[30] = ((closureN)self_73674)->elts[30];
c_731463.elts[31] = ((closureN)self_73674)->elts[31];
c_731463.elts[32] = ((closureN)self_73674)->elts[32];
c_731463.elts[33] = ((closureN)self_73674)->elts[33];
c_731463.elts[34] = ((closureN)self_73674)->elts[34];
c_731463.elts[35] = ((closureN)self_73674)->elts[35];
c_731463.elts[36] = ((closureN)self_73674)->elts[36];
c_731463.elts[37] = ((closureN)self_73674)->elts[37];


make_cell(c_735023,((closureN)self_73674)->elts[12]);
return_closcall1(data,(closure)&c_731463,  &c_735023);; 
}

static void __lambda_446(void *data, int argc, object self_73675, object one_91way_91unify1_73129) {
  
closureN_type c_731465;
c_731465.hdr.mark = gc_color_red;
 c_731465.hdr.grayed = 0;
c_731465.tag = closureN_tag;
 c_731465.fn = (function_type)__lambda_445;
c_731465.num_args = 1;
c_731465.num_elt = 38;
c_731465.elts = (object *)alloca(sizeof(object) * 38);
c_731465.elts[0] = ((closureN)self_73675)->elts[0];
c_731465.elts[1] = ((closureN)self_73675)->elts[1];
c_731465.elts[2] = ((closureN)self_73675)->elts[2];
c_731465.elts[3] = ((closureN)self_73675)->elts[3];
c_731465.elts[4] = ((closureN)self_73675)->elts[4];
c_731465.elts[5] = ((closureN)self_73675)->elts[5];
c_731465.elts[6] = ((closureN)self_73675)->elts[6];
c_731465.elts[7] = ((closureN)self_73675)->elts[7];
c_731465.elts[8] = ((closureN)self_73675)->elts[8];
c_731465.elts[9] = ((closureN)self_73675)->elts[9];
c_731465.elts[10] = ((closureN)self_73675)->elts[10];
c_731465.elts[11] = ((closureN)self_73675)->elts[11];
c_731465.elts[12] = ((closureN)self_73675)->elts[12];
c_731465.elts[13] = one_91way_91unify1_73129;
c_731465.elts[14] = ((closureN)self_73675)->elts[14];
c_731465.elts[15] = ((closureN)self_73675)->elts[15];
c_731465.elts[16] = ((closureN)self_73675)->elts[16];
c_731465.elts[17] = ((closureN)self_73675)->elts[17];
c_731465.elts[18] = ((closureN)self_73675)->elts[18];
c_731465.elts[19] = ((closureN)self_73675)->elts[19];
c_731465.elts[20] = ((closureN)self_73675)->elts[20];
c_731465.elts[21] = ((closureN)self_73675)->elts[21];
c_731465.elts[22] = ((closureN)self_73675)->elts[22];
c_731465.elts[23] = ((closureN)self_73675)->elts[23];
c_731465.elts[24] = ((closureN)self_73675)->elts[24];
c_731465.elts[25] = ((closureN)self_73675)->elts[25];
c_731465.elts[26] = ((closureN)self_73675)->elts[26];
c_731465.elts[27] = ((closureN)self_73675)->elts[27];
c_731465.elts[28] = ((closureN)self_73675)->elts[28];
c_731465.elts[29] = ((closureN)self_73675)->elts[29];
c_731465.elts[30] = ((closureN)self_73675)->elts[30];
c_731465.elts[31] = ((closureN)self_73675)->elts[31];
c_731465.elts[32] = ((closureN)self_73675)->elts[32];
c_731465.elts[33] = ((closureN)self_73675)->elts[33];
c_731465.elts[34] = ((closureN)self_73675)->elts[34];
c_731465.elts[35] = ((closureN)self_73675)->elts[35];
c_731465.elts[36] = ((closureN)self_73675)->elts[36];
c_731465.elts[37] = ((closureN)self_73675)->elts[37];


make_cell(c_735019,((closureN)self_73675)->elts[13]);
return_closcall1(data,(closure)&c_731465,  &c_735019);; 
}

static void __lambda_445(void *data, int argc, object self_73676, object one_91way_91unify1_91lst_73128) {
  
closureN_type c_731467;
c_731467.hdr.mark = gc_color_red;
 c_731467.hdr.grayed = 0;
c_731467.tag = closureN_tag;
 c_731467.fn = (function_type)__lambda_444;
c_731467.num_args = 1;
c_731467.num_elt = 38;
c_731467.elts = (object *)alloca(sizeof(object) * 38);
c_731467.elts[0] = ((closureN)self_73676)->elts[0];
c_731467.elts[1] = ((closureN)self_73676)->elts[1];
c_731467.elts[2] = ((closureN)self_73676)->elts[2];
c_731467.elts[3] = ((closureN)self_73676)->elts[3];
c_731467.elts[4] = ((closureN)self_73676)->elts[4];
c_731467.elts[5] = ((closureN)self_73676)->elts[5];
c_731467.elts[6] = ((closureN)self_73676)->elts[7];
c_731467.elts[7] = ((closureN)self_73676)->elts[8];
c_731467.elts[8] = ((closureN)self_73676)->elts[9];
c_731467.elts[9] = ((closureN)self_73676)->elts[10];
c_731467.elts[10] = ((closureN)self_73676)->elts[11];
c_731467.elts[11] = ((closureN)self_73676)->elts[12];
c_731467.elts[12] = ((closureN)self_73676)->elts[13];
c_731467.elts[13] = one_91way_91unify1_91lst_73128;
c_731467.elts[14] = ((closureN)self_73676)->elts[14];
c_731467.elts[15] = ((closureN)self_73676)->elts[15];
c_731467.elts[16] = ((closureN)self_73676)->elts[16];
c_731467.elts[17] = ((closureN)self_73676)->elts[17];
c_731467.elts[18] = ((closureN)self_73676)->elts[18];
c_731467.elts[19] = ((closureN)self_73676)->elts[19];
c_731467.elts[20] = ((closureN)self_73676)->elts[20];
c_731467.elts[21] = ((closureN)self_73676)->elts[21];
c_731467.elts[22] = ((closureN)self_73676)->elts[22];
c_731467.elts[23] = ((closureN)self_73676)->elts[23];
c_731467.elts[24] = ((closureN)self_73676)->elts[24];
c_731467.elts[25] = ((closureN)self_73676)->elts[25];
c_731467.elts[26] = ((closureN)self_73676)->elts[26];
c_731467.elts[27] = ((closureN)self_73676)->elts[27];
c_731467.elts[28] = ((closureN)self_73676)->elts[28];
c_731467.elts[29] = ((closureN)self_73676)->elts[29];
c_731467.elts[30] = ((closureN)self_73676)->elts[30];
c_731467.elts[31] = ((closureN)self_73676)->elts[31];
c_731467.elts[32] = ((closureN)self_73676)->elts[32];
c_731467.elts[33] = ((closureN)self_73676)->elts[33];
c_731467.elts[34] = ((closureN)self_73676)->elts[34];
c_731467.elts[35] = ((closureN)self_73676)->elts[35];
c_731467.elts[36] = ((closureN)self_73676)->elts[36];
c_731467.elts[37] = ((closureN)self_73676)->elts[37];


make_cell(c_735015,((closureN)self_73676)->elts[6]);
return_closcall1(data,(closure)&c_731467,  &c_735015);; 
}

static void __lambda_444(void *data, int argc, object self_73677, object falsep_73127) {
  
closureN_type c_731469;
c_731469.hdr.mark = gc_color_red;
 c_731469.hdr.grayed = 0;
c_731469.tag = closureN_tag;
 c_731469.fn = (function_type)__lambda_443;
c_731469.num_args = 1;
c_731469.num_elt = 38;
c_731469.elts = (object *)alloca(sizeof(object) * 38);
c_731469.elts[0] = ((closureN)self_73677)->elts[0];
c_731469.elts[1] = ((closureN)self_73677)->elts[1];
c_731469.elts[2] = ((closureN)self_73677)->elts[2];
c_731469.elts[3] = ((closureN)self_73677)->elts[3];
c_731469.elts[4] = ((closureN)self_73677)->elts[4];
c_731469.elts[5] = ((closureN)self_73677)->elts[5];
c_731469.elts[6] = falsep_73127;
c_731469.elts[7] = ((closureN)self_73677)->elts[6];
c_731469.elts[8] = ((closureN)self_73677)->elts[7];
c_731469.elts[9] = ((closureN)self_73677)->elts[8];
c_731469.elts[10] = ((closureN)self_73677)->elts[9];
c_731469.elts[11] = ((closureN)self_73677)->elts[10];
c_731469.elts[12] = ((closureN)self_73677)->elts[11];
c_731469.elts[13] = ((closureN)self_73677)->elts[12];
c_731469.elts[14] = ((closureN)self_73677)->elts[13];
c_731469.elts[15] = ((closureN)self_73677)->elts[14];
c_731469.elts[16] = ((closureN)self_73677)->elts[15];
c_731469.elts[17] = ((closureN)self_73677)->elts[16];
c_731469.elts[18] = ((closureN)self_73677)->elts[17];
c_731469.elts[19] = ((closureN)self_73677)->elts[18];
c_731469.elts[20] = ((closureN)self_73677)->elts[19];
c_731469.elts[21] = ((closureN)self_73677)->elts[20];
c_731469.elts[22] = ((closureN)self_73677)->elts[21];
c_731469.elts[23] = ((closureN)self_73677)->elts[22];
c_731469.elts[24] = ((closureN)self_73677)->elts[23];
c_731469.elts[25] = ((closureN)self_73677)->elts[24];
c_731469.elts[26] = ((closureN)self_73677)->elts[25];
c_731469.elts[27] = ((closureN)self_73677)->elts[26];
c_731469.elts[28] = ((closureN)self_73677)->elts[27];
c_731469.elts[29] = ((closureN)self_73677)->elts[28];
c_731469.elts[30] = ((closureN)self_73677)->elts[29];
c_731469.elts[31] = ((closureN)self_73677)->elts[30];
c_731469.elts[32] = ((closureN)self_73677)->elts[31];
c_731469.elts[33] = ((closureN)self_73677)->elts[32];
c_731469.elts[34] = ((closureN)self_73677)->elts[33];
c_731469.elts[35] = ((closureN)self_73677)->elts[34];
c_731469.elts[36] = ((closureN)self_73677)->elts[36];
c_731469.elts[37] = ((closureN)self_73677)->elts[37];


make_cell(c_735011,((closureN)self_73677)->elts[35]);
return_closcall1(data,(closure)&c_731469,  &c_735011);; 
}

static void __lambda_443(void *data, int argc, object self_73678, object truep_73126) {
  
closureN_type c_731471;
c_731471.hdr.mark = gc_color_red;
 c_731471.hdr.grayed = 0;
c_731471.tag = closureN_tag;
 c_731471.fn = (function_type)__lambda_442;
c_731471.num_args = 1;
c_731471.num_elt = 38;
c_731471.elts = (object *)alloca(sizeof(object) * 38);
c_731471.elts[0] = ((closureN)self_73678)->elts[0];
c_731471.elts[1] = ((closureN)self_73678)->elts[1];
c_731471.elts[2] = ((closureN)self_73678)->elts[2];
c_731471.elts[3] = ((closureN)self_73678)->elts[3];
c_731471.elts[4] = ((closureN)self_73678)->elts[4];
c_731471.elts[5] = ((closureN)self_73678)->elts[6];
c_731471.elts[6] = ((closureN)self_73678)->elts[7];
c_731471.elts[7] = ((closureN)self_73678)->elts[8];
c_731471.elts[8] = ((closureN)self_73678)->elts[9];
c_731471.elts[9] = ((closureN)self_73678)->elts[10];
c_731471.elts[10] = ((closureN)self_73678)->elts[11];
c_731471.elts[11] = ((closureN)self_73678)->elts[12];
c_731471.elts[12] = ((closureN)self_73678)->elts[13];
c_731471.elts[13] = ((closureN)self_73678)->elts[14];
c_731471.elts[14] = ((closureN)self_73678)->elts[15];
c_731471.elts[15] = ((closureN)self_73678)->elts[16];
c_731471.elts[16] = ((closureN)self_73678)->elts[17];
c_731471.elts[17] = ((closureN)self_73678)->elts[18];
c_731471.elts[18] = ((closureN)self_73678)->elts[19];
c_731471.elts[19] = ((closureN)self_73678)->elts[20];
c_731471.elts[20] = ((closureN)self_73678)->elts[21];
c_731471.elts[21] = ((closureN)self_73678)->elts[22];
c_731471.elts[22] = ((closureN)self_73678)->elts[23];
c_731471.elts[23] = ((closureN)self_73678)->elts[24];
c_731471.elts[24] = ((closureN)self_73678)->elts[25];
c_731471.elts[25] = ((closureN)self_73678)->elts[26];
c_731471.elts[26] = ((closureN)self_73678)->elts[27];
c_731471.elts[27] = ((closureN)self_73678)->elts[28];
c_731471.elts[28] = ((closureN)self_73678)->elts[29];
c_731471.elts[29] = ((closureN)self_73678)->elts[30];
c_731471.elts[30] = ((closureN)self_73678)->elts[31];
c_731471.elts[31] = ((closureN)self_73678)->elts[32];
c_731471.elts[32] = ((closureN)self_73678)->elts[33];
c_731471.elts[33] = ((closureN)self_73678)->elts[34];
c_731471.elts[34] = ((closureN)self_73678)->elts[35];
c_731471.elts[35] = truep_73126;
c_731471.elts[36] = ((closureN)self_73678)->elts[36];
c_731471.elts[37] = ((closureN)self_73678)->elts[37];


make_cell(c_735007,((closureN)self_73678)->elts[5]);
return_closcall1(data,(closure)&c_731471,  &c_735007);; 
}

static void __lambda_442(void *data, int argc, object self_73679, object false_91term_73125) {
  
closureN_type c_731473;
c_731473.hdr.mark = gc_color_red;
 c_731473.hdr.grayed = 0;
c_731473.tag = closureN_tag;
 c_731473.fn = (function_type)__lambda_441;
c_731473.num_args = 1;
c_731473.num_elt = 38;
c_731473.elts = (object *)alloca(sizeof(object) * 38);
c_731473.elts[0] = ((closureN)self_73679)->elts[0];
c_731473.elts[1] = ((closureN)self_73679)->elts[1];
c_731473.elts[2] = ((closureN)self_73679)->elts[2];
c_731473.elts[3] = ((closureN)self_73679)->elts[3];
c_731473.elts[4] = ((closureN)self_73679)->elts[4];
c_731473.elts[5] = false_91term_73125;
c_731473.elts[6] = ((closureN)self_73679)->elts[5];
c_731473.elts[7] = ((closureN)self_73679)->elts[6];
c_731473.elts[8] = ((closureN)self_73679)->elts[7];
c_731473.elts[9] = ((closureN)self_73679)->elts[8];
c_731473.elts[10] = ((closureN)self_73679)->elts[9];
c_731473.elts[11] = ((closureN)self_73679)->elts[10];
c_731473.elts[12] = ((closureN)self_73679)->elts[11];
c_731473.elts[13] = ((closureN)self_73679)->elts[12];
c_731473.elts[14] = ((closureN)self_73679)->elts[13];
c_731473.elts[15] = ((closureN)self_73679)->elts[14];
c_731473.elts[16] = ((closureN)self_73679)->elts[15];
c_731473.elts[17] = ((closureN)self_73679)->elts[16];
c_731473.elts[18] = ((closureN)self_73679)->elts[17];
c_731473.elts[19] = ((closureN)self_73679)->elts[18];
c_731473.elts[20] = ((closureN)self_73679)->elts[19];
c_731473.elts[21] = ((closureN)self_73679)->elts[20];
c_731473.elts[22] = ((closureN)self_73679)->elts[21];
c_731473.elts[23] = ((closureN)self_73679)->elts[22];
c_731473.elts[24] = ((closureN)self_73679)->elts[23];
c_731473.elts[25] = ((closureN)self_73679)->elts[24];
c_731473.elts[26] = ((closureN)self_73679)->elts[25];
c_731473.elts[27] = ((closureN)self_73679)->elts[26];
c_731473.elts[28] = ((closureN)self_73679)->elts[27];
c_731473.elts[29] = ((closureN)self_73679)->elts[28];
c_731473.elts[30] = ((closureN)self_73679)->elts[29];
c_731473.elts[31] = ((closureN)self_73679)->elts[30];
c_731473.elts[32] = ((closureN)self_73679)->elts[31];
c_731473.elts[33] = ((closureN)self_73679)->elts[32];
c_731473.elts[34] = ((closureN)self_73679)->elts[33];
c_731473.elts[35] = ((closureN)self_73679)->elts[35];
c_731473.elts[36] = ((closureN)self_73679)->elts[36];
c_731473.elts[37] = ((closureN)self_73679)->elts[37];


make_cell(c_735003,((closureN)self_73679)->elts[34]);
return_closcall1(data,(closure)&c_731473,  &c_735003);; 
}

static void __lambda_441(void *data, int argc, object self_73680, object true_91term_73124) {
  
closureN_type c_731475;
c_731475.hdr.mark = gc_color_red;
 c_731475.hdr.grayed = 0;
c_731475.tag = closureN_tag;
 c_731475.fn = (function_type)__lambda_440;
c_731475.num_args = 1;
c_731475.num_elt = 38;
c_731475.elts = (object *)alloca(sizeof(object) * 38);
c_731475.elts[0] = ((closureN)self_73680)->elts[0];
c_731475.elts[1] = ((closureN)self_73680)->elts[1];
c_731475.elts[2] = ((closureN)self_73680)->elts[2];
c_731475.elts[3] = ((closureN)self_73680)->elts[3];
c_731475.elts[4] = ((closureN)self_73680)->elts[4];
c_731475.elts[5] = ((closureN)self_73680)->elts[5];
c_731475.elts[6] = ((closureN)self_73680)->elts[6];
c_731475.elts[7] = ((closureN)self_73680)->elts[7];
c_731475.elts[8] = ((closureN)self_73680)->elts[8];
c_731475.elts[9] = ((closureN)self_73680)->elts[9];
c_731475.elts[10] = ((closureN)self_73680)->elts[10];
c_731475.elts[11] = ((closureN)self_73680)->elts[11];
c_731475.elts[12] = ((closureN)self_73680)->elts[12];
c_731475.elts[13] = ((closureN)self_73680)->elts[13];
c_731475.elts[14] = ((closureN)self_73680)->elts[14];
c_731475.elts[15] = ((closureN)self_73680)->elts[15];
c_731475.elts[16] = ((closureN)self_73680)->elts[16];
c_731475.elts[17] = ((closureN)self_73680)->elts[17];
c_731475.elts[18] = ((closureN)self_73680)->elts[18];
c_731475.elts[19] = ((closureN)self_73680)->elts[19];
c_731475.elts[20] = ((closureN)self_73680)->elts[20];
c_731475.elts[21] = ((closureN)self_73680)->elts[21];
c_731475.elts[22] = ((closureN)self_73680)->elts[22];
c_731475.elts[23] = ((closureN)self_73680)->elts[23];
c_731475.elts[24] = ((closureN)self_73680)->elts[24];
c_731475.elts[25] = ((closureN)self_73680)->elts[25];
c_731475.elts[26] = ((closureN)self_73680)->elts[26];
c_731475.elts[27] = ((closureN)self_73680)->elts[27];
c_731475.elts[28] = ((closureN)self_73680)->elts[28];
c_731475.elts[29] = ((closureN)self_73680)->elts[29];
c_731475.elts[30] = ((closureN)self_73680)->elts[31];
c_731475.elts[31] = ((closureN)self_73680)->elts[32];
c_731475.elts[32] = ((closureN)self_73680)->elts[33];
c_731475.elts[33] = ((closureN)self_73680)->elts[34];
c_731475.elts[34] = true_91term_73124;
c_731475.elts[35] = ((closureN)self_73680)->elts[35];
c_731475.elts[36] = ((closureN)self_73680)->elts[36];
c_731475.elts[37] = ((closureN)self_73680)->elts[37];


make_cell(c_734999,((closureN)self_73680)->elts[30]);
return_closcall1(data,(closure)&c_731475,  &c_734999);; 
}

static void __lambda_440(void *data, int argc, object self_73681, object trans_91of_91implies_73123) {
  
closureN_type c_731477;
c_731477.hdr.mark = gc_color_red;
 c_731477.hdr.grayed = 0;
c_731477.tag = closureN_tag;
 c_731477.fn = (function_type)__lambda_439;
c_731477.num_args = 1;
c_731477.num_elt = 38;
c_731477.elts = (object *)alloca(sizeof(object) * 38);
c_731477.elts[0] = ((closureN)self_73681)->elts[0];
c_731477.elts[1] = ((closureN)self_73681)->elts[1];
c_731477.elts[2] = ((closureN)self_73681)->elts[2];
c_731477.elts[3] = ((closureN)self_73681)->elts[3];
c_731477.elts[4] = ((closureN)self_73681)->elts[4];
c_731477.elts[5] = ((closureN)self_73681)->elts[5];
c_731477.elts[6] = ((closureN)self_73681)->elts[6];
c_731477.elts[7] = ((closureN)self_73681)->elts[7];
c_731477.elts[8] = ((closureN)self_73681)->elts[8];
c_731477.elts[9] = ((closureN)self_73681)->elts[9];
c_731477.elts[10] = ((closureN)self_73681)->elts[10];
c_731477.elts[11] = ((closureN)self_73681)->elts[11];
c_731477.elts[12] = ((closureN)self_73681)->elts[12];
c_731477.elts[13] = ((closureN)self_73681)->elts[13];
c_731477.elts[14] = ((closureN)self_73681)->elts[14];
c_731477.elts[15] = ((closureN)self_73681)->elts[15];
c_731477.elts[16] = ((closureN)self_73681)->elts[16];
c_731477.elts[17] = ((closureN)self_73681)->elts[17];
c_731477.elts[18] = ((closureN)self_73681)->elts[18];
c_731477.elts[19] = ((closureN)self_73681)->elts[19];
c_731477.elts[20] = ((closureN)self_73681)->elts[20];
c_731477.elts[21] = ((closureN)self_73681)->elts[21];
c_731477.elts[22] = ((closureN)self_73681)->elts[22];
c_731477.elts[23] = ((closureN)self_73681)->elts[23];
c_731477.elts[24] = ((closureN)self_73681)->elts[24];
c_731477.elts[25] = ((closureN)self_73681)->elts[25];
c_731477.elts[26] = ((closureN)self_73681)->elts[26];
c_731477.elts[27] = ((closureN)self_73681)->elts[27];
c_731477.elts[28] = ((closureN)self_73681)->elts[28];
c_731477.elts[29] = ((closureN)self_73681)->elts[29];
c_731477.elts[30] = trans_91of_91implies_73123;
c_731477.elts[31] = ((closureN)self_73681)->elts[31];
c_731477.elts[32] = ((closureN)self_73681)->elts[32];
c_731477.elts[33] = ((closureN)self_73681)->elts[33];
c_731477.elts[34] = ((closureN)self_73681)->elts[34];
c_731477.elts[35] = ((closureN)self_73681)->elts[35];
c_731477.elts[36] = ((closureN)self_73681)->elts[36];
c_731477.elts[37] = ((closureN)self_73681)->elts[37];


make_cell(c_734995,((closureN)self_73681)->elts[30]);
return_closcall1(data,(closure)&c_731477,  &c_734995);; 
}

static void __lambda_439(void *data, int argc, object self_73682, object trans_91of_91implies1_73122) {
  
closureN_type c_731479;
c_731479.hdr.mark = gc_color_red;
 c_731479.hdr.grayed = 0;
c_731479.tag = closureN_tag;
 c_731479.fn = (function_type)__lambda_438;
c_731479.num_args = 1;
c_731479.num_elt = 38;
c_731479.elts = (object *)alloca(sizeof(object) * 38);
c_731479.elts[0] = ((closureN)self_73682)->elts[0];
c_731479.elts[1] = ((closureN)self_73682)->elts[1];
c_731479.elts[2] = ((closureN)self_73682)->elts[2];
c_731479.elts[3] = ((closureN)self_73682)->elts[3];
c_731479.elts[4] = ((closureN)self_73682)->elts[4];
c_731479.elts[5] = ((closureN)self_73682)->elts[5];
c_731479.elts[6] = ((closureN)self_73682)->elts[6];
c_731479.elts[7] = ((closureN)self_73682)->elts[7];
c_731479.elts[8] = ((closureN)self_73682)->elts[8];
c_731479.elts[9] = ((closureN)self_73682)->elts[9];
c_731479.elts[10] = ((closureN)self_73682)->elts[10];
c_731479.elts[11] = ((closureN)self_73682)->elts[11];
c_731479.elts[12] = ((closureN)self_73682)->elts[12];
c_731479.elts[13] = ((closureN)self_73682)->elts[13];
c_731479.elts[14] = ((closureN)self_73682)->elts[14];
c_731479.elts[15] = ((closureN)self_73682)->elts[15];
c_731479.elts[16] = ((closureN)self_73682)->elts[16];
c_731479.elts[17] = ((closureN)self_73682)->elts[17];
c_731479.elts[18] = ((closureN)self_73682)->elts[18];
c_731479.elts[19] = ((closureN)self_73682)->elts[19];
c_731479.elts[20] = ((closureN)self_73682)->elts[20];
c_731479.elts[21] = ((closureN)self_73682)->elts[21];
c_731479.elts[22] = ((closureN)self_73682)->elts[22];
c_731479.elts[23] = ((closureN)self_73682)->elts[23];
c_731479.elts[24] = ((closureN)self_73682)->elts[24];
c_731479.elts[25] = ((closureN)self_73682)->elts[25];
c_731479.elts[26] = ((closureN)self_73682)->elts[26];
c_731479.elts[27] = ((closureN)self_73682)->elts[28];
c_731479.elts[28] = ((closureN)self_73682)->elts[29];
c_731479.elts[29] = ((closureN)self_73682)->elts[30];
c_731479.elts[30] = trans_91of_91implies1_73122;
c_731479.elts[31] = ((closureN)self_73682)->elts[31];
c_731479.elts[32] = ((closureN)self_73682)->elts[32];
c_731479.elts[33] = ((closureN)self_73682)->elts[33];
c_731479.elts[34] = ((closureN)self_73682)->elts[34];
c_731479.elts[35] = ((closureN)self_73682)->elts[35];
c_731479.elts[36] = ((closureN)self_73682)->elts[36];
c_731479.elts[37] = ((closureN)self_73682)->elts[37];


make_cell(c_734991,((closureN)self_73682)->elts[27]);
return_closcall1(data,(closure)&c_731479,  &c_734991);; 
}

static void __lambda_438(void *data, int argc, object self_73683, object term_91equal_127_73121) {
  
closureN_type c_731481;
c_731481.hdr.mark = gc_color_red;
 c_731481.hdr.grayed = 0;
c_731481.tag = closureN_tag;
 c_731481.fn = (function_type)__lambda_437;
c_731481.num_args = 1;
c_731481.num_elt = 38;
c_731481.elts = (object *)alloca(sizeof(object) * 38);
c_731481.elts[0] = ((closureN)self_73683)->elts[0];
c_731481.elts[1] = ((closureN)self_73683)->elts[1];
c_731481.elts[2] = ((closureN)self_73683)->elts[2];
c_731481.elts[3] = ((closureN)self_73683)->elts[3];
c_731481.elts[4] = ((closureN)self_73683)->elts[4];
c_731481.elts[5] = ((closureN)self_73683)->elts[5];
c_731481.elts[6] = ((closureN)self_73683)->elts[6];
c_731481.elts[7] = ((closureN)self_73683)->elts[7];
c_731481.elts[8] = ((closureN)self_73683)->elts[8];
c_731481.elts[9] = ((closureN)self_73683)->elts[9];
c_731481.elts[10] = ((closureN)self_73683)->elts[10];
c_731481.elts[11] = ((closureN)self_73683)->elts[11];
c_731481.elts[12] = ((closureN)self_73683)->elts[12];
c_731481.elts[13] = ((closureN)self_73683)->elts[13];
c_731481.elts[14] = ((closureN)self_73683)->elts[14];
c_731481.elts[15] = ((closureN)self_73683)->elts[15];
c_731481.elts[16] = ((closureN)self_73683)->elts[16];
c_731481.elts[17] = ((closureN)self_73683)->elts[17];
c_731481.elts[18] = ((closureN)self_73683)->elts[18];
c_731481.elts[19] = ((closureN)self_73683)->elts[19];
c_731481.elts[20] = ((closureN)self_73683)->elts[20];
c_731481.elts[21] = ((closureN)self_73683)->elts[21];
c_731481.elts[22] = ((closureN)self_73683)->elts[22];
c_731481.elts[23] = ((closureN)self_73683)->elts[23];
c_731481.elts[24] = ((closureN)self_73683)->elts[24];
c_731481.elts[25] = ((closureN)self_73683)->elts[25];
c_731481.elts[26] = term_91equal_127_73121;
c_731481.elts[27] = ((closureN)self_73683)->elts[27];
c_731481.elts[28] = ((closureN)self_73683)->elts[28];
c_731481.elts[29] = ((closureN)self_73683)->elts[29];
c_731481.elts[30] = ((closureN)self_73683)->elts[30];
c_731481.elts[31] = ((closureN)self_73683)->elts[31];
c_731481.elts[32] = ((closureN)self_73683)->elts[32];
c_731481.elts[33] = ((closureN)self_73683)->elts[33];
c_731481.elts[34] = ((closureN)self_73683)->elts[34];
c_731481.elts[35] = ((closureN)self_73683)->elts[35];
c_731481.elts[36] = ((closureN)self_73683)->elts[36];
c_731481.elts[37] = ((closureN)self_73683)->elts[37];


make_cell(c_734987,((closureN)self_73683)->elts[26]);
return_closcall1(data,(closure)&c_731481,  &c_734987);; 
}

static void __lambda_437(void *data, int argc, object self_73684, object term_91args_91equal_127_73120) {
  
closureN_type c_731483;
c_731483.hdr.mark = gc_color_red;
 c_731483.hdr.grayed = 0;
c_731483.tag = closureN_tag;
 c_731483.fn = (function_type)__lambda_436;
c_731483.num_args = 1;
c_731483.num_elt = 38;
c_731483.elts = (object *)alloca(sizeof(object) * 38);
c_731483.elts[0] = ((closureN)self_73684)->elts[0];
c_731483.elts[1] = ((closureN)self_73684)->elts[1];
c_731483.elts[2] = ((closureN)self_73684)->elts[2];
c_731483.elts[3] = ((closureN)self_73684)->elts[3];
c_731483.elts[4] = ((closureN)self_73684)->elts[4];
c_731483.elts[5] = ((closureN)self_73684)->elts[5];
c_731483.elts[6] = ((closureN)self_73684)->elts[6];
c_731483.elts[7] = ((closureN)self_73684)->elts[7];
c_731483.elts[8] = ((closureN)self_73684)->elts[8];
c_731483.elts[9] = ((closureN)self_73684)->elts[9];
c_731483.elts[10] = ((closureN)self_73684)->elts[10];
c_731483.elts[11] = ((closureN)self_73684)->elts[11];
c_731483.elts[12] = ((closureN)self_73684)->elts[12];
c_731483.elts[13] = ((closureN)self_73684)->elts[13];
c_731483.elts[14] = ((closureN)self_73684)->elts[14];
c_731483.elts[15] = ((closureN)self_73684)->elts[15];
c_731483.elts[16] = ((closureN)self_73684)->elts[16];
c_731483.elts[17] = ((closureN)self_73684)->elts[17];
c_731483.elts[18] = ((closureN)self_73684)->elts[18];
c_731483.elts[19] = ((closureN)self_73684)->elts[19];
c_731483.elts[20] = ((closureN)self_73684)->elts[20];
c_731483.elts[21] = ((closureN)self_73684)->elts[21];
c_731483.elts[22] = ((closureN)self_73684)->elts[22];
c_731483.elts[23] = ((closureN)self_73684)->elts[23];
c_731483.elts[24] = ((closureN)self_73684)->elts[24];
c_731483.elts[25] = ((closureN)self_73684)->elts[25];
c_731483.elts[26] = term_91args_91equal_127_73120;
c_731483.elts[27] = ((closureN)self_73684)->elts[26];
c_731483.elts[28] = ((closureN)self_73684)->elts[28];
c_731483.elts[29] = ((closureN)self_73684)->elts[29];
c_731483.elts[30] = ((closureN)self_73684)->elts[30];
c_731483.elts[31] = ((closureN)self_73684)->elts[31];
c_731483.elts[32] = ((closureN)self_73684)->elts[32];
c_731483.elts[33] = ((closureN)self_73684)->elts[33];
c_731483.elts[34] = ((closureN)self_73684)->elts[34];
c_731483.elts[35] = ((closureN)self_73684)->elts[35];
c_731483.elts[36] = ((closureN)self_73684)->elts[36];
c_731483.elts[37] = ((closureN)self_73684)->elts[37];


make_cell(c_734983,((closureN)self_73684)->elts[27]);
return_closcall1(data,(closure)&c_731483,  &c_734983);; 
}

static void __lambda_436(void *data, int argc, object self_73685, object term_91member_127_73119) {
  
closureN_type c_731485;
c_731485.hdr.mark = gc_color_red;
 c_731485.hdr.grayed = 0;
c_731485.tag = closureN_tag;
 c_731485.fn = (function_type)__lambda_433;
c_731485.num_args = 1;
c_731485.num_elt = 39;
c_731485.elts = (object *)alloca(sizeof(object) * 39);
c_731485.elts[0] = ((closureN)self_73685)->elts[0];
c_731485.elts[1] = ((closureN)self_73685)->elts[1];
c_731485.elts[2] = ((closureN)self_73685)->elts[2];
c_731485.elts[3] = ((closureN)self_73685)->elts[3];
c_731485.elts[4] = ((closureN)self_73685)->elts[4];
c_731485.elts[5] = ((closureN)self_73685)->elts[5];
c_731485.elts[6] = ((closureN)self_73685)->elts[6];
c_731485.elts[7] = ((closureN)self_73685)->elts[7];
c_731485.elts[8] = ((closureN)self_73685)->elts[8];
c_731485.elts[9] = ((closureN)self_73685)->elts[9];
c_731485.elts[10] = ((closureN)self_73685)->elts[10];
c_731485.elts[11] = ((closureN)self_73685)->elts[11];
c_731485.elts[12] = ((closureN)self_73685)->elts[12];
c_731485.elts[13] = ((closureN)self_73685)->elts[13];
c_731485.elts[14] = ((closureN)self_73685)->elts[14];
c_731485.elts[15] = ((closureN)self_73685)->elts[15];
c_731485.elts[16] = ((closureN)self_73685)->elts[16];
c_731485.elts[17] = ((closureN)self_73685)->elts[17];
c_731485.elts[18] = ((closureN)self_73685)->elts[18];
c_731485.elts[19] = ((closureN)self_73685)->elts[19];
c_731485.elts[20] = ((closureN)self_73685)->elts[20];
c_731485.elts[21] = ((closureN)self_73685)->elts[21];
c_731485.elts[22] = ((closureN)self_73685)->elts[22];
c_731485.elts[23] = ((closureN)self_73685)->elts[23];
c_731485.elts[24] = ((closureN)self_73685)->elts[24];
c_731485.elts[25] = ((closureN)self_73685)->elts[25];
c_731485.elts[26] = ((closureN)self_73685)->elts[26];
c_731485.elts[27] = ((closureN)self_73685)->elts[27];
c_731485.elts[28] = term_91member_127_73119;
c_731485.elts[29] = ((closureN)self_73685)->elts[28];
c_731485.elts[30] = ((closureN)self_73685)->elts[29];
c_731485.elts[31] = ((closureN)self_73685)->elts[30];
c_731485.elts[32] = ((closureN)self_73685)->elts[31];
c_731485.elts[33] = ((closureN)self_73685)->elts[32];
c_731485.elts[34] = ((closureN)self_73685)->elts[33];
c_731485.elts[35] = ((closureN)self_73685)->elts[34];
c_731485.elts[36] = ((closureN)self_73685)->elts[35];
c_731485.elts[37] = ((closureN)self_73685)->elts[36];
c_731485.elts[38] = ((closureN)self_73685)->elts[37];


closureN_type c_733126;
c_733126.hdr.mark = gc_color_red;
 c_733126.hdr.grayed = 0;
c_733126.tag = closureN_tag;
 c_733126.fn = (function_type)__lambda_435;
c_733126.num_args = 0;
c_733126.num_elt = 1;
c_733126.elts = (object *)alloca(sizeof(object) * 1);
c_733126.elts[0] = ((closureN)self_73685)->elts[2];

return_closcall1(data,(closure)&c_731485,  &c_733126);; 
}

static void __lambda_435(void *data, int argc, object self_73686, object k_73562) {
  
closureN_type c_733128;
c_733128.hdr.mark = gc_color_red;
 c_733128.hdr.grayed = 0;
c_733128.tag = closureN_tag;
 c_733128.fn = (function_type)__lambda_434;
c_733128.num_args = 1;
c_733128.num_elt = 2;
c_733128.elts = (object *)alloca(sizeof(object) * 2);
c_733128.elts[0] = ((closureN)self_73686)->elts[0];
c_733128.elts[1] = k_73562;


make_cons(c_733138,quote_form,nil);

make_cons(c_733137,quote_compile,&c_733138);

make_cons(c_733145,quote_form,nil);

make_cons(c_733144,quote_optimize,&c_733145);

make_cons(c_733147,quote_nil,nil);

make_cons(c_733146,&c_733147,nil);

make_cons(c_733143,&c_733144,&c_733146);

make_cons(c_733142,quote_codegen,&c_733143);

make_cons(c_733141,&c_733142,nil);

make_cons(c_733140,quote_reverse,&c_733141);

make_cons(c_733139,&c_733140,nil);

make_cons(c_733136,&c_733137,&c_733139);

make_cons(c_733135,quote_equal,&c_733136);

make_cons(c_733153,quote_y,nil);

make_cons(c_733152,quote_x,&c_733153);

make_cons(c_733151,quote_eqp,&c_733152);

make_cons(c_733158,quote_x,nil);

make_cons(c_733157,quote_fix,&c_733158);

make_cons(c_733161,quote_y,nil);

make_cons(c_733160,quote_fix,&c_733161);

make_cons(c_733159,&c_733160,nil);

make_cons(c_733156,&c_733157,&c_733159);

make_cons(c_733155,quote_equal,&c_733156);

make_cons(c_733154,&c_733155,nil);

make_cons(c_733150,&c_733151,&c_733154);

make_cons(c_733149,quote_equal,&c_733150);

make_cons(c_733167,quote_y,nil);

make_cons(c_733166,quote_x,&c_733167);

make_cons(c_733165,quote_greaterp,&c_733166);

make_cons(c_733171,quote_x,nil);

make_cons(c_733170,quote_y,&c_733171);

make_cons(c_733169,quote_lessp,&c_733170);

make_cons(c_733168,&c_733169,nil);

make_cons(c_733164,&c_733165,&c_733168);

make_cons(c_733163,quote_equal,&c_733164);

make_cons(c_733177,quote_y,nil);

make_cons(c_733176,quote_x,&c_733177);

make_cons(c_733175,quote_lesseqp,&c_733176);

make_cons(c_733183,quote_x,nil);

make_cons(c_733182,quote_y,&c_733183);

make_cons(c_733181,quote_lessp,&c_733182);

make_cons(c_733180,&c_733181,nil);

make_cons(c_733179,quote_not,&c_733180);

make_cons(c_733178,&c_733179,nil);

make_cons(c_733174,&c_733175,&c_733178);

make_cons(c_733173,quote_equal,&c_733174);

make_cons(c_733189,quote_y,nil);

make_cons(c_733188,quote_x,&c_733189);

make_cons(c_733187,quote_greatereqp,&c_733188);

make_cons(c_733195,quote_y,nil);

make_cons(c_733194,quote_x,&c_733195);

make_cons(c_733193,quote_lessp,&c_733194);

make_cons(c_733192,&c_733193,nil);

make_cons(c_733191,quote_not,&c_733192);

make_cons(c_733190,&c_733191,nil);

make_cons(c_733186,&c_733187,&c_733190);

make_cons(c_733185,quote_equal,&c_733186);

make_cons(c_733200,quote_x,nil);

make_cons(c_733199,quote_boolean,&c_733200);

make_cons(c_733207,quote_t,nil);

make_cons(c_733206,&c_733207,nil);

make_cons(c_733205,quote_x,&c_733206);

make_cons(c_733204,quote_equal,&c_733205);

make_cons(c_733212,quote_f,nil);

make_cons(c_733211,&c_733212,nil);

make_cons(c_733210,quote_x,&c_733211);

make_cons(c_733209,quote_equal,&c_733210);

make_cons(c_733208,&c_733209,nil);

make_cons(c_733203,&c_733204,&c_733208);

make_cons(c_733202,quote_or,&c_733203);

make_cons(c_733201,&c_733202,nil);

make_cons(c_733198,&c_733199,&c_733201);

make_cons(c_733197,quote_equal,&c_733198);

make_cons(c_733218,quote_y,nil);

make_cons(c_733217,quote_x,&c_733218);

make_cons(c_733216,quote_iff,&c_733217);

make_cons(c_733224,quote_y,nil);

make_cons(c_733223,quote_x,&c_733224);

make_cons(c_733222,quote_implies,&c_733223);

make_cons(c_733228,quote_x,nil);

make_cons(c_733227,quote_y,&c_733228);

make_cons(c_733226,quote_implies,&c_733227);

make_cons(c_733225,&c_733226,nil);

make_cons(c_733221,&c_733222,&c_733225);

make_cons(c_733220,quote_and,&c_733221);

make_cons(c_733219,&c_733220,nil);

make_cons(c_733215,&c_733216,&c_733219);

make_cons(c_733214,quote_equal,&c_733215);

make_cons(c_733233,quote_x,nil);

make_cons(c_733232,quote_even1,&c_733233);

make_cons(c_733238,quote_x,nil);

make_cons(c_733237,quote_zerop,&c_733238);

make_cons(c_733240,quote_t,nil);

make_cons(c_733245,quote_x,nil);

make_cons(c_733244,quote__1911_91,&c_733245);

make_cons(c_733243,&c_733244,nil);

make_cons(c_733242,quote_odd,&c_733243);

make_cons(c_733241,&c_733242,nil);

make_cons(c_733239,&c_733240,&c_733241);

make_cons(c_733236,&c_733237,&c_733239);

make_cons(c_733235,quote__if,&c_733236);

make_cons(c_733234,&c_733235,nil);

make_cons(c_733231,&c_733232,&c_733234);

make_cons(c_733230,quote_equal,&c_733231);

make_cons(c_733251,quote_pred,nil);

make_cons(c_733250,quote_l,&c_733251);

make_cons(c_733249,quote_countps_91,&c_733250);

make_cons(c_733257,quote_zero,nil);

make_cons(c_733256,&c_733257,nil);

make_cons(c_733255,quote_pred,&c_733256);

make_cons(c_733254,quote_l,&c_733255);

make_cons(c_733253,quote_countps_91loop,&c_733254);

make_cons(c_733252,&c_733253,nil);

make_cons(c_733248,&c_733249,&c_733252);

make_cons(c_733247,quote_equal,&c_733248);

make_cons(c_733262,quote_i,nil);

make_cons(c_733261,quote_fact_91,&c_733262);

make_cons(c_733266,obj_int2obj(1),nil);

make_cons(c_733265,quote_i,&c_733266);

make_cons(c_733264,quote_fact_91loop,&c_733265);

make_cons(c_733263,&c_733264,nil);

make_cons(c_733260,&c_733261,&c_733263);

make_cons(c_733259,quote_equal,&c_733260);

make_cons(c_733271,quote_x,nil);

make_cons(c_733270,quote_reverse_91,&c_733271);

make_cons(c_733276,quote_nil,nil);

make_cons(c_733275,&c_733276,nil);

make_cons(c_733274,quote_x,&c_733275);

make_cons(c_733273,quote_reverse_91loop,&c_733274);

make_cons(c_733272,&c_733273,nil);

make_cons(c_733269,&c_733270,&c_733272);

make_cons(c_733268,quote_equal,&c_733269);

make_cons(c_733282,quote_y,nil);

make_cons(c_733281,quote_x,&c_733282);

make_cons(c_733280,quote_divides,&c_733281);

make_cons(c_733288,quote_x,nil);

make_cons(c_733287,quote_y,&c_733288);

make_cons(c_733286,quote_remainder,&c_733287);

make_cons(c_733285,&c_733286,nil);

make_cons(c_733284,quote_zerop,&c_733285);

make_cons(c_733283,&c_733284,nil);

make_cons(c_733279,&c_733280,&c_733283);

make_cons(c_733278,quote_equal,&c_733279);

make_cons(c_733294,quote_alist,nil);

make_cons(c_733293,quote_var,&c_733294);

make_cons(c_733292,quote_assume_91true,&c_733293);

make_cons(c_733301,quote_t,nil);

make_cons(c_733300,&c_733301,nil);

make_cons(c_733299,quote_var,&c_733300);

make_cons(c_733298,quote_cons,&c_733299);

make_cons(c_733302,quote_alist,nil);

make_cons(c_733297,&c_733298,&c_733302);

make_cons(c_733296,quote_cons,&c_733297);

make_cons(c_733295,&c_733296,nil);

make_cons(c_733291,&c_733292,&c_733295);

make_cons(c_733290,quote_equal,&c_733291);

make_cons(c_733308,quote_alist,nil);

make_cons(c_733307,quote_var,&c_733308);

make_cons(c_733306,quote_assume_91false,&c_733307);

make_cons(c_733315,quote_f,nil);

make_cons(c_733314,&c_733315,nil);

make_cons(c_733313,quote_var,&c_733314);

make_cons(c_733312,quote_cons,&c_733313);

make_cons(c_733316,quote_alist,nil);

make_cons(c_733311,&c_733312,&c_733316);

make_cons(c_733310,quote_cons,&c_733311);

make_cons(c_733309,&c_733310,nil);

make_cons(c_733305,&c_733306,&c_733309);

make_cons(c_733304,quote_equal,&c_733305);

make_cons(c_733321,quote_x,nil);

make_cons(c_733320,quote_tautology_91checker,&c_733321);

make_cons(c_733326,quote_x,nil);

make_cons(c_733325,quote_normalize,&c_733326);

make_cons(c_733328,quote_nil,nil);

make_cons(c_733327,&c_733328,nil);

make_cons(c_733324,&c_733325,&c_733327);

make_cons(c_733323,quote_tautologyp,&c_733324);

make_cons(c_733322,&c_733323,nil);

make_cons(c_733319,&c_733320,&c_733322);

make_cons(c_733318,quote_equal,&c_733319);

make_cons(c_733333,quote_x,nil);

make_cons(c_733332,quote_falsify,&c_733333);

make_cons(c_733338,quote_x,nil);

make_cons(c_733337,quote_normalize,&c_733338);

make_cons(c_733340,quote_nil,nil);

make_cons(c_733339,&c_733340,nil);

make_cons(c_733336,&c_733337,&c_733339);

make_cons(c_733335,quote_falsify1,&c_733336);

make_cons(c_733334,&c_733335,nil);

make_cons(c_733331,&c_733332,&c_733334);

make_cons(c_733330,quote_equal,&c_733331);

make_cons(c_733345,quote_x,nil);

make_cons(c_733344,quote_prime,&c_733345);

make_cons(c_733352,quote_x,nil);

make_cons(c_733351,quote_zerop,&c_733352);

make_cons(c_733350,&c_733351,nil);

make_cons(c_733349,quote_not,&c_733350);

make_cons(c_733361,quote_zero,nil);

make_cons(c_733360,&c_733361,nil);

make_cons(c_733359,quote_add1,&c_733360);

make_cons(c_733358,&c_733359,nil);

make_cons(c_733357,quote_x,&c_733358);

make_cons(c_733356,quote_equal,&c_733357);

make_cons(c_733355,&c_733356,nil);

make_cons(c_733354,quote_not,&c_733355);

make_cons(c_733367,quote_x,nil);

make_cons(c_733366,quote__1911_91,&c_733367);

make_cons(c_733365,&c_733366,nil);

make_cons(c_733364,quote_x,&c_733365);

make_cons(c_733363,quote_prime1,&c_733364);

make_cons(c_733362,&c_733363,nil);

make_cons(c_733353,&c_733354,&c_733362);

make_cons(c_733348,&c_733349,&c_733353);

make_cons(c_733347,quote_and,&c_733348);

make_cons(c_733346,&c_733347,nil);

make_cons(c_733343,&c_733344,&c_733346);

make_cons(c_733342,quote_equal,&c_733343);

make_cons(c_733373,quote_q,nil);

make_cons(c_733372,quote_p,&c_733373);

make_cons(c_733371,quote_and,&c_733372);

make_cons(c_733381,quote_t,nil);

make_cons(c_733383,quote_f,nil);

make_cons(c_733382,&c_733383,nil);

make_cons(c_733380,&c_733381,&c_733382);

make_cons(c_733379,quote_q,&c_733380);

make_cons(c_733378,quote__if,&c_733379);

make_cons(c_733385,quote_f,nil);

make_cons(c_733384,&c_733385,nil);

make_cons(c_733377,&c_733378,&c_733384);

make_cons(c_733376,quote_p,&c_733377);

make_cons(c_733375,quote__if,&c_733376);

make_cons(c_733374,&c_733375,nil);

make_cons(c_733370,&c_733371,&c_733374);

make_cons(c_733369,quote_equal,&c_733370);

make_cons(c_733391,quote_q,nil);

make_cons(c_733390,quote_p,&c_733391);

make_cons(c_733389,quote_or,&c_733390);

make_cons(c_733396,quote_t,nil);

make_cons(c_733401,quote_t,nil);

make_cons(c_733403,quote_f,nil);

make_cons(c_733402,&c_733403,nil);

make_cons(c_733400,&c_733401,&c_733402);

make_cons(c_733399,quote_q,&c_733400);

make_cons(c_733398,quote__if,&c_733399);

make_cons(c_733397,&c_733398,nil);

make_cons(c_733395,&c_733396,&c_733397);

make_cons(c_733394,quote_p,&c_733395);

make_cons(c_733393,quote__if,&c_733394);

make_cons(c_733392,&c_733393,nil);

make_cons(c_733388,&c_733389,&c_733392);

make_cons(c_733387,quote_equal,&c_733388);

make_cons(c_733408,quote_p,nil);

make_cons(c_733407,quote_not,&c_733408);

make_cons(c_733413,quote_f,nil);

make_cons(c_733415,quote_t,nil);

make_cons(c_733414,&c_733415,nil);

make_cons(c_733412,&c_733413,&c_733414);

make_cons(c_733411,quote_p,&c_733412);

make_cons(c_733410,quote__if,&c_733411);

make_cons(c_733409,&c_733410,nil);

make_cons(c_733406,&c_733407,&c_733409);

make_cons(c_733405,quote_equal,&c_733406);

make_cons(c_733421,quote_q,nil);

make_cons(c_733420,quote_p,&c_733421);

make_cons(c_733419,quote_implies,&c_733420);

make_cons(c_733429,quote_t,nil);

make_cons(c_733431,quote_f,nil);

make_cons(c_733430,&c_733431,nil);

make_cons(c_733428,&c_733429,&c_733430);

make_cons(c_733427,quote_q,&c_733428);

make_cons(c_733426,quote__if,&c_733427);

make_cons(c_733433,quote_t,nil);

make_cons(c_733432,&c_733433,nil);

make_cons(c_733425,&c_733426,&c_733432);

make_cons(c_733424,quote_p,&c_733425);

make_cons(c_733423,quote__if,&c_733424);

make_cons(c_733422,&c_733423,nil);

make_cons(c_733418,&c_733419,&c_733422);

make_cons(c_733417,quote_equal,&c_733418);

make_cons(c_733438,quote_x,nil);

make_cons(c_733437,quote_fix,&c_733438);

make_cons(c_733443,quote_x,nil);

make_cons(c_733442,quote_numberp,&c_733443);

make_cons(c_733446,quote_zero,nil);

make_cons(c_733445,&c_733446,nil);

make_cons(c_733444,quote_x,&c_733445);

make_cons(c_733441,&c_733442,&c_733444);

make_cons(c_733440,quote__if,&c_733441);

make_cons(c_733439,&c_733440,nil);

make_cons(c_733436,&c_733437,&c_733439);

make_cons(c_733435,quote_equal,&c_733436);

make_cons(c_733455,quote_c,nil);

make_cons(c_733454,quote_b,&c_733455);

make_cons(c_733453,quote_a,&c_733454);

make_cons(c_733452,quote__if,&c_733453);

make_cons(c_733457,quote_e,nil);

make_cons(c_733456,quote_d,&c_733457);

make_cons(c_733451,&c_733452,&c_733456);

make_cons(c_733450,quote__if,&c_733451);

make_cons(c_733465,quote_e,nil);

make_cons(c_733464,quote_d,&c_733465);

make_cons(c_733463,quote_b,&c_733464);

make_cons(c_733462,quote__if,&c_733463);

make_cons(c_733470,quote_e,nil);

make_cons(c_733469,quote_d,&c_733470);

make_cons(c_733468,quote_c,&c_733469);

make_cons(c_733467,quote__if,&c_733468);

make_cons(c_733466,&c_733467,nil);

make_cons(c_733461,&c_733462,&c_733466);

make_cons(c_733460,quote_a,&c_733461);

make_cons(c_733459,quote__if,&c_733460);

make_cons(c_733458,&c_733459,nil);

make_cons(c_733449,&c_733450,&c_733458);

make_cons(c_733448,quote_equal,&c_733449);

make_cons(c_733475,quote_x,nil);

make_cons(c_733474,quote_zerop,&c_733475);

make_cons(c_733482,quote_zero,nil);

make_cons(c_733481,&c_733482,nil);

make_cons(c_733480,quote_x,&c_733481);

make_cons(c_733479,quote_equal,&c_733480);

make_cons(c_733487,quote_x,nil);

make_cons(c_733486,quote_numberp,&c_733487);

make_cons(c_733485,&c_733486,nil);

make_cons(c_733484,quote_not,&c_733485);

make_cons(c_733483,&c_733484,nil);

make_cons(c_733478,&c_733479,&c_733483);

make_cons(c_733477,quote_or,&c_733478);

make_cons(c_733476,&c_733477,nil);

make_cons(c_733473,&c_733474,&c_733476);

make_cons(c_733472,quote_equal,&c_733473);

make_cons(c_733495,quote_y,nil);

make_cons(c_733494,quote_x,&c_733495);

make_cons(c_733493,quote_plus,&c_733494);

make_cons(c_733496,quote_z,nil);

make_cons(c_733492,&c_733493,&c_733496);

make_cons(c_733491,quote_plus,&c_733492);

make_cons(c_733503,quote_z,nil);

make_cons(c_733502,quote_y,&c_733503);

make_cons(c_733501,quote_plus,&c_733502);

make_cons(c_733500,&c_733501,nil);

make_cons(c_733499,quote_x,&c_733500);

make_cons(c_733498,quote_plus,&c_733499);

make_cons(c_733497,&c_733498,nil);

make_cons(c_733490,&c_733491,&c_733497);

make_cons(c_733489,quote_equal,&c_733490);

make_cons(c_733511,quote_b,nil);

make_cons(c_733510,quote_a,&c_733511);

make_cons(c_733509,quote_plus,&c_733510);

make_cons(c_733513,quote_zero,nil);

make_cons(c_733512,&c_733513,nil);

make_cons(c_733508,&c_733509,&c_733512);

make_cons(c_733507,quote_equal,&c_733508);

make_cons(c_733518,quote_a,nil);

make_cons(c_733517,quote_zerop,&c_733518);

make_cons(c_733521,quote_b,nil);

make_cons(c_733520,quote_zerop,&c_733521);

make_cons(c_733519,&c_733520,nil);

make_cons(c_733516,&c_733517,&c_733519);

make_cons(c_733515,quote_and,&c_733516);

make_cons(c_733514,&c_733515,nil);

make_cons(c_733506,&c_733507,&c_733514);

make_cons(c_733505,quote_equal,&c_733506);

make_cons(c_733527,quote_x,nil);

make_cons(c_733526,quote_x,&c_733527);

make_cons(c_733525,quote_difference,&c_733526);

make_cons(c_733529,quote_zero,nil);

make_cons(c_733528,&c_733529,nil);

make_cons(c_733524,&c_733525,&c_733528);

make_cons(c_733523,quote_equal,&c_733524);

make_cons(c_733537,quote_b,nil);

make_cons(c_733536,quote_a,&c_733537);

make_cons(c_733535,quote_plus,&c_733536);

make_cons(c_733541,quote_c,nil);

make_cons(c_733540,quote_a,&c_733541);

make_cons(c_733539,quote_plus,&c_733540);

make_cons(c_733538,&c_733539,nil);

make_cons(c_733534,&c_733535,&c_733538);

make_cons(c_733533,quote_equal,&c_733534);

make_cons(c_733546,quote_b,nil);

make_cons(c_733545,quote_fix,&c_733546);

make_cons(c_733549,quote_c,nil);

make_cons(c_733548,quote_fix,&c_733549);

make_cons(c_733547,&c_733548,nil);

make_cons(c_733544,&c_733545,&c_733547);

make_cons(c_733543,quote_equal,&c_733544);

make_cons(c_733542,&c_733543,nil);

make_cons(c_733532,&c_733533,&c_733542);

make_cons(c_733531,quote_equal,&c_733532);

make_cons(c_733555,quote_zero,nil);

make_cons(c_733559,quote_y,nil);

make_cons(c_733558,quote_x,&c_733559);

make_cons(c_733557,quote_difference,&c_733558);

make_cons(c_733556,&c_733557,nil);

make_cons(c_733554,&c_733555,&c_733556);

make_cons(c_733553,quote_equal,&c_733554);

make_cons(c_733565,quote_x,nil);

make_cons(c_733564,quote_y,&c_733565);

make_cons(c_733563,quote_lessp,&c_733564);

make_cons(c_733562,&c_733563,nil);

make_cons(c_733561,quote_not,&c_733562);

make_cons(c_733560,&c_733561,nil);

make_cons(c_733552,&c_733553,&c_733560);

make_cons(c_733551,quote_equal,&c_733552);

make_cons(c_733574,quote_y,nil);

make_cons(c_733573,quote_x,&c_733574);

make_cons(c_733572,quote_difference,&c_733573);

make_cons(c_733571,&c_733572,nil);

make_cons(c_733570,quote_x,&c_733571);

make_cons(c_733569,quote_equal,&c_733570);

make_cons(c_733579,quote_x,nil);

make_cons(c_733578,quote_numberp,&c_733579);

make_cons(c_733586,quote_zero,nil);

make_cons(c_733585,&c_733586,nil);

make_cons(c_733584,quote_x,&c_733585);

make_cons(c_733583,quote_equal,&c_733584);

make_cons(c_733589,quote_y,nil);

make_cons(c_733588,quote_zerop,&c_733589);

make_cons(c_733587,&c_733588,nil);

make_cons(c_733582,&c_733583,&c_733587);

make_cons(c_733581,quote_or,&c_733582);

make_cons(c_733580,&c_733581,nil);

make_cons(c_733577,&c_733578,&c_733580);

make_cons(c_733576,quote_and,&c_733577);

make_cons(c_733575,&c_733576,nil);

make_cons(c_733568,&c_733569,&c_733575);

make_cons(c_733567,quote_equal,&c_733568);

make_cons(c_733599,quote_y,nil);

make_cons(c_733598,quote_x,&c_733599);

make_cons(c_733597,quote_append,&c_733598);

make_cons(c_733596,&c_733597,nil);

make_cons(c_733595,quote_plus_91tree,&c_733596);

make_cons(c_733600,quote_a,nil);

make_cons(c_733594,&c_733595,&c_733600);

make_cons(c_733593,quote_meaning,&c_733594);

make_cons(c_733607,quote_x,nil);

make_cons(c_733606,quote_plus_91tree,&c_733607);

make_cons(c_733608,quote_a,nil);

make_cons(c_733605,&c_733606,&c_733608);

make_cons(c_733604,quote_meaning,&c_733605);

make_cons(c_733613,quote_y,nil);

make_cons(c_733612,quote_plus_91tree,&c_733613);

make_cons(c_733614,quote_a,nil);

make_cons(c_733611,&c_733612,&c_733614);

make_cons(c_733610,quote_meaning,&c_733611);

make_cons(c_733609,&c_733610,nil);

make_cons(c_733603,&c_733604,&c_733609);

make_cons(c_733602,quote_plus,&c_733603);

make_cons(c_733601,&c_733602,nil);

make_cons(c_733592,&c_733593,&c_733601);

make_cons(c_733591,quote_equal,&c_733592);

make_cons(c_733623,quote_x,nil);

make_cons(c_733622,quote_plus_91fringe,&c_733623);

make_cons(c_733621,&c_733622,nil);

make_cons(c_733620,quote_plus_91tree,&c_733621);

make_cons(c_733624,quote_a,nil);

make_cons(c_733619,&c_733620,&c_733624);

make_cons(c_733618,quote_meaning,&c_733619);

make_cons(c_733630,quote_a,nil);

make_cons(c_733629,quote_x,&c_733630);

make_cons(c_733628,quote_meaning,&c_733629);

make_cons(c_733627,&c_733628,nil);

make_cons(c_733626,quote_fix,&c_733627);

make_cons(c_733625,&c_733626,nil);

make_cons(c_733617,&c_733618,&c_733625);

make_cons(c_733616,quote_equal,&c_733617);

make_cons(c_733638,quote_y,nil);

make_cons(c_733637,quote_x,&c_733638);

make_cons(c_733636,quote_append,&c_733637);

make_cons(c_733639,quote_z,nil);

make_cons(c_733635,&c_733636,&c_733639);

make_cons(c_733634,quote_append,&c_733635);

make_cons(c_733646,quote_z,nil);

make_cons(c_733645,quote_y,&c_733646);

make_cons(c_733644,quote_append,&c_733645);

make_cons(c_733643,&c_733644,nil);

make_cons(c_733642,quote_x,&c_733643);

make_cons(c_733641,quote_append,&c_733642);

make_cons(c_733640,&c_733641,nil);

make_cons(c_733633,&c_733634,&c_733640);

make_cons(c_733632,quote_equal,&c_733633);

make_cons(c_733654,quote_b,nil);

make_cons(c_733653,quote_a,&c_733654);

make_cons(c_733652,quote_append,&c_733653);

make_cons(c_733651,&c_733652,nil);

make_cons(c_733650,quote_reverse,&c_733651);

make_cons(c_733659,quote_b,nil);

make_cons(c_733658,quote_reverse,&c_733659);

make_cons(c_733662,quote_a,nil);

make_cons(c_733661,quote_reverse,&c_733662);

make_cons(c_733660,&c_733661,nil);

make_cons(c_733657,&c_733658,&c_733660);

make_cons(c_733656,quote_append,&c_733657);

make_cons(c_733655,&c_733656,nil);

make_cons(c_733649,&c_733650,&c_733655);

make_cons(c_733648,quote_equal,&c_733649);

make_cons(c_733671,quote_z,nil);

make_cons(c_733670,quote_y,&c_733671);

make_cons(c_733669,quote_plus,&c_733670);

make_cons(c_733668,&c_733669,nil);

make_cons(c_733667,quote_x,&c_733668);

make_cons(c_733666,quote_times,&c_733667);

make_cons(c_733677,quote_y,nil);

make_cons(c_733676,quote_x,&c_733677);

make_cons(c_733675,quote_times,&c_733676);

make_cons(c_733681,quote_z,nil);

make_cons(c_733680,quote_x,&c_733681);

make_cons(c_733679,quote_times,&c_733680);

make_cons(c_733678,&c_733679,nil);

make_cons(c_733674,&c_733675,&c_733678);

make_cons(c_733673,quote_plus,&c_733674);

make_cons(c_733672,&c_733673,nil);

make_cons(c_733665,&c_733666,&c_733672);

make_cons(c_733664,quote_equal,&c_733665);

make_cons(c_733689,quote_y,nil);

make_cons(c_733688,quote_x,&c_733689);

make_cons(c_733687,quote_times,&c_733688);

make_cons(c_733690,quote_z,nil);

make_cons(c_733686,&c_733687,&c_733690);

make_cons(c_733685,quote_times,&c_733686);

make_cons(c_733697,quote_z,nil);

make_cons(c_733696,quote_y,&c_733697);

make_cons(c_733695,quote_times,&c_733696);

make_cons(c_733694,&c_733695,nil);

make_cons(c_733693,quote_x,&c_733694);

make_cons(c_733692,quote_times,&c_733693);

make_cons(c_733691,&c_733692,nil);

make_cons(c_733684,&c_733685,&c_733691);

make_cons(c_733683,quote_equal,&c_733684);

make_cons(c_733705,quote_y,nil);

make_cons(c_733704,quote_x,&c_733705);

make_cons(c_733703,quote_times,&c_733704);

make_cons(c_733707,quote_zero,nil);

make_cons(c_733706,&c_733707,nil);

make_cons(c_733702,&c_733703,&c_733706);

make_cons(c_733701,quote_equal,&c_733702);

make_cons(c_733712,quote_x,nil);

make_cons(c_733711,quote_zerop,&c_733712);

make_cons(c_733715,quote_y,nil);

make_cons(c_733714,quote_zerop,&c_733715);

make_cons(c_733713,&c_733714,nil);

make_cons(c_733710,&c_733711,&c_733713);

make_cons(c_733709,quote_or,&c_733710);

make_cons(c_733708,&c_733709,nil);

make_cons(c_733700,&c_733701,&c_733708);

make_cons(c_733699,quote_equal,&c_733700);

make_cons(c_733723,quote_y,nil);

make_cons(c_733722,quote_x,&c_733723);

make_cons(c_733721,quote_append,&c_733722);

make_cons(c_733725,quote_envrn,nil);

make_cons(c_733724,quote_pds,&c_733725);

make_cons(c_733720,&c_733721,&c_733724);

make_cons(c_733719,quote_exec,&c_733720);

make_cons(c_733733,quote_envrn,nil);

make_cons(c_733732,quote_pds,&c_733733);

make_cons(c_733731,quote_x,&c_733732);

make_cons(c_733730,quote_exec,&c_733731);

make_cons(c_733734,quote_envrn,nil);

make_cons(c_733729,&c_733730,&c_733734);

make_cons(c_733728,quote_y,&c_733729);

make_cons(c_733727,quote_exec,&c_733728);

make_cons(c_733726,&c_733727,nil);

make_cons(c_733718,&c_733719,&c_733726);

make_cons(c_733717,quote_equal,&c_733718);

make_cons(c_733740,quote_y,nil);

make_cons(c_733739,quote_x,&c_733740);

make_cons(c_733738,quote_mc_91flatten,&c_733739);

make_cons(c_733745,quote_x,nil);

make_cons(c_733744,quote_flatten,&c_733745);

make_cons(c_733746,quote_y,nil);

make_cons(c_733743,&c_733744,&c_733746);

make_cons(c_733742,quote_append,&c_733743);

make_cons(c_733741,&c_733742,nil);

make_cons(c_733737,&c_733738,&c_733741);

make_cons(c_733736,quote_equal,&c_733737);

make_cons(c_733755,quote_b,nil);

make_cons(c_733754,quote_a,&c_733755);

make_cons(c_733753,quote_append,&c_733754);

make_cons(c_733752,&c_733753,nil);

make_cons(c_733751,quote_x,&c_733752);

make_cons(c_733750,quote_member,&c_733751);

make_cons(c_733761,quote_a,nil);

make_cons(c_733760,quote_x,&c_733761);

make_cons(c_733759,quote_member,&c_733760);

make_cons(c_733765,quote_b,nil);

make_cons(c_733764,quote_x,&c_733765);

make_cons(c_733763,quote_member,&c_733764);

make_cons(c_733762,&c_733763,nil);

make_cons(c_733758,&c_733759,&c_733762);

make_cons(c_733757,quote_or,&c_733758);

make_cons(c_733756,&c_733757,nil);

make_cons(c_733749,&c_733750,&c_733756);

make_cons(c_733748,quote_equal,&c_733749);

make_cons(c_733773,quote_y,nil);

make_cons(c_733772,quote_reverse,&c_733773);

make_cons(c_733771,&c_733772,nil);

make_cons(c_733770,quote_x,&c_733771);

make_cons(c_733769,quote_member,&c_733770);

make_cons(c_733777,quote_y,nil);

make_cons(c_733776,quote_x,&c_733777);

make_cons(c_733775,quote_member,&c_733776);

make_cons(c_733774,&c_733775,nil);

make_cons(c_733768,&c_733769,&c_733774);

make_cons(c_733767,quote_equal,&c_733768);

make_cons(c_733784,quote_x,nil);

make_cons(c_733783,quote_reverse,&c_733784);

make_cons(c_733782,&c_733783,nil);

make_cons(c_733781,quote_length,&c_733782);

make_cons(c_733787,quote_x,nil);

make_cons(c_733786,quote_length,&c_733787);

make_cons(c_733785,&c_733786,nil);

make_cons(c_733780,&c_733781,&c_733785);

make_cons(c_733779,quote_equal,&c_733780);

make_cons(c_733796,quote_c,nil);

make_cons(c_733795,quote_b,&c_733796);

make_cons(c_733794,quote_intersect,&c_733795);

make_cons(c_733793,&c_733794,nil);

make_cons(c_733792,quote_a,&c_733793);

make_cons(c_733791,quote_member,&c_733792);

make_cons(c_733802,quote_b,nil);

make_cons(c_733801,quote_a,&c_733802);

make_cons(c_733800,quote_member,&c_733801);

make_cons(c_733806,quote_c,nil);

make_cons(c_733805,quote_a,&c_733806);

make_cons(c_733804,quote_member,&c_733805);

make_cons(c_733803,&c_733804,nil);

make_cons(c_733799,&c_733800,&c_733803);

make_cons(c_733798,quote_and,&c_733799);

make_cons(c_733797,&c_733798,nil);

make_cons(c_733790,&c_733791,&c_733797);

make_cons(c_733789,quote_equal,&c_733790);

make_cons(c_733812,quote_zero,nil);

make_cons(c_733813,quote_i,nil);

make_cons(c_733811,&c_733812,&c_733813);

make_cons(c_733810,quote_nth,&c_733811);

make_cons(c_733815,quote_zero,nil);

make_cons(c_733814,&c_733815,nil);

make_cons(c_733809,&c_733810,&c_733814);

make_cons(c_733808,quote_equal,&c_733809);

make_cons(c_733824,quote_k,nil);

make_cons(c_733823,quote_j,&c_733824);

make_cons(c_733822,quote_plus,&c_733823);

make_cons(c_733821,&c_733822,nil);

make_cons(c_733820,quote_i,&c_733821);

make_cons(c_733819,quote_exp,&c_733820);

make_cons(c_733830,quote_j,nil);

make_cons(c_733829,quote_i,&c_733830);

make_cons(c_733828,quote_exp,&c_733829);

make_cons(c_733834,quote_k,nil);

make_cons(c_733833,quote_i,&c_733834);

make_cons(c_733832,quote_exp,&c_733833);

make_cons(c_733831,&c_733832,nil);

make_cons(c_733827,&c_733828,&c_733831);

make_cons(c_733826,quote_times,&c_733827);

make_cons(c_733825,&c_733826,nil);

make_cons(c_733818,&c_733819,&c_733825);

make_cons(c_733817,quote_equal,&c_733818);

make_cons(c_733843,quote_k,nil);

make_cons(c_733842,quote_j,&c_733843);

make_cons(c_733841,quote_times,&c_733842);

make_cons(c_733840,&c_733841,nil);

make_cons(c_733839,quote_i,&c_733840);

make_cons(c_733838,quote_exp,&c_733839);

make_cons(c_733849,quote_j,nil);

make_cons(c_733848,quote_i,&c_733849);

make_cons(c_733847,quote_exp,&c_733848);

make_cons(c_733850,quote_k,nil);

make_cons(c_733846,&c_733847,&c_733850);

make_cons(c_733845,quote_exp,&c_733846);

make_cons(c_733844,&c_733845,nil);

make_cons(c_733837,&c_733838,&c_733844);

make_cons(c_733836,quote_equal,&c_733837);

make_cons(c_733856,quote_y,nil);

make_cons(c_733855,quote_x,&c_733856);

make_cons(c_733854,quote_reverse_91loop,&c_733855);

make_cons(c_733861,quote_x,nil);

make_cons(c_733860,quote_reverse,&c_733861);

make_cons(c_733862,quote_y,nil);

make_cons(c_733859,&c_733860,&c_733862);

make_cons(c_733858,quote_append,&c_733859);

make_cons(c_733857,&c_733858,nil);

make_cons(c_733853,&c_733854,&c_733857);

make_cons(c_733852,quote_equal,&c_733853);

make_cons(c_733869,quote_nil,nil);

make_cons(c_733868,&c_733869,nil);

make_cons(c_733867,quote_x,&c_733868);

make_cons(c_733866,quote_reverse_91loop,&c_733867);

make_cons(c_733872,quote_x,nil);

make_cons(c_733871,quote_reverse,&c_733872);

make_cons(c_733870,&c_733871,nil);

make_cons(c_733865,&c_733866,&c_733870);

make_cons(c_733864,quote_equal,&c_733865);

make_cons(c_733881,quote_y,nil);

make_cons(c_733880,quote_x,&c_733881);

make_cons(c_733879,quote_sort_91lp,&c_733880);

make_cons(c_733878,&c_733879,nil);

make_cons(c_733877,quote_z,&c_733878);

make_cons(c_733876,quote_count_91list,&c_733877);

make_cons(c_733887,quote_x,nil);

make_cons(c_733886,quote_z,&c_733887);

make_cons(c_733885,quote_count_91list,&c_733886);

make_cons(c_733891,quote_y,nil);

make_cons(c_733890,quote_z,&c_733891);

make_cons(c_733889,quote_count_91list,&c_733890);

make_cons(c_733888,&c_733889,nil);

make_cons(c_733884,&c_733885,&c_733888);

make_cons(c_733883,quote_plus,&c_733884);

make_cons(c_733882,&c_733883,nil);

make_cons(c_733875,&c_733876,&c_733882);

make_cons(c_733874,quote_equal,&c_733875);

make_cons(c_733899,quote_b,nil);

make_cons(c_733898,quote_a,&c_733899);

make_cons(c_733897,quote_append,&c_733898);

make_cons(c_733903,quote_c,nil);

make_cons(c_733902,quote_a,&c_733903);

make_cons(c_733901,quote_append,&c_733902);

make_cons(c_733900,&c_733901,nil);

make_cons(c_733896,&c_733897,&c_733900);

make_cons(c_733895,quote_equal,&c_733896);

make_cons(c_733907,quote_c,nil);

make_cons(c_733906,quote_b,&c_733907);

make_cons(c_733905,quote_equal,&c_733906);

make_cons(c_733904,&c_733905,nil);

make_cons(c_733894,&c_733895,&c_733904);

make_cons(c_733893,quote_equal,&c_733894);

make_cons(c_733915,quote_y,nil);

make_cons(c_733914,quote_x,&c_733915);

make_cons(c_733913,quote_remainder,&c_733914);

make_cons(c_733922,quote_y,nil);

make_cons(c_733921,quote_x,&c_733922);

make_cons(c_733920,quote_quotient,&c_733921);

make_cons(c_733919,&c_733920,nil);

make_cons(c_733918,quote_y,&c_733919);

make_cons(c_733917,quote_times,&c_733918);

make_cons(c_733916,&c_733917,nil);

make_cons(c_733912,&c_733913,&c_733916);

make_cons(c_733911,quote_plus,&c_733912);

make_cons(c_733925,quote_x,nil);

make_cons(c_733924,quote_fix,&c_733925);

make_cons(c_733923,&c_733924,nil);

make_cons(c_733910,&c_733911,&c_733923);

make_cons(c_733909,quote_equal,&c_733910);

make_cons(c_733934,quote_base,nil);

make_cons(c_733933,quote_i,&c_733934);

make_cons(c_733932,quote_l,&c_733933);

make_cons(c_733931,quote_big_91plus1,&c_733932);

make_cons(c_733935,quote_base,nil);

make_cons(c_733930,&c_733931,&c_733935);

make_cons(c_733929,quote_power_91eval,&c_733930);

make_cons(c_733941,quote_base,nil);

make_cons(c_733940,quote_l,&c_733941);

make_cons(c_733939,quote_power_91eval,&c_733940);

make_cons(c_733942,quote_i,nil);

make_cons(c_733938,&c_733939,&c_733942);

make_cons(c_733937,quote_plus,&c_733938);

make_cons(c_733936,&c_733937,nil);

make_cons(c_733928,&c_733929,&c_733936);

make_cons(c_733927,quote_equal,&c_733928);

make_cons(c_733952,quote_base,nil);

make_cons(c_733951,quote_i,&c_733952);

make_cons(c_733950,quote_y,&c_733951);

make_cons(c_733949,quote_x,&c_733950);

make_cons(c_733948,quote_big_91plus,&c_733949);

make_cons(c_733953,quote_base,nil);

make_cons(c_733947,&c_733948,&c_733953);

make_cons(c_733946,quote_power_91eval,&c_733947);

make_cons(c_733962,quote_base,nil);

make_cons(c_733961,quote_x,&c_733962);

make_cons(c_733960,quote_power_91eval,&c_733961);

make_cons(c_733966,quote_base,nil);

make_cons(c_733965,quote_y,&c_733966);

make_cons(c_733964,quote_power_91eval,&c_733965);

make_cons(c_733963,&c_733964,nil);

make_cons(c_733959,&c_733960,&c_733963);

make_cons(c_733958,quote_plus,&c_733959);

make_cons(c_733957,&c_733958,nil);

make_cons(c_733956,quote_i,&c_733957);

make_cons(c_733955,quote_plus,&c_733956);

make_cons(c_733954,&c_733955,nil);

make_cons(c_733945,&c_733946,&c_733954);

make_cons(c_733944,quote_equal,&c_733945);

make_cons(c_733972,obj_int2obj(1),nil);

make_cons(c_733971,quote_y,&c_733972);

make_cons(c_733970,quote_remainder,&c_733971);

make_cons(c_733974,quote_zero,nil);

make_cons(c_733973,&c_733974,nil);

make_cons(c_733969,&c_733970,&c_733973);

make_cons(c_733968,quote_equal,&c_733969);

make_cons(c_733982,quote_y,nil);

make_cons(c_733981,quote_x,&c_733982);

make_cons(c_733980,quote_remainder,&c_733981);

make_cons(c_733983,quote_y,nil);

make_cons(c_733979,&c_733980,&c_733983);

make_cons(c_733978,quote_lessp,&c_733979);

make_cons(c_733988,quote_y,nil);

make_cons(c_733987,quote_zerop,&c_733988);

make_cons(c_733986,&c_733987,nil);

make_cons(c_733985,quote_not,&c_733986);

make_cons(c_733984,&c_733985,nil);

make_cons(c_733977,&c_733978,&c_733984);

make_cons(c_733976,quote_equal,&c_733977);

make_cons(c_733994,quote_x,nil);

make_cons(c_733993,quote_x,&c_733994);

make_cons(c_733992,quote_remainder,&c_733993);

make_cons(c_733996,quote_zero,nil);

make_cons(c_733995,&c_733996,nil);

make_cons(c_733991,&c_733992,&c_733995);

make_cons(c_733990,quote_equal,&c_733991);

make_cons(c_734004,quote_j,nil);

make_cons(c_734003,quote_i,&c_734004);

make_cons(c_734002,quote_quotient,&c_734003);

make_cons(c_734005,quote_i,nil);

make_cons(c_734001,&c_734002,&c_734005);

make_cons(c_734000,quote_lessp,&c_734001);

make_cons(c_734012,quote_i,nil);

make_cons(c_734011,quote_zerop,&c_734012);

make_cons(c_734010,&c_734011,nil);

make_cons(c_734009,quote_not,&c_734010);

make_cons(c_734017,quote_j,nil);

make_cons(c_734016,quote_zerop,&c_734017);

make_cons(c_734023,obj_int2obj(1),nil);

make_cons(c_734022,quote_j,&c_734023);

make_cons(c_734021,quote_equal,&c_734022);

make_cons(c_734020,&c_734021,nil);

make_cons(c_734019,quote_not,&c_734020);

make_cons(c_734018,&c_734019,nil);

make_cons(c_734015,&c_734016,&c_734018);

make_cons(c_734014,quote_or,&c_734015);

make_cons(c_734013,&c_734014,nil);

make_cons(c_734008,&c_734009,&c_734013);

make_cons(c_734007,quote_and,&c_734008);

make_cons(c_734006,&c_734007,nil);

make_cons(c_733999,&c_734000,&c_734006);

make_cons(c_733998,quote_equal,&c_733999);

make_cons(c_734031,quote_y,nil);

make_cons(c_734030,quote_x,&c_734031);

make_cons(c_734029,quote_remainder,&c_734030);

make_cons(c_734032,quote_x,nil);

make_cons(c_734028,&c_734029,&c_734032);

make_cons(c_734027,quote_lessp,&c_734028);

make_cons(c_734039,quote_y,nil);

make_cons(c_734038,quote_zerop,&c_734039);

make_cons(c_734037,&c_734038,nil);

make_cons(c_734036,quote_not,&c_734037);

make_cons(c_734044,quote_x,nil);

make_cons(c_734043,quote_zerop,&c_734044);

make_cons(c_734042,&c_734043,nil);

make_cons(c_734041,quote_not,&c_734042);

make_cons(c_734050,quote_y,nil);

make_cons(c_734049,quote_x,&c_734050);

make_cons(c_734048,quote_lessp,&c_734049);

make_cons(c_734047,&c_734048,nil);

make_cons(c_734046,quote_not,&c_734047);

make_cons(c_734045,&c_734046,nil);

make_cons(c_734040,&c_734041,&c_734045);

make_cons(c_734035,&c_734036,&c_734040);

make_cons(c_734034,quote_and,&c_734035);

make_cons(c_734033,&c_734034,nil);

make_cons(c_734026,&c_734027,&c_734033);

make_cons(c_734025,quote_equal,&c_734026);

make_cons(c_734058,quote_base,nil);

make_cons(c_734057,quote_i,&c_734058);

make_cons(c_734056,quote_power_91rep,&c_734057);

make_cons(c_734059,quote_base,nil);

make_cons(c_734055,&c_734056,&c_734059);

make_cons(c_734054,quote_power_91eval,&c_734055);

make_cons(c_734062,quote_i,nil);

make_cons(c_734061,quote_fix,&c_734062);

make_cons(c_734060,&c_734061,nil);

make_cons(c_734053,&c_734054,&c_734060);

make_cons(c_734052,quote_equal,&c_734053);

make_cons(c_734072,quote_base,nil);

make_cons(c_734071,quote_i,&c_734072);

make_cons(c_734070,quote_power_91rep,&c_734071);

make_cons(c_734076,quote_base,nil);

make_cons(c_734075,quote_j,&c_734076);

make_cons(c_734074,quote_power_91rep,&c_734075);

make_cons(c_734078,quote_zero,nil);

make_cons(c_734079,quote_base,nil);

make_cons(c_734077,&c_734078,&c_734079);

make_cons(c_734073,&c_734074,&c_734077);

make_cons(c_734069,&c_734070,&c_734073);

make_cons(c_734068,quote_big_91plus,&c_734069);

make_cons(c_734080,quote_base,nil);

make_cons(c_734067,&c_734068,&c_734080);

make_cons(c_734066,quote_power_91eval,&c_734067);

make_cons(c_734084,quote_j,nil);

make_cons(c_734083,quote_i,&c_734084);

make_cons(c_734082,quote_plus,&c_734083);

make_cons(c_734081,&c_734082,nil);

make_cons(c_734065,&c_734066,&c_734081);

make_cons(c_734064,quote_equal,&c_734065);

make_cons(c_734090,quote_y,nil);

make_cons(c_734089,quote_x,&c_734090);

make_cons(c_734088,quote_gcd,&c_734089);

make_cons(c_734094,quote_x,nil);

make_cons(c_734093,quote_y,&c_734094);

make_cons(c_734092,quote_gcd,&c_734093);

make_cons(c_734091,&c_734092,nil);

make_cons(c_734087,&c_734088,&c_734091);

make_cons(c_734086,quote_equal,&c_734087);

make_cons(c_734102,quote_b,nil);

make_cons(c_734101,quote_a,&c_734102);

make_cons(c_734100,quote_append,&c_734101);

make_cons(c_734103,quote_i,nil);

make_cons(c_734099,&c_734100,&c_734103);

make_cons(c_734098,quote_nth,&c_734099);

make_cons(c_734109,quote_i,nil);

make_cons(c_734108,quote_a,&c_734109);

make_cons(c_734107,quote_nth,&c_734108);

make_cons(c_734118,quote_a,nil);

make_cons(c_734117,quote_length,&c_734118);

make_cons(c_734116,&c_734117,nil);

make_cons(c_734115,quote_i,&c_734116);

make_cons(c_734114,quote_difference,&c_734115);

make_cons(c_734113,&c_734114,nil);

make_cons(c_734112,quote_b,&c_734113);

make_cons(c_734111,quote_nth,&c_734112);

make_cons(c_734110,&c_734111,nil);

make_cons(c_734106,&c_734107,&c_734110);

make_cons(c_734105,quote_append,&c_734106);

make_cons(c_734104,&c_734105,nil);

make_cons(c_734097,&c_734098,&c_734104);

make_cons(c_734096,quote_equal,&c_734097);

make_cons(c_734126,quote_y,nil);

make_cons(c_734125,quote_x,&c_734126);

make_cons(c_734124,quote_plus,&c_734125);

make_cons(c_734127,quote_x,nil);

make_cons(c_734123,&c_734124,&c_734127);

make_cons(c_734122,quote_difference,&c_734123);

make_cons(c_734130,quote_y,nil);

make_cons(c_734129,quote_fix,&c_734130);

make_cons(c_734128,&c_734129,nil);

make_cons(c_734121,&c_734122,&c_734128);

make_cons(c_734120,quote_equal,&c_734121);

make_cons(c_734138,quote_x,nil);

make_cons(c_734137,quote_y,&c_734138);

make_cons(c_734136,quote_plus,&c_734137);

make_cons(c_734139,quote_x,nil);

make_cons(c_734135,&c_734136,&c_734139);

make_cons(c_734134,quote_difference,&c_734135);

make_cons(c_734142,quote_y,nil);

make_cons(c_734141,quote_fix,&c_734142);

make_cons(c_734140,&c_734141,nil);

make_cons(c_734133,&c_734134,&c_734140);

make_cons(c_734132,quote_equal,&c_734133);

make_cons(c_734150,quote_y,nil);

make_cons(c_734149,quote_x,&c_734150);

make_cons(c_734148,quote_plus,&c_734149);

make_cons(c_734154,quote_z,nil);

make_cons(c_734153,quote_x,&c_734154);

make_cons(c_734152,quote_plus,&c_734153);

make_cons(c_734151,&c_734152,nil);

make_cons(c_734147,&c_734148,&c_734151);

make_cons(c_734146,quote_difference,&c_734147);

make_cons(c_734158,quote_z,nil);

make_cons(c_734157,quote_y,&c_734158);

make_cons(c_734156,quote_difference,&c_734157);

make_cons(c_734155,&c_734156,nil);

make_cons(c_734145,&c_734146,&c_734155);

make_cons(c_734144,quote_equal,&c_734145);

make_cons(c_734167,quote_w,nil);

make_cons(c_734166,quote_c,&c_734167);

make_cons(c_734165,quote_difference,&c_734166);

make_cons(c_734164,&c_734165,nil);

make_cons(c_734163,quote_x,&c_734164);

make_cons(c_734162,quote_times,&c_734163);

make_cons(c_734173,quote_x,nil);

make_cons(c_734172,quote_c,&c_734173);

make_cons(c_734171,quote_times,&c_734172);

make_cons(c_734177,quote_x,nil);

make_cons(c_734176,quote_w,&c_734177);

make_cons(c_734175,quote_times,&c_734176);

make_cons(c_734174,&c_734175,nil);

make_cons(c_734170,&c_734171,&c_734174);

make_cons(c_734169,quote_difference,&c_734170);

make_cons(c_734168,&c_734169,nil);

make_cons(c_734161,&c_734162,&c_734168);

make_cons(c_734160,quote_equal,&c_734161);

make_cons(c_734185,quote_z,nil);

make_cons(c_734184,quote_x,&c_734185);

make_cons(c_734183,quote_times,&c_734184);

make_cons(c_734186,quote_z,nil);

make_cons(c_734182,&c_734183,&c_734186);

make_cons(c_734181,quote_remainder,&c_734182);

make_cons(c_734188,quote_zero,nil);

make_cons(c_734187,&c_734188,nil);

make_cons(c_734180,&c_734181,&c_734187);

make_cons(c_734179,quote_equal,&c_734180);

make_cons(c_734199,quote_c,nil);

make_cons(c_734198,quote_a,&c_734199);

make_cons(c_734197,quote_plus,&c_734198);

make_cons(c_734196,&c_734197,nil);

make_cons(c_734195,quote_b,&c_734196);

make_cons(c_734194,quote_plus,&c_734195);

make_cons(c_734200,quote_a,nil);

make_cons(c_734193,&c_734194,&c_734200);

make_cons(c_734192,quote_difference,&c_734193);

make_cons(c_734204,quote_c,nil);

make_cons(c_734203,quote_b,&c_734204);

make_cons(c_734202,quote_plus,&c_734203);

make_cons(c_734201,&c_734202,nil);

make_cons(c_734191,&c_734192,&c_734201);

make_cons(c_734190,quote_equal,&c_734191);

make_cons(c_734214,quote_z,nil);

make_cons(c_734213,quote_y,&c_734214);

make_cons(c_734212,quote_plus,&c_734213);

make_cons(c_734211,&c_734212,nil);

make_cons(c_734210,quote_add1,&c_734211);

make_cons(c_734215,quote_z,nil);

make_cons(c_734209,&c_734210,&c_734215);

make_cons(c_734208,quote_difference,&c_734209);

make_cons(c_734218,quote_y,nil);

make_cons(c_734217,quote_add1,&c_734218);

make_cons(c_734216,&c_734217,nil);

make_cons(c_734207,&c_734208,&c_734216);

make_cons(c_734206,quote_equal,&c_734207);

make_cons(c_734226,quote_y,nil);

make_cons(c_734225,quote_x,&c_734226);

make_cons(c_734224,quote_plus,&c_734225);

make_cons(c_734230,quote_z,nil);

make_cons(c_734229,quote_x,&c_734230);

make_cons(c_734228,quote_plus,&c_734229);

make_cons(c_734227,&c_734228,nil);

make_cons(c_734223,&c_734224,&c_734227);

make_cons(c_734222,quote_lessp,&c_734223);

make_cons(c_734234,quote_z,nil);

make_cons(c_734233,quote_y,&c_734234);

make_cons(c_734232,quote_lessp,&c_734233);

make_cons(c_734231,&c_734232,nil);

make_cons(c_734221,&c_734222,&c_734231);

make_cons(c_734220,quote_equal,&c_734221);

make_cons(c_734242,quote_z,nil);

make_cons(c_734241,quote_x,&c_734242);

make_cons(c_734240,quote_times,&c_734241);

make_cons(c_734246,quote_z,nil);

make_cons(c_734245,quote_y,&c_734246);

make_cons(c_734244,quote_times,&c_734245);

make_cons(c_734243,&c_734244,nil);

make_cons(c_734239,&c_734240,&c_734243);

make_cons(c_734238,quote_lessp,&c_734239);

make_cons(c_734253,quote_z,nil);

make_cons(c_734252,quote_zerop,&c_734253);

make_cons(c_734251,&c_734252,nil);

make_cons(c_734250,quote_not,&c_734251);

make_cons(c_734257,quote_y,nil);

make_cons(c_734256,quote_x,&c_734257);

make_cons(c_734255,quote_lessp,&c_734256);

make_cons(c_734254,&c_734255,nil);

make_cons(c_734249,&c_734250,&c_734254);

make_cons(c_734248,quote_and,&c_734249);

make_cons(c_734247,&c_734248,nil);

make_cons(c_734237,&c_734238,&c_734247);

make_cons(c_734236,quote_equal,&c_734237);

make_cons(c_734266,quote_y,nil);

make_cons(c_734265,quote_x,&c_734266);

make_cons(c_734264,quote_plus,&c_734265);

make_cons(c_734263,&c_734264,nil);

make_cons(c_734262,quote_y,&c_734263);

make_cons(c_734261,quote_lessp,&c_734262);

make_cons(c_734271,quote_x,nil);

make_cons(c_734270,quote_zerop,&c_734271);

make_cons(c_734269,&c_734270,nil);

make_cons(c_734268,quote_not,&c_734269);

make_cons(c_734267,&c_734268,nil);

make_cons(c_734260,&c_734261,&c_734267);

make_cons(c_734259,quote_equal,&c_734260);

make_cons(c_734279,quote_z,nil);

make_cons(c_734278,quote_x,&c_734279);

make_cons(c_734277,quote_times,&c_734278);

make_cons(c_734283,quote_z,nil);

make_cons(c_734282,quote_y,&c_734283);

make_cons(c_734281,quote_times,&c_734282);

make_cons(c_734280,&c_734281,nil);

make_cons(c_734276,&c_734277,&c_734280);

make_cons(c_734275,quote_gcd,&c_734276);

make_cons(c_734290,quote_y,nil);

make_cons(c_734289,quote_x,&c_734290);

make_cons(c_734288,quote_gcd,&c_734289);

make_cons(c_734287,&c_734288,nil);

make_cons(c_734286,quote_z,&c_734287);

make_cons(c_734285,quote_times,&c_734286);

make_cons(c_734284,&c_734285,nil);

make_cons(c_734274,&c_734275,&c_734284);

make_cons(c_734273,quote_equal,&c_734274);

make_cons(c_734297,quote_x,nil);

make_cons(c_734296,quote_normalize,&c_734297);

make_cons(c_734298,quote_a,nil);

make_cons(c_734295,&c_734296,&c_734298);

make_cons(c_734294,quote_value,&c_734295);

make_cons(c_734302,quote_a,nil);

make_cons(c_734301,quote_x,&c_734302);

make_cons(c_734300,quote_value,&c_734301);

make_cons(c_734299,&c_734300,nil);

make_cons(c_734293,&c_734294,&c_734299);

make_cons(c_734292,quote_equal,&c_734293);

make_cons(c_734309,quote_x,nil);

make_cons(c_734308,quote_flatten,&c_734309);

make_cons(c_734314,quote_nil,nil);

make_cons(c_734313,&c_734314,nil);

make_cons(c_734312,quote_y,&c_734313);

make_cons(c_734311,quote_cons,&c_734312);

make_cons(c_734310,&c_734311,nil);

make_cons(c_734307,&c_734308,&c_734310);

make_cons(c_734306,quote_equal,&c_734307);

make_cons(c_734319,quote_x,nil);

make_cons(c_734318,quote_nlistp,&c_734319);

make_cons(c_734323,quote_y,nil);

make_cons(c_734322,quote_x,&c_734323);

make_cons(c_734321,quote_equal,&c_734322);

make_cons(c_734320,&c_734321,nil);

make_cons(c_734317,&c_734318,&c_734320);

make_cons(c_734316,quote_and,&c_734317);

make_cons(c_734315,&c_734316,nil);

make_cons(c_734305,&c_734306,&c_734315);

make_cons(c_734304,quote_equal,&c_734305);

make_cons(c_734330,quote_x,nil);

make_cons(c_734329,quote_gopher,&c_734330);

make_cons(c_734328,&c_734329,nil);

make_cons(c_734327,quote_listp,&c_734328);

make_cons(c_734333,quote_x,nil);

make_cons(c_734332,quote_listp,&c_734333);

make_cons(c_734331,&c_734332,nil);

make_cons(c_734326,&c_734327,&c_734331);

make_cons(c_734325,quote_equal,&c_734326);

make_cons(c_734339,quote_y,nil);

make_cons(c_734338,quote_x,&c_734339);

make_cons(c_734337,quote_samefringe,&c_734338);

make_cons(c_734344,quote_x,nil);

make_cons(c_734343,quote_flatten,&c_734344);

make_cons(c_734347,quote_y,nil);

make_cons(c_734346,quote_flatten,&c_734347);

make_cons(c_734345,&c_734346,nil);

make_cons(c_734342,&c_734343,&c_734345);

make_cons(c_734341,quote_equal,&c_734342);

make_cons(c_734340,&c_734341,nil);

make_cons(c_734336,&c_734337,&c_734340);

make_cons(c_734335,quote_equal,&c_734336);

make_cons(c_734355,quote_y,nil);

make_cons(c_734354,quote_x,&c_734355);

make_cons(c_734353,quote_greatest_91factor,&c_734354);

make_cons(c_734357,quote_zero,nil);

make_cons(c_734356,&c_734357,nil);

make_cons(c_734352,&c_734353,&c_734356);

make_cons(c_734351,quote_equal,&c_734352);

make_cons(c_734364,quote_y,nil);

make_cons(c_734363,quote_zerop,&c_734364);

make_cons(c_734368,obj_int2obj(1),nil);

make_cons(c_734367,quote_y,&c_734368);

make_cons(c_734366,quote_equal,&c_734367);

make_cons(c_734365,&c_734366,nil);

make_cons(c_734362,&c_734363,&c_734365);

make_cons(c_734361,quote_or,&c_734362);

make_cons(c_734373,quote_zero,nil);

make_cons(c_734372,&c_734373,nil);

make_cons(c_734371,quote_x,&c_734372);

make_cons(c_734370,quote_equal,&c_734371);

make_cons(c_734369,&c_734370,nil);

make_cons(c_734360,&c_734361,&c_734369);

make_cons(c_734359,quote_and,&c_734360);

make_cons(c_734358,&c_734359,nil);

make_cons(c_734350,&c_734351,&c_734358);

make_cons(c_734349,quote_equal,&c_734350);

make_cons(c_734381,quote_y,nil);

make_cons(c_734380,quote_x,&c_734381);

make_cons(c_734379,quote_greatest_91factor,&c_734380);

make_cons(c_734382,obj_int2obj(1),nil);

make_cons(c_734378,&c_734379,&c_734382);

make_cons(c_734377,quote_equal,&c_734378);

make_cons(c_734386,obj_int2obj(1),nil);

make_cons(c_734385,quote_x,&c_734386);

make_cons(c_734384,quote_equal,&c_734385);

make_cons(c_734383,&c_734384,nil);

make_cons(c_734376,&c_734377,&c_734383);

make_cons(c_734375,quote_equal,&c_734376);

make_cons(c_734394,quote_y,nil);

make_cons(c_734393,quote_x,&c_734394);

make_cons(c_734392,quote_greatest_91factor,&c_734393);

make_cons(c_734391,&c_734392,nil);

make_cons(c_734390,quote_numberp,&c_734391);

make_cons(c_734403,quote_y,nil);

make_cons(c_734402,quote_zerop,&c_734403);

make_cons(c_734407,obj_int2obj(1),nil);

make_cons(c_734406,quote_y,&c_734407);

make_cons(c_734405,quote_equal,&c_734406);

make_cons(c_734404,&c_734405,nil);

make_cons(c_734401,&c_734402,&c_734404);

make_cons(c_734400,quote_or,&c_734401);

make_cons(c_734412,quote_x,nil);

make_cons(c_734411,quote_numberp,&c_734412);

make_cons(c_734410,&c_734411,nil);

make_cons(c_734409,quote_not,&c_734410);

make_cons(c_734408,&c_734409,nil);

make_cons(c_734399,&c_734400,&c_734408);

make_cons(c_734398,quote_and,&c_734399);

make_cons(c_734397,&c_734398,nil);

make_cons(c_734396,quote_not,&c_734397);

make_cons(c_734395,&c_734396,nil);

make_cons(c_734389,&c_734390,&c_734395);

make_cons(c_734388,quote_equal,&c_734389);

make_cons(c_734420,quote_y,nil);

make_cons(c_734419,quote_x,&c_734420);

make_cons(c_734418,quote_append,&c_734419);

make_cons(c_734417,&c_734418,nil);

make_cons(c_734416,quote_times_91list,&c_734417);

make_cons(c_734425,quote_x,nil);

make_cons(c_734424,quote_times_91list,&c_734425);

make_cons(c_734428,quote_y,nil);

make_cons(c_734427,quote_times_91list,&c_734428);

make_cons(c_734426,&c_734427,nil);

make_cons(c_734423,&c_734424,&c_734426);

make_cons(c_734422,quote_times,&c_734423);

make_cons(c_734421,&c_734422,nil);

make_cons(c_734415,&c_734416,&c_734421);

make_cons(c_734414,quote_equal,&c_734415);

make_cons(c_734436,quote_y,nil);

make_cons(c_734435,quote_x,&c_734436);

make_cons(c_734434,quote_append,&c_734435);

make_cons(c_734433,&c_734434,nil);

make_cons(c_734432,quote_prime_91list,&c_734433);

make_cons(c_734441,quote_x,nil);

make_cons(c_734440,quote_prime_91list,&c_734441);

make_cons(c_734444,quote_y,nil);

make_cons(c_734443,quote_prime_91list,&c_734444);

make_cons(c_734442,&c_734443,nil);

make_cons(c_734439,&c_734440,&c_734442);

make_cons(c_734438,quote_and,&c_734439);

make_cons(c_734437,&c_734438,nil);

make_cons(c_734431,&c_734432,&c_734437);

make_cons(c_734430,quote_equal,&c_734431);

make_cons(c_734453,quote_z,nil);

make_cons(c_734452,quote_w,&c_734453);

make_cons(c_734451,quote_times,&c_734452);

make_cons(c_734450,&c_734451,nil);

make_cons(c_734449,quote_z,&c_734450);

make_cons(c_734448,quote_equal,&c_734449);

make_cons(c_734458,quote_z,nil);

make_cons(c_734457,quote_numberp,&c_734458);

make_cons(c_734465,quote_zero,nil);

make_cons(c_734464,&c_734465,nil);

make_cons(c_734463,quote_z,&c_734464);

make_cons(c_734462,quote_equal,&c_734463);

make_cons(c_734469,obj_int2obj(1),nil);

make_cons(c_734468,quote_w,&c_734469);

make_cons(c_734467,quote_equal,&c_734468);

make_cons(c_734466,&c_734467,nil);

make_cons(c_734461,&c_734462,&c_734466);

make_cons(c_734460,quote_or,&c_734461);

make_cons(c_734459,&c_734460,nil);

make_cons(c_734456,&c_734457,&c_734459);

make_cons(c_734455,quote_and,&c_734456);

make_cons(c_734454,&c_734455,nil);

make_cons(c_734447,&c_734448,&c_734454);

make_cons(c_734446,quote_equal,&c_734447);

make_cons(c_734475,quote_y,nil);

make_cons(c_734474,quote_x,&c_734475);

make_cons(c_734473,quote_greatereqp,&c_734474);

make_cons(c_734481,quote_y,nil);

make_cons(c_734480,quote_x,&c_734481);

make_cons(c_734479,quote_lessp,&c_734480);

make_cons(c_734478,&c_734479,nil);

make_cons(c_734477,quote_not,&c_734478);

make_cons(c_734476,&c_734477,nil);

make_cons(c_734472,&c_734473,&c_734476);

make_cons(c_734471,quote_equal,&c_734472);

make_cons(c_734490,quote_y,nil);

make_cons(c_734489,quote_x,&c_734490);

make_cons(c_734488,quote_times,&c_734489);

make_cons(c_734487,&c_734488,nil);

make_cons(c_734486,quote_x,&c_734487);

make_cons(c_734485,quote_equal,&c_734486);

make_cons(c_734497,quote_zero,nil);

make_cons(c_734496,&c_734497,nil);

make_cons(c_734495,quote_x,&c_734496);

make_cons(c_734494,quote_equal,&c_734495);

make_cons(c_734502,quote_x,nil);

make_cons(c_734501,quote_numberp,&c_734502);

make_cons(c_734506,obj_int2obj(1),nil);

make_cons(c_734505,quote_y,&c_734506);

make_cons(c_734504,quote_equal,&c_734505);

make_cons(c_734503,&c_734504,nil);

make_cons(c_734500,&c_734501,&c_734503);

make_cons(c_734499,quote_and,&c_734500);

make_cons(c_734498,&c_734499,nil);

make_cons(c_734493,&c_734494,&c_734498);

make_cons(c_734492,quote_or,&c_734493);

make_cons(c_734491,&c_734492,nil);

make_cons(c_734484,&c_734485,&c_734491);

make_cons(c_734483,quote_equal,&c_734484);

make_cons(c_734514,quote_x,nil);

make_cons(c_734513,quote_y,&c_734514);

make_cons(c_734512,quote_times,&c_734513);

make_cons(c_734515,quote_y,nil);

make_cons(c_734511,&c_734512,&c_734515);

make_cons(c_734510,quote_remainder,&c_734511);

make_cons(c_734517,quote_zero,nil);

make_cons(c_734516,&c_734517,nil);

make_cons(c_734509,&c_734510,&c_734516);

make_cons(c_734508,quote_equal,&c_734509);

make_cons(c_734525,quote_b,nil);

make_cons(c_734524,quote_a,&c_734525);

make_cons(c_734523,quote_times,&c_734524);

make_cons(c_734526,obj_int2obj(1),nil);

make_cons(c_734522,&c_734523,&c_734526);

make_cons(c_734521,quote_equal,&c_734522);

make_cons(c_734535,quote_zero,nil);

make_cons(c_734534,&c_734535,nil);

make_cons(c_734533,quote_a,&c_734534);

make_cons(c_734532,quote_equal,&c_734533);

make_cons(c_734531,&c_734532,nil);

make_cons(c_734530,quote_not,&c_734531);

make_cons(c_734542,quote_zero,nil);

make_cons(c_734541,&c_734542,nil);

make_cons(c_734540,quote_b,&c_734541);

make_cons(c_734539,quote_equal,&c_734540);

make_cons(c_734538,&c_734539,nil);

make_cons(c_734537,quote_not,&c_734538);

make_cons(c_734545,quote_a,nil);

make_cons(c_734544,quote_numberp,&c_734545);

make_cons(c_734548,quote_b,nil);

make_cons(c_734547,quote_numberp,&c_734548);

make_cons(c_734553,quote_a,nil);

make_cons(c_734552,quote__1911_91,&c_734553);

make_cons(c_734555,quote_zero,nil);

make_cons(c_734554,&c_734555,nil);

make_cons(c_734551,&c_734552,&c_734554);

make_cons(c_734550,quote_equal,&c_734551);

make_cons(c_734560,quote_b,nil);

make_cons(c_734559,quote__1911_91,&c_734560);

make_cons(c_734562,quote_zero,nil);

make_cons(c_734561,&c_734562,nil);

make_cons(c_734558,&c_734559,&c_734561);

make_cons(c_734557,quote_equal,&c_734558);

make_cons(c_734556,&c_734557,nil);

make_cons(c_734549,&c_734550,&c_734556);

make_cons(c_734546,&c_734547,&c_734549);

make_cons(c_734543,&c_734544,&c_734546);

make_cons(c_734536,&c_734537,&c_734543);

make_cons(c_734529,&c_734530,&c_734536);

make_cons(c_734528,quote_and,&c_734529);

make_cons(c_734527,&c_734528,nil);

make_cons(c_734520,&c_734521,&c_734527);

make_cons(c_734519,quote_equal,&c_734520);

make_cons(c_734572,quote_l,nil);

make_cons(c_734571,quote_x,&c_734572);

make_cons(c_734570,quote_delete,&c_734571);

make_cons(c_734569,&c_734570,nil);

make_cons(c_734568,quote_length,&c_734569);

make_cons(c_734575,quote_l,nil);

make_cons(c_734574,quote_length,&c_734575);

make_cons(c_734573,&c_734574,nil);

make_cons(c_734567,&c_734568,&c_734573);

make_cons(c_734566,quote_lessp,&c_734567);

make_cons(c_734579,quote_l,nil);

make_cons(c_734578,quote_x,&c_734579);

make_cons(c_734577,quote_member,&c_734578);

make_cons(c_734576,&c_734577,nil);

make_cons(c_734565,&c_734566,&c_734576);

make_cons(c_734564,quote_equal,&c_734565);

make_cons(c_734587,quote_l,nil);

make_cons(c_734586,quote_x,&c_734587);

make_cons(c_734585,quote_delete,&c_734586);

make_cons(c_734584,&c_734585,nil);

make_cons(c_734583,quote_sort2,&c_734584);

make_cons(c_734593,quote_l,nil);

make_cons(c_734592,quote_sort2,&c_734593);

make_cons(c_734591,&c_734592,nil);

make_cons(c_734590,quote_x,&c_734591);

make_cons(c_734589,quote_delete,&c_734590);

make_cons(c_734588,&c_734589,nil);

make_cons(c_734582,&c_734583,&c_734588);

make_cons(c_734581,quote_equal,&c_734582);

make_cons(c_734598,quote_x,nil);

make_cons(c_734597,quote_dsort,&c_734598);

make_cons(c_734601,quote_x,nil);

make_cons(c_734600,quote_sort2,&c_734601);

make_cons(c_734599,&c_734600,nil);

make_cons(c_734596,&c_734597,&c_734599);

make_cons(c_734595,quote_equal,&c_734596);

make_cons(c_734624,quote_x7,nil);

make_cons(c_734623,quote_x6,&c_734624);

make_cons(c_734622,quote_cons,&c_734623);

make_cons(c_734621,&c_734622,nil);

make_cons(c_734620,quote_x5,&c_734621);

make_cons(c_734619,quote_cons,&c_734620);

make_cons(c_734618,&c_734619,nil);

make_cons(c_734617,quote_x4,&c_734618);

make_cons(c_734616,quote_cons,&c_734617);

make_cons(c_734615,&c_734616,nil);

make_cons(c_734614,quote_x3,&c_734615);

make_cons(c_734613,quote_cons,&c_734614);

make_cons(c_734612,&c_734613,nil);

make_cons(c_734611,quote_x2,&c_734612);

make_cons(c_734610,quote_cons,&c_734611);

make_cons(c_734609,&c_734610,nil);

make_cons(c_734608,quote_x1,&c_734609);

make_cons(c_734607,quote_cons,&c_734608);

make_cons(c_734606,&c_734607,nil);

make_cons(c_734605,quote_length,&c_734606);

make_cons(c_734630,quote_x7,nil);

make_cons(c_734629,quote_length,&c_734630);

make_cons(c_734628,&c_734629,nil);

make_cons(c_734627,obj_int2obj(6),&c_734628);

make_cons(c_734626,quote_plus,&c_734627);

make_cons(c_734625,&c_734626,nil);

make_cons(c_734604,&c_734605,&c_734625);

make_cons(c_734603,quote_equal,&c_734604);

make_cons(c_734639,quote_x,nil);

make_cons(c_734638,quote_add1,&c_734639);

make_cons(c_734637,&c_734638,nil);

make_cons(c_734636,quote_add1,&c_734637);

make_cons(c_734640,obj_int2obj(2),nil);

make_cons(c_734635,&c_734636,&c_734640);

make_cons(c_734634,quote_difference,&c_734635);

make_cons(c_734643,quote_x,nil);

make_cons(c_734642,quote_fix,&c_734643);

make_cons(c_734641,&c_734642,nil);

make_cons(c_734633,&c_734634,&c_734641);

make_cons(c_734632,quote_equal,&c_734633);

make_cons(c_734654,quote_y,nil);

make_cons(c_734653,quote_x,&c_734654);

make_cons(c_734652,quote_plus,&c_734653);

make_cons(c_734651,&c_734652,nil);

make_cons(c_734650,quote_x,&c_734651);

make_cons(c_734649,quote_plus,&c_734650);

make_cons(c_734655,obj_int2obj(2),nil);

make_cons(c_734648,&c_734649,&c_734655);

make_cons(c_734647,quote_quotient,&c_734648);

make_cons(c_734662,obj_int2obj(2),nil);

make_cons(c_734661,quote_y,&c_734662);

make_cons(c_734660,quote_quotient,&c_734661);

make_cons(c_734659,&c_734660,nil);

make_cons(c_734658,quote_x,&c_734659);

make_cons(c_734657,quote_plus,&c_734658);

make_cons(c_734656,&c_734657,nil);

make_cons(c_734646,&c_734647,&c_734656);

make_cons(c_734645,quote_equal,&c_734646);

make_cons(c_734668,quote_zero,nil);

make_cons(c_734669,quote_i,nil);

make_cons(c_734667,&c_734668,&c_734669);

make_cons(c_734666,quote_sigma,&c_734667);

make_cons(c_734677,quote_i,nil);

make_cons(c_734676,quote_add1,&c_734677);

make_cons(c_734675,&c_734676,nil);

make_cons(c_734674,quote_i,&c_734675);

make_cons(c_734673,quote_times,&c_734674);

make_cons(c_734678,obj_int2obj(2),nil);

make_cons(c_734672,&c_734673,&c_734678);

make_cons(c_734671,quote_quotient,&c_734672);

make_cons(c_734670,&c_734671,nil);

make_cons(c_734665,&c_734666,&c_734670);

make_cons(c_734664,quote_equal,&c_734665);

make_cons(c_734686,quote_y,nil);

make_cons(c_734685,quote_add1,&c_734686);

make_cons(c_734684,&c_734685,nil);

make_cons(c_734683,quote_x,&c_734684);

make_cons(c_734682,quote_plus,&c_734683);

make_cons(c_734691,quote_y,nil);

make_cons(c_734690,quote_numberp,&c_734691);

make_cons(c_734697,quote_y,nil);

make_cons(c_734696,quote_x,&c_734697);

make_cons(c_734695,quote_plus,&c_734696);

make_cons(c_734694,&c_734695,nil);

make_cons(c_734693,quote_add1,&c_734694);

make_cons(c_734700,quote_x,nil);

make_cons(c_734699,quote_add1,&c_734700);

make_cons(c_734698,&c_734699,nil);

make_cons(c_734692,&c_734693,&c_734698);

make_cons(c_734689,&c_734690,&c_734692);

make_cons(c_734688,quote__if,&c_734689);

make_cons(c_734687,&c_734688,nil);

make_cons(c_734681,&c_734682,&c_734687);

make_cons(c_734680,quote_equal,&c_734681);

make_cons(c_734708,quote_y,nil);

make_cons(c_734707,quote_x,&c_734708);

make_cons(c_734706,quote_difference,&c_734707);

make_cons(c_734712,quote_y,nil);

make_cons(c_734711,quote_z,&c_734712);

make_cons(c_734710,quote_difference,&c_734711);

make_cons(c_734709,&c_734710,nil);

make_cons(c_734705,&c_734706,&c_734709);

make_cons(c_734704,quote_equal,&c_734705);

make_cons(c_734718,quote_y,nil);

make_cons(c_734717,quote_x,&c_734718);

make_cons(c_734716,quote_lessp,&c_734717);

make_cons(c_734724,quote_z,nil);

make_cons(c_734723,quote_y,&c_734724);

make_cons(c_734722,quote_lessp,&c_734723);

make_cons(c_734721,&c_734722,nil);

make_cons(c_734720,quote_not,&c_734721);

make_cons(c_734730,quote_y,nil);

make_cons(c_734729,quote_z,&c_734730);

make_cons(c_734728,quote_lessp,&c_734729);

make_cons(c_734736,quote_x,nil);

make_cons(c_734735,quote_y,&c_734736);

make_cons(c_734734,quote_lessp,&c_734735);

make_cons(c_734733,&c_734734,nil);

make_cons(c_734732,quote_not,&c_734733);

make_cons(c_734741,quote_x,nil);

make_cons(c_734740,quote_fix,&c_734741);

make_cons(c_734744,quote_z,nil);

make_cons(c_734743,quote_fix,&c_734744);

make_cons(c_734742,&c_734743,nil);

make_cons(c_734739,&c_734740,&c_734742);

make_cons(c_734738,quote_equal,&c_734739);

make_cons(c_734737,&c_734738,nil);

make_cons(c_734731,&c_734732,&c_734737);

make_cons(c_734727,&c_734728,&c_734731);

make_cons(c_734726,quote__if,&c_734727);

make_cons(c_734725,&c_734726,nil);

make_cons(c_734719,&c_734720,&c_734725);

make_cons(c_734715,&c_734716,&c_734719);

make_cons(c_734714,quote__if,&c_734715);

make_cons(c_734713,&c_734714,nil);

make_cons(c_734703,&c_734704,&c_734713);

make_cons(c_734702,quote_equal,&c_734703);

make_cons(c_734754,quote_y,nil);

make_cons(c_734753,quote_x,&c_734754);

make_cons(c_734752,quote_delete,&c_734753);

make_cons(c_734751,&c_734752,nil);

make_cons(c_734750,quote_plus_91tree,&c_734751);

make_cons(c_734755,quote_a,nil);

make_cons(c_734749,&c_734750,&c_734755);

make_cons(c_734748,quote_meaning,&c_734749);

make_cons(c_734761,quote_y,nil);

make_cons(c_734760,quote_x,&c_734761);

make_cons(c_734759,quote_member,&c_734760);

make_cons(c_734768,quote_y,nil);

make_cons(c_734767,quote_plus_91tree,&c_734768);

make_cons(c_734769,quote_a,nil);

make_cons(c_734766,&c_734767,&c_734769);

make_cons(c_734765,quote_meaning,&c_734766);

make_cons(c_734773,quote_a,nil);

make_cons(c_734772,quote_x,&c_734773);

make_cons(c_734771,quote_meaning,&c_734772);

make_cons(c_734770,&c_734771,nil);

make_cons(c_734764,&c_734765,&c_734770);

make_cons(c_734763,quote_difference,&c_734764);

make_cons(c_734778,quote_y,nil);

make_cons(c_734777,quote_plus_91tree,&c_734778);

make_cons(c_734779,quote_a,nil);

make_cons(c_734776,&c_734777,&c_734779);

make_cons(c_734775,quote_meaning,&c_734776);

make_cons(c_734774,&c_734775,nil);

make_cons(c_734762,&c_734763,&c_734774);

make_cons(c_734758,&c_734759,&c_734762);

make_cons(c_734757,quote__if,&c_734758);

make_cons(c_734756,&c_734757,nil);

make_cons(c_734747,&c_734748,&c_734756);

make_cons(c_734746,quote_equal,&c_734747);

make_cons(c_734787,quote_y,nil);

make_cons(c_734786,quote_add1,&c_734787);

make_cons(c_734785,&c_734786,nil);

make_cons(c_734784,quote_x,&c_734785);

make_cons(c_734783,quote_times,&c_734784);

make_cons(c_734792,quote_y,nil);

make_cons(c_734791,quote_numberp,&c_734792);

make_cons(c_734799,quote_y,nil);

make_cons(c_734798,quote_x,&c_734799);

make_cons(c_734797,quote_times,&c_734798);

make_cons(c_734796,&c_734797,nil);

make_cons(c_734795,quote_x,&c_734796);

make_cons(c_734794,quote_plus,&c_734795);

make_cons(c_734802,quote_x,nil);

make_cons(c_734801,quote_fix,&c_734802);

make_cons(c_734800,&c_734801,nil);

make_cons(c_734793,&c_734794,&c_734800);

make_cons(c_734790,&c_734791,&c_734793);

make_cons(c_734789,quote__if,&c_734790);

make_cons(c_734788,&c_734789,nil);

make_cons(c_734782,&c_734783,&c_734788);

make_cons(c_734781,quote_equal,&c_734782);

make_cons(c_734808,quote_nil,nil);

make_cons(c_734809,quote_i,nil);

make_cons(c_734807,&c_734808,&c_734809);

make_cons(c_734806,quote_nth,&c_734807);

make_cons(c_734814,quote_i,nil);

make_cons(c_734813,quote_zerop,&c_734814);

make_cons(c_734816,quote_nil,nil);

make_cons(c_734818,quote_zero,nil);

make_cons(c_734817,&c_734818,nil);

make_cons(c_734815,&c_734816,&c_734817);

make_cons(c_734812,&c_734813,&c_734815);

make_cons(c_734811,quote__if,&c_734812);

make_cons(c_734810,&c_734811,nil);

make_cons(c_734805,&c_734806,&c_734810);

make_cons(c_734804,quote_equal,&c_734805);

make_cons(c_734826,quote_b,nil);

make_cons(c_734825,quote_a,&c_734826);

make_cons(c_734824,quote_append,&c_734825);

make_cons(c_734823,&c_734824,nil);

make_cons(c_734822,quote_last,&c_734823);

make_cons(c_734831,quote_b,nil);

make_cons(c_734830,quote_listp,&c_734831);

make_cons(c_734834,quote_b,nil);

make_cons(c_734833,quote_last,&c_734834);

make_cons(c_734839,quote_a,nil);

make_cons(c_734838,quote_listp,&c_734839);

make_cons(c_734846,quote_a,nil);

make_cons(c_734845,quote_last,&c_734846);

make_cons(c_734844,&c_734845,nil);

make_cons(c_734843,quote_car,&c_734844);

make_cons(c_734847,quote_b,nil);

make_cons(c_734842,&c_734843,&c_734847);

make_cons(c_734841,quote_cons,&c_734842);

make_cons(c_734848,quote_b,nil);

make_cons(c_734840,&c_734841,&c_734848);

make_cons(c_734837,&c_734838,&c_734840);

make_cons(c_734836,quote__if,&c_734837);

make_cons(c_734835,&c_734836,nil);

make_cons(c_734832,&c_734833,&c_734835);

make_cons(c_734829,&c_734830,&c_734832);

make_cons(c_734828,quote__if,&c_734829);

make_cons(c_734827,&c_734828,nil);

make_cons(c_734821,&c_734822,&c_734827);

make_cons(c_734820,quote_equal,&c_734821);

make_cons(c_734856,quote_y,nil);

make_cons(c_734855,quote_x,&c_734856);

make_cons(c_734854,quote_lessp,&c_734855);

make_cons(c_734857,quote_z,nil);

make_cons(c_734853,&c_734854,&c_734857);

make_cons(c_734852,quote_equal,&c_734853);

make_cons(c_734863,quote_y,nil);

make_cons(c_734862,quote_x,&c_734863);

make_cons(c_734861,quote_lessp,&c_734862);

make_cons(c_734867,quote_t,nil);

make_cons(c_734868,quote_z,nil);

make_cons(c_734866,&c_734867,&c_734868);

make_cons(c_734865,quote_equal,&c_734866);

make_cons(c_734872,quote_f,nil);

make_cons(c_734873,quote_z,nil);

make_cons(c_734871,&c_734872,&c_734873);

make_cons(c_734870,quote_equal,&c_734871);

make_cons(c_734869,&c_734870,nil);

make_cons(c_734864,&c_734865,&c_734869);

make_cons(c_734860,&c_734861,&c_734864);

make_cons(c_734859,quote__if,&c_734860);

make_cons(c_734858,&c_734859,nil);

make_cons(c_734851,&c_734852,&c_734858);

make_cons(c_734850,quote_equal,&c_734851);

make_cons(c_734882,quote_b,nil);

make_cons(c_734881,quote_a,&c_734882);

make_cons(c_734880,quote_append,&c_734881);

make_cons(c_734879,&c_734880,nil);

make_cons(c_734878,quote_x,&c_734879);

make_cons(c_734877,quote_assignment,&c_734878);

make_cons(c_734888,quote_a,nil);

make_cons(c_734887,quote_x,&c_734888);

make_cons(c_734886,quote_assignedp,&c_734887);

make_cons(c_734892,quote_a,nil);

make_cons(c_734891,quote_x,&c_734892);

make_cons(c_734890,quote_assignment,&c_734891);

make_cons(c_734896,quote_b,nil);

make_cons(c_734895,quote_x,&c_734896);

make_cons(c_734894,quote_assignment,&c_734895);

make_cons(c_734893,&c_734894,nil);

make_cons(c_734889,&c_734890,&c_734893);

make_cons(c_734885,&c_734886,&c_734889);

make_cons(c_734884,quote__if,&c_734885);

make_cons(c_734883,&c_734884,nil);

make_cons(c_734876,&c_734877,&c_734883);

make_cons(c_734875,quote_equal,&c_734876);

make_cons(c_734903,quote_x,nil);

make_cons(c_734902,quote_gopher,&c_734903);

make_cons(c_734901,&c_734902,nil);

make_cons(c_734900,quote_car,&c_734901);

make_cons(c_734908,quote_x,nil);

make_cons(c_734907,quote_listp,&c_734908);

make_cons(c_734913,quote_x,nil);

make_cons(c_734912,quote_flatten,&c_734913);

make_cons(c_734911,&c_734912,nil);

make_cons(c_734910,quote_car,&c_734911);

make_cons(c_734915,quote_zero,nil);

make_cons(c_734914,&c_734915,nil);

make_cons(c_734909,&c_734910,&c_734914);

make_cons(c_734906,&c_734907,&c_734909);

make_cons(c_734905,quote__if,&c_734906);

make_cons(c_734904,&c_734905,nil);

make_cons(c_734899,&c_734900,&c_734904);

make_cons(c_734898,quote_equal,&c_734899);

make_cons(c_734924,quote_x,nil);

make_cons(c_734923,quote_gopher,&c_734924);

make_cons(c_734922,&c_734923,nil);

make_cons(c_734921,quote_cdr,&c_734922);

make_cons(c_734920,&c_734921,nil);

make_cons(c_734919,quote_flatten,&c_734920);

make_cons(c_734929,quote_x,nil);

make_cons(c_734928,quote_listp,&c_734929);

make_cons(c_734934,quote_x,nil);

make_cons(c_734933,quote_flatten,&c_734934);

make_cons(c_734932,&c_734933,nil);

make_cons(c_734931,quote_cdr,&c_734932);

make_cons(c_734938,quote_zero,nil);

make_cons(c_734940,quote_nil,nil);

make_cons(c_734939,&c_734940,nil);

make_cons(c_734937,&c_734938,&c_734939);

make_cons(c_734936,quote_cons,&c_734937);

make_cons(c_734935,&c_734936,nil);

make_cons(c_734930,&c_734931,&c_734935);

make_cons(c_734927,&c_734928,&c_734930);

make_cons(c_734926,quote__if,&c_734927);

make_cons(c_734925,&c_734926,nil);

make_cons(c_734918,&c_734919,&c_734925);

make_cons(c_734917,quote_equal,&c_734918);

make_cons(c_734948,quote_x,nil);

make_cons(c_734947,quote_y,&c_734948);

make_cons(c_734946,quote_times,&c_734947);

make_cons(c_734949,quote_y,nil);

make_cons(c_734945,&c_734946,&c_734949);

make_cons(c_734944,quote_quotient,&c_734945);

make_cons(c_734954,quote_y,nil);

make_cons(c_734953,quote_zerop,&c_734954);

make_cons(c_734956,quote_zero,nil);

make_cons(c_734959,quote_x,nil);

make_cons(c_734958,quote_fix,&c_734959);

make_cons(c_734957,&c_734958,nil);

make_cons(c_734955,&c_734956,&c_734957);

make_cons(c_734952,&c_734953,&c_734955);

make_cons(c_734951,quote__if,&c_734952);

make_cons(c_734950,&c_734951,nil);

make_cons(c_734943,&c_734944,&c_734950);

make_cons(c_734942,quote_equal,&c_734943);

make_cons(c_734969,quote_mem,nil);

make_cons(c_734968,quote_val,&c_734969);

make_cons(c_734967,quote_i,&c_734968);

make_cons(c_734966,quote_set,&c_734967);

make_cons(c_734965,&c_734966,nil);

make_cons(c_734964,quote_j,&c_734965);

make_cons(c_734963,quote_get,&c_734964);

make_cons(c_734975,quote_i,nil);

make_cons(c_734974,quote_j,&c_734975);

make_cons(c_734973,quote_eqp,&c_734974);

make_cons(c_734980,quote_mem,nil);

make_cons(c_734979,quote_j,&c_734980);

make_cons(c_734978,quote_get,&c_734979);

make_cons(c_734977,&c_734978,nil);

make_cons(c_734976,quote_val,&c_734977);

make_cons(c_734972,&c_734973,&c_734976);

make_cons(c_734971,quote__if,&c_734972);

make_cons(c_734970,&c_734971,nil);

make_cons(c_734962,&c_734963,&c_734970);

make_cons(c_734961,quote_equal,&c_734962);

make_cons(c_734960,&c_734961,nil);

make_cons(c_734941,&c_734942,&c_734960);

make_cons(c_734916,&c_734917,&c_734941);

make_cons(c_734897,&c_734898,&c_734916);

make_cons(c_734874,&c_734875,&c_734897);

make_cons(c_734849,&c_734850,&c_734874);

make_cons(c_734819,&c_734820,&c_734849);

make_cons(c_734803,&c_734804,&c_734819);

make_cons(c_734780,&c_734781,&c_734803);

make_cons(c_734745,&c_734746,&c_734780);

make_cons(c_734701,&c_734702,&c_734745);

make_cons(c_734679,&c_734680,&c_734701);

make_cons(c_734663,&c_734664,&c_734679);

make_cons(c_734644,&c_734645,&c_734663);

make_cons(c_734631,&c_734632,&c_734644);

make_cons(c_734602,&c_734603,&c_734631);

make_cons(c_734594,&c_734595,&c_734602);

make_cons(c_734580,&c_734581,&c_734594);

make_cons(c_734563,&c_734564,&c_734580);

make_cons(c_734518,&c_734519,&c_734563);

make_cons(c_734507,&c_734508,&c_734518);

make_cons(c_734482,&c_734483,&c_734507);

make_cons(c_734470,&c_734471,&c_734482);

make_cons(c_734445,&c_734446,&c_734470);

make_cons(c_734429,&c_734430,&c_734445);

make_cons(c_734413,&c_734414,&c_734429);

make_cons(c_734387,&c_734388,&c_734413);

make_cons(c_734374,&c_734375,&c_734387);

make_cons(c_734348,&c_734349,&c_734374);

make_cons(c_734334,&c_734335,&c_734348);

make_cons(c_734324,&c_734325,&c_734334);

make_cons(c_734303,&c_734304,&c_734324);

make_cons(c_734291,&c_734292,&c_734303);

make_cons(c_734272,&c_734273,&c_734291);

make_cons(c_734258,&c_734259,&c_734272);

make_cons(c_734235,&c_734236,&c_734258);

make_cons(c_734219,&c_734220,&c_734235);

make_cons(c_734205,&c_734206,&c_734219);

make_cons(c_734189,&c_734190,&c_734205);

make_cons(c_734178,&c_734179,&c_734189);

make_cons(c_734159,&c_734160,&c_734178);

make_cons(c_734143,&c_734144,&c_734159);

make_cons(c_734131,&c_734132,&c_734143);

make_cons(c_734119,&c_734120,&c_734131);

make_cons(c_734095,&c_734096,&c_734119);

make_cons(c_734085,&c_734086,&c_734095);

make_cons(c_734063,&c_734064,&c_734085);

make_cons(c_734051,&c_734052,&c_734063);

make_cons(c_734024,&c_734025,&c_734051);

make_cons(c_733997,&c_733998,&c_734024);

make_cons(c_733989,&c_733990,&c_733997);

make_cons(c_733975,&c_733976,&c_733989);

make_cons(c_733967,&c_733968,&c_733975);

make_cons(c_733943,&c_733944,&c_733967);

make_cons(c_733926,&c_733927,&c_733943);

make_cons(c_733908,&c_733909,&c_733926);

make_cons(c_733892,&c_733893,&c_733908);

make_cons(c_733873,&c_733874,&c_733892);

make_cons(c_733863,&c_733864,&c_733873);

make_cons(c_733851,&c_733852,&c_733863);

make_cons(c_733835,&c_733836,&c_733851);

make_cons(c_733816,&c_733817,&c_733835);

make_cons(c_733807,&c_733808,&c_733816);

make_cons(c_733788,&c_733789,&c_733807);

make_cons(c_733778,&c_733779,&c_733788);

make_cons(c_733766,&c_733767,&c_733778);

make_cons(c_733747,&c_733748,&c_733766);

make_cons(c_733735,&c_733736,&c_733747);

make_cons(c_733716,&c_733717,&c_733735);

make_cons(c_733698,&c_733699,&c_733716);

make_cons(c_733682,&c_733683,&c_733698);

make_cons(c_733663,&c_733664,&c_733682);

make_cons(c_733647,&c_733648,&c_733663);

make_cons(c_733631,&c_733632,&c_733647);

make_cons(c_733615,&c_733616,&c_733631);

make_cons(c_733590,&c_733591,&c_733615);

make_cons(c_733566,&c_733567,&c_733590);

make_cons(c_733550,&c_733551,&c_733566);

make_cons(c_733530,&c_733531,&c_733550);

make_cons(c_733522,&c_733523,&c_733530);

make_cons(c_733504,&c_733505,&c_733522);

make_cons(c_733488,&c_733489,&c_733504);

make_cons(c_733471,&c_733472,&c_733488);

make_cons(c_733447,&c_733448,&c_733471);

make_cons(c_733434,&c_733435,&c_733447);

make_cons(c_733416,&c_733417,&c_733434);

make_cons(c_733404,&c_733405,&c_733416);

make_cons(c_733386,&c_733387,&c_733404);

make_cons(c_733368,&c_733369,&c_733386);

make_cons(c_733341,&c_733342,&c_733368);

make_cons(c_733329,&c_733330,&c_733341);

make_cons(c_733317,&c_733318,&c_733329);

make_cons(c_733303,&c_733304,&c_733317);

make_cons(c_733289,&c_733290,&c_733303);

make_cons(c_733277,&c_733278,&c_733289);

make_cons(c_733267,&c_733268,&c_733277);

make_cons(c_733258,&c_733259,&c_733267);

make_cons(c_733246,&c_733247,&c_733258);

make_cons(c_733229,&c_733230,&c_733246);

make_cons(c_733213,&c_733214,&c_733229);

make_cons(c_733196,&c_733197,&c_733213);

make_cons(c_733184,&c_733185,&c_733196);

make_cons(c_733172,&c_733173,&c_733184);

make_cons(c_733162,&c_733163,&c_733172);

make_cons(c_733148,&c_733149,&c_733162);

make_cons(c_733134,&c_733135,&c_733148);
return_closcall1(data,(closure)&c_733128,  &c_733134);; 
}

static void __lambda_434(void *data, int argc, object self_73687, object r_73563) {
  return_closcall2(data,  cell_get(((closureN)self_73687)->elts[0]),  ((closureN)self_73687)->elts[1], r_73563);; 
}

static void __lambda_433(void *data, int argc, object self_73688, object r_73561) {
  
closureN_type c_731487;
c_731487.hdr.mark = gc_color_red;
 c_731487.hdr.grayed = 0;
c_731487.tag = closureN_tag;
 c_731487.fn = (function_type)__lambda_432;
c_731487.num_args = 1;
c_731487.num_elt = 39;
c_731487.elts = (object *)alloca(sizeof(object) * 39);
c_731487.elts[0] = ((closureN)self_73688)->elts[0];
c_731487.elts[1] = ((closureN)self_73688)->elts[1];
c_731487.elts[2] = ((closureN)self_73688)->elts[2];
c_731487.elts[3] = ((closureN)self_73688)->elts[3];
c_731487.elts[4] = ((closureN)self_73688)->elts[4];
c_731487.elts[5] = ((closureN)self_73688)->elts[5];
c_731487.elts[6] = ((closureN)self_73688)->elts[6];
c_731487.elts[7] = ((closureN)self_73688)->elts[7];
c_731487.elts[8] = ((closureN)self_73688)->elts[8];
c_731487.elts[9] = ((closureN)self_73688)->elts[9];
c_731487.elts[10] = ((closureN)self_73688)->elts[10];
c_731487.elts[11] = ((closureN)self_73688)->elts[11];
c_731487.elts[12] = ((closureN)self_73688)->elts[12];
c_731487.elts[13] = ((closureN)self_73688)->elts[13];
c_731487.elts[14] = ((closureN)self_73688)->elts[14];
c_731487.elts[15] = ((closureN)self_73688)->elts[15];
c_731487.elts[16] = ((closureN)self_73688)->elts[16];
c_731487.elts[17] = ((closureN)self_73688)->elts[17];
c_731487.elts[18] = ((closureN)self_73688)->elts[18];
c_731487.elts[19] = ((closureN)self_73688)->elts[19];
c_731487.elts[20] = ((closureN)self_73688)->elts[20];
c_731487.elts[21] = ((closureN)self_73688)->elts[21];
c_731487.elts[22] = ((closureN)self_73688)->elts[22];
c_731487.elts[23] = ((closureN)self_73688)->elts[23];
c_731487.elts[24] = ((closureN)self_73688)->elts[24];
c_731487.elts[25] = ((closureN)self_73688)->elts[25];
c_731487.elts[26] = ((closureN)self_73688)->elts[26];
c_731487.elts[27] = ((closureN)self_73688)->elts[27];
c_731487.elts[28] = ((closureN)self_73688)->elts[28];
c_731487.elts[29] = ((closureN)self_73688)->elts[29];
c_731487.elts[30] = ((closureN)self_73688)->elts[30];
c_731487.elts[31] = ((closureN)self_73688)->elts[31];
c_731487.elts[32] = ((closureN)self_73688)->elts[32];
c_731487.elts[33] = ((closureN)self_73688)->elts[33];
c_731487.elts[34] = ((closureN)self_73688)->elts[34];
c_731487.elts[35] = ((closureN)self_73688)->elts[35];
c_731487.elts[36] = ((closureN)self_73688)->elts[36];
c_731487.elts[37] = ((closureN)self_73688)->elts[37];
c_731487.elts[38] = ((closureN)self_73688)->elts[38];

return_closcall1(data,(closure)&c_731487,  Cyc_set_car(data, ((closureN)self_73688)->elts[21], r_73561));; 
}

static void __lambda_432(void *data, int argc, object self_73689, object r_73265) {
  
closureN_type c_731489;
c_731489.hdr.mark = gc_color_red;
 c_731489.hdr.grayed = 0;
c_731489.tag = closureN_tag;
 c_731489.fn = (function_type)__lambda_424;
c_731489.num_args = 1;
c_731489.num_elt = 39;
c_731489.elts = (object *)alloca(sizeof(object) * 39);
c_731489.elts[0] = ((closureN)self_73689)->elts[0];
c_731489.elts[1] = ((closureN)self_73689)->elts[1];
c_731489.elts[2] = ((closureN)self_73689)->elts[2];
c_731489.elts[3] = ((closureN)self_73689)->elts[3];
c_731489.elts[4] = ((closureN)self_73689)->elts[4];
c_731489.elts[5] = ((closureN)self_73689)->elts[5];
c_731489.elts[6] = ((closureN)self_73689)->elts[6];
c_731489.elts[7] = ((closureN)self_73689)->elts[7];
c_731489.elts[8] = ((closureN)self_73689)->elts[8];
c_731489.elts[9] = ((closureN)self_73689)->elts[9];
c_731489.elts[10] = ((closureN)self_73689)->elts[10];
c_731489.elts[11] = ((closureN)self_73689)->elts[11];
c_731489.elts[12] = ((closureN)self_73689)->elts[12];
c_731489.elts[13] = ((closureN)self_73689)->elts[13];
c_731489.elts[14] = ((closureN)self_73689)->elts[14];
c_731489.elts[15] = ((closureN)self_73689)->elts[15];
c_731489.elts[16] = ((closureN)self_73689)->elts[16];
c_731489.elts[17] = ((closureN)self_73689)->elts[17];
c_731489.elts[18] = ((closureN)self_73689)->elts[18];
c_731489.elts[19] = ((closureN)self_73689)->elts[19];
c_731489.elts[20] = ((closureN)self_73689)->elts[20];
c_731489.elts[21] = ((closureN)self_73689)->elts[21];
c_731489.elts[22] = ((closureN)self_73689)->elts[22];
c_731489.elts[23] = ((closureN)self_73689)->elts[23];
c_731489.elts[24] = ((closureN)self_73689)->elts[24];
c_731489.elts[25] = ((closureN)self_73689)->elts[25];
c_731489.elts[26] = ((closureN)self_73689)->elts[26];
c_731489.elts[27] = ((closureN)self_73689)->elts[27];
c_731489.elts[28] = ((closureN)self_73689)->elts[28];
c_731489.elts[29] = ((closureN)self_73689)->elts[29];
c_731489.elts[30] = ((closureN)self_73689)->elts[30];
c_731489.elts[31] = ((closureN)self_73689)->elts[31];
c_731489.elts[32] = ((closureN)self_73689)->elts[32];
c_731489.elts[33] = ((closureN)self_73689)->elts[33];
c_731489.elts[34] = ((closureN)self_73689)->elts[34];
c_731489.elts[35] = ((closureN)self_73689)->elts[35];
c_731489.elts[36] = ((closureN)self_73689)->elts[36];
c_731489.elts[37] = ((closureN)self_73689)->elts[37];
c_731489.elts[38] = ((closureN)self_73689)->elts[38];


closureN_type c_733092;
c_733092.hdr.mark = gc_color_red;
 c_733092.hdr.grayed = 0;
c_733092.tag = closureN_tag;
 c_733092.fn = (function_type)__lambda_431;
c_733092.num_args = 1;
c_733092.num_elt = 2;
c_733092.elts = (object *)alloca(sizeof(object) * 2);
c_733092.elts[0] = ((closureN)self_73689)->elts[1];
c_733092.elts[1] = ((closureN)self_73689)->elts[2];

return_closcall1(data,(closure)&c_731489,  &c_733092);; 
}

static void __lambda_431(void *data, int argc, object self_73690, object k_73556, object lst_73225) {
  
closureN_type c_733094;
c_733094.hdr.mark = gc_color_red;
 c_733094.hdr.grayed = 0;
c_733094.tag = closureN_tag;
 c_733094.fn = (function_type)__lambda_430;
c_733094.num_args = 1;
c_733094.num_elt = 4;
c_733094.elts = (object *)alloca(sizeof(object) * 4);
c_733094.elts[0] = ((closureN)self_73690)->elts[0];
c_733094.elts[1] = ((closureN)self_73690)->elts[1];
c_733094.elts[2] = k_73556;
c_733094.elts[3] = lst_73225;

return_closcall1(data,(closure)&c_733094,  Cyc_is_null(lst_73225));; 
}

static void __lambda_430(void *data, int argc, object self_73691, object r_73557) {
  if( !eq(boolean_f, r_73557) ){ 
  
closureN_type c_733096;
c_733096.hdr.mark = gc_color_red;
 c_733096.hdr.grayed = 0;
c_733096.tag = closureN_tag;
 c_733096.fn = (function_type)__lambda_425;
c_733096.num_args = 0;
c_733096.num_elt = 1;
c_733096.elts = (object *)alloca(sizeof(object) * 1);
c_733096.elts[0] = ((closureN)self_73691)->elts[2];

return_closcall0(data,(closure)&c_733096);
} else { 
  
closureN_type c_733100;
c_733100.hdr.mark = gc_color_red;
 c_733100.hdr.grayed = 0;
c_733100.tag = closureN_tag;
 c_733100.fn = (function_type)__lambda_429;
c_733100.num_args = 0;
c_733100.num_elt = 4;
c_733100.elts = (object *)alloca(sizeof(object) * 4);
c_733100.elts[0] = ((closureN)self_73691)->elts[0];
c_733100.elts[1] = ((closureN)self_73691)->elts[1];
c_733100.elts[2] = ((closureN)self_73691)->elts[2];
c_733100.elts[3] = ((closureN)self_73691)->elts[3];

return_closcall0(data,(closure)&c_733100);}
; 
}

static void __lambda_429(void *data, int argc, object self_73692) {
  
closureN_type c_733102;
c_733102.hdr.mark = gc_color_red;
 c_733102.hdr.grayed = 0;
c_733102.tag = closureN_tag;
 c_733102.fn = (function_type)__lambda_428;
c_733102.num_args = 1;
c_733102.num_elt = 4;
c_733102.elts = (object *)alloca(sizeof(object) * 4);
c_733102.elts[0] = ((closureN)self_73692)->elts[0];
c_733102.elts[1] = ((closureN)self_73692)->elts[1];
c_733102.elts[2] = ((closureN)self_73692)->elts[2];
c_733102.elts[3] = ((closureN)self_73692)->elts[3];

return_closcall1(data,(closure)&c_733102,  car(((closureN)self_73692)->elts[3]));; 
}

static void __lambda_428(void *data, int argc, object self_73693, object r_73560) {
  
closureN_type c_733107;
c_733107.hdr.mark = gc_color_red;
 c_733107.hdr.grayed = 0;
c_733107.tag = closureN_tag;
 c_733107.fn = (function_type)__lambda_427;
c_733107.num_args = 1;
c_733107.num_elt = 3;
c_733107.elts = (object *)alloca(sizeof(object) * 3);
c_733107.elts[0] = ((closureN)self_73693)->elts[1];
c_733107.elts[1] = ((closureN)self_73693)->elts[2];
c_733107.elts[2] = ((closureN)self_73693)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73693)->elts[0]),  &c_733107, r_73560);; 
}

static void __lambda_427(void *data, int argc, object self_73694, object r_73558) {
  
closureN_type c_733109;
c_733109.hdr.mark = gc_color_red;
 c_733109.hdr.grayed = 0;
c_733109.tag = closureN_tag;
 c_733109.fn = (function_type)__lambda_426;
c_733109.num_args = 1;
c_733109.num_elt = 2;
c_733109.elts = (object *)alloca(sizeof(object) * 2);
c_733109.elts[0] = ((closureN)self_73694)->elts[0];
c_733109.elts[1] = ((closureN)self_73694)->elts[1];

return_closcall1(data,(closure)&c_733109,  cdr(((closureN)self_73694)->elts[2]));; 
}

static void __lambda_426(void *data, int argc, object self_73695, object r_73559) {
  return_closcall2(data,  cell_get(((closureN)self_73695)->elts[0]),  ((closureN)self_73695)->elts[1], r_73559);; 
}

static void __lambda_425(void *data, int argc, object self_73696) {
  return_closcall1(data,  ((closureN)self_73696)->elts[0],  boolean_t);; 
}

static void __lambda_424(void *data, int argc, object self_73697, object r_73555) {
  
closureN_type c_731491;
c_731491.hdr.mark = gc_color_red;
 c_731491.hdr.grayed = 0;
c_731491.tag = closureN_tag;
 c_731491.fn = (function_type)__lambda_423;
c_731491.num_args = 1;
c_731491.num_elt = 38;
c_731491.elts = (object *)alloca(sizeof(object) * 38);
c_731491.elts[0] = ((closureN)self_73697)->elts[0];
c_731491.elts[1] = ((closureN)self_73697)->elts[1];
c_731491.elts[2] = ((closureN)self_73697)->elts[3];
c_731491.elts[3] = ((closureN)self_73697)->elts[4];
c_731491.elts[4] = ((closureN)self_73697)->elts[5];
c_731491.elts[5] = ((closureN)self_73697)->elts[6];
c_731491.elts[6] = ((closureN)self_73697)->elts[7];
c_731491.elts[7] = ((closureN)self_73697)->elts[8];
c_731491.elts[8] = ((closureN)self_73697)->elts[9];
c_731491.elts[9] = ((closureN)self_73697)->elts[10];
c_731491.elts[10] = ((closureN)self_73697)->elts[11];
c_731491.elts[11] = ((closureN)self_73697)->elts[12];
c_731491.elts[12] = ((closureN)self_73697)->elts[13];
c_731491.elts[13] = ((closureN)self_73697)->elts[14];
c_731491.elts[14] = ((closureN)self_73697)->elts[15];
c_731491.elts[15] = ((closureN)self_73697)->elts[16];
c_731491.elts[16] = ((closureN)self_73697)->elts[17];
c_731491.elts[17] = ((closureN)self_73697)->elts[18];
c_731491.elts[18] = ((closureN)self_73697)->elts[19];
c_731491.elts[19] = ((closureN)self_73697)->elts[20];
c_731491.elts[20] = ((closureN)self_73697)->elts[21];
c_731491.elts[21] = ((closureN)self_73697)->elts[22];
c_731491.elts[22] = ((closureN)self_73697)->elts[23];
c_731491.elts[23] = ((closureN)self_73697)->elts[24];
c_731491.elts[24] = ((closureN)self_73697)->elts[25];
c_731491.elts[25] = ((closureN)self_73697)->elts[26];
c_731491.elts[26] = ((closureN)self_73697)->elts[27];
c_731491.elts[27] = ((closureN)self_73697)->elts[28];
c_731491.elts[28] = ((closureN)self_73697)->elts[29];
c_731491.elts[29] = ((closureN)self_73697)->elts[30];
c_731491.elts[30] = ((closureN)self_73697)->elts[31];
c_731491.elts[31] = ((closureN)self_73697)->elts[32];
c_731491.elts[32] = ((closureN)self_73697)->elts[33];
c_731491.elts[33] = ((closureN)self_73697)->elts[34];
c_731491.elts[34] = ((closureN)self_73697)->elts[35];
c_731491.elts[35] = ((closureN)self_73697)->elts[36];
c_731491.elts[36] = ((closureN)self_73697)->elts[37];
c_731491.elts[37] = ((closureN)self_73697)->elts[38];

return_closcall1(data,(closure)&c_731491,  Cyc_set_car(data, ((closureN)self_73697)->elts[2], r_73555));; 
}

static void __lambda_423(void *data, int argc, object self_73698, object r_73266) {
  
closureN_type c_731493;
c_731493.hdr.mark = gc_color_red;
 c_731493.hdr.grayed = 0;
c_731493.tag = closureN_tag;
 c_731493.fn = (function_type)__lambda_403;
c_731493.num_args = 1;
c_731493.num_elt = 38;
c_731493.elts = (object *)alloca(sizeof(object) * 38);
c_731493.elts[0] = ((closureN)self_73698)->elts[0];
c_731493.elts[1] = ((closureN)self_73698)->elts[1];
c_731493.elts[2] = ((closureN)self_73698)->elts[2];
c_731493.elts[3] = ((closureN)self_73698)->elts[3];
c_731493.elts[4] = ((closureN)self_73698)->elts[4];
c_731493.elts[5] = ((closureN)self_73698)->elts[5];
c_731493.elts[6] = ((closureN)self_73698)->elts[6];
c_731493.elts[7] = ((closureN)self_73698)->elts[7];
c_731493.elts[8] = ((closureN)self_73698)->elts[8];
c_731493.elts[9] = ((closureN)self_73698)->elts[9];
c_731493.elts[10] = ((closureN)self_73698)->elts[10];
c_731493.elts[11] = ((closureN)self_73698)->elts[11];
c_731493.elts[12] = ((closureN)self_73698)->elts[12];
c_731493.elts[13] = ((closureN)self_73698)->elts[13];
c_731493.elts[14] = ((closureN)self_73698)->elts[14];
c_731493.elts[15] = ((closureN)self_73698)->elts[15];
c_731493.elts[16] = ((closureN)self_73698)->elts[16];
c_731493.elts[17] = ((closureN)self_73698)->elts[17];
c_731493.elts[18] = ((closureN)self_73698)->elts[18];
c_731493.elts[19] = ((closureN)self_73698)->elts[19];
c_731493.elts[20] = ((closureN)self_73698)->elts[20];
c_731493.elts[21] = ((closureN)self_73698)->elts[21];
c_731493.elts[22] = ((closureN)self_73698)->elts[22];
c_731493.elts[23] = ((closureN)self_73698)->elts[23];
c_731493.elts[24] = ((closureN)self_73698)->elts[24];
c_731493.elts[25] = ((closureN)self_73698)->elts[25];
c_731493.elts[26] = ((closureN)self_73698)->elts[26];
c_731493.elts[27] = ((closureN)self_73698)->elts[27];
c_731493.elts[28] = ((closureN)self_73698)->elts[28];
c_731493.elts[29] = ((closureN)self_73698)->elts[29];
c_731493.elts[30] = ((closureN)self_73698)->elts[30];
c_731493.elts[31] = ((closureN)self_73698)->elts[31];
c_731493.elts[32] = ((closureN)self_73698)->elts[32];
c_731493.elts[33] = ((closureN)self_73698)->elts[33];
c_731493.elts[34] = ((closureN)self_73698)->elts[34];
c_731493.elts[35] = ((closureN)self_73698)->elts[35];
c_731493.elts[36] = ((closureN)self_73698)->elts[36];
c_731493.elts[37] = ((closureN)self_73698)->elts[37];


closureN_type c_733000;
c_733000.hdr.mark = gc_color_red;
 c_733000.hdr.grayed = 0;
c_733000.tag = closureN_tag;
 c_733000.fn = (function_type)__lambda_422;
c_733000.num_args = 1;
c_733000.num_elt = 3;
c_733000.elts = (object *)alloca(sizeof(object) * 3);
c_733000.elts[0] = ((closureN)self_73698)->elts[6];
c_733000.elts[1] = ((closureN)self_73698)->elts[14];
c_733000.elts[2] = ((closureN)self_73698)->elts[33];

return_closcall1(data,(closure)&c_731493,  &c_733000);; 
}

static void __lambda_422(void *data, int argc, object self_73699, object k_73538, object term_73224) {
  
closureN_type c_733002;
c_733002.hdr.mark = gc_color_red;
 c_733002.hdr.grayed = 0;
c_733002.tag = closureN_tag;
 c_733002.fn = (function_type)__lambda_409;
c_733002.num_args = 0;
c_733002.num_elt = 1;
c_733002.elts = (object *)alloca(sizeof(object) * 1);
c_733002.elts[0] = term_73224;


closureN_type c_733033;
c_733033.hdr.mark = gc_color_red;
 c_733033.hdr.grayed = 0;
c_733033.tag = closureN_tag;
 c_733033.fn = (function_type)__lambda_421;
c_733033.num_args = 1;
c_733033.num_elt = 5;
c_733033.elts = (object *)alloca(sizeof(object) * 5);
c_733033.elts[0] = ((closureN)self_73699)->elts[0];
c_733033.elts[1] = k_73538;
c_733033.elts[2] = ((closureN)self_73699)->elts[1];
c_733033.elts[3] = term_73224;
c_733033.elts[4] = ((closureN)self_73699)->elts[2];

return_closcall1(data,(closure)&c_733002,  &c_733033);; 
}

static void __lambda_421(void *data, int argc, object self_73700, object r_73539) {
  if( !eq(boolean_f, r_73539) ){ 
  
closureN_type c_733035;
c_733035.hdr.mark = gc_color_red;
 c_733035.hdr.grayed = 0;
c_733035.tag = closureN_tag;
 c_733035.fn = (function_type)__lambda_419;
c_733035.num_args = 0;
c_733035.num_elt = 5;
c_733035.elts = (object *)alloca(sizeof(object) * 5);
c_733035.elts[0] = ((closureN)self_73700)->elts[0];
c_733035.elts[1] = ((closureN)self_73700)->elts[1];
c_733035.elts[2] = ((closureN)self_73700)->elts[2];
c_733035.elts[3] = ((closureN)self_73700)->elts[3];
c_733035.elts[4] = ((closureN)self_73700)->elts[4];

return_closcall0(data,(closure)&c_733035);
} else { 
  
closureN_type c_733084;
c_733084.hdr.mark = gc_color_red;
 c_733084.hdr.grayed = 0;
c_733084.tag = closureN_tag;
 c_733084.fn = (function_type)__lambda_420;
c_733084.num_args = 0;
c_733084.num_elt = 2;
c_733084.elts = (object *)alloca(sizeof(object) * 2);
c_733084.elts[0] = ((closureN)self_73700)->elts[1];
c_733084.elts[1] = ((closureN)self_73700)->elts[3];

return_closcall0(data,(closure)&c_733084);}
; 
}

static void __lambda_420(void *data, int argc, object self_73701) {
  
make_string(c_733087, "ADD-LEMMA did not like term:  ");
return_closcall4(data,  __glo_error_scheme_base,  ((closureN)self_73701)->elts[0], boolean_f, &c_733087, ((closureN)self_73701)->elts[1]);; 
}

static void __lambda_419(void *data, int argc, object self_73702) {
  
closureN_type c_733037;
c_733037.hdr.mark = gc_color_red;
 c_733037.hdr.grayed = 0;
c_733037.tag = closureN_tag;
 c_733037.fn = (function_type)__lambda_418;
c_733037.num_args = 1;
c_733037.num_elt = 5;
c_733037.elts = (object *)alloca(sizeof(object) * 5);
c_733037.elts[0] = ((closureN)self_73702)->elts[0];
c_733037.elts[1] = ((closureN)self_73702)->elts[1];
c_733037.elts[2] = ((closureN)self_73702)->elts[2];
c_733037.elts[3] = ((closureN)self_73702)->elts[3];
c_733037.elts[4] = ((closureN)self_73702)->elts[4];

return_closcall1(data,(closure)&c_733037,  cadr(((closureN)self_73702)->elts[3]));; 
}

static void __lambda_418(void *data, int argc, object self_73703, object r_73548) {
  
closureN_type c_733039;
c_733039.hdr.mark = gc_color_red;
 c_733039.hdr.grayed = 0;
c_733039.tag = closureN_tag;
 c_733039.fn = (function_type)__lambda_417;
c_733039.num_args = 1;
c_733039.num_elt = 5;
c_733039.elts = (object *)alloca(sizeof(object) * 5);
c_733039.elts[0] = ((closureN)self_73703)->elts[0];
c_733039.elts[1] = ((closureN)self_73703)->elts[1];
c_733039.elts[2] = ((closureN)self_73703)->elts[2];
c_733039.elts[3] = ((closureN)self_73703)->elts[3];
c_733039.elts[4] = ((closureN)self_73703)->elts[4];

return_closcall1(data,(closure)&c_733039,  car(r_73548));; 
}

static void __lambda_417(void *data, int argc, object self_73704, object r_73540) {
  
closureN_type c_733041;
c_733041.hdr.mark = gc_color_red;
 c_733041.hdr.grayed = 0;
c_733041.tag = closureN_tag;
 c_733041.fn = (function_type)__lambda_416;
c_733041.num_args = 1;
c_733041.num_elt = 6;
c_733041.elts = (object *)alloca(sizeof(object) * 6);
c_733041.elts[0] = ((closureN)self_73704)->elts[0];
c_733041.elts[1] = ((closureN)self_73704)->elts[1];
c_733041.elts[2] = ((closureN)self_73704)->elts[2];
c_733041.elts[3] = r_73540;
c_733041.elts[4] = ((closureN)self_73704)->elts[3];
c_733041.elts[5] = ((closureN)self_73704)->elts[4];

return_closcall1(data,(closure)&c_733041,  quote_lemmas);; 
}

static void __lambda_416(void *data, int argc, object self_73705, object r_73541) {
  
closureN_type c_733046;
c_733046.hdr.mark = gc_color_red;
 c_733046.hdr.grayed = 0;
c_733046.tag = closureN_tag;
 c_733046.fn = (function_type)__lambda_415;
c_733046.num_args = 1;
c_733046.num_elt = 6;
c_733046.elts = (object *)alloca(sizeof(object) * 6);
c_733046.elts[0] = ((closureN)self_73705)->elts[0];
c_733046.elts[1] = ((closureN)self_73705)->elts[1];
c_733046.elts[2] = ((closureN)self_73705)->elts[2];
c_733046.elts[3] = ((closureN)self_73705)->elts[3];
c_733046.elts[4] = r_73541;
c_733046.elts[5] = ((closureN)self_73705)->elts[4];

return_closcall2(data,  cell_get(((closureN)self_73705)->elts[5]),  &c_733046, ((closureN)self_73705)->elts[4]);; 
}

static void __lambda_415(void *data, int argc, object self_73706, object r_73543) {
  
closureN_type c_733048;
c_733048.hdr.mark = gc_color_red;
 c_733048.hdr.grayed = 0;
c_733048.tag = closureN_tag;
 c_733048.fn = (function_type)__lambda_414;
c_733048.num_args = 1;
c_733048.num_elt = 6;
c_733048.elts = (object *)alloca(sizeof(object) * 6);
c_733048.elts[0] = ((closureN)self_73706)->elts[0];
c_733048.elts[1] = ((closureN)self_73706)->elts[1];
c_733048.elts[2] = ((closureN)self_73706)->elts[2];
c_733048.elts[3] = ((closureN)self_73706)->elts[3];
c_733048.elts[4] = ((closureN)self_73706)->elts[4];
c_733048.elts[5] = r_73543;

return_closcall1(data,(closure)&c_733048,  cadr(((closureN)self_73706)->elts[5]));; 
}

static void __lambda_414(void *data, int argc, object self_73707, object r_73547) {
  
closureN_type c_733050;
c_733050.hdr.mark = gc_color_red;
 c_733050.hdr.grayed = 0;
c_733050.tag = closureN_tag;
 c_733050.fn = (function_type)__lambda_413;
c_733050.num_args = 1;
c_733050.num_elt = 6;
c_733050.elts = (object *)alloca(sizeof(object) * 6);
c_733050.elts[0] = ((closureN)self_73707)->elts[0];
c_733050.elts[1] = ((closureN)self_73707)->elts[1];
c_733050.elts[2] = ((closureN)self_73707)->elts[2];
c_733050.elts[3] = ((closureN)self_73707)->elts[3];
c_733050.elts[4] = ((closureN)self_73707)->elts[4];
c_733050.elts[5] = ((closureN)self_73707)->elts[5];

return_closcall1(data,(closure)&c_733050,  car(r_73547));; 
}

static void __lambda_413(void *data, int argc, object self_73708, object r_73545) {
  
closureN_type c_733052;
c_733052.hdr.mark = gc_color_red;
 c_733052.hdr.grayed = 0;
c_733052.tag = closureN_tag;
 c_733052.fn = (function_type)__lambda_412;
c_733052.num_args = 1;
c_733052.num_elt = 7;
c_733052.elts = (object *)alloca(sizeof(object) * 7);
c_733052.elts[0] = ((closureN)self_73708)->elts[0];
c_733052.elts[1] = ((closureN)self_73708)->elts[1];
c_733052.elts[2] = ((closureN)self_73708)->elts[2];
c_733052.elts[3] = ((closureN)self_73708)->elts[3];
c_733052.elts[4] = ((closureN)self_73708)->elts[4];
c_733052.elts[5] = ((closureN)self_73708)->elts[5];
c_733052.elts[6] = r_73545;

return_closcall1(data,(closure)&c_733052,  quote_lemmas);; 
}

static void __lambda_412(void *data, int argc, object self_73709, object r_73546) {
  
closureN_type c_733057;
c_733057.hdr.mark = gc_color_red;
 c_733057.hdr.grayed = 0;
c_733057.tag = closureN_tag;
 c_733057.fn = (function_type)__lambda_411;
c_733057.num_args = 1;
c_733057.num_elt = 5;
c_733057.elts = (object *)alloca(sizeof(object) * 5);
c_733057.elts[0] = ((closureN)self_73709)->elts[1];
c_733057.elts[1] = ((closureN)self_73709)->elts[2];
c_733057.elts[2] = ((closureN)self_73709)->elts[3];
c_733057.elts[3] = ((closureN)self_73709)->elts[4];
c_733057.elts[4] = ((closureN)self_73709)->elts[5];

return_closcall3(data,  cell_get(((closureN)self_73709)->elts[0]),  &c_733057, ((closureN)self_73709)->elts[6], r_73546);; 
}

static void __lambda_411(void *data, int argc, object self_73710, object r_73544) {
  
closureN_type c_733059;
c_733059.hdr.mark = gc_color_red;
 c_733059.hdr.grayed = 0;
c_733059.tag = closureN_tag;
 c_733059.fn = (function_type)__lambda_410;
c_733059.num_args = 1;
c_733059.num_elt = 4;
c_733059.elts = (object *)alloca(sizeof(object) * 4);
c_733059.elts[0] = ((closureN)self_73710)->elts[0];
c_733059.elts[1] = ((closureN)self_73710)->elts[1];
c_733059.elts[2] = ((closureN)self_73710)->elts[2];
c_733059.elts[3] = ((closureN)self_73710)->elts[3];


make_cons(c_733069,((closureN)self_73710)->elts[4], r_73544);
return_closcall1(data,(closure)&c_733059,  &c_733069);; 
}

static void __lambda_410(void *data, int argc, object self_73711, object r_73542) {
  return_closcall4(data,  cell_get(((closureN)self_73711)->elts[1]),  ((closureN)self_73711)->elts[0], ((closureN)self_73711)->elts[2], ((closureN)self_73711)->elts[3], r_73542);; 
}

static void __lambda_409(void *data, int argc, object self_73712, object k_73549) {
  
closureN_type c_733004;
c_733004.hdr.mark = gc_color_red;
 c_733004.hdr.grayed = 0;
c_733004.tag = closureN_tag;
 c_733004.fn = (function_type)__lambda_408;
c_733004.num_args = 1;
c_733004.num_elt = 2;
c_733004.elts = (object *)alloca(sizeof(object) * 2);
c_733004.elts[0] = k_73549;
c_733004.elts[1] = ((closureN)self_73712)->elts[0];

return_closcall1(data,(closure)&c_733004,  Cyc_is_cons(((closureN)self_73712)->elts[0]));; 
}

static void __lambda_408(void *data, int argc, object self_73713, object r_73550) {
  if( !eq(boolean_f, r_73550) ){ 
  
closureN_type c_733006;
c_733006.hdr.mark = gc_color_red;
 c_733006.hdr.grayed = 0;
c_733006.tag = closureN_tag;
 c_733006.fn = (function_type)__lambda_407;
c_733006.num_args = 1;
c_733006.num_elt = 2;
c_733006.elts = (object *)alloca(sizeof(object) * 2);
c_733006.elts[0] = ((closureN)self_73713)->elts[0];
c_733006.elts[1] = ((closureN)self_73713)->elts[1];

return_closcall1(data,(closure)&c_733006,  car(((closureN)self_73713)->elts[1]));
} else { 
  return_closcall1(data,  ((closureN)self_73713)->elts[0],  boolean_f);}
; 
}

static void __lambda_407(void *data, int argc, object self_73714, object r_73553) {
  
closureN_type c_733008;
c_733008.hdr.mark = gc_color_red;
 c_733008.hdr.grayed = 0;
c_733008.tag = closureN_tag;
 c_733008.fn = (function_type)__lambda_406;
c_733008.num_args = 1;
c_733008.num_elt = 3;
c_733008.elts = (object *)alloca(sizeof(object) * 3);
c_733008.elts[0] = ((closureN)self_73714)->elts[0];
c_733008.elts[1] = r_73553;
c_733008.elts[2] = ((closureN)self_73714)->elts[1];

return_closcall1(data,(closure)&c_733008,  quote_equal);; 
}

static void __lambda_406(void *data, int argc, object self_73715, object r_73554) {
  
closureN_type c_733010;
c_733010.hdr.mark = gc_color_red;
 c_733010.hdr.grayed = 0;
c_733010.tag = closureN_tag;
 c_733010.fn = (function_type)__lambda_405;
c_733010.num_args = 1;
c_733010.num_elt = 2;
c_733010.elts = (object *)alloca(sizeof(object) * 2);
c_733010.elts[0] = ((closureN)self_73715)->elts[0];
c_733010.elts[1] = ((closureN)self_73715)->elts[2];

return_closcall1(data,(closure)&c_733010,  Cyc_eq(((closureN)self_73715)->elts[1], r_73554));; 
}

static void __lambda_405(void *data, int argc, object self_73716, object r_73551) {
  if( !eq(boolean_f, r_73551) ){ 
  
closureN_type c_733012;
c_733012.hdr.mark = gc_color_red;
 c_733012.hdr.grayed = 0;
c_733012.tag = closureN_tag;
 c_733012.fn = (function_type)__lambda_404;
c_733012.num_args = 1;
c_733012.num_elt = 1;
c_733012.elts = (object *)alloca(sizeof(object) * 1);
c_733012.elts[0] = ((closureN)self_73716)->elts[0];

return_closcall1(data,(closure)&c_733012,  cadr(((closureN)self_73716)->elts[1]));
} else { 
  return_closcall1(data,  ((closureN)self_73716)->elts[0],  boolean_f);}
; 
}

static void __lambda_404(void *data, int argc, object self_73717, object r_73552) {
  return_closcall1(data,  ((closureN)self_73717)->elts[0],  Cyc_is_cons(r_73552));; 
}

static void __lambda_403(void *data, int argc, object self_73718, object r_73537) {
  
closureN_type c_731495;
c_731495.hdr.mark = gc_color_red;
 c_731495.hdr.grayed = 0;
c_731495.tag = closureN_tag;
 c_731495.fn = (function_type)__lambda_402;
c_731495.num_args = 1;
c_731495.num_elt = 37;
c_731495.elts = (object *)alloca(sizeof(object) * 37);
c_731495.elts[0] = ((closureN)self_73718)->elts[0];
c_731495.elts[1] = ((closureN)self_73718)->elts[2];
c_731495.elts[2] = ((closureN)self_73718)->elts[3];
c_731495.elts[3] = ((closureN)self_73718)->elts[4];
c_731495.elts[4] = ((closureN)self_73718)->elts[5];
c_731495.elts[5] = ((closureN)self_73718)->elts[6];
c_731495.elts[6] = ((closureN)self_73718)->elts[7];
c_731495.elts[7] = ((closureN)self_73718)->elts[8];
c_731495.elts[8] = ((closureN)self_73718)->elts[9];
c_731495.elts[9] = ((closureN)self_73718)->elts[10];
c_731495.elts[10] = ((closureN)self_73718)->elts[11];
c_731495.elts[11] = ((closureN)self_73718)->elts[12];
c_731495.elts[12] = ((closureN)self_73718)->elts[13];
c_731495.elts[13] = ((closureN)self_73718)->elts[14];
c_731495.elts[14] = ((closureN)self_73718)->elts[15];
c_731495.elts[15] = ((closureN)self_73718)->elts[16];
c_731495.elts[16] = ((closureN)self_73718)->elts[17];
c_731495.elts[17] = ((closureN)self_73718)->elts[18];
c_731495.elts[18] = ((closureN)self_73718)->elts[19];
c_731495.elts[19] = ((closureN)self_73718)->elts[20];
c_731495.elts[20] = ((closureN)self_73718)->elts[21];
c_731495.elts[21] = ((closureN)self_73718)->elts[22];
c_731495.elts[22] = ((closureN)self_73718)->elts[23];
c_731495.elts[23] = ((closureN)self_73718)->elts[24];
c_731495.elts[24] = ((closureN)self_73718)->elts[25];
c_731495.elts[25] = ((closureN)self_73718)->elts[26];
c_731495.elts[26] = ((closureN)self_73718)->elts[27];
c_731495.elts[27] = ((closureN)self_73718)->elts[28];
c_731495.elts[28] = ((closureN)self_73718)->elts[29];
c_731495.elts[29] = ((closureN)self_73718)->elts[30];
c_731495.elts[30] = ((closureN)self_73718)->elts[31];
c_731495.elts[31] = ((closureN)self_73718)->elts[32];
c_731495.elts[32] = ((closureN)self_73718)->elts[33];
c_731495.elts[33] = ((closureN)self_73718)->elts[34];
c_731495.elts[34] = ((closureN)self_73718)->elts[35];
c_731495.elts[35] = ((closureN)self_73718)->elts[36];
c_731495.elts[36] = ((closureN)self_73718)->elts[37];

return_closcall1(data,(closure)&c_731495,  Cyc_set_car(data, ((closureN)self_73718)->elts[1], r_73537));; 
}

static void __lambda_402(void *data, int argc, object self_73719, object r_73267) {
  
closureN_type c_731497;
c_731497.hdr.mark = gc_color_red;
 c_731497.hdr.grayed = 0;
c_731497.tag = closureN_tag;
 c_731497.fn = (function_type)__lambda_393;
c_731497.num_args = 1;
c_731497.num_elt = 37;
c_731497.elts = (object *)alloca(sizeof(object) * 37);
c_731497.elts[0] = ((closureN)self_73719)->elts[0];
c_731497.elts[1] = ((closureN)self_73719)->elts[1];
c_731497.elts[2] = ((closureN)self_73719)->elts[2];
c_731497.elts[3] = ((closureN)self_73719)->elts[3];
c_731497.elts[4] = ((closureN)self_73719)->elts[4];
c_731497.elts[5] = ((closureN)self_73719)->elts[5];
c_731497.elts[6] = ((closureN)self_73719)->elts[6];
c_731497.elts[7] = ((closureN)self_73719)->elts[7];
c_731497.elts[8] = ((closureN)self_73719)->elts[8];
c_731497.elts[9] = ((closureN)self_73719)->elts[9];
c_731497.elts[10] = ((closureN)self_73719)->elts[10];
c_731497.elts[11] = ((closureN)self_73719)->elts[11];
c_731497.elts[12] = ((closureN)self_73719)->elts[12];
c_731497.elts[13] = ((closureN)self_73719)->elts[13];
c_731497.elts[14] = ((closureN)self_73719)->elts[14];
c_731497.elts[15] = ((closureN)self_73719)->elts[15];
c_731497.elts[16] = ((closureN)self_73719)->elts[16];
c_731497.elts[17] = ((closureN)self_73719)->elts[17];
c_731497.elts[18] = ((closureN)self_73719)->elts[18];
c_731497.elts[19] = ((closureN)self_73719)->elts[19];
c_731497.elts[20] = ((closureN)self_73719)->elts[20];
c_731497.elts[21] = ((closureN)self_73719)->elts[21];
c_731497.elts[22] = ((closureN)self_73719)->elts[22];
c_731497.elts[23] = ((closureN)self_73719)->elts[23];
c_731497.elts[24] = ((closureN)self_73719)->elts[24];
c_731497.elts[25] = ((closureN)self_73719)->elts[25];
c_731497.elts[26] = ((closureN)self_73719)->elts[26];
c_731497.elts[27] = ((closureN)self_73719)->elts[27];
c_731497.elts[28] = ((closureN)self_73719)->elts[28];
c_731497.elts[29] = ((closureN)self_73719)->elts[29];
c_731497.elts[30] = ((closureN)self_73719)->elts[30];
c_731497.elts[31] = ((closureN)self_73719)->elts[31];
c_731497.elts[32] = ((closureN)self_73719)->elts[32];
c_731497.elts[33] = ((closureN)self_73719)->elts[33];
c_731497.elts[34] = ((closureN)self_73719)->elts[34];
c_731497.elts[35] = ((closureN)self_73719)->elts[35];
c_731497.elts[36] = ((closureN)self_73719)->elts[36];


closureN_type c_732959;
c_732959.hdr.mark = gc_color_red;
 c_732959.hdr.grayed = 0;
c_732959.tag = closureN_tag;
 c_732959.fn = (function_type)__lambda_401;
c_732959.num_args = 1;
c_732959.num_elt = 2;
c_732959.elts = (object *)alloca(sizeof(object) * 2);
c_732959.elts[0] = ((closureN)self_73719)->elts[20];
c_732959.elts[1] = ((closureN)self_73719)->elts[31];

return_closcall1(data,(closure)&c_731497,  &c_732959);; 
}

static void __lambda_401(void *data, int argc, object self_73720, object k_73531, object term_73223) {
  
closureN_type c_732961;
c_732961.hdr.mark = gc_color_red;
 c_732961.hdr.grayed = 0;
c_732961.tag = closureN_tag;
 c_732961.fn = (function_type)__lambda_400;
c_732961.num_args = 1;
c_732961.num_elt = 4;
c_732961.elts = (object *)alloca(sizeof(object) * 4);
c_732961.elts[0] = k_73531;
c_732961.elts[1] = ((closureN)self_73720)->elts[0];
c_732961.elts[2] = term_73223;
c_732961.elts[3] = ((closureN)self_73720)->elts[1];

return_closcall1(data,(closure)&c_732961,  Cyc_is_cons(term_73223));; 
}

static void __lambda_400(void *data, int argc, object self_73721, object r_73532) {
  if( !eq(boolean_f, r_73532) ){ 
  
closureN_type c_732963;
c_732963.hdr.mark = gc_color_red;
 c_732963.hdr.grayed = 0;
c_732963.tag = closureN_tag;
 c_732963.fn = (function_type)__lambda_398;
c_732963.num_args = 0;
c_732963.num_elt = 4;
c_732963.elts = (object *)alloca(sizeof(object) * 4);
c_732963.elts[0] = ((closureN)self_73721)->elts[0];
c_732963.elts[1] = ((closureN)self_73721)->elts[1];
c_732963.elts[2] = ((closureN)self_73721)->elts[2];
c_732963.elts[3] = ((closureN)self_73721)->elts[3];

return_closcall0(data,(closure)&c_732963);
} else { 
  
closureN_type c_732991;
c_732991.hdr.mark = gc_color_red;
 c_732991.hdr.grayed = 0;
c_732991.tag = closureN_tag;
 c_732991.fn = (function_type)__lambda_399;
c_732991.num_args = 0;
c_732991.num_elt = 2;
c_732991.elts = (object *)alloca(sizeof(object) * 2);
c_732991.elts[0] = ((closureN)self_73721)->elts[0];
c_732991.elts[1] = ((closureN)self_73721)->elts[2];

return_closcall0(data,(closure)&c_732991);}
; 
}

static void __lambda_399(void *data, int argc, object self_73722) {
  return_closcall1(data,  ((closureN)self_73722)->elts[0],  ((closureN)self_73722)->elts[1]);; 
}

static void __lambda_398(void *data, int argc, object self_73723) {
  
closureN_type c_732965;
c_732965.hdr.mark = gc_color_red;
 c_732965.hdr.grayed = 0;
c_732965.tag = closureN_tag;
 c_732965.fn = (function_type)__lambda_397;
c_732965.num_args = 1;
c_732965.num_elt = 4;
c_732965.elts = (object *)alloca(sizeof(object) * 4);
c_732965.elts[0] = ((closureN)self_73723)->elts[0];
c_732965.elts[1] = ((closureN)self_73723)->elts[1];
c_732965.elts[2] = ((closureN)self_73723)->elts[2];
c_732965.elts[3] = ((closureN)self_73723)->elts[3];

return_closcall1(data,(closure)&c_732965,  car(((closureN)self_73723)->elts[2]));; 
}

static void __lambda_397(void *data, int argc, object self_73724, object r_73536) {
  
closureN_type c_732970;
c_732970.hdr.mark = gc_color_red;
 c_732970.hdr.grayed = 0;
c_732970.tag = closureN_tag;
 c_732970.fn = (function_type)__lambda_396;
c_732970.num_args = 1;
c_732970.num_elt = 3;
c_732970.elts = (object *)alloca(sizeof(object) * 3);
c_732970.elts[0] = ((closureN)self_73724)->elts[0];
c_732970.elts[1] = ((closureN)self_73724)->elts[2];
c_732970.elts[2] = ((closureN)self_73724)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73724)->elts[1]),  &c_732970, r_73536);; 
}

static void __lambda_396(void *data, int argc, object self_73725, object r_73533) {
  
closureN_type c_732972;
c_732972.hdr.mark = gc_color_red;
 c_732972.hdr.grayed = 0;
c_732972.tag = closureN_tag;
 c_732972.fn = (function_type)__lambda_395;
c_732972.num_args = 1;
c_732972.num_elt = 3;
c_732972.elts = (object *)alloca(sizeof(object) * 3);
c_732972.elts[0] = ((closureN)self_73725)->elts[0];
c_732972.elts[1] = r_73533;
c_732972.elts[2] = ((closureN)self_73725)->elts[2];

return_closcall1(data,(closure)&c_732972,  cdr(((closureN)self_73725)->elts[1]));; 
}

static void __lambda_395(void *data, int argc, object self_73726, object r_73535) {
  
closureN_type c_732977;
c_732977.hdr.mark = gc_color_red;
 c_732977.hdr.grayed = 0;
c_732977.tag = closureN_tag;
 c_732977.fn = (function_type)__lambda_394;
c_732977.num_args = 1;
c_732977.num_elt = 2;
c_732977.elts = (object *)alloca(sizeof(object) * 2);
c_732977.elts[0] = ((closureN)self_73726)->elts[0];
c_732977.elts[1] = ((closureN)self_73726)->elts[1];

return_closcall2(data,  cell_get(((closureN)self_73726)->elts[2]),  &c_732977, r_73535);; 
}

static void __lambda_394(void *data, int argc, object self_73727, object r_73534) {
  
make_cons(c_732982,((closureN)self_73727)->elts[1], r_73534);
return_closcall1(data,  ((closureN)self_73727)->elts[0],  &c_732982);; 
}

static void __lambda_393(void *data, int argc, object self_73728, object r_73530) {
  
closureN_type c_731499;
c_731499.hdr.mark = gc_color_red;
 c_731499.hdr.grayed = 0;
c_731499.tag = closureN_tag;
 c_731499.fn = (function_type)__lambda_392;
c_731499.num_args = 1;
c_731499.num_elt = 37;
c_731499.elts = (object *)alloca(sizeof(object) * 37);
c_731499.elts[0] = ((closureN)self_73728)->elts[0];
c_731499.elts[1] = ((closureN)self_73728)->elts[1];
c_731499.elts[2] = ((closureN)self_73728)->elts[2];
c_731499.elts[3] = ((closureN)self_73728)->elts[3];
c_731499.elts[4] = ((closureN)self_73728)->elts[4];
c_731499.elts[5] = ((closureN)self_73728)->elts[5];
c_731499.elts[6] = ((closureN)self_73728)->elts[6];
c_731499.elts[7] = ((closureN)self_73728)->elts[7];
c_731499.elts[8] = ((closureN)self_73728)->elts[8];
c_731499.elts[9] = ((closureN)self_73728)->elts[9];
c_731499.elts[10] = ((closureN)self_73728)->elts[10];
c_731499.elts[11] = ((closureN)self_73728)->elts[11];
c_731499.elts[12] = ((closureN)self_73728)->elts[12];
c_731499.elts[13] = ((closureN)self_73728)->elts[13];
c_731499.elts[14] = ((closureN)self_73728)->elts[14];
c_731499.elts[15] = ((closureN)self_73728)->elts[15];
c_731499.elts[16] = ((closureN)self_73728)->elts[16];
c_731499.elts[17] = ((closureN)self_73728)->elts[17];
c_731499.elts[18] = ((closureN)self_73728)->elts[18];
c_731499.elts[19] = ((closureN)self_73728)->elts[19];
c_731499.elts[20] = ((closureN)self_73728)->elts[20];
c_731499.elts[21] = ((closureN)self_73728)->elts[21];
c_731499.elts[22] = ((closureN)self_73728)->elts[22];
c_731499.elts[23] = ((closureN)self_73728)->elts[23];
c_731499.elts[24] = ((closureN)self_73728)->elts[24];
c_731499.elts[25] = ((closureN)self_73728)->elts[25];
c_731499.elts[26] = ((closureN)self_73728)->elts[26];
c_731499.elts[27] = ((closureN)self_73728)->elts[27];
c_731499.elts[28] = ((closureN)self_73728)->elts[28];
c_731499.elts[29] = ((closureN)self_73728)->elts[29];
c_731499.elts[30] = ((closureN)self_73728)->elts[30];
c_731499.elts[31] = ((closureN)self_73728)->elts[31];
c_731499.elts[32] = ((closureN)self_73728)->elts[32];
c_731499.elts[33] = ((closureN)self_73728)->elts[33];
c_731499.elts[34] = ((closureN)self_73728)->elts[34];
c_731499.elts[35] = ((closureN)self_73728)->elts[35];
c_731499.elts[36] = ((closureN)self_73728)->elts[36];

return_closcall1(data,(closure)&c_731499,  Cyc_set_car(data, ((closureN)self_73728)->elts[32], r_73530));; 
}

static void __lambda_392(void *data, int argc, object self_73729, object r_73268) {
  
closureN_type c_731501;
c_731501.hdr.mark = gc_color_red;
 c_731501.hdr.grayed = 0;
c_731501.tag = closureN_tag;
 c_731501.fn = (function_type)__lambda_383;
c_731501.num_args = 1;
c_731501.num_elt = 37;
c_731501.elts = (object *)alloca(sizeof(object) * 37);
c_731501.elts[0] = ((closureN)self_73729)->elts[0];
c_731501.elts[1] = ((closureN)self_73729)->elts[1];
c_731501.elts[2] = ((closureN)self_73729)->elts[2];
c_731501.elts[3] = ((closureN)self_73729)->elts[3];
c_731501.elts[4] = ((closureN)self_73729)->elts[4];
c_731501.elts[5] = ((closureN)self_73729)->elts[5];
c_731501.elts[6] = ((closureN)self_73729)->elts[6];
c_731501.elts[7] = ((closureN)self_73729)->elts[7];
c_731501.elts[8] = ((closureN)self_73729)->elts[8];
c_731501.elts[9] = ((closureN)self_73729)->elts[9];
c_731501.elts[10] = ((closureN)self_73729)->elts[10];
c_731501.elts[11] = ((closureN)self_73729)->elts[11];
c_731501.elts[12] = ((closureN)self_73729)->elts[12];
c_731501.elts[13] = ((closureN)self_73729)->elts[13];
c_731501.elts[14] = ((closureN)self_73729)->elts[14];
c_731501.elts[15] = ((closureN)self_73729)->elts[15];
c_731501.elts[16] = ((closureN)self_73729)->elts[16];
c_731501.elts[17] = ((closureN)self_73729)->elts[17];
c_731501.elts[18] = ((closureN)self_73729)->elts[18];
c_731501.elts[19] = ((closureN)self_73729)->elts[19];
c_731501.elts[20] = ((closureN)self_73729)->elts[20];
c_731501.elts[21] = ((closureN)self_73729)->elts[21];
c_731501.elts[22] = ((closureN)self_73729)->elts[22];
c_731501.elts[23] = ((closureN)self_73729)->elts[23];
c_731501.elts[24] = ((closureN)self_73729)->elts[24];
c_731501.elts[25] = ((closureN)self_73729)->elts[25];
c_731501.elts[26] = ((closureN)self_73729)->elts[26];
c_731501.elts[27] = ((closureN)self_73729)->elts[27];
c_731501.elts[28] = ((closureN)self_73729)->elts[28];
c_731501.elts[29] = ((closureN)self_73729)->elts[29];
c_731501.elts[30] = ((closureN)self_73729)->elts[30];
c_731501.elts[31] = ((closureN)self_73729)->elts[31];
c_731501.elts[32] = ((closureN)self_73729)->elts[32];
c_731501.elts[33] = ((closureN)self_73729)->elts[33];
c_731501.elts[34] = ((closureN)self_73729)->elts[34];
c_731501.elts[35] = ((closureN)self_73729)->elts[35];
c_731501.elts[36] = ((closureN)self_73729)->elts[36];


closureN_type c_732919;
c_732919.hdr.mark = gc_color_red;
 c_732919.hdr.grayed = 0;
c_732919.tag = closureN_tag;
 c_732919.fn = (function_type)__lambda_391;
c_732919.num_args = 1;
c_732919.num_elt = 2;
c_732919.elts = (object *)alloca(sizeof(object) * 2);
c_732919.elts[0] = ((closureN)self_73729)->elts[31];
c_732919.elts[1] = ((closureN)self_73729)->elts[32];

return_closcall1(data,(closure)&c_731501,  &c_732919);; 
}

static void __lambda_391(void *data, int argc, object self_73730, object k_73524, object lst_73222) {
  
closureN_type c_732921;
c_732921.hdr.mark = gc_color_red;
 c_732921.hdr.grayed = 0;
c_732921.tag = closureN_tag;
 c_732921.fn = (function_type)__lambda_390;
c_732921.num_args = 1;
c_732921.num_elt = 4;
c_732921.elts = (object *)alloca(sizeof(object) * 4);
c_732921.elts[0] = k_73524;
c_732921.elts[1] = lst_73222;
c_732921.elts[2] = ((closureN)self_73730)->elts[0];
c_732921.elts[3] = ((closureN)self_73730)->elts[1];

return_closcall1(data,(closure)&c_732921,  Cyc_is_null(lst_73222));; 
}

static void __lambda_390(void *data, int argc, object self_73731, object r_73525) {
  if( !eq(boolean_f, r_73525) ){ 
  
closureN_type c_732923;
c_732923.hdr.mark = gc_color_red;
 c_732923.hdr.grayed = 0;
c_732923.tag = closureN_tag;
 c_732923.fn = (function_type)__lambda_384;
c_732923.num_args = 0;
c_732923.num_elt = 1;
c_732923.elts = (object *)alloca(sizeof(object) * 1);
c_732923.elts[0] = ((closureN)self_73731)->elts[0];

return_closcall0(data,(closure)&c_732923);
} else { 
  
closureN_type c_732927;
c_732927.hdr.mark = gc_color_red;
 c_732927.hdr.grayed = 0;
c_732927.tag = closureN_tag;
 c_732927.fn = (function_type)__lambda_389;
c_732927.num_args = 0;
c_732927.num_elt = 4;
c_732927.elts = (object *)alloca(sizeof(object) * 4);
c_732927.elts[0] = ((closureN)self_73731)->elts[0];
c_732927.elts[1] = ((closureN)self_73731)->elts[1];
c_732927.elts[2] = ((closureN)self_73731)->elts[2];
c_732927.elts[3] = ((closureN)self_73731)->elts[3];

return_closcall0(data,(closure)&c_732927);}
; 
}

static void __lambda_389(void *data, int argc, object self_73732) {
  
closureN_type c_732929;
c_732929.hdr.mark = gc_color_red;
 c_732929.hdr.grayed = 0;
c_732929.tag = closureN_tag;
 c_732929.fn = (function_type)__lambda_388;
c_732929.num_args = 1;
c_732929.num_elt = 4;
c_732929.elts = (object *)alloca(sizeof(object) * 4);
c_732929.elts[0] = ((closureN)self_73732)->elts[0];
c_732929.elts[1] = ((closureN)self_73732)->elts[1];
c_732929.elts[2] = ((closureN)self_73732)->elts[2];
c_732929.elts[3] = ((closureN)self_73732)->elts[3];

return_closcall1(data,(closure)&c_732929,  car(((closureN)self_73732)->elts[1]));; 
}

static void __lambda_388(void *data, int argc, object self_73733, object r_73529) {
  
closureN_type c_732934;
c_732934.hdr.mark = gc_color_red;
 c_732934.hdr.grayed = 0;
c_732934.tag = closureN_tag;
 c_732934.fn = (function_type)__lambda_387;
c_732934.num_args = 1;
c_732934.num_elt = 3;
c_732934.elts = (object *)alloca(sizeof(object) * 3);
c_732934.elts[0] = ((closureN)self_73733)->elts[0];
c_732934.elts[1] = ((closureN)self_73733)->elts[1];
c_732934.elts[2] = ((closureN)self_73733)->elts[2];

return_closcall2(data,  cell_get(((closureN)self_73733)->elts[3]),  &c_732934, r_73529);; 
}

static void __lambda_387(void *data, int argc, object self_73734, object r_73526) {
  
closureN_type c_732936;
c_732936.hdr.mark = gc_color_red;
 c_732936.hdr.grayed = 0;
c_732936.tag = closureN_tag;
 c_732936.fn = (function_type)__lambda_386;
c_732936.num_args = 1;
c_732936.num_elt = 3;
c_732936.elts = (object *)alloca(sizeof(object) * 3);
c_732936.elts[0] = ((closureN)self_73734)->elts[0];
c_732936.elts[1] = r_73526;
c_732936.elts[2] = ((closureN)self_73734)->elts[2];

return_closcall1(data,(closure)&c_732936,  cdr(((closureN)self_73734)->elts[1]));; 
}

static void __lambda_386(void *data, int argc, object self_73735, object r_73528) {
  
closureN_type c_732941;
c_732941.hdr.mark = gc_color_red;
 c_732941.hdr.grayed = 0;
c_732941.tag = closureN_tag;
 c_732941.fn = (function_type)__lambda_385;
c_732941.num_args = 1;
c_732941.num_elt = 2;
c_732941.elts = (object *)alloca(sizeof(object) * 2);
c_732941.elts[0] = ((closureN)self_73735)->elts[0];
c_732941.elts[1] = ((closureN)self_73735)->elts[1];

return_closcall2(data,  cell_get(((closureN)self_73735)->elts[2]),  &c_732941, r_73528);; 
}

static void __lambda_385(void *data, int argc, object self_73736, object r_73527) {
  
make_cons(c_732946,((closureN)self_73736)->elts[1], r_73527);
return_closcall1(data,  ((closureN)self_73736)->elts[0],  &c_732946);; 
}

static void __lambda_384(void *data, int argc, object self_73737) {
  return_closcall1(data,  ((closureN)self_73737)->elts[0],  nil);; 
}

static void __lambda_383(void *data, int argc, object self_73738, object r_73523) {
  
closureN_type c_731503;
c_731503.hdr.mark = gc_color_red;
 c_731503.hdr.grayed = 0;
c_731503.tag = closureN_tag;
 c_731503.fn = (function_type)__lambda_382;
c_731503.num_args = 1;
c_731503.num_elt = 36;
c_731503.elts = (object *)alloca(sizeof(object) * 36);
c_731503.elts[0] = ((closureN)self_73738)->elts[0];
c_731503.elts[1] = ((closureN)self_73738)->elts[1];
c_731503.elts[2] = ((closureN)self_73738)->elts[2];
c_731503.elts[3] = ((closureN)self_73738)->elts[3];
c_731503.elts[4] = ((closureN)self_73738)->elts[4];
c_731503.elts[5] = ((closureN)self_73738)->elts[5];
c_731503.elts[6] = ((closureN)self_73738)->elts[6];
c_731503.elts[7] = ((closureN)self_73738)->elts[7];
c_731503.elts[8] = ((closureN)self_73738)->elts[8];
c_731503.elts[9] = ((closureN)self_73738)->elts[9];
c_731503.elts[10] = ((closureN)self_73738)->elts[10];
c_731503.elts[11] = ((closureN)self_73738)->elts[11];
c_731503.elts[12] = ((closureN)self_73738)->elts[12];
c_731503.elts[13] = ((closureN)self_73738)->elts[13];
c_731503.elts[14] = ((closureN)self_73738)->elts[14];
c_731503.elts[15] = ((closureN)self_73738)->elts[15];
c_731503.elts[16] = ((closureN)self_73738)->elts[16];
c_731503.elts[17] = ((closureN)self_73738)->elts[17];
c_731503.elts[18] = ((closureN)self_73738)->elts[18];
c_731503.elts[19] = ((closureN)self_73738)->elts[19];
c_731503.elts[20] = ((closureN)self_73738)->elts[20];
c_731503.elts[21] = ((closureN)self_73738)->elts[21];
c_731503.elts[22] = ((closureN)self_73738)->elts[22];
c_731503.elts[23] = ((closureN)self_73738)->elts[23];
c_731503.elts[24] = ((closureN)self_73738)->elts[24];
c_731503.elts[25] = ((closureN)self_73738)->elts[25];
c_731503.elts[26] = ((closureN)self_73738)->elts[26];
c_731503.elts[27] = ((closureN)self_73738)->elts[27];
c_731503.elts[28] = ((closureN)self_73738)->elts[28];
c_731503.elts[29] = ((closureN)self_73738)->elts[29];
c_731503.elts[30] = ((closureN)self_73738)->elts[30];
c_731503.elts[31] = ((closureN)self_73738)->elts[32];
c_731503.elts[32] = ((closureN)self_73738)->elts[33];
c_731503.elts[33] = ((closureN)self_73738)->elts[34];
c_731503.elts[34] = ((closureN)self_73738)->elts[35];
c_731503.elts[35] = ((closureN)self_73738)->elts[36];

return_closcall1(data,(closure)&c_731503,  Cyc_set_car(data, ((closureN)self_73738)->elts[31], r_73523));; 
}

static void __lambda_382(void *data, int argc, object self_73739, object r_73269) {
  
closureN_type c_731505;
c_731505.hdr.mark = gc_color_red;
 c_731505.hdr.grayed = 0;
c_731505.tag = closureN_tag;
 c_731505.fn = (function_type)__lambda_373;
c_731505.num_args = 1;
c_731505.num_elt = 36;
c_731505.elts = (object *)alloca(sizeof(object) * 36);
c_731505.elts[0] = ((closureN)self_73739)->elts[0];
c_731505.elts[1] = ((closureN)self_73739)->elts[1];
c_731505.elts[2] = ((closureN)self_73739)->elts[2];
c_731505.elts[3] = ((closureN)self_73739)->elts[3];
c_731505.elts[4] = ((closureN)self_73739)->elts[4];
c_731505.elts[5] = ((closureN)self_73739)->elts[5];
c_731505.elts[6] = ((closureN)self_73739)->elts[6];
c_731505.elts[7] = ((closureN)self_73739)->elts[7];
c_731505.elts[8] = ((closureN)self_73739)->elts[8];
c_731505.elts[9] = ((closureN)self_73739)->elts[9];
c_731505.elts[10] = ((closureN)self_73739)->elts[10];
c_731505.elts[11] = ((closureN)self_73739)->elts[11];
c_731505.elts[12] = ((closureN)self_73739)->elts[12];
c_731505.elts[13] = ((closureN)self_73739)->elts[13];
c_731505.elts[14] = ((closureN)self_73739)->elts[14];
c_731505.elts[15] = ((closureN)self_73739)->elts[15];
c_731505.elts[16] = ((closureN)self_73739)->elts[16];
c_731505.elts[17] = ((closureN)self_73739)->elts[17];
c_731505.elts[18] = ((closureN)self_73739)->elts[18];
c_731505.elts[19] = ((closureN)self_73739)->elts[19];
c_731505.elts[20] = ((closureN)self_73739)->elts[20];
c_731505.elts[21] = ((closureN)self_73739)->elts[21];
c_731505.elts[22] = ((closureN)self_73739)->elts[22];
c_731505.elts[23] = ((closureN)self_73739)->elts[23];
c_731505.elts[24] = ((closureN)self_73739)->elts[24];
c_731505.elts[25] = ((closureN)self_73739)->elts[25];
c_731505.elts[26] = ((closureN)self_73739)->elts[26];
c_731505.elts[27] = ((closureN)self_73739)->elts[27];
c_731505.elts[28] = ((closureN)self_73739)->elts[28];
c_731505.elts[29] = ((closureN)self_73739)->elts[29];
c_731505.elts[30] = ((closureN)self_73739)->elts[30];
c_731505.elts[31] = ((closureN)self_73739)->elts[31];
c_731505.elts[32] = ((closureN)self_73739)->elts[32];
c_731505.elts[33] = ((closureN)self_73739)->elts[33];
c_731505.elts[34] = ((closureN)self_73739)->elts[34];
c_731505.elts[35] = ((closureN)self_73739)->elts[35];


closureN_type c_732878;
c_732878.hdr.mark = gc_color_red;
 c_732878.hdr.grayed = 0;
c_732878.tag = closureN_tag;
 c_732878.fn = (function_type)__lambda_381;
c_732878.num_args = 1;
c_732878.num_elt = 2;
c_732878.elts = (object *)alloca(sizeof(object) * 2);
c_732878.elts[0] = ((closureN)self_73739)->elts[7];
c_732878.elts[1] = ((closureN)self_73739)->elts[35];

return_closcall1(data,(closure)&c_731505,  &c_732878);; 
}

static void __lambda_381(void *data, int argc, object self_73740, object k_73517, object term_73221) {
  
closureN_type c_732880;
c_732880.hdr.mark = gc_color_red;
 c_732880.hdr.grayed = 0;
c_732880.tag = closureN_tag;
 c_732880.fn = (function_type)__lambda_380;
c_732880.num_args = 1;
c_732880.num_elt = 4;
c_732880.elts = (object *)alloca(sizeof(object) * 4);
c_732880.elts[0] = ((closureN)self_73740)->elts[0];
c_732880.elts[1] = k_73517;
c_732880.elts[2] = term_73221;
c_732880.elts[3] = ((closureN)self_73740)->elts[1];

return_closcall1(data,(closure)&c_732880,  Cyc_is_cons(term_73221));; 
}

static void __lambda_380(void *data, int argc, object self_73741, object r_73518) {
  if( !eq(boolean_f, r_73518) ){ 
  
closureN_type c_732882;
c_732882.hdr.mark = gc_color_red;
 c_732882.hdr.grayed = 0;
c_732882.tag = closureN_tag;
 c_732882.fn = (function_type)__lambda_378;
c_732882.num_args = 0;
c_732882.num_elt = 4;
c_732882.elts = (object *)alloca(sizeof(object) * 4);
c_732882.elts[0] = ((closureN)self_73741)->elts[0];
c_732882.elts[1] = ((closureN)self_73741)->elts[1];
c_732882.elts[2] = ((closureN)self_73741)->elts[2];
c_732882.elts[3] = ((closureN)self_73741)->elts[3];

return_closcall0(data,(closure)&c_732882);
} else { 
  
closureN_type c_732910;
c_732910.hdr.mark = gc_color_red;
 c_732910.hdr.grayed = 0;
c_732910.tag = closureN_tag;
 c_732910.fn = (function_type)__lambda_379;
c_732910.num_args = 0;
c_732910.num_elt = 2;
c_732910.elts = (object *)alloca(sizeof(object) * 2);
c_732910.elts[0] = ((closureN)self_73741)->elts[1];
c_732910.elts[1] = ((closureN)self_73741)->elts[2];

return_closcall0(data,(closure)&c_732910);}
; 
}

static void __lambda_379(void *data, int argc, object self_73742) {
  return_closcall1(data,  ((closureN)self_73742)->elts[0],  ((closureN)self_73742)->elts[1]);; 
}

static void __lambda_378(void *data, int argc, object self_73743) {
  
closureN_type c_732884;
c_732884.hdr.mark = gc_color_red;
 c_732884.hdr.grayed = 0;
c_732884.tag = closureN_tag;
 c_732884.fn = (function_type)__lambda_377;
c_732884.num_args = 1;
c_732884.num_elt = 4;
c_732884.elts = (object *)alloca(sizeof(object) * 4);
c_732884.elts[0] = ((closureN)self_73743)->elts[0];
c_732884.elts[1] = ((closureN)self_73743)->elts[1];
c_732884.elts[2] = ((closureN)self_73743)->elts[2];
c_732884.elts[3] = ((closureN)self_73743)->elts[3];

return_closcall1(data,(closure)&c_732884,  car(((closureN)self_73743)->elts[2]));; 
}

static void __lambda_377(void *data, int argc, object self_73744, object r_73522) {
  
closureN_type c_732889;
c_732889.hdr.mark = gc_color_red;
 c_732889.hdr.grayed = 0;
c_732889.tag = closureN_tag;
 c_732889.fn = (function_type)__lambda_376;
c_732889.num_args = 1;
c_732889.num_elt = 3;
c_732889.elts = (object *)alloca(sizeof(object) * 3);
c_732889.elts[0] = ((closureN)self_73744)->elts[1];
c_732889.elts[1] = ((closureN)self_73744)->elts[2];
c_732889.elts[2] = ((closureN)self_73744)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73744)->elts[0]),  &c_732889, r_73522);; 
}

static void __lambda_376(void *data, int argc, object self_73745, object r_73519) {
  
closureN_type c_732891;
c_732891.hdr.mark = gc_color_red;
 c_732891.hdr.grayed = 0;
c_732891.tag = closureN_tag;
 c_732891.fn = (function_type)__lambda_375;
c_732891.num_args = 1;
c_732891.num_elt = 3;
c_732891.elts = (object *)alloca(sizeof(object) * 3);
c_732891.elts[0] = ((closureN)self_73745)->elts[0];
c_732891.elts[1] = r_73519;
c_732891.elts[2] = ((closureN)self_73745)->elts[2];

return_closcall1(data,(closure)&c_732891,  cdr(((closureN)self_73745)->elts[1]));; 
}

static void __lambda_375(void *data, int argc, object self_73746, object r_73521) {
  
closureN_type c_732893;
c_732893.hdr.mark = gc_color_red;
 c_732893.hdr.grayed = 0;
c_732893.tag = closureN_tag;
 c_732893.fn = (function_type)__lambda_374;
c_732893.num_args = 1;
c_732893.num_elt = 2;
c_732893.elts = (object *)alloca(sizeof(object) * 2);
c_732893.elts[0] = ((closureN)self_73746)->elts[0];
c_732893.elts[1] = ((closureN)self_73746)->elts[1];

return_closcall3(data,  __glo_map_scheme_base,  &c_732893, cell_get(((closureN)self_73746)->elts[2]), r_73521);; 
}

static void __lambda_374(void *data, int argc, object self_73747, object r_73520) {
  
make_cons(c_732898,((closureN)self_73747)->elts[1], r_73520);
return_closcall1(data,  ((closureN)self_73747)->elts[0],  &c_732898);; 
}

static void __lambda_373(void *data, int argc, object self_73748, object r_73516) {
  
closureN_type c_731507;
c_731507.hdr.mark = gc_color_red;
 c_731507.hdr.grayed = 0;
c_731507.tag = closureN_tag;
 c_731507.fn = (function_type)__lambda_372;
c_731507.num_args = 1;
c_731507.num_elt = 35;
c_731507.elts = (object *)alloca(sizeof(object) * 35);
c_731507.elts[0] = ((closureN)self_73748)->elts[0];
c_731507.elts[1] = ((closureN)self_73748)->elts[1];
c_731507.elts[2] = ((closureN)self_73748)->elts[2];
c_731507.elts[3] = ((closureN)self_73748)->elts[3];
c_731507.elts[4] = ((closureN)self_73748)->elts[4];
c_731507.elts[5] = ((closureN)self_73748)->elts[5];
c_731507.elts[6] = ((closureN)self_73748)->elts[6];
c_731507.elts[7] = ((closureN)self_73748)->elts[7];
c_731507.elts[8] = ((closureN)self_73748)->elts[8];
c_731507.elts[9] = ((closureN)self_73748)->elts[9];
c_731507.elts[10] = ((closureN)self_73748)->elts[10];
c_731507.elts[11] = ((closureN)self_73748)->elts[11];
c_731507.elts[12] = ((closureN)self_73748)->elts[12];
c_731507.elts[13] = ((closureN)self_73748)->elts[13];
c_731507.elts[14] = ((closureN)self_73748)->elts[14];
c_731507.elts[15] = ((closureN)self_73748)->elts[15];
c_731507.elts[16] = ((closureN)self_73748)->elts[16];
c_731507.elts[17] = ((closureN)self_73748)->elts[17];
c_731507.elts[18] = ((closureN)self_73748)->elts[18];
c_731507.elts[19] = ((closureN)self_73748)->elts[19];
c_731507.elts[20] = ((closureN)self_73748)->elts[20];
c_731507.elts[21] = ((closureN)self_73748)->elts[21];
c_731507.elts[22] = ((closureN)self_73748)->elts[22];
c_731507.elts[23] = ((closureN)self_73748)->elts[23];
c_731507.elts[24] = ((closureN)self_73748)->elts[24];
c_731507.elts[25] = ((closureN)self_73748)->elts[25];
c_731507.elts[26] = ((closureN)self_73748)->elts[26];
c_731507.elts[27] = ((closureN)self_73748)->elts[27];
c_731507.elts[28] = ((closureN)self_73748)->elts[28];
c_731507.elts[29] = ((closureN)self_73748)->elts[29];
c_731507.elts[30] = ((closureN)self_73748)->elts[30];
c_731507.elts[31] = ((closureN)self_73748)->elts[31];
c_731507.elts[32] = ((closureN)self_73748)->elts[32];
c_731507.elts[33] = ((closureN)self_73748)->elts[33];
c_731507.elts[34] = ((closureN)self_73748)->elts[34];

return_closcall1(data,(closure)&c_731507,  Cyc_set_car(data, ((closureN)self_73748)->elts[35], r_73516));; 
}

static void __lambda_372(void *data, int argc, object self_73749, object r_73270) {
  
closureN_type c_731509;
c_731509.hdr.mark = gc_color_red;
 c_731509.hdr.grayed = 0;
c_731509.tag = closureN_tag;
 c_731509.fn = (function_type)__lambda_369;
c_731509.num_args = 1;
c_731509.num_elt = 35;
c_731509.elts = (object *)alloca(sizeof(object) * 35);
c_731509.elts[0] = ((closureN)self_73749)->elts[0];
c_731509.elts[1] = ((closureN)self_73749)->elts[1];
c_731509.elts[2] = ((closureN)self_73749)->elts[2];
c_731509.elts[3] = ((closureN)self_73749)->elts[3];
c_731509.elts[4] = ((closureN)self_73749)->elts[4];
c_731509.elts[5] = ((closureN)self_73749)->elts[5];
c_731509.elts[6] = ((closureN)self_73749)->elts[6];
c_731509.elts[7] = ((closureN)self_73749)->elts[7];
c_731509.elts[8] = ((closureN)self_73749)->elts[8];
c_731509.elts[9] = ((closureN)self_73749)->elts[9];
c_731509.elts[10] = ((closureN)self_73749)->elts[10];
c_731509.elts[11] = ((closureN)self_73749)->elts[11];
c_731509.elts[12] = ((closureN)self_73749)->elts[12];
c_731509.elts[13] = ((closureN)self_73749)->elts[13];
c_731509.elts[14] = ((closureN)self_73749)->elts[14];
c_731509.elts[15] = ((closureN)self_73749)->elts[15];
c_731509.elts[16] = ((closureN)self_73749)->elts[16];
c_731509.elts[17] = ((closureN)self_73749)->elts[17];
c_731509.elts[18] = ((closureN)self_73749)->elts[18];
c_731509.elts[19] = ((closureN)self_73749)->elts[19];
c_731509.elts[20] = ((closureN)self_73749)->elts[20];
c_731509.elts[21] = ((closureN)self_73749)->elts[21];
c_731509.elts[22] = ((closureN)self_73749)->elts[22];
c_731509.elts[23] = ((closureN)self_73749)->elts[23];
c_731509.elts[24] = ((closureN)self_73749)->elts[24];
c_731509.elts[25] = ((closureN)self_73749)->elts[25];
c_731509.elts[26] = ((closureN)self_73749)->elts[26];
c_731509.elts[27] = ((closureN)self_73749)->elts[27];
c_731509.elts[28] = ((closureN)self_73749)->elts[28];
c_731509.elts[29] = ((closureN)self_73749)->elts[29];
c_731509.elts[30] = ((closureN)self_73749)->elts[30];
c_731509.elts[31] = ((closureN)self_73749)->elts[31];
c_731509.elts[32] = ((closureN)self_73749)->elts[32];
c_731509.elts[33] = ((closureN)self_73749)->elts[33];
c_731509.elts[34] = ((closureN)self_73749)->elts[34];


closureN_type c_732863;
c_732863.hdr.mark = gc_color_red;
 c_732863.hdr.grayed = 0;
c_732863.tag = closureN_tag;
 c_732863.fn = (function_type)__lambda_371;
c_732863.num_args = 3;
c_732863.num_elt = 2;
c_732863.elts = (object *)alloca(sizeof(object) * 2);
c_732863.elts[0] = ((closureN)self_73749)->elts[14];
c_732863.elts[1] = ((closureN)self_73749)->elts[20];

return_closcall1(data,(closure)&c_731509,  &c_732863);; 
}

static void __lambda_371(void *data, int argc, object self_73750, object k_73514, object sym_73220, object property_73219, object value_73218) {
  
closureN_type c_732868;
c_732868.hdr.mark = gc_color_red;
 c_732868.hdr.grayed = 0;
c_732868.tag = closureN_tag;
 c_732868.fn = (function_type)__lambda_370;
c_732868.num_args = 1;
c_732868.num_elt = 3;
c_732868.elts = (object *)alloca(sizeof(object) * 3);
c_732868.elts[0] = k_73514;
c_732868.elts[1] = ((closureN)self_73750)->elts[0];
c_732868.elts[2] = value_73218;

return_closcall2(data,  cell_get(((closureN)self_73750)->elts[1]),  &c_732868, sym_73220);; 
}

static void __lambda_370(void *data, int argc, object self_73751, object r_73515) {
  return_closcall3(data,  cell_get(((closureN)self_73751)->elts[1]),  ((closureN)self_73751)->elts[0], r_73515, ((closureN)self_73751)->elts[2]);; 
}

static void __lambda_369(void *data, int argc, object self_73752, object r_73513) {
  
closureN_type c_731511;
c_731511.hdr.mark = gc_color_red;
 c_731511.hdr.grayed = 0;
c_731511.tag = closureN_tag;
 c_731511.fn = (function_type)__lambda_368;
c_731511.num_args = 1;
c_731511.num_elt = 34;
c_731511.elts = (object *)alloca(sizeof(object) * 34);
c_731511.elts[0] = ((closureN)self_73752)->elts[0];
c_731511.elts[1] = ((closureN)self_73752)->elts[1];
c_731511.elts[2] = ((closureN)self_73752)->elts[2];
c_731511.elts[3] = ((closureN)self_73752)->elts[3];
c_731511.elts[4] = ((closureN)self_73752)->elts[4];
c_731511.elts[5] = ((closureN)self_73752)->elts[5];
c_731511.elts[6] = ((closureN)self_73752)->elts[6];
c_731511.elts[7] = ((closureN)self_73752)->elts[7];
c_731511.elts[8] = ((closureN)self_73752)->elts[8];
c_731511.elts[9] = ((closureN)self_73752)->elts[9];
c_731511.elts[10] = ((closureN)self_73752)->elts[10];
c_731511.elts[11] = ((closureN)self_73752)->elts[11];
c_731511.elts[12] = ((closureN)self_73752)->elts[12];
c_731511.elts[13] = ((closureN)self_73752)->elts[14];
c_731511.elts[14] = ((closureN)self_73752)->elts[15];
c_731511.elts[15] = ((closureN)self_73752)->elts[16];
c_731511.elts[16] = ((closureN)self_73752)->elts[17];
c_731511.elts[17] = ((closureN)self_73752)->elts[18];
c_731511.elts[18] = ((closureN)self_73752)->elts[19];
c_731511.elts[19] = ((closureN)self_73752)->elts[20];
c_731511.elts[20] = ((closureN)self_73752)->elts[21];
c_731511.elts[21] = ((closureN)self_73752)->elts[22];
c_731511.elts[22] = ((closureN)self_73752)->elts[23];
c_731511.elts[23] = ((closureN)self_73752)->elts[24];
c_731511.elts[24] = ((closureN)self_73752)->elts[25];
c_731511.elts[25] = ((closureN)self_73752)->elts[26];
c_731511.elts[26] = ((closureN)self_73752)->elts[27];
c_731511.elts[27] = ((closureN)self_73752)->elts[28];
c_731511.elts[28] = ((closureN)self_73752)->elts[29];
c_731511.elts[29] = ((closureN)self_73752)->elts[30];
c_731511.elts[30] = ((closureN)self_73752)->elts[31];
c_731511.elts[31] = ((closureN)self_73752)->elts[32];
c_731511.elts[32] = ((closureN)self_73752)->elts[33];
c_731511.elts[33] = ((closureN)self_73752)->elts[34];

return_closcall1(data,(closure)&c_731511,  Cyc_set_car(data, ((closureN)self_73752)->elts[13], r_73513));; 
}

static void __lambda_368(void *data, int argc, object self_73753, object r_73271) {
  
closureN_type c_731513;
c_731513.hdr.mark = gc_color_red;
 c_731513.hdr.grayed = 0;
c_731513.tag = closureN_tag;
 c_731513.fn = (function_type)__lambda_365;
c_731513.num_args = 1;
c_731513.num_elt = 34;
c_731513.elts = (object *)alloca(sizeof(object) * 34);
c_731513.elts[0] = ((closureN)self_73753)->elts[0];
c_731513.elts[1] = ((closureN)self_73753)->elts[1];
c_731513.elts[2] = ((closureN)self_73753)->elts[2];
c_731513.elts[3] = ((closureN)self_73753)->elts[3];
c_731513.elts[4] = ((closureN)self_73753)->elts[4];
c_731513.elts[5] = ((closureN)self_73753)->elts[5];
c_731513.elts[6] = ((closureN)self_73753)->elts[6];
c_731513.elts[7] = ((closureN)self_73753)->elts[7];
c_731513.elts[8] = ((closureN)self_73753)->elts[8];
c_731513.elts[9] = ((closureN)self_73753)->elts[9];
c_731513.elts[10] = ((closureN)self_73753)->elts[10];
c_731513.elts[11] = ((closureN)self_73753)->elts[11];
c_731513.elts[12] = ((closureN)self_73753)->elts[12];
c_731513.elts[13] = ((closureN)self_73753)->elts[13];
c_731513.elts[14] = ((closureN)self_73753)->elts[14];
c_731513.elts[15] = ((closureN)self_73753)->elts[15];
c_731513.elts[16] = ((closureN)self_73753)->elts[16];
c_731513.elts[17] = ((closureN)self_73753)->elts[17];
c_731513.elts[18] = ((closureN)self_73753)->elts[18];
c_731513.elts[19] = ((closureN)self_73753)->elts[19];
c_731513.elts[20] = ((closureN)self_73753)->elts[20];
c_731513.elts[21] = ((closureN)self_73753)->elts[21];
c_731513.elts[22] = ((closureN)self_73753)->elts[22];
c_731513.elts[23] = ((closureN)self_73753)->elts[23];
c_731513.elts[24] = ((closureN)self_73753)->elts[24];
c_731513.elts[25] = ((closureN)self_73753)->elts[25];
c_731513.elts[26] = ((closureN)self_73753)->elts[26];
c_731513.elts[27] = ((closureN)self_73753)->elts[27];
c_731513.elts[28] = ((closureN)self_73753)->elts[28];
c_731513.elts[29] = ((closureN)self_73753)->elts[29];
c_731513.elts[30] = ((closureN)self_73753)->elts[30];
c_731513.elts[31] = ((closureN)self_73753)->elts[31];
c_731513.elts[32] = ((closureN)self_73753)->elts[32];
c_731513.elts[33] = ((closureN)self_73753)->elts[33];


closureN_type c_732849;
c_732849.hdr.mark = gc_color_red;
 c_732849.hdr.grayed = 0;
c_732849.tag = closureN_tag;
 c_732849.fn = (function_type)__lambda_367;
c_732849.num_args = 2;
c_732849.num_elt = 2;
c_732849.elts = (object *)alloca(sizeof(object) * 2);
c_732849.elts[0] = ((closureN)self_73753)->elts[6];
c_732849.elts[1] = ((closureN)self_73753)->elts[19];

return_closcall1(data,(closure)&c_731513,  &c_732849);; 
}

static void __lambda_367(void *data, int argc, object self_73754, object k_73511, object sym_73217, object property_73216) {
  
closureN_type c_732854;
c_732854.hdr.mark = gc_color_red;
 c_732854.hdr.grayed = 0;
c_732854.tag = closureN_tag;
 c_732854.fn = (function_type)__lambda_366;
c_732854.num_args = 1;
c_732854.num_elt = 2;
c_732854.elts = (object *)alloca(sizeof(object) * 2);
c_732854.elts[0] = ((closureN)self_73754)->elts[0];
c_732854.elts[1] = k_73511;

return_closcall2(data,  cell_get(((closureN)self_73754)->elts[1]),  &c_732854, sym_73217);; 
}

static void __lambda_366(void *data, int argc, object self_73755, object r_73512) {
  return_closcall2(data,  cell_get(((closureN)self_73755)->elts[0]),  ((closureN)self_73755)->elts[1], r_73512);; 
}

static void __lambda_365(void *data, int argc, object self_73756, object r_73510) {
  
closureN_type c_731515;
c_731515.hdr.mark = gc_color_red;
 c_731515.hdr.grayed = 0;
c_731515.tag = closureN_tag;
 c_731515.fn = (function_type)__lambda_364;
c_731515.num_args = 1;
c_731515.num_elt = 33;
c_731515.elts = (object *)alloca(sizeof(object) * 33);
c_731515.elts[0] = ((closureN)self_73756)->elts[0];
c_731515.elts[1] = ((closureN)self_73756)->elts[1];
c_731515.elts[2] = ((closureN)self_73756)->elts[2];
c_731515.elts[3] = ((closureN)self_73756)->elts[3];
c_731515.elts[4] = ((closureN)self_73756)->elts[4];
c_731515.elts[5] = ((closureN)self_73756)->elts[6];
c_731515.elts[6] = ((closureN)self_73756)->elts[7];
c_731515.elts[7] = ((closureN)self_73756)->elts[8];
c_731515.elts[8] = ((closureN)self_73756)->elts[9];
c_731515.elts[9] = ((closureN)self_73756)->elts[10];
c_731515.elts[10] = ((closureN)self_73756)->elts[11];
c_731515.elts[11] = ((closureN)self_73756)->elts[12];
c_731515.elts[12] = ((closureN)self_73756)->elts[13];
c_731515.elts[13] = ((closureN)self_73756)->elts[14];
c_731515.elts[14] = ((closureN)self_73756)->elts[15];
c_731515.elts[15] = ((closureN)self_73756)->elts[16];
c_731515.elts[16] = ((closureN)self_73756)->elts[17];
c_731515.elts[17] = ((closureN)self_73756)->elts[18];
c_731515.elts[18] = ((closureN)self_73756)->elts[19];
c_731515.elts[19] = ((closureN)self_73756)->elts[20];
c_731515.elts[20] = ((closureN)self_73756)->elts[21];
c_731515.elts[21] = ((closureN)self_73756)->elts[22];
c_731515.elts[22] = ((closureN)self_73756)->elts[23];
c_731515.elts[23] = ((closureN)self_73756)->elts[24];
c_731515.elts[24] = ((closureN)self_73756)->elts[25];
c_731515.elts[25] = ((closureN)self_73756)->elts[26];
c_731515.elts[26] = ((closureN)self_73756)->elts[27];
c_731515.elts[27] = ((closureN)self_73756)->elts[28];
c_731515.elts[28] = ((closureN)self_73756)->elts[29];
c_731515.elts[29] = ((closureN)self_73756)->elts[30];
c_731515.elts[30] = ((closureN)self_73756)->elts[31];
c_731515.elts[31] = ((closureN)self_73756)->elts[32];
c_731515.elts[32] = ((closureN)self_73756)->elts[33];

return_closcall1(data,(closure)&c_731515,  Cyc_set_car(data, ((closureN)self_73756)->elts[5], r_73510));; 
}

static void __lambda_364(void *data, int argc, object self_73757, object r_73272) {
  
closureN_type c_731517;
c_731517.hdr.mark = gc_color_red;
 c_731517.hdr.grayed = 0;
c_731517.tag = closureN_tag;
 c_731517.fn = (function_type)__lambda_357;
c_731517.num_args = 1;
c_731517.num_elt = 33;
c_731517.elts = (object *)alloca(sizeof(object) * 33);
c_731517.elts[0] = ((closureN)self_73757)->elts[0];
c_731517.elts[1] = ((closureN)self_73757)->elts[1];
c_731517.elts[2] = ((closureN)self_73757)->elts[2];
c_731517.elts[3] = ((closureN)self_73757)->elts[3];
c_731517.elts[4] = ((closureN)self_73757)->elts[4];
c_731517.elts[5] = ((closureN)self_73757)->elts[5];
c_731517.elts[6] = ((closureN)self_73757)->elts[6];
c_731517.elts[7] = ((closureN)self_73757)->elts[7];
c_731517.elts[8] = ((closureN)self_73757)->elts[8];
c_731517.elts[9] = ((closureN)self_73757)->elts[9];
c_731517.elts[10] = ((closureN)self_73757)->elts[10];
c_731517.elts[11] = ((closureN)self_73757)->elts[11];
c_731517.elts[12] = ((closureN)self_73757)->elts[12];
c_731517.elts[13] = ((closureN)self_73757)->elts[13];
c_731517.elts[14] = ((closureN)self_73757)->elts[14];
c_731517.elts[15] = ((closureN)self_73757)->elts[15];
c_731517.elts[16] = ((closureN)self_73757)->elts[16];
c_731517.elts[17] = ((closureN)self_73757)->elts[17];
c_731517.elts[18] = ((closureN)self_73757)->elts[18];
c_731517.elts[19] = ((closureN)self_73757)->elts[19];
c_731517.elts[20] = ((closureN)self_73757)->elts[20];
c_731517.elts[21] = ((closureN)self_73757)->elts[21];
c_731517.elts[22] = ((closureN)self_73757)->elts[22];
c_731517.elts[23] = ((closureN)self_73757)->elts[23];
c_731517.elts[24] = ((closureN)self_73757)->elts[24];
c_731517.elts[25] = ((closureN)self_73757)->elts[25];
c_731517.elts[26] = ((closureN)self_73757)->elts[26];
c_731517.elts[27] = ((closureN)self_73757)->elts[27];
c_731517.elts[28] = ((closureN)self_73757)->elts[28];
c_731517.elts[29] = ((closureN)self_73757)->elts[29];
c_731517.elts[30] = ((closureN)self_73757)->elts[30];
c_731517.elts[31] = ((closureN)self_73757)->elts[31];
c_731517.elts[32] = ((closureN)self_73757)->elts[32];


closureN_type c_732806;
c_732806.hdr.mark = gc_color_red;
 c_732806.hdr.grayed = 0;
c_732806.tag = closureN_tag;
 c_732806.fn = (function_type)__lambda_363;
c_732806.num_args = 1;
c_732806.num_elt = 2;
c_732806.elts = (object *)alloca(sizeof(object) * 2);
c_732806.elts[0] = ((closureN)self_73757)->elts[0];
c_732806.elts[1] = ((closureN)self_73757)->elts[8];

return_closcall1(data,(closure)&c_731517,  &c_732806);; 
}

static void __lambda_363(void *data, int argc, object self_73758, object k_73504, object sym_73213) {
  
closureN_type c_732808;
c_732808.hdr.mark = gc_color_red;
 c_732808.hdr.grayed = 0;
c_732808.tag = closureN_tag;
 c_732808.fn = (function_type)__lambda_362;
c_732808.num_args = 1;
c_732808.num_elt = 4;
c_732808.elts = (object *)alloca(sizeof(object) * 4);
c_732808.elts[0] = ((closureN)self_73758)->elts[0];
c_732808.elts[1] = k_73504;
c_732808.elts[2] = ((closureN)self_73758)->elts[1];
c_732808.elts[3] = sym_73213;

return_closcall1(data,(closure)&c_732808,  assq(data, sym_73213, cell_get(((closureN)self_73758)->elts[0])));; 
}

static void __lambda_362(void *data, int argc, object self_73759, object x_73214) {
  if( !eq(boolean_f, x_73214) ){ 
  return_closcall1(data,  ((closureN)self_73759)->elts[1],  cdr(x_73214));
} else { 
  
closureN_type c_732817;
c_732817.hdr.mark = gc_color_red;
 c_732817.hdr.grayed = 0;
c_732817.tag = closureN_tag;
 c_732817.fn = (function_type)__lambda_361;
c_732817.num_args = 1;
c_732817.num_elt = 3;
c_732817.elts = (object *)alloca(sizeof(object) * 3);
c_732817.elts[0] = ((closureN)self_73759)->elts[0];
c_732817.elts[1] = ((closureN)self_73759)->elts[1];
c_732817.elts[2] = ((closureN)self_73759)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73759)->elts[2]),  &c_732817, ((closureN)self_73759)->elts[3]);}
; 
}

static void __lambda_361(void *data, int argc, object self_73760, object r_73215) {
  
closureN_type c_732819;
c_732819.hdr.mark = gc_color_red;
 c_732819.hdr.grayed = 0;
c_732819.tag = closureN_tag;
 c_732819.fn = (function_type)__lambda_360;
c_732819.num_args = 1;
c_732819.num_elt = 3;
c_732819.elts = (object *)alloca(sizeof(object) * 3);
c_732819.elts[0] = ((closureN)self_73760)->elts[0];
c_732819.elts[1] = ((closureN)self_73760)->elts[1];
c_732819.elts[2] = r_73215;


make_cons(c_732838,((closureN)self_73760)->elts[2], r_73215);
return_closcall1(data,(closure)&c_732819,  &c_732838);; 
}

static void __lambda_360(void *data, int argc, object self_73761, object r_73509) {
  
closureN_type c_732821;
c_732821.hdr.mark = gc_color_red;
 c_732821.hdr.grayed = 0;
c_732821.tag = closureN_tag;
 c_732821.fn = (function_type)__lambda_359;
c_732821.num_args = 1;
c_732821.num_elt = 3;
c_732821.elts = (object *)alloca(sizeof(object) * 3);
c_732821.elts[0] = ((closureN)self_73761)->elts[0];
c_732821.elts[1] = ((closureN)self_73761)->elts[1];
c_732821.elts[2] = ((closureN)self_73761)->elts[2];


make_cons(c_732832,r_73509, cell_get(((closureN)self_73761)->elts[0]));
return_closcall1(data,(closure)&c_732821,  &c_732832);; 
}

static void __lambda_359(void *data, int argc, object self_73762, object r_73508) {
  
closureN_type c_732823;
c_732823.hdr.mark = gc_color_red;
 c_732823.hdr.grayed = 0;
c_732823.tag = closureN_tag;
 c_732823.fn = (function_type)__lambda_358;
c_732823.num_args = 1;
c_732823.num_elt = 2;
c_732823.elts = (object *)alloca(sizeof(object) * 2);
c_732823.elts[0] = ((closureN)self_73762)->elts[1];
c_732823.elts[1] = ((closureN)self_73762)->elts[2];

return_closcall1(data,(closure)&c_732823,  Cyc_set_car(data, ((closureN)self_73762)->elts[0], r_73508));; 
}

static void __lambda_358(void *data, int argc, object self_73763, object r_73507) {
  return_closcall1(data,  ((closureN)self_73763)->elts[0],  ((closureN)self_73763)->elts[1]);; 
}

static void __lambda_357(void *data, int argc, object self_73764, object r_73503) {
  
closureN_type c_731519;
c_731519.hdr.mark = gc_color_red;
 c_731519.hdr.grayed = 0;
c_731519.tag = closureN_tag;
 c_731519.fn = (function_type)__lambda_356;
c_731519.num_args = 1;
c_731519.num_elt = 33;
c_731519.elts = (object *)alloca(sizeof(object) * 33);
c_731519.elts[0] = ((closureN)self_73764)->elts[0];
c_731519.elts[1] = ((closureN)self_73764)->elts[1];
c_731519.elts[2] = ((closureN)self_73764)->elts[2];
c_731519.elts[3] = ((closureN)self_73764)->elts[3];
c_731519.elts[4] = ((closureN)self_73764)->elts[4];
c_731519.elts[5] = ((closureN)self_73764)->elts[5];
c_731519.elts[6] = ((closureN)self_73764)->elts[6];
c_731519.elts[7] = ((closureN)self_73764)->elts[7];
c_731519.elts[8] = ((closureN)self_73764)->elts[8];
c_731519.elts[9] = ((closureN)self_73764)->elts[9];
c_731519.elts[10] = ((closureN)self_73764)->elts[10];
c_731519.elts[11] = ((closureN)self_73764)->elts[11];
c_731519.elts[12] = ((closureN)self_73764)->elts[12];
c_731519.elts[13] = ((closureN)self_73764)->elts[13];
c_731519.elts[14] = ((closureN)self_73764)->elts[14];
c_731519.elts[15] = ((closureN)self_73764)->elts[15];
c_731519.elts[16] = ((closureN)self_73764)->elts[16];
c_731519.elts[17] = ((closureN)self_73764)->elts[17];
c_731519.elts[18] = ((closureN)self_73764)->elts[18];
c_731519.elts[19] = ((closureN)self_73764)->elts[19];
c_731519.elts[20] = ((closureN)self_73764)->elts[20];
c_731519.elts[21] = ((closureN)self_73764)->elts[21];
c_731519.elts[22] = ((closureN)self_73764)->elts[22];
c_731519.elts[23] = ((closureN)self_73764)->elts[23];
c_731519.elts[24] = ((closureN)self_73764)->elts[24];
c_731519.elts[25] = ((closureN)self_73764)->elts[25];
c_731519.elts[26] = ((closureN)self_73764)->elts[26];
c_731519.elts[27] = ((closureN)self_73764)->elts[27];
c_731519.elts[28] = ((closureN)self_73764)->elts[28];
c_731519.elts[29] = ((closureN)self_73764)->elts[29];
c_731519.elts[30] = ((closureN)self_73764)->elts[30];
c_731519.elts[31] = ((closureN)self_73764)->elts[31];
c_731519.elts[32] = ((closureN)self_73764)->elts[32];

return_closcall1(data,(closure)&c_731519,  Cyc_set_car(data, ((closureN)self_73764)->elts[18], r_73503));; 
}

static void __lambda_356(void *data, int argc, object self_73765, object r_73273) {
  
closureN_type c_731521;
c_731521.hdr.mark = gc_color_red;
 c_731521.hdr.grayed = 0;
c_731521.tag = closureN_tag;
 c_731521.fn = (function_type)__lambda_355;
c_731521.num_args = 1;
c_731521.num_elt = 33;
c_731521.elts = (object *)alloca(sizeof(object) * 33);
c_731521.elts[0] = ((closureN)self_73765)->elts[0];
c_731521.elts[1] = ((closureN)self_73765)->elts[1];
c_731521.elts[2] = ((closureN)self_73765)->elts[2];
c_731521.elts[3] = ((closureN)self_73765)->elts[3];
c_731521.elts[4] = ((closureN)self_73765)->elts[4];
c_731521.elts[5] = ((closureN)self_73765)->elts[5];
c_731521.elts[6] = ((closureN)self_73765)->elts[6];
c_731521.elts[7] = ((closureN)self_73765)->elts[7];
c_731521.elts[8] = ((closureN)self_73765)->elts[8];
c_731521.elts[9] = ((closureN)self_73765)->elts[9];
c_731521.elts[10] = ((closureN)self_73765)->elts[10];
c_731521.elts[11] = ((closureN)self_73765)->elts[11];
c_731521.elts[12] = ((closureN)self_73765)->elts[12];
c_731521.elts[13] = ((closureN)self_73765)->elts[13];
c_731521.elts[14] = ((closureN)self_73765)->elts[14];
c_731521.elts[15] = ((closureN)self_73765)->elts[15];
c_731521.elts[16] = ((closureN)self_73765)->elts[16];
c_731521.elts[17] = ((closureN)self_73765)->elts[17];
c_731521.elts[18] = ((closureN)self_73765)->elts[18];
c_731521.elts[19] = ((closureN)self_73765)->elts[19];
c_731521.elts[20] = ((closureN)self_73765)->elts[20];
c_731521.elts[21] = ((closureN)self_73765)->elts[21];
c_731521.elts[22] = ((closureN)self_73765)->elts[22];
c_731521.elts[23] = ((closureN)self_73765)->elts[23];
c_731521.elts[24] = ((closureN)self_73765)->elts[24];
c_731521.elts[25] = ((closureN)self_73765)->elts[25];
c_731521.elts[26] = ((closureN)self_73765)->elts[26];
c_731521.elts[27] = ((closureN)self_73765)->elts[27];
c_731521.elts[28] = ((closureN)self_73765)->elts[28];
c_731521.elts[29] = ((closureN)self_73765)->elts[29];
c_731521.elts[30] = ((closureN)self_73765)->elts[30];
c_731521.elts[31] = ((closureN)self_73765)->elts[31];
c_731521.elts[32] = ((closureN)self_73765)->elts[32];

return_closcall1(data,(closure)&c_731521,  nil);; 
}

static void __lambda_355(void *data, int argc, object self_73766, object r_73502) {
  
closureN_type c_731523;
c_731523.hdr.mark = gc_color_red;
 c_731523.hdr.grayed = 0;
c_731523.tag = closureN_tag;
 c_731523.fn = (function_type)__lambda_354;
c_731523.num_args = 1;
c_731523.num_elt = 33;
c_731523.elts = (object *)alloca(sizeof(object) * 33);
c_731523.elts[0] = ((closureN)self_73766)->elts[0];
c_731523.elts[1] = ((closureN)self_73766)->elts[1];
c_731523.elts[2] = ((closureN)self_73766)->elts[2];
c_731523.elts[3] = ((closureN)self_73766)->elts[3];
c_731523.elts[4] = ((closureN)self_73766)->elts[4];
c_731523.elts[5] = ((closureN)self_73766)->elts[5];
c_731523.elts[6] = ((closureN)self_73766)->elts[6];
c_731523.elts[7] = ((closureN)self_73766)->elts[7];
c_731523.elts[8] = ((closureN)self_73766)->elts[8];
c_731523.elts[9] = ((closureN)self_73766)->elts[9];
c_731523.elts[10] = ((closureN)self_73766)->elts[10];
c_731523.elts[11] = ((closureN)self_73766)->elts[11];
c_731523.elts[12] = ((closureN)self_73766)->elts[12];
c_731523.elts[13] = ((closureN)self_73766)->elts[13];
c_731523.elts[14] = ((closureN)self_73766)->elts[14];
c_731523.elts[15] = ((closureN)self_73766)->elts[15];
c_731523.elts[16] = ((closureN)self_73766)->elts[16];
c_731523.elts[17] = ((closureN)self_73766)->elts[17];
c_731523.elts[18] = ((closureN)self_73766)->elts[18];
c_731523.elts[19] = ((closureN)self_73766)->elts[19];
c_731523.elts[20] = ((closureN)self_73766)->elts[20];
c_731523.elts[21] = ((closureN)self_73766)->elts[21];
c_731523.elts[22] = ((closureN)self_73766)->elts[22];
c_731523.elts[23] = ((closureN)self_73766)->elts[23];
c_731523.elts[24] = ((closureN)self_73766)->elts[24];
c_731523.elts[25] = ((closureN)self_73766)->elts[25];
c_731523.elts[26] = ((closureN)self_73766)->elts[26];
c_731523.elts[27] = ((closureN)self_73766)->elts[27];
c_731523.elts[28] = ((closureN)self_73766)->elts[28];
c_731523.elts[29] = ((closureN)self_73766)->elts[29];
c_731523.elts[30] = ((closureN)self_73766)->elts[30];
c_731523.elts[31] = ((closureN)self_73766)->elts[31];
c_731523.elts[32] = ((closureN)self_73766)->elts[32];

return_closcall1(data,(closure)&c_731523,  Cyc_set_car(data, ((closureN)self_73766)->elts[0], r_73502));; 
}

static void __lambda_354(void *data, int argc, object self_73767, object r_73274) {
  
closureN_type c_731525;
c_731525.hdr.mark = gc_color_red;
 c_731525.hdr.grayed = 0;
c_731525.tag = closureN_tag;
 c_731525.fn = (function_type)__lambda_351;
c_731525.num_args = 1;
c_731525.num_elt = 33;
c_731525.elts = (object *)alloca(sizeof(object) * 33);
c_731525.elts[0] = ((closureN)self_73767)->elts[0];
c_731525.elts[1] = ((closureN)self_73767)->elts[1];
c_731525.elts[2] = ((closureN)self_73767)->elts[2];
c_731525.elts[3] = ((closureN)self_73767)->elts[3];
c_731525.elts[4] = ((closureN)self_73767)->elts[4];
c_731525.elts[5] = ((closureN)self_73767)->elts[5];
c_731525.elts[6] = ((closureN)self_73767)->elts[6];
c_731525.elts[7] = ((closureN)self_73767)->elts[7];
c_731525.elts[8] = ((closureN)self_73767)->elts[8];
c_731525.elts[9] = ((closureN)self_73767)->elts[9];
c_731525.elts[10] = ((closureN)self_73767)->elts[10];
c_731525.elts[11] = ((closureN)self_73767)->elts[11];
c_731525.elts[12] = ((closureN)self_73767)->elts[12];
c_731525.elts[13] = ((closureN)self_73767)->elts[13];
c_731525.elts[14] = ((closureN)self_73767)->elts[14];
c_731525.elts[15] = ((closureN)self_73767)->elts[15];
c_731525.elts[16] = ((closureN)self_73767)->elts[16];
c_731525.elts[17] = ((closureN)self_73767)->elts[17];
c_731525.elts[18] = ((closureN)self_73767)->elts[18];
c_731525.elts[19] = ((closureN)self_73767)->elts[19];
c_731525.elts[20] = ((closureN)self_73767)->elts[20];
c_731525.elts[21] = ((closureN)self_73767)->elts[21];
c_731525.elts[22] = ((closureN)self_73767)->elts[22];
c_731525.elts[23] = ((closureN)self_73767)->elts[23];
c_731525.elts[24] = ((closureN)self_73767)->elts[24];
c_731525.elts[25] = ((closureN)self_73767)->elts[25];
c_731525.elts[26] = ((closureN)self_73767)->elts[26];
c_731525.elts[27] = ((closureN)self_73767)->elts[27];
c_731525.elts[28] = ((closureN)self_73767)->elts[28];
c_731525.elts[29] = ((closureN)self_73767)->elts[29];
c_731525.elts[30] = ((closureN)self_73767)->elts[30];
c_731525.elts[31] = ((closureN)self_73767)->elts[31];
c_731525.elts[32] = ((closureN)self_73767)->elts[32];


mclosure0(c_732794, (function_type)__lambda_353);c_732794.num_args = 1;
return_closcall1(data,(closure)&c_731525,  &c_732794);; 
}

static void __lambda_353(void *data, int argc, object self_73768, object k_73500, object sym_73212) {
  
closureN_type c_732796;
c_732796.hdr.mark = gc_color_red;
 c_732796.hdr.grayed = 0;
c_732796.tag = closureN_tag;
 c_732796.fn = (function_type)__lambda_352;
c_732796.num_args = 1;
c_732796.num_elt = 2;
c_732796.elts = (object *)alloca(sizeof(object) * 2);
c_732796.elts[0] = k_73500;
c_732796.elts[1] = sym_73212;

return_closcall1(data,(closure)&c_732796,  nil);; 
}

static void __lambda_352(void *data, int argc, object self_73769, object r_73501) {
  return_closcall3(data,  __glo_vector_scheme_base,  ((closureN)self_73769)->elts[0], ((closureN)self_73769)->elts[1], r_73501);; 
}

static void __lambda_351(void *data, int argc, object self_73770, object r_73499) {
  
closureN_type c_731527;
c_731527.hdr.mark = gc_color_red;
 c_731527.hdr.grayed = 0;
c_731527.tag = closureN_tag;
 c_731527.fn = (function_type)__lambda_350;
c_731527.num_args = 1;
c_731527.num_elt = 32;
c_731527.elts = (object *)alloca(sizeof(object) * 32);
c_731527.elts[0] = ((closureN)self_73770)->elts[0];
c_731527.elts[1] = ((closureN)self_73770)->elts[1];
c_731527.elts[2] = ((closureN)self_73770)->elts[2];
c_731527.elts[3] = ((closureN)self_73770)->elts[3];
c_731527.elts[4] = ((closureN)self_73770)->elts[4];
c_731527.elts[5] = ((closureN)self_73770)->elts[5];
c_731527.elts[6] = ((closureN)self_73770)->elts[6];
c_731527.elts[7] = ((closureN)self_73770)->elts[7];
c_731527.elts[8] = ((closureN)self_73770)->elts[9];
c_731527.elts[9] = ((closureN)self_73770)->elts[10];
c_731527.elts[10] = ((closureN)self_73770)->elts[11];
c_731527.elts[11] = ((closureN)self_73770)->elts[12];
c_731527.elts[12] = ((closureN)self_73770)->elts[13];
c_731527.elts[13] = ((closureN)self_73770)->elts[14];
c_731527.elts[14] = ((closureN)self_73770)->elts[15];
c_731527.elts[15] = ((closureN)self_73770)->elts[16];
c_731527.elts[16] = ((closureN)self_73770)->elts[17];
c_731527.elts[17] = ((closureN)self_73770)->elts[18];
c_731527.elts[18] = ((closureN)self_73770)->elts[19];
c_731527.elts[19] = ((closureN)self_73770)->elts[20];
c_731527.elts[20] = ((closureN)self_73770)->elts[21];
c_731527.elts[21] = ((closureN)self_73770)->elts[22];
c_731527.elts[22] = ((closureN)self_73770)->elts[23];
c_731527.elts[23] = ((closureN)self_73770)->elts[24];
c_731527.elts[24] = ((closureN)self_73770)->elts[25];
c_731527.elts[25] = ((closureN)self_73770)->elts[26];
c_731527.elts[26] = ((closureN)self_73770)->elts[27];
c_731527.elts[27] = ((closureN)self_73770)->elts[28];
c_731527.elts[28] = ((closureN)self_73770)->elts[29];
c_731527.elts[29] = ((closureN)self_73770)->elts[30];
c_731527.elts[30] = ((closureN)self_73770)->elts[31];
c_731527.elts[31] = ((closureN)self_73770)->elts[32];

return_closcall1(data,(closure)&c_731527,  Cyc_set_car(data, ((closureN)self_73770)->elts[8], r_73499));; 
}

static void __lambda_350(void *data, int argc, object self_73771, object r_73275) {
  
closureN_type c_731529;
c_731529.hdr.mark = gc_color_red;
 c_731529.hdr.grayed = 0;
c_731529.tag = closureN_tag;
 c_731529.fn = (function_type)__lambda_348;
c_731529.num_args = 1;
c_731529.num_elt = 32;
c_731529.elts = (object *)alloca(sizeof(object) * 32);
c_731529.elts[0] = ((closureN)self_73771)->elts[0];
c_731529.elts[1] = ((closureN)self_73771)->elts[1];
c_731529.elts[2] = ((closureN)self_73771)->elts[2];
c_731529.elts[3] = ((closureN)self_73771)->elts[3];
c_731529.elts[4] = ((closureN)self_73771)->elts[4];
c_731529.elts[5] = ((closureN)self_73771)->elts[5];
c_731529.elts[6] = ((closureN)self_73771)->elts[6];
c_731529.elts[7] = ((closureN)self_73771)->elts[7];
c_731529.elts[8] = ((closureN)self_73771)->elts[8];
c_731529.elts[9] = ((closureN)self_73771)->elts[9];
c_731529.elts[10] = ((closureN)self_73771)->elts[10];
c_731529.elts[11] = ((closureN)self_73771)->elts[11];
c_731529.elts[12] = ((closureN)self_73771)->elts[12];
c_731529.elts[13] = ((closureN)self_73771)->elts[13];
c_731529.elts[14] = ((closureN)self_73771)->elts[14];
c_731529.elts[15] = ((closureN)self_73771)->elts[15];
c_731529.elts[16] = ((closureN)self_73771)->elts[16];
c_731529.elts[17] = ((closureN)self_73771)->elts[17];
c_731529.elts[18] = ((closureN)self_73771)->elts[18];
c_731529.elts[19] = ((closureN)self_73771)->elts[19];
c_731529.elts[20] = ((closureN)self_73771)->elts[20];
c_731529.elts[21] = ((closureN)self_73771)->elts[21];
c_731529.elts[22] = ((closureN)self_73771)->elts[22];
c_731529.elts[23] = ((closureN)self_73771)->elts[23];
c_731529.elts[24] = ((closureN)self_73771)->elts[24];
c_731529.elts[25] = ((closureN)self_73771)->elts[25];
c_731529.elts[26] = ((closureN)self_73771)->elts[26];
c_731529.elts[27] = ((closureN)self_73771)->elts[27];
c_731529.elts[28] = ((closureN)self_73771)->elts[28];
c_731529.elts[29] = ((closureN)self_73771)->elts[29];
c_731529.elts[30] = ((closureN)self_73771)->elts[30];
c_731529.elts[31] = ((closureN)self_73771)->elts[31];


mclosure0(c_732787, (function_type)__lambda_349);c_732787.num_args = 2;
return_closcall1(data,(closure)&c_731529,  &c_732787);; 
}

static void __lambda_349(void *data, int argc, object self_73772, object k_73498, object symbol_91record_73211, object lemmas_73210) {
  return_closcall1(data,  k_73498,  Cyc_vector_set(data, symbol_91record_73211, obj_int2obj(1), lemmas_73210));; 
}

static void __lambda_348(void *data, int argc, object self_73773, object r_73497) {
  
closureN_type c_731531;
c_731531.hdr.mark = gc_color_red;
 c_731531.hdr.grayed = 0;
c_731531.tag = closureN_tag;
 c_731531.fn = (function_type)__lambda_347;
c_731531.num_args = 1;
c_731531.num_elt = 31;
c_731531.elts = (object *)alloca(sizeof(object) * 31);
c_731531.elts[0] = ((closureN)self_73773)->elts[0];
c_731531.elts[1] = ((closureN)self_73773)->elts[1];
c_731531.elts[2] = ((closureN)self_73773)->elts[2];
c_731531.elts[3] = ((closureN)self_73773)->elts[3];
c_731531.elts[4] = ((closureN)self_73773)->elts[4];
c_731531.elts[5] = ((closureN)self_73773)->elts[5];
c_731531.elts[6] = ((closureN)self_73773)->elts[6];
c_731531.elts[7] = ((closureN)self_73773)->elts[7];
c_731531.elts[8] = ((closureN)self_73773)->elts[8];
c_731531.elts[9] = ((closureN)self_73773)->elts[9];
c_731531.elts[10] = ((closureN)self_73773)->elts[10];
c_731531.elts[11] = ((closureN)self_73773)->elts[12];
c_731531.elts[12] = ((closureN)self_73773)->elts[13];
c_731531.elts[13] = ((closureN)self_73773)->elts[14];
c_731531.elts[14] = ((closureN)self_73773)->elts[15];
c_731531.elts[15] = ((closureN)self_73773)->elts[16];
c_731531.elts[16] = ((closureN)self_73773)->elts[17];
c_731531.elts[17] = ((closureN)self_73773)->elts[18];
c_731531.elts[18] = ((closureN)self_73773)->elts[19];
c_731531.elts[19] = ((closureN)self_73773)->elts[20];
c_731531.elts[20] = ((closureN)self_73773)->elts[21];
c_731531.elts[21] = ((closureN)self_73773)->elts[22];
c_731531.elts[22] = ((closureN)self_73773)->elts[23];
c_731531.elts[23] = ((closureN)self_73773)->elts[24];
c_731531.elts[24] = ((closureN)self_73773)->elts[25];
c_731531.elts[25] = ((closureN)self_73773)->elts[26];
c_731531.elts[26] = ((closureN)self_73773)->elts[27];
c_731531.elts[27] = ((closureN)self_73773)->elts[28];
c_731531.elts[28] = ((closureN)self_73773)->elts[29];
c_731531.elts[29] = ((closureN)self_73773)->elts[30];
c_731531.elts[30] = ((closureN)self_73773)->elts[31];

return_closcall1(data,(closure)&c_731531,  Cyc_set_car(data, ((closureN)self_73773)->elts[11], r_73497));; 
}

static void __lambda_347(void *data, int argc, object self_73774, object r_73276) {
  
closureN_type c_731533;
c_731533.hdr.mark = gc_color_red;
 c_731533.hdr.grayed = 0;
c_731533.tag = closureN_tag;
 c_731533.fn = (function_type)__lambda_345;
c_731533.num_args = 1;
c_731533.num_elt = 31;
c_731533.elts = (object *)alloca(sizeof(object) * 31);
c_731533.elts[0] = ((closureN)self_73774)->elts[0];
c_731533.elts[1] = ((closureN)self_73774)->elts[1];
c_731533.elts[2] = ((closureN)self_73774)->elts[2];
c_731533.elts[3] = ((closureN)self_73774)->elts[3];
c_731533.elts[4] = ((closureN)self_73774)->elts[4];
c_731533.elts[5] = ((closureN)self_73774)->elts[5];
c_731533.elts[6] = ((closureN)self_73774)->elts[6];
c_731533.elts[7] = ((closureN)self_73774)->elts[7];
c_731533.elts[8] = ((closureN)self_73774)->elts[8];
c_731533.elts[9] = ((closureN)self_73774)->elts[9];
c_731533.elts[10] = ((closureN)self_73774)->elts[10];
c_731533.elts[11] = ((closureN)self_73774)->elts[11];
c_731533.elts[12] = ((closureN)self_73774)->elts[12];
c_731533.elts[13] = ((closureN)self_73774)->elts[13];
c_731533.elts[14] = ((closureN)self_73774)->elts[14];
c_731533.elts[15] = ((closureN)self_73774)->elts[15];
c_731533.elts[16] = ((closureN)self_73774)->elts[16];
c_731533.elts[17] = ((closureN)self_73774)->elts[17];
c_731533.elts[18] = ((closureN)self_73774)->elts[18];
c_731533.elts[19] = ((closureN)self_73774)->elts[19];
c_731533.elts[20] = ((closureN)self_73774)->elts[20];
c_731533.elts[21] = ((closureN)self_73774)->elts[21];
c_731533.elts[22] = ((closureN)self_73774)->elts[22];
c_731533.elts[23] = ((closureN)self_73774)->elts[23];
c_731533.elts[24] = ((closureN)self_73774)->elts[24];
c_731533.elts[25] = ((closureN)self_73774)->elts[25];
c_731533.elts[26] = ((closureN)self_73774)->elts[26];
c_731533.elts[27] = ((closureN)self_73774)->elts[27];
c_731533.elts[28] = ((closureN)self_73774)->elts[28];
c_731533.elts[29] = ((closureN)self_73774)->elts[29];
c_731533.elts[30] = ((closureN)self_73774)->elts[30];


mclosure0(c_732780, (function_type)__lambda_346);c_732780.num_args = 1;
return_closcall1(data,(closure)&c_731533,  &c_732780);; 
}

static void __lambda_346(void *data, int argc, object self_73775, object k_73496, object symbol_91record_73209) {
  return_closcall1(data,  k_73496,  Cyc_vector_ref(data, symbol_91record_73209, obj_int2obj(1)));; 
}

static void __lambda_345(void *data, int argc, object self_73776, object r_73495) {
  
closureN_type c_731535;
c_731535.hdr.mark = gc_color_red;
 c_731535.hdr.grayed = 0;
c_731535.tag = closureN_tag;
 c_731535.fn = (function_type)__lambda_344;
c_731535.num_args = 1;
c_731535.num_elt = 31;
c_731535.elts = (object *)alloca(sizeof(object) * 31);
c_731535.elts[0] = ((closureN)self_73776)->elts[0];
c_731535.elts[1] = ((closureN)self_73776)->elts[1];
c_731535.elts[2] = ((closureN)self_73776)->elts[2];
c_731535.elts[3] = ((closureN)self_73776)->elts[3];
c_731535.elts[4] = ((closureN)self_73776)->elts[4];
c_731535.elts[5] = ((closureN)self_73776)->elts[5];
c_731535.elts[6] = ((closureN)self_73776)->elts[6];
c_731535.elts[7] = ((closureN)self_73776)->elts[7];
c_731535.elts[8] = ((closureN)self_73776)->elts[8];
c_731535.elts[9] = ((closureN)self_73776)->elts[9];
c_731535.elts[10] = ((closureN)self_73776)->elts[10];
c_731535.elts[11] = ((closureN)self_73776)->elts[11];
c_731535.elts[12] = ((closureN)self_73776)->elts[12];
c_731535.elts[13] = ((closureN)self_73776)->elts[13];
c_731535.elts[14] = ((closureN)self_73776)->elts[14];
c_731535.elts[15] = ((closureN)self_73776)->elts[15];
c_731535.elts[16] = ((closureN)self_73776)->elts[16];
c_731535.elts[17] = ((closureN)self_73776)->elts[17];
c_731535.elts[18] = ((closureN)self_73776)->elts[18];
c_731535.elts[19] = ((closureN)self_73776)->elts[19];
c_731535.elts[20] = ((closureN)self_73776)->elts[20];
c_731535.elts[21] = ((closureN)self_73776)->elts[21];
c_731535.elts[22] = ((closureN)self_73776)->elts[22];
c_731535.elts[23] = ((closureN)self_73776)->elts[23];
c_731535.elts[24] = ((closureN)self_73776)->elts[24];
c_731535.elts[25] = ((closureN)self_73776)->elts[25];
c_731535.elts[26] = ((closureN)self_73776)->elts[26];
c_731535.elts[27] = ((closureN)self_73776)->elts[27];
c_731535.elts[28] = ((closureN)self_73776)->elts[28];
c_731535.elts[29] = ((closureN)self_73776)->elts[29];
c_731535.elts[30] = ((closureN)self_73776)->elts[30];

return_closcall1(data,(closure)&c_731535,  Cyc_set_car(data, ((closureN)self_73776)->elts[5], r_73495));; 
}

static void __lambda_344(void *data, int argc, object self_73777, object r_73277) {
  
closureN_type c_731537;
c_731537.hdr.mark = gc_color_red;
 c_731537.hdr.grayed = 0;
c_731537.tag = closureN_tag;
 c_731537.fn = (function_type)__lambda_342;
c_731537.num_args = 1;
c_731537.num_elt = 31;
c_731537.elts = (object *)alloca(sizeof(object) * 31);
c_731537.elts[0] = ((closureN)self_73777)->elts[0];
c_731537.elts[1] = ((closureN)self_73777)->elts[1];
c_731537.elts[2] = ((closureN)self_73777)->elts[2];
c_731537.elts[3] = ((closureN)self_73777)->elts[3];
c_731537.elts[4] = ((closureN)self_73777)->elts[4];
c_731537.elts[5] = ((closureN)self_73777)->elts[5];
c_731537.elts[6] = ((closureN)self_73777)->elts[6];
c_731537.elts[7] = ((closureN)self_73777)->elts[7];
c_731537.elts[8] = ((closureN)self_73777)->elts[8];
c_731537.elts[9] = ((closureN)self_73777)->elts[9];
c_731537.elts[10] = ((closureN)self_73777)->elts[10];
c_731537.elts[11] = ((closureN)self_73777)->elts[11];
c_731537.elts[12] = ((closureN)self_73777)->elts[12];
c_731537.elts[13] = ((closureN)self_73777)->elts[13];
c_731537.elts[14] = ((closureN)self_73777)->elts[14];
c_731537.elts[15] = ((closureN)self_73777)->elts[15];
c_731537.elts[16] = ((closureN)self_73777)->elts[16];
c_731537.elts[17] = ((closureN)self_73777)->elts[17];
c_731537.elts[18] = ((closureN)self_73777)->elts[18];
c_731537.elts[19] = ((closureN)self_73777)->elts[19];
c_731537.elts[20] = ((closureN)self_73777)->elts[20];
c_731537.elts[21] = ((closureN)self_73777)->elts[21];
c_731537.elts[22] = ((closureN)self_73777)->elts[22];
c_731537.elts[23] = ((closureN)self_73777)->elts[23];
c_731537.elts[24] = ((closureN)self_73777)->elts[24];
c_731537.elts[25] = ((closureN)self_73777)->elts[25];
c_731537.elts[26] = ((closureN)self_73777)->elts[26];
c_731537.elts[27] = ((closureN)self_73777)->elts[27];
c_731537.elts[28] = ((closureN)self_73777)->elts[28];
c_731537.elts[29] = ((closureN)self_73777)->elts[29];
c_731537.elts[30] = ((closureN)self_73777)->elts[30];


mclosure0(c_732773, (function_type)__lambda_343);c_732773.num_args = 1;
return_closcall1(data,(closure)&c_731537,  &c_732773);; 
}

static void __lambda_343(void *data, int argc, object self_73778, object k_73494, object symbol_91record_73208) {
  return_closcall1(data,  k_73494,  Cyc_vector_ref(data, symbol_91record_73208, obj_int2obj(0)));; 
}

static void __lambda_342(void *data, int argc, object self_73779, object r_73493) {
  
closureN_type c_731539;
c_731539.hdr.mark = gc_color_red;
 c_731539.hdr.grayed = 0;
c_731539.tag = closureN_tag;
 c_731539.fn = (function_type)__lambda_341;
c_731539.num_args = 1;
c_731539.num_elt = 30;
c_731539.elts = (object *)alloca(sizeof(object) * 30);
c_731539.elts[0] = ((closureN)self_73779)->elts[0];
c_731539.elts[1] = ((closureN)self_73779)->elts[1];
c_731539.elts[2] = ((closureN)self_73779)->elts[2];
c_731539.elts[3] = ((closureN)self_73779)->elts[3];
c_731539.elts[4] = ((closureN)self_73779)->elts[4];
c_731539.elts[5] = ((closureN)self_73779)->elts[5];
c_731539.elts[6] = ((closureN)self_73779)->elts[7];
c_731539.elts[7] = ((closureN)self_73779)->elts[8];
c_731539.elts[8] = ((closureN)self_73779)->elts[9];
c_731539.elts[9] = ((closureN)self_73779)->elts[10];
c_731539.elts[10] = ((closureN)self_73779)->elts[11];
c_731539.elts[11] = ((closureN)self_73779)->elts[12];
c_731539.elts[12] = ((closureN)self_73779)->elts[13];
c_731539.elts[13] = ((closureN)self_73779)->elts[14];
c_731539.elts[14] = ((closureN)self_73779)->elts[15];
c_731539.elts[15] = ((closureN)self_73779)->elts[16];
c_731539.elts[16] = ((closureN)self_73779)->elts[17];
c_731539.elts[17] = ((closureN)self_73779)->elts[18];
c_731539.elts[18] = ((closureN)self_73779)->elts[19];
c_731539.elts[19] = ((closureN)self_73779)->elts[20];
c_731539.elts[20] = ((closureN)self_73779)->elts[21];
c_731539.elts[21] = ((closureN)self_73779)->elts[22];
c_731539.elts[22] = ((closureN)self_73779)->elts[23];
c_731539.elts[23] = ((closureN)self_73779)->elts[24];
c_731539.elts[24] = ((closureN)self_73779)->elts[25];
c_731539.elts[25] = ((closureN)self_73779)->elts[26];
c_731539.elts[26] = ((closureN)self_73779)->elts[27];
c_731539.elts[27] = ((closureN)self_73779)->elts[28];
c_731539.elts[28] = ((closureN)self_73779)->elts[29];
c_731539.elts[29] = ((closureN)self_73779)->elts[30];

return_closcall1(data,(closure)&c_731539,  Cyc_set_car(data, ((closureN)self_73779)->elts[6], r_73493));; 
}

static void __lambda_341(void *data, int argc, object self_73780, object r_73278) {
  
closureN_type c_731541;
c_731541.hdr.mark = gc_color_red;
 c_731541.hdr.grayed = 0;
c_731541.tag = closureN_tag;
 c_731541.fn = (function_type)__lambda_339;
c_731541.num_args = 1;
c_731541.num_elt = 30;
c_731541.elts = (object *)alloca(sizeof(object) * 30);
c_731541.elts[0] = ((closureN)self_73780)->elts[0];
c_731541.elts[1] = ((closureN)self_73780)->elts[1];
c_731541.elts[2] = ((closureN)self_73780)->elts[2];
c_731541.elts[3] = ((closureN)self_73780)->elts[3];
c_731541.elts[4] = ((closureN)self_73780)->elts[4];
c_731541.elts[5] = ((closureN)self_73780)->elts[5];
c_731541.elts[6] = ((closureN)self_73780)->elts[6];
c_731541.elts[7] = ((closureN)self_73780)->elts[7];
c_731541.elts[8] = ((closureN)self_73780)->elts[8];
c_731541.elts[9] = ((closureN)self_73780)->elts[9];
c_731541.elts[10] = ((closureN)self_73780)->elts[10];
c_731541.elts[11] = ((closureN)self_73780)->elts[11];
c_731541.elts[12] = ((closureN)self_73780)->elts[12];
c_731541.elts[13] = ((closureN)self_73780)->elts[13];
c_731541.elts[14] = ((closureN)self_73780)->elts[14];
c_731541.elts[15] = ((closureN)self_73780)->elts[15];
c_731541.elts[16] = ((closureN)self_73780)->elts[16];
c_731541.elts[17] = ((closureN)self_73780)->elts[17];
c_731541.elts[18] = ((closureN)self_73780)->elts[18];
c_731541.elts[19] = ((closureN)self_73780)->elts[19];
c_731541.elts[20] = ((closureN)self_73780)->elts[20];
c_731541.elts[21] = ((closureN)self_73780)->elts[21];
c_731541.elts[22] = ((closureN)self_73780)->elts[22];
c_731541.elts[23] = ((closureN)self_73780)->elts[23];
c_731541.elts[24] = ((closureN)self_73780)->elts[24];
c_731541.elts[25] = ((closureN)self_73780)->elts[25];
c_731541.elts[26] = ((closureN)self_73780)->elts[26];
c_731541.elts[27] = ((closureN)self_73780)->elts[27];
c_731541.elts[28] = ((closureN)self_73780)->elts[28];
c_731541.elts[29] = ((closureN)self_73780)->elts[29];


mclosure0(c_732766, (function_type)__lambda_340);c_732766.num_args = 2;
return_closcall1(data,(closure)&c_731541,  &c_732766);; 
}

static void __lambda_340(void *data, int argc, object self_73781, object k_73492, object r1_73207, object r2_73206) {
  return_closcall1(data,  k_73492,  Cyc_eq(r1_73207, r2_73206));; 
}

static void __lambda_339(void *data, int argc, object self_73782, object r_73491) {
  
closureN_type c_731543;
c_731543.hdr.mark = gc_color_red;
 c_731543.hdr.grayed = 0;
c_731543.tag = closureN_tag;
 c_731543.fn = (function_type)__lambda_338;
c_731543.num_args = 1;
c_731543.num_elt = 30;
c_731543.elts = (object *)alloca(sizeof(object) * 30);
c_731543.elts[0] = ((closureN)self_73782)->elts[0];
c_731543.elts[1] = ((closureN)self_73782)->elts[1];
c_731543.elts[2] = ((closureN)self_73782)->elts[2];
c_731543.elts[3] = ((closureN)self_73782)->elts[3];
c_731543.elts[4] = ((closureN)self_73782)->elts[4];
c_731543.elts[5] = ((closureN)self_73782)->elts[5];
c_731543.elts[6] = ((closureN)self_73782)->elts[6];
c_731543.elts[7] = ((closureN)self_73782)->elts[7];
c_731543.elts[8] = ((closureN)self_73782)->elts[8];
c_731543.elts[9] = ((closureN)self_73782)->elts[9];
c_731543.elts[10] = ((closureN)self_73782)->elts[10];
c_731543.elts[11] = ((closureN)self_73782)->elts[11];
c_731543.elts[12] = ((closureN)self_73782)->elts[12];
c_731543.elts[13] = ((closureN)self_73782)->elts[13];
c_731543.elts[14] = ((closureN)self_73782)->elts[14];
c_731543.elts[15] = ((closureN)self_73782)->elts[15];
c_731543.elts[16] = ((closureN)self_73782)->elts[16];
c_731543.elts[17] = ((closureN)self_73782)->elts[17];
c_731543.elts[18] = ((closureN)self_73782)->elts[18];
c_731543.elts[19] = ((closureN)self_73782)->elts[19];
c_731543.elts[20] = ((closureN)self_73782)->elts[20];
c_731543.elts[21] = ((closureN)self_73782)->elts[21];
c_731543.elts[22] = ((closureN)self_73782)->elts[22];
c_731543.elts[23] = ((closureN)self_73782)->elts[23];
c_731543.elts[24] = ((closureN)self_73782)->elts[24];
c_731543.elts[25] = ((closureN)self_73782)->elts[25];
c_731543.elts[26] = ((closureN)self_73782)->elts[26];
c_731543.elts[27] = ((closureN)self_73782)->elts[27];
c_731543.elts[28] = ((closureN)self_73782)->elts[28];
c_731543.elts[29] = ((closureN)self_73782)->elts[29];

return_closcall1(data,(closure)&c_731543,  Cyc_set_car(data, ((closureN)self_73782)->elts[16], r_73491));; 
}

static void __lambda_338(void *data, int argc, object self_73783, object r_73279) {
  
closureN_type c_731545;
c_731545.hdr.mark = gc_color_red;
 c_731545.hdr.grayed = 0;
c_731545.tag = closureN_tag;
 c_731545.fn = (function_type)__lambda_321;
c_731545.num_args = 1;
c_731545.num_elt = 30;
c_731545.elts = (object *)alloca(sizeof(object) * 30);
c_731545.elts[0] = ((closureN)self_73783)->elts[0];
c_731545.elts[1] = ((closureN)self_73783)->elts[1];
c_731545.elts[2] = ((closureN)self_73783)->elts[2];
c_731545.elts[3] = ((closureN)self_73783)->elts[3];
c_731545.elts[4] = ((closureN)self_73783)->elts[4];
c_731545.elts[5] = ((closureN)self_73783)->elts[5];
c_731545.elts[6] = ((closureN)self_73783)->elts[6];
c_731545.elts[7] = ((closureN)self_73783)->elts[7];
c_731545.elts[8] = ((closureN)self_73783)->elts[8];
c_731545.elts[9] = ((closureN)self_73783)->elts[9];
c_731545.elts[10] = ((closureN)self_73783)->elts[10];
c_731545.elts[11] = ((closureN)self_73783)->elts[11];
c_731545.elts[12] = ((closureN)self_73783)->elts[12];
c_731545.elts[13] = ((closureN)self_73783)->elts[13];
c_731545.elts[14] = ((closureN)self_73783)->elts[14];
c_731545.elts[15] = ((closureN)self_73783)->elts[15];
c_731545.elts[16] = ((closureN)self_73783)->elts[16];
c_731545.elts[17] = ((closureN)self_73783)->elts[17];
c_731545.elts[18] = ((closureN)self_73783)->elts[18];
c_731545.elts[19] = ((closureN)self_73783)->elts[19];
c_731545.elts[20] = ((closureN)self_73783)->elts[20];
c_731545.elts[21] = ((closureN)self_73783)->elts[21];
c_731545.elts[22] = ((closureN)self_73783)->elts[22];
c_731545.elts[23] = ((closureN)self_73783)->elts[23];
c_731545.elts[24] = ((closureN)self_73783)->elts[24];
c_731545.elts[25] = ((closureN)self_73783)->elts[25];
c_731545.elts[26] = ((closureN)self_73783)->elts[26];
c_731545.elts[27] = ((closureN)self_73783)->elts[27];
c_731545.elts[28] = ((closureN)self_73783)->elts[28];
c_731545.elts[29] = ((closureN)self_73783)->elts[29];


closureN_type c_732689;
c_732689.hdr.mark = gc_color_red;
 c_732689.hdr.grayed = 0;
c_732689.tag = closureN_tag;
 c_732689.fn = (function_type)__lambda_337;
c_732689.num_args = 3;
c_732689.num_elt = 4;
c_732689.elts = (object *)alloca(sizeof(object) * 4);
c_732689.elts[0] = ((closureN)self_73783)->elts[1];
c_732689.elts[1] = ((closureN)self_73783)->elts[18];
c_732689.elts[2] = ((closureN)self_73783)->elts[25];
c_732689.elts[3] = ((closureN)self_73783)->elts[26];

return_closcall1(data,(closure)&c_731545,  &c_732689);; 
}

static void __lambda_337(void *data, int argc, object self_73784, object k_73478, object alist_73199, object term_73198, object n_73197) {
  
closureN_type c_732694;
c_732694.hdr.mark = gc_color_red;
 c_732694.hdr.grayed = 0;
c_732694.tag = closureN_tag;
 c_732694.fn = (function_type)__lambda_336;
c_732694.num_args = 1;
c_732694.num_elt = 6;
c_732694.elts = (object *)alloca(sizeof(object) * 6);
c_732694.elts[0] = ((closureN)self_73784)->elts[0];
c_732694.elts[1] = k_73478;
c_732694.elts[2] = n_73197;
c_732694.elts[3] = ((closureN)self_73784)->elts[1];
c_732694.elts[4] = term_73198;
c_732694.elts[5] = ((closureN)self_73784)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73784)->elts[2]),  &c_732694, alist_73199);; 
}

static void __lambda_336(void *data, int argc, object self_73785, object r_73480) {
  
closureN_type c_732696;
c_732696.hdr.mark = gc_color_red;
 c_732696.hdr.grayed = 0;
c_732696.tag = closureN_tag;
 c_732696.fn = (function_type)__lambda_335;
c_732696.num_args = 2;
c_732696.num_elt = 5;
c_732696.elts = (object *)alloca(sizeof(object) * 5);
c_732696.elts[0] = ((closureN)self_73785)->elts[0];
c_732696.elts[1] = ((closureN)self_73785)->elts[1];
c_732696.elts[2] = r_73480;
c_732696.elts[3] = ((closureN)self_73785)->elts[3];
c_732696.elts[4] = ((closureN)self_73785)->elts[5];

return_closcall2(data,(closure)&c_732696,  ((closureN)self_73785)->elts[4], ((closureN)self_73785)->elts[2]);; 
}

static void __lambda_335(void *data, int argc, object self_73786, object term_73201, object n_73200) {
  
closureN_type c_732698;
c_732698.hdr.mark = gc_color_red;
 c_732698.hdr.grayed = 0;
c_732698.tag = closureN_tag;
 c_732698.fn = (function_type)__lambda_334;
c_732698.num_args = 1;
c_732698.num_elt = 7;
c_732698.elts = (object *)alloca(sizeof(object) * 7);
c_732698.elts[0] = ((closureN)self_73786)->elts[0];
c_732698.elts[1] = ((closureN)self_73786)->elts[1];
c_732698.elts[2] = n_73200;
c_732698.elts[3] = ((closureN)self_73786)->elts[2];
c_732698.elts[4] = ((closureN)self_73786)->elts[3];
c_732698.elts[5] = term_73201;
c_732698.elts[6] = ((closureN)self_73786)->elts[4];

return_closcall1(data,(closure)&c_732698,  boolean_f);; 
}

static void __lambda_334(void *data, int argc, object self_73787, object lp_73202) {
  
closureN_type c_732700;
c_732700.hdr.mark = gc_color_red;
 c_732700.hdr.grayed = 0;
c_732700.tag = closureN_tag;
 c_732700.fn = (function_type)__lambda_333;
c_732700.num_args = 1;
c_732700.num_elt = 7;
c_732700.elts = (object *)alloca(sizeof(object) * 7);
c_732700.elts[0] = ((closureN)self_73787)->elts[0];
c_732700.elts[1] = ((closureN)self_73787)->elts[1];
c_732700.elts[2] = ((closureN)self_73787)->elts[2];
c_732700.elts[3] = ((closureN)self_73787)->elts[3];
c_732700.elts[4] = ((closureN)self_73787)->elts[4];
c_732700.elts[5] = ((closureN)self_73787)->elts[5];
c_732700.elts[6] = ((closureN)self_73787)->elts[6];


make_cell(c_732760,lp_73202);
return_closcall1(data,(closure)&c_732700,  &c_732760);; 
}

static void __lambda_333(void *data, int argc, object self_73788, object lp_73202) {
  
closureN_type c_732702;
c_732702.hdr.mark = gc_color_red;
 c_732702.hdr.grayed = 0;
c_732702.tag = closureN_tag;
 c_732702.fn = (function_type)__lambda_326;
c_732702.num_args = 1;
c_732702.num_elt = 8;
c_732702.elts = (object *)alloca(sizeof(object) * 8);
c_732702.elts[0] = ((closureN)self_73788)->elts[0];
c_732702.elts[1] = ((closureN)self_73788)->elts[1];
c_732702.elts[2] = lp_73202;
c_732702.elts[3] = ((closureN)self_73788)->elts[2];
c_732702.elts[4] = ((closureN)self_73788)->elts[3];
c_732702.elts[5] = ((closureN)self_73788)->elts[4];
c_732702.elts[6] = ((closureN)self_73788)->elts[5];
c_732702.elts[7] = ((closureN)self_73788)->elts[6];


closureN_type c_732731;
c_732731.hdr.mark = gc_color_red;
 c_732731.hdr.grayed = 0;
c_732731.tag = closureN_tag;
 c_732731.fn = (function_type)__lambda_332;
c_732731.num_args = 2;
c_732731.num_elt = 1;
c_732731.elts = (object *)alloca(sizeof(object) * 1);
c_732731.elts[0] = lp_73202;

return_closcall1(data,(closure)&c_732702,  &c_732731);; 
}

static void __lambda_332(void *data, int argc, object self_73789, object k_73485, object term_73204, object n_73203) {
  
closureN_type c_732733;
c_732733.hdr.mark = gc_color_red;
 c_732733.hdr.grayed = 0;
c_732733.tag = closureN_tag;
 c_732733.fn = (function_type)__lambda_331;
c_732733.num_args = 1;
c_732733.num_elt = 4;
c_732733.elts = (object *)alloca(sizeof(object) * 4);
c_732733.elts[0] = k_73485;
c_732733.elts[1] = ((closureN)self_73789)->elts[0];
c_732733.elts[2] = n_73203;
c_732733.elts[3] = term_73204;

return_closcall2(data,  __glo_zero_127_scheme_base,  &c_732733, n_73203);; 
}

static void __lambda_331(void *data, int argc, object self_73790, object r_73486) {
  if( !eq(boolean_f, r_73486) ){ 
  return_closcall1(data,  ((closureN)self_73790)->elts[0],  ((closureN)self_73790)->elts[3]);
} else { 
  
closureN_type c_732738;
c_732738.hdr.mark = gc_color_red;
 c_732738.hdr.grayed = 0;
c_732738.tag = closureN_tag;
 c_732738.fn = (function_type)__lambda_330;
c_732738.num_args = 1;
c_732738.num_elt = 4;
c_732738.elts = (object *)alloca(sizeof(object) * 4);
c_732738.elts[0] = ((closureN)self_73790)->elts[0];
c_732738.elts[1] = ((closureN)self_73790)->elts[1];
c_732738.elts[2] = ((closureN)self_73790)->elts[2];
c_732738.elts[3] = ((closureN)self_73790)->elts[3];

return_closcall1(data,(closure)&c_732738,  quote_or);}
; 
}

static void __lambda_330(void *data, int argc, object self_73791, object r_73489) {
  
closureN_type c_732740;
c_732740.hdr.mark = gc_color_red;
 c_732740.hdr.grayed = 0;
c_732740.tag = closureN_tag;
 c_732740.fn = (function_type)__lambda_329;
c_732740.num_args = 1;
c_732740.num_elt = 5;
c_732740.elts = (object *)alloca(sizeof(object) * 5);
c_732740.elts[0] = ((closureN)self_73791)->elts[0];
c_732740.elts[1] = ((closureN)self_73791)->elts[1];
c_732740.elts[2] = ((closureN)self_73791)->elts[2];
c_732740.elts[3] = r_73489;
c_732740.elts[4] = ((closureN)self_73791)->elts[3];


make_cons(c_732757,quote_f,nil);
return_closcall1(data,(closure)&c_732740,  &c_732757);; 
}

static void __lambda_329(void *data, int argc, object self_73792, object r_73490) {
  
closureN_type c_732742;
c_732742.hdr.mark = gc_color_red;
 c_732742.hdr.grayed = 0;
c_732742.tag = closureN_tag;
 c_732742.fn = (function_type)__lambda_328;
c_732742.num_args = 1;
c_732742.num_elt = 3;
c_732742.elts = (object *)alloca(sizeof(object) * 3);
c_732742.elts[0] = ((closureN)self_73792)->elts[0];
c_732742.elts[1] = ((closureN)self_73792)->elts[1];
c_732742.elts[2] = ((closureN)self_73792)->elts[2];

return_closcall4(data,  __glo__list_scheme_base,  &c_732742, ((closureN)self_73792)->elts[3], ((closureN)self_73792)->elts[4], r_73490);; 
}

static void __lambda_328(void *data, int argc, object self_73793, object r_73487) {
  
closureN_type c_732744;
c_732744.hdr.mark = gc_color_red;
 c_732744.hdr.grayed = 0;
c_732744.tag = closureN_tag;
 c_732744.fn = (function_type)__lambda_327;
c_732744.num_args = 1;
c_732744.num_elt = 3;
c_732744.elts = (object *)alloca(sizeof(object) * 3);
c_732744.elts[0] = ((closureN)self_73793)->elts[0];
c_732744.elts[1] = ((closureN)self_73793)->elts[1];
c_732744.elts[2] = r_73487;


object c_732753 = Cyc_sub(data,(closure)&c_732744,2,((closureN)self_73793)->elts[2], obj_int2obj(1));
return_closcall1(data,(closure)&c_732744,  c_732753);; 
}

static void __lambda_327(void *data, int argc, object self_73794, object r_73488) {
  return_closcall3(data,  cell_get(((closureN)self_73794)->elts[1]),  ((closureN)self_73794)->elts[0], ((closureN)self_73794)->elts[2], r_73488);; 
}

static void __lambda_326(void *data, int argc, object self_73795, object r_73484) {
  
closureN_type c_732704;
c_732704.hdr.mark = gc_color_red;
 c_732704.hdr.grayed = 0;
c_732704.tag = closureN_tag;
 c_732704.fn = (function_type)__lambda_325;
c_732704.num_args = 1;
c_732704.num_elt = 8;
c_732704.elts = (object *)alloca(sizeof(object) * 8);
c_732704.elts[0] = ((closureN)self_73795)->elts[0];
c_732704.elts[1] = ((closureN)self_73795)->elts[1];
c_732704.elts[2] = ((closureN)self_73795)->elts[2];
c_732704.elts[3] = ((closureN)self_73795)->elts[3];
c_732704.elts[4] = ((closureN)self_73795)->elts[4];
c_732704.elts[5] = ((closureN)self_73795)->elts[5];
c_732704.elts[6] = ((closureN)self_73795)->elts[6];
c_732704.elts[7] = ((closureN)self_73795)->elts[7];

return_closcall1(data,(closure)&c_732704,  Cyc_set_car(data, ((closureN)self_73795)->elts[2], r_73484));; 
}

static void __lambda_325(void *data, int argc, object self_73796, object r_73483) {
  
closureN_type c_732709;
c_732709.hdr.mark = gc_color_red;
 c_732709.hdr.grayed = 0;
c_732709.tag = closureN_tag;
 c_732709.fn = (function_type)__lambda_324;
c_732709.num_args = 1;
c_732709.num_elt = 5;
c_732709.elts = (object *)alloca(sizeof(object) * 5);
c_732709.elts[0] = ((closureN)self_73796)->elts[0];
c_732709.elts[1] = ((closureN)self_73796)->elts[1];
c_732709.elts[2] = ((closureN)self_73796)->elts[4];
c_732709.elts[3] = ((closureN)self_73796)->elts[5];
c_732709.elts[4] = ((closureN)self_73796)->elts[7];

return_closcall3(data,  cell_get(((closureN)self_73796)->elts[2]),  &c_732709, ((closureN)self_73796)->elts[6], ((closureN)self_73796)->elts[3]);; 
}

static void __lambda_324(void *data, int argc, object self_73797, object r_73482) {
  
closureN_type c_732714;
c_732714.hdr.mark = gc_color_red;
 c_732714.hdr.grayed = 0;
c_732714.tag = closureN_tag;
 c_732714.fn = (function_type)__lambda_323;
c_732714.num_args = 1;
c_732714.num_elt = 4;
c_732714.elts = (object *)alloca(sizeof(object) * 4);
c_732714.elts[0] = ((closureN)self_73797)->elts[0];
c_732714.elts[1] = ((closureN)self_73797)->elts[1];
c_732714.elts[2] = ((closureN)self_73797)->elts[2];
c_732714.elts[3] = ((closureN)self_73797)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73797)->elts[4]),  &c_732714, r_73482);; 
}

static void __lambda_323(void *data, int argc, object self_73798, object r_73481) {
  
closureN_type c_732719;
c_732719.hdr.mark = gc_color_red;
 c_732719.hdr.grayed = 0;
c_732719.tag = closureN_tag;
 c_732719.fn = (function_type)__lambda_322;
c_732719.num_args = 1;
c_732719.num_elt = 2;
c_732719.elts = (object *)alloca(sizeof(object) * 2);
c_732719.elts[0] = ((closureN)self_73798)->elts[1];
c_732719.elts[1] = ((closureN)self_73798)->elts[3];

return_closcall3(data,  cell_get(((closureN)self_73798)->elts[0]),  &c_732719, ((closureN)self_73798)->elts[2], r_73481);; 
}

static void __lambda_322(void *data, int argc, object self_73799, object term_73205) {
  return_closcall2(data,  cell_get(((closureN)self_73799)->elts[1]),  ((closureN)self_73799)->elts[0], term_73205);; 
}

static void __lambda_321(void *data, int argc, object self_73800, object r_73477) {
  
closureN_type c_731547;
c_731547.hdr.mark = gc_color_red;
 c_731547.hdr.grayed = 0;
c_731547.tag = closureN_tag;
 c_731547.fn = (function_type)__lambda_320;
c_731547.num_args = 1;
c_731547.num_elt = 30;
c_731547.elts = (object *)alloca(sizeof(object) * 30);
c_731547.elts[0] = ((closureN)self_73800)->elts[0];
c_731547.elts[1] = ((closureN)self_73800)->elts[1];
c_731547.elts[2] = ((closureN)self_73800)->elts[2];
c_731547.elts[3] = ((closureN)self_73800)->elts[3];
c_731547.elts[4] = ((closureN)self_73800)->elts[4];
c_731547.elts[5] = ((closureN)self_73800)->elts[5];
c_731547.elts[6] = ((closureN)self_73800)->elts[6];
c_731547.elts[7] = ((closureN)self_73800)->elts[7];
c_731547.elts[8] = ((closureN)self_73800)->elts[8];
c_731547.elts[9] = ((closureN)self_73800)->elts[9];
c_731547.elts[10] = ((closureN)self_73800)->elts[10];
c_731547.elts[11] = ((closureN)self_73800)->elts[11];
c_731547.elts[12] = ((closureN)self_73800)->elts[12];
c_731547.elts[13] = ((closureN)self_73800)->elts[13];
c_731547.elts[14] = ((closureN)self_73800)->elts[14];
c_731547.elts[15] = ((closureN)self_73800)->elts[15];
c_731547.elts[16] = ((closureN)self_73800)->elts[16];
c_731547.elts[17] = ((closureN)self_73800)->elts[17];
c_731547.elts[18] = ((closureN)self_73800)->elts[18];
c_731547.elts[19] = ((closureN)self_73800)->elts[19];
c_731547.elts[20] = ((closureN)self_73800)->elts[20];
c_731547.elts[21] = ((closureN)self_73800)->elts[21];
c_731547.elts[22] = ((closureN)self_73800)->elts[22];
c_731547.elts[23] = ((closureN)self_73800)->elts[23];
c_731547.elts[24] = ((closureN)self_73800)->elts[24];
c_731547.elts[25] = ((closureN)self_73800)->elts[25];
c_731547.elts[26] = ((closureN)self_73800)->elts[26];
c_731547.elts[27] = ((closureN)self_73800)->elts[27];
c_731547.elts[28] = ((closureN)self_73800)->elts[28];
c_731547.elts[29] = ((closureN)self_73800)->elts[29];

return_closcall1(data,(closure)&c_731547,  Cyc_set_car(data, ((closureN)self_73800)->elts[22], r_73477));; 
}

static void __lambda_320(void *data, int argc, object self_73801, object r_73280) {
  
closureN_type c_731549;
c_731549.hdr.mark = gc_color_red;
 c_731549.hdr.grayed = 0;
c_731549.tag = closureN_tag;
 c_731549.fn = (function_type)__lambda_309;
c_731549.num_args = 1;
c_731549.num_elt = 30;
c_731549.elts = (object *)alloca(sizeof(object) * 30);
c_731549.elts[0] = ((closureN)self_73801)->elts[0];
c_731549.elts[1] = ((closureN)self_73801)->elts[1];
c_731549.elts[2] = ((closureN)self_73801)->elts[2];
c_731549.elts[3] = ((closureN)self_73801)->elts[3];
c_731549.elts[4] = ((closureN)self_73801)->elts[4];
c_731549.elts[5] = ((closureN)self_73801)->elts[5];
c_731549.elts[6] = ((closureN)self_73801)->elts[6];
c_731549.elts[7] = ((closureN)self_73801)->elts[7];
c_731549.elts[8] = ((closureN)self_73801)->elts[8];
c_731549.elts[9] = ((closureN)self_73801)->elts[9];
c_731549.elts[10] = ((closureN)self_73801)->elts[10];
c_731549.elts[11] = ((closureN)self_73801)->elts[11];
c_731549.elts[12] = ((closureN)self_73801)->elts[12];
c_731549.elts[13] = ((closureN)self_73801)->elts[13];
c_731549.elts[14] = ((closureN)self_73801)->elts[14];
c_731549.elts[15] = ((closureN)self_73801)->elts[15];
c_731549.elts[16] = ((closureN)self_73801)->elts[16];
c_731549.elts[17] = ((closureN)self_73801)->elts[17];
c_731549.elts[18] = ((closureN)self_73801)->elts[18];
c_731549.elts[19] = ((closureN)self_73801)->elts[19];
c_731549.elts[20] = ((closureN)self_73801)->elts[20];
c_731549.elts[21] = ((closureN)self_73801)->elts[21];
c_731549.elts[22] = ((closureN)self_73801)->elts[22];
c_731549.elts[23] = ((closureN)self_73801)->elts[23];
c_731549.elts[24] = ((closureN)self_73801)->elts[24];
c_731549.elts[25] = ((closureN)self_73801)->elts[25];
c_731549.elts[26] = ((closureN)self_73801)->elts[26];
c_731549.elts[27] = ((closureN)self_73801)->elts[27];
c_731549.elts[28] = ((closureN)self_73801)->elts[28];
c_731549.elts[29] = ((closureN)self_73801)->elts[29];


closureN_type c_732638;
c_732638.hdr.mark = gc_color_red;
 c_732638.hdr.grayed = 0;
c_732638.tag = closureN_tag;
 c_732638.fn = (function_type)__lambda_319;
c_732638.num_args = 1;
c_732638.num_elt = 2;
c_732638.elts = (object *)alloca(sizeof(object) * 2);
c_732638.elts[0] = ((closureN)self_73801)->elts[25];
c_732638.elts[1] = ((closureN)self_73801)->elts[26];

return_closcall1(data,(closure)&c_731549,  &c_732638);; 
}

static void __lambda_319(void *data, int argc, object self_73802, object k_73469, object alist_73196) {
  
closureN_type c_732640;
c_732640.hdr.mark = gc_color_red;
 c_732640.hdr.grayed = 0;
c_732640.tag = closureN_tag;
 c_732640.fn = (function_type)__lambda_318;
c_732640.num_args = 1;
c_732640.num_elt = 4;
c_732640.elts = (object *)alloca(sizeof(object) * 4);
c_732640.elts[0] = alist_73196;
c_732640.elts[1] = k_73469;
c_732640.elts[2] = ((closureN)self_73802)->elts[0];
c_732640.elts[3] = ((closureN)self_73802)->elts[1];

return_closcall1(data,(closure)&c_732640,  Cyc_is_null(alist_73196));; 
}

static void __lambda_318(void *data, int argc, object self_73803, object r_73470) {
  if( !eq(boolean_f, r_73470) ){ 
  
closureN_type c_732642;
c_732642.hdr.mark = gc_color_red;
 c_732642.hdr.grayed = 0;
c_732642.tag = closureN_tag;
 c_732642.fn = (function_type)__lambda_310;
c_732642.num_args = 0;
c_732642.num_elt = 1;
c_732642.elts = (object *)alloca(sizeof(object) * 1);
c_732642.elts[0] = ((closureN)self_73803)->elts[1];

return_closcall0(data,(closure)&c_732642);
} else { 
  
closureN_type c_732646;
c_732646.hdr.mark = gc_color_red;
 c_732646.hdr.grayed = 0;
c_732646.tag = closureN_tag;
 c_732646.fn = (function_type)__lambda_317;
c_732646.num_args = 0;
c_732646.num_elt = 4;
c_732646.elts = (object *)alloca(sizeof(object) * 4);
c_732646.elts[0] = ((closureN)self_73803)->elts[0];
c_732646.elts[1] = ((closureN)self_73803)->elts[1];
c_732646.elts[2] = ((closureN)self_73803)->elts[2];
c_732646.elts[3] = ((closureN)self_73803)->elts[3];

return_closcall0(data,(closure)&c_732646);}
; 
}

static void __lambda_317(void *data, int argc, object self_73804) {
  
closureN_type c_732648;
c_732648.hdr.mark = gc_color_red;
 c_732648.hdr.grayed = 0;
c_732648.tag = closureN_tag;
 c_732648.fn = (function_type)__lambda_316;
c_732648.num_args = 1;
c_732648.num_elt = 4;
c_732648.elts = (object *)alloca(sizeof(object) * 4);
c_732648.elts[0] = ((closureN)self_73804)->elts[0];
c_732648.elts[1] = ((closureN)self_73804)->elts[1];
c_732648.elts[2] = ((closureN)self_73804)->elts[2];
c_732648.elts[3] = ((closureN)self_73804)->elts[3];

return_closcall1(data,(closure)&c_732648,  caar(((closureN)self_73804)->elts[0]));; 
}

static void __lambda_316(void *data, int argc, object self_73805, object r_73474) {
  
closureN_type c_732650;
c_732650.hdr.mark = gc_color_red;
 c_732650.hdr.grayed = 0;
c_732650.tag = closureN_tag;
 c_732650.fn = (function_type)__lambda_315;
c_732650.num_args = 1;
c_732650.num_elt = 5;
c_732650.elts = (object *)alloca(sizeof(object) * 5);
c_732650.elts[0] = ((closureN)self_73805)->elts[0];
c_732650.elts[1] = ((closureN)self_73805)->elts[1];
c_732650.elts[2] = r_73474;
c_732650.elts[3] = ((closureN)self_73805)->elts[2];
c_732650.elts[4] = ((closureN)self_73805)->elts[3];

return_closcall1(data,(closure)&c_732650,  cdar(((closureN)self_73805)->elts[0]));; 
}

static void __lambda_315(void *data, int argc, object self_73806, object r_73476) {
  
closureN_type c_732655;
c_732655.hdr.mark = gc_color_red;
 c_732655.hdr.grayed = 0;
c_732655.tag = closureN_tag;
 c_732655.fn = (function_type)__lambda_314;
c_732655.num_args = 1;
c_732655.num_elt = 4;
c_732655.elts = (object *)alloca(sizeof(object) * 4);
c_732655.elts[0] = ((closureN)self_73806)->elts[0];
c_732655.elts[1] = ((closureN)self_73806)->elts[1];
c_732655.elts[2] = ((closureN)self_73806)->elts[2];
c_732655.elts[3] = ((closureN)self_73806)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73806)->elts[4]),  &c_732655, r_73476);; 
}

static void __lambda_314(void *data, int argc, object self_73807, object r_73475) {
  
closureN_type c_732657;
c_732657.hdr.mark = gc_color_red;
 c_732657.hdr.grayed = 0;
c_732657.tag = closureN_tag;
 c_732657.fn = (function_type)__lambda_313;
c_732657.num_args = 1;
c_732657.num_elt = 3;
c_732657.elts = (object *)alloca(sizeof(object) * 3);
c_732657.elts[0] = ((closureN)self_73807)->elts[0];
c_732657.elts[1] = ((closureN)self_73807)->elts[1];
c_732657.elts[2] = ((closureN)self_73807)->elts[3];


make_cons(c_732676,((closureN)self_73807)->elts[2], r_73475);
return_closcall1(data,(closure)&c_732657,  &c_732676);; 
}

static void __lambda_313(void *data, int argc, object self_73808, object r_73471) {
  
closureN_type c_732659;
c_732659.hdr.mark = gc_color_red;
 c_732659.hdr.grayed = 0;
c_732659.tag = closureN_tag;
 c_732659.fn = (function_type)__lambda_312;
c_732659.num_args = 1;
c_732659.num_elt = 3;
c_732659.elts = (object *)alloca(sizeof(object) * 3);
c_732659.elts[0] = ((closureN)self_73808)->elts[1];
c_732659.elts[1] = r_73471;
c_732659.elts[2] = ((closureN)self_73808)->elts[2];

return_closcall1(data,(closure)&c_732659,  cdr(((closureN)self_73808)->elts[0]));; 
}

static void __lambda_312(void *data, int argc, object self_73809, object r_73473) {
  
closureN_type c_732664;
c_732664.hdr.mark = gc_color_red;
 c_732664.hdr.grayed = 0;
c_732664.tag = closureN_tag;
 c_732664.fn = (function_type)__lambda_311;
c_732664.num_args = 1;
c_732664.num_elt = 2;
c_732664.elts = (object *)alloca(sizeof(object) * 2);
c_732664.elts[0] = ((closureN)self_73809)->elts[0];
c_732664.elts[1] = ((closureN)self_73809)->elts[1];

return_closcall2(data,  cell_get(((closureN)self_73809)->elts[2]),  &c_732664, r_73473);; 
}

static void __lambda_311(void *data, int argc, object self_73810, object r_73472) {
  
make_cons(c_732669,((closureN)self_73810)->elts[1], r_73472);
return_closcall1(data,  ((closureN)self_73810)->elts[0],  &c_732669);; 
}

static void __lambda_310(void *data, int argc, object self_73811) {
  return_closcall1(data,  ((closureN)self_73811)->elts[0],  nil);; 
}

static void __lambda_309(void *data, int argc, object self_73812, object r_73468) {
  
closureN_type c_731551;
c_731551.hdr.mark = gc_color_red;
 c_731551.hdr.grayed = 0;
c_731551.tag = closureN_tag;
 c_731551.fn = (function_type)__lambda_308;
c_731551.num_args = 1;
c_731551.num_elt = 29;
c_731551.elts = (object *)alloca(sizeof(object) * 29);
c_731551.elts[0] = ((closureN)self_73812)->elts[0];
c_731551.elts[1] = ((closureN)self_73812)->elts[1];
c_731551.elts[2] = ((closureN)self_73812)->elts[2];
c_731551.elts[3] = ((closureN)self_73812)->elts[3];
c_731551.elts[4] = ((closureN)self_73812)->elts[4];
c_731551.elts[5] = ((closureN)self_73812)->elts[5];
c_731551.elts[6] = ((closureN)self_73812)->elts[6];
c_731551.elts[7] = ((closureN)self_73812)->elts[7];
c_731551.elts[8] = ((closureN)self_73812)->elts[8];
c_731551.elts[9] = ((closureN)self_73812)->elts[9];
c_731551.elts[10] = ((closureN)self_73812)->elts[10];
c_731551.elts[11] = ((closureN)self_73812)->elts[11];
c_731551.elts[12] = ((closureN)self_73812)->elts[12];
c_731551.elts[13] = ((closureN)self_73812)->elts[13];
c_731551.elts[14] = ((closureN)self_73812)->elts[14];
c_731551.elts[15] = ((closureN)self_73812)->elts[15];
c_731551.elts[16] = ((closureN)self_73812)->elts[16];
c_731551.elts[17] = ((closureN)self_73812)->elts[17];
c_731551.elts[18] = ((closureN)self_73812)->elts[18];
c_731551.elts[19] = ((closureN)self_73812)->elts[19];
c_731551.elts[20] = ((closureN)self_73812)->elts[20];
c_731551.elts[21] = ((closureN)self_73812)->elts[21];
c_731551.elts[22] = ((closureN)self_73812)->elts[22];
c_731551.elts[23] = ((closureN)self_73812)->elts[23];
c_731551.elts[24] = ((closureN)self_73812)->elts[24];
c_731551.elts[25] = ((closureN)self_73812)->elts[26];
c_731551.elts[26] = ((closureN)self_73812)->elts[27];
c_731551.elts[27] = ((closureN)self_73812)->elts[28];
c_731551.elts[28] = ((closureN)self_73812)->elts[29];

return_closcall1(data,(closure)&c_731551,  Cyc_set_car(data, ((closureN)self_73812)->elts[25], r_73468));; 
}

static void __lambda_308(void *data, int argc, object self_73813, object r_73281) {
  
closureN_type c_731553;
c_731553.hdr.mark = gc_color_red;
 c_731553.hdr.grayed = 0;
c_731553.tag = closureN_tag;
 c_731553.fn = (function_type)__lambda_299;
c_731553.num_args = 1;
c_731553.num_elt = 29;
c_731553.elts = (object *)alloca(sizeof(object) * 29);
c_731553.elts[0] = ((closureN)self_73813)->elts[0];
c_731553.elts[1] = ((closureN)self_73813)->elts[1];
c_731553.elts[2] = ((closureN)self_73813)->elts[2];
c_731553.elts[3] = ((closureN)self_73813)->elts[3];
c_731553.elts[4] = ((closureN)self_73813)->elts[4];
c_731553.elts[5] = ((closureN)self_73813)->elts[5];
c_731553.elts[6] = ((closureN)self_73813)->elts[6];
c_731553.elts[7] = ((closureN)self_73813)->elts[7];
c_731553.elts[8] = ((closureN)self_73813)->elts[8];
c_731553.elts[9] = ((closureN)self_73813)->elts[9];
c_731553.elts[10] = ((closureN)self_73813)->elts[10];
c_731553.elts[11] = ((closureN)self_73813)->elts[11];
c_731553.elts[12] = ((closureN)self_73813)->elts[12];
c_731553.elts[13] = ((closureN)self_73813)->elts[13];
c_731553.elts[14] = ((closureN)self_73813)->elts[14];
c_731553.elts[15] = ((closureN)self_73813)->elts[15];
c_731553.elts[16] = ((closureN)self_73813)->elts[16];
c_731553.elts[17] = ((closureN)self_73813)->elts[17];
c_731553.elts[18] = ((closureN)self_73813)->elts[18];
c_731553.elts[19] = ((closureN)self_73813)->elts[19];
c_731553.elts[20] = ((closureN)self_73813)->elts[20];
c_731553.elts[21] = ((closureN)self_73813)->elts[21];
c_731553.elts[22] = ((closureN)self_73813)->elts[22];
c_731553.elts[23] = ((closureN)self_73813)->elts[23];
c_731553.elts[24] = ((closureN)self_73813)->elts[24];
c_731553.elts[25] = ((closureN)self_73813)->elts[25];
c_731553.elts[26] = ((closureN)self_73813)->elts[26];
c_731553.elts[27] = ((closureN)self_73813)->elts[27];
c_731553.elts[28] = ((closureN)self_73813)->elts[28];


closureN_type c_732591;
c_732591.hdr.mark = gc_color_red;
 c_732591.hdr.grayed = 0;
c_732591.tag = closureN_tag;
 c_732591.fn = (function_type)__lambda_307;
c_732591.num_args = 2;
c_732591.num_elt = 1;
c_732591.elts = (object *)alloca(sizeof(object) * 1);
c_732591.elts[0] = ((closureN)self_73813)->elts[2];

return_closcall1(data,(closure)&c_731553,  &c_732591);; 
}

static void __lambda_307(void *data, int argc, object self_73814, object k_73462, object alist_73194, object term_73193) {
  
closureN_type c_732593;
c_732593.hdr.mark = gc_color_red;
 c_732593.hdr.grayed = 0;
c_732593.tag = closureN_tag;
 c_732593.fn = (function_type)__lambda_306;
c_732593.num_args = 1;
c_732593.num_elt = 4;
c_732593.elts = (object *)alloca(sizeof(object) * 4);
c_732593.elts[0] = alist_73194;
c_732593.elts[1] = ((closureN)self_73814)->elts[0];
c_732593.elts[2] = k_73462;
c_732593.elts[3] = term_73193;

return_closcall1(data,(closure)&c_732593,  Cyc_is_cons(term_73193));; 
}

static void __lambda_306(void *data, int argc, object self_73815, object r_73463) {
  if( !eq(boolean_f, r_73463) ){ 
  
closureN_type c_732595;
c_732595.hdr.mark = gc_color_red;
 c_732595.hdr.grayed = 0;
c_732595.tag = closureN_tag;
 c_732595.fn = (function_type)__lambda_303;
c_732595.num_args = 0;
c_732595.num_elt = 4;
c_732595.elts = (object *)alloca(sizeof(object) * 4);
c_732595.elts[0] = ((closureN)self_73815)->elts[0];
c_732595.elts[1] = ((closureN)self_73815)->elts[1];
c_732595.elts[2] = ((closureN)self_73815)->elts[2];
c_732595.elts[3] = ((closureN)self_73815)->elts[3];

return_closcall0(data,(closure)&c_732595);
} else { 
  
closureN_type c_732619;
c_732619.hdr.mark = gc_color_red;
 c_732619.hdr.grayed = 0;
c_732619.tag = closureN_tag;
 c_732619.fn = (function_type)__lambda_305;
c_732619.num_args = 0;
c_732619.num_elt = 3;
c_732619.elts = (object *)alloca(sizeof(object) * 3);
c_732619.elts[0] = ((closureN)self_73815)->elts[0];
c_732619.elts[1] = ((closureN)self_73815)->elts[2];
c_732619.elts[2] = ((closureN)self_73815)->elts[3];

return_closcall0(data,(closure)&c_732619);}
; 
}

static void __lambda_305(void *data, int argc, object self_73816) {
  
closureN_type c_732621;
c_732621.hdr.mark = gc_color_red;
 c_732621.hdr.grayed = 0;
c_732621.tag = closureN_tag;
 c_732621.fn = (function_type)__lambda_304;
c_732621.num_args = 1;
c_732621.num_elt = 2;
c_732621.elts = (object *)alloca(sizeof(object) * 2);
c_732621.elts[0] = ((closureN)self_73816)->elts[1];
c_732621.elts[1] = ((closureN)self_73816)->elts[2];

return_closcall1(data,(closure)&c_732621,  assq(data, ((closureN)self_73816)->elts[2], ((closureN)self_73816)->elts[0]));; 
}

static void __lambda_304(void *data, int argc, object self_73817, object temp_91temp_73195) {
  if( !eq(boolean_f, temp_91temp_73195) ){ 
  return_closcall1(data,  ((closureN)self_73817)->elts[0],  cdr(temp_91temp_73195));
} else { 
  return_closcall1(data,  ((closureN)self_73817)->elts[0],  ((closureN)self_73817)->elts[1]);}
; 
}

static void __lambda_303(void *data, int argc, object self_73818) {
  
closureN_type c_732597;
c_732597.hdr.mark = gc_color_red;
 c_732597.hdr.grayed = 0;
c_732597.tag = closureN_tag;
 c_732597.fn = (function_type)__lambda_302;
c_732597.num_args = 1;
c_732597.num_elt = 4;
c_732597.elts = (object *)alloca(sizeof(object) * 4);
c_732597.elts[0] = ((closureN)self_73818)->elts[0];
c_732597.elts[1] = ((closureN)self_73818)->elts[1];
c_732597.elts[2] = ((closureN)self_73818)->elts[2];
c_732597.elts[3] = ((closureN)self_73818)->elts[3];

return_closcall1(data,(closure)&c_732597,  car(((closureN)self_73818)->elts[3]));; 
}

static void __lambda_302(void *data, int argc, object self_73819, object r_73464) {
  
closureN_type c_732599;
c_732599.hdr.mark = gc_color_red;
 c_732599.hdr.grayed = 0;
c_732599.tag = closureN_tag;
 c_732599.fn = (function_type)__lambda_301;
c_732599.num_args = 1;
c_732599.num_elt = 4;
c_732599.elts = (object *)alloca(sizeof(object) * 4);
c_732599.elts[0] = ((closureN)self_73819)->elts[0];
c_732599.elts[1] = ((closureN)self_73819)->elts[1];
c_732599.elts[2] = ((closureN)self_73819)->elts[2];
c_732599.elts[3] = r_73464;

return_closcall1(data,(closure)&c_732599,  cdr(((closureN)self_73819)->elts[3]));; 
}

static void __lambda_301(void *data, int argc, object self_73820, object r_73466) {
  
closureN_type c_732604;
c_732604.hdr.mark = gc_color_red;
 c_732604.hdr.grayed = 0;
c_732604.tag = closureN_tag;
 c_732604.fn = (function_type)__lambda_300;
c_732604.num_args = 1;
c_732604.num_elt = 2;
c_732604.elts = (object *)alloca(sizeof(object) * 2);
c_732604.elts[0] = ((closureN)self_73820)->elts[2];
c_732604.elts[1] = ((closureN)self_73820)->elts[3];

return_closcall3(data,  cell_get(((closureN)self_73820)->elts[1]),  &c_732604, ((closureN)self_73820)->elts[0], r_73466);; 
}

static void __lambda_300(void *data, int argc, object self_73821, object r_73465) {
  
make_cons(c_732609,((closureN)self_73821)->elts[1], r_73465);
return_closcall1(data,  ((closureN)self_73821)->elts[0],  &c_732609);; 
}

static void __lambda_299(void *data, int argc, object self_73822, object r_73461) {
  
closureN_type c_731555;
c_731555.hdr.mark = gc_color_red;
 c_731555.hdr.grayed = 0;
c_731555.tag = closureN_tag;
 c_731555.fn = (function_type)__lambda_298;
c_731555.num_args = 1;
c_731555.num_elt = 29;
c_731555.elts = (object *)alloca(sizeof(object) * 29);
c_731555.elts[0] = ((closureN)self_73822)->elts[0];
c_731555.elts[1] = ((closureN)self_73822)->elts[1];
c_731555.elts[2] = ((closureN)self_73822)->elts[2];
c_731555.elts[3] = ((closureN)self_73822)->elts[3];
c_731555.elts[4] = ((closureN)self_73822)->elts[4];
c_731555.elts[5] = ((closureN)self_73822)->elts[5];
c_731555.elts[6] = ((closureN)self_73822)->elts[6];
c_731555.elts[7] = ((closureN)self_73822)->elts[7];
c_731555.elts[8] = ((closureN)self_73822)->elts[8];
c_731555.elts[9] = ((closureN)self_73822)->elts[9];
c_731555.elts[10] = ((closureN)self_73822)->elts[10];
c_731555.elts[11] = ((closureN)self_73822)->elts[11];
c_731555.elts[12] = ((closureN)self_73822)->elts[12];
c_731555.elts[13] = ((closureN)self_73822)->elts[13];
c_731555.elts[14] = ((closureN)self_73822)->elts[14];
c_731555.elts[15] = ((closureN)self_73822)->elts[15];
c_731555.elts[16] = ((closureN)self_73822)->elts[16];
c_731555.elts[17] = ((closureN)self_73822)->elts[17];
c_731555.elts[18] = ((closureN)self_73822)->elts[18];
c_731555.elts[19] = ((closureN)self_73822)->elts[19];
c_731555.elts[20] = ((closureN)self_73822)->elts[20];
c_731555.elts[21] = ((closureN)self_73822)->elts[21];
c_731555.elts[22] = ((closureN)self_73822)->elts[22];
c_731555.elts[23] = ((closureN)self_73822)->elts[23];
c_731555.elts[24] = ((closureN)self_73822)->elts[24];
c_731555.elts[25] = ((closureN)self_73822)->elts[25];
c_731555.elts[26] = ((closureN)self_73822)->elts[26];
c_731555.elts[27] = ((closureN)self_73822)->elts[27];
c_731555.elts[28] = ((closureN)self_73822)->elts[28];

return_closcall1(data,(closure)&c_731555,  Cyc_set_car(data, ((closureN)self_73822)->elts[1], r_73461));; 
}

static void __lambda_298(void *data, int argc, object self_73823, object r_73282) {
  
closureN_type c_731557;
c_731557.hdr.mark = gc_color_red;
 c_731557.hdr.grayed = 0;
c_731557.tag = closureN_tag;
 c_731557.fn = (function_type)__lambda_289;
c_731557.num_args = 1;
c_731557.num_elt = 29;
c_731557.elts = (object *)alloca(sizeof(object) * 29);
c_731557.elts[0] = ((closureN)self_73823)->elts[0];
c_731557.elts[1] = ((closureN)self_73823)->elts[1];
c_731557.elts[2] = ((closureN)self_73823)->elts[2];
c_731557.elts[3] = ((closureN)self_73823)->elts[3];
c_731557.elts[4] = ((closureN)self_73823)->elts[4];
c_731557.elts[5] = ((closureN)self_73823)->elts[5];
c_731557.elts[6] = ((closureN)self_73823)->elts[6];
c_731557.elts[7] = ((closureN)self_73823)->elts[7];
c_731557.elts[8] = ((closureN)self_73823)->elts[8];
c_731557.elts[9] = ((closureN)self_73823)->elts[9];
c_731557.elts[10] = ((closureN)self_73823)->elts[10];
c_731557.elts[11] = ((closureN)self_73823)->elts[11];
c_731557.elts[12] = ((closureN)self_73823)->elts[12];
c_731557.elts[13] = ((closureN)self_73823)->elts[13];
c_731557.elts[14] = ((closureN)self_73823)->elts[14];
c_731557.elts[15] = ((closureN)self_73823)->elts[15];
c_731557.elts[16] = ((closureN)self_73823)->elts[16];
c_731557.elts[17] = ((closureN)self_73823)->elts[17];
c_731557.elts[18] = ((closureN)self_73823)->elts[18];
c_731557.elts[19] = ((closureN)self_73823)->elts[19];
c_731557.elts[20] = ((closureN)self_73823)->elts[20];
c_731557.elts[21] = ((closureN)self_73823)->elts[21];
c_731557.elts[22] = ((closureN)self_73823)->elts[22];
c_731557.elts[23] = ((closureN)self_73823)->elts[23];
c_731557.elts[24] = ((closureN)self_73823)->elts[24];
c_731557.elts[25] = ((closureN)self_73823)->elts[25];
c_731557.elts[26] = ((closureN)self_73823)->elts[26];
c_731557.elts[27] = ((closureN)self_73823)->elts[27];
c_731557.elts[28] = ((closureN)self_73823)->elts[28];


closureN_type c_732549;
c_732549.hdr.mark = gc_color_red;
 c_732549.hdr.grayed = 0;
c_732549.tag = closureN_tag;
 c_732549.fn = (function_type)__lambda_297;
c_732549.num_args = 2;
c_732549.num_elt = 2;
c_732549.elts = (object *)alloca(sizeof(object) * 2);
c_732549.elts[0] = ((closureN)self_73823)->elts[1];
c_732549.elts[1] = ((closureN)self_73823)->elts[2];

return_closcall1(data,(closure)&c_731557,  &c_732549);; 
}

static void __lambda_297(void *data, int argc, object self_73824, object k_73455, object alist_73192, object lst_73191) {
  
closureN_type c_732551;
c_732551.hdr.mark = gc_color_red;
 c_732551.hdr.grayed = 0;
c_732551.tag = closureN_tag;
 c_732551.fn = (function_type)__lambda_296;
c_732551.num_args = 1;
c_732551.num_elt = 5;
c_732551.elts = (object *)alloca(sizeof(object) * 5);
c_732551.elts[0] = alist_73192;
c_732551.elts[1] = ((closureN)self_73824)->elts[0];
c_732551.elts[2] = ((closureN)self_73824)->elts[1];
c_732551.elts[3] = k_73455;
c_732551.elts[4] = lst_73191;

return_closcall1(data,(closure)&c_732551,  Cyc_is_null(lst_73191));; 
}

static void __lambda_296(void *data, int argc, object self_73825, object r_73456) {
  if( !eq(boolean_f, r_73456) ){ 
  
closureN_type c_732553;
c_732553.hdr.mark = gc_color_red;
 c_732553.hdr.grayed = 0;
c_732553.tag = closureN_tag;
 c_732553.fn = (function_type)__lambda_290;
c_732553.num_args = 0;
c_732553.num_elt = 1;
c_732553.elts = (object *)alloca(sizeof(object) * 1);
c_732553.elts[0] = ((closureN)self_73825)->elts[3];

return_closcall0(data,(closure)&c_732553);
} else { 
  
closureN_type c_732557;
c_732557.hdr.mark = gc_color_red;
 c_732557.hdr.grayed = 0;
c_732557.tag = closureN_tag;
 c_732557.fn = (function_type)__lambda_295;
c_732557.num_args = 0;
c_732557.num_elt = 5;
c_732557.elts = (object *)alloca(sizeof(object) * 5);
c_732557.elts[0] = ((closureN)self_73825)->elts[0];
c_732557.elts[1] = ((closureN)self_73825)->elts[1];
c_732557.elts[2] = ((closureN)self_73825)->elts[2];
c_732557.elts[3] = ((closureN)self_73825)->elts[3];
c_732557.elts[4] = ((closureN)self_73825)->elts[4];

return_closcall0(data,(closure)&c_732557);}
; 
}

static void __lambda_295(void *data, int argc, object self_73826) {
  
closureN_type c_732559;
c_732559.hdr.mark = gc_color_red;
 c_732559.hdr.grayed = 0;
c_732559.tag = closureN_tag;
 c_732559.fn = (function_type)__lambda_294;
c_732559.num_args = 1;
c_732559.num_elt = 5;
c_732559.elts = (object *)alloca(sizeof(object) * 5);
c_732559.elts[0] = ((closureN)self_73826)->elts[0];
c_732559.elts[1] = ((closureN)self_73826)->elts[1];
c_732559.elts[2] = ((closureN)self_73826)->elts[2];
c_732559.elts[3] = ((closureN)self_73826)->elts[3];
c_732559.elts[4] = ((closureN)self_73826)->elts[4];

return_closcall1(data,(closure)&c_732559,  car(((closureN)self_73826)->elts[4]));; 
}

static void __lambda_294(void *data, int argc, object self_73827, object r_73460) {
  
closureN_type c_732564;
c_732564.hdr.mark = gc_color_red;
 c_732564.hdr.grayed = 0;
c_732564.tag = closureN_tag;
 c_732564.fn = (function_type)__lambda_293;
c_732564.num_args = 1;
c_732564.num_elt = 4;
c_732564.elts = (object *)alloca(sizeof(object) * 4);
c_732564.elts[0] = ((closureN)self_73827)->elts[0];
c_732564.elts[1] = ((closureN)self_73827)->elts[2];
c_732564.elts[2] = ((closureN)self_73827)->elts[3];
c_732564.elts[3] = ((closureN)self_73827)->elts[4];

return_closcall3(data,  cell_get(((closureN)self_73827)->elts[1]),  &c_732564, ((closureN)self_73827)->elts[0], r_73460);; 
}

static void __lambda_293(void *data, int argc, object self_73828, object r_73457) {
  
closureN_type c_732566;
c_732566.hdr.mark = gc_color_red;
 c_732566.hdr.grayed = 0;
c_732566.tag = closureN_tag;
 c_732566.fn = (function_type)__lambda_292;
c_732566.num_args = 1;
c_732566.num_elt = 4;
c_732566.elts = (object *)alloca(sizeof(object) * 4);
c_732566.elts[0] = ((closureN)self_73828)->elts[0];
c_732566.elts[1] = ((closureN)self_73828)->elts[1];
c_732566.elts[2] = ((closureN)self_73828)->elts[2];
c_732566.elts[3] = r_73457;

return_closcall1(data,(closure)&c_732566,  cdr(((closureN)self_73828)->elts[3]));; 
}

static void __lambda_292(void *data, int argc, object self_73829, object r_73459) {
  
closureN_type c_732571;
c_732571.hdr.mark = gc_color_red;
 c_732571.hdr.grayed = 0;
c_732571.tag = closureN_tag;
 c_732571.fn = (function_type)__lambda_291;
c_732571.num_args = 1;
c_732571.num_elt = 2;
c_732571.elts = (object *)alloca(sizeof(object) * 2);
c_732571.elts[0] = ((closureN)self_73829)->elts[2];
c_732571.elts[1] = ((closureN)self_73829)->elts[3];

return_closcall3(data,  cell_get(((closureN)self_73829)->elts[1]),  &c_732571, ((closureN)self_73829)->elts[0], r_73459);; 
}

static void __lambda_291(void *data, int argc, object self_73830, object r_73458) {
  
make_cons(c_732576,((closureN)self_73830)->elts[1], r_73458);
return_closcall1(data,  ((closureN)self_73830)->elts[0],  &c_732576);; 
}

static void __lambda_290(void *data, int argc, object self_73831) {
  return_closcall1(data,  ((closureN)self_73831)->elts[0],  nil);; 
}

static void __lambda_289(void *data, int argc, object self_73832, object r_73454) {
  
closureN_type c_731559;
c_731559.hdr.mark = gc_color_red;
 c_731559.hdr.grayed = 0;
c_731559.tag = closureN_tag;
 c_731559.fn = (function_type)__lambda_288;
c_731559.num_args = 1;
c_731559.num_elt = 28;
c_731559.elts = (object *)alloca(sizeof(object) * 28);
c_731559.elts[0] = ((closureN)self_73832)->elts[0];
c_731559.elts[1] = ((closureN)self_73832)->elts[1];
c_731559.elts[2] = ((closureN)self_73832)->elts[3];
c_731559.elts[3] = ((closureN)self_73832)->elts[4];
c_731559.elts[4] = ((closureN)self_73832)->elts[5];
c_731559.elts[5] = ((closureN)self_73832)->elts[6];
c_731559.elts[6] = ((closureN)self_73832)->elts[7];
c_731559.elts[7] = ((closureN)self_73832)->elts[8];
c_731559.elts[8] = ((closureN)self_73832)->elts[9];
c_731559.elts[9] = ((closureN)self_73832)->elts[10];
c_731559.elts[10] = ((closureN)self_73832)->elts[11];
c_731559.elts[11] = ((closureN)self_73832)->elts[12];
c_731559.elts[12] = ((closureN)self_73832)->elts[13];
c_731559.elts[13] = ((closureN)self_73832)->elts[14];
c_731559.elts[14] = ((closureN)self_73832)->elts[15];
c_731559.elts[15] = ((closureN)self_73832)->elts[16];
c_731559.elts[16] = ((closureN)self_73832)->elts[17];
c_731559.elts[17] = ((closureN)self_73832)->elts[18];
c_731559.elts[18] = ((closureN)self_73832)->elts[19];
c_731559.elts[19] = ((closureN)self_73832)->elts[20];
c_731559.elts[20] = ((closureN)self_73832)->elts[21];
c_731559.elts[21] = ((closureN)self_73832)->elts[22];
c_731559.elts[22] = ((closureN)self_73832)->elts[23];
c_731559.elts[23] = ((closureN)self_73832)->elts[24];
c_731559.elts[24] = ((closureN)self_73832)->elts[25];
c_731559.elts[25] = ((closureN)self_73832)->elts[26];
c_731559.elts[26] = ((closureN)self_73832)->elts[27];
c_731559.elts[27] = ((closureN)self_73832)->elts[28];

return_closcall1(data,(closure)&c_731559,  Cyc_set_car(data, ((closureN)self_73832)->elts[2], r_73454));; 
}

static void __lambda_288(void *data, int argc, object self_73833, object r_73283) {
  
closureN_type c_731561;
c_731561.hdr.mark = gc_color_red;
 c_731561.hdr.grayed = 0;
c_731561.tag = closureN_tag;
 c_731561.fn = (function_type)__lambda_283;
c_731561.num_args = 1;
c_731561.num_elt = 28;
c_731561.elts = (object *)alloca(sizeof(object) * 28);
c_731561.elts[0] = ((closureN)self_73833)->elts[0];
c_731561.elts[1] = ((closureN)self_73833)->elts[1];
c_731561.elts[2] = ((closureN)self_73833)->elts[2];
c_731561.elts[3] = ((closureN)self_73833)->elts[3];
c_731561.elts[4] = ((closureN)self_73833)->elts[4];
c_731561.elts[5] = ((closureN)self_73833)->elts[5];
c_731561.elts[6] = ((closureN)self_73833)->elts[6];
c_731561.elts[7] = ((closureN)self_73833)->elts[7];
c_731561.elts[8] = ((closureN)self_73833)->elts[8];
c_731561.elts[9] = ((closureN)self_73833)->elts[9];
c_731561.elts[10] = ((closureN)self_73833)->elts[10];
c_731561.elts[11] = ((closureN)self_73833)->elts[11];
c_731561.elts[12] = ((closureN)self_73833)->elts[12];
c_731561.elts[13] = ((closureN)self_73833)->elts[13];
c_731561.elts[14] = ((closureN)self_73833)->elts[14];
c_731561.elts[15] = ((closureN)self_73833)->elts[15];
c_731561.elts[16] = ((closureN)self_73833)->elts[16];
c_731561.elts[17] = ((closureN)self_73833)->elts[17];
c_731561.elts[18] = ((closureN)self_73833)->elts[18];
c_731561.elts[19] = ((closureN)self_73833)->elts[19];
c_731561.elts[20] = ((closureN)self_73833)->elts[20];
c_731561.elts[21] = ((closureN)self_73833)->elts[21];
c_731561.elts[22] = ((closureN)self_73833)->elts[22];
c_731561.elts[23] = ((closureN)self_73833)->elts[23];
c_731561.elts[24] = ((closureN)self_73833)->elts[24];
c_731561.elts[25] = ((closureN)self_73833)->elts[25];
c_731561.elts[26] = ((closureN)self_73833)->elts[26];
c_731561.elts[27] = ((closureN)self_73833)->elts[27];


closureN_type c_732529;
c_732529.hdr.mark = gc_color_red;
 c_732529.hdr.grayed = 0;
c_732529.tag = closureN_tag;
 c_732529.fn = (function_type)__lambda_287;
c_732529.num_args = 1;
c_732529.num_elt = 2;
c_732529.elts = (object *)alloca(sizeof(object) * 2);
c_732529.elts[0] = ((closureN)self_73833)->elts[9];
c_732529.elts[1] = ((closureN)self_73833)->elts[16];

return_closcall1(data,(closure)&c_731561,  &c_732529);; 
}

static void __lambda_287(void *data, int argc, object self_73834, object k_73450, object x_73190) {
  
closureN_type c_732534;
c_732534.hdr.mark = gc_color_red;
 c_732534.hdr.grayed = 0;
c_732534.tag = closureN_tag;
 c_732534.fn = (function_type)__lambda_286;
c_732534.num_args = 1;
c_732534.num_elt = 2;
c_732534.elts = (object *)alloca(sizeof(object) * 2);
c_732534.elts[0] = k_73450;
c_732534.elts[1] = ((closureN)self_73834)->elts[1];

return_closcall2(data,  cell_get(((closureN)self_73834)->elts[0]),  &c_732534, x_73190);; 
}

static void __lambda_286(void *data, int argc, object self_73835, object r_73451) {
  
closureN_type c_732536;
c_732536.hdr.mark = gc_color_red;
 c_732536.hdr.grayed = 0;
c_732536.tag = closureN_tag;
 c_732536.fn = (function_type)__lambda_285;
c_732536.num_args = 1;
c_732536.num_elt = 3;
c_732536.elts = (object *)alloca(sizeof(object) * 3);
c_732536.elts[0] = ((closureN)self_73835)->elts[0];
c_732536.elts[1] = r_73451;
c_732536.elts[2] = ((closureN)self_73835)->elts[1];

return_closcall1(data,(closure)&c_732536,  nil);; 
}

static void __lambda_285(void *data, int argc, object self_73836, object r_73452) {
  
closureN_type c_732538;
c_732538.hdr.mark = gc_color_red;
 c_732538.hdr.grayed = 0;
c_732538.tag = closureN_tag;
 c_732538.fn = (function_type)__lambda_284;
c_732538.num_args = 1;
c_732538.num_elt = 4;
c_732538.elts = (object *)alloca(sizeof(object) * 4);
c_732538.elts[0] = ((closureN)self_73836)->elts[0];
c_732538.elts[1] = ((closureN)self_73836)->elts[1];
c_732538.elts[2] = r_73452;
c_732538.elts[3] = ((closureN)self_73836)->elts[2];

return_closcall1(data,(closure)&c_732538,  nil);; 
}

static void __lambda_284(void *data, int argc, object self_73837, object r_73453) {
  return_closcall4(data,  cell_get(((closureN)self_73837)->elts[3]),  ((closureN)self_73837)->elts[0], ((closureN)self_73837)->elts[1], ((closureN)self_73837)->elts[2], r_73453);; 
}

static void __lambda_283(void *data, int argc, object self_73838, object r_73449) {
  
closureN_type c_731563;
c_731563.hdr.mark = gc_color_red;
 c_731563.hdr.grayed = 0;
c_731563.tag = closureN_tag;
 c_731563.fn = (function_type)__lambda_282;
c_731563.num_args = 1;
c_731563.num_elt = 27;
c_731563.elts = (object *)alloca(sizeof(object) * 27);
c_731563.elts[0] = ((closureN)self_73838)->elts[0];
c_731563.elts[1] = ((closureN)self_73838)->elts[1];
c_731563.elts[2] = ((closureN)self_73838)->elts[2];
c_731563.elts[3] = ((closureN)self_73838)->elts[3];
c_731563.elts[4] = ((closureN)self_73838)->elts[4];
c_731563.elts[5] = ((closureN)self_73838)->elts[5];
c_731563.elts[6] = ((closureN)self_73838)->elts[6];
c_731563.elts[7] = ((closureN)self_73838)->elts[7];
c_731563.elts[8] = ((closureN)self_73838)->elts[8];
c_731563.elts[9] = ((closureN)self_73838)->elts[9];
c_731563.elts[10] = ((closureN)self_73838)->elts[10];
c_731563.elts[11] = ((closureN)self_73838)->elts[11];
c_731563.elts[12] = ((closureN)self_73838)->elts[12];
c_731563.elts[13] = ((closureN)self_73838)->elts[13];
c_731563.elts[14] = ((closureN)self_73838)->elts[14];
c_731563.elts[15] = ((closureN)self_73838)->elts[15];
c_731563.elts[16] = ((closureN)self_73838)->elts[16];
c_731563.elts[17] = ((closureN)self_73838)->elts[18];
c_731563.elts[18] = ((closureN)self_73838)->elts[19];
c_731563.elts[19] = ((closureN)self_73838)->elts[20];
c_731563.elts[20] = ((closureN)self_73838)->elts[21];
c_731563.elts[21] = ((closureN)self_73838)->elts[22];
c_731563.elts[22] = ((closureN)self_73838)->elts[23];
c_731563.elts[23] = ((closureN)self_73838)->elts[24];
c_731563.elts[24] = ((closureN)self_73838)->elts[25];
c_731563.elts[25] = ((closureN)self_73838)->elts[26];
c_731563.elts[26] = ((closureN)self_73838)->elts[27];

return_closcall1(data,(closure)&c_731563,  Cyc_set_car(data, ((closureN)self_73838)->elts[17], r_73449));; 
}

static void __lambda_282(void *data, int argc, object self_73839, object r_73284) {
  
closureN_type c_731565;
c_731565.hdr.mark = gc_color_red;
 c_731565.hdr.grayed = 0;
c_731565.tag = closureN_tag;
 c_731565.fn = (function_type)__lambda_254;
c_731565.num_args = 1;
c_731565.num_elt = 27;
c_731565.elts = (object *)alloca(sizeof(object) * 27);
c_731565.elts[0] = ((closureN)self_73839)->elts[0];
c_731565.elts[1] = ((closureN)self_73839)->elts[1];
c_731565.elts[2] = ((closureN)self_73839)->elts[2];
c_731565.elts[3] = ((closureN)self_73839)->elts[3];
c_731565.elts[4] = ((closureN)self_73839)->elts[4];
c_731565.elts[5] = ((closureN)self_73839)->elts[5];
c_731565.elts[6] = ((closureN)self_73839)->elts[6];
c_731565.elts[7] = ((closureN)self_73839)->elts[7];
c_731565.elts[8] = ((closureN)self_73839)->elts[8];
c_731565.elts[9] = ((closureN)self_73839)->elts[9];
c_731565.elts[10] = ((closureN)self_73839)->elts[10];
c_731565.elts[11] = ((closureN)self_73839)->elts[11];
c_731565.elts[12] = ((closureN)self_73839)->elts[12];
c_731565.elts[13] = ((closureN)self_73839)->elts[13];
c_731565.elts[14] = ((closureN)self_73839)->elts[14];
c_731565.elts[15] = ((closureN)self_73839)->elts[15];
c_731565.elts[16] = ((closureN)self_73839)->elts[16];
c_731565.elts[17] = ((closureN)self_73839)->elts[17];
c_731565.elts[18] = ((closureN)self_73839)->elts[18];
c_731565.elts[19] = ((closureN)self_73839)->elts[19];
c_731565.elts[20] = ((closureN)self_73839)->elts[20];
c_731565.elts[21] = ((closureN)self_73839)->elts[21];
c_731565.elts[22] = ((closureN)self_73839)->elts[22];
c_731565.elts[23] = ((closureN)self_73839)->elts[23];
c_731565.elts[24] = ((closureN)self_73839)->elts[24];
c_731565.elts[25] = ((closureN)self_73839)->elts[25];
c_731565.elts[26] = ((closureN)self_73839)->elts[26];


closureN_type c_732378;
c_732378.hdr.mark = gc_color_red;
 c_732378.hdr.grayed = 0;
c_732378.tag = closureN_tag;
 c_732378.fn = (function_type)__lambda_281;
c_732378.num_args = 3;
c_732378.num_elt = 4;
c_732378.elts = (object *)alloca(sizeof(object) * 4);
c_732378.elts[0] = ((closureN)self_73839)->elts[3];
c_732378.elts[1] = ((closureN)self_73839)->elts[5];
c_732378.elts[2] = ((closureN)self_73839)->elts[16];
c_732378.elts[3] = ((closureN)self_73839)->elts[25];

return_closcall1(data,(closure)&c_731565,  &c_732378);; 
}

static void __lambda_281(void *data, int argc, object self_73840, object k_73430, object x_73189, object true_91lst_73188, object false_91lst_73187) {
  
closureN_type c_732383;
c_732383.hdr.mark = gc_color_red;
 c_732383.hdr.grayed = 0;
c_732383.tag = closureN_tag;
 c_732383.fn = (function_type)__lambda_280;
c_732383.num_args = 1;
c_732383.num_elt = 8;
c_732383.elts = (object *)alloca(sizeof(object) * 8);
c_732383.elts[0] = false_91lst_73187;
c_732383.elts[1] = ((closureN)self_73840)->elts[0];
c_732383.elts[2] = ((closureN)self_73840)->elts[1];
c_732383.elts[3] = k_73430;
c_732383.elts[4] = ((closureN)self_73840)->elts[2];
c_732383.elts[5] = true_91lst_73188;
c_732383.elts[6] = ((closureN)self_73840)->elts[3];
c_732383.elts[7] = x_73189;

return_closcall3(data,  cell_get(((closureN)self_73840)->elts[3]),  &c_732383, x_73189, true_91lst_73188);; 
}

static void __lambda_280(void *data, int argc, object self_73841, object r_73431) {
  if( !eq(boolean_f, r_73431) ){ 
  
closureN_type c_732385;
c_732385.hdr.mark = gc_color_red;
 c_732385.hdr.grayed = 0;
c_732385.tag = closureN_tag;
 c_732385.fn = (function_type)__lambda_255;
c_732385.num_args = 0;
c_732385.num_elt = 1;
c_732385.elts = (object *)alloca(sizeof(object) * 1);
c_732385.elts[0] = ((closureN)self_73841)->elts[3];

return_closcall0(data,(closure)&c_732385);
} else { 
  
closureN_type c_732392;
c_732392.hdr.mark = gc_color_red;
 c_732392.hdr.grayed = 0;
c_732392.tag = closureN_tag;
 c_732392.fn = (function_type)__lambda_279;
c_732392.num_args = 1;
c_732392.num_elt = 8;
c_732392.elts = (object *)alloca(sizeof(object) * 8);
c_732392.elts[0] = ((closureN)self_73841)->elts[0];
c_732392.elts[1] = ((closureN)self_73841)->elts[1];
c_732392.elts[2] = ((closureN)self_73841)->elts[2];
c_732392.elts[3] = ((closureN)self_73841)->elts[3];
c_732392.elts[4] = ((closureN)self_73841)->elts[4];
c_732392.elts[5] = ((closureN)self_73841)->elts[5];
c_732392.elts[6] = ((closureN)self_73841)->elts[6];
c_732392.elts[7] = ((closureN)self_73841)->elts[7];

return_closcall3(data,  cell_get(((closureN)self_73841)->elts[1]),  &c_732392, ((closureN)self_73841)->elts[7], ((closureN)self_73841)->elts[0]);}
; 
}

static void __lambda_279(void *data, int argc, object self_73842, object r_73432) {
  if( !eq(boolean_f, r_73432) ){ 
  
closureN_type c_732394;
c_732394.hdr.mark = gc_color_red;
 c_732394.hdr.grayed = 0;
c_732394.tag = closureN_tag;
 c_732394.fn = (function_type)__lambda_256;
c_732394.num_args = 0;
c_732394.num_elt = 1;
c_732394.elts = (object *)alloca(sizeof(object) * 1);
c_732394.elts[0] = ((closureN)self_73842)->elts[3];

return_closcall0(data,(closure)&c_732394);
} else { 
  
closureN_type c_732398;
c_732398.hdr.mark = gc_color_red;
 c_732398.hdr.grayed = 0;
c_732398.tag = closureN_tag;
 c_732398.fn = (function_type)__lambda_278;
c_732398.num_args = 1;
c_732398.num_elt = 8;
c_732398.elts = (object *)alloca(sizeof(object) * 8);
c_732398.elts[0] = ((closureN)self_73842)->elts[0];
c_732398.elts[1] = ((closureN)self_73842)->elts[1];
c_732398.elts[2] = ((closureN)self_73842)->elts[2];
c_732398.elts[3] = ((closureN)self_73842)->elts[3];
c_732398.elts[4] = ((closureN)self_73842)->elts[4];
c_732398.elts[5] = ((closureN)self_73842)->elts[5];
c_732398.elts[6] = ((closureN)self_73842)->elts[6];
c_732398.elts[7] = ((closureN)self_73842)->elts[7];

return_closcall1(data,(closure)&c_732398,  Cyc_is_cons(((closureN)self_73842)->elts[7]));}
; 
}

static void __lambda_278(void *data, int argc, object self_73843, object r_73433) {
  if( !eq(boolean_f, r_73433) ){ 
  
closureN_type c_732400;
c_732400.hdr.mark = gc_color_red;
 c_732400.hdr.grayed = 0;
c_732400.tag = closureN_tag;
 c_732400.fn = (function_type)__lambda_276;
c_732400.num_args = 1;
c_732400.num_elt = 8;
c_732400.elts = (object *)alloca(sizeof(object) * 8);
c_732400.elts[0] = ((closureN)self_73843)->elts[0];
c_732400.elts[1] = ((closureN)self_73843)->elts[1];
c_732400.elts[2] = ((closureN)self_73843)->elts[2];
c_732400.elts[3] = ((closureN)self_73843)->elts[3];
c_732400.elts[4] = ((closureN)self_73843)->elts[4];
c_732400.elts[5] = ((closureN)self_73843)->elts[5];
c_732400.elts[6] = ((closureN)self_73843)->elts[6];
c_732400.elts[7] = ((closureN)self_73843)->elts[7];

return_closcall1(data,(closure)&c_732400,  car(((closureN)self_73843)->elts[7]));
} else { 
  
closureN_type c_732518;
c_732518.hdr.mark = gc_color_red;
 c_732518.hdr.grayed = 0;
c_732518.tag = closureN_tag;
 c_732518.fn = (function_type)__lambda_277;
c_732518.num_args = 0;
c_732518.num_elt = 1;
c_732518.elts = (object *)alloca(sizeof(object) * 1);
c_732518.elts[0] = ((closureN)self_73843)->elts[3];

return_closcall0(data,(closure)&c_732518);}
; 
}

static void __lambda_277(void *data, int argc, object self_73844) {
  return_closcall1(data,  ((closureN)self_73844)->elts[0],  boolean_f);; 
}

static void __lambda_276(void *data, int argc, object self_73845, object r_73448) {
  
closureN_type c_732402;
c_732402.hdr.mark = gc_color_red;
 c_732402.hdr.grayed = 0;
c_732402.tag = closureN_tag;
 c_732402.fn = (function_type)__lambda_275;
c_732402.num_args = 1;
c_732402.num_elt = 7;
c_732402.elts = (object *)alloca(sizeof(object) * 7);
c_732402.elts[0] = ((closureN)self_73845)->elts[0];
c_732402.elts[1] = ((closureN)self_73845)->elts[1];
c_732402.elts[2] = ((closureN)self_73845)->elts[3];
c_732402.elts[3] = ((closureN)self_73845)->elts[4];
c_732402.elts[4] = ((closureN)self_73845)->elts[5];
c_732402.elts[5] = ((closureN)self_73845)->elts[6];
c_732402.elts[6] = ((closureN)self_73845)->elts[7];

return_closcall1(data,(closure)&c_732402,  Cyc_eq(r_73448, cell_get(((closureN)self_73845)->elts[2])));; 
}

static void __lambda_275(void *data, int argc, object self_73846, object r_73434) {
  if( !eq(boolean_f, r_73434) ){ 
  
closureN_type c_732404;
c_732404.hdr.mark = gc_color_red;
 c_732404.hdr.grayed = 0;
c_732404.tag = closureN_tag;
 c_732404.fn = (function_type)__lambda_273;
c_732404.num_args = 0;
c_732404.num_elt = 7;
c_732404.elts = (object *)alloca(sizeof(object) * 7);
c_732404.elts[0] = ((closureN)self_73846)->elts[0];
c_732404.elts[1] = ((closureN)self_73846)->elts[1];
c_732404.elts[2] = ((closureN)self_73846)->elts[2];
c_732404.elts[3] = ((closureN)self_73846)->elts[3];
c_732404.elts[4] = ((closureN)self_73846)->elts[4];
c_732404.elts[5] = ((closureN)self_73846)->elts[5];
c_732404.elts[6] = ((closureN)self_73846)->elts[6];

return_closcall0(data,(closure)&c_732404);
} else { 
  
closureN_type c_732506;
c_732506.hdr.mark = gc_color_red;
 c_732506.hdr.grayed = 0;
c_732506.tag = closureN_tag;
 c_732506.fn = (function_type)__lambda_274;
c_732506.num_args = 0;
c_732506.num_elt = 1;
c_732506.elts = (object *)alloca(sizeof(object) * 1);
c_732506.elts[0] = ((closureN)self_73846)->elts[2];

return_closcall0(data,(closure)&c_732506);}
; 
}

static void __lambda_274(void *data, int argc, object self_73847) {
  return_closcall1(data,  ((closureN)self_73847)->elts[0],  boolean_f);; 
}

static void __lambda_273(void *data, int argc, object self_73848) {
  
closureN_type c_732406;
c_732406.hdr.mark = gc_color_red;
 c_732406.hdr.grayed = 0;
c_732406.tag = closureN_tag;
 c_732406.fn = (function_type)__lambda_272;
c_732406.num_args = 1;
c_732406.num_elt = 7;
c_732406.elts = (object *)alloca(sizeof(object) * 7);
c_732406.elts[0] = ((closureN)self_73848)->elts[0];
c_732406.elts[1] = ((closureN)self_73848)->elts[1];
c_732406.elts[2] = ((closureN)self_73848)->elts[2];
c_732406.elts[3] = ((closureN)self_73848)->elts[3];
c_732406.elts[4] = ((closureN)self_73848)->elts[4];
c_732406.elts[5] = ((closureN)self_73848)->elts[5];
c_732406.elts[6] = ((closureN)self_73848)->elts[6];

return_closcall1(data,(closure)&c_732406,  cadr(((closureN)self_73848)->elts[6]));; 
}

static void __lambda_272(void *data, int argc, object self_73849, object r_73447) {
  
closureN_type c_732411;
c_732411.hdr.mark = gc_color_red;
 c_732411.hdr.grayed = 0;
c_732411.tag = closureN_tag;
 c_732411.fn = (function_type)__lambda_271;
c_732411.num_args = 1;
c_732411.num_elt = 6;
c_732411.elts = (object *)alloca(sizeof(object) * 6);
c_732411.elts[0] = ((closureN)self_73849)->elts[0];
c_732411.elts[1] = ((closureN)self_73849)->elts[1];
c_732411.elts[2] = ((closureN)self_73849)->elts[2];
c_732411.elts[3] = ((closureN)self_73849)->elts[3];
c_732411.elts[4] = ((closureN)self_73849)->elts[4];
c_732411.elts[5] = ((closureN)self_73849)->elts[6];

return_closcall3(data,  cell_get(((closureN)self_73849)->elts[5]),  &c_732411, r_73447, ((closureN)self_73849)->elts[4]);; 
}

static void __lambda_271(void *data, int argc, object self_73850, object r_73435) {
  if( !eq(boolean_f, r_73435) ){ 
  
closureN_type c_732413;
c_732413.hdr.mark = gc_color_red;
 c_732413.hdr.grayed = 0;
c_732413.tag = closureN_tag;
 c_732413.fn = (function_type)__lambda_258;
c_732413.num_args = 0;
c_732413.num_elt = 5;
c_732413.elts = (object *)alloca(sizeof(object) * 5);
c_732413.elts[0] = ((closureN)self_73850)->elts[0];
c_732413.elts[1] = ((closureN)self_73850)->elts[2];
c_732413.elts[2] = ((closureN)self_73850)->elts[3];
c_732413.elts[3] = ((closureN)self_73850)->elts[4];
c_732413.elts[4] = ((closureN)self_73850)->elts[5];

return_closcall0(data,(closure)&c_732413);
} else { 
  
closureN_type c_732427;
c_732427.hdr.mark = gc_color_red;
 c_732427.hdr.grayed = 0;
c_732427.tag = closureN_tag;
 c_732427.fn = (function_type)__lambda_270;
c_732427.num_args = 1;
c_732427.num_elt = 6;
c_732427.elts = (object *)alloca(sizeof(object) * 6);
c_732427.elts[0] = ((closureN)self_73850)->elts[0];
c_732427.elts[1] = ((closureN)self_73850)->elts[1];
c_732427.elts[2] = ((closureN)self_73850)->elts[2];
c_732427.elts[3] = ((closureN)self_73850)->elts[3];
c_732427.elts[4] = ((closureN)self_73850)->elts[4];
c_732427.elts[5] = ((closureN)self_73850)->elts[5];

return_closcall1(data,(closure)&c_732427,  cadr(((closureN)self_73850)->elts[5]));}
; 
}

static void __lambda_270(void *data, int argc, object self_73851, object r_73446) {
  
closureN_type c_732432;
c_732432.hdr.mark = gc_color_red;
 c_732432.hdr.grayed = 0;
c_732432.tag = closureN_tag;
 c_732432.fn = (function_type)__lambda_269;
c_732432.num_args = 1;
c_732432.num_elt = 5;
c_732432.elts = (object *)alloca(sizeof(object) * 5);
c_732432.elts[0] = ((closureN)self_73851)->elts[0];
c_732432.elts[1] = ((closureN)self_73851)->elts[2];
c_732432.elts[2] = ((closureN)self_73851)->elts[3];
c_732432.elts[3] = ((closureN)self_73851)->elts[4];
c_732432.elts[4] = ((closureN)self_73851)->elts[5];

return_closcall3(data,  cell_get(((closureN)self_73851)->elts[1]),  &c_732432, r_73446, ((closureN)self_73851)->elts[0]);; 
}

static void __lambda_269(void *data, int argc, object self_73852, object r_73437) {
  if( !eq(boolean_f, r_73437) ){ 
  
closureN_type c_732434;
c_732434.hdr.mark = gc_color_red;
 c_732434.hdr.grayed = 0;
c_732434.tag = closureN_tag;
 c_732434.fn = (function_type)__lambda_260;
c_732434.num_args = 0;
c_732434.num_elt = 5;
c_732434.elts = (object *)alloca(sizeof(object) * 5);
c_732434.elts[0] = ((closureN)self_73852)->elts[0];
c_732434.elts[1] = ((closureN)self_73852)->elts[1];
c_732434.elts[2] = ((closureN)self_73852)->elts[2];
c_732434.elts[3] = ((closureN)self_73852)->elts[3];
c_732434.elts[4] = ((closureN)self_73852)->elts[4];

return_closcall0(data,(closure)&c_732434);
} else { 
  
closureN_type c_732448;
c_732448.hdr.mark = gc_color_red;
 c_732448.hdr.grayed = 0;
c_732448.tag = closureN_tag;
 c_732448.fn = (function_type)__lambda_268;
c_732448.num_args = 0;
c_732448.num_elt = 5;
c_732448.elts = (object *)alloca(sizeof(object) * 5);
c_732448.elts[0] = ((closureN)self_73852)->elts[0];
c_732448.elts[1] = ((closureN)self_73852)->elts[1];
c_732448.elts[2] = ((closureN)self_73852)->elts[2];
c_732448.elts[3] = ((closureN)self_73852)->elts[3];
c_732448.elts[4] = ((closureN)self_73852)->elts[4];

return_closcall0(data,(closure)&c_732448);}
; 
}

static void __lambda_268(void *data, int argc, object self_73853) {
  
closureN_type c_732450;
c_732450.hdr.mark = gc_color_red;
 c_732450.hdr.grayed = 0;
c_732450.tag = closureN_tag;
 c_732450.fn = (function_type)__lambda_267;
c_732450.num_args = 1;
c_732450.num_elt = 5;
c_732450.elts = (object *)alloca(sizeof(object) * 5);
c_732450.elts[0] = ((closureN)self_73853)->elts[0];
c_732450.elts[1] = ((closureN)self_73853)->elts[1];
c_732450.elts[2] = ((closureN)self_73853)->elts[2];
c_732450.elts[3] = ((closureN)self_73853)->elts[3];
c_732450.elts[4] = ((closureN)self_73853)->elts[4];

return_closcall1(data,(closure)&c_732450,  caddr(((closureN)self_73853)->elts[4]));; 
}

static void __lambda_267(void *data, int argc, object self_73854, object r_73443) {
  
closureN_type c_732452;
c_732452.hdr.mark = gc_color_red;
 c_732452.hdr.grayed = 0;
c_732452.tag = closureN_tag;
 c_732452.fn = (function_type)__lambda_266;
c_732452.num_args = 1;
c_732452.num_elt = 6;
c_732452.elts = (object *)alloca(sizeof(object) * 6);
c_732452.elts[0] = ((closureN)self_73854)->elts[0];
c_732452.elts[1] = ((closureN)self_73854)->elts[1];
c_732452.elts[2] = r_73443;
c_732452.elts[3] = ((closureN)self_73854)->elts[2];
c_732452.elts[4] = ((closureN)self_73854)->elts[3];
c_732452.elts[5] = ((closureN)self_73854)->elts[4];

return_closcall1(data,(closure)&c_732452,  cadr(((closureN)self_73854)->elts[4]));; 
}

static void __lambda_266(void *data, int argc, object self_73855, object r_73445) {
  
closureN_type c_732454;
c_732454.hdr.mark = gc_color_red;
 c_732454.hdr.grayed = 0;
c_732454.tag = closureN_tag;
 c_732454.fn = (function_type)__lambda_265;
c_732454.num_args = 1;
c_732454.num_elt = 6;
c_732454.elts = (object *)alloca(sizeof(object) * 6);
c_732454.elts[0] = ((closureN)self_73855)->elts[0];
c_732454.elts[1] = ((closureN)self_73855)->elts[1];
c_732454.elts[2] = ((closureN)self_73855)->elts[2];
c_732454.elts[3] = ((closureN)self_73855)->elts[3];
c_732454.elts[4] = ((closureN)self_73855)->elts[4];
c_732454.elts[5] = ((closureN)self_73855)->elts[5];


make_cons(c_732489,r_73445, ((closureN)self_73855)->elts[4]);
return_closcall1(data,(closure)&c_732454,  &c_732489);; 
}

static void __lambda_265(void *data, int argc, object self_73856, object r_73444) {
  
closureN_type c_732459;
c_732459.hdr.mark = gc_color_red;
 c_732459.hdr.grayed = 0;
c_732459.tag = closureN_tag;
 c_732459.fn = (function_type)__lambda_264;
c_732459.num_args = 1;
c_732459.num_elt = 5;
c_732459.elts = (object *)alloca(sizeof(object) * 5);
c_732459.elts[0] = ((closureN)self_73856)->elts[0];
c_732459.elts[1] = ((closureN)self_73856)->elts[1];
c_732459.elts[2] = ((closureN)self_73856)->elts[3];
c_732459.elts[3] = ((closureN)self_73856)->elts[4];
c_732459.elts[4] = ((closureN)self_73856)->elts[5];

return_closcall4(data,  cell_get(((closureN)self_73856)->elts[3]),  &c_732459, ((closureN)self_73856)->elts[2], r_73444, ((closureN)self_73856)->elts[0]);; 
}

static void __lambda_264(void *data, int argc, object self_73857, object r_73439) {
  if( !eq(boolean_f, r_73439) ){ 
  
closureN_type c_732461;
c_732461.hdr.mark = gc_color_red;
 c_732461.hdr.grayed = 0;
c_732461.tag = closureN_tag;
 c_732461.fn = (function_type)__lambda_263;
c_732461.num_args = 1;
c_732461.num_elt = 5;
c_732461.elts = (object *)alloca(sizeof(object) * 5);
c_732461.elts[0] = ((closureN)self_73857)->elts[0];
c_732461.elts[1] = ((closureN)self_73857)->elts[1];
c_732461.elts[2] = ((closureN)self_73857)->elts[2];
c_732461.elts[3] = ((closureN)self_73857)->elts[3];
c_732461.elts[4] = ((closureN)self_73857)->elts[4];

return_closcall1(data,(closure)&c_732461,  cadddr(((closureN)self_73857)->elts[4]));
} else { 
  return_closcall1(data,  ((closureN)self_73857)->elts[1],  boolean_f);}
; 
}

static void __lambda_263(void *data, int argc, object self_73858, object r_73440) {
  
closureN_type c_732463;
c_732463.hdr.mark = gc_color_red;
 c_732463.hdr.grayed = 0;
c_732463.tag = closureN_tag;
 c_732463.fn = (function_type)__lambda_262;
c_732463.num_args = 1;
c_732463.num_elt = 5;
c_732463.elts = (object *)alloca(sizeof(object) * 5);
c_732463.elts[0] = ((closureN)self_73858)->elts[0];
c_732463.elts[1] = ((closureN)self_73858)->elts[1];
c_732463.elts[2] = r_73440;
c_732463.elts[3] = ((closureN)self_73858)->elts[2];
c_732463.elts[4] = ((closureN)self_73858)->elts[3];

return_closcall1(data,(closure)&c_732463,  cadr(((closureN)self_73858)->elts[4]));; 
}

static void __lambda_262(void *data, int argc, object self_73859, object r_73442) {
  
closureN_type c_732465;
c_732465.hdr.mark = gc_color_red;
 c_732465.hdr.grayed = 0;
c_732465.tag = closureN_tag;
 c_732465.fn = (function_type)__lambda_261;
c_732465.num_args = 1;
c_732465.num_elt = 4;
c_732465.elts = (object *)alloca(sizeof(object) * 4);
c_732465.elts[0] = ((closureN)self_73859)->elts[1];
c_732465.elts[1] = ((closureN)self_73859)->elts[2];
c_732465.elts[2] = ((closureN)self_73859)->elts[3];
c_732465.elts[3] = ((closureN)self_73859)->elts[4];


make_cons(c_732475,r_73442, ((closureN)self_73859)->elts[0]);
return_closcall1(data,(closure)&c_732465,  &c_732475);; 
}

static void __lambda_261(void *data, int argc, object self_73860, object r_73441) {
  return_closcall4(data,  cell_get(((closureN)self_73860)->elts[2]),  ((closureN)self_73860)->elts[0], ((closureN)self_73860)->elts[1], ((closureN)self_73860)->elts[3], r_73441);; 
}

static void __lambda_260(void *data, int argc, object self_73861) {
  
closureN_type c_732436;
c_732436.hdr.mark = gc_color_red;
 c_732436.hdr.grayed = 0;
c_732436.tag = closureN_tag;
 c_732436.fn = (function_type)__lambda_259;
c_732436.num_args = 1;
c_732436.num_elt = 4;
c_732436.elts = (object *)alloca(sizeof(object) * 4);
c_732436.elts[0] = ((closureN)self_73861)->elts[0];
c_732436.elts[1] = ((closureN)self_73861)->elts[1];
c_732436.elts[2] = ((closureN)self_73861)->elts[2];
c_732436.elts[3] = ((closureN)self_73861)->elts[3];

return_closcall1(data,(closure)&c_732436,  cadddr(((closureN)self_73861)->elts[4]));; 
}

static void __lambda_259(void *data, int argc, object self_73862, object r_73438) {
  return_closcall4(data,  cell_get(((closureN)self_73862)->elts[2]),  ((closureN)self_73862)->elts[1], r_73438, ((closureN)self_73862)->elts[3], ((closureN)self_73862)->elts[0]);; 
}

static void __lambda_258(void *data, int argc, object self_73863) {
  
closureN_type c_732415;
c_732415.hdr.mark = gc_color_red;
 c_732415.hdr.grayed = 0;
c_732415.tag = closureN_tag;
 c_732415.fn = (function_type)__lambda_257;
c_732415.num_args = 1;
c_732415.num_elt = 4;
c_732415.elts = (object *)alloca(sizeof(object) * 4);
c_732415.elts[0] = ((closureN)self_73863)->elts[0];
c_732415.elts[1] = ((closureN)self_73863)->elts[1];
c_732415.elts[2] = ((closureN)self_73863)->elts[2];
c_732415.elts[3] = ((closureN)self_73863)->elts[3];

return_closcall1(data,(closure)&c_732415,  caddr(((closureN)self_73863)->elts[4]));; 
}

static void __lambda_257(void *data, int argc, object self_73864, object r_73436) {
  return_closcall4(data,  cell_get(((closureN)self_73864)->elts[2]),  ((closureN)self_73864)->elts[1], r_73436, ((closureN)self_73864)->elts[3], ((closureN)self_73864)->elts[0]);; 
}

static void __lambda_256(void *data, int argc, object self_73865) {
  return_closcall1(data,  ((closureN)self_73865)->elts[0],  boolean_f);; 
}

static void __lambda_255(void *data, int argc, object self_73866) {
  return_closcall1(data,  ((closureN)self_73866)->elts[0],  boolean_t);; 
}

static void __lambda_254(void *data, int argc, object self_73867, object r_73429) {
  
closureN_type c_731567;
c_731567.hdr.mark = gc_color_red;
 c_731567.hdr.grayed = 0;
c_731567.tag = closureN_tag;
 c_731567.fn = (function_type)__lambda_253;
c_731567.num_args = 1;
c_731567.num_elt = 26;
c_731567.elts = (object *)alloca(sizeof(object) * 26);
c_731567.elts[0] = ((closureN)self_73867)->elts[0];
c_731567.elts[1] = ((closureN)self_73867)->elts[1];
c_731567.elts[2] = ((closureN)self_73867)->elts[2];
c_731567.elts[3] = ((closureN)self_73867)->elts[3];
c_731567.elts[4] = ((closureN)self_73867)->elts[4];
c_731567.elts[5] = ((closureN)self_73867)->elts[5];
c_731567.elts[6] = ((closureN)self_73867)->elts[6];
c_731567.elts[7] = ((closureN)self_73867)->elts[7];
c_731567.elts[8] = ((closureN)self_73867)->elts[8];
c_731567.elts[9] = ((closureN)self_73867)->elts[9];
c_731567.elts[10] = ((closureN)self_73867)->elts[10];
c_731567.elts[11] = ((closureN)self_73867)->elts[11];
c_731567.elts[12] = ((closureN)self_73867)->elts[12];
c_731567.elts[13] = ((closureN)self_73867)->elts[13];
c_731567.elts[14] = ((closureN)self_73867)->elts[14];
c_731567.elts[15] = ((closureN)self_73867)->elts[15];
c_731567.elts[16] = ((closureN)self_73867)->elts[17];
c_731567.elts[17] = ((closureN)self_73867)->elts[18];
c_731567.elts[18] = ((closureN)self_73867)->elts[19];
c_731567.elts[19] = ((closureN)self_73867)->elts[20];
c_731567.elts[20] = ((closureN)self_73867)->elts[21];
c_731567.elts[21] = ((closureN)self_73867)->elts[22];
c_731567.elts[22] = ((closureN)self_73867)->elts[23];
c_731567.elts[23] = ((closureN)self_73867)->elts[24];
c_731567.elts[24] = ((closureN)self_73867)->elts[25];
c_731567.elts[25] = ((closureN)self_73867)->elts[26];

return_closcall1(data,(closure)&c_731567,  Cyc_set_car(data, ((closureN)self_73867)->elts[16], r_73429));; 
}

static void __lambda_253(void *data, int argc, object self_73868, object r_73285) {
  
closureN_type c_731569;
c_731569.hdr.mark = gc_color_red;
 c_731569.hdr.grayed = 0;
c_731569.tag = closureN_tag;
 c_731569.fn = (function_type)__lambda_252;
c_731569.num_args = 1;
c_731569.num_elt = 26;
c_731569.elts = (object *)alloca(sizeof(object) * 26);
c_731569.elts[0] = ((closureN)self_73868)->elts[0];
c_731569.elts[1] = ((closureN)self_73868)->elts[1];
c_731569.elts[2] = ((closureN)self_73868)->elts[2];
c_731569.elts[3] = ((closureN)self_73868)->elts[3];
c_731569.elts[4] = ((closureN)self_73868)->elts[4];
c_731569.elts[5] = ((closureN)self_73868)->elts[5];
c_731569.elts[6] = ((closureN)self_73868)->elts[6];
c_731569.elts[7] = ((closureN)self_73868)->elts[7];
c_731569.elts[8] = ((closureN)self_73868)->elts[8];
c_731569.elts[9] = ((closureN)self_73868)->elts[9];
c_731569.elts[10] = ((closureN)self_73868)->elts[10];
c_731569.elts[11] = ((closureN)self_73868)->elts[11];
c_731569.elts[12] = ((closureN)self_73868)->elts[12];
c_731569.elts[13] = ((closureN)self_73868)->elts[13];
c_731569.elts[14] = ((closureN)self_73868)->elts[14];
c_731569.elts[15] = ((closureN)self_73868)->elts[15];
c_731569.elts[16] = ((closureN)self_73868)->elts[16];
c_731569.elts[17] = ((closureN)self_73868)->elts[17];
c_731569.elts[18] = ((closureN)self_73868)->elts[18];
c_731569.elts[19] = ((closureN)self_73868)->elts[19];
c_731569.elts[20] = ((closureN)self_73868)->elts[20];
c_731569.elts[21] = ((closureN)self_73868)->elts[21];
c_731569.elts[22] = ((closureN)self_73868)->elts[22];
c_731569.elts[23] = ((closureN)self_73868)->elts[23];
c_731569.elts[24] = ((closureN)self_73868)->elts[24];
c_731569.elts[25] = ((closureN)self_73868)->elts[25];

return_closcall1(data,(closure)&c_731569,  quote__85);; 
}

static void __lambda_252(void *data, int argc, object self_73869, object r_73428) {
  
closureN_type c_731571;
c_731571.hdr.mark = gc_color_red;
 c_731571.hdr.grayed = 0;
c_731571.tag = closureN_tag;
 c_731571.fn = (function_type)__lambda_251;
c_731571.num_args = 1;
c_731571.num_elt = 26;
c_731571.elts = (object *)alloca(sizeof(object) * 26);
c_731571.elts[0] = ((closureN)self_73869)->elts[0];
c_731571.elts[1] = ((closureN)self_73869)->elts[1];
c_731571.elts[2] = ((closureN)self_73869)->elts[2];
c_731571.elts[3] = ((closureN)self_73869)->elts[3];
c_731571.elts[4] = ((closureN)self_73869)->elts[4];
c_731571.elts[5] = ((closureN)self_73869)->elts[5];
c_731571.elts[6] = ((closureN)self_73869)->elts[6];
c_731571.elts[7] = ((closureN)self_73869)->elts[7];
c_731571.elts[8] = ((closureN)self_73869)->elts[8];
c_731571.elts[9] = ((closureN)self_73869)->elts[9];
c_731571.elts[10] = ((closureN)self_73869)->elts[10];
c_731571.elts[11] = ((closureN)self_73869)->elts[11];
c_731571.elts[12] = ((closureN)self_73869)->elts[12];
c_731571.elts[13] = ((closureN)self_73869)->elts[13];
c_731571.elts[14] = ((closureN)self_73869)->elts[14];
c_731571.elts[15] = ((closureN)self_73869)->elts[15];
c_731571.elts[16] = ((closureN)self_73869)->elts[16];
c_731571.elts[17] = ((closureN)self_73869)->elts[17];
c_731571.elts[18] = ((closureN)self_73869)->elts[18];
c_731571.elts[19] = ((closureN)self_73869)->elts[19];
c_731571.elts[20] = ((closureN)self_73869)->elts[20];
c_731571.elts[21] = ((closureN)self_73869)->elts[21];
c_731571.elts[22] = ((closureN)self_73869)->elts[22];
c_731571.elts[23] = ((closureN)self_73869)->elts[23];
c_731571.elts[24] = ((closureN)self_73869)->elts[24];
c_731571.elts[25] = ((closureN)self_73869)->elts[25];

return_closcall1(data,(closure)&c_731571,  Cyc_set_car(data, ((closureN)self_73869)->elts[5], r_73428));; 
}

static void __lambda_251(void *data, int argc, object self_73870, object r_73286) {
  
closureN_type c_731573;
c_731573.hdr.mark = gc_color_red;
 c_731573.hdr.grayed = 0;
c_731573.tag = closureN_tag;
 c_731573.fn = (function_type)__lambda_250;
c_731573.num_args = 1;
c_731573.num_elt = 26;
c_731573.elts = (object *)alloca(sizeof(object) * 26);
c_731573.elts[0] = ((closureN)self_73870)->elts[0];
c_731573.elts[1] = ((closureN)self_73870)->elts[1];
c_731573.elts[2] = ((closureN)self_73870)->elts[2];
c_731573.elts[3] = ((closureN)self_73870)->elts[3];
c_731573.elts[4] = ((closureN)self_73870)->elts[4];
c_731573.elts[5] = ((closureN)self_73870)->elts[5];
c_731573.elts[6] = ((closureN)self_73870)->elts[6];
c_731573.elts[7] = ((closureN)self_73870)->elts[7];
c_731573.elts[8] = ((closureN)self_73870)->elts[8];
c_731573.elts[9] = ((closureN)self_73870)->elts[9];
c_731573.elts[10] = ((closureN)self_73870)->elts[10];
c_731573.elts[11] = ((closureN)self_73870)->elts[11];
c_731573.elts[12] = ((closureN)self_73870)->elts[12];
c_731573.elts[13] = ((closureN)self_73870)->elts[13];
c_731573.elts[14] = ((closureN)self_73870)->elts[14];
c_731573.elts[15] = ((closureN)self_73870)->elts[15];
c_731573.elts[16] = ((closureN)self_73870)->elts[16];
c_731573.elts[17] = ((closureN)self_73870)->elts[17];
c_731573.elts[18] = ((closureN)self_73870)->elts[18];
c_731573.elts[19] = ((closureN)self_73870)->elts[19];
c_731573.elts[20] = ((closureN)self_73870)->elts[20];
c_731573.elts[21] = ((closureN)self_73870)->elts[21];
c_731573.elts[22] = ((closureN)self_73870)->elts[22];
c_731573.elts[23] = ((closureN)self_73870)->elts[23];
c_731573.elts[24] = ((closureN)self_73870)->elts[24];
c_731573.elts[25] = ((closureN)self_73870)->elts[25];

return_closcall1(data,(closure)&c_731573,  Cyc_set_car(data, ((closureN)self_73870)->elts[11], obj_int2obj(0)));; 
}

static void __lambda_250(void *data, int argc, object self_73871, object r_73287) {
  
closureN_type c_731575;
c_731575.hdr.mark = gc_color_red;
 c_731575.hdr.grayed = 0;
c_731575.tag = closureN_tag;
 c_731575.fn = (function_type)__lambda_237;
c_731575.num_args = 1;
c_731575.num_elt = 25;
c_731575.elts = (object *)alloca(sizeof(object) * 25);
c_731575.elts[0] = ((closureN)self_73871)->elts[0];
c_731575.elts[1] = ((closureN)self_73871)->elts[1];
c_731575.elts[2] = ((closureN)self_73871)->elts[2];
c_731575.elts[3] = ((closureN)self_73871)->elts[3];
c_731575.elts[4] = ((closureN)self_73871)->elts[5];
c_731575.elts[5] = ((closureN)self_73871)->elts[6];
c_731575.elts[6] = ((closureN)self_73871)->elts[7];
c_731575.elts[7] = ((closureN)self_73871)->elts[8];
c_731575.elts[8] = ((closureN)self_73871)->elts[9];
c_731575.elts[9] = ((closureN)self_73871)->elts[10];
c_731575.elts[10] = ((closureN)self_73871)->elts[11];
c_731575.elts[11] = ((closureN)self_73871)->elts[12];
c_731575.elts[12] = ((closureN)self_73871)->elts[13];
c_731575.elts[13] = ((closureN)self_73871)->elts[14];
c_731575.elts[14] = ((closureN)self_73871)->elts[15];
c_731575.elts[15] = ((closureN)self_73871)->elts[16];
c_731575.elts[16] = ((closureN)self_73871)->elts[17];
c_731575.elts[17] = ((closureN)self_73871)->elts[18];
c_731575.elts[18] = ((closureN)self_73871)->elts[19];
c_731575.elts[19] = ((closureN)self_73871)->elts[20];
c_731575.elts[20] = ((closureN)self_73871)->elts[21];
c_731575.elts[21] = ((closureN)self_73871)->elts[22];
c_731575.elts[22] = ((closureN)self_73871)->elts[23];
c_731575.elts[23] = ((closureN)self_73871)->elts[24];
c_731575.elts[24] = ((closureN)self_73871)->elts[25];


closureN_type c_732306;
c_732306.hdr.mark = gc_color_red;
 c_732306.hdr.grayed = 0;
c_732306.tag = closureN_tag;
 c_732306.fn = (function_type)__lambda_249;
c_732306.num_args = 1;
c_732306.num_elt = 4;
c_732306.elts = (object *)alloca(sizeof(object) * 4);
c_732306.elts[0] = ((closureN)self_73871)->elts[4];
c_732306.elts[1] = ((closureN)self_73871)->elts[10];
c_732306.elts[2] = ((closureN)self_73871)->elts[11];
c_732306.elts[3] = ((closureN)self_73871)->elts[12];

return_closcall1(data,(closure)&c_731575,  &c_732306);; 
}

static void __lambda_249(void *data, int argc, object self_73872, object k_73418, object term_73186) {
  
closureN_type c_732308;
c_732308.hdr.mark = gc_color_red;
 c_732308.hdr.grayed = 0;
c_732308.tag = closureN_tag;
 c_732308.fn = (function_type)__lambda_248;
c_732308.num_args = 1;
c_732308.num_elt = 6;
c_732308.elts = (object *)alloca(sizeof(object) * 6);
c_732308.elts[0] = ((closureN)self_73872)->elts[0];
c_732308.elts[1] = k_73418;
c_732308.elts[2] = ((closureN)self_73872)->elts[1];
c_732308.elts[3] = ((closureN)self_73872)->elts[2];
c_732308.elts[4] = ((closureN)self_73872)->elts[3];
c_732308.elts[5] = term_73186;


object c_732365 = Cyc_sum(data,(closure)&c_732308,2,cell_get(((closureN)self_73872)->elts[2]), obj_int2obj(1));
return_closcall1(data,(closure)&c_732308,  c_732365);; 
}

static void __lambda_248(void *data, int argc, object self_73873, object r_73427) {
  
closureN_type c_732310;
c_732310.hdr.mark = gc_color_red;
 c_732310.hdr.grayed = 0;
c_732310.tag = closureN_tag;
 c_732310.fn = (function_type)__lambda_247;
c_732310.num_args = 1;
c_732310.num_elt = 5;
c_732310.elts = (object *)alloca(sizeof(object) * 5);
c_732310.elts[0] = ((closureN)self_73873)->elts[0];
c_732310.elts[1] = ((closureN)self_73873)->elts[1];
c_732310.elts[2] = ((closureN)self_73873)->elts[2];
c_732310.elts[3] = ((closureN)self_73873)->elts[4];
c_732310.elts[4] = ((closureN)self_73873)->elts[5];

return_closcall1(data,(closure)&c_732310,  Cyc_set_car(data, ((closureN)self_73873)->elts[3], r_73427));; 
}

static void __lambda_247(void *data, int argc, object self_73874, object r_73419) {
  
closureN_type c_732312;
c_732312.hdr.mark = gc_color_red;
 c_732312.hdr.grayed = 0;
c_732312.tag = closureN_tag;
 c_732312.fn = (function_type)__lambda_246;
c_732312.num_args = 1;
c_732312.num_elt = 5;
c_732312.elts = (object *)alloca(sizeof(object) * 5);
c_732312.elts[0] = ((closureN)self_73874)->elts[0];
c_732312.elts[1] = ((closureN)self_73874)->elts[1];
c_732312.elts[2] = ((closureN)self_73874)->elts[2];
c_732312.elts[3] = ((closureN)self_73874)->elts[3];
c_732312.elts[4] = ((closureN)self_73874)->elts[4];

return_closcall1(data,(closure)&c_732312,  Cyc_is_cons(((closureN)self_73874)->elts[4]));; 
}

static void __lambda_246(void *data, int argc, object self_73875, object r_73420) {
  if( !eq(boolean_f, r_73420) ){ 
  
closureN_type c_732314;
c_732314.hdr.mark = gc_color_red;
 c_732314.hdr.grayed = 0;
c_732314.tag = closureN_tag;
 c_732314.fn = (function_type)__lambda_244;
c_732314.num_args = 0;
c_732314.num_elt = 5;
c_732314.elts = (object *)alloca(sizeof(object) * 5);
c_732314.elts[0] = ((closureN)self_73875)->elts[0];
c_732314.elts[1] = ((closureN)self_73875)->elts[1];
c_732314.elts[2] = ((closureN)self_73875)->elts[2];
c_732314.elts[3] = ((closureN)self_73875)->elts[3];
c_732314.elts[4] = ((closureN)self_73875)->elts[4];

return_closcall0(data,(closure)&c_732314);
} else { 
  
closureN_type c_732353;
c_732353.hdr.mark = gc_color_red;
 c_732353.hdr.grayed = 0;
c_732353.tag = closureN_tag;
 c_732353.fn = (function_type)__lambda_245;
c_732353.num_args = 0;
c_732353.num_elt = 2;
c_732353.elts = (object *)alloca(sizeof(object) * 2);
c_732353.elts[0] = ((closureN)self_73875)->elts[1];
c_732353.elts[1] = ((closureN)self_73875)->elts[4];

return_closcall0(data,(closure)&c_732353);}
; 
}

static void __lambda_245(void *data, int argc, object self_73876) {
  return_closcall1(data,  ((closureN)self_73876)->elts[0],  ((closureN)self_73876)->elts[1]);; 
}

static void __lambda_244(void *data, int argc, object self_73877) {
  
closureN_type c_732316;
c_732316.hdr.mark = gc_color_red;
 c_732316.hdr.grayed = 0;
c_732316.tag = closureN_tag;
 c_732316.fn = (function_type)__lambda_243;
c_732316.num_args = 1;
c_732316.num_elt = 5;
c_732316.elts = (object *)alloca(sizeof(object) * 5);
c_732316.elts[0] = ((closureN)self_73877)->elts[0];
c_732316.elts[1] = ((closureN)self_73877)->elts[1];
c_732316.elts[2] = ((closureN)self_73877)->elts[2];
c_732316.elts[3] = ((closureN)self_73877)->elts[3];
c_732316.elts[4] = ((closureN)self_73877)->elts[4];

return_closcall1(data,(closure)&c_732316,  car(((closureN)self_73877)->elts[4]));; 
}

static void __lambda_243(void *data, int argc, object self_73878, object r_73424) {
  
closureN_type c_732318;
c_732318.hdr.mark = gc_color_red;
 c_732318.hdr.grayed = 0;
c_732318.tag = closureN_tag;
 c_732318.fn = (function_type)__lambda_242;
c_732318.num_args = 1;
c_732318.num_elt = 6;
c_732318.elts = (object *)alloca(sizeof(object) * 6);
c_732318.elts[0] = ((closureN)self_73878)->elts[0];
c_732318.elts[1] = ((closureN)self_73878)->elts[1];
c_732318.elts[2] = r_73424;
c_732318.elts[3] = ((closureN)self_73878)->elts[2];
c_732318.elts[4] = ((closureN)self_73878)->elts[3];
c_732318.elts[5] = ((closureN)self_73878)->elts[4];

return_closcall1(data,(closure)&c_732318,  cdr(((closureN)self_73878)->elts[4]));; 
}

static void __lambda_242(void *data, int argc, object self_73879, object r_73426) {
  
closureN_type c_732323;
c_732323.hdr.mark = gc_color_red;
 c_732323.hdr.grayed = 0;
c_732323.tag = closureN_tag;
 c_732323.fn = (function_type)__lambda_241;
c_732323.num_args = 1;
c_732323.num_elt = 5;
c_732323.elts = (object *)alloca(sizeof(object) * 5);
c_732323.elts[0] = ((closureN)self_73879)->elts[0];
c_732323.elts[1] = ((closureN)self_73879)->elts[1];
c_732323.elts[2] = ((closureN)self_73879)->elts[2];
c_732323.elts[3] = ((closureN)self_73879)->elts[4];
c_732323.elts[4] = ((closureN)self_73879)->elts[5];

return_closcall2(data,  cell_get(((closureN)self_73879)->elts[3]),  &c_732323, r_73426);; 
}

static void __lambda_241(void *data, int argc, object self_73880, object r_73425) {
  
closureN_type c_732325;
c_732325.hdr.mark = gc_color_red;
 c_732325.hdr.grayed = 0;
c_732325.tag = closureN_tag;
 c_732325.fn = (function_type)__lambda_240;
c_732325.num_args = 1;
c_732325.num_elt = 4;
c_732325.elts = (object *)alloca(sizeof(object) * 4);
c_732325.elts[0] = ((closureN)self_73880)->elts[0];
c_732325.elts[1] = ((closureN)self_73880)->elts[1];
c_732325.elts[2] = ((closureN)self_73880)->elts[3];
c_732325.elts[3] = ((closureN)self_73880)->elts[4];


make_cons(c_732344,((closureN)self_73880)->elts[2], r_73425);
return_closcall1(data,(closure)&c_732325,  &c_732344);; 
}

static void __lambda_240(void *data, int argc, object self_73881, object r_73421) {
  
closureN_type c_732327;
c_732327.hdr.mark = gc_color_red;
 c_732327.hdr.grayed = 0;
c_732327.tag = closureN_tag;
 c_732327.fn = (function_type)__lambda_239;
c_732327.num_args = 1;
c_732327.num_elt = 4;
c_732327.elts = (object *)alloca(sizeof(object) * 4);
c_732327.elts[0] = ((closureN)self_73881)->elts[0];
c_732327.elts[1] = ((closureN)self_73881)->elts[1];
c_732327.elts[2] = r_73421;
c_732327.elts[3] = ((closureN)self_73881)->elts[2];

return_closcall1(data,(closure)&c_732327,  car(((closureN)self_73881)->elts[3]));; 
}

static void __lambda_239(void *data, int argc, object self_73882, object r_73423) {
  
closureN_type c_732332;
c_732332.hdr.mark = gc_color_red;
 c_732332.hdr.grayed = 0;
c_732332.tag = closureN_tag;
 c_732332.fn = (function_type)__lambda_238;
c_732332.num_args = 1;
c_732332.num_elt = 3;
c_732332.elts = (object *)alloca(sizeof(object) * 3);
c_732332.elts[0] = ((closureN)self_73882)->elts[1];
c_732332.elts[1] = ((closureN)self_73882)->elts[2];
c_732332.elts[2] = ((closureN)self_73882)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73882)->elts[0]),  &c_732332, r_73423);; 
}

static void __lambda_238(void *data, int argc, object self_73883, object r_73422) {
  return_closcall3(data,  cell_get(((closureN)self_73883)->elts[2]),  ((closureN)self_73883)->elts[0], ((closureN)self_73883)->elts[1], r_73422);; 
}

static void __lambda_237(void *data, int argc, object self_73884, object r_73417) {
  
closureN_type c_731577;
c_731577.hdr.mark = gc_color_red;
 c_731577.hdr.grayed = 0;
c_731577.tag = closureN_tag;
 c_731577.fn = (function_type)__lambda_236;
c_731577.num_args = 1;
c_731577.num_elt = 25;
c_731577.elts = (object *)alloca(sizeof(object) * 25);
c_731577.elts[0] = ((closureN)self_73884)->elts[0];
c_731577.elts[1] = ((closureN)self_73884)->elts[1];
c_731577.elts[2] = ((closureN)self_73884)->elts[2];
c_731577.elts[3] = ((closureN)self_73884)->elts[3];
c_731577.elts[4] = ((closureN)self_73884)->elts[4];
c_731577.elts[5] = ((closureN)self_73884)->elts[5];
c_731577.elts[6] = ((closureN)self_73884)->elts[6];
c_731577.elts[7] = ((closureN)self_73884)->elts[7];
c_731577.elts[8] = ((closureN)self_73884)->elts[8];
c_731577.elts[9] = ((closureN)self_73884)->elts[9];
c_731577.elts[10] = ((closureN)self_73884)->elts[10];
c_731577.elts[11] = ((closureN)self_73884)->elts[11];
c_731577.elts[12] = ((closureN)self_73884)->elts[12];
c_731577.elts[13] = ((closureN)self_73884)->elts[13];
c_731577.elts[14] = ((closureN)self_73884)->elts[14];
c_731577.elts[15] = ((closureN)self_73884)->elts[15];
c_731577.elts[16] = ((closureN)self_73884)->elts[16];
c_731577.elts[17] = ((closureN)self_73884)->elts[17];
c_731577.elts[18] = ((closureN)self_73884)->elts[18];
c_731577.elts[19] = ((closureN)self_73884)->elts[19];
c_731577.elts[20] = ((closureN)self_73884)->elts[20];
c_731577.elts[21] = ((closureN)self_73884)->elts[21];
c_731577.elts[22] = ((closureN)self_73884)->elts[22];
c_731577.elts[23] = ((closureN)self_73884)->elts[23];
c_731577.elts[24] = ((closureN)self_73884)->elts[24];

return_closcall1(data,(closure)&c_731577,  Cyc_set_car(data, ((closureN)self_73884)->elts[8], r_73417));; 
}

static void __lambda_236(void *data, int argc, object self_73885, object r_73288) {
  
closureN_type c_731579;
c_731579.hdr.mark = gc_color_red;
 c_731579.hdr.grayed = 0;
c_731579.tag = closureN_tag;
 c_731579.fn = (function_type)__lambda_227;
c_731579.num_args = 1;
c_731579.num_elt = 25;
c_731579.elts = (object *)alloca(sizeof(object) * 25);
c_731579.elts[0] = ((closureN)self_73885)->elts[0];
c_731579.elts[1] = ((closureN)self_73885)->elts[1];
c_731579.elts[2] = ((closureN)self_73885)->elts[2];
c_731579.elts[3] = ((closureN)self_73885)->elts[3];
c_731579.elts[4] = ((closureN)self_73885)->elts[4];
c_731579.elts[5] = ((closureN)self_73885)->elts[5];
c_731579.elts[6] = ((closureN)self_73885)->elts[6];
c_731579.elts[7] = ((closureN)self_73885)->elts[7];
c_731579.elts[8] = ((closureN)self_73885)->elts[8];
c_731579.elts[9] = ((closureN)self_73885)->elts[9];
c_731579.elts[10] = ((closureN)self_73885)->elts[10];
c_731579.elts[11] = ((closureN)self_73885)->elts[11];
c_731579.elts[12] = ((closureN)self_73885)->elts[12];
c_731579.elts[13] = ((closureN)self_73885)->elts[13];
c_731579.elts[14] = ((closureN)self_73885)->elts[14];
c_731579.elts[15] = ((closureN)self_73885)->elts[15];
c_731579.elts[16] = ((closureN)self_73885)->elts[16];
c_731579.elts[17] = ((closureN)self_73885)->elts[17];
c_731579.elts[18] = ((closureN)self_73885)->elts[18];
c_731579.elts[19] = ((closureN)self_73885)->elts[19];
c_731579.elts[20] = ((closureN)self_73885)->elts[20];
c_731579.elts[21] = ((closureN)self_73885)->elts[21];
c_731579.elts[22] = ((closureN)self_73885)->elts[22];
c_731579.elts[23] = ((closureN)self_73885)->elts[23];
c_731579.elts[24] = ((closureN)self_73885)->elts[24];


closureN_type c_732266;
c_732266.hdr.mark = gc_color_red;
 c_732266.hdr.grayed = 0;
c_732266.tag = closureN_tag;
 c_732266.fn = (function_type)__lambda_235;
c_732266.num_args = 1;
c_732266.num_elt = 2;
c_732266.elts = (object *)alloca(sizeof(object) * 2);
c_732266.elts[0] = ((closureN)self_73885)->elts[8];
c_732266.elts[1] = ((closureN)self_73885)->elts[9];

return_closcall1(data,(closure)&c_731579,  &c_732266);; 
}

static void __lambda_235(void *data, int argc, object self_73886, object k_73411, object lst_73185) {
  
closureN_type c_732268;
c_732268.hdr.mark = gc_color_red;
 c_732268.hdr.grayed = 0;
c_732268.tag = closureN_tag;
 c_732268.fn = (function_type)__lambda_234;
c_732268.num_args = 1;
c_732268.num_elt = 4;
c_732268.elts = (object *)alloca(sizeof(object) * 4);
c_732268.elts[0] = k_73411;
c_732268.elts[1] = lst_73185;
c_732268.elts[2] = ((closureN)self_73886)->elts[0];
c_732268.elts[3] = ((closureN)self_73886)->elts[1];

return_closcall1(data,(closure)&c_732268,  Cyc_is_null(lst_73185));; 
}

static void __lambda_234(void *data, int argc, object self_73887, object r_73412) {
  if( !eq(boolean_f, r_73412) ){ 
  
closureN_type c_732270;
c_732270.hdr.mark = gc_color_red;
 c_732270.hdr.grayed = 0;
c_732270.tag = closureN_tag;
 c_732270.fn = (function_type)__lambda_228;
c_732270.num_args = 0;
c_732270.num_elt = 1;
c_732270.elts = (object *)alloca(sizeof(object) * 1);
c_732270.elts[0] = ((closureN)self_73887)->elts[0];

return_closcall0(data,(closure)&c_732270);
} else { 
  
closureN_type c_732274;
c_732274.hdr.mark = gc_color_red;
 c_732274.hdr.grayed = 0;
c_732274.tag = closureN_tag;
 c_732274.fn = (function_type)__lambda_233;
c_732274.num_args = 0;
c_732274.num_elt = 4;
c_732274.elts = (object *)alloca(sizeof(object) * 4);
c_732274.elts[0] = ((closureN)self_73887)->elts[0];
c_732274.elts[1] = ((closureN)self_73887)->elts[1];
c_732274.elts[2] = ((closureN)self_73887)->elts[2];
c_732274.elts[3] = ((closureN)self_73887)->elts[3];

return_closcall0(data,(closure)&c_732274);}
; 
}

static void __lambda_233(void *data, int argc, object self_73888) {
  
closureN_type c_732276;
c_732276.hdr.mark = gc_color_red;
 c_732276.hdr.grayed = 0;
c_732276.tag = closureN_tag;
 c_732276.fn = (function_type)__lambda_232;
c_732276.num_args = 1;
c_732276.num_elt = 4;
c_732276.elts = (object *)alloca(sizeof(object) * 4);
c_732276.elts[0] = ((closureN)self_73888)->elts[0];
c_732276.elts[1] = ((closureN)self_73888)->elts[1];
c_732276.elts[2] = ((closureN)self_73888)->elts[2];
c_732276.elts[3] = ((closureN)self_73888)->elts[3];

return_closcall1(data,(closure)&c_732276,  car(((closureN)self_73888)->elts[1]));; 
}

static void __lambda_232(void *data, int argc, object self_73889, object r_73416) {
  
closureN_type c_732281;
c_732281.hdr.mark = gc_color_red;
 c_732281.hdr.grayed = 0;
c_732281.tag = closureN_tag;
 c_732281.fn = (function_type)__lambda_231;
c_732281.num_args = 1;
c_732281.num_elt = 3;
c_732281.elts = (object *)alloca(sizeof(object) * 3);
c_732281.elts[0] = ((closureN)self_73889)->elts[0];
c_732281.elts[1] = ((closureN)self_73889)->elts[1];
c_732281.elts[2] = ((closureN)self_73889)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73889)->elts[2]),  &c_732281, r_73416);; 
}

static void __lambda_231(void *data, int argc, object self_73890, object r_73413) {
  
closureN_type c_732283;
c_732283.hdr.mark = gc_color_red;
 c_732283.hdr.grayed = 0;
c_732283.tag = closureN_tag;
 c_732283.fn = (function_type)__lambda_230;
c_732283.num_args = 1;
c_732283.num_elt = 3;
c_732283.elts = (object *)alloca(sizeof(object) * 3);
c_732283.elts[0] = ((closureN)self_73890)->elts[0];
c_732283.elts[1] = r_73413;
c_732283.elts[2] = ((closureN)self_73890)->elts[2];

return_closcall1(data,(closure)&c_732283,  cdr(((closureN)self_73890)->elts[1]));; 
}

static void __lambda_230(void *data, int argc, object self_73891, object r_73415) {
  
closureN_type c_732288;
c_732288.hdr.mark = gc_color_red;
 c_732288.hdr.grayed = 0;
c_732288.tag = closureN_tag;
 c_732288.fn = (function_type)__lambda_229;
c_732288.num_args = 1;
c_732288.num_elt = 2;
c_732288.elts = (object *)alloca(sizeof(object) * 2);
c_732288.elts[0] = ((closureN)self_73891)->elts[0];
c_732288.elts[1] = ((closureN)self_73891)->elts[1];

return_closcall2(data,  cell_get(((closureN)self_73891)->elts[2]),  &c_732288, r_73415);; 
}

static void __lambda_229(void *data, int argc, object self_73892, object r_73414) {
  
make_cons(c_732293,((closureN)self_73892)->elts[1], r_73414);
return_closcall1(data,  ((closureN)self_73892)->elts[0],  &c_732293);; 
}

static void __lambda_228(void *data, int argc, object self_73893) {
  return_closcall1(data,  ((closureN)self_73893)->elts[0],  nil);; 
}

static void __lambda_227(void *data, int argc, object self_73894, object r_73410) {
  
closureN_type c_731581;
c_731581.hdr.mark = gc_color_red;
 c_731581.hdr.grayed = 0;
c_731581.tag = closureN_tag;
 c_731581.fn = (function_type)__lambda_226;
c_731581.num_args = 1;
c_731581.num_elt = 24;
c_731581.elts = (object *)alloca(sizeof(object) * 24);
c_731581.elts[0] = ((closureN)self_73894)->elts[0];
c_731581.elts[1] = ((closureN)self_73894)->elts[1];
c_731581.elts[2] = ((closureN)self_73894)->elts[2];
c_731581.elts[3] = ((closureN)self_73894)->elts[3];
c_731581.elts[4] = ((closureN)self_73894)->elts[4];
c_731581.elts[5] = ((closureN)self_73894)->elts[5];
c_731581.elts[6] = ((closureN)self_73894)->elts[6];
c_731581.elts[7] = ((closureN)self_73894)->elts[7];
c_731581.elts[8] = ((closureN)self_73894)->elts[8];
c_731581.elts[9] = ((closureN)self_73894)->elts[10];
c_731581.elts[10] = ((closureN)self_73894)->elts[11];
c_731581.elts[11] = ((closureN)self_73894)->elts[12];
c_731581.elts[12] = ((closureN)self_73894)->elts[13];
c_731581.elts[13] = ((closureN)self_73894)->elts[14];
c_731581.elts[14] = ((closureN)self_73894)->elts[15];
c_731581.elts[15] = ((closureN)self_73894)->elts[16];
c_731581.elts[16] = ((closureN)self_73894)->elts[17];
c_731581.elts[17] = ((closureN)self_73894)->elts[18];
c_731581.elts[18] = ((closureN)self_73894)->elts[19];
c_731581.elts[19] = ((closureN)self_73894)->elts[20];
c_731581.elts[20] = ((closureN)self_73894)->elts[21];
c_731581.elts[21] = ((closureN)self_73894)->elts[22];
c_731581.elts[22] = ((closureN)self_73894)->elts[23];
c_731581.elts[23] = ((closureN)self_73894)->elts[24];

return_closcall1(data,(closure)&c_731581,  Cyc_set_car(data, ((closureN)self_73894)->elts[9], r_73410));; 
}

static void __lambda_226(void *data, int argc, object self_73895, object r_73289) {
  
closureN_type c_731583;
c_731583.hdr.mark = gc_color_red;
 c_731583.hdr.grayed = 0;
c_731583.tag = closureN_tag;
 c_731583.fn = (function_type)__lambda_213;
c_731583.num_args = 1;
c_731583.num_elt = 22;
c_731583.elts = (object *)alloca(sizeof(object) * 22);
c_731583.elts[0] = ((closureN)self_73895)->elts[0];
c_731583.elts[1] = ((closureN)self_73895)->elts[2];
c_731583.elts[2] = ((closureN)self_73895)->elts[3];
c_731583.elts[3] = ((closureN)self_73895)->elts[4];
c_731583.elts[4] = ((closureN)self_73895)->elts[5];
c_731583.elts[5] = ((closureN)self_73895)->elts[6];
c_731583.elts[6] = ((closureN)self_73895)->elts[7];
c_731583.elts[7] = ((closureN)self_73895)->elts[9];
c_731583.elts[8] = ((closureN)self_73895)->elts[10];
c_731583.elts[9] = ((closureN)self_73895)->elts[11];
c_731583.elts[10] = ((closureN)self_73895)->elts[12];
c_731583.elts[11] = ((closureN)self_73895)->elts[13];
c_731583.elts[12] = ((closureN)self_73895)->elts[14];
c_731583.elts[13] = ((closureN)self_73895)->elts[15];
c_731583.elts[14] = ((closureN)self_73895)->elts[16];
c_731583.elts[15] = ((closureN)self_73895)->elts[17];
c_731583.elts[16] = ((closureN)self_73895)->elts[18];
c_731583.elts[17] = ((closureN)self_73895)->elts[19];
c_731583.elts[18] = ((closureN)self_73895)->elts[20];
c_731583.elts[19] = ((closureN)self_73895)->elts[21];
c_731583.elts[20] = ((closureN)self_73895)->elts[22];
c_731583.elts[21] = ((closureN)self_73895)->elts[23];


closureN_type c_732201;
c_732201.hdr.mark = gc_color_red;
 c_732201.hdr.grayed = 0;
c_732201.tag = closureN_tag;
 c_732201.fn = (function_type)__lambda_225;
c_732201.num_args = 2;
c_732201.num_elt = 5;
c_732201.elts = (object *)alloca(sizeof(object) * 5);
c_732201.elts[0] = ((closureN)self_73895)->elts[1];
c_732201.elts[1] = ((closureN)self_73895)->elts[5];
c_732201.elts[2] = ((closureN)self_73895)->elts[8];
c_732201.elts[3] = ((closureN)self_73895)->elts[10];
c_732201.elts[4] = ((closureN)self_73895)->elts[23];

return_closcall1(data,(closure)&c_731583,  &c_732201);; 
}

static void __lambda_225(void *data, int argc, object self_73896, object k_73401, object term_73184, object lst_73183) {
  
closureN_type c_732203;
c_732203.hdr.mark = gc_color_red;
 c_732203.hdr.grayed = 0;
c_732203.tag = closureN_tag;
 c_732203.fn = (function_type)__lambda_224;
c_732203.num_args = 1;
c_732203.num_elt = 8;
c_732203.elts = (object *)alloca(sizeof(object) * 8);
c_732203.elts[0] = ((closureN)self_73896)->elts[0];
c_732203.elts[1] = k_73401;
c_732203.elts[2] = lst_73183;
c_732203.elts[3] = ((closureN)self_73896)->elts[1];
c_732203.elts[4] = ((closureN)self_73896)->elts[2];
c_732203.elts[5] = ((closureN)self_73896)->elts[3];
c_732203.elts[6] = term_73184;
c_732203.elts[7] = ((closureN)self_73896)->elts[4];

return_closcall1(data,(closure)&c_732203,  Cyc_is_null(lst_73183));; 
}

static void __lambda_224(void *data, int argc, object self_73897, object r_73402) {
  if( !eq(boolean_f, r_73402) ){ 
  
closureN_type c_732205;
c_732205.hdr.mark = gc_color_red;
 c_732205.hdr.grayed = 0;
c_732205.tag = closureN_tag;
 c_732205.fn = (function_type)__lambda_214;
c_732205.num_args = 0;
c_732205.num_elt = 2;
c_732205.elts = (object *)alloca(sizeof(object) * 2);
c_732205.elts[0] = ((closureN)self_73897)->elts[1];
c_732205.elts[1] = ((closureN)self_73897)->elts[6];

return_closcall0(data,(closure)&c_732205);
} else { 
  
closureN_type c_732210;
c_732210.hdr.mark = gc_color_red;
 c_732210.hdr.grayed = 0;
c_732210.tag = closureN_tag;
 c_732210.fn = (function_type)__lambda_223;
c_732210.num_args = 1;
c_732210.num_elt = 8;
c_732210.elts = (object *)alloca(sizeof(object) * 8);
c_732210.elts[0] = ((closureN)self_73897)->elts[0];
c_732210.elts[1] = ((closureN)self_73897)->elts[1];
c_732210.elts[2] = ((closureN)self_73897)->elts[2];
c_732210.elts[3] = ((closureN)self_73897)->elts[3];
c_732210.elts[4] = ((closureN)self_73897)->elts[4];
c_732210.elts[5] = ((closureN)self_73897)->elts[5];
c_732210.elts[6] = ((closureN)self_73897)->elts[6];
c_732210.elts[7] = ((closureN)self_73897)->elts[7];

return_closcall1(data,(closure)&c_732210,  car(((closureN)self_73897)->elts[2]));}
; 
}

static void __lambda_223(void *data, int argc, object self_73898, object r_73409) {
  
closureN_type c_732212;
c_732212.hdr.mark = gc_color_red;
 c_732212.hdr.grayed = 0;
c_732212.tag = closureN_tag;
 c_732212.fn = (function_type)__lambda_222;
c_732212.num_args = 1;
c_732212.num_elt = 8;
c_732212.elts = (object *)alloca(sizeof(object) * 8);
c_732212.elts[0] = ((closureN)self_73898)->elts[0];
c_732212.elts[1] = ((closureN)self_73898)->elts[1];
c_732212.elts[2] = ((closureN)self_73898)->elts[2];
c_732212.elts[3] = ((closureN)self_73898)->elts[3];
c_732212.elts[4] = ((closureN)self_73898)->elts[4];
c_732212.elts[5] = ((closureN)self_73898)->elts[5];
c_732212.elts[6] = ((closureN)self_73898)->elts[6];
c_732212.elts[7] = ((closureN)self_73898)->elts[7];

return_closcall1(data,(closure)&c_732212,  cadr(r_73409));; 
}

static void __lambda_222(void *data, int argc, object self_73899, object r_73408) {
  
closureN_type c_732217;
c_732217.hdr.mark = gc_color_red;
 c_732217.hdr.grayed = 0;
c_732217.tag = closureN_tag;
 c_732217.fn = (function_type)__lambda_221;
c_732217.num_args = 1;
c_732217.num_elt = 7;
c_732217.elts = (object *)alloca(sizeof(object) * 7);
c_732217.elts[0] = ((closureN)self_73899)->elts[0];
c_732217.elts[1] = ((closureN)self_73899)->elts[1];
c_732217.elts[2] = ((closureN)self_73899)->elts[2];
c_732217.elts[3] = ((closureN)self_73899)->elts[4];
c_732217.elts[4] = ((closureN)self_73899)->elts[5];
c_732217.elts[5] = ((closureN)self_73899)->elts[6];
c_732217.elts[6] = ((closureN)self_73899)->elts[7];

return_closcall3(data,  cell_get(((closureN)self_73899)->elts[3]),  &c_732217, ((closureN)self_73899)->elts[6], r_73408);; 
}

static void __lambda_221(void *data, int argc, object self_73900, object r_73403) {
  if( !eq(boolean_f, r_73403) ){ 
  
closureN_type c_732219;
c_732219.hdr.mark = gc_color_red;
 c_732219.hdr.grayed = 0;
c_732219.tag = closureN_tag;
 c_732219.fn = (function_type)__lambda_218;
c_732219.num_args = 0;
c_732219.num_elt = 5;
c_732219.elts = (object *)alloca(sizeof(object) * 5);
c_732219.elts[0] = ((closureN)self_73900)->elts[0];
c_732219.elts[1] = ((closureN)self_73900)->elts[1];
c_732219.elts[2] = ((closureN)self_73900)->elts[2];
c_732219.elts[3] = ((closureN)self_73900)->elts[3];
c_732219.elts[4] = ((closureN)self_73900)->elts[6];

return_closcall0(data,(closure)&c_732219);
} else { 
  
closureN_type c_732243;
c_732243.hdr.mark = gc_color_red;
 c_732243.hdr.grayed = 0;
c_732243.tag = closureN_tag;
 c_732243.fn = (function_type)__lambda_220;
c_732243.num_args = 0;
c_732243.num_elt = 4;
c_732243.elts = (object *)alloca(sizeof(object) * 4);
c_732243.elts[0] = ((closureN)self_73900)->elts[1];
c_732243.elts[1] = ((closureN)self_73900)->elts[2];
c_732243.elts[2] = ((closureN)self_73900)->elts[4];
c_732243.elts[3] = ((closureN)self_73900)->elts[5];

return_closcall0(data,(closure)&c_732243);}
; 
}

static void __lambda_220(void *data, int argc, object self_73901) {
  
closureN_type c_732245;
c_732245.hdr.mark = gc_color_red;
 c_732245.hdr.grayed = 0;
c_732245.tag = closureN_tag;
 c_732245.fn = (function_type)__lambda_219;
c_732245.num_args = 1;
c_732245.num_elt = 3;
c_732245.elts = (object *)alloca(sizeof(object) * 3);
c_732245.elts[0] = ((closureN)self_73901)->elts[0];
c_732245.elts[1] = ((closureN)self_73901)->elts[2];
c_732245.elts[2] = ((closureN)self_73901)->elts[3];

return_closcall1(data,(closure)&c_732245,  cdr(((closureN)self_73901)->elts[1]));; 
}

static void __lambda_219(void *data, int argc, object self_73902, object r_73407) {
  return_closcall3(data,  cell_get(((closureN)self_73902)->elts[1]),  ((closureN)self_73902)->elts[0], ((closureN)self_73902)->elts[2], r_73407);; 
}

static void __lambda_218(void *data, int argc, object self_73903) {
  
closureN_type c_732221;
c_732221.hdr.mark = gc_color_red;
 c_732221.hdr.grayed = 0;
c_732221.tag = closureN_tag;
 c_732221.fn = (function_type)__lambda_217;
c_732221.num_args = 1;
c_732221.num_elt = 4;
c_732221.elts = (object *)alloca(sizeof(object) * 4);
c_732221.elts[0] = ((closureN)self_73903)->elts[0];
c_732221.elts[1] = ((closureN)self_73903)->elts[1];
c_732221.elts[2] = ((closureN)self_73903)->elts[3];
c_732221.elts[3] = ((closureN)self_73903)->elts[4];

return_closcall1(data,(closure)&c_732221,  car(((closureN)self_73903)->elts[2]));; 
}

static void __lambda_217(void *data, int argc, object self_73904, object r_73406) {
  
closureN_type c_732223;
c_732223.hdr.mark = gc_color_red;
 c_732223.hdr.grayed = 0;
c_732223.tag = closureN_tag;
 c_732223.fn = (function_type)__lambda_216;
c_732223.num_args = 1;
c_732223.num_elt = 4;
c_732223.elts = (object *)alloca(sizeof(object) * 4);
c_732223.elts[0] = ((closureN)self_73904)->elts[0];
c_732223.elts[1] = ((closureN)self_73904)->elts[1];
c_732223.elts[2] = ((closureN)self_73904)->elts[2];
c_732223.elts[3] = ((closureN)self_73904)->elts[3];

return_closcall1(data,(closure)&c_732223,  caddr(r_73406));; 
}

static void __lambda_216(void *data, int argc, object self_73905, object r_73405) {
  
closureN_type c_732228;
c_732228.hdr.mark = gc_color_red;
 c_732228.hdr.grayed = 0;
c_732228.tag = closureN_tag;
 c_732228.fn = (function_type)__lambda_215;
c_732228.num_args = 1;
c_732228.num_elt = 2;
c_732228.elts = (object *)alloca(sizeof(object) * 2);
c_732228.elts[0] = ((closureN)self_73905)->elts[1];
c_732228.elts[1] = ((closureN)self_73905)->elts[2];

return_closcall3(data,  cell_get(((closureN)self_73905)->elts[0]),  &c_732228, cell_get(((closureN)self_73905)->elts[3]), r_73405);; 
}

static void __lambda_215(void *data, int argc, object self_73906, object r_73404) {
  return_closcall2(data,  cell_get(((closureN)self_73906)->elts[1]),  ((closureN)self_73906)->elts[0], r_73404);; 
}

static void __lambda_214(void *data, int argc, object self_73907) {
  return_closcall1(data,  ((closureN)self_73907)->elts[0],  ((closureN)self_73907)->elts[1]);; 
}

static void __lambda_213(void *data, int argc, object self_73908, object r_73400) {
  
closureN_type c_731585;
c_731585.hdr.mark = gc_color_red;
 c_731585.hdr.grayed = 0;
c_731585.tag = closureN_tag;
 c_731585.fn = (function_type)__lambda_212;
c_731585.num_args = 1;
c_731585.num_elt = 21;
c_731585.elts = (object *)alloca(sizeof(object) * 21);
c_731585.elts[0] = ((closureN)self_73908)->elts[0];
c_731585.elts[1] = ((closureN)self_73908)->elts[1];
c_731585.elts[2] = ((closureN)self_73908)->elts[2];
c_731585.elts[3] = ((closureN)self_73908)->elts[3];
c_731585.elts[4] = ((closureN)self_73908)->elts[4];
c_731585.elts[5] = ((closureN)self_73908)->elts[5];
c_731585.elts[6] = ((closureN)self_73908)->elts[6];
c_731585.elts[7] = ((closureN)self_73908)->elts[7];
c_731585.elts[8] = ((closureN)self_73908)->elts[9];
c_731585.elts[9] = ((closureN)self_73908)->elts[10];
c_731585.elts[10] = ((closureN)self_73908)->elts[11];
c_731585.elts[11] = ((closureN)self_73908)->elts[12];
c_731585.elts[12] = ((closureN)self_73908)->elts[13];
c_731585.elts[13] = ((closureN)self_73908)->elts[14];
c_731585.elts[14] = ((closureN)self_73908)->elts[15];
c_731585.elts[15] = ((closureN)self_73908)->elts[16];
c_731585.elts[16] = ((closureN)self_73908)->elts[17];
c_731585.elts[17] = ((closureN)self_73908)->elts[18];
c_731585.elts[18] = ((closureN)self_73908)->elts[19];
c_731585.elts[19] = ((closureN)self_73908)->elts[20];
c_731585.elts[20] = ((closureN)self_73908)->elts[21];

return_closcall1(data,(closure)&c_731585,  Cyc_set_car(data, ((closureN)self_73908)->elts[8], r_73400));; 
}

static void __lambda_212(void *data, int argc, object self_73909, object r_73290) {
  
closureN_type c_731587;
c_731587.hdr.mark = gc_color_red;
 c_731587.hdr.grayed = 0;
c_731587.tag = closureN_tag;
 c_731587.fn = (function_type)__lambda_211;
c_731587.num_args = 1;
c_731587.num_elt = 21;
c_731587.elts = (object *)alloca(sizeof(object) * 21);
c_731587.elts[0] = ((closureN)self_73909)->elts[0];
c_731587.elts[1] = ((closureN)self_73909)->elts[1];
c_731587.elts[2] = ((closureN)self_73909)->elts[2];
c_731587.elts[3] = ((closureN)self_73909)->elts[3];
c_731587.elts[4] = ((closureN)self_73909)->elts[4];
c_731587.elts[5] = ((closureN)self_73909)->elts[5];
c_731587.elts[6] = ((closureN)self_73909)->elts[6];
c_731587.elts[7] = ((closureN)self_73909)->elts[7];
c_731587.elts[8] = ((closureN)self_73909)->elts[8];
c_731587.elts[9] = ((closureN)self_73909)->elts[9];
c_731587.elts[10] = ((closureN)self_73909)->elts[10];
c_731587.elts[11] = ((closureN)self_73909)->elts[11];
c_731587.elts[12] = ((closureN)self_73909)->elts[12];
c_731587.elts[13] = ((closureN)self_73909)->elts[13];
c_731587.elts[14] = ((closureN)self_73909)->elts[14];
c_731587.elts[15] = ((closureN)self_73909)->elts[15];
c_731587.elts[16] = ((closureN)self_73909)->elts[16];
c_731587.elts[17] = ((closureN)self_73909)->elts[17];
c_731587.elts[18] = ((closureN)self_73909)->elts[18];
c_731587.elts[19] = ((closureN)self_73909)->elts[19];
c_731587.elts[20] = ((closureN)self_73909)->elts[20];

return_closcall1(data,(closure)&c_731587,  quote__85);; 
}

static void __lambda_211(void *data, int argc, object self_73910, object r_73399) {
  
closureN_type c_731589;
c_731589.hdr.mark = gc_color_red;
 c_731589.hdr.grayed = 0;
c_731589.tag = closureN_tag;
 c_731589.fn = (function_type)__lambda_210;
c_731589.num_args = 1;
c_731589.num_elt = 21;
c_731589.elts = (object *)alloca(sizeof(object) * 21);
c_731589.elts[0] = ((closureN)self_73910)->elts[0];
c_731589.elts[1] = ((closureN)self_73910)->elts[1];
c_731589.elts[2] = ((closureN)self_73910)->elts[2];
c_731589.elts[3] = ((closureN)self_73910)->elts[3];
c_731589.elts[4] = ((closureN)self_73910)->elts[4];
c_731589.elts[5] = ((closureN)self_73910)->elts[5];
c_731589.elts[6] = ((closureN)self_73910)->elts[6];
c_731589.elts[7] = ((closureN)self_73910)->elts[7];
c_731589.elts[8] = ((closureN)self_73910)->elts[8];
c_731589.elts[9] = ((closureN)self_73910)->elts[9];
c_731589.elts[10] = ((closureN)self_73910)->elts[10];
c_731589.elts[11] = ((closureN)self_73910)->elts[11];
c_731589.elts[12] = ((closureN)self_73910)->elts[12];
c_731589.elts[13] = ((closureN)self_73910)->elts[13];
c_731589.elts[14] = ((closureN)self_73910)->elts[14];
c_731589.elts[15] = ((closureN)self_73910)->elts[15];
c_731589.elts[16] = ((closureN)self_73910)->elts[16];
c_731589.elts[17] = ((closureN)self_73910)->elts[17];
c_731589.elts[18] = ((closureN)self_73910)->elts[18];
c_731589.elts[19] = ((closureN)self_73910)->elts[19];
c_731589.elts[20] = ((closureN)self_73910)->elts[20];

return_closcall1(data,(closure)&c_731589,  Cyc_set_car(data, ((closureN)self_73910)->elts[20], r_73399));; 
}

static void __lambda_210(void *data, int argc, object self_73911, object r_73291) {
  
closureN_type c_731591;
c_731591.hdr.mark = gc_color_red;
 c_731591.hdr.grayed = 0;
c_731591.tag = closureN_tag;
 c_731591.fn = (function_type)__lambda_206;
c_731591.num_args = 1;
c_731591.num_elt = 21;
c_731591.elts = (object *)alloca(sizeof(object) * 21);
c_731591.elts[0] = ((closureN)self_73911)->elts[0];
c_731591.elts[1] = ((closureN)self_73911)->elts[1];
c_731591.elts[2] = ((closureN)self_73911)->elts[2];
c_731591.elts[3] = ((closureN)self_73911)->elts[3];
c_731591.elts[4] = ((closureN)self_73911)->elts[4];
c_731591.elts[5] = ((closureN)self_73911)->elts[5];
c_731591.elts[6] = ((closureN)self_73911)->elts[6];
c_731591.elts[7] = ((closureN)self_73911)->elts[7];
c_731591.elts[8] = ((closureN)self_73911)->elts[8];
c_731591.elts[9] = ((closureN)self_73911)->elts[9];
c_731591.elts[10] = ((closureN)self_73911)->elts[10];
c_731591.elts[11] = ((closureN)self_73911)->elts[11];
c_731591.elts[12] = ((closureN)self_73911)->elts[12];
c_731591.elts[13] = ((closureN)self_73911)->elts[13];
c_731591.elts[14] = ((closureN)self_73911)->elts[14];
c_731591.elts[15] = ((closureN)self_73911)->elts[15];
c_731591.elts[16] = ((closureN)self_73911)->elts[16];
c_731591.elts[17] = ((closureN)self_73911)->elts[17];
c_731591.elts[18] = ((closureN)self_73911)->elts[18];
c_731591.elts[19] = ((closureN)self_73911)->elts[19];
c_731591.elts[20] = ((closureN)self_73911)->elts[20];


closureN_type c_732180;
c_732180.hdr.mark = gc_color_red;
 c_732180.hdr.grayed = 0;
c_732180.tag = closureN_tag;
 c_732180.fn = (function_type)__lambda_209;
c_732180.num_args = 2;
c_732180.num_elt = 2;
c_732180.elts = (object *)alloca(sizeof(object) * 2);
c_732180.elts[0] = ((closureN)self_73911)->elts[5];
c_732180.elts[1] = ((closureN)self_73911)->elts[20];

return_closcall1(data,(closure)&c_731591,  &c_732180);; 
}

static void __lambda_209(void *data, int argc, object self_73912, object k_73396, object term1_73182, object term2_73181) {
  
closureN_type c_732182;
c_732182.hdr.mark = gc_color_red;
 c_732182.hdr.grayed = 0;
c_732182.tag = closureN_tag;
 c_732182.fn = (function_type)__lambda_208;
c_732182.num_args = 1;
c_732182.num_elt = 5;
c_732182.elts = (object *)alloca(sizeof(object) * 5);
c_732182.elts[0] = k_73396;
c_732182.elts[1] = ((closureN)self_73912)->elts[0];
c_732182.elts[2] = term1_73182;
c_732182.elts[3] = term2_73181;
c_732182.elts[4] = ((closureN)self_73912)->elts[1];

return_closcall1(data,(closure)&c_732182,  nil);; 
}

static void __lambda_208(void *data, int argc, object self_73913, object r_73398) {
  
closureN_type c_732184;
c_732184.hdr.mark = gc_color_red;
 c_732184.hdr.grayed = 0;
c_732184.tag = closureN_tag;
 c_732184.fn = (function_type)__lambda_207;
c_732184.num_args = 1;
c_732184.num_elt = 4;
c_732184.elts = (object *)alloca(sizeof(object) * 4);
c_732184.elts[0] = ((closureN)self_73913)->elts[0];
c_732184.elts[1] = ((closureN)self_73913)->elts[1];
c_732184.elts[2] = ((closureN)self_73913)->elts[2];
c_732184.elts[3] = ((closureN)self_73913)->elts[3];

return_closcall1(data,(closure)&c_732184,  Cyc_set_car(data, ((closureN)self_73913)->elts[4], r_73398));; 
}

static void __lambda_207(void *data, int argc, object self_73914, object r_73397) {
  return_closcall3(data,  cell_get(((closureN)self_73914)->elts[1]),  ((closureN)self_73914)->elts[0], ((closureN)self_73914)->elts[2], ((closureN)self_73914)->elts[3]);; 
}

static void __lambda_206(void *data, int argc, object self_73915, object r_73395) {
  
closureN_type c_731593;
c_731593.hdr.mark = gc_color_red;
 c_731593.hdr.grayed = 0;
c_731593.tag = closureN_tag;
 c_731593.fn = (function_type)__lambda_205;
c_731593.num_args = 1;
c_731593.num_elt = 20;
c_731593.elts = (object *)alloca(sizeof(object) * 20);
c_731593.elts[0] = ((closureN)self_73915)->elts[0];
c_731593.elts[1] = ((closureN)self_73915)->elts[1];
c_731593.elts[2] = ((closureN)self_73915)->elts[2];
c_731593.elts[3] = ((closureN)self_73915)->elts[3];
c_731593.elts[4] = ((closureN)self_73915)->elts[5];
c_731593.elts[5] = ((closureN)self_73915)->elts[6];
c_731593.elts[6] = ((closureN)self_73915)->elts[7];
c_731593.elts[7] = ((closureN)self_73915)->elts[8];
c_731593.elts[8] = ((closureN)self_73915)->elts[9];
c_731593.elts[9] = ((closureN)self_73915)->elts[10];
c_731593.elts[10] = ((closureN)self_73915)->elts[11];
c_731593.elts[11] = ((closureN)self_73915)->elts[12];
c_731593.elts[12] = ((closureN)self_73915)->elts[13];
c_731593.elts[13] = ((closureN)self_73915)->elts[14];
c_731593.elts[14] = ((closureN)self_73915)->elts[15];
c_731593.elts[15] = ((closureN)self_73915)->elts[16];
c_731593.elts[16] = ((closureN)self_73915)->elts[17];
c_731593.elts[17] = ((closureN)self_73915)->elts[18];
c_731593.elts[18] = ((closureN)self_73915)->elts[19];
c_731593.elts[19] = ((closureN)self_73915)->elts[20];

return_closcall1(data,(closure)&c_731593,  Cyc_set_car(data, ((closureN)self_73915)->elts[4], r_73395));; 
}

static void __lambda_205(void *data, int argc, object self_73916, object r_73292) {
  
closureN_type c_731595;
c_731595.hdr.mark = gc_color_red;
 c_731595.hdr.grayed = 0;
c_731595.tag = closureN_tag;
 c_731595.fn = (function_type)__lambda_183;
c_731595.num_args = 1;
c_731595.num_elt = 19;
c_731595.elts = (object *)alloca(sizeof(object) * 19);
c_731595.elts[0] = ((closureN)self_73916)->elts[0];
c_731595.elts[1] = ((closureN)self_73916)->elts[1];
c_731595.elts[2] = ((closureN)self_73916)->elts[2];
c_731595.elts[3] = ((closureN)self_73916)->elts[3];
c_731595.elts[4] = ((closureN)self_73916)->elts[4];
c_731595.elts[5] = ((closureN)self_73916)->elts[5];
c_731595.elts[6] = ((closureN)self_73916)->elts[6];
c_731595.elts[7] = ((closureN)self_73916)->elts[7];
c_731595.elts[8] = ((closureN)self_73916)->elts[8];
c_731595.elts[9] = ((closureN)self_73916)->elts[9];
c_731595.elts[10] = ((closureN)self_73916)->elts[10];
c_731595.elts[11] = ((closureN)self_73916)->elts[11];
c_731595.elts[12] = ((closureN)self_73916)->elts[12];
c_731595.elts[13] = ((closureN)self_73916)->elts[13];
c_731595.elts[14] = ((closureN)self_73916)->elts[14];
c_731595.elts[15] = ((closureN)self_73916)->elts[15];
c_731595.elts[16] = ((closureN)self_73916)->elts[16];
c_731595.elts[17] = ((closureN)self_73916)->elts[17];
c_731595.elts[18] = ((closureN)self_73916)->elts[18];


closureN_type c_732066;
c_732066.hdr.mark = gc_color_red;
 c_732066.hdr.grayed = 0;
c_732066.tag = closureN_tag;
 c_732066.fn = (function_type)__lambda_204;
c_732066.num_args = 2;
c_732066.num_elt = 3;
c_732066.elts = (object *)alloca(sizeof(object) * 3);
c_732066.elts[0] = ((closureN)self_73916)->elts[5];
c_732066.elts[1] = ((closureN)self_73916)->elts[11];
c_732066.elts[2] = ((closureN)self_73916)->elts[19];

return_closcall1(data,(closure)&c_731595,  &c_732066);; 
}

static void __lambda_204(void *data, int argc, object self_73917, object k_73381, object term1_73179, object term2_73178) {
  
closureN_type c_732068;
c_732068.hdr.mark = gc_color_red;
 c_732068.hdr.grayed = 0;
c_732068.tag = closureN_tag;
 c_732068.fn = (function_type)__lambda_203;
c_732068.num_args = 1;
c_732068.num_elt = 6;
c_732068.elts = (object *)alloca(sizeof(object) * 6);
c_732068.elts[0] = k_73381;
c_732068.elts[1] = ((closureN)self_73917)->elts[0];
c_732068.elts[2] = ((closureN)self_73917)->elts[1];
c_732068.elts[3] = term1_73179;
c_732068.elts[4] = term2_73178;
c_732068.elts[5] = ((closureN)self_73917)->elts[2];

return_closcall1(data,(closure)&c_732068,  Cyc_is_cons(term2_73178));; 
}

static void __lambda_203(void *data, int argc, object self_73918, object r_73382) {
  if( !eq(boolean_f, r_73382) ){ 
  
closureN_type c_732070;
c_732070.hdr.mark = gc_color_red;
 c_732070.hdr.grayed = 0;
c_732070.tag = closureN_tag;
 c_732070.fn = (function_type)__lambda_192;
c_732070.num_args = 1;
c_732070.num_elt = 4;
c_732070.elts = (object *)alloca(sizeof(object) * 4);
c_732070.elts[0] = ((closureN)self_73918)->elts[0];
c_732070.elts[1] = ((closureN)self_73918)->elts[1];
c_732070.elts[2] = ((closureN)self_73918)->elts[3];
c_732070.elts[3] = ((closureN)self_73918)->elts[4];

return_closcall1(data,(closure)&c_732070,  Cyc_is_cons(((closureN)self_73918)->elts[3]));
} else { 
  
closureN_type c_732116;
c_732116.hdr.mark = gc_color_red;
 c_732116.hdr.grayed = 0;
c_732116.tag = closureN_tag;
 c_732116.fn = (function_type)__lambda_202;
c_732116.num_args = 0;
c_732116.num_elt = 5;
c_732116.elts = (object *)alloca(sizeof(object) * 5);
c_732116.elts[0] = ((closureN)self_73918)->elts[0];
c_732116.elts[1] = ((closureN)self_73918)->elts[2];
c_732116.elts[2] = ((closureN)self_73918)->elts[3];
c_732116.elts[3] = ((closureN)self_73918)->elts[4];
c_732116.elts[4] = ((closureN)self_73918)->elts[5];

return_closcall0(data,(closure)&c_732116);}
; 
}

static void __lambda_202(void *data, int argc, object self_73919) {
  
closureN_type c_732118;
c_732118.hdr.mark = gc_color_red;
 c_732118.hdr.grayed = 0;
c_732118.tag = closureN_tag;
 c_732118.fn = (function_type)__lambda_201;
c_732118.num_args = 1;
c_732118.num_elt = 5;
c_732118.elts = (object *)alloca(sizeof(object) * 5);
c_732118.elts[0] = ((closureN)self_73919)->elts[0];
c_732118.elts[1] = ((closureN)self_73919)->elts[1];
c_732118.elts[2] = ((closureN)self_73919)->elts[2];
c_732118.elts[3] = ((closureN)self_73919)->elts[3];
c_732118.elts[4] = ((closureN)self_73919)->elts[4];

return_closcall1(data,(closure)&c_732118,  assq(data, ((closureN)self_73919)->elts[3], cell_get(((closureN)self_73919)->elts[4])));; 
}

static void __lambda_201(void *data, int argc, object self_73920, object temp_91temp_73180) {
  if( !eq(boolean_f, temp_91temp_73180) ){ 
  
closureN_type c_732120;
c_732120.hdr.mark = gc_color_red;
 c_732120.hdr.grayed = 0;
c_732120.tag = closureN_tag;
 c_732120.fn = (function_type)__lambda_194;
c_732120.num_args = 0;
c_732120.num_elt = 4;
c_732120.elts = (object *)alloca(sizeof(object) * 4);
c_732120.elts[0] = ((closureN)self_73920)->elts[0];
c_732120.elts[1] = temp_91temp_73180;
c_732120.elts[2] = ((closureN)self_73920)->elts[1];
c_732120.elts[3] = ((closureN)self_73920)->elts[2];

return_closcall0(data,(closure)&c_732120);
} else { 
  
closureN_type c_732133;
c_732133.hdr.mark = gc_color_red;
 c_732133.hdr.grayed = 0;
c_732133.tag = closureN_tag;
 c_732133.fn = (function_type)__lambda_200;
c_732133.num_args = 1;
c_732133.num_elt = 4;
c_732133.elts = (object *)alloca(sizeof(object) * 4);
c_732133.elts[0] = ((closureN)self_73920)->elts[0];
c_732133.elts[1] = ((closureN)self_73920)->elts[2];
c_732133.elts[2] = ((closureN)self_73920)->elts[3];
c_732133.elts[3] = ((closureN)self_73920)->elts[4];

return_closcall1(data,(closure)&c_732133,  Cyc_is_number(((closureN)self_73920)->elts[3]));}
; 
}

static void __lambda_200(void *data, int argc, object self_73921, object r_73391) {
  if( !eq(boolean_f, r_73391) ){ 
  
closureN_type c_732135;
c_732135.hdr.mark = gc_color_red;
 c_732135.hdr.grayed = 0;
c_732135.tag = closureN_tag;
 c_732135.fn = (function_type)__lambda_195;
c_732135.num_args = 0;
c_732135.num_elt = 3;
c_732135.elts = (object *)alloca(sizeof(object) * 3);
c_732135.elts[0] = ((closureN)self_73921)->elts[0];
c_732135.elts[1] = ((closureN)self_73921)->elts[1];
c_732135.elts[2] = ((closureN)self_73921)->elts[2];

return_closcall0(data,(closure)&c_732135);
} else { 
  
closureN_type c_732143;
c_732143.hdr.mark = gc_color_red;
 c_732143.hdr.grayed = 0;
c_732143.tag = closureN_tag;
 c_732143.fn = (function_type)__lambda_199;
c_732143.num_args = 0;
c_732143.num_elt = 4;
c_732143.elts = (object *)alloca(sizeof(object) * 4);
c_732143.elts[0] = ((closureN)self_73921)->elts[0];
c_732143.elts[1] = ((closureN)self_73921)->elts[1];
c_732143.elts[2] = ((closureN)self_73921)->elts[2];
c_732143.elts[3] = ((closureN)self_73921)->elts[3];

return_closcall0(data,(closure)&c_732143);}
; 
}

static void __lambda_199(void *data, int argc, object self_73922) {
  
closureN_type c_732145;
c_732145.hdr.mark = gc_color_red;
 c_732145.hdr.grayed = 0;
c_732145.tag = closureN_tag;
 c_732145.fn = (function_type)__lambda_198;
c_732145.num_args = 1;
c_732145.num_elt = 2;
c_732145.elts = (object *)alloca(sizeof(object) * 2);
c_732145.elts[0] = ((closureN)self_73922)->elts[0];
c_732145.elts[1] = ((closureN)self_73922)->elts[3];


make_cons(c_732163,((closureN)self_73922)->elts[2], ((closureN)self_73922)->elts[1]);
return_closcall1(data,(closure)&c_732145,  &c_732163);; 
}

static void __lambda_198(void *data, int argc, object self_73923, object r_73394) {
  
closureN_type c_732147;
c_732147.hdr.mark = gc_color_red;
 c_732147.hdr.grayed = 0;
c_732147.tag = closureN_tag;
 c_732147.fn = (function_type)__lambda_197;
c_732147.num_args = 1;
c_732147.num_elt = 2;
c_732147.elts = (object *)alloca(sizeof(object) * 2);
c_732147.elts[0] = ((closureN)self_73923)->elts[0];
c_732147.elts[1] = ((closureN)self_73923)->elts[1];


make_cons(c_732157,r_73394, cell_get(((closureN)self_73923)->elts[1]));
return_closcall1(data,(closure)&c_732147,  &c_732157);; 
}

static void __lambda_197(void *data, int argc, object self_73924, object r_73393) {
  
closureN_type c_732149;
c_732149.hdr.mark = gc_color_red;
 c_732149.hdr.grayed = 0;
c_732149.tag = closureN_tag;
 c_732149.fn = (function_type)__lambda_196;
c_732149.num_args = 1;
c_732149.num_elt = 1;
c_732149.elts = (object *)alloca(sizeof(object) * 1);
c_732149.elts[0] = ((closureN)self_73924)->elts[0];

return_closcall1(data,(closure)&c_732149,  Cyc_set_car(data, ((closureN)self_73924)->elts[1], r_73393));; 
}

static void __lambda_196(void *data, int argc, object self_73925, object r_73392) {
  return_closcall1(data,  ((closureN)self_73925)->elts[0],  boolean_t);; 
}

static void __lambda_195(void *data, int argc, object self_73926) {
  return_closcall1(data,  ((closureN)self_73926)->elts[0],  equalp(((closureN)self_73926)->elts[1], ((closureN)self_73926)->elts[2]));; 
}

static void __lambda_194(void *data, int argc, object self_73927) {
  
closureN_type c_732122;
c_732122.hdr.mark = gc_color_red;
 c_732122.hdr.grayed = 0;
c_732122.tag = closureN_tag;
 c_732122.fn = (function_type)__lambda_193;
c_732122.num_args = 1;
c_732122.num_elt = 3;
c_732122.elts = (object *)alloca(sizeof(object) * 3);
c_732122.elts[0] = ((closureN)self_73927)->elts[0];
c_732122.elts[1] = ((closureN)self_73927)->elts[2];
c_732122.elts[2] = ((closureN)self_73927)->elts[3];

return_closcall1(data,(closure)&c_732122,  cdr(((closureN)self_73927)->elts[1]));; 
}

static void __lambda_193(void *data, int argc, object self_73928, object r_73390) {
  return_closcall3(data,  cell_get(((closureN)self_73928)->elts[1]),  ((closureN)self_73928)->elts[0], ((closureN)self_73928)->elts[2], r_73390);; 
}

static void __lambda_192(void *data, int argc, object self_73929, object r_73383) {
  if( !eq(boolean_f, r_73383) ){ 
  
closureN_type c_732072;
c_732072.hdr.mark = gc_color_red;
 c_732072.hdr.grayed = 0;
c_732072.tag = closureN_tag;
 c_732072.fn = (function_type)__lambda_190;
c_732072.num_args = 1;
c_732072.num_elt = 4;
c_732072.elts = (object *)alloca(sizeof(object) * 4);
c_732072.elts[0] = ((closureN)self_73929)->elts[0];
c_732072.elts[1] = ((closureN)self_73929)->elts[1];
c_732072.elts[2] = ((closureN)self_73929)->elts[2];
c_732072.elts[3] = ((closureN)self_73929)->elts[3];

return_closcall1(data,(closure)&c_732072,  car(((closureN)self_73929)->elts[2]));
} else { 
  
closureN_type c_732109;
c_732109.hdr.mark = gc_color_red;
 c_732109.hdr.grayed = 0;
c_732109.tag = closureN_tag;
 c_732109.fn = (function_type)__lambda_191;
c_732109.num_args = 0;
c_732109.num_elt = 1;
c_732109.elts = (object *)alloca(sizeof(object) * 1);
c_732109.elts[0] = ((closureN)self_73929)->elts[0];

return_closcall0(data,(closure)&c_732109);}
; 
}

static void __lambda_191(void *data, int argc, object self_73930) {
  return_closcall1(data,  ((closureN)self_73930)->elts[0],  boolean_f);; 
}

static void __lambda_190(void *data, int argc, object self_73931, object r_73387) {
  
closureN_type c_732074;
c_732074.hdr.mark = gc_color_red;
 c_732074.hdr.grayed = 0;
c_732074.tag = closureN_tag;
 c_732074.fn = (function_type)__lambda_189;
c_732074.num_args = 1;
c_732074.num_elt = 5;
c_732074.elts = (object *)alloca(sizeof(object) * 5);
c_732074.elts[0] = ((closureN)self_73931)->elts[0];
c_732074.elts[1] = ((closureN)self_73931)->elts[1];
c_732074.elts[2] = r_73387;
c_732074.elts[3] = ((closureN)self_73931)->elts[2];
c_732074.elts[4] = ((closureN)self_73931)->elts[3];

return_closcall1(data,(closure)&c_732074,  car(((closureN)self_73931)->elts[3]));; 
}

static void __lambda_189(void *data, int argc, object self_73932, object r_73388) {
  
closureN_type c_732076;
c_732076.hdr.mark = gc_color_red;
 c_732076.hdr.grayed = 0;
c_732076.tag = closureN_tag;
 c_732076.fn = (function_type)__lambda_188;
c_732076.num_args = 1;
c_732076.num_elt = 4;
c_732076.elts = (object *)alloca(sizeof(object) * 4);
c_732076.elts[0] = ((closureN)self_73932)->elts[0];
c_732076.elts[1] = ((closureN)self_73932)->elts[1];
c_732076.elts[2] = ((closureN)self_73932)->elts[3];
c_732076.elts[3] = ((closureN)self_73932)->elts[4];

return_closcall1(data,(closure)&c_732076,  Cyc_eq(((closureN)self_73932)->elts[2], r_73388));; 
}

static void __lambda_188(void *data, int argc, object self_73933, object r_73384) {
  if( !eq(boolean_f, r_73384) ){ 
  
closureN_type c_732078;
c_732078.hdr.mark = gc_color_red;
 c_732078.hdr.grayed = 0;
c_732078.tag = closureN_tag;
 c_732078.fn = (function_type)__lambda_186;
c_732078.num_args = 0;
c_732078.num_elt = 4;
c_732078.elts = (object *)alloca(sizeof(object) * 4);
c_732078.elts[0] = ((closureN)self_73933)->elts[0];
c_732078.elts[1] = ((closureN)self_73933)->elts[1];
c_732078.elts[2] = ((closureN)self_73933)->elts[2];
c_732078.elts[3] = ((closureN)self_73933)->elts[3];

return_closcall0(data,(closure)&c_732078);
} else { 
  
closureN_type c_732096;
c_732096.hdr.mark = gc_color_red;
 c_732096.hdr.grayed = 0;
c_732096.tag = closureN_tag;
 c_732096.fn = (function_type)__lambda_187;
c_732096.num_args = 0;
c_732096.num_elt = 1;
c_732096.elts = (object *)alloca(sizeof(object) * 1);
c_732096.elts[0] = ((closureN)self_73933)->elts[0];

return_closcall0(data,(closure)&c_732096);}
; 
}

static void __lambda_187(void *data, int argc, object self_73934) {
  return_closcall1(data,  ((closureN)self_73934)->elts[0],  boolean_f);; 
}

static void __lambda_186(void *data, int argc, object self_73935) {
  
closureN_type c_732080;
c_732080.hdr.mark = gc_color_red;
 c_732080.hdr.grayed = 0;
c_732080.tag = closureN_tag;
 c_732080.fn = (function_type)__lambda_185;
c_732080.num_args = 1;
c_732080.num_elt = 3;
c_732080.elts = (object *)alloca(sizeof(object) * 3);
c_732080.elts[0] = ((closureN)self_73935)->elts[0];
c_732080.elts[1] = ((closureN)self_73935)->elts[1];
c_732080.elts[2] = ((closureN)self_73935)->elts[3];

return_closcall1(data,(closure)&c_732080,  cdr(((closureN)self_73935)->elts[2]));; 
}

static void __lambda_185(void *data, int argc, object self_73936, object r_73385) {
  
closureN_type c_732082;
c_732082.hdr.mark = gc_color_red;
 c_732082.hdr.grayed = 0;
c_732082.tag = closureN_tag;
 c_732082.fn = (function_type)__lambda_184;
c_732082.num_args = 1;
c_732082.num_elt = 3;
c_732082.elts = (object *)alloca(sizeof(object) * 3);
c_732082.elts[0] = ((closureN)self_73936)->elts[0];
c_732082.elts[1] = ((closureN)self_73936)->elts[1];
c_732082.elts[2] = r_73385;

return_closcall1(data,(closure)&c_732082,  cdr(((closureN)self_73936)->elts[2]));; 
}

static void __lambda_184(void *data, int argc, object self_73937, object r_73386) {
  return_closcall3(data,  cell_get(((closureN)self_73937)->elts[1]),  ((closureN)self_73937)->elts[0], ((closureN)self_73937)->elts[2], r_73386);; 
}

static void __lambda_183(void *data, int argc, object self_73938, object r_73380) {
  
closureN_type c_731597;
c_731597.hdr.mark = gc_color_red;
 c_731597.hdr.grayed = 0;
c_731597.tag = closureN_tag;
 c_731597.fn = (function_type)__lambda_182;
c_731597.num_args = 1;
c_731597.num_elt = 19;
c_731597.elts = (object *)alloca(sizeof(object) * 19);
c_731597.elts[0] = ((closureN)self_73938)->elts[0];
c_731597.elts[1] = ((closureN)self_73938)->elts[1];
c_731597.elts[2] = ((closureN)self_73938)->elts[2];
c_731597.elts[3] = ((closureN)self_73938)->elts[3];
c_731597.elts[4] = ((closureN)self_73938)->elts[4];
c_731597.elts[5] = ((closureN)self_73938)->elts[5];
c_731597.elts[6] = ((closureN)self_73938)->elts[6];
c_731597.elts[7] = ((closureN)self_73938)->elts[7];
c_731597.elts[8] = ((closureN)self_73938)->elts[8];
c_731597.elts[9] = ((closureN)self_73938)->elts[9];
c_731597.elts[10] = ((closureN)self_73938)->elts[10];
c_731597.elts[11] = ((closureN)self_73938)->elts[11];
c_731597.elts[12] = ((closureN)self_73938)->elts[12];
c_731597.elts[13] = ((closureN)self_73938)->elts[13];
c_731597.elts[14] = ((closureN)self_73938)->elts[14];
c_731597.elts[15] = ((closureN)self_73938)->elts[15];
c_731597.elts[16] = ((closureN)self_73938)->elts[16];
c_731597.elts[17] = ((closureN)self_73938)->elts[17];
c_731597.elts[18] = ((closureN)self_73938)->elts[18];

return_closcall1(data,(closure)&c_731597,  Cyc_set_car(data, ((closureN)self_73938)->elts[4], r_73380));; 
}

static void __lambda_182(void *data, int argc, object self_73939, object r_73293) {
  
closureN_type c_731599;
c_731599.hdr.mark = gc_color_red;
 c_731599.hdr.grayed = 0;
c_731599.tag = closureN_tag;
 c_731599.fn = (function_type)__lambda_169;
c_731599.num_args = 1;
c_731599.num_elt = 18;
c_731599.elts = (object *)alloca(sizeof(object) * 18);
c_731599.elts[0] = ((closureN)self_73939)->elts[0];
c_731599.elts[1] = ((closureN)self_73939)->elts[1];
c_731599.elts[2] = ((closureN)self_73939)->elts[2];
c_731599.elts[3] = ((closureN)self_73939)->elts[3];
c_731599.elts[4] = ((closureN)self_73939)->elts[5];
c_731599.elts[5] = ((closureN)self_73939)->elts[6];
c_731599.elts[6] = ((closureN)self_73939)->elts[7];
c_731599.elts[7] = ((closureN)self_73939)->elts[8];
c_731599.elts[8] = ((closureN)self_73939)->elts[9];
c_731599.elts[9] = ((closureN)self_73939)->elts[10];
c_731599.elts[10] = ((closureN)self_73939)->elts[11];
c_731599.elts[11] = ((closureN)self_73939)->elts[12];
c_731599.elts[12] = ((closureN)self_73939)->elts[13];
c_731599.elts[13] = ((closureN)self_73939)->elts[14];
c_731599.elts[14] = ((closureN)self_73939)->elts[15];
c_731599.elts[15] = ((closureN)self_73939)->elts[16];
c_731599.elts[16] = ((closureN)self_73939)->elts[17];
c_731599.elts[17] = ((closureN)self_73939)->elts[18];


closureN_type c_732004;
c_732004.hdr.mark = gc_color_red;
 c_732004.hdr.grayed = 0;
c_732004.tag = closureN_tag;
 c_732004.fn = (function_type)__lambda_181;
c_732004.num_args = 2;
c_732004.num_elt = 2;
c_732004.elts = (object *)alloca(sizeof(object) * 2);
c_732004.elts[0] = ((closureN)self_73939)->elts[4];
c_732004.elts[1] = ((closureN)self_73939)->elts[5];

return_closcall1(data,(closure)&c_731599,  &c_732004);; 
}

static void __lambda_181(void *data, int argc, object self_73940, object k_73372, object lst1_73177, object lst2_73176) {
  
closureN_type c_732006;
c_732006.hdr.mark = gc_color_red;
 c_732006.hdr.grayed = 0;
c_732006.tag = closureN_tag;
 c_732006.fn = (function_type)__lambda_180;
c_732006.num_args = 1;
c_732006.num_elt = 5;
c_732006.elts = (object *)alloca(sizeof(object) * 5);
c_732006.elts[0] = k_73372;
c_732006.elts[1] = lst1_73177;
c_732006.elts[2] = lst2_73176;
c_732006.elts[3] = ((closureN)self_73940)->elts[0];
c_732006.elts[4] = ((closureN)self_73940)->elts[1];

return_closcall1(data,(closure)&c_732006,  Cyc_is_null(lst1_73177));; 
}

static void __lambda_180(void *data, int argc, object self_73941, object r_73373) {
  if( !eq(boolean_f, r_73373) ){ 
  
closureN_type c_732008;
c_732008.hdr.mark = gc_color_red;
 c_732008.hdr.grayed = 0;
c_732008.tag = closureN_tag;
 c_732008.fn = (function_type)__lambda_170;
c_732008.num_args = 0;
c_732008.num_elt = 2;
c_732008.elts = (object *)alloca(sizeof(object) * 2);
c_732008.elts[0] = ((closureN)self_73941)->elts[0];
c_732008.elts[1] = ((closureN)self_73941)->elts[2];

return_closcall0(data,(closure)&c_732008);
} else { 
  
closureN_type c_732015;
c_732015.hdr.mark = gc_color_red;
 c_732015.hdr.grayed = 0;
c_732015.tag = closureN_tag;
 c_732015.fn = (function_type)__lambda_179;
c_732015.num_args = 1;
c_732015.num_elt = 5;
c_732015.elts = (object *)alloca(sizeof(object) * 5);
c_732015.elts[0] = ((closureN)self_73941)->elts[0];
c_732015.elts[1] = ((closureN)self_73941)->elts[1];
c_732015.elts[2] = ((closureN)self_73941)->elts[2];
c_732015.elts[3] = ((closureN)self_73941)->elts[3];
c_732015.elts[4] = ((closureN)self_73941)->elts[4];

return_closcall1(data,(closure)&c_732015,  Cyc_is_null(((closureN)self_73941)->elts[2]));}
; 
}

static void __lambda_179(void *data, int argc, object self_73942, object r_73374) {
  if( !eq(boolean_f, r_73374) ){ 
  
closureN_type c_732017;
c_732017.hdr.mark = gc_color_red;
 c_732017.hdr.grayed = 0;
c_732017.tag = closureN_tag;
 c_732017.fn = (function_type)__lambda_171;
c_732017.num_args = 0;
c_732017.num_elt = 1;
c_732017.elts = (object *)alloca(sizeof(object) * 1);
c_732017.elts[0] = ((closureN)self_73942)->elts[0];

return_closcall0(data,(closure)&c_732017);
} else { 
  
closureN_type c_732021;
c_732021.hdr.mark = gc_color_red;
 c_732021.hdr.grayed = 0;
c_732021.tag = closureN_tag;
 c_732021.fn = (function_type)__lambda_178;
c_732021.num_args = 1;
c_732021.num_elt = 5;
c_732021.elts = (object *)alloca(sizeof(object) * 5);
c_732021.elts[0] = ((closureN)self_73942)->elts[0];
c_732021.elts[1] = ((closureN)self_73942)->elts[1];
c_732021.elts[2] = ((closureN)self_73942)->elts[2];
c_732021.elts[3] = ((closureN)self_73942)->elts[3];
c_732021.elts[4] = ((closureN)self_73942)->elts[4];

return_closcall1(data,(closure)&c_732021,  car(((closureN)self_73942)->elts[1]));}
; 
}

static void __lambda_178(void *data, int argc, object self_73943, object r_73378) {
  
closureN_type c_732023;
c_732023.hdr.mark = gc_color_red;
 c_732023.hdr.grayed = 0;
c_732023.tag = closureN_tag;
 c_732023.fn = (function_type)__lambda_177;
c_732023.num_args = 1;
c_732023.num_elt = 6;
c_732023.elts = (object *)alloca(sizeof(object) * 6);
c_732023.elts[0] = ((closureN)self_73943)->elts[0];
c_732023.elts[1] = ((closureN)self_73943)->elts[1];
c_732023.elts[2] = ((closureN)self_73943)->elts[2];
c_732023.elts[3] = ((closureN)self_73943)->elts[3];
c_732023.elts[4] = ((closureN)self_73943)->elts[4];
c_732023.elts[5] = r_73378;

return_closcall1(data,(closure)&c_732023,  car(((closureN)self_73943)->elts[2]));; 
}

static void __lambda_177(void *data, int argc, object self_73944, object r_73379) {
  
closureN_type c_732028;
c_732028.hdr.mark = gc_color_red;
 c_732028.hdr.grayed = 0;
c_732028.tag = closureN_tag;
 c_732028.fn = (function_type)__lambda_176;
c_732028.num_args = 1;
c_732028.num_elt = 4;
c_732028.elts = (object *)alloca(sizeof(object) * 4);
c_732028.elts[0] = ((closureN)self_73944)->elts[0];
c_732028.elts[1] = ((closureN)self_73944)->elts[1];
c_732028.elts[2] = ((closureN)self_73944)->elts[2];
c_732028.elts[3] = ((closureN)self_73944)->elts[4];

return_closcall3(data,  cell_get(((closureN)self_73944)->elts[3]),  &c_732028, ((closureN)self_73944)->elts[5], r_73379);; 
}

static void __lambda_176(void *data, int argc, object self_73945, object r_73375) {
  if( !eq(boolean_f, r_73375) ){ 
  
closureN_type c_732030;
c_732030.hdr.mark = gc_color_red;
 c_732030.hdr.grayed = 0;
c_732030.tag = closureN_tag;
 c_732030.fn = (function_type)__lambda_174;
c_732030.num_args = 0;
c_732030.num_elt = 4;
c_732030.elts = (object *)alloca(sizeof(object) * 4);
c_732030.elts[0] = ((closureN)self_73945)->elts[0];
c_732030.elts[1] = ((closureN)self_73945)->elts[1];
c_732030.elts[2] = ((closureN)self_73945)->elts[2];
c_732030.elts[3] = ((closureN)self_73945)->elts[3];

return_closcall0(data,(closure)&c_732030);
} else { 
  
closureN_type c_732048;
c_732048.hdr.mark = gc_color_red;
 c_732048.hdr.grayed = 0;
c_732048.tag = closureN_tag;
 c_732048.fn = (function_type)__lambda_175;
c_732048.num_args = 0;
c_732048.num_elt = 1;
c_732048.elts = (object *)alloca(sizeof(object) * 1);
c_732048.elts[0] = ((closureN)self_73945)->elts[0];

return_closcall0(data,(closure)&c_732048);}
; 
}

static void __lambda_175(void *data, int argc, object self_73946) {
  return_closcall1(data,  ((closureN)self_73946)->elts[0],  boolean_f);; 
}

static void __lambda_174(void *data, int argc, object self_73947) {
  
closureN_type c_732032;
c_732032.hdr.mark = gc_color_red;
 c_732032.hdr.grayed = 0;
c_732032.tag = closureN_tag;
 c_732032.fn = (function_type)__lambda_173;
c_732032.num_args = 1;
c_732032.num_elt = 3;
c_732032.elts = (object *)alloca(sizeof(object) * 3);
c_732032.elts[0] = ((closureN)self_73947)->elts[0];
c_732032.elts[1] = ((closureN)self_73947)->elts[2];
c_732032.elts[2] = ((closureN)self_73947)->elts[3];

return_closcall1(data,(closure)&c_732032,  cdr(((closureN)self_73947)->elts[1]));; 
}

static void __lambda_173(void *data, int argc, object self_73948, object r_73376) {
  
closureN_type c_732034;
c_732034.hdr.mark = gc_color_red;
 c_732034.hdr.grayed = 0;
c_732034.tag = closureN_tag;
 c_732034.fn = (function_type)__lambda_172;
c_732034.num_args = 1;
c_732034.num_elt = 3;
c_732034.elts = (object *)alloca(sizeof(object) * 3);
c_732034.elts[0] = ((closureN)self_73948)->elts[0];
c_732034.elts[1] = ((closureN)self_73948)->elts[2];
c_732034.elts[2] = r_73376;

return_closcall1(data,(closure)&c_732034,  cdr(((closureN)self_73948)->elts[1]));; 
}

static void __lambda_172(void *data, int argc, object self_73949, object r_73377) {
  return_closcall3(data,  cell_get(((closureN)self_73949)->elts[1]),  ((closureN)self_73949)->elts[0], ((closureN)self_73949)->elts[2], r_73377);; 
}

static void __lambda_171(void *data, int argc, object self_73950) {
  return_closcall1(data,  ((closureN)self_73950)->elts[0],  boolean_f);; 
}

static void __lambda_170(void *data, int argc, object self_73951) {
  return_closcall1(data,  ((closureN)self_73951)->elts[0],  Cyc_is_null(((closureN)self_73951)->elts[1]));; 
}

static void __lambda_169(void *data, int argc, object self_73952, object r_73371) {
  
closureN_type c_731601;
c_731601.hdr.mark = gc_color_red;
 c_731601.hdr.grayed = 0;
c_731601.tag = closureN_tag;
 c_731601.fn = (function_type)__lambda_168;
c_731601.num_args = 1;
c_731601.num_elt = 17;
c_731601.elts = (object *)alloca(sizeof(object) * 17);
c_731601.elts[0] = ((closureN)self_73952)->elts[0];
c_731601.elts[1] = ((closureN)self_73952)->elts[1];
c_731601.elts[2] = ((closureN)self_73952)->elts[2];
c_731601.elts[3] = ((closureN)self_73952)->elts[3];
c_731601.elts[4] = ((closureN)self_73952)->elts[5];
c_731601.elts[5] = ((closureN)self_73952)->elts[6];
c_731601.elts[6] = ((closureN)self_73952)->elts[7];
c_731601.elts[7] = ((closureN)self_73952)->elts[8];
c_731601.elts[8] = ((closureN)self_73952)->elts[9];
c_731601.elts[9] = ((closureN)self_73952)->elts[10];
c_731601.elts[10] = ((closureN)self_73952)->elts[11];
c_731601.elts[11] = ((closureN)self_73952)->elts[12];
c_731601.elts[12] = ((closureN)self_73952)->elts[13];
c_731601.elts[13] = ((closureN)self_73952)->elts[14];
c_731601.elts[14] = ((closureN)self_73952)->elts[15];
c_731601.elts[15] = ((closureN)self_73952)->elts[16];
c_731601.elts[16] = ((closureN)self_73952)->elts[17];

return_closcall1(data,(closure)&c_731601,  Cyc_set_car(data, ((closureN)self_73952)->elts[4], r_73371));; 
}

static void __lambda_168(void *data, int argc, object self_73953, object r_73294) {
  
closureN_type c_731603;
c_731603.hdr.mark = gc_color_red;
 c_731603.hdr.grayed = 0;
c_731603.tag = closureN_tag;
 c_731603.fn = (function_type)__lambda_165;
c_731603.num_args = 1;
c_731603.num_elt = 17;
c_731603.elts = (object *)alloca(sizeof(object) * 17);
c_731603.elts[0] = ((closureN)self_73953)->elts[0];
c_731603.elts[1] = ((closureN)self_73953)->elts[1];
c_731603.elts[2] = ((closureN)self_73953)->elts[2];
c_731603.elts[3] = ((closureN)self_73953)->elts[3];
c_731603.elts[4] = ((closureN)self_73953)->elts[4];
c_731603.elts[5] = ((closureN)self_73953)->elts[5];
c_731603.elts[6] = ((closureN)self_73953)->elts[6];
c_731603.elts[7] = ((closureN)self_73953)->elts[7];
c_731603.elts[8] = ((closureN)self_73953)->elts[8];
c_731603.elts[9] = ((closureN)self_73953)->elts[9];
c_731603.elts[10] = ((closureN)self_73953)->elts[10];
c_731603.elts[11] = ((closureN)self_73953)->elts[11];
c_731603.elts[12] = ((closureN)self_73953)->elts[12];
c_731603.elts[13] = ((closureN)self_73953)->elts[13];
c_731603.elts[14] = ((closureN)self_73953)->elts[14];
c_731603.elts[15] = ((closureN)self_73953)->elts[15];
c_731603.elts[16] = ((closureN)self_73953)->elts[16];


closureN_type c_731983;
c_731983.hdr.mark = gc_color_red;
 c_731983.hdr.grayed = 0;
c_731983.tag = closureN_tag;
 c_731983.fn = (function_type)__lambda_167;
c_731983.num_args = 2;
c_731983.num_elt = 3;
c_731983.elts = (object *)alloca(sizeof(object) * 3);
c_731983.elts[0] = ((closureN)self_73953)->elts[1];
c_731983.elts[1] = ((closureN)self_73953)->elts[9];
c_731983.elts[2] = ((closureN)self_73953)->elts[10];

return_closcall1(data,(closure)&c_731603,  &c_731983);; 
}

static void __lambda_167(void *data, int argc, object self_73954, object k_73369, object x_73174, object lst_73173) {
  
closureN_type c_731988;
c_731988.hdr.mark = gc_color_red;
 c_731988.hdr.grayed = 0;
c_731988.tag = closureN_tag;
 c_731988.fn = (function_type)__lambda_166;
c_731988.num_args = 1;
c_731988.num_elt = 4;
c_731988.elts = (object *)alloca(sizeof(object) * 4);
c_731988.elts[0] = k_73369;
c_731988.elts[1] = lst_73173;
c_731988.elts[2] = ((closureN)self_73954)->elts[2];
c_731988.elts[3] = x_73174;

return_closcall3(data,  cell_get(((closureN)self_73954)->elts[1]),  &c_731988, x_73174, cell_get(((closureN)self_73954)->elts[0]));; 
}

static void __lambda_166(void *data, int argc, object self_73955, object tmp_73175) {
  if( !eq(boolean_f, tmp_73175) ){ 
  return_closcall1(data,  ((closureN)self_73955)->elts[0],  tmp_73175);
} else { 
  return_closcall3(data,  cell_get(((closureN)self_73955)->elts[2]),  ((closureN)self_73955)->elts[0], ((closureN)self_73955)->elts[3], ((closureN)self_73955)->elts[1]);}
; 
}

static void __lambda_165(void *data, int argc, object self_73956, object r_73368) {
  
closureN_type c_731605;
c_731605.hdr.mark = gc_color_red;
 c_731605.hdr.grayed = 0;
c_731605.tag = closureN_tag;
 c_731605.fn = (function_type)__lambda_164;
c_731605.num_args = 1;
c_731605.num_elt = 16;
c_731605.elts = (object *)alloca(sizeof(object) * 16);
c_731605.elts[0] = ((closureN)self_73956)->elts[0];
c_731605.elts[1] = ((closureN)self_73956)->elts[1];
c_731605.elts[2] = ((closureN)self_73956)->elts[3];
c_731605.elts[3] = ((closureN)self_73956)->elts[4];
c_731605.elts[4] = ((closureN)self_73956)->elts[5];
c_731605.elts[5] = ((closureN)self_73956)->elts[6];
c_731605.elts[6] = ((closureN)self_73956)->elts[7];
c_731605.elts[7] = ((closureN)self_73956)->elts[8];
c_731605.elts[8] = ((closureN)self_73956)->elts[9];
c_731605.elts[9] = ((closureN)self_73956)->elts[10];
c_731605.elts[10] = ((closureN)self_73956)->elts[11];
c_731605.elts[11] = ((closureN)self_73956)->elts[12];
c_731605.elts[12] = ((closureN)self_73956)->elts[13];
c_731605.elts[13] = ((closureN)self_73956)->elts[14];
c_731605.elts[14] = ((closureN)self_73956)->elts[15];
c_731605.elts[15] = ((closureN)self_73956)->elts[16];

return_closcall1(data,(closure)&c_731605,  Cyc_set_car(data, ((closureN)self_73956)->elts[2], r_73368));; 
}

static void __lambda_164(void *data, int argc, object self_73957, object r_73295) {
  
closureN_type c_731607;
c_731607.hdr.mark = gc_color_red;
 c_731607.hdr.grayed = 0;
c_731607.tag = closureN_tag;
 c_731607.fn = (function_type)__lambda_161;
c_731607.num_args = 1;
c_731607.num_elt = 16;
c_731607.elts = (object *)alloca(sizeof(object) * 16);
c_731607.elts[0] = ((closureN)self_73957)->elts[0];
c_731607.elts[1] = ((closureN)self_73957)->elts[1];
c_731607.elts[2] = ((closureN)self_73957)->elts[2];
c_731607.elts[3] = ((closureN)self_73957)->elts[3];
c_731607.elts[4] = ((closureN)self_73957)->elts[4];
c_731607.elts[5] = ((closureN)self_73957)->elts[5];
c_731607.elts[6] = ((closureN)self_73957)->elts[6];
c_731607.elts[7] = ((closureN)self_73957)->elts[7];
c_731607.elts[8] = ((closureN)self_73957)->elts[8];
c_731607.elts[9] = ((closureN)self_73957)->elts[9];
c_731607.elts[10] = ((closureN)self_73957)->elts[10];
c_731607.elts[11] = ((closureN)self_73957)->elts[11];
c_731607.elts[12] = ((closureN)self_73957)->elts[12];
c_731607.elts[13] = ((closureN)self_73957)->elts[13];
c_731607.elts[14] = ((closureN)self_73957)->elts[14];
c_731607.elts[15] = ((closureN)self_73957)->elts[15];


closureN_type c_731962;
c_731962.hdr.mark = gc_color_red;
 c_731962.hdr.grayed = 0;
c_731962.tag = closureN_tag;
 c_731962.fn = (function_type)__lambda_163;
c_731962.num_args = 2;
c_731962.num_elt = 3;
c_731962.elts = (object *)alloca(sizeof(object) * 3);
c_731962.elts[0] = ((closureN)self_73957)->elts[8];
c_731962.elts[1] = ((closureN)self_73957)->elts[9];
c_731962.elts[2] = ((closureN)self_73957)->elts[14];

return_closcall1(data,(closure)&c_731607,  &c_731962);; 
}

static void __lambda_163(void *data, int argc, object self_73958, object k_73366, object x_73171, object lst_73170) {
  
closureN_type c_731967;
c_731967.hdr.mark = gc_color_red;
 c_731967.hdr.grayed = 0;
c_731967.tag = closureN_tag;
 c_731967.fn = (function_type)__lambda_162;
c_731967.num_args = 1;
c_731967.num_elt = 4;
c_731967.elts = (object *)alloca(sizeof(object) * 4);
c_731967.elts[0] = k_73366;
c_731967.elts[1] = lst_73170;
c_731967.elts[2] = ((closureN)self_73958)->elts[1];
c_731967.elts[3] = x_73171;

return_closcall3(data,  cell_get(((closureN)self_73958)->elts[0]),  &c_731967, x_73171, cell_get(((closureN)self_73958)->elts[2]));; 
}

static void __lambda_162(void *data, int argc, object self_73959, object tmp_73172) {
  if( !eq(boolean_f, tmp_73172) ){ 
  return_closcall1(data,  ((closureN)self_73959)->elts[0],  tmp_73172);
} else { 
  return_closcall3(data,  cell_get(((closureN)self_73959)->elts[2]),  ((closureN)self_73959)->elts[0], ((closureN)self_73959)->elts[3], ((closureN)self_73959)->elts[1]);}
; 
}

static void __lambda_161(void *data, int argc, object self_73960, object r_73365) {
  
closureN_type c_731609;
c_731609.hdr.mark = gc_color_red;
 c_731609.hdr.grayed = 0;
c_731609.tag = closureN_tag;
 c_731609.fn = (function_type)__lambda_160;
c_731609.num_args = 1;
c_731609.num_elt = 15;
c_731609.elts = (object *)alloca(sizeof(object) * 15);
c_731609.elts[0] = ((closureN)self_73960)->elts[0];
c_731609.elts[1] = ((closureN)self_73960)->elts[1];
c_731609.elts[2] = ((closureN)self_73960)->elts[2];
c_731609.elts[3] = ((closureN)self_73960)->elts[3];
c_731609.elts[4] = ((closureN)self_73960)->elts[4];
c_731609.elts[5] = ((closureN)self_73960)->elts[5];
c_731609.elts[6] = ((closureN)self_73960)->elts[6];
c_731609.elts[7] = ((closureN)self_73960)->elts[7];
c_731609.elts[8] = ((closureN)self_73960)->elts[8];
c_731609.elts[9] = ((closureN)self_73960)->elts[9];
c_731609.elts[10] = ((closureN)self_73960)->elts[10];
c_731609.elts[11] = ((closureN)self_73960)->elts[11];
c_731609.elts[12] = ((closureN)self_73960)->elts[12];
c_731609.elts[13] = ((closureN)self_73960)->elts[13];
c_731609.elts[14] = ((closureN)self_73960)->elts[14];

return_closcall1(data,(closure)&c_731609,  Cyc_set_car(data, ((closureN)self_73960)->elts[15], r_73365));; 
}

static void __lambda_160(void *data, int argc, object self_73961, object r_73296) {
  
closureN_type c_731611;
c_731611.hdr.mark = gc_color_red;
 c_731611.hdr.grayed = 0;
c_731611.tag = closureN_tag;
 c_731611.fn = (function_type)__lambda_159;
c_731611.num_args = 1;
c_731611.num_elt = 15;
c_731611.elts = (object *)alloca(sizeof(object) * 15);
c_731611.elts[0] = ((closureN)self_73961)->elts[0];
c_731611.elts[1] = ((closureN)self_73961)->elts[1];
c_731611.elts[2] = ((closureN)self_73961)->elts[2];
c_731611.elts[3] = ((closureN)self_73961)->elts[3];
c_731611.elts[4] = ((closureN)self_73961)->elts[4];
c_731611.elts[5] = ((closureN)self_73961)->elts[5];
c_731611.elts[6] = ((closureN)self_73961)->elts[6];
c_731611.elts[7] = ((closureN)self_73961)->elts[7];
c_731611.elts[8] = ((closureN)self_73961)->elts[8];
c_731611.elts[9] = ((closureN)self_73961)->elts[9];
c_731611.elts[10] = ((closureN)self_73961)->elts[10];
c_731611.elts[11] = ((closureN)self_73961)->elts[11];
c_731611.elts[12] = ((closureN)self_73961)->elts[12];
c_731611.elts[13] = ((closureN)self_73961)->elts[13];
c_731611.elts[14] = ((closureN)self_73961)->elts[14];

return_closcall1(data,(closure)&c_731611,  quote__85);; 
}

static void __lambda_159(void *data, int argc, object self_73962, object r_73364) {
  
closureN_type c_731613;
c_731613.hdr.mark = gc_color_red;
 c_731613.hdr.grayed = 0;
c_731613.tag = closureN_tag;
 c_731613.fn = (function_type)__lambda_158;
c_731613.num_args = 1;
c_731613.num_elt = 15;
c_731613.elts = (object *)alloca(sizeof(object) * 15);
c_731613.elts[0] = ((closureN)self_73962)->elts[0];
c_731613.elts[1] = ((closureN)self_73962)->elts[1];
c_731613.elts[2] = ((closureN)self_73962)->elts[2];
c_731613.elts[3] = ((closureN)self_73962)->elts[3];
c_731613.elts[4] = ((closureN)self_73962)->elts[4];
c_731613.elts[5] = ((closureN)self_73962)->elts[5];
c_731613.elts[6] = ((closureN)self_73962)->elts[6];
c_731613.elts[7] = ((closureN)self_73962)->elts[7];
c_731613.elts[8] = ((closureN)self_73962)->elts[8];
c_731613.elts[9] = ((closureN)self_73962)->elts[9];
c_731613.elts[10] = ((closureN)self_73962)->elts[10];
c_731613.elts[11] = ((closureN)self_73962)->elts[11];
c_731613.elts[12] = ((closureN)self_73962)->elts[12];
c_731613.elts[13] = ((closureN)self_73962)->elts[13];
c_731613.elts[14] = ((closureN)self_73962)->elts[14];

return_closcall1(data,(closure)&c_731613,  Cyc_set_car(data, ((closureN)self_73962)->elts[1], r_73364));; 
}

static void __lambda_158(void *data, int argc, object self_73963, object r_73297) {
  
closureN_type c_731615;
c_731615.hdr.mark = gc_color_red;
 c_731615.hdr.grayed = 0;
c_731615.tag = closureN_tag;
 c_731615.fn = (function_type)__lambda_157;
c_731615.num_args = 1;
c_731615.num_elt = 15;
c_731615.elts = (object *)alloca(sizeof(object) * 15);
c_731615.elts[0] = ((closureN)self_73963)->elts[0];
c_731615.elts[1] = ((closureN)self_73963)->elts[1];
c_731615.elts[2] = ((closureN)self_73963)->elts[2];
c_731615.elts[3] = ((closureN)self_73963)->elts[3];
c_731615.elts[4] = ((closureN)self_73963)->elts[4];
c_731615.elts[5] = ((closureN)self_73963)->elts[5];
c_731615.elts[6] = ((closureN)self_73963)->elts[6];
c_731615.elts[7] = ((closureN)self_73963)->elts[7];
c_731615.elts[8] = ((closureN)self_73963)->elts[8];
c_731615.elts[9] = ((closureN)self_73963)->elts[9];
c_731615.elts[10] = ((closureN)self_73963)->elts[10];
c_731615.elts[11] = ((closureN)self_73963)->elts[11];
c_731615.elts[12] = ((closureN)self_73963)->elts[12];
c_731615.elts[13] = ((closureN)self_73963)->elts[13];
c_731615.elts[14] = ((closureN)self_73963)->elts[14];

return_closcall1(data,(closure)&c_731615,  quote__85);; 
}

static void __lambda_157(void *data, int argc, object self_73964, object r_73363) {
  
closureN_type c_731617;
c_731617.hdr.mark = gc_color_red;
 c_731617.hdr.grayed = 0;
c_731617.tag = closureN_tag;
 c_731617.fn = (function_type)__lambda_156;
c_731617.num_args = 1;
c_731617.num_elt = 15;
c_731617.elts = (object *)alloca(sizeof(object) * 15);
c_731617.elts[0] = ((closureN)self_73964)->elts[0];
c_731617.elts[1] = ((closureN)self_73964)->elts[1];
c_731617.elts[2] = ((closureN)self_73964)->elts[2];
c_731617.elts[3] = ((closureN)self_73964)->elts[3];
c_731617.elts[4] = ((closureN)self_73964)->elts[4];
c_731617.elts[5] = ((closureN)self_73964)->elts[5];
c_731617.elts[6] = ((closureN)self_73964)->elts[6];
c_731617.elts[7] = ((closureN)self_73964)->elts[7];
c_731617.elts[8] = ((closureN)self_73964)->elts[8];
c_731617.elts[9] = ((closureN)self_73964)->elts[9];
c_731617.elts[10] = ((closureN)self_73964)->elts[10];
c_731617.elts[11] = ((closureN)self_73964)->elts[11];
c_731617.elts[12] = ((closureN)self_73964)->elts[12];
c_731617.elts[13] = ((closureN)self_73964)->elts[13];
c_731617.elts[14] = ((closureN)self_73964)->elts[14];

return_closcall1(data,(closure)&c_731617,  Cyc_set_car(data, ((closureN)self_73964)->elts[14], r_73363));; 
}

static void __lambda_156(void *data, int argc, object self_73965, object r_73298) {
  
closureN_type c_731619;
c_731619.hdr.mark = gc_color_red;
 c_731619.hdr.grayed = 0;
c_731619.tag = closureN_tag;
 c_731619.fn = (function_type)__lambda_149;
c_731619.num_args = 1;
c_731619.num_elt = 15;
c_731619.elts = (object *)alloca(sizeof(object) * 15);
c_731619.elts[0] = ((closureN)self_73965)->elts[0];
c_731619.elts[1] = ((closureN)self_73965)->elts[1];
c_731619.elts[2] = ((closureN)self_73965)->elts[2];
c_731619.elts[3] = ((closureN)self_73965)->elts[3];
c_731619.elts[4] = ((closureN)self_73965)->elts[4];
c_731619.elts[5] = ((closureN)self_73965)->elts[5];
c_731619.elts[6] = ((closureN)self_73965)->elts[6];
c_731619.elts[7] = ((closureN)self_73965)->elts[7];
c_731619.elts[8] = ((closureN)self_73965)->elts[8];
c_731619.elts[9] = ((closureN)self_73965)->elts[9];
c_731619.elts[10] = ((closureN)self_73965)->elts[10];
c_731619.elts[11] = ((closureN)self_73965)->elts[11];
c_731619.elts[12] = ((closureN)self_73965)->elts[12];
c_731619.elts[13] = ((closureN)self_73965)->elts[13];
c_731619.elts[14] = ((closureN)self_73965)->elts[14];


closureN_type c_731930;
c_731930.hdr.mark = gc_color_red;
 c_731930.hdr.grayed = 0;
c_731930.tag = closureN_tag;
 c_731930.fn = (function_type)__lambda_155;
c_731930.num_args = 1;
c_731930.num_elt = 2;
c_731930.elts = (object *)alloca(sizeof(object) * 2);
c_731930.elts[0] = ((closureN)self_73965)->elts[12];
c_731930.elts[1] = ((closureN)self_73965)->elts[13];

return_closcall1(data,(closure)&c_731619,  &c_731930);; 
}

static void __lambda_155(void *data, int argc, object self_73966, object k_73357, object n_73169) {
  
closureN_type c_731932;
c_731932.hdr.mark = gc_color_red;
 c_731932.hdr.grayed = 0;
c_731932.tag = closureN_tag;
 c_731932.fn = (function_type)__lambda_154;
c_731932.num_args = 1;
c_731932.num_elt = 4;
c_731932.elts = (object *)alloca(sizeof(object) * 4);
c_731932.elts[0] = k_73357;
c_731932.elts[1] = n_73169;
c_731932.elts[2] = ((closureN)self_73966)->elts[0];
c_731932.elts[3] = ((closureN)self_73966)->elts[1];

return_closcall1(data,(closure)&c_731932,  quote_implies);; 
}

static void __lambda_154(void *data, int argc, object self_73967, object r_73359) {
  
closureN_type c_731937;
c_731937.hdr.mark = gc_color_red;
 c_731937.hdr.grayed = 0;
c_731937.tag = closureN_tag;
 c_731937.fn = (function_type)__lambda_153;
c_731937.num_args = 1;
c_731937.num_elt = 4;
c_731937.elts = (object *)alloca(sizeof(object) * 4);
c_731937.elts[0] = ((closureN)self_73967)->elts[0];
c_731937.elts[1] = ((closureN)self_73967)->elts[1];
c_731937.elts[2] = r_73359;
c_731937.elts[3] = ((closureN)self_73967)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_73967)->elts[2]),  &c_731937, ((closureN)self_73967)->elts[1]);; 
}

static void __lambda_153(void *data, int argc, object self_73968, object r_73360) {
  
closureN_type c_731939;
c_731939.hdr.mark = gc_color_red;
 c_731939.hdr.grayed = 0;
c_731939.tag = closureN_tag;
 c_731939.fn = (function_type)__lambda_152;
c_731939.num_args = 1;
c_731939.num_elt = 5;
c_731939.elts = (object *)alloca(sizeof(object) * 5);
c_731939.elts[0] = ((closureN)self_73968)->elts[0];
c_731939.elts[1] = ((closureN)self_73968)->elts[1];
c_731939.elts[2] = ((closureN)self_73968)->elts[2];
c_731939.elts[3] = r_73360;
c_731939.elts[4] = ((closureN)self_73968)->elts[3];

return_closcall1(data,(closure)&c_731939,  quote_implies);; 
}

static void __lambda_152(void *data, int argc, object self_73969, object r_73362) {
  
closureN_type c_731941;
c_731941.hdr.mark = gc_color_red;
 c_731941.hdr.grayed = 0;
c_731941.tag = closureN_tag;
 c_731941.fn = (function_type)__lambda_151;
c_731941.num_args = 1;
c_731941.num_elt = 4;
c_731941.elts = (object *)alloca(sizeof(object) * 4);
c_731941.elts[0] = ((closureN)self_73969)->elts[0];
c_731941.elts[1] = ((closureN)self_73969)->elts[2];
c_731941.elts[2] = ((closureN)self_73969)->elts[3];
c_731941.elts[3] = ((closureN)self_73969)->elts[4];

return_closcall4(data,  __glo__list_scheme_base,  &c_731941, r_73362, obj_int2obj(0), ((closureN)self_73969)->elts[1]);; 
}

static void __lambda_151(void *data, int argc, object self_73970, object r_73361) {
  
closureN_type c_731943;
c_731943.hdr.mark = gc_color_red;
 c_731943.hdr.grayed = 0;
c_731943.tag = closureN_tag;
 c_731943.fn = (function_type)__lambda_150;
c_731943.num_args = 1;
c_731943.num_elt = 2;
c_731943.elts = (object *)alloca(sizeof(object) * 2);
c_731943.elts[0] = ((closureN)self_73970)->elts[0];
c_731943.elts[1] = ((closureN)self_73970)->elts[3];

return_closcall4(data,  __glo__list_scheme_base,  &c_731943, ((closureN)self_73970)->elts[1], ((closureN)self_73970)->elts[2], r_73361);; 
}

static void __lambda_150(void *data, int argc, object self_73971, object r_73358) {
  return_closcall2(data,  cell_get(((closureN)self_73971)->elts[1]),  ((closureN)self_73971)->elts[0], r_73358);; 
}

static void __lambda_149(void *data, int argc, object self_73972, object r_73356) {
  
closureN_type c_731621;
c_731621.hdr.mark = gc_color_red;
 c_731621.hdr.grayed = 0;
c_731621.tag = closureN_tag;
 c_731621.fn = (function_type)__lambda_148;
c_731621.num_args = 1;
c_731621.num_elt = 14;
c_731621.elts = (object *)alloca(sizeof(object) * 14);
c_731621.elts[0] = ((closureN)self_73972)->elts[0];
c_731621.elts[1] = ((closureN)self_73972)->elts[1];
c_731621.elts[2] = ((closureN)self_73972)->elts[2];
c_731621.elts[3] = ((closureN)self_73972)->elts[3];
c_731621.elts[4] = ((closureN)self_73972)->elts[4];
c_731621.elts[5] = ((closureN)self_73972)->elts[5];
c_731621.elts[6] = ((closureN)self_73972)->elts[6];
c_731621.elts[7] = ((closureN)self_73972)->elts[7];
c_731621.elts[8] = ((closureN)self_73972)->elts[8];
c_731621.elts[9] = ((closureN)self_73972)->elts[9];
c_731621.elts[10] = ((closureN)self_73972)->elts[10];
c_731621.elts[11] = ((closureN)self_73972)->elts[12];
c_731621.elts[12] = ((closureN)self_73972)->elts[13];
c_731621.elts[13] = ((closureN)self_73972)->elts[14];

return_closcall1(data,(closure)&c_731621,  Cyc_set_car(data, ((closureN)self_73972)->elts[11], r_73356));; 
}

static void __lambda_148(void *data, int argc, object self_73973, object r_73299) {
  
closureN_type c_731623;
c_731623.hdr.mark = gc_color_red;
 c_731623.hdr.grayed = 0;
c_731623.tag = closureN_tag;
 c_731623.fn = (function_type)__lambda_136;
c_731623.num_args = 1;
c_731623.num_elt = 14;
c_731623.elts = (object *)alloca(sizeof(object) * 14);
c_731623.elts[0] = ((closureN)self_73973)->elts[0];
c_731623.elts[1] = ((closureN)self_73973)->elts[1];
c_731623.elts[2] = ((closureN)self_73973)->elts[2];
c_731623.elts[3] = ((closureN)self_73973)->elts[3];
c_731623.elts[4] = ((closureN)self_73973)->elts[4];
c_731623.elts[5] = ((closureN)self_73973)->elts[5];
c_731623.elts[6] = ((closureN)self_73973)->elts[6];
c_731623.elts[7] = ((closureN)self_73973)->elts[7];
c_731623.elts[8] = ((closureN)self_73973)->elts[8];
c_731623.elts[9] = ((closureN)self_73973)->elts[9];
c_731623.elts[10] = ((closureN)self_73973)->elts[10];
c_731623.elts[11] = ((closureN)self_73973)->elts[11];
c_731623.elts[12] = ((closureN)self_73973)->elts[12];
c_731623.elts[13] = ((closureN)self_73973)->elts[13];


closureN_type c_731885;
c_731885.hdr.mark = gc_color_red;
 c_731885.hdr.grayed = 0;
c_731885.tag = closureN_tag;
 c_731885.fn = (function_type)__lambda_147;
c_731885.num_args = 1;
c_731885.num_elt = 1;
c_731885.elts = (object *)alloca(sizeof(object) * 1);
c_731885.elts[0] = ((closureN)self_73973)->elts[11];

return_closcall1(data,(closure)&c_731623,  &c_731885);; 
}

static void __lambda_147(void *data, int argc, object self_73974, object k_73347, object n_73168) {
  
closureN_type c_731887;
c_731887.hdr.mark = gc_color_red;
 c_731887.hdr.grayed = 0;
c_731887.tag = closureN_tag;
 c_731887.fn = (function_type)__lambda_146;
c_731887.num_args = 1;
c_731887.num_elt = 3;
c_731887.elts = (object *)alloca(sizeof(object) * 3);
c_731887.elts[0] = k_73347;
c_731887.elts[1] = n_73168;
c_731887.elts[2] = ((closureN)self_73974)->elts[0];

return_closcall1(data,(closure)&c_731887,  equalp(n_73168, obj_int2obj(1)));; 
}

static void __lambda_146(void *data, int argc, object self_73975, object r_73348) {
  if( !eq(boolean_f, r_73348) ){ 
  
closureN_type c_731889;
c_731889.hdr.mark = gc_color_red;
 c_731889.hdr.grayed = 0;
c_731889.tag = closureN_tag;
 c_731889.fn = (function_type)__lambda_138;
c_731889.num_args = 0;
c_731889.num_elt = 1;
c_731889.elts = (object *)alloca(sizeof(object) * 1);
c_731889.elts[0] = ((closureN)self_73975)->elts[0];

return_closcall0(data,(closure)&c_731889);
} else { 
  
closureN_type c_731895;
c_731895.hdr.mark = gc_color_red;
 c_731895.hdr.grayed = 0;
c_731895.tag = closureN_tag;
 c_731895.fn = (function_type)__lambda_145;
c_731895.num_args = 0;
c_731895.num_elt = 3;
c_731895.elts = (object *)alloca(sizeof(object) * 3);
c_731895.elts[0] = ((closureN)self_73975)->elts[0];
c_731895.elts[1] = ((closureN)self_73975)->elts[1];
c_731895.elts[2] = ((closureN)self_73975)->elts[2];

return_closcall0(data,(closure)&c_731895);}
; 
}

static void __lambda_145(void *data, int argc, object self_73976) {
  
closureN_type c_731897;
c_731897.hdr.mark = gc_color_red;
 c_731897.hdr.grayed = 0;
c_731897.tag = closureN_tag;
 c_731897.fn = (function_type)__lambda_144;
c_731897.num_args = 1;
c_731897.num_elt = 3;
c_731897.elts = (object *)alloca(sizeof(object) * 3);
c_731897.elts[0] = ((closureN)self_73976)->elts[0];
c_731897.elts[1] = ((closureN)self_73976)->elts[1];
c_731897.elts[2] = ((closureN)self_73976)->elts[2];

return_closcall1(data,(closure)&c_731897,  quote_and);; 
}

static void __lambda_144(void *data, int argc, object self_73977, object r_73350) {
  
closureN_type c_731899;
c_731899.hdr.mark = gc_color_red;
 c_731899.hdr.grayed = 0;
c_731899.tag = closureN_tag;
 c_731899.fn = (function_type)__lambda_143;
c_731899.num_args = 1;
c_731899.num_elt = 4;
c_731899.elts = (object *)alloca(sizeof(object) * 4);
c_731899.elts[0] = ((closureN)self_73977)->elts[0];
c_731899.elts[1] = ((closureN)self_73977)->elts[1];
c_731899.elts[2] = r_73350;
c_731899.elts[3] = ((closureN)self_73977)->elts[2];

return_closcall1(data,(closure)&c_731899,  quote_implies);; 
}

static void __lambda_143(void *data, int argc, object self_73978, object r_73354) {
  
closureN_type c_731901;
c_731901.hdr.mark = gc_color_red;
 c_731901.hdr.grayed = 0;
c_731901.tag = closureN_tag;
 c_731901.fn = (function_type)__lambda_142;
c_731901.num_args = 1;
c_731901.num_elt = 5;
c_731901.elts = (object *)alloca(sizeof(object) * 5);
c_731901.elts[0] = ((closureN)self_73978)->elts[0];
c_731901.elts[1] = ((closureN)self_73978)->elts[1];
c_731901.elts[2] = ((closureN)self_73978)->elts[2];
c_731901.elts[3] = r_73354;
c_731901.elts[4] = ((closureN)self_73978)->elts[3];


object c_731923 = Cyc_sub(data,(closure)&c_731901,2,((closureN)self_73978)->elts[1], obj_int2obj(1));
return_closcall1(data,(closure)&c_731901,  c_731923);; 
}

static void __lambda_142(void *data, int argc, object self_73979, object r_73355) {
  
closureN_type c_731903;
c_731903.hdr.mark = gc_color_red;
 c_731903.hdr.grayed = 0;
c_731903.tag = closureN_tag;
 c_731903.fn = (function_type)__lambda_141;
c_731903.num_args = 1;
c_731903.num_elt = 4;
c_731903.elts = (object *)alloca(sizeof(object) * 4);
c_731903.elts[0] = ((closureN)self_73979)->elts[0];
c_731903.elts[1] = ((closureN)self_73979)->elts[1];
c_731903.elts[2] = ((closureN)self_73979)->elts[2];
c_731903.elts[3] = ((closureN)self_73979)->elts[4];

return_closcall4(data,  __glo__list_scheme_base,  &c_731903, ((closureN)self_73979)->elts[3], r_73355, ((closureN)self_73979)->elts[1]);; 
}

static void __lambda_141(void *data, int argc, object self_73980, object r_73351) {
  
closureN_type c_731905;
c_731905.hdr.mark = gc_color_red;
 c_731905.hdr.grayed = 0;
c_731905.tag = closureN_tag;
 c_731905.fn = (function_type)__lambda_140;
c_731905.num_args = 1;
c_731905.num_elt = 4;
c_731905.elts = (object *)alloca(sizeof(object) * 4);
c_731905.elts[0] = ((closureN)self_73980)->elts[0];
c_731905.elts[1] = ((closureN)self_73980)->elts[2];
c_731905.elts[2] = r_73351;
c_731905.elts[3] = ((closureN)self_73980)->elts[3];


object c_731917 = Cyc_sub(data,(closure)&c_731905,2,((closureN)self_73980)->elts[1], obj_int2obj(1));
return_closcall1(data,(closure)&c_731905,  c_731917);; 
}

static void __lambda_140(void *data, int argc, object self_73981, object r_73353) {
  
closureN_type c_731910;
c_731910.hdr.mark = gc_color_red;
 c_731910.hdr.grayed = 0;
c_731910.tag = closureN_tag;
 c_731910.fn = (function_type)__lambda_139;
c_731910.num_args = 1;
c_731910.num_elt = 3;
c_731910.elts = (object *)alloca(sizeof(object) * 3);
c_731910.elts[0] = ((closureN)self_73981)->elts[0];
c_731910.elts[1] = ((closureN)self_73981)->elts[1];
c_731910.elts[2] = ((closureN)self_73981)->elts[2];

return_closcall2(data,  cell_get(((closureN)self_73981)->elts[3]),  &c_731910, r_73353);; 
}

static void __lambda_139(void *data, int argc, object self_73982, object r_73352) {
  return_closcall4(data,  __glo__list_scheme_base,  ((closureN)self_73982)->elts[0], ((closureN)self_73982)->elts[1], ((closureN)self_73982)->elts[2], r_73352);; 
}

static void __lambda_138(void *data, int argc, object self_73983) {
  
closureN_type c_731891;
c_731891.hdr.mark = gc_color_red;
 c_731891.hdr.grayed = 0;
c_731891.tag = closureN_tag;
 c_731891.fn = (function_type)__lambda_137;
c_731891.num_args = 1;
c_731891.num_elt = 1;
c_731891.elts = (object *)alloca(sizeof(object) * 1);
c_731891.elts[0] = ((closureN)self_73983)->elts[0];

return_closcall1(data,(closure)&c_731891,  quote_implies);; 
}

static void __lambda_137(void *data, int argc, object self_73984, object r_73349) {
  return_closcall4(data,  __glo__list_scheme_base,  ((closureN)self_73984)->elts[0], r_73349, obj_int2obj(0), obj_int2obj(1));; 
}

static void __lambda_136(void *data, int argc, object self_73985, object r_73346) {
  
closureN_type c_731625;
c_731625.hdr.mark = gc_color_red;
 c_731625.hdr.grayed = 0;
c_731625.tag = closureN_tag;
 c_731625.fn = (function_type)__lambda_135;
c_731625.num_args = 1;
c_731625.num_elt = 13;
c_731625.elts = (object *)alloca(sizeof(object) * 13);
c_731625.elts[0] = ((closureN)self_73985)->elts[0];
c_731625.elts[1] = ((closureN)self_73985)->elts[1];
c_731625.elts[2] = ((closureN)self_73985)->elts[2];
c_731625.elts[3] = ((closureN)self_73985)->elts[3];
c_731625.elts[4] = ((closureN)self_73985)->elts[4];
c_731625.elts[5] = ((closureN)self_73985)->elts[5];
c_731625.elts[6] = ((closureN)self_73985)->elts[6];
c_731625.elts[7] = ((closureN)self_73985)->elts[7];
c_731625.elts[8] = ((closureN)self_73985)->elts[8];
c_731625.elts[9] = ((closureN)self_73985)->elts[9];
c_731625.elts[10] = ((closureN)self_73985)->elts[10];
c_731625.elts[11] = ((closureN)self_73985)->elts[12];
c_731625.elts[12] = ((closureN)self_73985)->elts[13];

return_closcall1(data,(closure)&c_731625,  Cyc_set_car(data, ((closureN)self_73985)->elts[11], r_73346));; 
}

static void __lambda_135(void *data, int argc, object self_73986, object r_73300) {
  
closureN_type c_731627;
c_731627.hdr.mark = gc_color_red;
 c_731627.hdr.grayed = 0;
c_731627.tag = closureN_tag;
 c_731627.fn = (function_type)__lambda_124;
c_731627.num_args = 1;
c_731627.num_elt = 12;
c_731627.elts = (object *)alloca(sizeof(object) * 12);
c_731627.elts[0] = ((closureN)self_73986)->elts[0];
c_731627.elts[1] = ((closureN)self_73986)->elts[1];
c_731627.elts[2] = ((closureN)self_73986)->elts[2];
c_731627.elts[3] = ((closureN)self_73986)->elts[3];
c_731627.elts[4] = ((closureN)self_73986)->elts[4];
c_731627.elts[5] = ((closureN)self_73986)->elts[5];
c_731627.elts[6] = ((closureN)self_73986)->elts[7];
c_731627.elts[7] = ((closureN)self_73986)->elts[8];
c_731627.elts[8] = ((closureN)self_73986)->elts[9];
c_731627.elts[9] = ((closureN)self_73986)->elts[10];
c_731627.elts[10] = ((closureN)self_73986)->elts[11];
c_731627.elts[11] = ((closureN)self_73986)->elts[12];


closureN_type c_731826;
c_731826.hdr.mark = gc_color_red;
 c_731826.hdr.grayed = 0;
c_731826.tag = closureN_tag;
 c_731826.fn = (function_type)__lambda_134;
c_731826.num_args = 2;
c_731826.num_elt = 2;
c_731826.elts = (object *)alloca(sizeof(object) * 2);
c_731826.elts[0] = ((closureN)self_73986)->elts[6];
c_731826.elts[1] = ((closureN)self_73986)->elts[7];

return_closcall1(data,(closure)&c_731627,  &c_731826);; 
}

static void __lambda_134(void *data, int argc, object self_73987, object k_73338, object x_73167, object y_73166) {
  
closureN_type c_731828;
c_731828.hdr.mark = gc_color_red;
 c_731828.hdr.grayed = 0;
c_731828.tag = closureN_tag;
 c_731828.fn = (function_type)__lambda_133;
c_731828.num_args = 1;
c_731828.num_elt = 5;
c_731828.elts = (object *)alloca(sizeof(object) * 5);
c_731828.elts[0] = k_73338;
c_731828.elts[1] = ((closureN)self_73987)->elts[0];
c_731828.elts[2] = ((closureN)self_73987)->elts[1];
c_731828.elts[3] = x_73167;
c_731828.elts[4] = y_73166;

return_closcall1(data,(closure)&c_731828,  Cyc_is_cons(x_73167));; 
}

static void __lambda_133(void *data, int argc, object self_73988, object r_73339) {
  if( !eq(boolean_f, r_73339) ){ 
  
closureN_type c_731830;
c_731830.hdr.mark = gc_color_red;
 c_731830.hdr.grayed = 0;
c_731830.tag = closureN_tag;
 c_731830.fn = (function_type)__lambda_131;
c_731830.num_args = 0;
c_731830.num_elt = 5;
c_731830.elts = (object *)alloca(sizeof(object) * 5);
c_731830.elts[0] = ((closureN)self_73988)->elts[0];
c_731830.elts[1] = ((closureN)self_73988)->elts[1];
c_731830.elts[2] = ((closureN)self_73988)->elts[2];
c_731830.elts[3] = ((closureN)self_73988)->elts[3];
c_731830.elts[4] = ((closureN)self_73988)->elts[4];

return_closcall0(data,(closure)&c_731830);
} else { 
  
closureN_type c_731873;
c_731873.hdr.mark = gc_color_red;
 c_731873.hdr.grayed = 0;
c_731873.tag = closureN_tag;
 c_731873.fn = (function_type)__lambda_132;
c_731873.num_args = 0;
c_731873.num_elt = 3;
c_731873.elts = (object *)alloca(sizeof(object) * 3);
c_731873.elts[0] = ((closureN)self_73988)->elts[0];
c_731873.elts[1] = ((closureN)self_73988)->elts[3];
c_731873.elts[2] = ((closureN)self_73988)->elts[4];

return_closcall0(data,(closure)&c_731873);}
; 
}

static void __lambda_132(void *data, int argc, object self_73989) {
  return_closcall1(data,  ((closureN)self_73989)->elts[0],  equalp(((closureN)self_73989)->elts[1], ((closureN)self_73989)->elts[2]));; 
}

static void __lambda_131(void *data, int argc, object self_73990) {
  
closureN_type c_731832;
c_731832.hdr.mark = gc_color_red;
 c_731832.hdr.grayed = 0;
c_731832.tag = closureN_tag;
 c_731832.fn = (function_type)__lambda_130;
c_731832.num_args = 1;
c_731832.num_elt = 5;
c_731832.elts = (object *)alloca(sizeof(object) * 5);
c_731832.elts[0] = ((closureN)self_73990)->elts[0];
c_731832.elts[1] = ((closureN)self_73990)->elts[1];
c_731832.elts[2] = ((closureN)self_73990)->elts[2];
c_731832.elts[3] = ((closureN)self_73990)->elts[3];
c_731832.elts[4] = ((closureN)self_73990)->elts[4];

return_closcall1(data,(closure)&c_731832,  Cyc_is_cons(((closureN)self_73990)->elts[4]));; 
}

static void __lambda_130(void *data, int argc, object self_73991, object r_73340) {
  if( !eq(boolean_f, r_73340) ){ 
  
closureN_type c_731834;
c_731834.hdr.mark = gc_color_red;
 c_731834.hdr.grayed = 0;
c_731834.tag = closureN_tag;
 c_731834.fn = (function_type)__lambda_129;
c_731834.num_args = 1;
c_731834.num_elt = 5;
c_731834.elts = (object *)alloca(sizeof(object) * 5);
c_731834.elts[0] = ((closureN)self_73991)->elts[0];
c_731834.elts[1] = ((closureN)self_73991)->elts[1];
c_731834.elts[2] = ((closureN)self_73991)->elts[2];
c_731834.elts[3] = ((closureN)self_73991)->elts[3];
c_731834.elts[4] = ((closureN)self_73991)->elts[4];

return_closcall1(data,(closure)&c_731834,  car(((closureN)self_73991)->elts[3]));
} else { 
  return_closcall1(data,  ((closureN)self_73991)->elts[0],  boolean_f);}
; 
}

static void __lambda_129(void *data, int argc, object self_73992, object r_73344) {
  
closureN_type c_731836;
c_731836.hdr.mark = gc_color_red;
 c_731836.hdr.grayed = 0;
c_731836.tag = closureN_tag;
 c_731836.fn = (function_type)__lambda_128;
c_731836.num_args = 1;
c_731836.num_elt = 6;
c_731836.elts = (object *)alloca(sizeof(object) * 6);
c_731836.elts[0] = ((closureN)self_73992)->elts[0];
c_731836.elts[1] = r_73344;
c_731836.elts[2] = ((closureN)self_73992)->elts[1];
c_731836.elts[3] = ((closureN)self_73992)->elts[2];
c_731836.elts[4] = ((closureN)self_73992)->elts[3];
c_731836.elts[5] = ((closureN)self_73992)->elts[4];

return_closcall1(data,(closure)&c_731836,  car(((closureN)self_73992)->elts[4]));; 
}

static void __lambda_128(void *data, int argc, object self_73993, object r_73345) {
  
closureN_type c_731841;
c_731841.hdr.mark = gc_color_red;
 c_731841.hdr.grayed = 0;
c_731841.tag = closureN_tag;
 c_731841.fn = (function_type)__lambda_127;
c_731841.num_args = 1;
c_731841.num_elt = 4;
c_731841.elts = (object *)alloca(sizeof(object) * 4);
c_731841.elts[0] = ((closureN)self_73993)->elts[0];
c_731841.elts[1] = ((closureN)self_73993)->elts[3];
c_731841.elts[2] = ((closureN)self_73993)->elts[4];
c_731841.elts[3] = ((closureN)self_73993)->elts[5];

return_closcall3(data,  cell_get(((closureN)self_73993)->elts[2]),  &c_731841, ((closureN)self_73993)->elts[1], r_73345);; 
}

static void __lambda_127(void *data, int argc, object self_73994, object r_73341) {
  if( !eq(boolean_f, r_73341) ){ 
  
closureN_type c_731843;
c_731843.hdr.mark = gc_color_red;
 c_731843.hdr.grayed = 0;
c_731843.tag = closureN_tag;
 c_731843.fn = (function_type)__lambda_126;
c_731843.num_args = 1;
c_731843.num_elt = 3;
c_731843.elts = (object *)alloca(sizeof(object) * 3);
c_731843.elts[0] = ((closureN)self_73994)->elts[0];
c_731843.elts[1] = ((closureN)self_73994)->elts[1];
c_731843.elts[2] = ((closureN)self_73994)->elts[3];

return_closcall1(data,(closure)&c_731843,  cdr(((closureN)self_73994)->elts[2]));
} else { 
  return_closcall1(data,  ((closureN)self_73994)->elts[0],  boolean_f);}
; 
}

static void __lambda_126(void *data, int argc, object self_73995, object r_73342) {
  
closureN_type c_731845;
c_731845.hdr.mark = gc_color_red;
 c_731845.hdr.grayed = 0;
c_731845.tag = closureN_tag;
 c_731845.fn = (function_type)__lambda_125;
c_731845.num_args = 1;
c_731845.num_elt = 3;
c_731845.elts = (object *)alloca(sizeof(object) * 3);
c_731845.elts[0] = ((closureN)self_73995)->elts[0];
c_731845.elts[1] = r_73342;
c_731845.elts[2] = ((closureN)self_73995)->elts[1];

return_closcall1(data,(closure)&c_731845,  cdr(((closureN)self_73995)->elts[2]));; 
}

static void __lambda_125(void *data, int argc, object self_73996, object r_73343) {
  return_closcall3(data,  cell_get(((closureN)self_73996)->elts[2]),  ((closureN)self_73996)->elts[0], ((closureN)self_73996)->elts[1], r_73343);; 
}

static void __lambda_124(void *data, int argc, object self_73997, object r_73337) {
  
closureN_type c_731629;
c_731629.hdr.mark = gc_color_red;
 c_731629.hdr.grayed = 0;
c_731629.tag = closureN_tag;
 c_731629.fn = (function_type)__lambda_123;
c_731629.num_args = 1;
c_731629.num_elt = 12;
c_731629.elts = (object *)alloca(sizeof(object) * 12);
c_731629.elts[0] = ((closureN)self_73997)->elts[0];
c_731629.elts[1] = ((closureN)self_73997)->elts[1];
c_731629.elts[2] = ((closureN)self_73997)->elts[2];
c_731629.elts[3] = ((closureN)self_73997)->elts[3];
c_731629.elts[4] = ((closureN)self_73997)->elts[4];
c_731629.elts[5] = ((closureN)self_73997)->elts[5];
c_731629.elts[6] = ((closureN)self_73997)->elts[6];
c_731629.elts[7] = ((closureN)self_73997)->elts[7];
c_731629.elts[8] = ((closureN)self_73997)->elts[8];
c_731629.elts[9] = ((closureN)self_73997)->elts[9];
c_731629.elts[10] = ((closureN)self_73997)->elts[10];
c_731629.elts[11] = ((closureN)self_73997)->elts[11];

return_closcall1(data,(closure)&c_731629,  Cyc_set_car(data, ((closureN)self_73997)->elts[7], r_73337));; 
}

static void __lambda_123(void *data, int argc, object self_73998, object r_73301) {
  
closureN_type c_731631;
c_731631.hdr.mark = gc_color_red;
 c_731631.hdr.grayed = 0;
c_731631.tag = closureN_tag;
 c_731631.fn = (function_type)__lambda_110;
c_731631.num_args = 1;
c_731631.num_elt = 12;
c_731631.elts = (object *)alloca(sizeof(object) * 12);
c_731631.elts[0] = ((closureN)self_73998)->elts[0];
c_731631.elts[1] = ((closureN)self_73998)->elts[1];
c_731631.elts[2] = ((closureN)self_73998)->elts[2];
c_731631.elts[3] = ((closureN)self_73998)->elts[3];
c_731631.elts[4] = ((closureN)self_73998)->elts[4];
c_731631.elts[5] = ((closureN)self_73998)->elts[5];
c_731631.elts[6] = ((closureN)self_73998)->elts[6];
c_731631.elts[7] = ((closureN)self_73998)->elts[7];
c_731631.elts[8] = ((closureN)self_73998)->elts[8];
c_731631.elts[9] = ((closureN)self_73998)->elts[9];
c_731631.elts[10] = ((closureN)self_73998)->elts[10];
c_731631.elts[11] = ((closureN)self_73998)->elts[11];


closureN_type c_731764;
c_731764.hdr.mark = gc_color_red;
 c_731764.hdr.grayed = 0;
c_731764.tag = closureN_tag;
 c_731764.fn = (function_type)__lambda_122;
c_731764.num_args = 2;
c_731764.num_elt = 2;
c_731764.elts = (object *)alloca(sizeof(object) * 2);
c_731764.elts[0] = ((closureN)self_73998)->elts[6];
c_731764.elts[1] = ((closureN)self_73998)->elts[7];

return_closcall1(data,(closure)&c_731631,  &c_731764);; 
}

static void __lambda_122(void *data, int argc, object self_73999, object k_73329, object lst1_73165, object lst2_73164) {
  
closureN_type c_731766;
c_731766.hdr.mark = gc_color_red;
 c_731766.hdr.grayed = 0;
c_731766.tag = closureN_tag;
 c_731766.fn = (function_type)__lambda_121;
c_731766.num_args = 1;
c_731766.num_elt = 5;
c_731766.elts = (object *)alloca(sizeof(object) * 5);
c_731766.elts[0] = k_73329;
c_731766.elts[1] = lst1_73165;
c_731766.elts[2] = lst2_73164;
c_731766.elts[3] = ((closureN)self_73999)->elts[0];
c_731766.elts[4] = ((closureN)self_73999)->elts[1];

return_closcall1(data,(closure)&c_731766,  Cyc_is_null(lst1_73165));; 
}

static void __lambda_121(void *data, int argc, object self_731000, object r_73330) {
  if( !eq(boolean_f, r_73330) ){ 
  
closureN_type c_731768;
c_731768.hdr.mark = gc_color_red;
 c_731768.hdr.grayed = 0;
c_731768.tag = closureN_tag;
 c_731768.fn = (function_type)__lambda_111;
c_731768.num_args = 0;
c_731768.num_elt = 2;
c_731768.elts = (object *)alloca(sizeof(object) * 2);
c_731768.elts[0] = ((closureN)self_731000)->elts[0];
c_731768.elts[1] = ((closureN)self_731000)->elts[2];

return_closcall0(data,(closure)&c_731768);
} else { 
  
closureN_type c_731775;
c_731775.hdr.mark = gc_color_red;
 c_731775.hdr.grayed = 0;
c_731775.tag = closureN_tag;
 c_731775.fn = (function_type)__lambda_120;
c_731775.num_args = 1;
c_731775.num_elt = 5;
c_731775.elts = (object *)alloca(sizeof(object) * 5);
c_731775.elts[0] = ((closureN)self_731000)->elts[0];
c_731775.elts[1] = ((closureN)self_731000)->elts[1];
c_731775.elts[2] = ((closureN)self_731000)->elts[2];
c_731775.elts[3] = ((closureN)self_731000)->elts[3];
c_731775.elts[4] = ((closureN)self_731000)->elts[4];

return_closcall1(data,(closure)&c_731775,  Cyc_is_null(((closureN)self_731000)->elts[2]));}
; 
}

static void __lambda_120(void *data, int argc, object self_731001, object r_73331) {
  if( !eq(boolean_f, r_73331) ){ 
  
closureN_type c_731777;
c_731777.hdr.mark = gc_color_red;
 c_731777.hdr.grayed = 0;
c_731777.tag = closureN_tag;
 c_731777.fn = (function_type)__lambda_112;
c_731777.num_args = 0;
c_731777.num_elt = 1;
c_731777.elts = (object *)alloca(sizeof(object) * 1);
c_731777.elts[0] = ((closureN)self_731001)->elts[0];

return_closcall0(data,(closure)&c_731777);
} else { 
  
closureN_type c_731781;
c_731781.hdr.mark = gc_color_red;
 c_731781.hdr.grayed = 0;
c_731781.tag = closureN_tag;
 c_731781.fn = (function_type)__lambda_119;
c_731781.num_args = 1;
c_731781.num_elt = 5;
c_731781.elts = (object *)alloca(sizeof(object) * 5);
c_731781.elts[0] = ((closureN)self_731001)->elts[0];
c_731781.elts[1] = ((closureN)self_731001)->elts[1];
c_731781.elts[2] = ((closureN)self_731001)->elts[2];
c_731781.elts[3] = ((closureN)self_731001)->elts[3];
c_731781.elts[4] = ((closureN)self_731001)->elts[4];

return_closcall1(data,(closure)&c_731781,  car(((closureN)self_731001)->elts[1]));}
; 
}

static void __lambda_119(void *data, int argc, object self_731002, object r_73335) {
  
closureN_type c_731783;
c_731783.hdr.mark = gc_color_red;
 c_731783.hdr.grayed = 0;
c_731783.tag = closureN_tag;
 c_731783.fn = (function_type)__lambda_118;
c_731783.num_args = 1;
c_731783.num_elt = 6;
c_731783.elts = (object *)alloca(sizeof(object) * 6);
c_731783.elts[0] = ((closureN)self_731002)->elts[0];
c_731783.elts[1] = ((closureN)self_731002)->elts[1];
c_731783.elts[2] = ((closureN)self_731002)->elts[2];
c_731783.elts[3] = r_73335;
c_731783.elts[4] = ((closureN)self_731002)->elts[3];
c_731783.elts[5] = ((closureN)self_731002)->elts[4];

return_closcall1(data,(closure)&c_731783,  car(((closureN)self_731002)->elts[2]));; 
}

static void __lambda_118(void *data, int argc, object self_731003, object r_73336) {
  
closureN_type c_731788;
c_731788.hdr.mark = gc_color_red;
 c_731788.hdr.grayed = 0;
c_731788.tag = closureN_tag;
 c_731788.fn = (function_type)__lambda_117;
c_731788.num_args = 1;
c_731788.num_elt = 4;
c_731788.elts = (object *)alloca(sizeof(object) * 4);
c_731788.elts[0] = ((closureN)self_731003)->elts[0];
c_731788.elts[1] = ((closureN)self_731003)->elts[1];
c_731788.elts[2] = ((closureN)self_731003)->elts[2];
c_731788.elts[3] = ((closureN)self_731003)->elts[4];

return_closcall3(data,  cell_get(((closureN)self_731003)->elts[5]),  &c_731788, ((closureN)self_731003)->elts[3], r_73336);; 
}

static void __lambda_117(void *data, int argc, object self_731004, object r_73332) {
  if( !eq(boolean_f, r_73332) ){ 
  
closureN_type c_731790;
c_731790.hdr.mark = gc_color_red;
 c_731790.hdr.grayed = 0;
c_731790.tag = closureN_tag;
 c_731790.fn = (function_type)__lambda_115;
c_731790.num_args = 0;
c_731790.num_elt = 4;
c_731790.elts = (object *)alloca(sizeof(object) * 4);
c_731790.elts[0] = ((closureN)self_731004)->elts[0];
c_731790.elts[1] = ((closureN)self_731004)->elts[1];
c_731790.elts[2] = ((closureN)self_731004)->elts[2];
c_731790.elts[3] = ((closureN)self_731004)->elts[3];

return_closcall0(data,(closure)&c_731790);
} else { 
  
closureN_type c_731808;
c_731808.hdr.mark = gc_color_red;
 c_731808.hdr.grayed = 0;
c_731808.tag = closureN_tag;
 c_731808.fn = (function_type)__lambda_116;
c_731808.num_args = 0;
c_731808.num_elt = 1;
c_731808.elts = (object *)alloca(sizeof(object) * 1);
c_731808.elts[0] = ((closureN)self_731004)->elts[0];

return_closcall0(data,(closure)&c_731808);}
; 
}

static void __lambda_116(void *data, int argc, object self_731005) {
  return_closcall1(data,  ((closureN)self_731005)->elts[0],  boolean_f);; 
}

static void __lambda_115(void *data, int argc, object self_731006) {
  
closureN_type c_731792;
c_731792.hdr.mark = gc_color_red;
 c_731792.hdr.grayed = 0;
c_731792.tag = closureN_tag;
 c_731792.fn = (function_type)__lambda_114;
c_731792.num_args = 1;
c_731792.num_elt = 3;
c_731792.elts = (object *)alloca(sizeof(object) * 3);
c_731792.elts[0] = ((closureN)self_731006)->elts[0];
c_731792.elts[1] = ((closureN)self_731006)->elts[2];
c_731792.elts[2] = ((closureN)self_731006)->elts[3];

return_closcall1(data,(closure)&c_731792,  cdr(((closureN)self_731006)->elts[1]));; 
}

static void __lambda_114(void *data, int argc, object self_731007, object r_73333) {
  
closureN_type c_731794;
c_731794.hdr.mark = gc_color_red;
 c_731794.hdr.grayed = 0;
c_731794.tag = closureN_tag;
 c_731794.fn = (function_type)__lambda_113;
c_731794.num_args = 1;
c_731794.num_elt = 3;
c_731794.elts = (object *)alloca(sizeof(object) * 3);
c_731794.elts[0] = ((closureN)self_731007)->elts[0];
c_731794.elts[1] = r_73333;
c_731794.elts[2] = ((closureN)self_731007)->elts[2];

return_closcall1(data,(closure)&c_731794,  cdr(((closureN)self_731007)->elts[1]));; 
}

static void __lambda_113(void *data, int argc, object self_731008, object r_73334) {
  return_closcall3(data,  cell_get(((closureN)self_731008)->elts[2]),  ((closureN)self_731008)->elts[0], ((closureN)self_731008)->elts[1], r_73334);; 
}

static void __lambda_112(void *data, int argc, object self_731009) {
  return_closcall1(data,  ((closureN)self_731009)->elts[0],  boolean_f);; 
}

static void __lambda_111(void *data, int argc, object self_731010) {
  return_closcall1(data,  ((closureN)self_731010)->elts[0],  Cyc_is_null(((closureN)self_731010)->elts[1]));; 
}

static void __lambda_110(void *data, int argc, object self_731011, object r_73328) {
  
closureN_type c_731633;
c_731633.hdr.mark = gc_color_red;
 c_731633.hdr.grayed = 0;
c_731633.tag = closureN_tag;
 c_731633.fn = (function_type)__lambda_109;
c_731633.num_args = 1;
c_731633.num_elt = 11;
c_731633.elts = (object *)alloca(sizeof(object) * 11);
c_731633.elts[0] = ((closureN)self_731011)->elts[0];
c_731633.elts[1] = ((closureN)self_731011)->elts[1];
c_731633.elts[2] = ((closureN)self_731011)->elts[2];
c_731633.elts[3] = ((closureN)self_731011)->elts[3];
c_731633.elts[4] = ((closureN)self_731011)->elts[4];
c_731633.elts[5] = ((closureN)self_731011)->elts[5];
c_731633.elts[6] = ((closureN)self_731011)->elts[7];
c_731633.elts[7] = ((closureN)self_731011)->elts[8];
c_731633.elts[8] = ((closureN)self_731011)->elts[9];
c_731633.elts[9] = ((closureN)self_731011)->elts[10];
c_731633.elts[10] = ((closureN)self_731011)->elts[11];

return_closcall1(data,(closure)&c_731633,  Cyc_set_car(data, ((closureN)self_731011)->elts[6], r_73328));; 
}

static void __lambda_109(void *data, int argc, object self_731012, object r_73302) {
  
closureN_type c_731635;
c_731635.hdr.mark = gc_color_red;
 c_731635.hdr.grayed = 0;
c_731635.tag = closureN_tag;
 c_731635.fn = (function_type)__lambda_100;
c_731635.num_args = 1;
c_731635.num_elt = 10;
c_731635.elts = (object *)alloca(sizeof(object) * 10);
c_731635.elts[0] = ((closureN)self_731012)->elts[0];
c_731635.elts[1] = ((closureN)self_731012)->elts[1];
c_731635.elts[2] = ((closureN)self_731012)->elts[2];
c_731635.elts[3] = ((closureN)self_731012)->elts[3];
c_731635.elts[4] = ((closureN)self_731012)->elts[4];
c_731635.elts[5] = ((closureN)self_731012)->elts[5];
c_731635.elts[6] = ((closureN)self_731012)->elts[7];
c_731635.elts[7] = ((closureN)self_731012)->elts[8];
c_731635.elts[8] = ((closureN)self_731012)->elts[9];
c_731635.elts[9] = ((closureN)self_731012)->elts[10];


closureN_type c_731724;
c_731724.hdr.mark = gc_color_red;
 c_731724.hdr.grayed = 0;
c_731724.tag = closureN_tag;
 c_731724.fn = (function_type)__lambda_108;
c_731724.num_args = 2;
c_731724.num_elt = 2;
c_731724.elts = (object *)alloca(sizeof(object) * 2);
c_731724.elts[0] = ((closureN)self_731012)->elts[6];
c_731724.elts[1] = ((closureN)self_731012)->elts[7];

return_closcall1(data,(closure)&c_731635,  &c_731724);; 
}

static void __lambda_108(void *data, int argc, object self_731013, object k_73323, object x_73163, object lst_73162) {
  
closureN_type c_731726;
c_731726.hdr.mark = gc_color_red;
 c_731726.hdr.grayed = 0;
c_731726.tag = closureN_tag;
 c_731726.fn = (function_type)__lambda_107;
c_731726.num_args = 1;
c_731726.num_elt = 5;
c_731726.elts = (object *)alloca(sizeof(object) * 5);
c_731726.elts[0] = k_73323;
c_731726.elts[1] = lst_73162;
c_731726.elts[2] = ((closureN)self_731013)->elts[0];
c_731726.elts[3] = ((closureN)self_731013)->elts[1];
c_731726.elts[4] = x_73163;

return_closcall1(data,(closure)&c_731726,  Cyc_is_null(lst_73162));; 
}

static void __lambda_107(void *data, int argc, object self_731014, object r_73324) {
  if( !eq(boolean_f, r_73324) ){ 
  
closureN_type c_731728;
c_731728.hdr.mark = gc_color_red;
 c_731728.hdr.grayed = 0;
c_731728.tag = closureN_tag;
 c_731728.fn = (function_type)__lambda_101;
c_731728.num_args = 0;
c_731728.num_elt = 1;
c_731728.elts = (object *)alloca(sizeof(object) * 1);
c_731728.elts[0] = ((closureN)self_731014)->elts[0];

return_closcall0(data,(closure)&c_731728);
} else { 
  
closureN_type c_731732;
c_731732.hdr.mark = gc_color_red;
 c_731732.hdr.grayed = 0;
c_731732.tag = closureN_tag;
 c_731732.fn = (function_type)__lambda_106;
c_731732.num_args = 1;
c_731732.num_elt = 5;
c_731732.elts = (object *)alloca(sizeof(object) * 5);
c_731732.elts[0] = ((closureN)self_731014)->elts[0];
c_731732.elts[1] = ((closureN)self_731014)->elts[1];
c_731732.elts[2] = ((closureN)self_731014)->elts[2];
c_731732.elts[3] = ((closureN)self_731014)->elts[3];
c_731732.elts[4] = ((closureN)self_731014)->elts[4];

return_closcall1(data,(closure)&c_731732,  car(((closureN)self_731014)->elts[1]));}
; 
}

static void __lambda_106(void *data, int argc, object self_731015, object r_73327) {
  
closureN_type c_731737;
c_731737.hdr.mark = gc_color_red;
 c_731737.hdr.grayed = 0;
c_731737.tag = closureN_tag;
 c_731737.fn = (function_type)__lambda_105;
c_731737.num_args = 1;
c_731737.num_elt = 4;
c_731737.elts = (object *)alloca(sizeof(object) * 4);
c_731737.elts[0] = ((closureN)self_731015)->elts[0];
c_731737.elts[1] = ((closureN)self_731015)->elts[1];
c_731737.elts[2] = ((closureN)self_731015)->elts[3];
c_731737.elts[3] = ((closureN)self_731015)->elts[4];

return_closcall3(data,  cell_get(((closureN)self_731015)->elts[2]),  &c_731737, ((closureN)self_731015)->elts[4], r_73327);; 
}

static void __lambda_105(void *data, int argc, object self_731016, object r_73325) {
  if( !eq(boolean_f, r_73325) ){ 
  
closureN_type c_731739;
c_731739.hdr.mark = gc_color_red;
 c_731739.hdr.grayed = 0;
c_731739.tag = closureN_tag;
 c_731739.fn = (function_type)__lambda_102;
c_731739.num_args = 0;
c_731739.num_elt = 1;
c_731739.elts = (object *)alloca(sizeof(object) * 1);
c_731739.elts[0] = ((closureN)self_731016)->elts[0];

return_closcall0(data,(closure)&c_731739);
} else { 
  
closureN_type c_731743;
c_731743.hdr.mark = gc_color_red;
 c_731743.hdr.grayed = 0;
c_731743.tag = closureN_tag;
 c_731743.fn = (function_type)__lambda_104;
c_731743.num_args = 0;
c_731743.num_elt = 4;
c_731743.elts = (object *)alloca(sizeof(object) * 4);
c_731743.elts[0] = ((closureN)self_731016)->elts[0];
c_731743.elts[1] = ((closureN)self_731016)->elts[1];
c_731743.elts[2] = ((closureN)self_731016)->elts[2];
c_731743.elts[3] = ((closureN)self_731016)->elts[3];

return_closcall0(data,(closure)&c_731743);}
; 
}

static void __lambda_104(void *data, int argc, object self_731017) {
  
closureN_type c_731745;
c_731745.hdr.mark = gc_color_red;
 c_731745.hdr.grayed = 0;
c_731745.tag = closureN_tag;
 c_731745.fn = (function_type)__lambda_103;
c_731745.num_args = 1;
c_731745.num_elt = 3;
c_731745.elts = (object *)alloca(sizeof(object) * 3);
c_731745.elts[0] = ((closureN)self_731017)->elts[0];
c_731745.elts[1] = ((closureN)self_731017)->elts[2];
c_731745.elts[2] = ((closureN)self_731017)->elts[3];

return_closcall1(data,(closure)&c_731745,  cdr(((closureN)self_731017)->elts[1]));; 
}

static void __lambda_103(void *data, int argc, object self_731018, object r_73326) {
  return_closcall3(data,  cell_get(((closureN)self_731018)->elts[1]),  ((closureN)self_731018)->elts[0], ((closureN)self_731018)->elts[2], r_73326);; 
}

static void __lambda_102(void *data, int argc, object self_731019) {
  return_closcall1(data,  ((closureN)self_731019)->elts[0],  boolean_t);; 
}

static void __lambda_101(void *data, int argc, object self_731020) {
  return_closcall1(data,  ((closureN)self_731020)->elts[0],  boolean_f);; 
}

static void __lambda_100(void *data, int argc, object self_731021, object r_73322) {
  
closureN_type c_731637;
c_731637.hdr.mark = gc_color_red;
 c_731637.hdr.grayed = 0;
c_731637.tag = closureN_tag;
 c_731637.fn = (function_type)__lambda_99;
c_731637.num_args = 1;
c_731637.num_elt = 9;
c_731637.elts = (object *)alloca(sizeof(object) * 9);
c_731637.elts[0] = ((closureN)self_731021)->elts[0];
c_731637.elts[1] = ((closureN)self_731021)->elts[1];
c_731637.elts[2] = ((closureN)self_731021)->elts[2];
c_731637.elts[3] = ((closureN)self_731021)->elts[3];
c_731637.elts[4] = ((closureN)self_731021)->elts[4];
c_731637.elts[5] = ((closureN)self_731021)->elts[5];
c_731637.elts[6] = ((closureN)self_731021)->elts[7];
c_731637.elts[7] = ((closureN)self_731021)->elts[8];
c_731637.elts[8] = ((closureN)self_731021)->elts[9];

return_closcall1(data,(closure)&c_731637,  Cyc_set_car(data, ((closureN)self_731021)->elts[6], r_73322));; 
}

static void __lambda_99(void *data, int argc, object self_731022, object r_73303) {
  
closureN_type c_731639;
c_731639.hdr.mark = gc_color_red;
 c_731639.hdr.grayed = 0;
c_731639.tag = closureN_tag;
 c_731639.fn = (function_type)__lambda_86;
c_731639.num_args = 1;
c_731639.num_elt = 2;
c_731639.elts = (object *)alloca(sizeof(object) * 2);
c_731639.elts[0] = ((closureN)self_731022)->elts[3];
c_731639.elts[1] = ((closureN)self_731022)->elts[6];


closureN_type c_731670;
c_731670.hdr.mark = gc_color_red;
 c_731670.hdr.grayed = 0;
c_731670.tag = closureN_tag;
 c_731670.fn = (function_type)__lambda_98;
c_731670.num_args = 0;
c_731670.num_elt = 7;
c_731670.elts = (object *)alloca(sizeof(object) * 7);
c_731670.elts[0] = ((closureN)self_731022)->elts[0];
c_731670.elts[1] = ((closureN)self_731022)->elts[1];
c_731670.elts[2] = ((closureN)self_731022)->elts[2];
c_731670.elts[3] = ((closureN)self_731022)->elts[4];
c_731670.elts[4] = ((closureN)self_731022)->elts[5];
c_731670.elts[5] = ((closureN)self_731022)->elts[7];
c_731670.elts[6] = ((closureN)self_731022)->elts[8];

return_closcall1(data,(closure)&c_731639,  &c_731670);; 
}

static void __lambda_98(void *data, int argc, object self_731023, object k_73310) {
  
closureN_type c_731672;
c_731672.hdr.mark = gc_color_red;
 c_731672.hdr.grayed = 0;
c_731672.tag = closureN_tag;
 c_731672.fn = (function_type)__lambda_97;
c_731672.num_args = 1;
c_731672.num_elt = 8;
c_731672.elts = (object *)alloca(sizeof(object) * 8);
c_731672.elts[0] = ((closureN)self_731023)->elts[0];
c_731672.elts[1] = ((closureN)self_731023)->elts[1];
c_731672.elts[2] = ((closureN)self_731023)->elts[2];
c_731672.elts[3] = k_73310;
c_731672.elts[4] = ((closureN)self_731023)->elts[3];
c_731672.elts[5] = ((closureN)self_731023)->elts[4];
c_731672.elts[6] = ((closureN)self_731023)->elts[5];
c_731672.elts[7] = ((closureN)self_731023)->elts[6];

return_closcall1(data,(closure)&c_731672,  nil);; 
}

static void __lambda_97(void *data, int argc, object self_731024, object r_73321) {
  
closureN_type c_731674;
c_731674.hdr.mark = gc_color_red;
 c_731674.hdr.grayed = 0;
c_731674.tag = closureN_tag;
 c_731674.fn = (function_type)__lambda_96;
c_731674.num_args = 1;
c_731674.num_elt = 7;
c_731674.elts = (object *)alloca(sizeof(object) * 7);
c_731674.elts[0] = ((closureN)self_731024)->elts[1];
c_731674.elts[1] = ((closureN)self_731024)->elts[2];
c_731674.elts[2] = ((closureN)self_731024)->elts[3];
c_731674.elts[3] = ((closureN)self_731024)->elts[4];
c_731674.elts[4] = ((closureN)self_731024)->elts[5];
c_731674.elts[5] = ((closureN)self_731024)->elts[6];
c_731674.elts[6] = ((closureN)self_731024)->elts[7];

return_closcall1(data,(closure)&c_731674,  Cyc_set_car(data, ((closureN)self_731024)->elts[0], r_73321));; 
}

static void __lambda_96(void *data, int argc, object self_731025, object r_73311) {
  
closureN_type c_731676;
c_731676.hdr.mark = gc_color_red;
 c_731676.hdr.grayed = 0;
c_731676.tag = closureN_tag;
 c_731676.fn = (function_type)__lambda_95;
c_731676.num_args = 1;
c_731676.num_elt = 7;
c_731676.elts = (object *)alloca(sizeof(object) * 7);
c_731676.elts[0] = ((closureN)self_731025)->elts[0];
c_731676.elts[1] = ((closureN)self_731025)->elts[1];
c_731676.elts[2] = ((closureN)self_731025)->elts[2];
c_731676.elts[3] = ((closureN)self_731025)->elts[3];
c_731676.elts[4] = ((closureN)self_731025)->elts[4];
c_731676.elts[5] = ((closureN)self_731025)->elts[5];
c_731676.elts[6] = ((closureN)self_731025)->elts[6];

return_closcall1(data,(closure)&c_731676,  quote__if);; 
}

static void __lambda_95(void *data, int argc, object self_731026, object r_73320) {
  
closureN_type c_731681;
c_731681.hdr.mark = gc_color_red;
 c_731681.hdr.grayed = 0;
c_731681.tag = closureN_tag;
 c_731681.fn = (function_type)__lambda_94;
c_731681.num_args = 1;
c_731681.num_elt = 6;
c_731681.elts = (object *)alloca(sizeof(object) * 6);
c_731681.elts[0] = ((closureN)self_731026)->elts[0];
c_731681.elts[1] = ((closureN)self_731026)->elts[1];
c_731681.elts[2] = ((closureN)self_731026)->elts[2];
c_731681.elts[3] = ((closureN)self_731026)->elts[3];
c_731681.elts[4] = ((closureN)self_731026)->elts[5];
c_731681.elts[5] = ((closureN)self_731026)->elts[6];

return_closcall2(data,  cell_get(((closureN)self_731026)->elts[4]),  &c_731681, r_73320);; 
}

static void __lambda_94(void *data, int argc, object self_731027, object r_73319) {
  
closureN_type c_731683;
c_731683.hdr.mark = gc_color_red;
 c_731683.hdr.grayed = 0;
c_731683.tag = closureN_tag;
 c_731683.fn = (function_type)__lambda_93;
c_731683.num_args = 1;
c_731683.num_elt = 5;
c_731683.elts = (object *)alloca(sizeof(object) * 5);
c_731683.elts[0] = ((closureN)self_731027)->elts[0];
c_731683.elts[1] = ((closureN)self_731027)->elts[2];
c_731683.elts[2] = ((closureN)self_731027)->elts[3];
c_731683.elts[3] = ((closureN)self_731027)->elts[4];
c_731683.elts[4] = ((closureN)self_731027)->elts[5];

return_closcall1(data,(closure)&c_731683,  Cyc_set_car(data, ((closureN)self_731027)->elts[1], r_73319));; 
}

static void __lambda_93(void *data, int argc, object self_731028, object r_73312) {
  
closureN_type c_731685;
c_731685.hdr.mark = gc_color_red;
 c_731685.hdr.grayed = 0;
c_731685.tag = closureN_tag;
 c_731685.fn = (function_type)__lambda_92;
c_731685.num_args = 1;
c_731685.num_elt = 5;
c_731685.elts = (object *)alloca(sizeof(object) * 5);
c_731685.elts[0] = ((closureN)self_731028)->elts[0];
c_731685.elts[1] = ((closureN)self_731028)->elts[1];
c_731685.elts[2] = ((closureN)self_731028)->elts[2];
c_731685.elts[3] = ((closureN)self_731028)->elts[3];
c_731685.elts[4] = ((closureN)self_731028)->elts[4];


make_cons(c_731714,quote_f,nil);
return_closcall1(data,(closure)&c_731685,  &c_731714);; 
}

static void __lambda_92(void *data, int argc, object self_731029, object r_73318) {
  
closureN_type c_731690;
c_731690.hdr.mark = gc_color_red;
 c_731690.hdr.grayed = 0;
c_731690.tag = closureN_tag;
 c_731690.fn = (function_type)__lambda_91;
c_731690.num_args = 1;
c_731690.num_elt = 5;
c_731690.elts = (object *)alloca(sizeof(object) * 5);
c_731690.elts[0] = ((closureN)self_731029)->elts[0];
c_731690.elts[1] = ((closureN)self_731029)->elts[1];
c_731690.elts[2] = ((closureN)self_731029)->elts[2];
c_731690.elts[3] = ((closureN)self_731029)->elts[3];
c_731690.elts[4] = ((closureN)self_731029)->elts[4];

return_closcall2(data,  cell_get(((closureN)self_731029)->elts[3]),  &c_731690, r_73318);; 
}

static void __lambda_91(void *data, int argc, object self_731030, object r_73317) {
  
closureN_type c_731692;
c_731692.hdr.mark = gc_color_red;
 c_731692.hdr.grayed = 0;
c_731692.tag = closureN_tag;
 c_731692.fn = (function_type)__lambda_90;
c_731692.num_args = 1;
c_731692.num_elt = 4;
c_731692.elts = (object *)alloca(sizeof(object) * 4);
c_731692.elts[0] = ((closureN)self_731030)->elts[1];
c_731692.elts[1] = ((closureN)self_731030)->elts[2];
c_731692.elts[2] = ((closureN)self_731030)->elts[3];
c_731692.elts[3] = ((closureN)self_731030)->elts[4];

return_closcall1(data,(closure)&c_731692,  Cyc_set_car(data, ((closureN)self_731030)->elts[0], r_73317));; 
}

static void __lambda_90(void *data, int argc, object self_731031, object r_73313) {
  
closureN_type c_731694;
c_731694.hdr.mark = gc_color_red;
 c_731694.hdr.grayed = 0;
c_731694.tag = closureN_tag;
 c_731694.fn = (function_type)__lambda_89;
c_731694.num_args = 1;
c_731694.num_elt = 4;
c_731694.elts = (object *)alloca(sizeof(object) * 4);
c_731694.elts[0] = ((closureN)self_731031)->elts[0];
c_731694.elts[1] = ((closureN)self_731031)->elts[1];
c_731694.elts[2] = ((closureN)self_731031)->elts[2];
c_731694.elts[3] = ((closureN)self_731031)->elts[3];


make_cons(c_731710,quote_t,nil);
return_closcall1(data,(closure)&c_731694,  &c_731710);; 
}

static void __lambda_89(void *data, int argc, object self_731032, object r_73316) {
  
closureN_type c_731699;
c_731699.hdr.mark = gc_color_red;
 c_731699.hdr.grayed = 0;
c_731699.tag = closureN_tag;
 c_731699.fn = (function_type)__lambda_88;
c_731699.num_args = 1;
c_731699.num_elt = 3;
c_731699.elts = (object *)alloca(sizeof(object) * 3);
c_731699.elts[0] = ((closureN)self_731032)->elts[0];
c_731699.elts[1] = ((closureN)self_731032)->elts[1];
c_731699.elts[2] = ((closureN)self_731032)->elts[3];

return_closcall2(data,  cell_get(((closureN)self_731032)->elts[2]),  &c_731699, r_73316);; 
}

static void __lambda_88(void *data, int argc, object self_731033, object r_73315) {
  
closureN_type c_731701;
c_731701.hdr.mark = gc_color_red;
 c_731701.hdr.grayed = 0;
c_731701.tag = closureN_tag;
 c_731701.fn = (function_type)__lambda_87;
c_731701.num_args = 1;
c_731701.num_elt = 2;
c_731701.elts = (object *)alloca(sizeof(object) * 2);
c_731701.elts[0] = ((closureN)self_731033)->elts[0];
c_731701.elts[1] = ((closureN)self_731033)->elts[1];

return_closcall1(data,(closure)&c_731701,  Cyc_set_car(data, ((closureN)self_731033)->elts[2], r_73315));; 
}

static void __lambda_87(void *data, int argc, object self_731034, object r_73314) {
  return_closcall1(data,  cell_get(((closureN)self_731034)->elts[1]),  ((closureN)self_731034)->elts[0]);; 
}

static void __lambda_86(void *data, int argc, object self_731035, object r_73309) {
  
closureN_type c_731641;
c_731641.hdr.mark = gc_color_red;
 c_731641.hdr.grayed = 0;
c_731641.tag = closureN_tag;
 c_731641.fn = (function_type)__lambda_85;
c_731641.num_args = 1;
c_731641.num_elt = 2;
c_731641.elts = (object *)alloca(sizeof(object) * 2);
c_731641.elts[0] = ((closureN)self_731035)->elts[0];
c_731641.elts[1] = ((closureN)self_731035)->elts[1];

return_closcall1(data,(closure)&c_731641,  global_set(__glo_setup_91boyer, r_73309));; 
}

static void __lambda_85(void *data, int argc, object self_731036, object r_73304) {
  closureN_type c_731647;
c_731647.hdr.mark = gc_color_red;
 c_731647.hdr.grayed = 0;
c_731647.tag = closureN_tag;
 c_731647.fn = (function_type)__lambda_84;
c_731647.num_args = 3;
c_731647.num_elt = 2;
c_731647.elts = (object *)alloca(sizeof(object) * 2);
c_731647.elts[0] = ((closureN)self_731036)->elts[0];
c_731647.elts[1] = ((closureN)self_731036)->elts[1];

return_direct1(data,__lambda_81,&c_731647);; 
}

static void __lambda_84(void *data, int argc, object self_731037, object k_73306, object alist_73160, object term_73159, object n_73158) {
  
closureN_type c_731649;
c_731649.hdr.mark = gc_color_red;
 c_731649.hdr.grayed = 0;
c_731649.tag = closureN_tag;
 c_731649.fn = (function_type)__lambda_83;
c_731649.num_args = 1;
c_731649.num_elt = 6;
c_731649.elts = (object *)alloca(sizeof(object) * 6);
c_731649.elts[0] = alist_73160;
c_731649.elts[1] = k_73306;
c_731649.elts[2] = n_73158;
c_731649.elts[3] = ((closureN)self_731037)->elts[0];
c_731649.elts[4] = term_73159;
c_731649.elts[5] = ((closureN)self_731037)->elts[1];

return_closcall1(data,(closure)&c_731649,  Cyc_set_car(data, ((closureN)self_731037)->elts[0], obj_int2obj(0)));; 
}

static void __lambda_83(void *data, int argc, object self_731038, object r_73307) {
  
closureN_type c_731654;
c_731654.hdr.mark = gc_color_red;
 c_731654.hdr.grayed = 0;
c_731654.tag = closureN_tag;
 c_731654.fn = (function_type)__lambda_82;
c_731654.num_args = 1;
c_731654.num_elt = 2;
c_731654.elts = (object *)alloca(sizeof(object) * 2);
c_731654.elts[0] = ((closureN)self_731038)->elts[1];
c_731654.elts[1] = ((closureN)self_731038)->elts[3];

return_closcall4(data,  cell_get(((closureN)self_731038)->elts[5]),  &c_731654, ((closureN)self_731038)->elts[0], ((closureN)self_731038)->elts[4], ((closureN)self_731038)->elts[2]);; 
}

static void __lambda_82(void *data, int argc, object self_731039, object answer_73161) {
  if( !eq(boolean_f, answer_73161) ){ 
  return_closcall1(data,  ((closureN)self_731039)->elts[0],  cell_get(((closureN)self_731039)->elts[1]));
} else { 
  return_closcall1(data,  ((closureN)self_731039)->elts[0],  boolean_f);}
; 
}

static void __lambda_81(void *data, int argc, closure _,object r_73305) {
  return_direct1(data,__lambda_80,global_set(__glo_test_91boyer, r_73305));; 
}

static void __lambda_80(void *data, int argc, closure _,object r_73264) {
  return_closcall1(data,  __glo_main,  primitive__75halt);; 
}

static void __lambda_79(void *data, int argc, closure _,object k_73568, object name_73229, object count_73228, object thunk_73227, object ok_127_73226) {
  Cyc_st_add(data, "nboyer.scm:run-r7rs-benchmark");

closureN_type c_731225;
c_731225.hdr.mark = gc_color_red;
 c_731225.hdr.grayed = 0;
c_731225.tag = closureN_tag;
 c_731225.fn = (function_type)__lambda_78;
c_731225.num_args = 1;
c_731225.num_elt = 5;
c_731225.elts = (object *)alloca(sizeof(object) * 5);
c_731225.elts[0] = count_73228;
c_731225.elts[1] = k_73568;
c_731225.elts[2] = name_73229;
c_731225.elts[3] = ok_127_73226;
c_731225.elts[4] = thunk_73227;

return_closcall1(data,(closure)&c_731225,  boolean_f);; 
}

static void __lambda_78(void *data, int argc, object self_731040, object rounded_73231) {
  
closureN_type c_731227;
c_731227.hdr.mark = gc_color_red;
 c_731227.hdr.grayed = 0;
c_731227.tag = closureN_tag;
 c_731227.fn = (function_type)__lambda_77;
c_731227.num_args = 1;
c_731227.num_elt = 5;
c_731227.elts = (object *)alloca(sizeof(object) * 5);
c_731227.elts[0] = ((closureN)self_731040)->elts[0];
c_731227.elts[1] = ((closureN)self_731040)->elts[1];
c_731227.elts[2] = ((closureN)self_731040)->elts[2];
c_731227.elts[3] = ((closureN)self_731040)->elts[3];
c_731227.elts[4] = ((closureN)self_731040)->elts[4];


make_cell(c_731396,rounded_73231);
return_closcall1(data,(closure)&c_731227,  &c_731396);; 
}

static void __lambda_77(void *data, int argc, object self_731041, object rounded_73231) {
  
closureN_type c_731229;
c_731229.hdr.mark = gc_color_red;
 c_731229.hdr.grayed = 0;
c_731229.tag = closureN_tag;
 c_731229.fn = (function_type)__lambda_76;
c_731229.num_args = 1;
c_731229.num_elt = 6;
c_731229.elts = (object *)alloca(sizeof(object) * 6);
c_731229.elts[0] = ((closureN)self_731041)->elts[0];
c_731229.elts[1] = ((closureN)self_731041)->elts[1];
c_731229.elts[2] = ((closureN)self_731041)->elts[2];
c_731229.elts[3] = ((closureN)self_731041)->elts[3];
c_731229.elts[4] = rounded_73231;
c_731229.elts[5] = ((closureN)self_731041)->elts[4];

return_closcall1(data,(closure)&c_731229,  boolean_f);; 
}

static void __lambda_76(void *data, int argc, object self_731042, object rounded_73232) {
  
closureN_type c_731231;
c_731231.hdr.mark = gc_color_red;
 c_731231.hdr.grayed = 0;
c_731231.tag = closureN_tag;
 c_731231.fn = (function_type)__lambda_72;
c_731231.num_args = 1;
c_731231.num_elt = 6;
c_731231.elts = (object *)alloca(sizeof(object) * 6);
c_731231.elts[0] = ((closureN)self_731042)->elts[0];
c_731231.elts[1] = ((closureN)self_731042)->elts[1];
c_731231.elts[2] = ((closureN)self_731042)->elts[2];
c_731231.elts[3] = ((closureN)self_731042)->elts[3];
c_731231.elts[4] = ((closureN)self_731042)->elts[4];
c_731231.elts[5] = ((closureN)self_731042)->elts[5];


mclosure0(c_731381, (function_type)__lambda_75);c_731381.num_args = 1;
return_closcall1(data,(closure)&c_731231,  &c_731381);; 
}

static void __lambda_75(void *data, int argc, object self_731043, object k_73604, object x_73246) {
  
closureN_type c_731383;
c_731383.hdr.mark = gc_color_red;
 c_731383.hdr.grayed = 0;
c_731383.tag = closureN_tag;
 c_731383.fn = (function_type)__lambda_74;
c_731383.num_args = 1;
c_731383.num_elt = 1;
c_731383.elts = (object *)alloca(sizeof(object) * 1);
c_731383.elts[0] = k_73604;


object c_731393 = Cyc_mul(data,(closure)&c_731383,2,obj_int2obj(1000), x_73246);
return_closcall1(data,(closure)&c_731383,  c_731393);; 
}

static void __lambda_74(void *data, int argc, object self_731044, object r_73606) {
  
closureN_type c_731385;
c_731385.hdr.mark = gc_color_red;
 c_731385.hdr.grayed = 0;
c_731385.tag = closureN_tag;
 c_731385.fn = (function_type)__lambda_73;
c_731385.num_args = 1;
c_731385.num_elt = 1;
c_731385.elts = (object *)alloca(sizeof(object) * 1);
c_731385.elts[0] = ((closureN)self_731044)->elts[0];

return_closcall2(data,  __glo_round_scheme_base,  &c_731385, r_73606);; 
}

static void __lambda_73(void *data, int argc, object self_731045, object r_73605) {
  
object c_731390 = Cyc_div(data,  ((closureN)self_731045)->elts[0],2,r_73605, obj_int2obj(1000));
return_closcall1(data,  ((closureN)self_731045)->elts[0],  c_731390);; 
}

static void __lambda_72(void *data, int argc, object self_731046, object r_73603) {
  
closureN_type c_731233;
c_731233.hdr.mark = gc_color_red;
 c_731233.hdr.grayed = 0;
c_731233.tag = closureN_tag;
 c_731233.fn = (function_type)__lambda_71;
c_731233.num_args = 1;
c_731233.num_elt = 6;
c_731233.elts = (object *)alloca(sizeof(object) * 6);
c_731233.elts[0] = ((closureN)self_731046)->elts[0];
c_731233.elts[1] = ((closureN)self_731046)->elts[1];
c_731233.elts[2] = ((closureN)self_731046)->elts[2];
c_731233.elts[3] = ((closureN)self_731046)->elts[3];
c_731233.elts[4] = ((closureN)self_731046)->elts[4];
c_731233.elts[5] = ((closureN)self_731046)->elts[5];

return_closcall1(data,(closure)&c_731233,  Cyc_set_car(data, ((closureN)self_731046)->elts[4], r_73603));; 
}

static void __lambda_71(void *data, int argc, object self_731047, object r_73569) {
  
closureN_type c_731235;
c_731235.hdr.mark = gc_color_red;
 c_731235.hdr.grayed = 0;
c_731235.tag = closureN_tag;
 c_731235.fn = (function_type)__lambda_70;
c_731235.num_args = 1;
c_731235.num_elt = 6;
c_731235.elts = (object *)alloca(sizeof(object) * 6);
c_731235.elts[0] = ((closureN)self_731047)->elts[0];
c_731235.elts[1] = ((closureN)self_731047)->elts[1];
c_731235.elts[2] = ((closureN)self_731047)->elts[2];
c_731235.elts[3] = ((closureN)self_731047)->elts[3];
c_731235.elts[4] = ((closureN)self_731047)->elts[4];
c_731235.elts[5] = ((closureN)self_731047)->elts[5];


make_string(c_731377, "Running ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731235, &c_731377);; 
}

static void __lambda_70(void *data, int argc, object self_731048, object r_73570) {
  
closureN_type c_731237;
c_731237.hdr.mark = gc_color_red;
 c_731237.hdr.grayed = 0;
c_731237.tag = closureN_tag;
 c_731237.fn = (function_type)__lambda_69;
c_731237.num_args = 1;
c_731237.num_elt = 6;
c_731237.elts = (object *)alloca(sizeof(object) * 6);
c_731237.elts[0] = ((closureN)self_731048)->elts[0];
c_731237.elts[1] = ((closureN)self_731048)->elts[1];
c_731237.elts[2] = ((closureN)self_731048)->elts[2];
c_731237.elts[3] = ((closureN)self_731048)->elts[3];
c_731237.elts[4] = ((closureN)self_731048)->elts[4];
c_731237.elts[5] = ((closureN)self_731048)->elts[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_731237, ((closureN)self_731048)->elts[2]);; 
}

static void __lambda_69(void *data, int argc, object self_731049, object r_73571) {
  
closureN_type c_731239;
c_731239.hdr.mark = gc_color_red;
 c_731239.hdr.grayed = 0;
c_731239.tag = closureN_tag;
 c_731239.fn = (function_type)__lambda_68;
c_731239.num_args = 1;
c_731239.num_elt = 6;
c_731239.elts = (object *)alloca(sizeof(object) * 6);
c_731239.elts[0] = ((closureN)self_731049)->elts[0];
c_731239.elts[1] = ((closureN)self_731049)->elts[1];
c_731239.elts[2] = ((closureN)self_731049)->elts[2];
c_731239.elts[3] = ((closureN)self_731049)->elts[3];
c_731239.elts[4] = ((closureN)self_731049)->elts[4];
c_731239.elts[5] = ((closureN)self_731049)->elts[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731239);; 
}

static void __lambda_68(void *data, int argc, object self_731050, object r_73572) {
  
closureN_type c_731241;
c_731241.hdr.mark = gc_color_red;
 c_731241.hdr.grayed = 0;
c_731241.tag = closureN_tag;
 c_731241.fn = (function_type)__lambda_67;
c_731241.num_args = 1;
c_731241.num_elt = 6;
c_731241.elts = (object *)alloca(sizeof(object) * 6);
c_731241.elts[0] = ((closureN)self_731050)->elts[0];
c_731241.elts[1] = ((closureN)self_731050)->elts[1];
c_731241.elts[2] = ((closureN)self_731050)->elts[2];
c_731241.elts[3] = ((closureN)self_731050)->elts[3];
c_731241.elts[4] = ((closureN)self_731050)->elts[4];
c_731241.elts[5] = ((closureN)self_731050)->elts[5];

return_closcall1(data,  __glo_flush_91output_91port_scheme_base,  &c_731241);; 
}

static void __lambda_67(void *data, int argc, object self_731051, object r_73573) {
  
closureN_type c_731243;
c_731243.hdr.mark = gc_color_red;
 c_731243.hdr.grayed = 0;
c_731243.tag = closureN_tag;
 c_731243.fn = (function_type)__lambda_66;
c_731243.num_args = 1;
c_731243.num_elt = 6;
c_731243.elts = (object *)alloca(sizeof(object) * 6);
c_731243.elts[0] = ((closureN)self_731051)->elts[0];
c_731243.elts[1] = ((closureN)self_731051)->elts[1];
c_731243.elts[2] = ((closureN)self_731051)->elts[2];
c_731243.elts[3] = ((closureN)self_731051)->elts[3];
c_731243.elts[4] = ((closureN)self_731051)->elts[4];
c_731243.elts[5] = ((closureN)self_731051)->elts[5];

return_closcall1(data,  __glo_jiffies_91per_91second_scheme_time,  &c_731243);; 
}

static void __lambda_66(void *data, int argc, object self_731052, object j_95s_73233) {
  
closureN_type c_731245;
c_731245.hdr.mark = gc_color_red;
 c_731245.hdr.grayed = 0;
c_731245.tag = closureN_tag;
 c_731245.fn = (function_type)__lambda_65;
c_731245.num_args = 1;
c_731245.num_elt = 7;
c_731245.elts = (object *)alloca(sizeof(object) * 7);
c_731245.elts[0] = ((closureN)self_731052)->elts[0];
c_731245.elts[1] = j_95s_73233;
c_731245.elts[2] = ((closureN)self_731052)->elts[1];
c_731245.elts[3] = ((closureN)self_731052)->elts[2];
c_731245.elts[4] = ((closureN)self_731052)->elts[3];
c_731245.elts[5] = ((closureN)self_731052)->elts[4];
c_731245.elts[6] = ((closureN)self_731052)->elts[5];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_731245);; 
}

static void __lambda_65(void *data, int argc, object self_731053, object t0_73234) {
  
closureN_type c_731247;
c_731247.hdr.mark = gc_color_red;
 c_731247.hdr.grayed = 0;
c_731247.tag = closureN_tag;
 c_731247.fn = (function_type)__lambda_64;
c_731247.num_args = 1;
c_731247.num_elt = 8;
c_731247.elts = (object *)alloca(sizeof(object) * 8);
c_731247.elts[0] = ((closureN)self_731053)->elts[0];
c_731247.elts[1] = ((closureN)self_731053)->elts[1];
c_731247.elts[2] = ((closureN)self_731053)->elts[2];
c_731247.elts[3] = ((closureN)self_731053)->elts[3];
c_731247.elts[4] = ((closureN)self_731053)->elts[4];
c_731247.elts[5] = ((closureN)self_731053)->elts[5];
c_731247.elts[6] = t0_73234;
c_731247.elts[7] = ((closureN)self_731053)->elts[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_731247);; 
}

static void __lambda_64(void *data, int argc, object self_731054, object j0_73235) {
  
closureN_type c_731249;
c_731249.hdr.mark = gc_color_red;
 c_731249.hdr.grayed = 0;
c_731249.tag = closureN_tag;
 c_731249.fn = (function_type)__lambda_63;
c_731249.num_args = 0;
c_731249.num_elt = 9;
c_731249.elts = (object *)alloca(sizeof(object) * 9);
c_731249.elts[0] = ((closureN)self_731054)->elts[0];
c_731249.elts[1] = ((closureN)self_731054)->elts[1];
c_731249.elts[2] = j0_73235;
c_731249.elts[3] = ((closureN)self_731054)->elts[2];
c_731249.elts[4] = ((closureN)self_731054)->elts[3];
c_731249.elts[5] = ((closureN)self_731054)->elts[4];
c_731249.elts[6] = ((closureN)self_731054)->elts[5];
c_731249.elts[7] = ((closureN)self_731054)->elts[6];
c_731249.elts[8] = ((closureN)self_731054)->elts[7];

return_closcall0(data,(closure)&c_731249);; 
}

static void __lambda_63(void *data, int argc, object self_731055) {
  closureN_type c_731253;
c_731253.hdr.mark = gc_color_red;
 c_731253.hdr.grayed = 0;
c_731253.tag = closureN_tag;
 c_731253.fn = (function_type)__lambda_62;
c_731253.num_args = 1;
c_731253.num_elt = 9;
c_731253.elts = (object *)alloca(sizeof(object) * 9);
c_731253.elts[0] = ((closureN)self_731055)->elts[0];
c_731253.elts[1] = ((closureN)self_731055)->elts[1];
c_731253.elts[2] = ((closureN)self_731055)->elts[2];
c_731253.elts[3] = ((closureN)self_731055)->elts[3];
c_731253.elts[4] = ((closureN)self_731055)->elts[4];
c_731253.elts[5] = ((closureN)self_731055)->elts[5];
c_731253.elts[6] = ((closureN)self_731055)->elts[6];
c_731253.elts[7] = ((closureN)self_731055)->elts[7];
c_731253.elts[8] = ((closureN)self_731055)->elts[8];

return_direct1(data,__lambda_30,&c_731253);; 
}

static void __lambda_62(void *data, int argc, object self_731056, object r_73577) {
  
closureN_type c_731255;
c_731255.hdr.mark = gc_color_red;
 c_731255.hdr.grayed = 0;
c_731255.tag = closureN_tag;
 c_731255.fn = (function_type)__lambda_61;
c_731255.num_args = 2;
c_731255.num_elt = 9;
c_731255.elts = (object *)alloca(sizeof(object) * 9);
c_731255.elts[0] = ((closureN)self_731056)->elts[0];
c_731255.elts[1] = ((closureN)self_731056)->elts[1];
c_731255.elts[2] = ((closureN)self_731056)->elts[2];
c_731255.elts[3] = ((closureN)self_731056)->elts[3];
c_731255.elts[4] = ((closureN)self_731056)->elts[4];
c_731255.elts[5] = ((closureN)self_731056)->elts[5];
c_731255.elts[6] = ((closureN)self_731056)->elts[6];
c_731255.elts[7] = ((closureN)self_731056)->elts[7];
c_731255.elts[8] = ((closureN)self_731056)->elts[8];

return_closcall2(data,(closure)&c_731255,  obj_int2obj(0), r_73577);; 
}

static void __lambda_61(void *data, int argc, object self_731057, object i_73237, object result_73236) {
  
closureN_type c_731257;
c_731257.hdr.mark = gc_color_red;
 c_731257.hdr.grayed = 0;
c_731257.tag = closureN_tag;
 c_731257.fn = (function_type)__lambda_60;
c_731257.num_args = 1;
c_731257.num_elt = 11;
c_731257.elts = (object *)alloca(sizeof(object) * 11);
c_731257.elts[0] = ((closureN)self_731057)->elts[0];
c_731257.elts[1] = i_73237;
c_731257.elts[2] = ((closureN)self_731057)->elts[1];
c_731257.elts[3] = ((closureN)self_731057)->elts[2];
c_731257.elts[4] = ((closureN)self_731057)->elts[3];
c_731257.elts[5] = ((closureN)self_731057)->elts[4];
c_731257.elts[6] = ((closureN)self_731057)->elts[5];
c_731257.elts[7] = result_73236;
c_731257.elts[8] = ((closureN)self_731057)->elts[6];
c_731257.elts[9] = ((closureN)self_731057)->elts[7];
c_731257.elts[10] = ((closureN)self_731057)->elts[8];

return_closcall1(data,(closure)&c_731257,  boolean_f);; 
}

static void __lambda_60(void *data, int argc, object self_731058, object loop_73238) {
  
closureN_type c_731259;
c_731259.hdr.mark = gc_color_red;
 c_731259.hdr.grayed = 0;
c_731259.tag = closureN_tag;
 c_731259.fn = (function_type)__lambda_59;
c_731259.num_args = 1;
c_731259.num_elt = 11;
c_731259.elts = (object *)alloca(sizeof(object) * 11);
c_731259.elts[0] = ((closureN)self_731058)->elts[0];
c_731259.elts[1] = ((closureN)self_731058)->elts[1];
c_731259.elts[2] = ((closureN)self_731058)->elts[2];
c_731259.elts[3] = ((closureN)self_731058)->elts[3];
c_731259.elts[4] = ((closureN)self_731058)->elts[4];
c_731259.elts[5] = ((closureN)self_731058)->elts[5];
c_731259.elts[6] = ((closureN)self_731058)->elts[6];
c_731259.elts[7] = ((closureN)self_731058)->elts[7];
c_731259.elts[8] = ((closureN)self_731058)->elts[8];
c_731259.elts[9] = ((closureN)self_731058)->elts[9];
c_731259.elts[10] = ((closureN)self_731058)->elts[10];


make_cell(c_731375,loop_73238);
return_closcall1(data,(closure)&c_731259,  &c_731375);; 
}

static void __lambda_59(void *data, int argc, object self_731059, object loop_73238) {
  
closureN_type c_731261;
c_731261.hdr.mark = gc_color_red;
 c_731261.hdr.grayed = 0;
c_731261.tag = closureN_tag;
 c_731261.fn = (function_type)__lambda_32;
c_731261.num_args = 1;
c_731261.num_elt = 4;
c_731261.elts = (object *)alloca(sizeof(object) * 4);
c_731261.elts[0] = ((closureN)self_731059)->elts[1];
c_731261.elts[1] = ((closureN)self_731059)->elts[4];
c_731261.elts[2] = loop_73238;
c_731261.elts[3] = ((closureN)self_731059)->elts[7];


closureN_type c_731274;
c_731274.hdr.mark = gc_color_red;
 c_731274.hdr.grayed = 0;
c_731274.tag = closureN_tag;
 c_731274.fn = (function_type)__lambda_58;
c_731274.num_args = 2;
c_731274.num_elt = 9;
c_731274.elts = (object *)alloca(sizeof(object) * 9);
c_731274.elts[0] = ((closureN)self_731059)->elts[0];
c_731274.elts[1] = ((closureN)self_731059)->elts[2];
c_731274.elts[2] = ((closureN)self_731059)->elts[3];
c_731274.elts[3] = loop_73238;
c_731274.elts[4] = ((closureN)self_731059)->elts[5];
c_731274.elts[5] = ((closureN)self_731059)->elts[6];
c_731274.elts[6] = ((closureN)self_731059)->elts[8];
c_731274.elts[7] = ((closureN)self_731059)->elts[9];
c_731274.elts[8] = ((closureN)self_731059)->elts[10];

return_closcall1(data,(closure)&c_731261,  &c_731274);; 
}

static void __lambda_58(void *data, int argc, object self_731060, object k_73580, object i_73240, object result_73239) {
  
closureN_type c_731276;
c_731276.hdr.mark = gc_color_red;
 c_731276.hdr.grayed = 0;
c_731276.tag = closureN_tag;
 c_731276.fn = (function_type)__lambda_57;
c_731276.num_args = 1;
c_731276.num_elt = 11;
c_731276.elts = (object *)alloca(sizeof(object) * 11);
c_731276.elts[0] = i_73240;
c_731276.elts[1] = ((closureN)self_731060)->elts[1];
c_731276.elts[2] = ((closureN)self_731060)->elts[2];
c_731276.elts[3] = k_73580;
c_731276.elts[4] = ((closureN)self_731060)->elts[3];
c_731276.elts[5] = ((closureN)self_731060)->elts[4];
c_731276.elts[6] = ((closureN)self_731060)->elts[5];
c_731276.elts[7] = result_73239;
c_731276.elts[8] = ((closureN)self_731060)->elts[6];
c_731276.elts[9] = ((closureN)self_731060)->elts[7];
c_731276.elts[10] = ((closureN)self_731060)->elts[8];


object c_731371 = Cyc_num_lt(data,(closure)&c_731276,2,i_73240, ((closureN)self_731060)->elts[0]);
return_closcall1(data,(closure)&c_731276,  c_731371);; 
}

static void __lambda_57(void *data, int argc, object self_731061, object r_73581) {
  if( !eq(boolean_f, r_73581) ){ 
  
closureN_type c_731278;
c_731278.hdr.mark = gc_color_red;
 c_731278.hdr.grayed = 0;
c_731278.tag = closureN_tag;
 c_731278.fn = (function_type)__lambda_35;
c_731278.num_args = 0;
c_731278.num_elt = 4;
c_731278.elts = (object *)alloca(sizeof(object) * 4);
c_731278.elts[0] = ((closureN)self_731061)->elts[0];
c_731278.elts[1] = ((closureN)self_731061)->elts[3];
c_731278.elts[2] = ((closureN)self_731061)->elts[4];
c_731278.elts[3] = ((closureN)self_731061)->elts[10];

return_closcall0(data,(closure)&c_731278);
} else { 
  
closureN_type c_731296;
c_731296.hdr.mark = gc_color_red;
 c_731296.hdr.grayed = 0;
c_731296.tag = closureN_tag;
 c_731296.fn = (function_type)__lambda_56;
c_731296.num_args = 1;
c_731296.num_elt = 7;
c_731296.elts = (object *)alloca(sizeof(object) * 7);
c_731296.elts[0] = ((closureN)self_731061)->elts[1];
c_731296.elts[1] = ((closureN)self_731061)->elts[2];
c_731296.elts[2] = ((closureN)self_731061)->elts[3];
c_731296.elts[3] = ((closureN)self_731061)->elts[5];
c_731296.elts[4] = ((closureN)self_731061)->elts[7];
c_731296.elts[5] = ((closureN)self_731061)->elts[8];
c_731296.elts[6] = ((closureN)self_731061)->elts[9];

return_closcall2(data,  ((closureN)self_731061)->elts[6],  &c_731296, ((closureN)self_731061)->elts[7]);}
; 
}

static void __lambda_56(void *data, int argc, object self_731062, object r_73584) {
  if( !eq(boolean_f, r_73584) ){ 
  
closureN_type c_731298;
c_731298.hdr.mark = gc_color_red;
 c_731298.hdr.grayed = 0;
c_731298.tag = closureN_tag;
 c_731298.fn = (function_type)__lambda_51;
c_731298.num_args = 0;
c_731298.num_elt = 7;
c_731298.elts = (object *)alloca(sizeof(object) * 7);
c_731298.elts[0] = ((closureN)self_731062)->elts[0];
c_731298.elts[1] = ((closureN)self_731062)->elts[1];
c_731298.elts[2] = ((closureN)self_731062)->elts[2];
c_731298.elts[3] = ((closureN)self_731062)->elts[3];
c_731298.elts[4] = ((closureN)self_731062)->elts[4];
c_731298.elts[5] = ((closureN)self_731062)->elts[5];
c_731298.elts[6] = ((closureN)self_731062)->elts[6];

return_closcall0(data,(closure)&c_731298);
} else { 
  
closureN_type c_731356;
c_731356.hdr.mark = gc_color_red;
 c_731356.hdr.grayed = 0;
c_731356.tag = closureN_tag;
 c_731356.fn = (function_type)__lambda_55;
c_731356.num_args = 0;
c_731356.num_elt = 2;
c_731356.elts = (object *)alloca(sizeof(object) * 2);
c_731356.elts[0] = ((closureN)self_731062)->elts[2];
c_731356.elts[1] = ((closureN)self_731062)->elts[4];

return_closcall0(data,(closure)&c_731356);}
; 
}

static void __lambda_55(void *data, int argc, object self_731063) {
  
closureN_type c_731358;
c_731358.hdr.mark = gc_color_red;
 c_731358.hdr.grayed = 0;
c_731358.tag = closureN_tag;
 c_731358.fn = (function_type)__lambda_54;
c_731358.num_args = 1;
c_731358.num_elt = 2;
c_731358.elts = (object *)alloca(sizeof(object) * 2);
c_731358.elts[0] = ((closureN)self_731063)->elts[0];
c_731358.elts[1] = ((closureN)self_731063)->elts[1];


make_string(c_731367, "ERROR: returned incorrect result: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731358, &c_731367);; 
}

static void __lambda_54(void *data, int argc, object self_731064, object r_73599) {
  
closureN_type c_731360;
c_731360.hdr.mark = gc_color_red;
 c_731360.hdr.grayed = 0;
c_731360.tag = closureN_tag;
 c_731360.fn = (function_type)__lambda_53;
c_731360.num_args = 1;
c_731360.num_elt = 2;
c_731360.elts = (object *)alloca(sizeof(object) * 2);
c_731360.elts[0] = ((closureN)self_731064)->elts[0];
c_731360.elts[1] = ((closureN)self_731064)->elts[1];

return_closcall2(data,  __glo_write_scheme_write,  &c_731360, ((closureN)self_731064)->elts[1]);; 
}

static void __lambda_53(void *data, int argc, object self_731065, object r_73600) {
  
closureN_type c_731362;
c_731362.hdr.mark = gc_color_red;
 c_731362.hdr.grayed = 0;
c_731362.tag = closureN_tag;
 c_731362.fn = (function_type)__lambda_52;
c_731362.num_args = 1;
c_731362.num_elt = 2;
c_731362.elts = (object *)alloca(sizeof(object) * 2);
c_731362.elts[0] = ((closureN)self_731065)->elts[0];
c_731362.elts[1] = ((closureN)self_731065)->elts[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731362);; 
}

static void __lambda_52(void *data, int argc, object self_731066, object r_73601) {
  return_closcall1(data,  ((closureN)self_731066)->elts[0],  ((closureN)self_731066)->elts[1]);; 
}

static void __lambda_51(void *data, int argc, object self_731067) {
  
closureN_type c_731300;
c_731300.hdr.mark = gc_color_red;
 c_731300.hdr.grayed = 0;
c_731300.tag = closureN_tag;
 c_731300.fn = (function_type)__lambda_50;
c_731300.num_args = 1;
c_731300.num_elt = 7;
c_731300.elts = (object *)alloca(sizeof(object) * 7);
c_731300.elts[0] = ((closureN)self_731067)->elts[0];
c_731300.elts[1] = ((closureN)self_731067)->elts[1];
c_731300.elts[2] = ((closureN)self_731067)->elts[2];
c_731300.elts[3] = ((closureN)self_731067)->elts[3];
c_731300.elts[4] = ((closureN)self_731067)->elts[4];
c_731300.elts[5] = ((closureN)self_731067)->elts[5];
c_731300.elts[6] = ((closureN)self_731067)->elts[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_731300);; 
}

static void __lambda_50(void *data, int argc, object self_731068, object j1_73241) {
  
closureN_type c_731302;
c_731302.hdr.mark = gc_color_red;
 c_731302.hdr.grayed = 0;
c_731302.tag = closureN_tag;
 c_731302.fn = (function_type)__lambda_49;
c_731302.num_args = 1;
c_731302.num_elt = 8;
c_731302.elts = (object *)alloca(sizeof(object) * 8);
c_731302.elts[0] = ((closureN)self_731068)->elts[0];
c_731302.elts[1] = ((closureN)self_731068)->elts[1];
c_731302.elts[2] = j1_73241;
c_731302.elts[3] = ((closureN)self_731068)->elts[2];
c_731302.elts[4] = ((closureN)self_731068)->elts[3];
c_731302.elts[5] = ((closureN)self_731068)->elts[4];
c_731302.elts[6] = ((closureN)self_731068)->elts[5];
c_731302.elts[7] = ((closureN)self_731068)->elts[6];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_731302);; 
}

static void __lambda_49(void *data, int argc, object self_731069, object t1_73242) {
  
closureN_type c_731304;
c_731304.hdr.mark = gc_color_red;
 c_731304.hdr.grayed = 0;
c_731304.tag = closureN_tag;
 c_731304.fn = (function_type)__lambda_48;
c_731304.num_args = 1;
c_731304.num_elt = 7;
c_731304.elts = (object *)alloca(sizeof(object) * 7);
c_731304.elts[0] = ((closureN)self_731069)->elts[0];
c_731304.elts[1] = ((closureN)self_731069)->elts[3];
c_731304.elts[2] = ((closureN)self_731069)->elts[4];
c_731304.elts[3] = ((closureN)self_731069)->elts[5];
c_731304.elts[4] = ((closureN)self_731069)->elts[6];
c_731304.elts[5] = ((closureN)self_731069)->elts[7];
c_731304.elts[6] = t1_73242;


object c_731352 = Cyc_sub(data,(closure)&c_731304,2,((closureN)self_731069)->elts[2], ((closureN)self_731069)->elts[1]);
return_closcall1(data,(closure)&c_731304,  c_731352);; 
}

static void __lambda_48(void *data, int argc, object self_731070, object jifs_73243) {
  
closureN_type c_731306;
c_731306.hdr.mark = gc_color_red;
 c_731306.hdr.grayed = 0;
c_731306.tag = closureN_tag;
 c_731306.fn = (function_type)__lambda_47;
c_731306.num_args = 1;
c_731306.num_elt = 6;
c_731306.elts = (object *)alloca(sizeof(object) * 6);
c_731306.elts[0] = ((closureN)self_731070)->elts[1];
c_731306.elts[1] = ((closureN)self_731070)->elts[2];
c_731306.elts[2] = ((closureN)self_731070)->elts[3];
c_731306.elts[3] = ((closureN)self_731070)->elts[4];
c_731306.elts[4] = ((closureN)self_731070)->elts[5];
c_731306.elts[5] = ((closureN)self_731070)->elts[6];


object c_731348 = Cyc_div(data,(closure)&c_731306,2,jifs_73243, ((closureN)self_731070)->elts[0]);
return_closcall1(data,(closure)&c_731306,  c_731348);; 
}

static void __lambda_47(void *data, int argc, object self_731071, object r_73598) {
  
closureN_type c_731308;
c_731308.hdr.mark = gc_color_red;
 c_731308.hdr.grayed = 0;
c_731308.tag = closureN_tag;
 c_731308.fn = (function_type)__lambda_46;
c_731308.num_args = 1;
c_731308.num_elt = 6;
c_731308.elts = (object *)alloca(sizeof(object) * 6);
c_731308.elts[0] = ((closureN)self_731071)->elts[0];
c_731308.elts[1] = ((closureN)self_731071)->elts[1];
c_731308.elts[2] = ((closureN)self_731071)->elts[2];
c_731308.elts[3] = ((closureN)self_731071)->elts[3];
c_731308.elts[4] = ((closureN)self_731071)->elts[4];
c_731308.elts[5] = ((closureN)self_731071)->elts[5];

return_closcall2(data,  __glo_inexact_scheme_base,  &c_731308, r_73598);; 
}

static void __lambda_46(void *data, int argc, object self_731072, object secs_73244) {
  
closureN_type c_731310;
c_731310.hdr.mark = gc_color_red;
 c_731310.hdr.grayed = 0;
c_731310.tag = closureN_tag;
 c_731310.fn = (function_type)__lambda_45;
c_731310.num_args = 1;
c_731310.num_elt = 5;
c_731310.elts = (object *)alloca(sizeof(object) * 5);
c_731310.elts[0] = ((closureN)self_731072)->elts[0];
c_731310.elts[1] = ((closureN)self_731072)->elts[1];
c_731310.elts[2] = ((closureN)self_731072)->elts[2];
c_731310.elts[3] = ((closureN)self_731072)->elts[3];
c_731310.elts[4] = secs_73244;


object c_731343 = Cyc_sub(data,(closure)&c_731310,2,((closureN)self_731072)->elts[5], ((closureN)self_731072)->elts[4]);
return_closcall1(data,(closure)&c_731310,  c_731343);; 
}

static void __lambda_45(void *data, int argc, object self_731073, object r_73597) {
  
closureN_type c_731315;
c_731315.hdr.mark = gc_color_red;
 c_731315.hdr.grayed = 0;
c_731315.tag = closureN_tag;
 c_731315.fn = (function_type)__lambda_44;
c_731315.num_args = 1;
c_731315.num_elt = 4;
c_731315.elts = (object *)alloca(sizeof(object) * 4);
c_731315.elts[0] = ((closureN)self_731073)->elts[0];
c_731315.elts[1] = ((closureN)self_731073)->elts[1];
c_731315.elts[2] = ((closureN)self_731073)->elts[2];
c_731315.elts[3] = ((closureN)self_731073)->elts[4];

return_closcall2(data,  cell_get(((closureN)self_731073)->elts[3]),  &c_731315, r_73597);; 
}

static void __lambda_44(void *data, int argc, object self_731074, object secs2_73245) {
  
closureN_type c_731317;
c_731317.hdr.mark = gc_color_red;
 c_731317.hdr.grayed = 0;
c_731317.tag = closureN_tag;
 c_731317.fn = (function_type)__lambda_43;
c_731317.num_args = 0;
c_731317.num_elt = 5;
c_731317.elts = (object *)alloca(sizeof(object) * 5);
c_731317.elts[0] = ((closureN)self_731074)->elts[0];
c_731317.elts[1] = ((closureN)self_731074)->elts[1];
c_731317.elts[2] = ((closureN)self_731074)->elts[2];
c_731317.elts[3] = ((closureN)self_731074)->elts[3];
c_731317.elts[4] = secs2_73245;

return_closcall0(data,(closure)&c_731317);; 
}

static void __lambda_43(void *data, int argc, object self_731075) {
  
closureN_type c_731319;
c_731319.hdr.mark = gc_color_red;
 c_731319.hdr.grayed = 0;
c_731319.tag = closureN_tag;
 c_731319.fn = (function_type)__lambda_42;
c_731319.num_args = 1;
c_731319.num_elt = 5;
c_731319.elts = (object *)alloca(sizeof(object) * 5);
c_731319.elts[0] = ((closureN)self_731075)->elts[0];
c_731319.elts[1] = ((closureN)self_731075)->elts[1];
c_731319.elts[2] = ((closureN)self_731075)->elts[2];
c_731319.elts[3] = ((closureN)self_731075)->elts[3];
c_731319.elts[4] = ((closureN)self_731075)->elts[4];


make_string(c_731340, "Elapsed time: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731319, &c_731340);; 
}

static void __lambda_42(void *data, int argc, object self_731076, object r_73591) {
  
closureN_type c_731321;
c_731321.hdr.mark = gc_color_red;
 c_731321.hdr.grayed = 0;
c_731321.tag = closureN_tag;
 c_731321.fn = (function_type)__lambda_41;
c_731321.num_args = 1;
c_731321.num_elt = 4;
c_731321.elts = (object *)alloca(sizeof(object) * 4);
c_731321.elts[0] = ((closureN)self_731076)->elts[0];
c_731321.elts[1] = ((closureN)self_731076)->elts[1];
c_731321.elts[2] = ((closureN)self_731076)->elts[2];
c_731321.elts[3] = ((closureN)self_731076)->elts[4];

return_closcall2(data,  __glo_write_scheme_write,  &c_731321, ((closureN)self_731076)->elts[3]);; 
}

static void __lambda_41(void *data, int argc, object self_731077, object r_73592) {
  
closureN_type c_731323;
c_731323.hdr.mark = gc_color_red;
 c_731323.hdr.grayed = 0;
c_731323.tag = closureN_tag;
 c_731323.fn = (function_type)__lambda_40;
c_731323.num_args = 1;
c_731323.num_elt = 4;
c_731323.elts = (object *)alloca(sizeof(object) * 4);
c_731323.elts[0] = ((closureN)self_731077)->elts[0];
c_731323.elts[1] = ((closureN)self_731077)->elts[1];
c_731323.elts[2] = ((closureN)self_731077)->elts[2];
c_731323.elts[3] = ((closureN)self_731077)->elts[3];


make_string(c_731338, " seconds (");
return_closcall2(data,  __glo_display_scheme_write,  &c_731323, &c_731338);; 
}

static void __lambda_40(void *data, int argc, object self_731078, object r_73593) {
  
closureN_type c_731325;
c_731325.hdr.mark = gc_color_red;
 c_731325.hdr.grayed = 0;
c_731325.tag = closureN_tag;
 c_731325.fn = (function_type)__lambda_39;
c_731325.num_args = 1;
c_731325.num_elt = 3;
c_731325.elts = (object *)alloca(sizeof(object) * 3);
c_731325.elts[0] = ((closureN)self_731078)->elts[0];
c_731325.elts[1] = ((closureN)self_731078)->elts[1];
c_731325.elts[2] = ((closureN)self_731078)->elts[2];

return_closcall2(data,  __glo_write_scheme_write,  &c_731325, ((closureN)self_731078)->elts[3]);; 
}

static void __lambda_39(void *data, int argc, object self_731079, object r_73594) {
  
closureN_type c_731327;
c_731327.hdr.mark = gc_color_red;
 c_731327.hdr.grayed = 0;
c_731327.tag = closureN_tag;
 c_731327.fn = (function_type)__lambda_38;
c_731327.num_args = 1;
c_731327.num_elt = 3;
c_731327.elts = (object *)alloca(sizeof(object) * 3);
c_731327.elts[0] = ((closureN)self_731079)->elts[0];
c_731327.elts[1] = ((closureN)self_731079)->elts[1];
c_731327.elts[2] = ((closureN)self_731079)->elts[2];


make_string(c_731336, ") for ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731327, &c_731336);; 
}

static void __lambda_38(void *data, int argc, object self_731080, object r_73595) {
  
closureN_type c_731329;
c_731329.hdr.mark = gc_color_red;
 c_731329.hdr.grayed = 0;
c_731329.tag = closureN_tag;
 c_731329.fn = (function_type)__lambda_37;
c_731329.num_args = 1;
c_731329.num_elt = 2;
c_731329.elts = (object *)alloca(sizeof(object) * 2);
c_731329.elts[0] = ((closureN)self_731080)->elts[0];
c_731329.elts[1] = ((closureN)self_731080)->elts[2];

return_closcall2(data,  __glo_display_scheme_write,  &c_731329, ((closureN)self_731080)->elts[1]);; 
}

static void __lambda_37(void *data, int argc, object self_731081, object r_73596) {
  
closureN_type c_731331;
c_731331.hdr.mark = gc_color_red;
 c_731331.hdr.grayed = 0;
c_731331.tag = closureN_tag;
 c_731331.fn = (function_type)__lambda_36;
c_731331.num_args = 1;
c_731331.num_elt = 2;
c_731331.elts = (object *)alloca(sizeof(object) * 2);
c_731331.elts[0] = ((closureN)self_731081)->elts[0];
c_731331.elts[1] = ((closureN)self_731081)->elts[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731331);; 
}

static void __lambda_36(void *data, int argc, object self_731082, object r_73585) {
  return_closcall1(data,  ((closureN)self_731082)->elts[0],  ((closureN)self_731082)->elts[1]);; 
}

static void __lambda_35(void *data, int argc, object self_731083) {
  
closureN_type c_731280;
c_731280.hdr.mark = gc_color_red;
 c_731280.hdr.grayed = 0;
c_731280.tag = closureN_tag;
 c_731280.fn = (function_type)__lambda_34;
c_731280.num_args = 1;
c_731280.num_elt = 3;
c_731280.elts = (object *)alloca(sizeof(object) * 3);
c_731280.elts[0] = ((closureN)self_731083)->elts[1];
c_731280.elts[1] = ((closureN)self_731083)->elts[2];
c_731280.elts[2] = ((closureN)self_731083)->elts[3];


object c_731292 = Cyc_sum(data,(closure)&c_731280,2,((closureN)self_731083)->elts[0], obj_int2obj(1));
return_closcall1(data,(closure)&c_731280,  c_731292);; 
}

static void __lambda_34(void *data, int argc, object self_731084, object r_73582) {
  
closureN_type c_731283;
c_731283.hdr.mark = gc_color_red;
 c_731283.hdr.grayed = 0;
c_731283.tag = closureN_tag;
 c_731283.fn = (function_type)__lambda_33;
c_731283.num_args = 1;
c_731283.num_elt = 3;
c_731283.elts = (object *)alloca(sizeof(object) * 3);
c_731283.elts[0] = ((closureN)self_731084)->elts[0];
c_731283.elts[1] = ((closureN)self_731084)->elts[1];
c_731283.elts[2] = r_73582;

return_closcall1(data,  ((closureN)self_731084)->elts[2],  &c_731283);; 
}

static void __lambda_33(void *data, int argc, object self_731085, object r_73583) {
  return_closcall3(data,  cell_get(((closureN)self_731085)->elts[1]),  ((closureN)self_731085)->elts[0], ((closureN)self_731085)->elts[2], r_73583);; 
}

static void __lambda_32(void *data, int argc, object self_731086, object r_73579) {
  
closureN_type c_731263;
c_731263.hdr.mark = gc_color_red;
 c_731263.hdr.grayed = 0;
c_731263.tag = closureN_tag;
 c_731263.fn = (function_type)__lambda_31;
c_731263.num_args = 1;
c_731263.num_elt = 4;
c_731263.elts = (object *)alloca(sizeof(object) * 4);
c_731263.elts[0] = ((closureN)self_731086)->elts[0];
c_731263.elts[1] = ((closureN)self_731086)->elts[1];
c_731263.elts[2] = ((closureN)self_731086)->elts[2];
c_731263.elts[3] = ((closureN)self_731086)->elts[3];

return_closcall1(data,(closure)&c_731263,  Cyc_set_car(data, ((closureN)self_731086)->elts[2], r_73579));; 
}

static void __lambda_31(void *data, int argc, object self_731087, object r_73578) {
  return_closcall3(data,  cell_get(((closureN)self_731087)->elts[2]),  ((closureN)self_731087)->elts[1], ((closureN)self_731087)->elts[0], ((closureN)self_731087)->elts[3]);; 
}

static void __lambda_30(void *data, int argc, closure _,object k_73602) {
  Cyc_st_add(data, "nboyer.scm:run-r7rs-benchmark");
if( !eq(boolean_f, boolean_f) ){ 
  return_closcall1(data,  k_73602,  boolean_f);
} else { 
  return_closcall1(data,  k_73602,  boolean_f);}
; 
}

static void __lambda_29(void *data, int argc, closure _,object k_73609, object r_73248, object x_73247) {
  Cyc_st_add(data, "nboyer.scm:hide");

closureN_type c_731186;
c_731186.hdr.mark = gc_color_red;
 c_731186.hdr.grayed = 0;
c_731186.tag = closureN_tag;
 c_731186.fn = (function_type)__lambda_21;
c_731186.num_args = 1;
c_731186.num_elt = 2;
c_731186.elts = (object *)alloca(sizeof(object) * 2);
c_731186.elts[0] = k_73609;
c_731186.elts[1] = x_73247;


closureN_type c_731200;
c_731200.hdr.mark = gc_color_red;
 c_731200.hdr.grayed = 0;
c_731200.tag = closureN_tag;
 c_731200.fn = (function_type)__lambda_28;
c_731200.num_args = 0;
c_731200.num_elt = 1;
c_731200.elts = (object *)alloca(sizeof(object) * 1);
c_731200.elts[0] = r_73248;

return_closcall1(data,(closure)&c_731186,  &c_731200);; 
}

static void __lambda_28(void *data, int argc, object self_731088, object k_73614) {
  
closureN_type c_731202;
c_731202.hdr.mark = gc_color_red;
 c_731202.hdr.grayed = 0;
c_731202.tag = closureN_tag;
 c_731202.fn = (function_type)__lambda_26;
c_731202.num_args = 1;
c_731202.num_elt = 2;
c_731202.elts = (object *)alloca(sizeof(object) * 2);
c_731202.elts[0] = k_73614;
c_731202.elts[1] = ((closureN)self_731088)->elts[0];


mclosure0(c_731221, (function_type)__lambda_27);c_731221.num_args = 1;
return_closcall1(data,(closure)&c_731202,  &c_731221);; 
}

static void __lambda_27(void *data, int argc, object self_731089, object k_73620, object x_73251) {
  return_closcall1(data,  k_73620,  x_73251);; 
}

static void __lambda_26(void *data, int argc, object self_731090, object r_73619) {
  
closureN_type c_731204;
c_731204.hdr.mark = gc_color_red;
 c_731204.hdr.grayed = 0;
c_731204.tag = closureN_tag;
 c_731204.fn = (function_type)__lambda_25;
c_731204.num_args = 1;
c_731204.num_elt = 2;
c_731204.elts = (object *)alloca(sizeof(object) * 2);
c_731204.elts[0] = ((closureN)self_731090)->elts[0];
c_731204.elts[1] = ((closureN)self_731090)->elts[1];

return_closcall3(data,  __glo_vector_scheme_base,  &c_731204, __glo_values_scheme_base, r_73619);; 
}

static void __lambda_25(void *data, int argc, object self_731091, object r_73615) {
  
closureN_type c_731206;
c_731206.hdr.mark = gc_color_red;
 c_731206.hdr.grayed = 0;
c_731206.tag = closureN_tag;
 c_731206.fn = (function_type)__lambda_23;
c_731206.num_args = 0;
c_731206.num_elt = 1;
c_731206.elts = (object *)alloca(sizeof(object) * 1);
c_731206.elts[0] = ((closureN)self_731091)->elts[1];


closureN_type c_731217;
c_731217.hdr.mark = gc_color_red;
 c_731217.hdr.grayed = 0;
c_731217.tag = closureN_tag;
 c_731217.fn = (function_type)__lambda_24;
c_731217.num_args = 1;
c_731217.num_elt = 2;
c_731217.elts = (object *)alloca(sizeof(object) * 2);
c_731217.elts[0] = ((closureN)self_731091)->elts[0];
c_731217.elts[1] = r_73615;

return_closcall1(data,(closure)&c_731206,  &c_731217);; 
}

static void __lambda_24(void *data, int argc, object self_731092, object r_73616) {
  return_closcall3(data,  __glo_values_scheme_base,  ((closureN)self_731092)->elts[0], ((closureN)self_731092)->elts[1], r_73616);; 
}

static void __lambda_23(void *data, int argc, object self_731093, object k_73617) {
  
closureN_type c_731208;
c_731208.hdr.mark = gc_color_red;
 c_731208.hdr.grayed = 0;
c_731208.tag = closureN_tag;
 c_731208.fn = (function_type)__lambda_22;
c_731208.num_args = 1;
c_731208.num_elt = 1;
c_731208.elts = (object *)alloca(sizeof(object) * 1);
c_731208.elts[0] = k_73617;


object c_731215 = Cyc_num_lt(data,(closure)&c_731208,2,((closureN)self_731093)->elts[0], obj_int2obj(100));
return_closcall1(data,(closure)&c_731208,  c_731215);; 
}

static void __lambda_22(void *data, int argc, object self_731094, object r_73618) {
  if( !eq(boolean_f, r_73618) ){ 
  return_closcall1(data,  ((closureN)self_731094)->elts[0],  obj_int2obj(0));
} else { 
  return_closcall1(data,  ((closureN)self_731094)->elts[0],  obj_int2obj(1));}
; 
}

static void __lambda_21(void *data, int argc, object self_731095, object r_73610) {
  
closureN_type c_731188;
c_731188.hdr.mark = gc_color_red;
 c_731188.hdr.grayed = 0;
c_731188.tag = closureN_tag;
 c_731188.fn = (function_type)__lambda_18;
c_731188.num_args = 1;
c_731188.num_elt = 2;
c_731188.elts = (object *)alloca(sizeof(object) * 2);
c_731188.elts[0] = ((closureN)self_731095)->elts[0];
c_731188.elts[1] = r_73610;


closureN_type c_731192;
c_731192.hdr.mark = gc_color_red;
 c_731192.hdr.grayed = 0;
c_731192.tag = closureN_tag;
 c_731192.fn = (function_type)__lambda_20;
c_731192.num_args = 2;
c_731192.num_elt = 1;
c_731192.elts = (object *)alloca(sizeof(object) * 1);
c_731192.elts[0] = ((closureN)self_731095)->elts[1];

return_closcall1(data,(closure)&c_731188,  &c_731192);; 
}

static void __lambda_20(void *data, int argc, object self_731096, object k_73612, object v_73250, object i_73249) {
  
closureN_type c_731194;
c_731194.hdr.mark = gc_color_red;
 c_731194.hdr.grayed = 0;
c_731194.tag = closureN_tag;
 c_731194.fn = (function_type)__lambda_19;
c_731194.num_args = 1;
c_731194.num_elt = 2;
c_731194.elts = (object *)alloca(sizeof(object) * 2);
c_731194.elts[0] = k_73612;
c_731194.elts[1] = ((closureN)self_731096)->elts[0];

return_closcall1(data,(closure)&c_731194,  Cyc_vector_ref(data, v_73250, i_73249));; 
}

static void __lambda_19(void *data, int argc, object self_731097, object r_73613) {
  return_closcall2(data,  r_73613,  ((closureN)self_731097)->elts[0], ((closureN)self_731097)->elts[1]);; 
}

static void __lambda_18(void *data, int argc, object self_731098, object r_73611) {
  return_closcall3(data,  __glo_call_91with_91values_scheme_base,  ((closureN)self_731098)->elts[0], ((closureN)self_731098)->elts[1], r_73611);; 
}

static void __lambda_17(void *data, int argc, closure _,object k_73623, object args_73252_raw, ...) {
load_varargs(args_73252, args_73252_raw, argc - 1);
  Cyc_st_add(data, "nboyer.scm:test-boyer");
return_closcall1(data,  k_73623,  boolean_t);; 
}

static void __lambda_16(void *data, int argc, closure _,object k_73626, object args_73253_raw, ...) {
load_varargs(args_73253, args_73253_raw, argc - 1);
  Cyc_st_add(data, "nboyer.scm:setup-boyer");
return_closcall1(data,  k_73626,  boolean_t);; 
}

static void __lambda_15(void *data, int argc, closure _,object k_73633) {
  Cyc_st_add(data, "nboyer.scm:main");

closureN_type c_731116;
c_731116.hdr.mark = gc_color_red;
 c_731116.hdr.grayed = 0;
c_731116.tag = closureN_tag;
 c_731116.fn = (function_type)__lambda_14;
c_731116.num_args = 1;
c_731116.num_elt = 1;
c_731116.elts = (object *)alloca(sizeof(object) * 1);
c_731116.elts[0] = k_73633;

return_closcall1(data,  __glo_read_scheme_read,  &c_731116);; 
}

static void __lambda_14(void *data, int argc, object self_731099, object count_73254) {
  
closureN_type c_731118;
c_731118.hdr.mark = gc_color_red;
 c_731118.hdr.grayed = 0;
c_731118.tag = closureN_tag;
 c_731118.fn = (function_type)__lambda_13;
c_731118.num_args = 1;
c_731118.num_elt = 2;
c_731118.elts = (object *)alloca(sizeof(object) * 2);
c_731118.elts[0] = count_73254;
c_731118.elts[1] = ((closureN)self_731099)->elts[0];

return_closcall1(data,  __glo_read_scheme_read,  &c_731118);; 
}

static void __lambda_13(void *data, int argc, object self_731100, object input_73255) {
  
closureN_type c_731120;
c_731120.hdr.mark = gc_color_red;
 c_731120.hdr.grayed = 0;
c_731120.tag = closureN_tag;
 c_731120.fn = (function_type)__lambda_12;
c_731120.num_args = 1;
c_731120.num_elt = 3;
c_731120.elts = (object *)alloca(sizeof(object) * 3);
c_731120.elts[0] = ((closureN)self_731100)->elts[0];
c_731120.elts[1] = input_73255;
c_731120.elts[2] = ((closureN)self_731100)->elts[1];

return_closcall1(data,  __glo_read_scheme_read,  &c_731120);; 
}

static void __lambda_12(void *data, int argc, object self_731101, object output_73256) {
  
closureN_type c_731122;
c_731122.hdr.mark = gc_color_red;
 c_731122.hdr.grayed = 0;
c_731122.tag = closureN_tag;
 c_731122.fn = (function_type)__lambda_11;
c_731122.num_args = 1;
c_731122.num_elt = 4;
c_731122.elts = (object *)alloca(sizeof(object) * 4);
c_731122.elts[0] = ((closureN)self_731101)->elts[0];
c_731122.elts[1] = ((closureN)self_731101)->elts[1];
c_731122.elts[2] = ((closureN)self_731101)->elts[2];
c_731122.elts[3] = output_73256;


object c_731178 = Cyc_number2string2(data,(closure)&c_731122,1,((closureN)self_731101)->elts[0]);
return_closcall1(data,(closure)&c_731122,  c_731178);; 
}

static void __lambda_11(void *data, int argc, object self_731102, object s2_73257) {
  
closureN_type c_731124;
c_731124.hdr.mark = gc_color_red;
 c_731124.hdr.grayed = 0;
c_731124.tag = closureN_tag;
 c_731124.fn = (function_type)__lambda_10;
c_731124.num_args = 1;
c_731124.num_elt = 5;
c_731124.elts = (object *)alloca(sizeof(object) * 5);
c_731124.elts[0] = ((closureN)self_731102)->elts[0];
c_731124.elts[1] = ((closureN)self_731102)->elts[1];
c_731124.elts[2] = ((closureN)self_731102)->elts[2];
c_731124.elts[3] = ((closureN)self_731102)->elts[3];
c_731124.elts[4] = s2_73257;


object c_731174 = Cyc_number2string2(data,(closure)&c_731124,1,((closureN)self_731102)->elts[1]);
return_closcall1(data,(closure)&c_731124,  c_731174);; 
}

static void __lambda_10(void *data, int argc, object self_731103, object s1_73258) {
  
closureN_type c_731126;
c_731126.hdr.mark = gc_color_red;
 c_731126.hdr.grayed = 0;
c_731126.tag = closureN_tag;
 c_731126.fn = (function_type)__lambda_9;
c_731126.num_args = 1;
c_731126.num_elt = 6;
c_731126.elts = (object *)alloca(sizeof(object) * 6);
c_731126.elts[0] = ((closureN)self_731103)->elts[0];
c_731126.elts[1] = ((closureN)self_731103)->elts[1];
c_731126.elts[2] = ((closureN)self_731103)->elts[2];
c_731126.elts[3] = ((closureN)self_731103)->elts[3];
c_731126.elts[4] = s1_73258;
c_731126.elts[5] = ((closureN)self_731103)->elts[4];


make_string(c_731171, "nboyer");
return_closcall1(data,(closure)&c_731126,  &c_731171);; 
}

static void __lambda_9(void *data, int argc, object self_731104, object name_73259) {
  
closureN_type c_731128;
c_731128.hdr.mark = gc_color_red;
 c_731128.hdr.grayed = 0;
c_731128.tag = closureN_tag;
 c_731128.fn = (function_type)__lambda_8;
c_731128.num_args = 0;
c_731128.num_elt = 7;
c_731128.elts = (object *)alloca(sizeof(object) * 7);
c_731128.elts[0] = ((closureN)self_731104)->elts[0];
c_731128.elts[1] = ((closureN)self_731104)->elts[1];
c_731128.elts[2] = ((closureN)self_731104)->elts[2];
c_731128.elts[3] = name_73259;
c_731128.elts[4] = ((closureN)self_731104)->elts[3];
c_731128.elts[5] = ((closureN)self_731104)->elts[4];
c_731128.elts[6] = ((closureN)self_731104)->elts[5];

return_closcall0(data,(closure)&c_731128);; 
}

static void __lambda_8(void *data, int argc, object self_731105) {
  
closureN_type c_731130;
c_731130.hdr.mark = gc_color_red;
 c_731130.hdr.grayed = 0;
c_731130.tag = closureN_tag;
 c_731130.fn = (function_type)__lambda_7;
c_731130.num_args = 1;
c_731130.num_elt = 4;
c_731130.elts = (object *)alloca(sizeof(object) * 4);
c_731130.elts[0] = ((closureN)self_731105)->elts[0];
c_731130.elts[1] = ((closureN)self_731105)->elts[1];
c_731130.elts[2] = ((closureN)self_731105)->elts[2];
c_731130.elts[3] = ((closureN)self_731105)->elts[4];


make_string(c_731167, ":");

make_string(c_731169, ":");

object c_731165 = Cyc_string_append(data,(closure)&c_731130,5,((closureN)self_731105)->elts[3], &c_731167, ((closureN)self_731105)->elts[5], &c_731169, ((closureN)self_731105)->elts[6]);
return_closcall1(data,(closure)&c_731130,  c_731165);; 
}

static void __lambda_7(void *data, int argc, object self_731106, object r_73639) {
  
closureN_type c_731132;
c_731132.hdr.mark = gc_color_red;
 c_731132.hdr.grayed = 0;
c_731132.tag = closureN_tag;
 c_731132.fn = (function_type)__lambda_3;
c_731132.num_args = 1;
c_731132.num_elt = 4;
c_731132.elts = (object *)alloca(sizeof(object) * 4);
c_731132.elts[0] = ((closureN)self_731106)->elts[0];
c_731132.elts[1] = ((closureN)self_731106)->elts[2];
c_731132.elts[2] = ((closureN)self_731106)->elts[3];
c_731132.elts[3] = r_73639;


closureN_type c_731154;
c_731154.hdr.mark = gc_color_red;
 c_731154.hdr.grayed = 0;
c_731154.tag = closureN_tag;
 c_731154.fn = (function_type)__lambda_6;
c_731154.num_args = 0;
c_731154.num_elt = 2;
c_731154.elts = (object *)alloca(sizeof(object) * 2);
c_731154.elts[0] = ((closureN)self_731106)->elts[0];
c_731154.elts[1] = ((closureN)self_731106)->elts[1];

return_closcall1(data,(closure)&c_731132,  &c_731154);; 
}

static void __lambda_6(void *data, int argc, object self_731107, object k_73644) {
  
closureN_type c_731156;
c_731156.hdr.mark = gc_color_red;
 c_731156.hdr.grayed = 0;
c_731156.tag = closureN_tag;
 c_731156.fn = (function_type)__lambda_5;
c_731156.num_args = 1;
c_731156.num_elt = 3;
c_731156.elts = (object *)alloca(sizeof(object) * 3);
c_731156.elts[0] = ((closureN)self_731107)->elts[0];
c_731156.elts[1] = ((closureN)self_731107)->elts[1];
c_731156.elts[2] = k_73644;

return_closcall1(data,  __glo_setup_91boyer,  &c_731156);; 
}

static void __lambda_5(void *data, int argc, object self_731108, object r_73645) {
  
closureN_type c_731158;
c_731158.hdr.mark = gc_color_red;
 c_731158.hdr.grayed = 0;
c_731158.tag = closureN_tag;
 c_731158.fn = (function_type)__lambda_4;
c_731158.num_args = 1;
c_731158.num_elt = 1;
c_731158.elts = (object *)alloca(sizeof(object) * 1);
c_731158.elts[0] = ((closureN)self_731108)->elts[2];

return_closcall3(data,  __glo_hide,  &c_731158, ((closureN)self_731108)->elts[0], ((closureN)self_731108)->elts[1]);; 
}

static void __lambda_4(void *data, int argc, object self_731109, object r_73646) {
  return_closcall4(data,  __glo_test_91boyer,  ((closureN)self_731109)->elts[0], __glo_alist, __glo_term, r_73646);; 
}

static void __lambda_3(void *data, int argc, object self_731110, object r_73640) {
  
closureN_type c_731134;
c_731134.hdr.mark = gc_color_red;
 c_731134.hdr.grayed = 0;
c_731134.tag = closureN_tag;
 c_731134.fn = (function_type)__lambda_0;
c_731134.num_args = 1;
c_731134.num_elt = 4;
c_731134.elts = (object *)alloca(sizeof(object) * 4);
c_731134.elts[0] = ((closureN)self_731110)->elts[0];
c_731134.elts[1] = ((closureN)self_731110)->elts[1];
c_731134.elts[2] = ((closureN)self_731110)->elts[3];
c_731134.elts[3] = r_73640;


closureN_type c_731140;
c_731140.hdr.mark = gc_color_red;
 c_731140.hdr.grayed = 0;
c_731140.tag = closureN_tag;
 c_731140.fn = (function_type)__lambda_2;
c_731140.num_args = 1;
c_731140.num_elt = 1;
c_731140.elts = (object *)alloca(sizeof(object) * 1);
c_731140.elts[0] = ((closureN)self_731110)->elts[2];

return_closcall1(data,(closure)&c_731134,  &c_731140);; 
}

static void __lambda_2(void *data, int argc, object self_731111, object k_73642, object rewrites_73260) {
  
closureN_type c_731142;
c_731142.hdr.mark = gc_color_red;
 c_731142.hdr.grayed = 0;
c_731142.tag = closureN_tag;
 c_731142.fn = (function_type)__lambda_1;
c_731142.num_args = 1;
c_731142.num_elt = 3;
c_731142.elts = (object *)alloca(sizeof(object) * 3);
c_731142.elts[0] = k_73642;
c_731142.elts[1] = ((closureN)self_731111)->elts[0];
c_731142.elts[2] = rewrites_73260;

return_closcall1(data,(closure)&c_731142,  Cyc_is_number(rewrites_73260));; 
}

static void __lambda_1(void *data, int argc, object self_731112, object r_73643) {
  if( !eq(boolean_f, r_73643) ){ 
  
object c_731147 = Cyc_num_eq(data,  ((closureN)self_731112)->elts[0],2,((closureN)self_731112)->elts[2], ((closureN)self_731112)->elts[1]);
return_closcall1(data,  ((closureN)self_731112)->elts[0],  c_731147);
} else { 
  return_closcall1(data,  ((closureN)self_731112)->elts[0],  boolean_f);}
; 
}

static void __lambda_0(void *data, int argc, object self_731113, object r_73641) {
  return_closcall5(data,  __glo_run_91r7rs_91benchmark,  ((closureN)self_731113)->elts[1], ((closureN)self_731113)->elts[2], ((closureN)self_731113)->elts[0], ((closureN)self_731113)->elts[3], r_73641);; 
}

static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecxr_entry_pt(void *data, int argc, closure cont, object value);
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { 
  quote_u = find_or_add_symbol("u");
  quote_mem = find_or_add_symbol("mem");
  quote_val = find_or_add_symbol("val");
  quote_set = find_or_add_symbol("set");
  quote_get = find_or_add_symbol("get");
  quote_cdr = find_or_add_symbol("cdr");
  quote_assignedp = find_or_add_symbol("assignedp");
  quote_assignment = find_or_add_symbol("assignment");
  quote_car = find_or_add_symbol("car");
  quote_last = find_or_add_symbol("last");
  quote_sigma = find_or_add_symbol("sigma");
  quote_x7 = find_or_add_symbol("x7");
  quote_x6 = find_or_add_symbol("x6");
  quote_x5 = find_or_add_symbol("x5");
  quote_x4 = find_or_add_symbol("x4");
  quote_x3 = find_or_add_symbol("x3");
  quote_x2 = find_or_add_symbol("x2");
  quote_x1 = find_or_add_symbol("x1");
  quote_dsort = find_or_add_symbol("dsort");
  quote_sort2 = find_or_add_symbol("sort2");
  quote_delete = find_or_add_symbol("delete");
  quote_prime_91list = find_or_add_symbol("prime-list");
  quote_times_91list = find_or_add_symbol("times-list");
  quote_greatest_91factor = find_or_add_symbol("greatest-factor");
  quote_samefringe = find_or_add_symbol("samefringe");
  quote_gopher = find_or_add_symbol("gopher");
  quote_listp = find_or_add_symbol("listp");
  quote_nlistp = find_or_add_symbol("nlistp");
  quote_value = find_or_add_symbol("value");
  quote_w = find_or_add_symbol("w");
  quote_gcd = find_or_add_symbol("gcd");
  quote_power_91rep = find_or_add_symbol("power-rep");
  quote_big_91plus = find_or_add_symbol("big-plus");
  quote_base = find_or_add_symbol("base");
  quote_big_91plus1 = find_or_add_symbol("big-plus1");
  quote_power_91eval = find_or_add_symbol("power-eval");
  quote_quotient = find_or_add_symbol("quotient");
  quote_sort_91lp = find_or_add_symbol("sort-lp");
  quote_count_91list = find_or_add_symbol("count-list");
  quote_k = find_or_add_symbol("k");
  quote_j = find_or_add_symbol("j");
  quote_exp = find_or_add_symbol("exp");
  quote_nth = find_or_add_symbol("nth");
  quote_intersect = find_or_add_symbol("intersect");
  quote_length = find_or_add_symbol("length");
  quote_member = find_or_add_symbol("member");
  quote_flatten = find_or_add_symbol("flatten");
  quote_mc_91flatten = find_or_add_symbol("mc-flatten");
  quote_envrn = find_or_add_symbol("envrn");
  quote_pds = find_or_add_symbol("pds");
  quote_exec = find_or_add_symbol("exec");
  quote_times = find_or_add_symbol("times");
  quote_plus_91fringe = find_or_add_symbol("plus-fringe");
  quote_append = find_or_add_symbol("append");
  quote_plus_91tree = find_or_add_symbol("plus-tree");
  quote_meaning = find_or_add_symbol("meaning");
  quote_difference = find_or_add_symbol("difference");
  quote_z = find_or_add_symbol("z");
  quote_plus = find_or_add_symbol("plus");
  quote_e = find_or_add_symbol("e");
  quote_d = find_or_add_symbol("d");
  quote_c = find_or_add_symbol("c");
  quote_b = find_or_add_symbol("b");
  quote_a = find_or_add_symbol("a");
  quote_numberp = find_or_add_symbol("numberp");
  quote_q = find_or_add_symbol("q");
  quote_p = find_or_add_symbol("p");
  quote_prime1 = find_or_add_symbol("prime1");
  quote_add1 = find_or_add_symbol("add1");
  quote_prime = find_or_add_symbol("prime");
  quote_falsify1 = find_or_add_symbol("falsify1");
  quote_falsify = find_or_add_symbol("falsify");
  quote_normalize = find_or_add_symbol("normalize");
  quote_tautologyp = find_or_add_symbol("tautologyp");
  quote_tautology_91checker = find_or_add_symbol("tautology-checker");
  quote_assume_91false = find_or_add_symbol("assume-false");
  quote_cons = find_or_add_symbol("cons");
  quote_alist = find_or_add_symbol("alist");
  quote_var = find_or_add_symbol("var");
  quote_assume_91true = find_or_add_symbol("assume-true");
  quote_remainder = find_or_add_symbol("remainder");
  quote_divides = find_or_add_symbol("divides");
  quote_reverse_91loop = find_or_add_symbol("reverse-loop");
  quote_reverse_91 = find_or_add_symbol("reverse-");
  quote_fact_91loop = find_or_add_symbol("fact-loop");
  quote_i = find_or_add_symbol("i");
  quote_fact_91 = find_or_add_symbol("fact-");
  quote_zero = find_or_add_symbol("zero");
  quote_countps_91loop = find_or_add_symbol("countps-loop");
  quote_pred = find_or_add_symbol("pred");
  quote_l = find_or_add_symbol("l");
  quote_countps_91 = find_or_add_symbol("countps-");
  quote__1911_91 = find_or_add_symbol("_1-");
  quote_odd = find_or_add_symbol("odd");
  quote_zerop = find_or_add_symbol("zerop");
  quote_even1 = find_or_add_symbol("even1");
  quote_iff = find_or_add_symbol("iff");
  quote_boolean = find_or_add_symbol("boolean");
  quote_greatereqp = find_or_add_symbol("greatereqp");
  quote_not = find_or_add_symbol("not");
  quote_lesseqp = find_or_add_symbol("lesseqp");
  quote_lessp = find_or_add_symbol("lessp");
  quote_greaterp = find_or_add_symbol("greaterp");
  quote_fix = find_or_add_symbol("fix");
  quote_y = find_or_add_symbol("y");
  quote_x = find_or_add_symbol("x");
  quote_eqp = find_or_add_symbol("eqp");
  quote_nil = find_or_add_symbol("nil");
  quote_optimize = find_or_add_symbol("optimize");
  quote_codegen = find_or_add_symbol("codegen");
  quote_reverse = find_or_add_symbol("reverse");
  quote_form = find_or_add_symbol("form");
  quote_compile = find_or_add_symbol("compile");
  quote_lemmas = find_or_add_symbol("lemmas");
  quote_equal = find_or_add_symbol("equal");
  quote_or = find_or_add_symbol("or");
  quote__85 = find_or_add_symbol("*");
  quote_and = find_or_add_symbol("and");
  quote_implies = find_or_add_symbol("implies");
  quote__if = find_or_add_symbol("if");
  quote_f = find_or_add_symbol("f");
  quote_t = find_or_add_symbol("t");

  add_global((object *) &__glo_run_91r7rs_91benchmark);
  add_global((object *) &__glo_hide);
  add_global((object *) &__glo_test_91boyer);
  add_global((object *) &__glo_setup_91boyer);
  add_global((object *) &__glo_term);
  add_global((object *) &__glo_alist);
  add_global((object *) &__glo_main);
  add_symbol(quote_u);
  add_symbol(quote_mem);
  add_symbol(quote_val);
  add_symbol(quote_set);
  add_symbol(quote_get);
  add_symbol(quote_cdr);
  add_symbol(quote_assignedp);
  add_symbol(quote_assignment);
  add_symbol(quote_car);
  add_symbol(quote_last);
  add_symbol(quote_sigma);
  add_symbol(quote_x7);
  add_symbol(quote_x6);
  add_symbol(quote_x5);
  add_symbol(quote_x4);
  add_symbol(quote_x3);
  add_symbol(quote_x2);
  add_symbol(quote_x1);
  add_symbol(quote_dsort);
  add_symbol(quote_sort2);
  add_symbol(quote_delete);
  add_symbol(quote_prime_91list);
  add_symbol(quote_times_91list);
  add_symbol(quote_greatest_91factor);
  add_symbol(quote_samefringe);
  add_symbol(quote_gopher);
  add_symbol(quote_listp);
  add_symbol(quote_nlistp);
  add_symbol(quote_value);
  add_symbol(quote_w);
  add_symbol(quote_gcd);
  add_symbol(quote_power_91rep);
  add_symbol(quote_big_91plus);
  add_symbol(quote_base);
  add_symbol(quote_big_91plus1);
  add_symbol(quote_power_91eval);
  add_symbol(quote_quotient);
  add_symbol(quote_sort_91lp);
  add_symbol(quote_count_91list);
  add_symbol(quote_k);
  add_symbol(quote_j);
  add_symbol(quote_exp);
  add_symbol(quote_nth);
  add_symbol(quote_intersect);
  add_symbol(quote_length);
  add_symbol(quote_member);
  add_symbol(quote_flatten);
  add_symbol(quote_mc_91flatten);
  add_symbol(quote_envrn);
  add_symbol(quote_pds);
  add_symbol(quote_exec);
  add_symbol(quote_times);
  add_symbol(quote_plus_91fringe);
  add_symbol(quote_append);
  add_symbol(quote_plus_91tree);
  add_symbol(quote_meaning);
  add_symbol(quote_difference);
  add_symbol(quote_z);
  add_symbol(quote_plus);
  add_symbol(quote_e);
  add_symbol(quote_d);
  add_symbol(quote_c);
  add_symbol(quote_b);
  add_symbol(quote_a);
  add_symbol(quote_numberp);
  add_symbol(quote_q);
  add_symbol(quote_p);
  add_symbol(quote_prime1);
  add_symbol(quote_add1);
  add_symbol(quote_prime);
  add_symbol(quote_falsify1);
  add_symbol(quote_falsify);
  add_symbol(quote_normalize);
  add_symbol(quote_tautologyp);
  add_symbol(quote_tautology_91checker);
  add_symbol(quote_assume_91false);
  add_symbol(quote_cons);
  add_symbol(quote_alist);
  add_symbol(quote_var);
  add_symbol(quote_assume_91true);
  add_symbol(quote_remainder);
  add_symbol(quote_divides);
  add_symbol(quote_reverse_91loop);
  add_symbol(quote_reverse_91);
  add_symbol(quote_fact_91loop);
  add_symbol(quote_i);
  add_symbol(quote_fact_91);
  add_symbol(quote_zero);
  add_symbol(quote_countps_91loop);
  add_symbol(quote_pred);
  add_symbol(quote_l);
  add_symbol(quote_countps_91);
  add_symbol(quote__1911_91);
  add_symbol(quote_odd);
  add_symbol(quote_zerop);
  add_symbol(quote_even1);
  add_symbol(quote_iff);
  add_symbol(quote_boolean);
  add_symbol(quote_greatereqp);
  add_symbol(quote_not);
  add_symbol(quote_lesseqp);
  add_symbol(quote_lessp);
  add_symbol(quote_greaterp);
  add_symbol(quote_fix);
  add_symbol(quote_y);
  add_symbol(quote_x);
  add_symbol(quote_eqp);
  add_symbol(quote_nil);
  add_symbol(quote_optimize);
  add_symbol(quote_codegen);
  add_symbol(quote_reverse);
  add_symbol(quote_form);
  add_symbol(quote_compile);
  add_symbol(quote_lemmas);
  add_symbol(quote_equal);
  add_symbol(quote_or);
  add_symbol(quote__85);
  add_symbol(quote_and);
  add_symbol(quote_implies);
  add_symbol(quote__if);
  add_symbol(quote_f);
  add_symbol(quote_t);
  mclosure0(c_731223, (function_type)__lambda_79);c_731223.num_args = 4; 
  __glo_run_91r7rs_91benchmark = &c_731223; 
  mclosure0(c_731184, (function_type)__lambda_29);c_731184.num_args = 2; 
  __glo_hide = &c_731184; 
  mclosure0(c_731182, (function_type)__lambda_17);c_731182.num_args = 0; 
  __glo_test_91boyer = &c_731182; 
  mclosure0(c_731180, (function_type)__lambda_16);c_731180.num_args = 0; 
  __glo_setup_91boyer = &c_731180; 
  mclosure0(c_731114, (function_type)__lambda_15);c_731114.num_args = 0; 
  __glo_main = &c_731114; 
  __glo_term = boolean_f; 
  __glo_alist = boolean_f; 

  make_cvar(cvar_735231, (object *)&__glo_run_91r7rs_91benchmark);make_cons(pair_735232, find_or_add_symbol("run-r7rs-benchmark"), &cvar_735231);
  make_cvar(cvar_735233, (object *)&__glo_hide);make_cons(pair_735234, find_or_add_symbol("hide"), &cvar_735233);
  make_cvar(cvar_735235, (object *)&__glo_test_91boyer);make_cons(pair_735236, find_or_add_symbol("test-boyer"), &cvar_735235);
  make_cvar(cvar_735237, (object *)&__glo_setup_91boyer);make_cons(pair_735238, find_or_add_symbol("setup-boyer"), &cvar_735237);
  make_cvar(cvar_735239, (object *)&__glo_term);make_cons(pair_735240, find_or_add_symbol("term"), &cvar_735239);
  make_cvar(cvar_735241, (object *)&__glo_alist);make_cons(pair_735242, find_or_add_symbol("alist"), &cvar_735241);
  make_cvar(cvar_735243, (object *)&__glo_main);make_cons(pair_735244, find_or_add_symbol("main"), &cvar_735243);
make_cons(c_735245, &pair_735232,Cyc_global_variables);
make_cons(c_735246, &pair_735234, &c_735245);
make_cons(c_735247, &pair_735236, &c_735246);
make_cons(c_735248, &pair_735238, &c_735247);
make_cons(c_735249, &pair_735240, &c_735248);
make_cons(c_735250, &pair_735242, &c_735249);
make_cons(c_735251, &pair_735244, &c_735250);
Cyc_global_variables = &c_735251;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_735252, c_schemewrite_entry_pt, &c_done);
mclosure1(c_735253, c_schemeread_entry_pt, &c_735252);
mclosure1(c_735254, c_scheme_char_entry_pt, &c_735253);
mclosure1(c_735255, c_schemecxr_entry_pt, &c_735254);
mclosure1(c_735256, c_schemetime_entry_pt, &c_735255);
mclosure1(c_735257, c_schemebase_entry_pt, &c_735256);
(c_735257.fn)(data, 0, &c_735257, &c_735257);
}
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
  
    
    
    
    
    
    
    return_direct39(data,__lambda_483,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);
}
main(int argc,char **argv)
{gc_thread_data *thd;
 long stack_size = global_stack_size = STACK_SIZE;
 long heap_size = global_heap_size = HEAP_SIZE;
 mclosure0(clos_halt,&Cyc_halt);  // Halt if final closure is reached
 mclosure0(entry_pt,&c_entry_pt); // First function to execute
 _cyc_argc = argc;
 _cyc_argv = argv;
 gc_initialize();
 thd = malloc(sizeof(gc_thread_data));
 gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
 thd->gc_cont = &entry_pt;
 thd->gc_args[0] = &clos_halt;
 thd->gc_num_args = 1;
 gc_add_mutator(thd);
 Cyc_heap_init(heap_size);
 thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
 Cyc_start_trampoline(thd);
 return 0;}